max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: update stage0

Browse source
This commit is contained in:
Leonardo de Moura 2020-07-30 17:19:09 -07:00
parent 3839e2a127
commit 7bc2ef69e0
35 changed files with 16162 additions and 11506 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

64
stage0/src/Lean/Elab/Command.lean
View file

@ -544,44 +544,58 @@ fun stx => withoutModifyingEnv do
let n := `_eval;
ctx ← read;
env ← getEnv;
let addAndCompile := fun value => do {
let addAndCompile (value : Expr) : TermElabM Unit := do {
type ← Term.inferType ref value;
let decl := Declaration.defnDecl { name := n, lparams := [], type := type,
value := value, hints := ReducibilityHints.opaque, isUnsafe := true };
Term.addDecl ref decl;
Term.compileDecl ref decl
};
act ← runTermElabM (some n) fun _ => do {
e ← Term.elabTerm term none;
Term.synthesizeSyntheticMVars false;
if env.contains `Lean.MetaHasEval then do
-- modify `e` to `fun env opts => MetaHasEval.eval (hideUnit := false) env opts e`
e ← Term.withLocalDecl ref `env BinderInfo.default (mkConst `Lean.Environment) fun env =>
Term.withLocalDecl ref `opts BinderInfo.default (mkConst `Lean.Options) fun opts => do {
e ← Term.mkAppM ref `Lean.MetaHasEval.eval #[env, opts, e, toExpr false];
Term.mkLambda ref #[env, opts] e
};
addAndCompile e;
env ← Term.getEnv;
opts ← Term.getOptions;
match env.evalConst (Environment → Options → IO Unit) n with
| Except.error e => Term.throwError ref e
| Except.ok act => pure $ act env opts
else do
-- fall back to non-meta eval if MetaHasEval hasn't been defined yet
-- modify e to `HasEval.eval (hideUnit := false) e`
let elabMetaEval : CommandElabM Unit := do {
act : IO Environment ← runTermElabM (some n) fun _ => do {
e ← Term.elabTerm term none;
Term.synthesizeSyntheticMVars false;
e ← Term.withLocalDecl ref `env BinderInfo.default (mkConst `Lean.Environment) fun env =>
Term.withLocalDecl ref `opts BinderInfo.default (mkConst `Lean.Options) fun opts => do {
e ← Term.mkAppM ref `Lean.MetaHasEval.eval #[env, opts, e, toExpr false];
Term.mkLambda ref #[env, opts] e
};
addAndCompile e;
env ← Term.getEnv;
opts ← Term.getOptions;
match env.evalConst (Environment → Options → IO Environment) n with
| Except.error e => Term.throwError ref e
| Except.ok act => pure $ act env opts
};
(out, res) ← liftIO ref $ IO.Prim.withIsolatedStreams act;
logInfo ref out;
match res with
| Except.error e => throw $ Exception.error $ ioErrorToMessage ctx ref e
| Except.ok env => do setEnv env; pure ()
};
let elabEval : CommandElabM Unit := do {
-- fall back to non-meta eval if MetaHasEval hasn't been defined yet
-- modify e to `HasEval.eval (hideUnit := false) e`
act : IO Unit ← runTermElabM (some n) fun _ => do {
e ← Term.elabTerm term none;
Term.synthesizeSyntheticMVars false;
e ← Term.mkAppM ref `Lean.HasEval.eval #[e, toExpr false];
addAndCompile e;
env ← Term.getEnv;
match env.evalConst (IO Unit) n with
| Except.error e => Term.throwError ref e
| Except.ok act => pure act
};
(out, res) ← liftIO ref $ IO.Prim.withIsolatedStreams act;
logInfo ref out;
match res with
| Except.error e => throw $ Exception.error $ ioErrorToMessage ctx ref e
| Except.ok _ => pure ()
};
(out, res) ← liftIO ref $ IO.Prim.withIsolatedStreams act;
logInfo ref out;
match res with
| Except.error e => throw $ Exception.error $ ioErrorToMessage ctx ref e
| Except.ok _ => pure ()
if env.contains `Lean.MetaHasEval then do
elabMetaEval
else
elabEval
@[builtinCommandElab «eval», implementedBy elabEvalUnsafe]
constant elabEval : CommandElab := arbitrary _

8
stage0/src/Lean/Eval.lean
View file

@ -13,10 +13,10 @@ universe u
The basic `HasEval` class is in the prelude and should not depend on these
types. -/
class MetaHasEval (α : Type u) :=
(eval : Environment → Options → α → forall (hideUnit : optParam Bool true), IO Unit)
(eval : Environment → Options → α → forall (hideUnit : optParam Bool true), IO Environment)
instance metaHasEvalOfHasEval {α : Type u} [HasEval α] : MetaHasEval α :=
⟨fun env opts a hideUnit => HasEval.eval a hideUnit⟩
⟨fun env opts a hideUnit => do HasEval.eval a hideUnit; pure env⟩
abbrev MetaIO := ReaderT (Environment × Options) IO
@ -27,7 +27,9 @@ def MetaIO.getOptions : MetaIO Options := do
ctx ← read; pure ctx.2
instance MetaIO.metaHasEval {α} [MetaHasEval α] : MetaHasEval (MetaIO α) :=
⟨fun env opts x _ => x (env, opts) >>= MetaHasEval.eval env opts⟩
⟨fun env opts x _ => do
a ← x (env, opts);
MetaHasEval.eval env opts a⟩
instance MetaIO.monadIO : MonadIO MetaIO := {}

6
stage0/src/Lean/Expr.lean
View file

@ -635,6 +635,12 @@ constant abstract (e : @& Expr) (xs : @& Array Expr) : Expr := arbitrary _
@[extern "lean_expr_abstract_range"]
constant abstractRange (e : @& Expr) (n : @& Nat) (xs : @& Array Expr) : Expr := arbitrary _
def replaceFVar (e : Expr) (fvar : Expr) (v : Expr) : Expr :=
(e.abstract #[fvar]).instantiate1 v
def replaceFVarId (e : Expr) (fvarId : FVarId) (v : Expr) : Expr :=
replaceFVar e (mkFVar fvarId) v
instance : HasToString Expr :=
⟨Expr.dbgToString⟩

81
stage0/src/Lean/Meta/AppBuilder.lean
View file

@ -47,13 +47,16 @@ private def infer (h : Expr) : MetaM Expr := do
hType ← inferType h;
whnfD hType
private def hasTypeMsg (e type : Expr) : MessageData :=
indentExpr e ++ Format.line ++ "has type" ++ indentExpr type
def mkEqSymm (h : Expr) : MetaM Expr :=
if h.isAppOf `Eq.refl then pure h
else do
hType ← infer h;
match hType.eq? with
| some (α, a, b) => do u ← getLevel α; pure $ mkApp4 (mkConst `Eq.symm [u]) α a b h
| none => throwEx $ Exception.appBuilder `Eq.symm "equality proof expected" #[h]
| none => throwEx $ Exception.appBuilder `Eq.symm ("equality proof expected" ++ hasTypeMsg h hType)
def mkEqTrans (h₁ h₂ : Expr) : MetaM Expr :=
if h₁.isAppOf `Eq.refl then pure h₂
@ -64,7 +67,8 @@ else do
match hType₁.eq?, hType₂.eq? with
| some (α, a, b), some (_, _, c) =>
do u ← getLevel α; pure $ mkApp6 (mkConst `Eq.trans [u]) α a b c h₁ h₂
| _, _ => throwEx $ Exception.appBuilder `Eq.trans "equality proof expected" #[h₁, h₂]
| none, _ => throwEx $ Exception.appBuilder `Eq.trans ("equality proof expected" ++ hasTypeMsg h₁ hType₁)
| _, none => throwEx $ Exception.appBuilder `Eq.trans ("equality proof expected" ++ hasTypeMsg h₂ hType₂)
def mkHEqSymm (h : Expr) : MetaM Expr :=
if h.isAppOf `HEq.refl then pure h
@ -72,7 +76,7 @@ else do
hType ← infer h;
match hType.heq? with
| some (α, a, β, b) => do u ← getLevel α; pure $ mkApp5 (mkConst `HEq.symm [u]) α β a b h
| none => throwEx $ Exception.appBuilder `HEq.symm "heterogeneous equality proof expected" #[h]
| none => throwEx $ Exception.appBuilder `HEq.symm ("heterogeneous equality proof expected" ++ hasTypeMsg h hType)
def mkHEqTrans (h₁ h₂ : Expr) : MetaM Expr :=
if h₁.isAppOf `HEq.refl then pure h₂
@ -83,17 +87,19 @@ else do
match hType₁.heq?, hType₂.heq? with
| some (α, a, β, b), some (_, _, γ, c) => do
u ← getLevel α; pure $ mkApp8 (mkConst `HEq.trans [u]) α β γ a b c h₁ h₂
| _, _ => throwEx $ Exception.appBuilder `HEq.trans "heterogeneous equality proof expected" #[h₁, h₂]
| none, _ => throwEx $ Exception.appBuilder `HEq.trans ("heterogeneous equality proof expected" ++ hasTypeMsg h₁ hType₁)
| _, none => throwEx $ Exception.appBuilder `HEq.trans ("heterogeneous equality proof expected" ++ hasTypeMsg h₂ hType₂)
def mkEqOfHEq (h : Expr) : MetaM Expr := do
hType ← infer h;
match hType.heq? with
| some (α, a, β, b) => do
unlessM (isDefEq α β) $ throwEx $ Exception.appBuilder `eqOfHEq "heterogeneous equality types are not definitionally equal" #[α, β];
unlessM (isDefEq α β) $ throwEx $ Exception.appBuilder `eqOfHEq
("heterogeneous equality types are not definitionally equal" ++ indentExpr α ++ Format.line ++ "is not definitionally equal to" ++ indentExpr β);
u ← getLevel α;
pure $ mkApp4 (mkConst `eqOfHEq [u]) α a b h
| _ =>
throwEx $ Exception.appBuilder `HEq.trans "heterogeneous equality proof expected" #[h]
throwEx $ Exception.appBuilder `HEq.trans ("heterogeneous equality proof expected" ++ indentExpr h)
def mkCongrArg (f h : Expr) : MetaM Expr := do
hType ← infer h;
@ -101,8 +107,8 @@ fType ← infer f;
match fType.arrow?, hType.eq? with
| some (α, β), some (_, a, b) => do
u ← getLevel α; v ← getLevel β; pure $ mkApp6 (mkConst `congrArg [u, v]) α β a b f h
| none, _ => throwEx $ Exception.appBuilder `congrArg "non-dependent function expected" #[f, h]
| _, none => throwEx $ Exception.appBuilder `congrArg "equality proof expected" #[f, h]
| none, _ => throwEx $ Exception.appBuilder `congrArg ("non-dependent function expected" ++ hasTypeMsg f fType)
| _, none => throwEx $ Exception.appBuilder `congrArg ("equality proof expected" ++ hasTypeMsg h hType)
def mkCongrFun (h a : Expr) : MetaM Expr := do
hType ← infer h;
@ -115,8 +121,8 @@ match hType.eq? with
u ← getLevel α;
v ← getLevel (mkApp β' a);
pure $ mkApp6 (mkConst `congrFun [u, v]) α β' f g h a
| _ => throwEx $ Exception.appBuilder `congrFun "equality proof between functions expected" #[h, a]
| _ => throwEx $ Exception.appBuilder `congrFun "equality proof expected" #[h, a]
| _ => throwEx $ Exception.appBuilder `congrFun ("equality proof between functions expected" ++ hasTypeMsg h hType)
| _ => throwEx $ Exception.appBuilder `congrFun ("equality proof expected" ++ hasTypeMsg h hType)
def mkCongr (h₁ h₂ : Expr) : MetaM Expr := do
hType₁ ← infer h₁;
@ -129,8 +135,9 @@ match hType₁.eq?, hType₂.eq? with
u ← getLevel α;
v ← getLevel β;
pure $ mkApp8 (mkConst `congr [u, v]) α β f g a b h₁ h₂
| _ => throwEx $ Exception.appBuilder `congr "non-dependent function expected" #[h₁, h₂]
| _, _ => throwEx $ Exception.appBuilder `congr "equality proof expected" #[h₁, h₂]
| _ => throwEx $ Exception.appBuilder `congr ("non-dependent function expected" ++ hasTypeMsg h₁ hType₁)
| none, _ => throwEx $ Exception.appBuilder `congr ("equality proof expected" ++ hasTypeMsg h₁ hType₁)
| _, none => throwEx $ Exception.appBuilder `congr ("equality proof expected" ++ hasTypeMsg h₂ hType₂)
private def mkAppMFinal (methodName : Name) (f : Expr) (args : Array Expr) (instMVars : Array MVarId) : MetaM Expr := do
instMVars.forM $ fun mvarId => do {
@ -139,7 +146,7 @@ instMVars.forM $ fun mvarId => do {
assignExprMVar mvarId mvarVal
};
result ← instantiateMVars (mkAppN f args);
whenM (hasAssignableMVar result) $ throwEx $ Exception.appBuilder methodName "result contains metavariables" #[result];
whenM (hasAssignableMVar result) $ throwEx $ Exception.appBuilder methodName ("result contains metavariables" ++ indentExpr result);
pure result
private partial def mkAppMAux (f : Expr) (xs : Array Expr) : Nat → Array Expr → Nat → Array MVarId → Expr → MetaM Expr
@ -165,7 +172,7 @@ private partial def mkAppMAux (f : Expr) (xs : Array Expr) : Nat → Array Expr
else if i == xs.size then
mkAppMFinal `mkAppM f args instMVars
else
throwEx $ Exception.appBuilder `mkAppM "too many explicit arguments provided" (#[f] ++ xs)
throwEx $ Exception.appBuilder `mkAppM ("too many explicit arguments provided to" ++ indentExpr f ++ Format.line ++ "arguments" ++ xs)
private def mkFun (constName : Name) : MetaM (Expr × Expr) := do
cinfo ← getConstInfo constName;
@ -204,7 +211,7 @@ private partial def mkAppOptMAux (f : Expr) (xs : Array (Option Expr)) : Nat →
mkAppMFinal `mkAppOptM f args instMVars
else do
let xs : Array Expr := xs.foldl (fun r x? => match x? with | none => r | some x => r.push x) #[];
throwEx $ Exception.appBuilder `mkAppOptM "too many arguments provided" (#[f] ++ xs)
throwEx $ Exception.appBuilder `mkAppOptM ("too many arguments provided to" ++ indentExpr f ++ Format.line ++ "arguments" ++ xs)
/--
Similar to `mkAppM`, but it allows us to specify which arguments are provided explicitly using `Option` type.
@ -230,28 +237,28 @@ if h2.isAppOf `Eq.refl then pure h1
else do
h2Type ← infer h2;
match h2Type.eq? with
| none => throwEx $ Exception.appBuilder `Eq.ndrec "equality proof expected" #[h2]
| none => throwEx $ Exception.appBuilder `Eq.ndrec ("equality proof expected" ++ hasTypeMsg h2 h2Type)
| some (α, a, b) => do
u2 ← getLevel α;
motiveType ← infer motive;
match motiveType with
| Expr.forallE _ _ (Expr.sort u1 _) _ =>
pure $ mkAppN (mkConst `Eq.ndrec [u1, u2]) #[α, a, motive, h1, b, h2]
| _ => throwEx $ Exception.appBuilder `Eq.ndrec "invalid motive" #[motive]
| _ => throwEx $ Exception.appBuilder `Eq.ndrec ("invalid motive" ++ indentExpr motive)
def mkEqRec (motive h1 h2 : Expr) : MetaM Expr :=
if h2.isAppOf `Eq.refl then pure h1
else do
h2Type ← infer h2;
match h2Type.eq? with
| none => throwEx $ Exception.appBuilder `Eq.rec "equality proof expected" #[h2]
| none => throwEx $ Exception.appBuilder `Eq.rec ("equality proof expected" ++ indentExpr h2)
| some (α, a, b) => do
u2 ← getLevel α;
motiveType ← infer motive;
match motiveType with
| Expr.forallE _ _ (Expr.forallE _ _ (Expr.sort u1 _) _) _ =>
pure $ mkAppN (mkConst `Eq.rec [u1, u2]) #[α, a, motive, h1, b, h2]
| _ => throwEx $ Exception.appBuilder `Eq.rec "invalid motive" #[motive]
| _ => throwEx $ Exception.appBuilder `Eq.rec ("invalid motive" ++ indentExpr motive)
def mkEqMP (eqProof pr : Expr) : MetaM Expr :=
mkAppM `Eq.mp #[eqProof, pr]
@ -263,17 +270,17 @@ def mkNoConfusion (target : Expr) (h : Expr) : MetaM Expr := do
type ← inferType h;
type ← whnf type;
match type.eq? with
| none => throwEx $ Exception.appBuilder `noConfusion "equality expected" #[h]
| none => throwEx $ Exception.appBuilder `noConfusion ("equality expected" ++ hasTypeMsg h type)
| some (α, a, b) => do
α ← whnf α;
env ← getEnv;
let f := α.getAppFn;
matchConst env f (fun _ => throwEx $ Exception.appBuilder `noConfusion "inductive type expected" #[α]) $ fun cinfo us =>
matchConst env f (fun _ => throwEx $ Exception.appBuilder `noConfusion ("inductive type expected" ++ indentExpr α)) $ fun cinfo us =>
match cinfo with
| ConstantInfo.inductInfo v => do
u ← getLevel target;
pure $ mkAppN (mkConst (mkNameStr v.name "noConfusion") (u :: us)) (α.getAppArgs ++ #[target, a, b, h])
| _ => throwEx $ Exception.appBuilder `noConfusion "inductive type expected" #[α]
| _ => throwEx $ Exception.appBuilder `noConfusion ("inductive type expected" ++ indentExpr α)
def mkPure (m : Expr) (e : Expr) : MetaM Expr := do
mkAppOptM `HasPure.pure #[m, none, none, e]
@ -288,7 +295,7 @@ partial def mkProjection : Expr → Name → MetaM Expr
match type.getAppFn with
| Expr.const structName us _ => do
env ← getEnv;
unless (isStructureLike env structName) $ throwEx $ Exception.appBuilder `mkProjectionn "structure expected" #[s];
unless (isStructureLike env structName) $ throwEx $ Exception.appBuilder `mkProjectionn ("structure expected" ++ hasTypeMsg s type);
match getProjFnForField? env structName fieldName with
| some projFn =>
let params := type.getAppArgs;
@ -306,8 +313,32 @@ partial def mkProjection : Expr → Name → MetaM Expr
};
match r? with
| some r => pure r
| none => throwEx $ Exception.appBuilder `mkProjectionn ("invalid field name '" ++ toString fieldName ++ "'") #[s]
| _ => throwEx $ Exception.appBuilder `mkProjectionn "structure expected" #[s]
| none => throwEx $ Exception.appBuilder `mkProjectionn ("invalid field name '" ++ toString fieldName ++ "' for" ++ hasTypeMsg s type)
| _ => throwEx $ Exception.appBuilder `mkProjectionn ("structure expected" ++ hasTypeMsg s type)
private def mkListLitAux (nil : Expr) (cons : Expr) : List Expr → Expr
| [] => nil
| x::xs => mkApp (mkApp cons x) (mkListLitAux xs)
private def getDecLevel (methodName : Name) (type : Expr) : MetaM Level := do
u ← getLevel type;
match u.dec with
| none => throwEx $ Exception.appBuilder methodName ("invalid universe level, " ++ toString u ++ " is not greater than 0" ++ indentExpr type)
| some u => pure u
def mkListLit (type : Expr) (xs : List Expr) : MetaM Expr := do
u ← getDecLevel `mkListLit type;
let nil := mkApp (mkConst `List.nil [u]) type;
match xs with
| [] => pure nil
| _ =>
let cons := mkApp (mkConst `List.cons [u]) type;
pure $ mkListLitAux nil cons xs
def mkArrayLit (type : Expr) (xs : List Expr) : MetaM Expr := do
u ← getDecLevel `mkArrayLit type;
listLit ← mkListLit type xs;
pure (mkApp (mkApp (mkConst `List.toArray [u]) type) listLit)
end Meta
end Lean

17
stage0/src/Lean/Meta/Basic.lean
View file

@ -783,6 +783,23 @@ let fvar := mkFVar fvarId;
adaptReader (fun (ctx : Context) => { ctx with lctx := lctx }) $
withNewFVar fvar type k
def withExistingLocalDecls {α} (decls : List LocalDecl) (k : MetaM α) : MetaM α := do
ctx ← read;
let numLocalInstances := ctx.localInstances.size;
let lctx := decls.foldl (fun (lctx : LocalContext) decl => lctx.addDecl decl) ctx.lctx;
adaptReader (fun (ctx : Context) => { ctx with lctx := lctx }) do
newLocalInsts ← decls.foldlM
(fun (newlocalInsts : Array LocalInstance) (decl : LocalDecl) => do
c? ← isClass decl.type;
match c? with
| none => pure newlocalInsts
| some c => pure $ newlocalInsts.push { className := c, fvar := decl.toExpr })
ctx.localInstances;
if newLocalInsts.size == numLocalInstances then
k
else
resettingSynthInstanceCache $ adaptReader (fun (ctx : Context) => { ctx with localInstances := newLocalInsts }) k
/--
Save cache and `MetavarContext`, bump the `MetavarContext` depth, execute `x`,
and restore saved data. -/

10
stage0/src/Lean/Meta/Exception.lean
View file

@ -33,13 +33,13 @@ inductive Exception
| letTypeMismatch (fvarId : FVarId) (ctx : ExceptionContext)
| appTypeMismatch (f a : Expr) (ctx : ExceptionContext)
| notInstance (e : Expr) (ctx : ExceptionContext)
| appBuilder (op : Name) (msg : String) (args : Array Expr) (ctx : ExceptionContext)
| appBuilder (op : Name) (msg : MessageData) (ctx : ExceptionContext)
| synthInstance (inst : Expr) (ctx : ExceptionContext)
| tactic (tacticName : Name) (mvarId : MVarId) (msg : MessageData) (ctx : ExceptionContext)
| generalizeTelescope (es : Array Expr) (ctx : ExceptionContext)
| kernel (ex : KernelException) (opts : Options)
| bug (b : Bug) (ctx : ExceptionContext)
| other (msg : String)
| other (msg : MessageData)
namespace Exception
instance : Inhabited Exception := ⟨other ""⟩
@ -62,13 +62,13 @@ def toStr : Exception → String
| letTypeMismatch _ _ => "type mismatch at let-expression"
| appTypeMismatch _ _ _ => "application type mismatch"
| notInstance _ _ => "type class instance expected"
| appBuilder _ _ _ _ => "application builder failure"
| appBuilder _ _ _ => "application builder failure"
| synthInstance _ _ => "type class instance synthesis failed"
| tactic tacName _ _ _ => "tactic '" ++ toString tacName ++ "' failed"
| generalizeTelescope _ _ => "generalize telescope"
| kernel _ _ => "kernel exception"
| bug _ _ => "bug"
| other s => s
| other s => toString $ fmt s
instance : HasToString Exception := ⟨toStr⟩
@ -93,7 +93,7 @@ def toTraceMessageData : Exception → MessageData
| letTypeMismatch fvarId ctx => mkCtx ctx $ `letTypeMismatch ++ " " ++ mkFVar fvarId
| appTypeMismatch f a ctx => mkCtx ctx $ `appTypeMismatch ++ " " ++ mkApp f a
| notInstance i ctx => mkCtx ctx $ `notInstance ++ " " ++ i
| appBuilder op msg args ctx => mkCtx ctx $ `appBuilder ++ " " ++ op ++ " " ++ args ++ " " ++ msg
| appBuilder op msg ctx => mkCtx ctx $ `appBuilder ++ " " ++ op ++ " " ++ msg
| synthInstance inst ctx => mkCtx ctx $ `synthInstance ++ " " ++ inst
| tactic tacName mvarId msg ctx => mkCtx ctx $ `tacticFailure ++ " " ++ tacName ++ " " ++ msg
| generalizeTelescope es ctx => mkCtx ctx $ `generalizeTelescope ++ " " ++ es

2
stage0/src/Lean/Meta/Message.lean
View file

@ -71,7 +71,7 @@ def toMessageData : Exception → MessageData
| letTypeMismatch fvarId ctx => mkLetTypeMismatchMessage fvarId ctx
| appTypeMismatch f a ctx => mkAppTypeMismatchMessage f a ctx
| notInstance i ctx => mkCtx ctx $ "not a type class instance " ++ i
| appBuilder op msg args ctx => mkCtx ctx $ "application builder failure " ++ op ++ " " ++ args ++ " " ++ msg
| appBuilder op msg ctx => mkCtx ctx $ "application builder failure " ++ op ++ " " ++ msg
| synthInstance inst ctx => mkCtx ctx $ "failed to synthesize" ++ indentExpr inst
| tactic tacName mvarId msg ctx => mkCtx ctx $ "tactic '" ++ tacName ++ "' failed, " ++ msg ++ Format.line ++ MessageData.ofGoal mvarId
| generalizeTelescope es ctx => mkCtx ctx $ "failed to create telescope generalizing " ++ es

8
stage0/src/Lean/Meta/Tactic/Subst.lean
View file

@ -66,9 +66,9 @@ withMVarContext mvarId $ do
pure (fvarSubst, mvarId)
};
if depElim then do
let newType := (type.abstract #[a]).instantiate1 b;
let newType := type.replaceFVar a b;
reflB ← mkEqRefl b;
let newType := (newType.abstract #[h]).instantiate1 reflB;
let newType := newType.replaceFVar h reflB;
if symm then do
motive ← mkLambda #[a, h] type;
continue motive newType
@ -82,13 +82,13 @@ withMVarContext mvarId $ do
motive ← withLocalDecl `_h hAuxType BinderInfo.default $ fun hAux => do {
hAuxSymm ← mkEqSymm hAux;
/- replace h in type with hAuxSymm -/
let newType := (type.abstract #[h]).instantiate1 hAuxSymm;
let newType := type.replaceFVar h hAuxSymm;
mkLambda #[a, hAux] newType
};
continue motive newType
else do
motive ← mkLambda #[a] type;
let newType := (type.abstract #[a]).instantiate1 b;
let newType := type.replaceFVar a b;
continue motive newType
| _ =>
throwTacticEx `subst mvarId $

9
stage0/src/Lean/Util/CollectLevelParams.lean
View file

@ -47,6 +47,15 @@ partial def main : Expr → Visitor
| Expr.sort u _ => visitLevel collect u
| _ => id
private partial def getUnusedLevelParamAux (s : CollectLevelParams.State) (pre : Name) : Nat → Level
| i =>
let v := mkLevelParam (pre.appendIndexAfter i);
if s.visitedLevel.contains v then getUnusedLevelParamAux (i+1) else v
def State.getUnusedLevelParam (s : CollectLevelParams.State) (pre : Name := `v) : Level :=
let v := mkLevelParam pre;
if s.visitedLevel.contains v then getUnusedLevelParamAux s pre 1 else v
end CollectLevelParams
def collectLevelParams (s : CollectLevelParams.State) (e : Expr) : CollectLevelParams.State :=

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

@ -411,8 +411,12 @@ static environment eval_cmd(parser & p) {
msg << string_to_std(str);
msg.report();
dec_ref(str);
return p.env();
} else if (meta_eval_instance) {
return environment(io_result_get_value(r.raw()), true);
} else {
return p.env();
}
return p.env();
}
environment compact_tst_cmd(parser & p) {

214
stage0/stdlib/Lean/Delaborator.c
View file

@ -53,6 +53,7 @@ lean_object* l_Lean_Expr_bindingDomain_x21(lean_object*);
extern lean_object* l_Lean_Parser_Term_explicit___elambda__1___closed__1;
uint8_t l_Lean_getPPCoercions(lean_object*);
lean_object* l_Array_umapMAux___main___at_Lean_Delaborator_delabLam___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_delab___closed__3;
lean_object* l___regBuiltin_Lean_Delaborator_delabCoeFun(lean_object*);
lean_object* l_Lean_Delaborator_delab(lean_object*, lean_object*, lean_object*);
uint8_t lean_name_eq(lean_object*, lean_object*);
@ -106,7 +107,6 @@ lean_object* lean_array_push(lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_getExprKind___closed__21;
lean_object* lean_array_get_size(lean_object*);
extern lean_object* l_Lean_Parser_Term_depArrow___elambda__1___closed__2;
lean_object* lean_string_append(lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_getExprKind___closed__8;
lean_object* l_Lean_Level_quote___main___closed__3;
lean_object* l_Lean_Delaborator_getExprKind___closed__17;
@ -198,6 +198,7 @@ extern lean_object* l_Lean_Parser_Term_instBinder___elambda__1___closed__2;
lean_object* l_Lean_Level_quote___main___closed__1;
lean_object* l_Lean_Delaborator_mkDelabAttribute___closed__5;
lean_object* l_Lean_Level_quote___main___lambda__4___closed__1;
lean_object* l_Lean_Delaborator_delab___closed__2;
lean_object* l_Lean_Delaborator_delabOfNat___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_whenPPOption(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Delaborator_delabAppExplicit(lean_object*);
@ -211,6 +212,7 @@ lean_object* l_Lean_Expr_fvarId_x21(lean_object*);
lean_object* l_Lean_Delaborator_delabAppImplicit___lambda__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
lean_object* l_Std_mkHashMapImp___rarg(lean_object*);
extern lean_object* l_Lean_Elab_Term_mkConst___closed__4;
lean_object* l_Lean_Delaborator_delabSort___closed__5;
lean_object* l___regBuiltin_Lean_Delaborator_delabProjectionApp___closed__1;
extern lean_object* l_Lean_Unhygienic_MonadQuotation___closed__4;
@ -229,7 +231,6 @@ lean_object* l_Lean_Delaborator_delabAppImplicit___closed__5;
extern lean_object* l_Std_PersistentArray_Stats_toString___closed__4;
size_t l_Lean_Name_hash(lean_object*);
lean_object* l_Nat_repr(lean_object*);
extern lean_object* l_Char_HasRepr___closed__1;
uint8_t l_Lean_LocalDecl_binderInfo(lean_object*);
extern lean_object* l_Lean_Level_LevelToFormat_Result_format___main___closed__5;
extern lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__3;
@ -7684,10 +7685,30 @@ x_1 = lean_mk_string("don't know how to delaborate '");
return x_1;
}
}
lean_object* _init_l_Lean_Delaborator_delab___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Delaborator_delab___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_Delaborator_delab___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Delaborator_delab___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_Delaborator_delab(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15;
lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17;
x_4 = l_Lean_Delaborator_getExprKind(x_1, x_2, x_3);
x_5 = lean_ctor_get(x_4, 0);
lean_inc(x_5);
@ -7700,120 +7721,127 @@ lean_dec(x_5);
x_8 = l_Lean_Name_toString___closed__1;
lean_inc(x_7);
x_9 = l_Lean_Name_toStringWithSep___main(x_8, x_7);
x_10 = l_Lean_Delaborator_delab___closed__1;
x_11 = lean_string_append(x_10, x_9);
lean_dec(x_9);
x_12 = l_Char_HasRepr___closed__1;
x_13 = lean_string_append(x_11, x_12);
x_14 = lean_alloc_ctor(22, 1, 0);
lean_ctor_set(x_14, 0, x_13);
x_15 = l_Lean_Delaborator_delabFor___main(x_7, x_1, x_2, x_6);
if (lean_obj_tag(x_15) == 0)
{
lean_object* x_16;
x_16 = lean_ctor_get(x_15, 0);
lean_inc(x_16);
if (lean_obj_tag(x_16) == 0)
{
uint8_t x_17;
x_17 = !lean_is_exclusive(x_15);
if (x_17 == 0)
x_10 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_10, 0, x_9);
x_11 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_11, 0, x_10);
x_12 = l_Lean_Delaborator_delab___closed__3;
x_13 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_13, 0, x_12);
lean_ctor_set(x_13, 1, x_11);
x_14 = l_Lean_Elab_Term_mkConst___closed__4;
x_15 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_15, 0, x_13);
lean_ctor_set(x_15, 1, x_14);
x_16 = lean_alloc_ctor(22, 1, 0);
lean_ctor_set(x_16, 0, x_15);
x_17 = l_Lean_Delaborator_delabFor___main(x_7, x_1, x_2, x_6);
if (lean_obj_tag(x_17) == 0)
{
lean_object* x_18;
x_18 = lean_ctor_get(x_15, 0);
lean_dec(x_18);
lean_ctor_set_tag(x_15, 1);
lean_ctor_set(x_15, 0, x_14);
return x_15;
x_18 = lean_ctor_get(x_17, 0);
lean_inc(x_18);
if (lean_obj_tag(x_18) == 0)
{
uint8_t x_19;
x_19 = !lean_is_exclusive(x_17);
if (x_19 == 0)
{
lean_object* x_20;
x_20 = lean_ctor_get(x_17, 0);
lean_dec(x_20);
lean_ctor_set_tag(x_17, 1);
lean_ctor_set(x_17, 0, x_16);
return x_17;
}
else
{
lean_object* x_19; lean_object* x_20;
x_19 = lean_ctor_get(x_15, 1);
lean_inc(x_19);
lean_dec(x_15);
x_20 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_20, 0, x_14);
lean_ctor_set(x_20, 1, x_19);
return x_20;
lean_object* x_21; lean_object* x_22;
x_21 = lean_ctor_get(x_17, 1);
lean_inc(x_21);
lean_dec(x_17);
x_22 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_22, 0, x_16);
lean_ctor_set(x_22, 1, x_21);
return x_22;
}
}
else
{
uint8_t x_21;
lean_dec(x_14);
x_21 = !lean_is_exclusive(x_15);
if (x_21 == 0)
{
lean_object* x_22; uint8_t x_23;
x_22 = lean_ctor_get(x_15, 0);
lean_dec(x_22);
x_23 = !lean_is_exclusive(x_16);
uint8_t x_23;
lean_dec(x_16);
x_23 = !lean_is_exclusive(x_17);
if (x_23 == 0)
{
return x_15;
lean_object* x_24; uint8_t x_25;
x_24 = lean_ctor_get(x_17, 0);
lean_dec(x_24);
x_25 = !lean_is_exclusive(x_18);
if (x_25 == 0)
{
return x_17;
}
else
{
lean_object* x_24; lean_object* x_25;
x_24 = lean_ctor_get(x_16, 0);
lean_inc(x_24);
lean_dec(x_16);
x_25 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_25, 0, x_24);
lean_ctor_set(x_15, 0, x_25);
return x_15;
}
}
else
{
lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30;
x_26 = lean_ctor_get(x_15, 1);
lean_object* x_26; lean_object* x_27;
x_26 = lean_ctor_get(x_18, 0);
lean_inc(x_26);
lean_dec(x_15);
x_27 = lean_ctor_get(x_16, 0);
lean_inc(x_27);
if (lean_is_exclusive(x_16)) {
lean_ctor_release(x_16, 0);
x_28 = x_16;
} else {
lean_dec_ref(x_16);
x_28 = lean_box(0);
lean_dec(x_18);
x_27 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_27, 0, x_26);
lean_ctor_set(x_17, 0, x_27);
return x_17;
}
if (lean_is_scalar(x_28)) {
x_29 = lean_alloc_ctor(1, 1, 0);
} else {
x_29 = x_28;
}
lean_ctor_set(x_29, 0, x_27);
x_30 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_30, 0, x_29);
lean_ctor_set(x_30, 1, x_26);
return x_30;
else
{
lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32;
x_28 = lean_ctor_get(x_17, 1);
lean_inc(x_28);
lean_dec(x_17);
x_29 = lean_ctor_get(x_18, 0);
lean_inc(x_29);
if (lean_is_exclusive(x_18)) {
lean_ctor_release(x_18, 0);
x_30 = x_18;
} else {
lean_dec_ref(x_18);
x_30 = lean_box(0);
}
if (lean_is_scalar(x_30)) {
x_31 = lean_alloc_ctor(1, 1, 0);
} else {
x_31 = x_30;
}
lean_ctor_set(x_31, 0, x_29);
x_32 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_32, 0, x_31);
lean_ctor_set(x_32, 1, x_28);
return x_32;
}
}
}
else
{
uint8_t x_31;
lean_dec(x_14);
x_31 = !lean_is_exclusive(x_15);
if (x_31 == 0)
uint8_t x_33;
lean_dec(x_16);
x_33 = !lean_is_exclusive(x_17);
if (x_33 == 0)
{
return x_15;
return x_17;
}
else
{
lean_object* x_32; lean_object* x_33; lean_object* x_34;
x_32 = lean_ctor_get(x_15, 0);
x_33 = lean_ctor_get(x_15, 1);
lean_inc(x_33);
lean_inc(x_32);
lean_dec(x_15);
x_34 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_34, 0, x_32);
lean_ctor_set(x_34, 1, x_33);
return x_34;
lean_object* x_34; lean_object* x_35; lean_object* x_36;
x_34 = lean_ctor_get(x_17, 0);
x_35 = lean_ctor_get(x_17, 1);
lean_inc(x_35);
lean_inc(x_34);
lean_dec(x_17);
x_36 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_36, 0, x_34);
lean_ctor_set(x_36, 1, x_35);
return x_36;
}
}
}
@ -18830,6 +18858,10 @@ l_Lean_Delaborator_getPPOption___closed__1 = _init_l_Lean_Delaborator_getPPOptio
lean_mark_persistent(l_Lean_Delaborator_getPPOption___closed__1);
l_Lean_Delaborator_delab___closed__1 = _init_l_Lean_Delaborator_delab___closed__1();
lean_mark_persistent(l_Lean_Delaborator_delab___closed__1);
l_Lean_Delaborator_delab___closed__2 = _init_l_Lean_Delaborator_delab___closed__2();
lean_mark_persistent(l_Lean_Delaborator_delab___closed__2);
l_Lean_Delaborator_delab___closed__3 = _init_l_Lean_Delaborator_delab___closed__3();
lean_mark_persistent(l_Lean_Delaborator_delab___closed__3);
l___regBuiltin_Lean_Delaborator_delabFVar___closed__1 = _init_l___regBuiltin_Lean_Delaborator_delabFVar___closed__1();
lean_mark_persistent(l___regBuiltin_Lean_Delaborator_delabFVar___closed__1);
res = l___regBuiltin_Lean_Delaborator_delabFVar(lean_io_mk_world());

2856
stage0/stdlib/Lean/Elab/Command.c
View file

File diff suppressed because it is too large Load diff

6
stage0/stdlib/Lean/Elab/Print.c
View file

@ -37,11 +37,11 @@ lean_object* lean_private_to_user_name(lean_object*);
lean_object* l___private_Lean_Elab_Print_1__throwUnknownId___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Elab_Command_elabPrint(lean_object*);
lean_object* l___private_Lean_Elab_Command_3__setState(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_assumption___closed__1;
extern lean_object* l_Lean_Parser_Command_print___elambda__1___closed__2;
extern lean_object* l_Lean_Parser_Term_explicitUniv___elambda__1___closed__5;
lean_object* l_List_map___main___at___private_Lean_Elab_Print_9__printId___spec__2(lean_object*);
lean_object* l_Lean_Elab_Command_elabPrint___closed__4;
extern lean_object* l_Lean_Meta_Exception_Inhabited___closed__1;
lean_object* l___private_Lean_Elab_Print_5__printAxiomLike___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Print_4__printDefLike___closed__1;
lean_object* l___private_Lean_Elab_Print_4__printDefLike___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -218,7 +218,7 @@ _start:
if (lean_obj_tag(x_1) == 0)
{
lean_object* x_2;
x_2 = l_Lean_Meta_assumption___closed__1;
x_2 = l_Lean_Meta_Exception_Inhabited___closed__1;
return x_2;
}
else
@ -335,7 +335,7 @@ lean_inc(x_80);
x_81 = lean_ctor_get(x_79, 1);
lean_inc(x_81);
lean_dec(x_79);
x_82 = l_Lean_Meta_assumption___closed__1;
x_82 = l_Lean_Meta_Exception_Inhabited___closed__1;
x_8 = x_82;
x_9 = x_80;
x_10 = x_81;

42
stage0/stdlib/Lean/Elab/Structure.c
View file

@ -91,7 +91,6 @@ lean_object* l___private_Lean_Elab_Structure_4__validStructType___boxed(lean_obj
lean_object* l___private_Lean_Elab_Structure_10__withFields___main___rarg___closed__8;
lean_object* l___private_Lean_Elab_Term_3__fromMetaState(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__4;
lean_object* l_Lean_Elab_Term_ensureHasType(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Structure_5__checkParentIsStructure___closed__4;
lean_object* l___private_Lean_Elab_Structure_22__collectLevelParamsInStructure(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -311,6 +310,7 @@ lean_object* l___private_Lean_Elab_Structure_8__processSubfields___main(lean_obj
lean_object* l___private_Lean_Elab_Structure_23__addCtorFields___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_elabBinders___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_setEnv(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_mkProjection___main___closed__7;
lean_object* l_List_forM___main___at_Lean_Elab_Command_elabStructure___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Structure_10__withFields___main___rarg___closed__12;
lean_object* l_Array_forMAux___main___at___private_Lean_Elab_Structure_29__addDefaults___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -365,7 +365,6 @@ lean_object* l_Array_findMAux___main___at___private_Lean_Elab_Structure_6__findF
extern lean_object* l_Lean_Parser_Command_classTk___elambda__1___closed__2;
lean_object* l_Lean_Elab_Command_checkValidFieldModifier___closed__6;
lean_object* l_Lean_Elab_Term_getMCtx___rarg(lean_object*);
lean_object* l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__5;
uint8_t lean_is_class(lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Structure_18__collectUniversesFromFields___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabStructure___lambda__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -374,7 +373,6 @@ uint8_t l_Lean_isStructure(lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Structure_28__mkAuxConstructions(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Structure_18__collectUniversesFromFields(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_mkProjection___main___closed__3;
lean_object* _init_l_Lean_Elab_Command_StructFieldInfo_inhabited___closed__1() {
_start:
{
@ -1346,11 +1344,9 @@ return x_5;
lean_object* _init_l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Meta_mkProjection___main___closed__3;
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
lean_object* x_1;
x_1 = lean_mk_string("', identifiers starting with '_' are reserved to the system");
return x_1;
}
}
lean_object* _init_l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__2() {
@ -1358,7 +1354,7 @@ _start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__1;
x_2 = lean_alloc_ctor(0, 1, 0);
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
@ -1366,26 +1362,8 @@ return x_2;
lean_object* _init_l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__3() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("', identifiers starting with '_' are reserved to the system");
return x_1;
}
}
lean_object* _init_l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__3;
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__5() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__4;
x_1 = l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__2;
x_2 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
@ -1501,11 +1479,11 @@ lean_dec(x_6);
lean_dec(x_4);
x_34 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_34, 0, x_20);
x_35 = l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__2;
x_35 = l_Lean_Meta_mkProjection___main___closed__7;
x_36 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_36, 0, x_35);
lean_ctor_set(x_36, 1, x_34);
x_37 = l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__5;
x_37 = l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__3;
x_38 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_38, 0, x_36);
lean_ctor_set(x_38, 1, x_37);
@ -11588,10 +11566,6 @@ l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___
lean_mark_persistent(l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__2);
l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__3 = _init_l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__3();
lean_mark_persistent(l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__3);
l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__4 = _init_l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__4();
lean_mark_persistent(l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__4);
l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__5 = _init_l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__5();
lean_mark_persistent(l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__1___closed__5);
l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__2___closed__1 = _init_l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__2___closed__1();
lean_mark_persistent(l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__2___closed__1);
l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__2___closed__2 = _init_l_Array_iterateMAux___main___at___private_Lean_Elab_Structure_3__expandFields___spec__2___closed__2();

4
stage0/stdlib/Lean/Elab/Syntax.c
View file

@ -469,6 +469,7 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__126;
uint8_t l_Lean_Name_hasMacroScopes___main(lean_object*);
lean_object* l_Lean_Parser_registerParserCategory(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*);
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__63;
extern lean_object* l_Lean_Elab_Command_elabEvalUnsafe___lambda__1___closed__3;
lean_object* l_Lean_Elab_Command_elabSyntax___closed__9;
lean_object* l___private_Lean_Elab_Syntax_6__declareSyntaxCatQuotParser___closed__51;
extern lean_object* l_Bool_HasRepr___closed__1;
@ -716,7 +717,6 @@ extern lean_object* l_Lean_Parser_mkParserOfConstantUnsafe___closed__5;
lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_Syntax_9__expandNotationAux___spec__3(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__2;
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__44;
extern lean_object* l_Lean_Elab_Command_elabEvalUnsafe___lambda__1___closed__2;
lean_object* l___private_Lean_Elab_Syntax_1__mkParserSeq___boxed(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Command_syntax___elambda__1___closed__1;
lean_object* l_Lean_Elab_Command_expandNotationItemIntoSyntaxItem(lean_object*, lean_object*, lean_object*);
@ -3365,7 +3365,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_Elab_Command_elabEvalUnsafe___lambda__1___closed__2;
x_2 = l_Lean_Elab_Command_elabEvalUnsafe___lambda__1___closed__3;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);

4
stage0/stdlib/Lean/Elab/SyntheticMVars.c
View file

@ -60,7 +60,6 @@ lean_object* l_List_filterAuxM___main___at___private_Lean_Elab_SyntheticMVars_7_
lean_object* l_List_filterAuxM___main___at___private_Lean_Elab_SyntheticMVars_7__synthesizeSyntheticMVarsStep___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_SyntheticMVars_1__resumeElabTerm(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l_List_forM___main___at___private_Lean_Elab_SyntheticMVars_9__reportStuckSyntheticMVars___spec__1___lambda__1___closed__2;
extern lean_object* l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
lean_object* l_Lean_Elab_Term_ensureAssignmentHasNoMVars___closed__3;
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_SyntheticMVars_11__synthesizeSyntheticMVarsAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -86,6 +85,7 @@ lean_object* l___private_Lean_Elab_SyntheticMVars_3__synthesizePendingInstMVar__
lean_object* l_Lean_Elab_Term_synthesizeSyntheticMVars___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_SyntheticMVars_8__synthesizeUsingDefault(lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_SyntheticMVars_4__synthesizePendingCoeInstMVar___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_object* l___private_Lean_Elab_SyntheticMVars_5__checkWithDefault(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_filterAuxM___main___at___private_Lean_Elab_SyntheticMVars_8__synthesizeUsingDefault___spec__1___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_SyntheticMVars_11__synthesizeSyntheticMVarsAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -4334,7 +4334,7 @@ lean_dec(x_11);
lean_dec(x_10);
lean_dec(x_9);
lean_dec(x_6);
x_184 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_184 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
x_185 = l_Lean_Elab_Term_throwError___rarg(x_7, x_184, x_3, x_8);
lean_dec(x_7);
x_186 = !lean_is_exclusive(x_185);

6
stage0/stdlib/Lean/Elab/Tactic/Basic.c
View file

@ -148,7 +148,6 @@ lean_object* l_List_findM_x3f___main___at_Lean_Elab_Tactic_evalCase___spec__1(le
lean_object* l_Std_PersistentHashMap_find_x3f___at_Lean_Elab_Tactic_evalTactic___main___spec__2___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Tactic_evalTactic___main___closed__2;
lean_object* l___private_Lean_Elab_Tactic_Basic_4__regTraceClasses(lean_object*);
extern lean_object* l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
lean_object* l___regBuiltin_Lean_Elab_Tactic_evalSkip___closed__1;
lean_object* l_Lean_Elab_Tactic_evalCase(lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Elab_Tactic_evalClear___closed__1;
@ -226,6 +225,7 @@ lean_object* l_Lean_Elab_Tactic_State_inhabited___closed__1;
lean_object* l_Lean_collectMVars(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Tactic_evalParen___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Tactic_monadLog___lambda__2___boxed(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_object* l_Lean_Elab_Term_throwUnsupportedSyntax___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Tactic_getMainGoal(lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Elab_Tactic_evalSubst(lean_object*);
@ -2135,7 +2135,7 @@ goto block_43;
else
{
lean_object* x_44; lean_object* x_45;
x_44 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_44 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
x_45 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_44, x_3, x_4);
if (lean_obj_tag(x_45) == 0)
{
@ -5114,7 +5114,7 @@ goto block_249;
else
{
lean_object* x_250; lean_object* x_251;
x_250 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_250 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_inc(x_1);
x_251 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_250, x_2, x_3);
if (lean_obj_tag(x_251) == 0)

30
stage0/stdlib/Lean/Elab/Tactic/Generalize.c
View file

@ -29,6 +29,7 @@ lean_object* l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___l
lean_object* lean_expr_lift_loose_bvars(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Tactic_Generalize_3__evalGeneralizeFinalize(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__4;
extern lean_object* l_Lean_Elab_Tactic_liftMetaTactic___closed__1;
lean_object* l___private_Lean_Elab_Tactic_Generalize_5__evalGeneralizeFallback(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Tactic_Generalize_2__getVarName___boxed(lean_object*);
@ -64,6 +65,7 @@ lean_object* l___regBuiltin_Lean_Elab_Tactic_evalGeneralize___closed__1;
lean_object* l___private_Lean_Elab_Tactic_Generalize_2__getVarName(lean_object*);
lean_object* l_Lean_mkAppB(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Tactic_Generalize_1__getAuxHypothesisName(lean_object*);
lean_object* l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__3;
lean_object* l_Lean_mkConst(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Tactic_liftMetaTacticAux___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkApp3(lean_object*, lean_object*, lean_object*, lean_object*);
@ -371,6 +373,26 @@ _start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___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___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___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___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__3;
x_2 = lean_alloc_ctor(22, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
@ -548,7 +570,7 @@ if (x_48 == 0)
lean_object* x_49; lean_object* x_50;
x_49 = lean_ctor_get(x_7, 0);
lean_dec(x_49);
x_50 = l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__2;
x_50 = l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__4;
lean_ctor_set_tag(x_7, 1);
lean_ctor_set(x_7, 0, x_50);
return x_7;
@ -559,7 +581,7 @@ lean_object* x_51; lean_object* x_52; lean_object* x_53;
x_51 = lean_ctor_get(x_7, 1);
lean_inc(x_51);
lean_dec(x_7);
x_52 = l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__2;
x_52 = l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__4;
x_53 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_53, 0, x_52);
lean_ctor_set(x_53, 1, x_51);
@ -1184,6 +1206,10 @@ l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___cl
lean_mark_persistent(l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__1);
l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__2 = _init_l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__2();
lean_mark_persistent(l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__2);
l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__3 = _init_l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__3();
lean_mark_persistent(l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__3);
l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__4 = _init_l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__4();
lean_mark_persistent(l___private_Lean_Elab_Tactic_Generalize_4__evalGeneralizeWithEq___lambda__1___closed__4);
l___regBuiltin_Lean_Elab_Tactic_evalGeneralize___closed__1 = _init_l___regBuiltin_Lean_Elab_Tactic_evalGeneralize___closed__1();
lean_mark_persistent(l___regBuiltin_Lean_Elab_Tactic_evalGeneralize___closed__1);
res = l___regBuiltin_Lean_Elab_Tactic_evalGeneralize(lean_io_mk_world());

30
stage0/stdlib/Lean/Elab/Tactic/Induction.c
View file

@ -88,7 +88,6 @@ lean_object* l_Nat_foldMAux___main___at___private_Lean_Elab_Tactic_Induction_16_
lean_object* l___private_Lean_Elab_Tactic_Induction_15__isTermRHS___boxed(lean_object*);
lean_object* l___regBuiltin_Lean_Elab_Tactic_evalInduction(lean_object*);
lean_object* l___private_Lean_Elab_Tactic_Induction_11__checkAltCtorNames(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
lean_object* lean_array_fget(lean_object*, lean_object*);
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
lean_object* l_List_toString___at_Lean_Elab_OpenDecl_HasToString___spec__2(lean_object*);
@ -124,6 +123,7 @@ lean_object* l_Lean_Meta_revert___boxed(lean_object*, lean_object*, lean_object*
lean_object* l_Nat_foldMAux___main___at___private_Lean_Elab_Tactic_Induction_16__processResult___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Tactic_getRecFromUsing(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Nat_foldMAux___main___at___private_Lean_Elab_Tactic_Induction_16__processResult___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_object* l_Lean_Elab_Tactic_getMainGoal(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Tactic_getInductiveValFromMajor___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_mkRecFor___closed__1;
@ -1974,7 +1974,7 @@ goto block_58;
else
{
lean_object* x_59; lean_object* x_60;
x_59 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_59 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_inc(x_1);
x_60 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_59, x_4, x_20);
if (lean_obj_tag(x_60) == 0)
@ -2253,7 +2253,7 @@ goto block_118;
else
{
lean_object* x_119; lean_object* x_120;
x_119 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_119 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_inc(x_1);
x_120 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_119, x_4, x_80);
if (lean_obj_tag(x_120) == 0)
@ -2532,7 +2532,7 @@ goto block_178;
else
{
lean_object* x_179; lean_object* x_180;
x_179 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_179 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_inc(x_1);
x_180 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_179, x_4, x_140);
if (lean_obj_tag(x_180) == 0)
@ -2811,7 +2811,7 @@ goto block_238;
else
{
lean_object* x_239; lean_object* x_240;
x_239 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_239 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_inc(x_1);
x_240 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_239, x_4, x_200);
if (lean_obj_tag(x_240) == 0)
@ -3107,7 +3107,7 @@ goto block_304;
else
{
lean_object* x_305; lean_object* x_306;
x_305 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_305 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_inc(x_1);
x_306 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_305, x_4, x_266);
if (lean_obj_tag(x_306) == 0)
@ -3450,7 +3450,7 @@ goto block_367;
else
{
lean_object* x_368; lean_object* x_369;
x_368 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_368 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_inc(x_1);
x_369 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_368, x_4, x_329);
if (lean_obj_tag(x_369) == 0)
@ -3731,7 +3731,7 @@ goto block_440;
else
{
lean_object* x_441; lean_object* x_442;
x_441 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_441 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_inc(x_1);
x_442 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_441, x_4, x_402);
if (lean_obj_tag(x_442) == 0)
@ -4010,7 +4010,7 @@ goto block_500;
else
{
lean_object* x_501; lean_object* x_502;
x_501 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_501 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_inc(x_1);
x_502 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_501, x_4, x_462);
if (lean_obj_tag(x_502) == 0)
@ -4289,7 +4289,7 @@ goto block_560;
else
{
lean_object* x_561; lean_object* x_562;
x_561 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_561 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_inc(x_1);
x_562 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_561, x_4, x_522);
if (lean_obj_tag(x_562) == 0)
@ -4568,7 +4568,7 @@ goto block_620;
else
{
lean_object* x_621; lean_object* x_622;
x_621 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_621 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_inc(x_1);
x_622 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_621, x_4, x_582);
if (lean_obj_tag(x_622) == 0)
@ -4847,7 +4847,7 @@ goto block_680;
else
{
lean_object* x_681; lean_object* x_682;
x_681 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_681 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_inc(x_1);
x_682 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_681, x_4, x_642);
if (lean_obj_tag(x_682) == 0)
@ -5126,7 +5126,7 @@ goto block_740;
else
{
lean_object* x_741; lean_object* x_742;
x_741 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_741 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_inc(x_1);
x_742 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_741, x_4, x_702);
if (lean_obj_tag(x_742) == 0)
@ -5405,7 +5405,7 @@ goto block_800;
else
{
lean_object* x_801; lean_object* x_802;
x_801 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_801 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_inc(x_1);
x_802 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_801, x_4, x_762);
if (lean_obj_tag(x_802) == 0)
@ -5684,7 +5684,7 @@ goto block_860;
else
{
lean_object* x_861; lean_object* x_862;
x_861 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_861 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_inc(x_1);
x_862 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_861, x_4, x_822);
if (lean_obj_tag(x_862) == 0)

116
stage0/stdlib/Lean/Elab/Term.c
View file

@ -93,7 +93,6 @@ lean_object* l_Lean_Syntax_getIdAt(lean_object*, lean_object*);
lean_object* l_ReaderT_read___at_Lean_Elab_Term_monadLog___spec__1(lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Elab_Term_elabQuotedName___closed__1;
lean_object* lean_local_ctx_mk_let_decl(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_maxRecDepthErrorMessage;
lean_object* l_Lean_Elab_Term_getLocalInsts___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_resettingSynthInstanceCacheWhen___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_getPos___at_Lean_Elab_Term_throwError___spec__2___boxed(lean_object*, lean_object*, lean_object*);
@ -132,6 +131,7 @@ lean_object* l_List_append___rarg(lean_object*, lean_object*);
lean_object* l_Lean_Meta_Exception_mkAppTypeMismatchMessage(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_throwUnsupportedSyntax___rarg___closed__1;
lean_object* l_Lean_Elab_Term_unfoldDefinition_x3f(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_Lean_Meta_AppBuilder_8__getDecLevel___closed__6;
lean_object* l_Lean_Elab_Term_mkForallUsedOnly___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_declareBuiltinParser___closed__5;
lean_object* l_Lean_Elab_Term_synthesizeInstMVarCore___closed__6;
@ -275,7 +275,6 @@ lean_object* l_Lean_Meta_isClass(lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Elab_Term_elabHole(lean_object*);
lean_object* l_Lean_Elab_Term_withTransparency(lean_object*);
extern lean_object* l_Lean_Parser_Term_byTactic___elambda__1___closed__2;
lean_object* l_Lean_Elab_Term_withIncRecDepth___rarg___closed__1;
extern lean_object* l_Lean_Meta_run___rarg___closed__5;
lean_object* l___private_Lean_Elab_Term_7__isMonad_x3f___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___lambda__2(lean_object*, lean_object*, lean_object*);
@ -293,7 +292,6 @@ lean_object* l___private_Lean_Elab_Term_17__elabOptLevel___boxed(lean_object*, l
lean_object* l___private_Lean_Elab_Term_18__mkPairsAux___main___closed__3;
lean_object* l_Lean_Elab_Term_tryPostponeIfNoneOrMVar(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_elabParen___closed__4;
lean_object* l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
lean_object* l_Lean_Elab_Term_elabLevel(lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Elab_Term_elabNamedHole(lean_object*);
lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___lambda__1(lean_object*, lean_object*, lean_object*);
@ -305,6 +303,7 @@ lean_object* lean_array_fget(lean_object*, lean_object*);
lean_object* l_Std_PersistentArray_foldlM___at___private_Lean_Elab_Term_3__fromMetaState___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_synthesizeInstMVarCore___closed__5;
lean_object* l_Lean_Elab_Term_elabRawCharLit(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_Lean_Meta_AppBuilder_8__getDecLevel___closed__3;
lean_object* l_Std_PersistentArray_foldlMAux___main___at___private_Lean_Elab_Term_3__fromMetaState___spec__2(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_mkFreshAnonymousName___rarg(lean_object*);
lean_object* l_Lean_Elab_Term_MetaHasEval___rarg___closed__2;
@ -472,6 +471,7 @@ lean_object* l_Lean_Elab_Term_applyResult___boxed(lean_object*, lean_object*, le
lean_object* l_Lean_Elab_Term_monadQuotation___closed__4;
lean_object* l_Lean_Elab_Term_withLocalDecl___rarg(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_getMainModule(lean_object*);
extern lean_object* l_Lean_Meta_withIncRecDepth___rarg___closed__2;
lean_object* l___private_Lean_Elab_Term_18__mkPairsAux___main___closed__4;
lean_object* l_Lean_Elab_Term_throwUnsupportedSyntax___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_mkTermElabAttribute(lean_object*);
@ -609,7 +609,6 @@ lean_object* l_Lean_Elab_Term_traceAtCmdPos(lean_object*, lean_object*, lean_obj
lean_object* lean_environment_main_module(lean_object*);
lean_object* l_Lean_Elab_Term_elabTacticBlock___closed__3;
extern lean_object* l_Std_PersistentArray_empty___closed__3;
lean_object* l_Lean_Elab_Term_decLevel___closed__5;
lean_object* l_Lean_Elab_Term_withReducible(lean_object*);
lean_object* l_Lean_Elab_Term_elabUsingElabFns___closed__5;
lean_object* l_Lean_Elab_Term_TermElabM_inhabited___rarg(lean_object*);
@ -636,7 +635,6 @@ lean_object* l___regBuiltin_Lean_Elab_Term_elabSort___closed__1;
lean_object* l___private_Lean_Elab_Term_4__hasCDot___boxed(lean_object*);
lean_object* l_ReaderT_bind___at_Lean_Elab_Term_monadLog___spec__2(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_synthesizeInstMVarCore(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_decLevel___closed__3;
lean_object* l_Lean_Elab_Term_withTransparency___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Term_paren___elambda__1___closed__1;
lean_object* l_Lean_Meta_isLevelDefEq(lean_object*, lean_object*, lean_object*, lean_object*);
@ -727,7 +725,6 @@ extern lean_object* l_Lean_prodToExpr___rarg___lambda__1___closed__3;
lean_object* l_Lean_Elab_Term_logDbgTrace(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Syntax_isNameLit_x3f(lean_object*);
lean_object* l_Lean_Elab_Term_getMainModule___boxed(lean_object*);
lean_object* l_Lean_Elab_Term_decLevel___closed__4;
lean_object* l_Lean_Elab_Term_synthesizeInstMVarCore___closed__12;
lean_object* l_Lean_Meta_mkLambda(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__3;
@ -811,9 +808,7 @@ lean_object* l_Lean_MetavarContext_getDecl(lean_object*, lean_object*);
lean_object* l_Lean_Syntax_formatStxAux___main(lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_resetSynthInstanceCache___boxed(lean_object*);
uint8_t l_Std_PersistentArray_anyM___at_Lean_MessageLog_hasErrors___spec__1(lean_object*);
lean_object* l_Lean_Elab_Term_decLevel___closed__2;
lean_object* l___private_Lean_Elab_Term_3__fromMetaState___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_decLevel___closed__1;
lean_object* l___private_Lean_Elab_Term_12__isExplicit___boxed(lean_object*);
lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___lambda__2___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__1;
@ -914,7 +909,6 @@ uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
lean_object* l_IO_println___at_IO_runMeta___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__6;
lean_object* l_Lean_Elab_Term_tryLiftAndCoe___closed__3;
lean_object* l_Lean_Elab_Term_decLevel___closed__6;
lean_object* lean_add_decl(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_tryCoe___closed__3;
lean_object* _init_l_Lean_Elab_Term_State_inhabited___closed__1() {
@ -2576,26 +2570,6 @@ lean_dec(x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Elab_Term_withIncRecDepth___rarg___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_maxRecDepthErrorMessage;
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__1;
x_2 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* l_Lean_Elab_Term_withIncRecDepth___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
@ -2650,7 +2624,7 @@ lean_dec(x_7);
lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_2);
x_38 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_38 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
x_39 = l_Lean_Elab_Term_throwError___rarg(x_1, x_38, x_3, x_4);
x_40 = !lean_is_exclusive(x_39);
if (x_40 == 0)
@ -9501,62 +9475,6 @@ lean_dec(x_1);
return x_5;
}
}
lean_object* _init_l_Lean_Elab_Term_decLevel___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("invalid universe level, ");
return x_1;
}
}
lean_object* _init_l_Lean_Elab_Term_decLevel___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Elab_Term_decLevel___closed__1;
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Elab_Term_decLevel___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Elab_Term_decLevel___closed__2;
x_2 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Elab_Term_decLevel___closed__4() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string(" is not greater than 0");
return x_1;
}
}
lean_object* _init_l_Lean_Elab_Term_decLevel___closed__5() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Elab_Term_decLevel___closed__4;
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Elab_Term_decLevel___closed__6() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Elab_Term_decLevel___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_Elab_Term_decLevel(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
@ -9577,11 +9495,11 @@ lean_inc(x_7);
lean_dec(x_5);
x_8 = lean_alloc_ctor(3, 1, 0);
lean_ctor_set(x_8, 0, x_2);
x_9 = l_Lean_Elab_Term_decLevel___closed__3;
x_9 = l___private_Lean_Meta_AppBuilder_8__getDecLevel___closed__3;
x_10 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_10, 0, x_9);
lean_ctor_set(x_10, 1, x_8);
x_11 = l_Lean_Elab_Term_decLevel___closed__6;
x_11 = l___private_Lean_Meta_AppBuilder_8__getDecLevel___closed__6;
x_12 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_12, 0, x_10);
lean_ctor_set(x_12, 1, x_11);
@ -20043,7 +19961,7 @@ lean_dec(x_13);
lean_dec(x_12);
lean_dec(x_8);
lean_dec(x_1);
x_208 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_208 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
x_209 = l_Lean_Elab_Term_throwError___rarg(x_4, x_208, x_5, x_6);
lean_dec(x_4);
x_210 = !lean_is_exclusive(x_209);
@ -20920,7 +20838,7 @@ lean_dec(x_215);
lean_dec(x_214);
lean_dec(x_8);
lean_dec(x_1);
x_318 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_318 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
x_319 = l_Lean_Elab_Term_throwError___rarg(x_4, x_318, x_226, x_6);
lean_dec(x_4);
x_320 = lean_ctor_get(x_319, 0);
@ -21460,7 +21378,7 @@ lean_dec(x_334);
lean_dec(x_333);
lean_dec(x_329);
lean_dec(x_1);
x_438 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2;
x_438 = l_Lean_Meta_withIncRecDepth___rarg___closed__2;
x_439 = l_Lean_Elab_Term_throwError___rarg(x_4, x_438, x_346, x_332);
lean_dec(x_4);
x_440 = lean_ctor_get(x_439, 0);
@ -31224,10 +31142,6 @@ l_Lean_Elab_Term_monadLog = _init_l_Lean_Elab_Term_monadLog();
lean_mark_persistent(l_Lean_Elab_Term_monadLog);
l_Lean_Elab_Term_throwUnsupportedSyntax___rarg___closed__1 = _init_l_Lean_Elab_Term_throwUnsupportedSyntax___rarg___closed__1();
lean_mark_persistent(l_Lean_Elab_Term_throwUnsupportedSyntax___rarg___closed__1);
l_Lean_Elab_Term_withIncRecDepth___rarg___closed__1 = _init_l_Lean_Elab_Term_withIncRecDepth___rarg___closed__1();
lean_mark_persistent(l_Lean_Elab_Term_withIncRecDepth___rarg___closed__1);
l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2 = _init_l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2();
lean_mark_persistent(l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2);
l_Lean_Elab_Term_monadQuotation___closed__1 = _init_l_Lean_Elab_Term_monadQuotation___closed__1();
lean_mark_persistent(l_Lean_Elab_Term_monadQuotation___closed__1);
l_Lean_Elab_Term_monadQuotation___closed__2 = _init_l_Lean_Elab_Term_monadQuotation___closed__2();
@ -31287,18 +31201,6 @@ l_Lean_Elab_Term_throwErrorIfErrors___closed__2 = _init_l_Lean_Elab_Term_throwEr
lean_mark_persistent(l_Lean_Elab_Term_throwErrorIfErrors___closed__2);
l_Lean_Elab_Term_throwErrorIfErrors___closed__3 = _init_l_Lean_Elab_Term_throwErrorIfErrors___closed__3();
lean_mark_persistent(l_Lean_Elab_Term_throwErrorIfErrors___closed__3);
l_Lean_Elab_Term_decLevel___closed__1 = _init_l_Lean_Elab_Term_decLevel___closed__1();
lean_mark_persistent(l_Lean_Elab_Term_decLevel___closed__1);
l_Lean_Elab_Term_decLevel___closed__2 = _init_l_Lean_Elab_Term_decLevel___closed__2();
lean_mark_persistent(l_Lean_Elab_Term_decLevel___closed__2);
l_Lean_Elab_Term_decLevel___closed__3 = _init_l_Lean_Elab_Term_decLevel___closed__3();
lean_mark_persistent(l_Lean_Elab_Term_decLevel___closed__3);
l_Lean_Elab_Term_decLevel___closed__4 = _init_l_Lean_Elab_Term_decLevel___closed__4();
lean_mark_persistent(l_Lean_Elab_Term_decLevel___closed__4);
l_Lean_Elab_Term_decLevel___closed__5 = _init_l_Lean_Elab_Term_decLevel___closed__5();
lean_mark_persistent(l_Lean_Elab_Term_decLevel___closed__5);
l_Lean_Elab_Term_decLevel___closed__6 = _init_l_Lean_Elab_Term_decLevel___closed__6();
lean_mark_persistent(l_Lean_Elab_Term_decLevel___closed__6);
l_Lean_Elab_Term_mkExplicitBinder___closed__1 = _init_l_Lean_Elab_Term_mkExplicitBinder___closed__1();
lean_mark_persistent(l_Lean_Elab_Term_mkExplicitBinder___closed__1);
l_Lean_Elab_Term_mkExplicitBinder___closed__2 = _init_l_Lean_Elab_Term_mkExplicitBinder___closed__2();

47
stage0/stdlib/Lean/Eval.c
View file

@ -35,8 +35,54 @@ _start:
lean_object* x_7; lean_object* x_8;
x_7 = lean_box(x_5);
x_8 = lean_apply_3(x_1, x_4, x_7, x_6);
if (lean_obj_tag(x_8) == 0)
{
uint8_t x_9;
x_9 = !lean_is_exclusive(x_8);
if (x_9 == 0)
{
lean_object* x_10;
x_10 = lean_ctor_get(x_8, 0);
lean_dec(x_10);
lean_ctor_set(x_8, 0, x_2);
return x_8;
}
else
{
lean_object* x_11; lean_object* x_12;
x_11 = lean_ctor_get(x_8, 1);
lean_inc(x_11);
lean_dec(x_8);
x_12 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_12, 0, x_2);
lean_ctor_set(x_12, 1, x_11);
return x_12;
}
}
else
{
uint8_t x_13;
lean_dec(x_2);
x_13 = !lean_is_exclusive(x_8);
if (x_13 == 0)
{
return x_8;
}
else
{
lean_object* x_14; lean_object* x_15; lean_object* x_16;
x_14 = lean_ctor_get(x_8, 0);
x_15 = lean_ctor_get(x_8, 1);
lean_inc(x_15);
lean_inc(x_14);
lean_dec(x_8);
x_16 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_16, 0, x_14);
lean_ctor_set(x_16, 1, x_15);
return x_16;
}
}
}
}
lean_object* l_Lean_metaHasEvalOfHasEval(lean_object* x_1) {
_start:
@ -54,7 +100,6 @@ x_7 = lean_unbox(x_5);
lean_dec(x_5);
x_8 = l_Lean_metaHasEvalOfHasEval___rarg(x_1, x_2, x_3, x_4, x_7, x_6);
lean_dec(x_3);
lean_dec(x_2);
return x_8;
}
}

67
stage0/stdlib/Lean/Expr.c
View file

@ -29,6 +29,7 @@ lean_object* l_Lean_Expr_bindingDomain_x21___boxed(lean_object*);
lean_object* l_Lean_Expr_letName_x21(lean_object*);
uint8_t l_Lean_Expr_isNatLit(lean_object*);
lean_object* l_Lean_Name_eraseMacroScopes(lean_object*);
lean_object* l_Lean_Expr_replaceFVar___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_updateLambda___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_getAppNumArgs___boxed(lean_object*);
lean_object* lean_mk_empty_array_with_capacity(lean_object*);
@ -56,6 +57,7 @@ lean_object* l_Lean_mkDecIsFalse___closed__1;
lean_object* l___private_Lean_Expr_10__hasAnyFVarAux(lean_object*, lean_object*);
lean_object* l_Lean_ExprStructEq_Hashable___closed__1;
lean_object* l_Lean_mkLocalEx___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_replaceFVarId___boxed(lean_object*, lean_object*, lean_object*);
lean_object* lean_expr_update_mdata(lean_object*, lean_object*);
lean_object* l_Lean_Expr_bindingDomain_x21(lean_object*);
lean_object* l_Lean_Expr_getAppArgs(lean_object*);
@ -225,6 +227,7 @@ uint8_t l_Lean_KVMap_getBool(lean_object*, lean_object*, uint8_t);
lean_object* l_List_map___main___at_Lean_Expr_instantiateLevelParamsArray___spec__4(lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Literal_beq(lean_object*, lean_object*);
lean_object* l_Lean_Level_instantiateParams___main___at_Lean_Expr_instantiateLevelParams___spec__3___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_replaceFVar(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_headBeta(lean_object*);
lean_object* l_Lean_BinderInfo_hasBeq___closed__1;
uint8_t lean_expr_binder_info(lean_object*);
@ -329,6 +332,7 @@ lean_object* l_Lean_Expr_getAutoParamTactic_x3f___closed__2;
lean_object* l_Lean_Level_instantiateParams___main(lean_object*, lean_object*);
uint8_t l_Lean_Expr_isLambda(lean_object*);
lean_object* l_Lean_Expr_updateSort_x21___closed__2;
lean_object* l_Lean_Expr_replaceFVarId(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkApp9(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_data___boxed(lean_object*);
lean_object* lean_expr_update_proj(lean_object*, lean_object*);
@ -502,6 +506,7 @@ lean_object* l_Lean_mkDecIsFalse___closed__3;
lean_object* l_Lean_Expr_isHeadBetaTarget___boxed(lean_object*);
lean_object* l___private_Lean_Expr_6__mkAppRevRangeAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_Data_nonDepLet___boxed(lean_object*);
extern lean_object* l_Lean_mkOptionalNode___closed__2;
lean_object* l___private_Lean_Expr_7__betaRevAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_inferImplicit___main(lean_object*, lean_object*, uint8_t);
lean_object* l_Lean_mkNatLit(lean_object*);
@ -6854,6 +6859,48 @@ lean_dec(x_1);
return x_4;
}
}
lean_object* l_Lean_Expr_replaceFVar(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_4 = l_Lean_mkOptionalNode___closed__2;
x_5 = lean_array_push(x_4, x_2);
x_6 = lean_expr_abstract(x_1, x_5);
lean_dec(x_5);
x_7 = lean_expr_instantiate1(x_6, x_3);
lean_dec(x_6);
return x_7;
}
}
lean_object* l_Lean_Expr_replaceFVar___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Lean_Expr_replaceFVar(x_1, x_2, x_3);
lean_dec(x_3);
lean_dec(x_1);
return x_4;
}
}
lean_object* l_Lean_Expr_replaceFVarId(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_mkFVar(x_2);
x_5 = l_Lean_Expr_replaceFVar(x_1, x_4, x_3);
return x_5;
}
}
lean_object* l_Lean_Expr_replaceFVarId___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Lean_Expr_replaceFVarId(x_1, x_2, x_3);
lean_dec(x_3);
lean_dec(x_1);
return x_4;
}
}
lean_object* _init_l_Lean_Expr_HasToString___closed__1() {
_start:
{
@ -8041,7 +8088,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_1 = l___private_Lean_Expr_1__Expr_mkDataCore___closed__1;
x_2 = lean_unsigned_to_nat(823u);
x_2 = lean_unsigned_to_nat(829u);
x_3 = lean_unsigned_to_nat(18u);
x_4 = l_Lean_Expr_appFn_x21___closed__1;
x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4);
@ -8083,7 +8130,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_1 = l___private_Lean_Expr_1__Expr_mkDataCore___closed__1;
x_2 = lean_unsigned_to_nat(832u);
x_2 = lean_unsigned_to_nat(838u);
x_3 = lean_unsigned_to_nat(18u);
x_4 = l_Lean_Expr_constName_x21___closed__1;
x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4);
@ -8132,7 +8179,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_1 = l___private_Lean_Expr_1__Expr_mkDataCore___closed__1;
x_2 = lean_unsigned_to_nat(841u);
x_2 = lean_unsigned_to_nat(847u);
x_3 = lean_unsigned_to_nat(14u);
x_4 = l_Lean_Expr_updateSort_x21___closed__1;
x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4);
@ -8189,7 +8236,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_1 = l___private_Lean_Expr_1__Expr_mkDataCore___closed__1;
x_2 = lean_unsigned_to_nat(858u);
x_2 = lean_unsigned_to_nat(864u);
x_3 = lean_unsigned_to_nat(17u);
x_4 = l_Lean_Expr_updateMData_x21___closed__1;
x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4);
@ -8230,7 +8277,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_1 = l___private_Lean_Expr_1__Expr_mkDataCore___closed__1;
x_2 = lean_unsigned_to_nat(863u);
x_2 = lean_unsigned_to_nat(869u);
x_3 = lean_unsigned_to_nat(18u);
x_4 = l_Lean_Expr_updateProj_x21___closed__1;
x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4);
@ -8281,7 +8328,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_1 = l___private_Lean_Expr_1__Expr_mkDataCore___closed__1;
x_2 = lean_unsigned_to_nat(872u);
x_2 = lean_unsigned_to_nat(878u);
x_3 = lean_unsigned_to_nat(21u);
x_4 = l_Lean_Expr_updateForall_x21___closed__1;
x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4);
@ -8325,7 +8372,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_1 = l___private_Lean_Expr_1__Expr_mkDataCore___closed__1;
x_2 = lean_unsigned_to_nat(877u);
x_2 = lean_unsigned_to_nat(883u);
x_3 = lean_unsigned_to_nat(21u);
x_4 = l_Lean_Expr_updateForall_x21___closed__1;
x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4);
@ -8379,7 +8426,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_1 = l___private_Lean_Expr_1__Expr_mkDataCore___closed__1;
x_2 = lean_unsigned_to_nat(886u);
x_2 = lean_unsigned_to_nat(892u);
x_3 = lean_unsigned_to_nat(17u);
x_4 = l_Lean_Expr_updateLambda_x21___closed__1;
x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4);
@ -8423,7 +8470,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_1 = l___private_Lean_Expr_1__Expr_mkDataCore___closed__1;
x_2 = lean_unsigned_to_nat(891u);
x_2 = lean_unsigned_to_nat(897u);
x_3 = lean_unsigned_to_nat(17u);
x_4 = l_Lean_Expr_updateLambda_x21___closed__1;
x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4);
@ -8467,7 +8514,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_1 = l___private_Lean_Expr_1__Expr_mkDataCore___closed__1;
x_2 = lean_unsigned_to_nat(900u);
x_2 = lean_unsigned_to_nat(906u);
x_3 = lean_unsigned_to_nat(20u);
x_4 = l_Lean_Expr_letName_x21___closed__1;
x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4);

11014
stage0/stdlib/Lean/Meta/AppBuilder.c
View file

File diff suppressed because it is too large Load diff

1471
stage0/stdlib/Lean/Meta/Basic.c
View file

File diff suppressed because it is too large Load diff

226
stage0/stdlib/Lean/Meta/Exception.c
View file

@ -69,6 +69,7 @@ lean_object* l_Lean_KernelException_toMessageData(lean_object*, lean_object*);
lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__17;
lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__43;
lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__79;
extern lean_object* l_Lean_Format_join___closed__1;
lean_object* l_Lean_Meta_Exception_toStr___closed__19;
lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__81;
lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__44;
@ -106,6 +107,7 @@ lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__76;
lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__75;
lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__26;
lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__58;
lean_object* l_Lean_fmt___at_Lean_Message_toString___spec__1(lean_object*);
lean_object* l_List_toStringAux___main___at_Lean_Meta_Exception_toStr___spec__2___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__14;
lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__28;
@ -128,6 +130,7 @@ lean_object* l_Lean_Meta_Exception_toStr(lean_object*);
lean_object* l_Lean_Meta_Exception_HasToString___closed__1;
lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__2;
lean_object* l_Lean_Meta_Exception_mkCtx(lean_object*, lean_object*);
lean_object* l_Lean_Meta_Exception_Inhabited___closed__2;
lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__48;
lean_object* l_Lean_Meta_Exception_toStr___closed__6;
lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__13;
@ -161,7 +164,17 @@ lean_object* _init_l_Lean_Meta_Exception_Inhabited___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_String_splitAux___main___closed__1;
x_1 = l_Lean_Format_join___closed__1;
x_2 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Meta_Exception_Inhabited___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Meta_Exception_Inhabited___closed__1;
x_2 = lean_alloc_ctor(22, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
@ -171,7 +184,7 @@ lean_object* _init_l_Lean_Meta_Exception_Inhabited() {
_start:
{
lean_object* x_1;
x_1 = l_Lean_Meta_Exception_Inhabited___closed__1;
x_1 = l_Lean_Meta_Exception_Inhabited___closed__2;
return x_1;
}
}
@ -637,18 +650,21 @@ return x_63;
}
case 22:
{
lean_object* x_64;
lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67;
x_64 = lean_ctor_get(x_1, 0);
lean_inc(x_64);
lean_dec(x_1);
return x_64;
x_65 = l_Lean_fmt___at_Lean_Message_toString___spec__1(x_64);
x_66 = l_Lean_Options_empty;
x_67 = l_Lean_Format_pretty(x_65, x_66);
return x_67;
}
default:
{
lean_object* x_65;
lean_object* x_68;
lean_dec(x_1);
x_65 = l_Lean_Meta_Exception_toStr___closed__13;
return x_65;
x_68 = l_Lean_Meta_Exception_toStr___closed__13;
return x_68;
}
}
}
@ -1882,145 +1898,125 @@ return x_116;
}
case 16:
{
lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134;
lean_object* x_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_117 = lean_ctor_get(x_1, 0);
lean_inc(x_117);
x_118 = lean_ctor_get(x_1, 1);
lean_inc(x_118);
x_119 = lean_ctor_get(x_1, 2);
lean_inc(x_119);
x_120 = lean_ctor_get(x_1, 3);
lean_inc(x_120);
lean_dec(x_1);
x_121 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_121, 0, x_117);
x_122 = l_Lean_Meta_Exception_toTraceMessageData___closed__71;
x_123 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_123, 0, x_122);
lean_ctor_set(x_123, 1, x_121);
x_124 = l_Lean_Meta_Exception_toTraceMessageData___closed__4;
x_120 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_120, 0, x_117);
x_121 = l_Lean_Meta_Exception_toTraceMessageData___closed__71;
x_122 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_122, 0, x_121);
lean_ctor_set(x_122, 1, x_120);
x_123 = l_Lean_Meta_Exception_toTraceMessageData___closed__4;
x_124 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_124, 0, x_122);
lean_ctor_set(x_124, 1, x_123);
x_125 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_125, 0, x_123);
lean_ctor_set(x_125, 1, x_124);
x_126 = lean_unsigned_to_nat(0u);
x_127 = l_Lean_MessageData_coeOfArrayExpr___closed__2;
x_128 = l_Lean_MessageData_arrayExpr_toMessageData___main(x_119, x_126, x_127);
lean_dec(x_119);
x_129 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_129, 0, x_125);
lean_ctor_set(x_129, 1, x_128);
x_130 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_130, 0, x_129);
lean_ctor_set(x_130, 1, x_124);
x_131 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_131, 0, x_118);
x_132 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_132, 0, x_131);
x_133 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_133, 0, x_130);
lean_ctor_set(x_133, 1, x_132);
x_134 = lean_alloc_ctor(6, 2, 0);
lean_ctor_set(x_134, 0, x_120);
lean_ctor_set(x_134, 1, x_133);
return x_134;
lean_ctor_set(x_125, 0, x_124);
lean_ctor_set(x_125, 1, x_118);
x_126 = lean_alloc_ctor(6, 2, 0);
lean_ctor_set(x_126, 0, x_119);
lean_ctor_set(x_126, 1, x_125);
return x_126;
}
case 17:
{
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_135 = lean_ctor_get(x_1, 0);
lean_inc(x_135);
x_136 = lean_ctor_get(x_1, 1);
lean_inc(x_136);
lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132;
x_127 = lean_ctor_get(x_1, 0);
lean_inc(x_127);
x_128 = lean_ctor_get(x_1, 1);
lean_inc(x_128);
lean_dec(x_1);
x_137 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_137, 0, x_135);
x_138 = l_Lean_Meta_Exception_toTraceMessageData___closed__75;
x_139 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_139, 0, x_138);
lean_ctor_set(x_139, 1, x_137);
x_140 = lean_alloc_ctor(6, 2, 0);
lean_ctor_set(x_140, 0, x_136);
lean_ctor_set(x_140, 1, x_139);
return x_140;
x_129 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_129, 0, x_127);
x_130 = l_Lean_Meta_Exception_toTraceMessageData___closed__75;
x_131 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_131, 0, x_130);
lean_ctor_set(x_131, 1, x_129);
x_132 = lean_alloc_ctor(6, 2, 0);
lean_ctor_set(x_132, 0, x_128);
lean_ctor_set(x_132, 1, x_131);
return x_132;
}
case 18:
{
lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150;
x_141 = lean_ctor_get(x_1, 0);
lean_inc(x_141);
x_142 = lean_ctor_get(x_1, 2);
lean_inc(x_142);
x_143 = lean_ctor_get(x_1, 3);
lean_inc(x_143);
lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142;
x_133 = lean_ctor_get(x_1, 0);
lean_inc(x_133);
x_134 = lean_ctor_get(x_1, 2);
lean_inc(x_134);
x_135 = lean_ctor_get(x_1, 3);
lean_inc(x_135);
lean_dec(x_1);
x_144 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_144, 0, x_141);
x_145 = l_Lean_Meta_Exception_toTraceMessageData___closed__79;
x_146 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_146, 0, x_145);
lean_ctor_set(x_146, 1, x_144);
x_147 = l_Lean_Meta_Exception_toTraceMessageData___closed__4;
x_148 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_148, 0, x_146);
lean_ctor_set(x_148, 1, x_147);
x_149 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_149, 0, x_148);
lean_ctor_set(x_149, 1, x_142);
x_150 = lean_alloc_ctor(6, 2, 0);
lean_ctor_set(x_150, 0, x_143);
lean_ctor_set(x_150, 1, x_149);
return x_150;
x_136 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_136, 0, x_133);
x_137 = l_Lean_Meta_Exception_toTraceMessageData___closed__79;
x_138 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_138, 0, x_137);
lean_ctor_set(x_138, 1, x_136);
x_139 = l_Lean_Meta_Exception_toTraceMessageData___closed__4;
x_140 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_140, 0, x_138);
lean_ctor_set(x_140, 1, x_139);
x_141 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_141, 0, x_140);
lean_ctor_set(x_141, 1, x_134);
x_142 = lean_alloc_ctor(6, 2, 0);
lean_ctor_set(x_142, 0, x_135);
lean_ctor_set(x_142, 1, x_141);
return x_142;
}
case 19:
{
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_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150;
x_143 = lean_ctor_get(x_1, 0);
lean_inc(x_143);
x_144 = lean_ctor_get(x_1, 1);
lean_inc(x_144);
lean_dec(x_1);
x_145 = lean_unsigned_to_nat(0u);
x_146 = l_Lean_MessageData_coeOfArrayExpr___closed__2;
x_147 = l_Lean_MessageData_arrayExpr_toMessageData___main(x_143, x_145, x_146);
lean_dec(x_143);
x_148 = l_Lean_Meta_Exception_toTraceMessageData___closed__83;
x_149 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_149, 0, x_148);
lean_ctor_set(x_149, 1, x_147);
x_150 = lean_alloc_ctor(6, 2, 0);
lean_ctor_set(x_150, 0, x_144);
lean_ctor_set(x_150, 1, x_149);
return x_150;
}
case 20:
{
lean_object* x_151; lean_object* x_152; lean_object* x_153;
x_151 = lean_ctor_get(x_1, 0);
lean_inc(x_151);
x_152 = lean_ctor_get(x_1, 1);
lean_inc(x_152);
lean_dec(x_1);
x_153 = lean_unsigned_to_nat(0u);
x_154 = l_Lean_MessageData_coeOfArrayExpr___closed__2;
x_155 = l_Lean_MessageData_arrayExpr_toMessageData___main(x_151, x_153, x_154);
lean_dec(x_151);
x_156 = l_Lean_Meta_Exception_toTraceMessageData___closed__83;
x_157 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_157, 0, x_156);
lean_ctor_set(x_157, 1, x_155);
x_158 = lean_alloc_ctor(6, 2, 0);
lean_ctor_set(x_158, 0, x_152);
lean_ctor_set(x_158, 1, x_157);
return x_158;
}
case 20:
{
lean_object* x_159; lean_object* x_160; lean_object* x_161;
x_159 = lean_ctor_get(x_1, 0);
lean_inc(x_159);
x_160 = lean_ctor_get(x_1, 1);
lean_inc(x_160);
lean_dec(x_1);
x_161 = l_Lean_KernelException_toMessageData(x_159, x_160);
return x_161;
x_153 = l_Lean_KernelException_toMessageData(x_151, x_152);
return x_153;
}
case 21:
{
lean_object* x_162;
lean_object* x_154;
lean_dec(x_1);
x_162 = l_Lean_Meta_Exception_toTraceMessageData___closed__86;
return x_162;
x_154 = l_Lean_Meta_Exception_toTraceMessageData___closed__86;
return x_154;
}
default:
{
lean_object* x_163; lean_object* x_164; lean_object* x_165;
x_163 = lean_ctor_get(x_1, 0);
lean_inc(x_163);
lean_object* x_155;
x_155 = lean_ctor_get(x_1, 0);
lean_inc(x_155);
lean_dec(x_1);
x_164 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_164, 0, x_163);
x_165 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_165, 0, x_164);
return x_165;
return x_155;
}
}
}
@ -2052,6 +2048,8 @@ if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Meta_Exception_Inhabited___closed__1 = _init_l_Lean_Meta_Exception_Inhabited___closed__1();
lean_mark_persistent(l_Lean_Meta_Exception_Inhabited___closed__1);
l_Lean_Meta_Exception_Inhabited___closed__2 = _init_l_Lean_Meta_Exception_Inhabited___closed__2();
lean_mark_persistent(l_Lean_Meta_Exception_Inhabited___closed__2);
l_Lean_Meta_Exception_Inhabited = _init_l_Lean_Meta_Exception_Inhabited();
lean_mark_persistent(l_Lean_Meta_Exception_Inhabited);
l_Lean_Meta_Exception_toStr___closed__1 = _init_l_Lean_Meta_Exception_toStr___closed__1();

248
stage0/stdlib/Lean/Meta/Message.c
View file

@ -84,6 +84,7 @@ lean_object* l_Lean_Meta_Exception_toMessageData___closed__47;
extern lean_object* l_Lean_Options_empty;
lean_object* l___private_Lean_Meta_Message_4__whnf_x3f(lean_object*, lean_object*);
lean_object* l_Lean_Meta_Exception_toMessageData___closed__33;
lean_object* l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__3;
lean_object* l_Lean_Meta_Exception_mkLetTypeMismatchMessage___closed__5;
lean_object* l_Lean_Meta_Exception_toMessageData___closed__46;
lean_object* l_Lean_Meta_Exception_mkLetTypeMismatchMessage___closed__6;
@ -154,6 +155,7 @@ lean_object* l_Lean_Meta_Exception_toMessageData___closed__20;
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
lean_object* l_IO_println___at_IO_runMeta___spec__1(lean_object*, lean_object*);
extern lean_object* l_Lean_KernelException_toMessageData___closed__39;
lean_object* l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__4;
lean_object* _init_l___private_Lean_Meta_Message_1__run_x3f___rarg___closed__1() {
_start:
{
@ -285,6 +287,26 @@ _start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l___private_Lean_Meta_Message_3__inferDomain_x3f___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___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l___private_Lean_Meta_Message_3__inferDomain_x3f___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___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__3;
x_2 = lean_alloc_ctor(22, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
@ -340,7 +362,7 @@ if (x_12 == 0)
lean_object* x_13; lean_object* x_14;
x_13 = lean_ctor_get(x_4, 0);
lean_dec(x_13);
x_14 = l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__2;
x_14 = l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__4;
lean_ctor_set_tag(x_4, 1);
lean_ctor_set(x_4, 0, x_14);
return x_4;
@ -351,7 +373,7 @@ lean_object* x_15; lean_object* x_16; lean_object* x_17;
x_15 = lean_ctor_get(x_4, 1);
lean_inc(x_15);
lean_dec(x_4);
x_16 = l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__2;
x_16 = l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__4;
x_17 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_17, 0, x_16);
lean_ctor_set(x_17, 1, x_15);
@ -1624,157 +1646,137 @@ return x_107;
}
case 16:
{
lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125;
lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117;
x_108 = lean_ctor_get(x_1, 0);
lean_inc(x_108);
x_109 = lean_ctor_get(x_1, 1);
lean_inc(x_109);
x_110 = lean_ctor_get(x_1, 2);
lean_inc(x_110);
x_111 = lean_ctor_get(x_1, 3);
lean_inc(x_111);
lean_dec(x_1);
x_112 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_112, 0, x_108);
x_113 = l_Lean_Meta_Exception_toMessageData___closed__43;
x_114 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_114, 0, x_113);
lean_ctor_set(x_114, 1, x_112);
x_115 = l_Lean_Meta_Exception_toTraceMessageData___closed__4;
x_111 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_111, 0, x_108);
x_112 = l_Lean_Meta_Exception_toMessageData___closed__43;
x_113 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_113, 0, x_112);
lean_ctor_set(x_113, 1, x_111);
x_114 = l_Lean_Meta_Exception_toTraceMessageData___closed__4;
x_115 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_115, 0, x_113);
lean_ctor_set(x_115, 1, x_114);
x_116 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_116, 0, x_114);
lean_ctor_set(x_116, 1, x_115);
x_117 = lean_unsigned_to_nat(0u);
x_118 = l_Lean_MessageData_coeOfArrayExpr___closed__2;
x_119 = l_Lean_MessageData_arrayExpr_toMessageData___main(x_110, x_117, x_118);
lean_dec(x_110);
x_120 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_120, 0, x_116);
lean_ctor_set(x_120, 1, x_119);
x_121 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_121, 0, x_120);
lean_ctor_set(x_121, 1, x_115);
x_122 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_122, 0, x_109);
x_123 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_123, 0, x_122);
x_124 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_124, 0, x_121);
lean_ctor_set(x_124, 1, x_123);
x_125 = lean_alloc_ctor(6, 2, 0);
lean_ctor_set(x_125, 0, x_111);
lean_ctor_set(x_125, 1, x_124);
return x_125;
lean_ctor_set(x_116, 0, x_115);
lean_ctor_set(x_116, 1, x_109);
x_117 = lean_alloc_ctor(6, 2, 0);
lean_ctor_set(x_117, 0, x_110);
lean_ctor_set(x_117, 1, x_116);
return x_117;
}
case 17:
{
lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132;
x_126 = lean_ctor_get(x_1, 0);
lean_inc(x_126);
x_127 = lean_ctor_get(x_1, 1);
lean_inc(x_127);
lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124;
x_118 = lean_ctor_get(x_1, 0);
lean_inc(x_118);
x_119 = lean_ctor_get(x_1, 1);
lean_inc(x_119);
lean_dec(x_1);
x_128 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_128, 0, x_126);
x_129 = l_Lean_indentExpr(x_128);
x_130 = l_Lean_Meta_Exception_toMessageData___closed__46;
x_131 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_131, 0, x_130);
lean_ctor_set(x_131, 1, x_129);
x_132 = lean_alloc_ctor(6, 2, 0);
lean_ctor_set(x_132, 0, x_127);
lean_ctor_set(x_132, 1, x_131);
return x_132;
x_120 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_120, 0, x_118);
x_121 = l_Lean_indentExpr(x_120);
x_122 = l_Lean_Meta_Exception_toMessageData___closed__46;
x_123 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_123, 0, x_122);
lean_ctor_set(x_123, 1, x_121);
x_124 = lean_alloc_ctor(6, 2, 0);
lean_ctor_set(x_124, 0, x_119);
lean_ctor_set(x_124, 1, x_123);
return x_124;
}
case 18:
{
lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147;
x_133 = lean_ctor_get(x_1, 0);
lean_inc(x_133);
x_134 = lean_ctor_get(x_1, 1);
lean_inc(x_134);
x_135 = lean_ctor_get(x_1, 2);
lean_inc(x_135);
x_136 = lean_ctor_get(x_1, 3);
lean_inc(x_136);
lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139;
x_125 = lean_ctor_get(x_1, 0);
lean_inc(x_125);
x_126 = lean_ctor_get(x_1, 1);
lean_inc(x_126);
x_127 = lean_ctor_get(x_1, 2);
lean_inc(x_127);
x_128 = lean_ctor_get(x_1, 3);
lean_inc(x_128);
lean_dec(x_1);
x_137 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_137, 0, x_133);
x_138 = l_Lean_Meta_Exception_toMessageData___closed__48;
x_139 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_139, 0, x_138);
lean_ctor_set(x_139, 1, x_137);
x_140 = l_Lean_Meta_Exception_toMessageData___closed__51;
x_141 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_141, 0, x_139);
lean_ctor_set(x_141, 1, x_140);
x_142 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_142, 0, x_141);
lean_ctor_set(x_142, 1, x_135);
x_143 = l_Lean_MessageData_ofList___closed__3;
x_144 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_144, 0, x_142);
lean_ctor_set(x_144, 1, x_143);
x_145 = lean_alloc_ctor(5, 1, 0);
lean_ctor_set(x_145, 0, x_134);
x_146 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_146, 0, x_144);
lean_ctor_set(x_146, 1, x_145);
x_147 = lean_alloc_ctor(6, 2, 0);
lean_ctor_set(x_147, 0, x_136);
lean_ctor_set(x_147, 1, x_146);
return x_147;
x_129 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_129, 0, x_125);
x_130 = l_Lean_Meta_Exception_toMessageData___closed__48;
x_131 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_131, 0, x_130);
lean_ctor_set(x_131, 1, x_129);
x_132 = l_Lean_Meta_Exception_toMessageData___closed__51;
x_133 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_133, 0, x_131);
lean_ctor_set(x_133, 1, x_132);
x_134 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_134, 0, x_133);
lean_ctor_set(x_134, 1, x_127);
x_135 = l_Lean_MessageData_ofList___closed__3;
x_136 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_136, 0, x_134);
lean_ctor_set(x_136, 1, x_135);
x_137 = lean_alloc_ctor(5, 1, 0);
lean_ctor_set(x_137, 0, x_126);
x_138 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_138, 0, x_136);
lean_ctor_set(x_138, 1, x_137);
x_139 = lean_alloc_ctor(6, 2, 0);
lean_ctor_set(x_139, 0, x_128);
lean_ctor_set(x_139, 1, x_138);
return x_139;
}
case 19:
{
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_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147;
x_140 = lean_ctor_get(x_1, 0);
lean_inc(x_140);
x_141 = lean_ctor_get(x_1, 1);
lean_inc(x_141);
lean_dec(x_1);
x_142 = lean_unsigned_to_nat(0u);
x_143 = l_Lean_MessageData_coeOfArrayExpr___closed__2;
x_144 = l_Lean_MessageData_arrayExpr_toMessageData___main(x_140, x_142, x_143);
lean_dec(x_140);
x_145 = l_Lean_Meta_Exception_toMessageData___closed__54;
x_146 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_146, 0, x_145);
lean_ctor_set(x_146, 1, x_144);
x_147 = lean_alloc_ctor(6, 2, 0);
lean_ctor_set(x_147, 0, x_141);
lean_ctor_set(x_147, 1, x_146);
return x_147;
}
case 20:
{
lean_object* x_148; lean_object* x_149; lean_object* x_150;
x_148 = lean_ctor_get(x_1, 0);
lean_inc(x_148);
x_149 = lean_ctor_get(x_1, 1);
lean_inc(x_149);
lean_dec(x_1);
x_150 = lean_unsigned_to_nat(0u);
x_151 = l_Lean_MessageData_coeOfArrayExpr___closed__2;
x_152 = l_Lean_MessageData_arrayExpr_toMessageData___main(x_148, x_150, x_151);
lean_dec(x_148);
x_153 = l_Lean_Meta_Exception_toMessageData___closed__54;
x_154 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_154, 0, x_153);
lean_ctor_set(x_154, 1, x_152);
x_155 = lean_alloc_ctor(6, 2, 0);
lean_ctor_set(x_155, 0, x_149);
lean_ctor_set(x_155, 1, x_154);
return x_155;
}
case 20:
{
lean_object* x_156; lean_object* x_157; lean_object* x_158;
x_156 = lean_ctor_get(x_1, 0);
lean_inc(x_156);
x_157 = lean_ctor_get(x_1, 1);
lean_inc(x_157);
lean_dec(x_1);
x_158 = l_Lean_KernelException_toMessageData(x_156, x_157);
return x_158;
x_150 = l_Lean_KernelException_toMessageData(x_148, x_149);
return x_150;
}
case 21:
{
lean_object* x_159;
lean_object* x_151;
lean_dec(x_1);
x_159 = l_Lean_Meta_Exception_toTraceMessageData___closed__86;
return x_159;
x_151 = l_Lean_Meta_Exception_toTraceMessageData___closed__86;
return x_151;
}
default:
{
lean_object* x_160; lean_object* x_161; lean_object* x_162;
x_160 = lean_ctor_get(x_1, 0);
lean_inc(x_160);
lean_object* x_152;
x_152 = lean_ctor_get(x_1, 0);
lean_inc(x_152);
lean_dec(x_1);
x_161 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_161, 0, x_160);
x_162 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_162, 0, x_161);
return x_162;
return x_152;
}
}
}
@ -2214,6 +2216,10 @@ l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__1 = _init
lean_mark_persistent(l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__1);
l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__2 = _init_l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__2();
lean_mark_persistent(l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__2);
l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__3 = _init_l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__3();
lean_mark_persistent(l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__3);
l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__4 = _init_l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__4();
lean_mark_persistent(l___private_Lean_Meta_Message_3__inferDomain_x3f___lambda__1___closed__4);
l___private_Lean_Meta_Message_3__inferDomain_x3f___closed__1 = _init_l___private_Lean_Meta_Message_3__inferDomain_x3f___closed__1();
lean_mark_persistent(l___private_Lean_Meta_Message_3__inferDomain_x3f___closed__1);
l_Lean_Meta_Exception_mkAppTypeMismatchMessage___closed__1 = _init_l_Lean_Meta_Exception_mkAppTypeMismatchMessage___closed__1();

5515
stage0/stdlib/Lean/Meta/RecursorInfo.c
View file

File diff suppressed because it is too large Load diff

34
stage0/stdlib/Lean/Meta/SynthInstance.c
View file

@ -94,7 +94,6 @@ lean_object* l_Std_HashMapImp_moveEntries___main___at_Lean_Meta_SynthInstance_Mk
extern lean_object* l_String_splitAux___main___closed__1;
extern lean_object* l_Lean_Expr_getAppArgs___closed__1;
lean_object* l_Lean_Meta_SynthInstance_tryResolveCore___lambda__1___closed__5;
extern lean_object* l_Lean_Meta_Exception_Inhabited___closed__1;
size_t l_USize_shiftRight(size_t, size_t);
lean_object* l_Lean_Meta_SynthInstance_findEntry_x3f(lean_object*, lean_object*, lean_object*);
lean_object* l_Std_HashMapImp_moveEntries___main___at_Lean_Meta_SynthInstance_newSubgoal___spec__4(lean_object*, lean_object*, lean_object*);
@ -187,6 +186,7 @@ lean_object* l_Array_back___at_Lean_Meta_SynthInstance_getNextToResume___spec__1
lean_object* l_Std_mkHashMap___at_Lean_Meta_SynthInstance_mkTableKey___spec__2(lean_object*);
lean_object* l_Lean_Meta_getGlobalInstances___rarg(lean_object*);
lean_object* l_Lean_Meta_SynthInstance_getOptions___boxed(lean_object*, lean_object*);
lean_object* l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__4;
lean_object* l_Lean_Meta_SynthInstance_synth___main___closed__4;
extern size_t l_Std_PersistentHashMap_insertAux___main___rarg___closed__2;
lean_object* l_Array_back___at_Lean_Meta_SynthInstance_getNextToResume___spec__1___closed__1;
@ -303,6 +303,7 @@ lean_object* l_Lean_Meta_SynthInstance_isNewAnswer___boxed(lean_object*, lean_ob
uint8_t l_Lean_MetavarContext_isLevelAssignable(lean_object*, lean_object*);
lean_object* l_Lean_Meta_synthInstance_x3f___closed__9;
lean_object* l_Lean_Meta_SynthInstance_inferTCGoalsLRAttr;
lean_object* l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__3;
lean_object* l_Lean_Meta_SynthInstance_Consumernode_inhabited;
extern lean_object* l_Lean_Meta_isLevelDefEq___closed__9;
lean_object* lean_expr_update_lambda(lean_object*, uint8_t, lean_object*, lean_object*);
@ -340,6 +341,7 @@ lean_object* l_Lean_Meta_SynthInstance_mkInferTCGoalsLRAttr___closed__1;
lean_object* l_Lean_Meta_maxStepsOption___closed__2;
lean_object* l_Lean_Meta_SynthInstance_getInstances___closed__1;
lean_object* l___private_Lean_Util_Trace_3__getResetTraces___at_Lean_Meta_SynthInstance_tryResolve___spec__1___boxed(lean_object*);
extern lean_object* l_Lean_Meta_Exception_Inhabited___closed__2;
uint8_t l_Lean_MetavarContext_isExprAssignable(lean_object*, lean_object*);
lean_object* l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_SynthInstance_Answer_inhabited___closed__1;
@ -2205,7 +2207,7 @@ lean_object* _init_l_Lean_Meta_SynthInstance_SynthM_inhabited___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Meta_Exception_Inhabited___closed__1;
x_1 = l_Lean_Meta_Exception_Inhabited___closed__2;
x_2 = lean_alloc_closure((void*)(l_Lean_Meta_SynthInstance_SynthM_inhabited___lambda__1___boxed), 3, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
@ -21210,6 +21212,26 @@ _start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__1;
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__2;
x_2 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__3;
x_2 = lean_alloc_ctor(22, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
@ -21316,7 +21338,7 @@ if (x_31 == 0)
lean_object* x_32; lean_object* x_33;
x_32 = lean_ctor_get(x_9, 0);
lean_dec(x_32);
x_33 = l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__2;
x_33 = l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__4;
lean_ctor_set_tag(x_9, 1);
lean_ctor_set(x_9, 0, x_33);
return x_9;
@ -21327,7 +21349,7 @@ lean_object* x_34; lean_object* x_35; lean_object* x_36;
x_34 = lean_ctor_get(x_9, 1);
lean_inc(x_34);
lean_dec(x_9);
x_35 = l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__2;
x_35 = l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__4;
x_36 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_36, 0, x_35);
lean_ctor_set(x_36, 1, x_34);
@ -26045,6 +26067,10 @@ l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__1 = _init
lean_mark_persistent(l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__1);
l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__2 = _init_l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__2();
lean_mark_persistent(l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__2);
l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__3 = _init_l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__3();
lean_mark_persistent(l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__3);
l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__4 = _init_l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__4();
lean_mark_persistent(l___private_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__4);
l_Lean_Meta_maxStepsOption___closed__1 = _init_l_Lean_Meta_maxStepsOption___closed__1();
lean_mark_persistent(l_Lean_Meta_maxStepsOption___closed__1);
l_Lean_Meta_maxStepsOption___closed__2 = _init_l_Lean_Meta_maxStepsOption___closed__2();

17
stage0/stdlib/Lean/Meta/Tactic/Assumption.c
View file

@ -18,13 +18,12 @@ lean_object* l_Lean_Meta_withLocalContext___rarg(lean_object*, lean_object*, lea
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_Lean_Meta_assumption___boxed(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get_size(lean_object*);
lean_object* l_Lean_Meta_assumption___closed__1;
extern lean_object* l_Lean_Meta_Exception_Inhabited___closed__1;
lean_object* l_Lean_Meta_assumptionAux(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_assumptionAux___closed__2;
lean_object* lean_array_fget(lean_object*, lean_object*);
lean_object* l_Lean_Meta_getMVarType(lean_object*, lean_object*, lean_object*);
lean_object* lean_nat_sub(lean_object*, lean_object*);
extern lean_object* l_Lean_Format_join___closed__1;
lean_object* lean_name_mk_string(lean_object*, lean_object*);
lean_object* l_Array_findSomeRevMAux___main___at_Lean_Meta_assumptionAux___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_LocalDecl_toExpr(lean_object*);
@ -1021,16 +1020,6 @@ lean_dec(x_2);
return x_4;
}
}
lean_object* _init_l_Lean_Meta_assumption___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Format_join___closed__1;
x_2 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* l_Lean_Meta_assumption(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
@ -1051,7 +1040,7 @@ x_7 = lean_ctor_get(x_4, 1);
lean_inc(x_7);
lean_dec(x_4);
x_8 = l_Lean_Meta_assumptionAux___closed__2;
x_9 = l_Lean_Meta_assumption___closed__1;
x_9 = l_Lean_Meta_Exception_Inhabited___closed__1;
x_10 = l_Lean_Meta_throwTacticEx___rarg(x_8, x_1, x_9, x_2, x_7);
return x_10;
}
@ -1138,8 +1127,6 @@ l_Lean_Meta_assumptionAux___closed__1 = _init_l_Lean_Meta_assumptionAux___closed
lean_mark_persistent(l_Lean_Meta_assumptionAux___closed__1);
l_Lean_Meta_assumptionAux___closed__2 = _init_l_Lean_Meta_assumptionAux___closed__2();
lean_mark_persistent(l_Lean_Meta_assumptionAux___closed__2);
l_Lean_Meta_assumption___closed__1 = _init_l_Lean_Meta_assumption___closed__1();
lean_mark_persistent(l_Lean_Meta_assumption___closed__1);
return lean_mk_io_result(lean_box(0));
}
#ifdef __cplusplus

62
stage0/stdlib/Lean/Meta/Tactic/Cases.c
View file

@ -14,7 +14,6 @@
extern "C" {
#endif
lean_object* l___private_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_check___spec__3(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__7;
lean_object* l_Lean_Meta_getLCtx___boxed(lean_object*, lean_object*);
uint8_t l_Array_anyRangeMAux___main___at___private_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__35(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_assert(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -152,8 +151,8 @@ uint8_t l_Array_anyRangeMAux___main___at___private_Lean_Meta_Tactic_Cases_5__has
lean_object* l_List_lengthAux___main___rarg(lean_object*, lean_object*);
lean_object* l_Lean_Meta_clear(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_generalizeIndices(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_mkNoConfusion___closed__4;
lean_object* l_Lean_Meta_cases(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_mkNoConfusion___closed__8;
lean_object* l_Nat_repr(lean_object*);
uint8_t l_Array_anyRangeMAux___main___at___private_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__46(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Meta_Tactic_Cases_2__withNewIndexEqsAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -195,7 +194,6 @@ lean_object* l_Lean_mkFVar(lean_object*);
uint8_t l_Lean_Expr_isAppOfArity___main(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at___private_Lean_Meta_Tactic_Cases_9__unifyEqs___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Std_PersistentArray_anyMAux___main___at___private_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__32(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__8;
uint8_t l_Std_PersistentArray_anyM___at___private_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__37(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Array_anyRangeMAux___main___at___private_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__41(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -220,6 +218,7 @@ lean_object* l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__un
lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___lambda__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_withLocalDecl___rarg(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_Cases_cases(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_mkNoConfusion___closed__5;
uint8_t l_Nat_anyAux___main___at___private_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__3(lean_object*, lean_object*, lean_object*);
lean_object* l_Std_PersistentArray_anyM___at___private_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__37___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_umapMAux___main___at___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___spec__3(lean_object*, lean_object*, lean_object*);
@ -292,7 +291,6 @@ lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyRangeMAux___main___at___private_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__41___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___lambda__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_injectionCore___lambda__1___closed__2;
lean_object* l_Std_PersistentArray_anyM___at___private_Lean_Meta_Tactic_Cases_5__hasIndepIndices___spec__7___boxed(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_mkAppB(lean_object*, lean_object*, lean_object*);
@ -1242,11 +1240,9 @@ return x_16;
lean_object* _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Meta_mkNoConfusion___closed__4;
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
lean_object* x_1;
x_1 = lean_mk_string("indexed inductive type expected");
return x_1;
}
}
lean_object* _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__2() {
@ -1254,7 +1250,7 @@ _start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__1;
x_2 = lean_alloc_ctor(0, 1, 0);
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
@ -1262,32 +1258,14 @@ return x_2;
lean_object* _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__3() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("indexed inductive type expected");
return x_1;
}
}
lean_object* _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__3;
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__5() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__4;
x_1 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__2;
x_2 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__6() {
lean_object* _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__4() {
_start:
{
lean_object* x_1;
@ -1295,21 +1273,21 @@ x_1 = lean_mk_string("ill-formed inductive datatype");
return x_1;
}
}
lean_object* _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__7() {
lean_object* _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__5() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__6;
x_1 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__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_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__8() {
lean_object* _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__6() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__7;
x_1 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__5;
x_2 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
@ -1334,7 +1312,7 @@ lean_dec(x_7);
lean_dec(x_6);
lean_dec(x_3);
lean_dec(x_2);
x_14 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__2;
x_14 = l_Lean_Meta_mkNoConfusion___closed__8;
x_15 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_14, x_10, x_11);
lean_dec(x_10);
return x_15;
@ -1396,7 +1374,7 @@ lean_dec(x_26);
lean_dec(x_6);
lean_dec(x_3);
lean_dec(x_2);
x_41 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__5;
x_41 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__3;
x_42 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_41, x_10, x_11);
lean_dec(x_10);
x_43 = !lean_is_exclusive(x_42);
@ -1428,7 +1406,7 @@ lean_dec(x_26);
lean_dec(x_6);
lean_dec(x_3);
lean_dec(x_2);
x_47 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__8;
x_47 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__6;
x_48 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_47, x_10, x_11);
lean_dec(x_10);
x_49 = !lean_is_exclusive(x_48);
@ -1522,7 +1500,7 @@ lean_dec(x_7);
lean_dec(x_6);
lean_dec(x_3);
lean_dec(x_2);
x_56 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__2;
x_56 = l_Lean_Meta_mkNoConfusion___closed__8;
x_57 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_56, x_10, x_11);
lean_dec(x_10);
return x_57;
@ -1556,7 +1534,7 @@ lean_dec(x_6);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
x_64 = l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__2;
x_64 = l_Lean_Meta_mkNoConfusion___closed__8;
x_65 = l_Lean_Meta_throwTacticEx___rarg(x_5, x_1, x_64, x_10, x_11);
lean_dec(x_10);
return x_65;
@ -11168,7 +11146,7 @@ lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_2);
x_16 = l___private_Lean_Meta_Tactic_Cases_8__unifyEqsAux___main___lambda__1___closed__2;
x_17 = l_Lean_Meta_injectionCore___lambda__1___closed__2;
x_17 = l_Lean_Meta_mkNoConfusion___closed__5;
x_18 = l_Lean_Meta_throwTacticEx___rarg(x_16, x_1, x_17, x_7, x_8);
lean_dec(x_7);
return x_18;
@ -13997,10 +13975,6 @@ l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___close
lean_mark_persistent(l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__5);
l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__6 = _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__6();
lean_mark_persistent(l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__6);
l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__7 = _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__7();
lean_mark_persistent(l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__7);
l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__8 = _init_l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__8();
lean_mark_persistent(l_Lean_Expr_withAppAux___main___at_Lean_Meta_generalizeIndices___spec__1___closed__8);
l_Lean_Meta_generalizeIndices___lambda__1___closed__1 = _init_l_Lean_Meta_generalizeIndices___lambda__1___closed__1();
lean_mark_persistent(l_Lean_Meta_generalizeIndices___lambda__1___closed__1);
l_Lean_Meta_generalizeIndices___lambda__1___closed__2 = _init_l_Lean_Meta_generalizeIndices___lambda__1___closed__2();

56
stage0/stdlib/Lean/Meta/Tactic/Injection.c
View file

@ -40,7 +40,6 @@ uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
lean_object* l_Lean_Meta_getMVarType(lean_object*, lean_object*, lean_object*);
lean_object* lean_nat_sub(lean_object*, lean_object*);
lean_object* l___private_Lean_Meta_Tactic_Injection_1__getConstructorVal___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_mkNoConfusion___closed__3;
lean_object* l_Lean_Meta_tryClear(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_headBeta(lean_object*);
extern lean_object* l_Lean_Expr_heq_x3f___closed__2;
@ -59,13 +58,13 @@ lean_object* l_Lean_LocalDecl_type(lean_object*);
lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_injectionCore___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_mkNoConfusion___closed__5;
lean_object* l_Lean_Meta_checkNotAssigned(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_getLocalDecl(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_injection___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_mkFreshExprMVar(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l_Lean_mkApp(lean_object*, lean_object*);
lean_object* l_Lean_Meta_injectionCore___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_injectionCore___lambda__1___closed__7;
lean_object* l_Lean_Meta_inferType(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_mkNoConfusion(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_intro1(lean_object*, uint8_t, lean_object*, lean_object*);
@ -82,7 +81,6 @@ lean_object* l_Lean_Meta_mkEq(lean_object*, lean_object*, lean_object*, lean_obj
lean_object* l_Lean_Meta_injectionCore___lambda__1___closed__1;
lean_object* l_Lean_Meta_mkEqOfHEq(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_injectionCore___lambda__1___closed__4;
lean_object* l_Lean_Meta_injectionCore___lambda__1___closed__8;
lean_object* l_Lean_Meta_injectionCore___closed__2;
lean_object* l___private_Lean_Meta_Tactic_Injection_1__getConstructorVal(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
@ -321,11 +319,9 @@ return x_4;
lean_object* _init_l_Lean_Meta_injectionCore___lambda__1___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Meta_mkNoConfusion___closed__3;
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
lean_object* x_1;
x_1 = lean_mk_string("equality of constructor applications expected");
return x_1;
}
}
lean_object* _init_l_Lean_Meta_injectionCore___lambda__1___closed__2() {
@ -333,7 +329,7 @@ _start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Meta_injectionCore___lambda__1___closed__1;
x_2 = lean_alloc_ctor(0, 1, 0);
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
@ -341,32 +337,14 @@ return x_2;
lean_object* _init_l_Lean_Meta_injectionCore___lambda__1___closed__3() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("equality of constructor applications expected");
return x_1;
}
}
lean_object* _init_l_Lean_Meta_injectionCore___lambda__1___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Meta_injectionCore___lambda__1___closed__3;
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Meta_injectionCore___lambda__1___closed__5() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Meta_injectionCore___lambda__1___closed__4;
x_1 = l_Lean_Meta_injectionCore___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_injectionCore___lambda__1___closed__6() {
lean_object* _init_l_Lean_Meta_injectionCore___lambda__1___closed__4() {
_start:
{
lean_object* x_1;
@ -374,21 +352,21 @@ x_1 = lean_mk_string("ill-formed noConfusion auxiliary construction");
return x_1;
}
}
lean_object* _init_l_Lean_Meta_injectionCore___lambda__1___closed__7() {
lean_object* _init_l_Lean_Meta_injectionCore___lambda__1___closed__5() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Meta_injectionCore___lambda__1___closed__6;
x_1 = l_Lean_Meta_injectionCore___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_injectionCore___lambda__1___closed__8() {
lean_object* _init_l_Lean_Meta_injectionCore___lambda__1___closed__6() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Meta_injectionCore___lambda__1___closed__7;
x_1 = l_Lean_Meta_injectionCore___lambda__1___closed__5;
x_2 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
@ -438,7 +416,7 @@ if (x_17 == 0)
lean_object* x_18; lean_object* x_19;
lean_dec(x_13);
lean_dec(x_3);
x_18 = l_Lean_Meta_injectionCore___lambda__1___closed__2;
x_18 = l_Lean_Meta_mkNoConfusion___closed__5;
x_19 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_18, x_4, x_14);
lean_dec(x_4);
return x_19;
@ -498,7 +476,7 @@ lean_dec(x_3);
x_36 = lean_ctor_get(x_35, 1);
lean_inc(x_36);
lean_dec(x_35);
x_37 = l_Lean_Meta_injectionCore___lambda__1___closed__5;
x_37 = l_Lean_Meta_injectionCore___lambda__1___closed__3;
x_38 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_37, x_4, x_36);
lean_dec(x_4);
return x_38;
@ -517,7 +495,7 @@ lean_dec(x_3);
x_40 = lean_ctor_get(x_35, 1);
lean_inc(x_40);
lean_dec(x_35);
x_41 = l_Lean_Meta_injectionCore___lambda__1___closed__5;
x_41 = l_Lean_Meta_injectionCore___lambda__1___closed__3;
x_42 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_41, x_4, x_40);
lean_dec(x_4);
return x_42;
@ -807,7 +785,7 @@ lean_dec(x_3);
x_107 = lean_ctor_get(x_69, 1);
lean_inc(x_107);
lean_dec(x_69);
x_108 = l_Lean_Meta_injectionCore___lambda__1___closed__8;
x_108 = l_Lean_Meta_injectionCore___lambda__1___closed__6;
x_109 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_1, x_108, x_4, x_107);
lean_dec(x_4);
return x_109;
@ -2092,10 +2070,6 @@ l_Lean_Meta_injectionCore___lambda__1___closed__5 = _init_l_Lean_Meta_injectionC
lean_mark_persistent(l_Lean_Meta_injectionCore___lambda__1___closed__5);
l_Lean_Meta_injectionCore___lambda__1___closed__6 = _init_l_Lean_Meta_injectionCore___lambda__1___closed__6();
lean_mark_persistent(l_Lean_Meta_injectionCore___lambda__1___closed__6);
l_Lean_Meta_injectionCore___lambda__1___closed__7 = _init_l_Lean_Meta_injectionCore___lambda__1___closed__7();
lean_mark_persistent(l_Lean_Meta_injectionCore___lambda__1___closed__7);
l_Lean_Meta_injectionCore___lambda__1___closed__8 = _init_l_Lean_Meta_injectionCore___lambda__1___closed__8();
lean_mark_persistent(l_Lean_Meta_injectionCore___lambda__1___closed__8);
l_Lean_Meta_injectionCore___closed__1 = _init_l_Lean_Meta_injectionCore___closed__1();
lean_mark_persistent(l_Lean_Meta_injectionCore___closed__1);
l_Lean_Meta_injectionCore___closed__2 = _init_l_Lean_Meta_injectionCore___closed__2();

1913
stage0/stdlib/Lean/Meta/Tactic/Subst.c
View file

File diff suppressed because it is too large Load diff

36
stage0/stdlib/Lean/Meta/WHNF.c
View file

@ -71,7 +71,6 @@ lean_object* l_Lean_Meta_unfoldDefinition_x3f(lean_object*, lean_object*, lean_o
lean_object* l___private_Lean_Util_WHNF_4__toCtorWhenK___at_Lean_Meta_whnfCore___spec__5(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_WHNF_reduceQuotRec___at_Lean_Meta_unfoldDefinition_x3f___spec__7(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_Exception_Inhabited___closed__1;
lean_object* l___private_Lean_Util_WHNF_3__getRecRuleFor(lean_object*, lean_object*);
lean_object* l_Lean_Meta_whnfUntil___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
size_t l_USize_shiftRight(size_t, size_t);
@ -228,6 +227,7 @@ lean_object* l_Lean_WHNF_isRecStuck_x3f___at_Lean_Meta_unfoldDefinition_x3f___sp
lean_object* l_Lean_Meta_reduceNat_x3f___lambda__1___boxed(lean_object*);
lean_object* l_Lean_Meta_reduceBinNatOp___closed__8;
lean_object* l_Lean_Meta_reduceNative_x3f(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_Exception_Inhabited___closed__2;
lean_object* l_Lean_Meta_reduceNative_x3f___closed__4;
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_Lean_Meta_WHNF_3__cache(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*);
@ -11072,28 +11072,32 @@ lean_inc(x_5);
x_6 = l_Lean_Environment_evalConstCheck___rarg(x_5, x_1, x_2);
if (lean_obj_tag(x_6) == 0)
{
lean_object* x_7; lean_object* x_8; lean_object* x_9;
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11;
x_7 = lean_ctor_get(x_6, 0);
lean_inc(x_7);
lean_dec(x_6);
x_8 = lean_alloc_ctor(22, 1, 0);
x_8 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_8, 0, x_7);
x_9 = lean_alloc_ctor(1, 2, 0);
x_9 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_9, 0, x_8);
lean_ctor_set(x_9, 1, x_4);
return x_9;
}
else
{
lean_object* x_10; lean_object* x_11;
x_10 = lean_ctor_get(x_6, 0);
lean_inc(x_10);
lean_dec(x_6);
x_11 = lean_alloc_ctor(0, 2, 0);
x_10 = lean_alloc_ctor(22, 1, 0);
lean_ctor_set(x_10, 0, x_9);
x_11 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_11, 0, x_10);
lean_ctor_set(x_11, 1, x_4);
return x_11;
}
else
{
lean_object* x_12; lean_object* x_13;
x_12 = lean_ctor_get(x_6, 0);
lean_inc(x_12);
lean_dec(x_6);
x_13 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_13, 0, x_12);
lean_ctor_set(x_13, 1, x_4);
return x_13;
}
}
}
lean_object* l_Lean_Meta_reduceNativeConst(lean_object* x_1) {
@ -11153,7 +11157,7 @@ lean_object* l_Lean_Meta_reduceBoolNative___rarg(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3;
x_2 = l_Lean_Meta_Exception_Inhabited___closed__1;
x_2 = l_Lean_Meta_Exception_Inhabited___closed__2;
x_3 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
@ -11182,7 +11186,7 @@ lean_object* l_Lean_Meta_reduceNatNative___rarg(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3;
x_2 = l_Lean_Meta_Exception_Inhabited___closed__1;
x_2 = l_Lean_Meta_Exception_Inhabited___closed__2;
x_3 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);

3349
stage0/stdlib/Lean/PrettyPrinter/Parenthesizer.c
View file

File diff suppressed because it is too large Load diff

94
stage0/stdlib/Lean/Util/CollectLevelParams.c
View file

@ -14,6 +14,7 @@
extern "C" {
#endif
lean_object* l_List_replace___main___at_Lean_CollectLevelParams_visitExpr___spec__7___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Util_CollectLevelParams_1__getUnusedLevelParamAux(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_uget(lean_object*, size_t);
lean_object* lean_array_uset(lean_object*, size_t, lean_object*);
lean_object* l_Lean_CollectLevelParams_visitLevel(lean_object*, lean_object*, lean_object*);
@ -29,13 +30,16 @@ uint8_t l_List_elem___main___at_Lean_CollectLevelParams_visitExpr___spec__2(lean
lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* l_Lean_CollectLevelParams_collect___main(lean_object*, lean_object*);
lean_object* l_Std_HashSetImp_insert___at_Lean_CollectLevelParams_visitLevel___spec__3(lean_object*, lean_object*);
lean_object* l_Lean_CollectLevelParams_State_getUnusedLevelParam(lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
uint8_t l_List_elem___main___at_Lean_CollectLevelParams_visitLevel___spec__2(lean_object*, lean_object*);
uint8_t l_Lean_Expr_hasLevelParam(lean_object*);
lean_object* l_Lean_CollectLevelParams_State_getUnusedLevelParam___boxed(lean_object*, lean_object*);
lean_object* l_Lean_CollectLevelParams_visitExpr(lean_object*, lean_object*, lean_object*);
lean_object* l_Std_HashSetImp_moveEntries___main___at_Lean_CollectLevelParams_visitExpr___spec__5(lean_object*, lean_object*, lean_object*);
lean_object* l_List_replace___main___at_Lean_CollectLevelParams_visitExpr___spec__7(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Name_appendIndexAfter(lean_object*, lean_object*);
lean_object* l_Std_HashSetImp_contains___at_Lean_CollectLevelParams_visitLevel___spec__1___boxed(lean_object*, lean_object*);
uint8_t l_Std_HashSetImp_contains___at_Lean_CollectLevelParams_visitLevel___spec__1(lean_object*, lean_object*);
lean_object* l_Std_mkHashSet___at_Lean_CollectLevelParams_State_inhabited___spec__2(lean_object*);
@ -43,10 +47,12 @@ size_t l_Lean_Expr_hash(lean_object*);
lean_object* l_Std_HashSetImp_expand___at_Lean_CollectLevelParams_visitLevel___spec__4(lean_object*, lean_object*);
lean_object* l_Lean_CollectLevelParams_main(lean_object*, lean_object*);
size_t lean_usize_modn(size_t, lean_object*);
lean_object* l___private_Lean_Util_CollectLevelParams_1__getUnusedLevelParamAux___main(lean_object*, lean_object*, lean_object*);
lean_object* l_Std_HashSetImp_moveEntries___main___at_Lean_CollectLevelParams_visitLevel___spec__5(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_CollectLevelParams_State_inhabited___closed__3;
lean_object* l_List_foldl___main___at_Lean_CollectLevelParams_main___main___spec__1(lean_object*, lean_object*);
lean_object* l_Std_HashSetImp_expand___at_Lean_CollectLevelParams_visitExpr___spec__4(lean_object*, lean_object*);
lean_object* l___private_Lean_Util_CollectLevelParams_1__getUnusedLevelParamAux___main___boxed(lean_object*, lean_object*, lean_object*);
uint8_t lean_expr_eqv(lean_object*, lean_object*);
lean_object* l_Lean_CollectLevelParams_State_inhabited___closed__1;
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
@ -61,6 +67,8 @@ lean_object* l_Lean_CollectLevelParams_State_inhabited;
lean_object* l_List_elem___main___at_Lean_CollectLevelParams_visitExpr___spec__2___boxed(lean_object*, lean_object*);
lean_object* l_Lean_CollectLevelParams_State_inhabited___closed__2;
lean_object* l_List_foldl___main___at_Lean_CollectLevelParams_visitExpr___spec__6(lean_object*, lean_object*);
lean_object* l___private_Lean_Util_CollectLevelParams_1__getUnusedLevelParamAux___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkLevelParam(lean_object*);
lean_object* l_Lean_collectLevelParams(lean_object*, lean_object*);
uint8_t lean_level_eq(lean_object*, lean_object*);
lean_object* l_List_replace___main___at_Lean_CollectLevelParams_visitLevel___spec__7___boxed(lean_object*, lean_object*, lean_object*);
@ -2440,6 +2448,92 @@ x_3 = l_Lean_CollectLevelParams_main___main(x_1, x_2);
return x_3;
}
}
lean_object* l___private_Lean_Util_CollectLevelParams_1__getUnusedLevelParamAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; lean_object* x_5; lean_object* x_6; uint8_t x_7;
lean_inc(x_3);
lean_inc(x_2);
x_4 = l_Lean_Name_appendIndexAfter(x_2, x_3);
x_5 = l_Lean_mkLevelParam(x_4);
x_6 = lean_ctor_get(x_1, 0);
x_7 = l_Std_HashSetImp_contains___at_Lean_CollectLevelParams_visitLevel___spec__1(x_6, x_5);
if (x_7 == 0)
{
lean_dec(x_3);
lean_dec(x_2);
return x_5;
}
else
{
lean_object* x_8; lean_object* x_9;
lean_dec(x_5);
x_8 = lean_unsigned_to_nat(1u);
x_9 = lean_nat_add(x_3, x_8);
lean_dec(x_3);
x_3 = x_9;
goto _start;
}
}
}
lean_object* l___private_Lean_Util_CollectLevelParams_1__getUnusedLevelParamAux___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l___private_Lean_Util_CollectLevelParams_1__getUnusedLevelParamAux___main(x_1, x_2, x_3);
lean_dec(x_1);
return x_4;
}
}
lean_object* l___private_Lean_Util_CollectLevelParams_1__getUnusedLevelParamAux(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l___private_Lean_Util_CollectLevelParams_1__getUnusedLevelParamAux___main(x_1, x_2, x_3);
return x_4;
}
}
lean_object* l___private_Lean_Util_CollectLevelParams_1__getUnusedLevelParamAux___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l___private_Lean_Util_CollectLevelParams_1__getUnusedLevelParamAux(x_1, x_2, x_3);
lean_dec(x_1);
return x_4;
}
}
lean_object* l_Lean_CollectLevelParams_State_getUnusedLevelParam(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4; uint8_t x_5;
lean_inc(x_2);
x_3 = l_Lean_mkLevelParam(x_2);
x_4 = lean_ctor_get(x_1, 0);
x_5 = l_Std_HashSetImp_contains___at_Lean_CollectLevelParams_visitLevel___spec__1(x_4, x_3);
if (x_5 == 0)
{
lean_dec(x_2);
return x_3;
}
else
{
lean_object* x_6; lean_object* x_7;
lean_dec(x_3);
x_6 = lean_unsigned_to_nat(1u);
x_7 = l___private_Lean_Util_CollectLevelParams_1__getUnusedLevelParamAux___main(x_1, x_2, x_6);
return x_7;
}
}
}
lean_object* l_Lean_CollectLevelParams_State_getUnusedLevelParam___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Lean_CollectLevelParams_State_getUnusedLevelParam(x_1, x_2);
lean_dec(x_1);
return x_3;
}
}
lean_object* l_Lean_collectLevelParams(lean_object* x_1, lean_object* x_2) {
_start:
{