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-10-06 09:32:26 -07:00
parent ef2d9b4d59
commit 4f59ce2fbd
24 changed files with 15716 additions and 14883 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
stage0/src/Lean/Elab/SyntheticMVars.lean generated
View file

@ -84,11 +84,12 @@ withMVarContext instMVar $ catch
/--
Similar to `synthesizePendingInstMVar`, but generates type mismatch error message. -/
private def synthesizePendingCoeInstMVar (instMVar : MVarId) (expectedType : Expr) (eType : Expr) (e : Expr) (f? : Option Expr) : TermElabM Bool := do
private def synthesizePendingCoeInstMVar
(instMVar : MVarId) (errorMsgHeader : String) (expectedType : Expr) (eType : Expr) (e : Expr) (f? : Option Expr) : TermElabM Bool := do
withMVarContext instMVar $ catch
(synthesizeInstMVarCore instMVar)
(fun ex => match ex with
| Exception.error _ msg => throwTypeMismatchError expectedType eType e f? msg
| Exception.error _ msg => throwTypeMismatchError errorMsgHeader expectedType eType e f? msg
| _ => unreachable!)
/--
@ -102,12 +103,12 @@ pure $ !val.getAppFn.isMVar
private def synthesizeSyntheticMVar (mvarSyntheticDecl : SyntheticMVarDecl) (postponeOnError : Bool) (runTactics : Bool) : TermElabM Bool :=
withRef mvarSyntheticDecl.stx $
match mvarSyntheticDecl.kind with
| SyntheticMVarKind.typeClass => synthesizePendingInstMVar mvarSyntheticDecl.mvarId
| SyntheticMVarKind.coe expectedType eType e f? => synthesizePendingCoeInstMVar mvarSyntheticDecl.mvarId expectedType eType e f?
| SyntheticMVarKind.typeClass => synthesizePendingInstMVar mvarSyntheticDecl.mvarId
| SyntheticMVarKind.coe header expectedType eType e f? => synthesizePendingCoeInstMVar mvarSyntheticDecl.mvarId header expectedType eType e f?
-- NOTE: actual processing at `synthesizeSyntheticMVarsAux`
| SyntheticMVarKind.withDefault _ => checkWithDefault mvarSyntheticDecl.mvarId
| SyntheticMVarKind.postponed macroStack declName? => resumePostponed macroStack declName? mvarSyntheticDecl.stx mvarSyntheticDecl.mvarId postponeOnError
| SyntheticMVarKind.tactic declName? tacticCode =>
| SyntheticMVarKind.withDefault _ => checkWithDefault mvarSyntheticDecl.mvarId
| SyntheticMVarKind.postponed macroStack declName? => resumePostponed macroStack declName? mvarSyntheticDecl.stx mvarSyntheticDecl.mvarId postponeOnError
| SyntheticMVarKind.tactic declName? tacticCode =>
adaptReader (fun (ctx : Context) => { ctx with declName? := declName? }) $
if runTactics then do
runTactic mvarSyntheticDecl.mvarId tacticCode;
@ -168,10 +169,10 @@ s.syntheticMVars.forM $ fun mvarSyntheticDecl =>
withMVarContext mvarSyntheticDecl.mvarId $ do
mvarDecl ← getMVarDecl mvarSyntheticDecl.mvarId;
logError $ "failed to create type class instance for " ++ indentExpr mvarDecl.type
| SyntheticMVarKind.coe expectedType eType e f? =>
| SyntheticMVarKind.coe header expectedType eType e f? =>
withMVarContext mvarSyntheticDecl.mvarId $ do
mvarDecl ← getMVarDecl mvarSyntheticDecl.mvarId;
throwTypeMismatchError expectedType eType e f? (some ("failed to create type class instance for " ++ indentExpr mvarDecl.type))
throwTypeMismatchError header expectedType eType e f? (some ("failed to create type class instance for " ++ indentExpr mvarDecl.type))
| _ => unreachable! -- TODO handle other cases.
private def getSomeSynthethicMVarsRef : TermElabM Syntax := do

56
stage0/src/Lean/Elab/Term.lean generated
View file

@ -98,7 +98,8 @@ inductive SyntheticMVarKind
| typeClass
-- Similar to typeClass, but error messages are different,
-- we use "type mismatch" or "application type mismatch" (when `f?` is some) instead of "failed to synthesize"
| coe (expectedType : Expr) (eType : Expr) (e : Expr) (f? : Option Expr)
-- `header` is the error message header. It is "type mismatch" in most cases
| coe (header : String) (expectedType : Expr) (eType : Expr) (e : Expr) (f? : Option Expr)
-- tactic block execution
| tactic (declName? : Option Name) (tacticCode : Syntax)
-- `elabTerm` call that threw `Exception.postpone` (input is stored at `SyntheticMVarDecl.ref`)
@ -520,18 +521,18 @@ if hasCDot stx then do
else
pure none
def mkTypeMismatchError (e : Expr) (eType : Expr) (expectedType : Expr) (header : String := "type mismatch") : MessageData :=
def mkTypeMismatchError (header : String) (e : Expr) (eType : Expr) (expectedType : Expr) : MessageData :=
header ++ indentExpr e
++ Format.line ++ "has type" ++ indentExpr eType
++ Format.line ++ "but it is expected to have type" ++ indentExpr expectedType
def throwTypeMismatchError {α} (expectedType : Expr) (eType : Expr) (e : Expr)
def throwTypeMismatchError {α} (header : String) (expectedType : Expr) (eType : Expr) (e : Expr)
(f? : Option Expr := none) (extraMsg? : Option MessageData := none) : TermElabM α :=
let extraMsg : MessageData := match extraMsg? with
| none => Format.nil
| some extraMsg => Format.line ++ extraMsg;
match f? with
| none => throwError $ mkTypeMismatchError e eType expectedType ++ extraMsg
| none => throwError $ mkTypeMismatchError header e eType expectedType ++ extraMsg
| some f => Meta.throwAppTypeMismatch f e extraMsg
@[inline] def withoutMacroStackAtErr {α} (x : TermElabM α) : TermElabM α :=
@ -569,7 +570,7 @@ match result with
class CoeT (α : Sort u) (a : α) (β : Sort v)
abbrev coe {α : Sort u} {β : Sort v} (a : α) [CoeT α a β] : β
``` -/
def tryCoe (expectedType : Expr) (eType : Expr) (e : Expr) (f? : Option Expr) : TermElabM Expr :=
private def tryCoe (errorMsgHeader : String) (expectedType : Expr) (eType : Expr) (e : Expr) (f? : Option Expr) : TermElabM Expr :=
condM (isDefEq expectedType eType) (pure e) $ do
u ← getLevel eType;
v ← getLevel expectedType;
@ -580,12 +581,12 @@ let mvarId := mvar.mvarId!;
catch
(withoutMacroStackAtErr $ do
unlessM (synthesizeInstMVarCore mvarId) $
registerSyntheticMVarWithCurrRef mvarId (SyntheticMVarKind.coe expectedType eType e f?);
registerSyntheticMVarWithCurrRef mvarId (SyntheticMVarKind.coe errorMsgHeader expectedType eType e f?);
pure eNew)
(fun ex =>
match ex with
| Exception.error _ msg => throwTypeMismatchError expectedType eType e f? msg
| _ => throwTypeMismatchError expectedType eType e f?)
| Exception.error _ msg => throwTypeMismatchError errorMsgHeader expectedType eType e f? msg
| _ => throwTypeMismatchError errorMsgHeader expectedType eType e f?)
private def isTypeApp? (type : Expr) : TermElabM (Option (Expr × Expr)) := do
type ← withReducible $ whnf type;
@ -623,11 +624,11 @@ match result with
/--
Try to coerce `a : α` into `m β` by first coercing `a : α` into ‵β`, and then using `pure`.
The method is only applied if the head of `α` nor ‵β` is not a metavariable. -/
private def tryPureCoe? (m β α a : Expr) : TermElabM (Option Expr) :=
private def tryPureCoe? (errorMsgHeader : String) (m β α a : Expr) : TermElabM (Option Expr) :=
if β.getAppFn.isMVar || α.getAppFn.isMVar then pure none
else catch
(do
aNew ← tryCoe β α a none;
aNew ← tryCoe errorMsgHeader β α a none;
aNew ← mkPure m aNew;
pure $ some aNew)
(fun _ => pure none)
@ -687,19 +688,19 @@ On the other hand, TC can easily solve `[HasLiftT IO (StateT Nat IO)]`
since this goal does not contain any metavariables. And then, we
convert `g x` into `liftM $ g x`.
-/
def tryLiftAndCoe (expectedType : Expr) (eType : Expr) (e : Expr) (f? : Option Expr) : TermElabM Expr := do
private def tryLiftAndCoe (errorMsgHeader : String) (expectedType : Expr) (eType : Expr) (e : Expr) (f? : Option Expr) : TermElabM Expr := do
eType ← instantiateMVars eType;
some ⟨n, β, monadInst⟩ ← isMonad? expectedType | tryCoe expectedType eType e f?;
some ⟨n, β, monadInst⟩ ← isMonad? expectedType | tryCoe errorMsgHeader expectedType eType e f?;
β ← instantiateMVars β;
eNew? ← tryPureCoe? n β eType e;
eNew? ← tryPureCoe? errorMsgHeader n β eType e;
match eNew? with
| some eNew => pure eNew
| none => do
some (m, α) ← isTypeApp? eType | tryCoe expectedType eType e f?;
some (m, α) ← isTypeApp? eType | tryCoe errorMsgHeader expectedType eType e f?;
condM (isDefEq m n)
(catch
(mkAppOptM `coeM #[m, α, β, none, monadInst, e])
(fun _ => throwTypeMismatchError expectedType eType e f?)) $
(fun _ => throwTypeMismatchError errorMsgHeader expectedType eType e f?)) $
(catch
(do
-- Construct lift from `m` to `n`
@ -721,29 +722,31 @@ condM (isDefEq m n)
eNewType ← inferType eNew;
condM (isDefEq expectedType eNewType)
(pure eNew) -- approach 3 worked
(throwTypeMismatchError expectedType eType e f?)))
(fun _ => throwTypeMismatchError expectedType eType e f?))
(throwTypeMismatchError errorMsgHeader expectedType eType e f?)))
(fun _ => throwTypeMismatchError errorMsgHeader expectedType eType e f?))
/--
If `expectedType?` is `some t`, then ensure `t` and `eType` are definitionally equal.
If they are not, then try coercions.
Argument `f?` is used only for generating error messages. -/
def ensureHasTypeAux (expectedType? : Option Expr) (eType : Expr) (e : Expr) (f? : Option Expr := none) : TermElabM Expr :=
def ensureHasTypeAux (expectedType? : Option Expr) (eType : Expr) (e : Expr)
(f? : Option Expr := none) (errorMsgHeader? : Option String := none) : TermElabM Expr :=
let errorMsgHeader := errorMsgHeader?.getD "type mismatch";
match expectedType? with
| none => pure e
| some expectedType =>
condM (isDefEq eType expectedType)
(pure e)
(tryLiftAndCoe expectedType eType e f?)
(tryLiftAndCoe errorMsgHeader expectedType eType e f?)
/--
If `expectedType?` is `some t`, then ensure `t` and type of `e` are definitionally equal.
If they are not, then try coercions. -/
def ensureHasType (expectedType? : Option Expr) (e : Expr) : TermElabM Expr :=
def ensureHasType (expectedType? : Option Expr) (e : Expr) (errorMsgHeader? : Option String := none) : TermElabM Expr :=
match expectedType? with
| none => pure e
| _ => do eType ← inferType e; ensureHasTypeAux expectedType? eType e
| _ => do eType ← inferType e; ensureHasTypeAux expectedType? eType e none errorMsgHeader?
private def exceptionToSorry (ex : Exception) (expectedType? : Option Expr) : TermElabM Expr := do
expectedType : Expr ← match expectedType? with
@ -921,9 +924,9 @@ private partial def elabTermAux (expectedType? : Option Expr) (catchExPostpone :
def elabTerm (stx : Syntax) (expectedType? : Option Expr) (catchExPostpone := true) : TermElabM Expr :=
withRef stx $ elabTermAux expectedType? catchExPostpone true stx
def elabTermEnsuringType (stx : Syntax) (expectedType? : Option Expr) (catchExPostpone := true) : TermElabM Expr := do
def elabTermEnsuringType (stx : Syntax) (expectedType? : Option Expr) (catchExPostpone := true) (errorMsgHeader? : Option String := none) : TermElabM Expr := do
e ← elabTerm stx expectedType? catchExPostpone;
withRef stx $ ensureHasType expectedType? e
withRef stx $ ensureHasType expectedType? e errorMsgHeader?
def elabTermWithoutImplicitLambdas (stx : Syntax) (expectedType? : Option Expr) (catchExPostpone := true) : TermElabM Expr := do
elabTermAux expectedType? catchExPostpone false stx
@ -1289,12 +1292,7 @@ fun stx expectedType? =>
| some msg => do
refTerm ← elabTerm (stx.getArg 1) none;
refTermType ← inferType refTerm;
e ← elabTerm (stx.getArg 3) expectedType?;
eType ← inferType e;
-- TODO: try coercions. We cannot simply use `ensureHasType` at this point because it has no support for the custom error message.
-- a `catch` would also not work since `ensureHasType` may postpone the coercion resolution.
unlessM (isDefEq eType refTermType) $ throwError $ mkTypeMismatchError e eType refTermType msg;
pure e
elabTermEnsuringType (stx.getArg 3) refTermType true msg
private def mkSomeContext : Context :=
{ fileName := "<TermElabM>",

5
stage0/src/Lean/Parser/Term.lean generated
View file

@ -170,8 +170,9 @@ def letRecDecls := sepBy1 (group (optional «attributes» >> letDecl)) ", "
@[builtinTermParser] def nativeDecide := parser! "nativeDecide! " >> termParser maxPrec
@[builtinTermParser] def decide := parser! "decide! " >> termParser maxPrec
@[builtinTermParser] def typeOf := parser! "typeOf! " >> termParser maxPrec
@[builtinTermParser] def ensureTypeOf := parser! "ensureTypeOf! " >> termParser maxPrec >> strLit >> termParser
@[builtinTermParser] def typeOf := parser! "typeOf! " >> termParser maxPrec
@[builtinTermParser] def ensureTypeOf := parser! "ensureTypeOf! " >> termParser maxPrec >> strLit >> termParser
@[builtinTermParser] def ensureExpectedType := parser! "ensureExpectedType! " >> strLit >> termParser maxPrec
@[builtinTermParser] def not := parser! "¬" >> termParser 40
@[builtinTermParser] def bnot := parser! "!" >> termParser 40

20
stage0/stdlib/Lean/Delaborator.c generated
View file

@ -219,6 +219,7 @@ lean_object* l_ReaderT_lift___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_delabLE___lambda__1___closed__6;
lean_object* l_Lean_Delaborator_withAppFnArgs___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_delabEquiv___closed__1;
extern lean_object* l_Array_anyRangeMAux___main___at___private_Lean_Elab_Term_16__isLambdaWithImplicit___spec__1___closed__2;
extern lean_object* l_Lean_Expr_ctorName___closed__4;
lean_object* l_Lean_Delaborator_delabOrM___lambda__1___closed__3;
lean_object* l_Lean_Delaborator_delabCons___closed__1;
@ -256,6 +257,7 @@ lean_object* l_Lean_Delaborator_delabAndThen___closed__1;
lean_object* l_Lean_Delaborator_liftMetaM___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_DelabM_monadQuotation___closed__1;
lean_object* l_Lean_Delaborator_delabAnd___lambda__1___closed__1;
extern lean_object* l_Array_anyRangeMAux___main___at___private_Lean_Elab_Term_16__isLambdaWithImplicit___spec__1___closed__1;
lean_object* l_Lean_getPPFullNames___closed__1;
lean_object* l_Lean_Delaborator_delabEq___lambda__1___closed__3;
extern lean_object* l___regBuiltin_Lean_Elab_Term_elabTypeStx___closed__2;
@ -354,7 +356,6 @@ lean_object* l___regBuiltin_Lean_Delaborator_delabModN___closed__5;
lean_object* l_Lean_Delaborator_delabMap___lambda__1___closed__4;
extern lean_object* l_Lean_Elab_Level_elabLevel___main___closed__6;
lean_object* l_Lean_Delaborator_delabSort___closed__7;
extern lean_object* l_Lean_Elab_Term_tryCoe___closed__4;
lean_object* l_Lean_Delaborator_annotateCurPos(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Delaborator_delabModN___closed__3;
lean_object* l_Lean_Delaborator_HasOrelse___closed__1;
@ -394,7 +395,6 @@ lean_object* l___regBuiltin_Lean_Delaborator_delabCons(lean_object*);
lean_object* l_Lean_Delaborator_delabBOr___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_orelse(lean_object*);
lean_object* l_Lean_Delaborator_delabBNe___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Array_anyRangeMAux___main___at___private_Lean_Elab_Term_14__isLambdaWithImplicit___spec__1___closed__1;
extern lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__7;
extern lean_object* l_Lean_numLitKind;
lean_object* l_Lean_Delaborator_delabCons___lambda__1___closed__3;
@ -424,7 +424,6 @@ lean_object* l_Lean_getPPUnicode___boxed(lean_object*);
lean_object* l_Lean_getPPUnicode___closed__1;
lean_object* l___private_Lean_Meta_Basic_28__withLetDeclImp___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_delabLit(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Array_anyRangeMAux___main___at___private_Lean_Elab_Term_14__isLambdaWithImplicit___spec__1___closed__2;
lean_object* l_Lean_Delaborator_delabOrM___lambda__1___closed__2;
lean_object* l_Lean_Delaborator_delabBOr(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Name_append___main(lean_object*, lean_object*);
@ -627,6 +626,7 @@ lean_object* l___private_Lean_Delaborator_2__unresolveUsingNamespace___boxed(lea
lean_object* l_Lean_Delaborator_mkDelabAttribute___closed__4;
lean_object* l___regBuiltin_Lean_Delaborator_delabGE___closed__1;
lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Delaborator_delabForall___spec__2___closed__3;
extern lean_object* l___private_Lean_Elab_Term_5__tryCoe___closed__4;
lean_object* l_Lean_Delaborator_delabGE___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_delabNot___lambda__1___closed__3;
extern lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__26;
@ -980,7 +980,6 @@ lean_object* l_Lean_Delaborator_mkDelabAttribute___closed__11;
lean_object* l_Lean_Delaborator_delabProj(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_umapMAux___main___at_Lean_Delaborator_getParamKinds___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_withAppFnArgs___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_Lean_Elab_Term_12__isExplicit___closed__1;
lean_object* l___regBuiltin_Lean_Delaborator_delabAndThen___closed__1;
extern lean_object* l_Lean_Expr_ctorName___closed__11;
lean_object* l___regBuiltin_Lean_Delaborator_delabMap___closed__2;
@ -1016,6 +1015,7 @@ lean_object* l___regBuiltin_Lean_Delaborator_delabMap___closed__4;
lean_object* l_Lean_Delaborator_delabBNot___lambda__1___closed__2;
lean_object* l_Lean_Delaborator_delabCoe(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_ReaderT_pure___at_Lean_Delaborator_DelabM_monadQuotation___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_Lean_Elab_Term_14__isExplicit___closed__1;
lean_object* l_Lean_Delaborator_delabSub___closed__1;
lean_object* lean_usize_to_nat(size_t);
lean_object* l_Lean_Delaborator_delabMapRev___lambda__1___closed__4;
@ -1037,11 +1037,11 @@ uint8_t l_Lean_getPPAll(lean_object*);
lean_object* l_Lean_Delaborator_getExprKind___closed__3;
lean_object* l_Lean_Delaborator_delabFComp___lambda__1(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_delabOfNat___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_Lean_Elab_Term_14__isExplicit___closed__2;
lean_object* l_Lean_Delaborator_delabAndThen___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_delabLetE___closed__9;
lean_object* l_Lean_Delaborator_delabConst___closed__7;
lean_object* l_Lean_Delaborator_delabPow___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_Lean_Elab_Term_12__isExplicit___closed__2;
lean_object* l_Lean_Delaborator_delabMVar___closed__4;
lean_object* l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(lean_object*);
lean_object* l_Lean_Delaborator_DelabM_inhabited___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -1907,7 +1907,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_sanitizeNamesOption___closed__2;
x_2 = l___private_Lean_Elab_Term_12__isExplicit___closed__1;
x_2 = l___private_Lean_Elab_Term_14__isExplicit___closed__1;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
@ -11190,7 +11190,7 @@ else
lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24;
x_18 = l_Lean_Delaborator_delabAppExplicit___lambda__1___closed__2;
x_19 = lean_array_push(x_18, x_8);
x_20 = l___private_Lean_Elab_Term_12__isExplicit___closed__2;
x_20 = l___private_Lean_Elab_Term_14__isExplicit___closed__2;
x_21 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_21, 0, x_20);
lean_ctor_set(x_21, 1, x_19);
@ -13458,7 +13458,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_mkAppStx___closed__6;
x_2 = l_Array_anyRangeMAux___main___at___private_Lean_Elab_Term_14__isLambdaWithImplicit___spec__1___closed__1;
x_2 = l_Array_anyRangeMAux___main___at___private_Lean_Elab_Term_16__isLambdaWithImplicit___spec__1___closed__1;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
@ -13490,7 +13490,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_mkAppStx___closed__6;
x_2 = l_Array_anyRangeMAux___main___at___private_Lean_Elab_Term_14__isLambdaWithImplicit___spec__1___closed__2;
x_2 = l_Array_anyRangeMAux___main___at___private_Lean_Elab_Term_16__isLambdaWithImplicit___spec__1___closed__2;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
@ -19504,7 +19504,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Delaborator_getExprKind___closed__5;
x_2 = l_Lean_Elab_Term_tryCoe___closed__4;
x_2 = l___private_Lean_Elab_Term_5__tryCoe___closed__4;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}

9051
stage0/stdlib/Lean/Elab/App.c generated
View file

File diff suppressed because it is too large Load diff

735
stage0/stdlib/Lean/Elab/Binders.c generated
View file

File diff suppressed because it is too large Load diff

26
stage0/stdlib/Lean/Elab/BuiltinNotation.c generated
View file

@ -122,7 +122,6 @@ lean_object* l___regBuiltin_Lean_Elab_Term_expandseqLeft(lean_object*);
lean_object* l_Lean_Elab_Term_expandEmptyC___closed__8;
lean_object* l_Lean_Elab_Term_elabTermAndSynthesize(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_expandDollar(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_6__isMonad_x3f___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_st_ref_get(lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Elab_Term_expandBNot___closed__2;
lean_object* l___private_Lean_Elab_BuiltinNotation_1__elabParserMacroAux___closed__21;
@ -141,9 +140,11 @@ lean_object* l_Lean_Elab_Term_expandEmptyC___closed__1;
lean_object* l_Lean_Elab_Term_expandOrM(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_expandIf___closed__7;
lean_object* l___regBuiltin_Lean_Elab_Term_expandAndM___closed__2;
lean_object* l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_7__isMonad_x3f___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_expandWhere___closed__1;
lean_object* l___regBuiltin_Lean_Elab_Term_expandBNot___closed__1;
lean_object* l_Lean_Elab_Term_expandMul___closed__3;
lean_object* l_Lean_Meta_whnf___at___private_Lean_Elab_Term_6__isTypeApp_x3f___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_expandSubtype___closed__10;
lean_object* lean_array_push(lean_object*, lean_object*);
lean_object* lean_array_get_size(lean_object*);
@ -463,7 +464,6 @@ lean_object* l___regBuiltin_Lean_Elab_Term_expandAndThen___closed__2;
lean_object* l___regBuiltin_Lean_Elab_Term_expandNot___closed__2;
lean_object* l_Lean_Elab_Term_expandBAnd___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_expandSubtype___closed__7;
lean_object* l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__2___rarg(lean_object*);
lean_object* l___private_Lean_Elab_BuiltinNotation_5__getPropToDecide___closed__7;
lean_object* l_Lean_Elab_Term_expandAssert___closed__6;
lean_object* l_Lean_Elab_Term_expandLE___boxed(lean_object*, lean_object*, lean_object*);
@ -523,6 +523,7 @@ lean_object* lean_environment_main_module(lean_object*);
lean_object* l_Lean_Elab_Term_expandSorry___boxed(lean_object*);
lean_object* l_Lean_Elab_getRefPos___at_Lean_Elab_Term_elabPanic___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Elab_Term_elabLetDeclCore___closed__6;
lean_object* l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__2___rarg(lean_object*);
lean_object* l_Lean_Elab_Term_expandAppend(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkApp(lean_object*, lean_object*);
extern lean_object* l_Lean_SourceInfo_inhabited___closed__1;
@ -554,7 +555,6 @@ lean_object* l_Lean_Elab_Term_expandBind(lean_object*, lean_object*, lean_object
lean_object* l_Lean_Elab_Term_expandAssert___closed__14;
lean_object* l___regBuiltin_Lean_Elab_Term_expandIff___closed__2;
lean_object* l_Lean_Elab_Term_expandIf___closed__2;
lean_object* l_Lean_Meta_whnf___at___private_Lean_Elab_Term_5__isTypeApp_x3f___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_expandOr___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_expandOr___closed__1;
lean_object* l_Lean_Elab_Term_expandIf___closed__8;
@ -2075,7 +2075,7 @@ lean_inc(x_8);
lean_inc(x_7);
lean_inc(x_6);
lean_inc(x_5);
x_25 = l_Lean_Meta_whnf___at___private_Lean_Elab_Term_5__isTypeApp_x3f___spec__1(x_24, x_3, x_4, x_5, x_6, x_7, x_8, x_23);
x_25 = l_Lean_Meta_whnf___at___private_Lean_Elab_Term_6__isTypeApp_x3f___spec__1(x_24, x_3, x_4, x_5, x_6, x_7, x_8, x_23);
if (lean_obj_tag(x_25) == 0)
{
lean_object* x_26; lean_object* x_27; lean_object* x_28;
@ -5198,7 +5198,7 @@ if (x_9 == 0)
lean_object* x_10;
lean_dec(x_2);
lean_dec(x_1);
x_10 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__2___rarg(x_8);
x_10 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__2___rarg(x_8);
return x_10;
}
else
@ -5238,7 +5238,7 @@ lean_object* x_16;
lean_dec(x_12);
lean_dec(x_2);
lean_dec(x_1);
x_16 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__2___rarg(x_8);
x_16 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__2___rarg(x_8);
return x_16;
}
else
@ -5256,7 +5256,7 @@ lean_object* x_21;
lean_dec(x_12);
lean_dec(x_2);
lean_dec(x_1);
x_21 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__2___rarg(x_8);
x_21 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__2___rarg(x_8);
return x_21;
}
else
@ -5610,7 +5610,7 @@ if (x_9 == 0)
lean_object* x_10;
lean_dec(x_2);
lean_dec(x_1);
x_10 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__2___rarg(x_8);
x_10 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__2___rarg(x_8);
return x_10;
}
else
@ -5650,7 +5650,7 @@ lean_object* x_16;
lean_dec(x_12);
lean_dec(x_2);
lean_dec(x_1);
x_16 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__2___rarg(x_8);
x_16 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__2___rarg(x_8);
return x_16;
}
else
@ -5668,7 +5668,7 @@ lean_object* x_21;
lean_dec(x_12);
lean_dec(x_2);
lean_dec(x_1);
x_21 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__2___rarg(x_8);
x_21 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__2___rarg(x_8);
return x_21;
}
else
@ -6389,7 +6389,7 @@ lean_inc(x_8);
lean_inc(x_7);
lean_inc(x_6);
lean_inc(x_5);
x_19 = l_Lean_Meta_whnf___at___private_Lean_Elab_Term_5__isTypeApp_x3f___spec__1(x_17, x_3, x_4, x_5, x_6, x_7, x_8, x_18);
x_19 = l_Lean_Meta_whnf___at___private_Lean_Elab_Term_6__isTypeApp_x3f___spec__1(x_17, x_3, x_4, x_5, x_6, x_7, x_8, x_18);
if (lean_obj_tag(x_19) == 0)
{
lean_object* x_20; lean_object* x_21; lean_object* x_22; uint8_t x_23; lean_object* x_24;
@ -7268,7 +7268,7 @@ lean_inc(x_8);
lean_inc(x_7);
lean_inc(x_6);
lean_inc(x_5);
x_18 = l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_6__isMonad_x3f___spec__1(x_17, x_16, x_3, x_4, x_5, x_6, x_7, x_8, x_14);
x_18 = l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_7__isMonad_x3f___spec__1(x_17, x_16, x_3, x_4, x_5, x_6, x_7, x_8, x_14);
if (lean_obj_tag(x_18) == 0)
{
lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23;
@ -7512,7 +7512,7 @@ lean_inc(x_8);
lean_inc(x_7);
lean_inc(x_6);
lean_inc(x_5);
x_18 = l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_6__isMonad_x3f___spec__1(x_17, x_16, x_3, x_4, x_5, x_6, x_7, x_8, x_14);
x_18 = l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_7__isMonad_x3f___spec__1(x_17, x_16, x_3, x_4, x_5, x_6, x_7, x_8, x_14);
if (lean_obj_tag(x_18) == 0)
{
lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26;

40
stage0/stdlib/Lean/Elab/Command.c generated
View file

@ -95,7 +95,6 @@ lean_object* l_Std_PersistentArray_append___rarg(lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Elab_Command_elabExport___closed__2;
lean_object* l_Lean_Meta_synthInstance___at_Lean_Elab_Command_elabSynth___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Command_6__mkTermContext(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_6__isMonad_x3f___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_st_ref_get(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_Lean_MonadEnv___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabEvalUnsafe___lambda__3___closed__1;
@ -124,6 +123,7 @@ lean_object* l_Lean_Elab_addMacroStack___at_Lean_Elab_Command_Lean_AddErrorMessa
lean_object* l_Lean_Elab_Command_liftTermElabM(lean_object*);
lean_object* l___regBuiltin_Lean_Elab_Command_elabSection(lean_object*);
lean_object* l_Lean_Elab_Command_getCurrMacroScope___boxed(lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_Lean_Elab_Term_13__elabUsingElabFns___closed__6;
lean_object* l_ReaderT_lift___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_runTermElabM___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Command_5__mkMetaContext___closed__1;
@ -131,11 +131,11 @@ uint8_t l___private_Lean_Elab_Command_13__checkEndHeader___main(lean_object*, le
lean_object* l_Lean_Elab_Command_liftEIO(lean_object*);
lean_object* l_Lean_Elab_Command_Lean_MonadOptions___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabEvalUnsafe___lambda__3___closed__2;
lean_object* l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_7__isMonad_x3f___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at___private_Lean_Elab_Command_8__addTraceAsMessages___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Std_AssocList_find_x3f___main___at_Lean_Elab_Command_elabCommand___main___spec__6___boxed(lean_object*, lean_object*);
extern lean_object* l_Lean_Elab_throwAlreadyDeclaredUniverseLevel___rarg___closed__3;
lean_object* l_Lean_Elab_Command_State_inhabited___closed__4;
extern lean_object* l___private_Lean_Elab_Term_11__elabUsingElabFns___closed__3;
lean_object* lean_array_push(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_modifyScope___at_Lean_Elab_Command_elabVariables___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Elab_Command_elabExport___closed__1;
@ -271,7 +271,7 @@ extern lean_object* l_Lean_choiceKind___closed__2;
lean_object* l_Lean_Elab_Command_Lean_AddMessageContext___closed__1;
lean_object* l_Lean_Elab_Command_elabCheck___closed__2;
lean_object* l_Lean_Elab_Command_elabEvalUnsafe___lambda__1___closed__1;
extern lean_object* l___private_Lean_Elab_Term_11__elabUsingElabFns___closed__6;
extern lean_object* l___private_Lean_Elab_Term_13__elabUsingElabFns___closed__3;
lean_object* l_Lean_Syntax_isStrLit_x3f(lean_object*);
lean_object* l_Lean_Elab_Command_elabEvalUnsafe___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_ReaderT_bind___at_Lean_Elab_Command_Lean_MonadEnv___spec__2(lean_object*, lean_object*);
@ -337,6 +337,7 @@ lean_object* l___regBuiltin_Lean_Elab_Command_elabVariable___closed__1;
lean_object* l_Lean_Syntax_getId(lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_Elab_Command_expandDeclId___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_adaptExpander(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_Lean_Elab_Term_12__elabUsingElabFnsAux___main___closed__3;
lean_object* lean_name_mk_string(lean_object*, lean_object*);
lean_object* l_Lean_Elab_expandDeclId___at_Lean_Elab_Command_expandDeclId___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_KVMap_insertCore___main(lean_object*, lean_object*, lean_object*);
@ -440,7 +441,6 @@ lean_object* l_Lean_Elab_Command_getMainModule___rarg___boxed(lean_object*, lean
extern lean_object* l_Lean_Elab_addMacroStack___rarg___lambda__1___closed__3;
lean_object* l_Lean_Meta_inferType___at_Lean_Elab_Term_throwTypeMismatchError___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_CommandElabM_monadLog;
lean_object* l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_17__elabImplicitLambdaAux___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_addUnivLevel(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_head_x21___at_Lean_Elab_Command_Lean_MonadOptions___spec__1___boxed(lean_object*);
lean_object* l_Lean_Elab_Command_Lean_MonadRecDepth___lambda__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -522,6 +522,7 @@ lean_object* l_Std_PersistentHashMap_findAtAux___main___at_Lean_Elab_Command_ela
uint8_t l___private_Lean_Elab_Command_12__checkAnonymousScope(lean_object*);
lean_object* l_Lean_Elab_Command_elbChoice___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabNamespace(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_19__elabImplicitLambdaAux___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_getMainModule___rarg(lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Elab_Command_elabOpen(lean_object*);
lean_object* l_Lean_Elab_Command_resolveNamespace___closed__3;
@ -546,7 +547,6 @@ extern lean_object* l_Lean_Elab_abortExceptionId;
lean_object* l_Lean_Elab_Command_elabOpenHiding___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_getOpenDecls(lean_object*);
extern lean_object* l_Lean_mkAppStx___closed__9;
extern lean_object* l___private_Lean_Elab_Term_10__elabUsingElabFnsAux___main___closed__3;
lean_object* l___private_Lean_Elab_Command_4__getVarDecls(lean_object*);
lean_object* l_Array_iterateMAux___main___at___private_Lean_Elab_Command_8__addTraceAsMessages___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_liftCoreM(lean_object*);
@ -589,7 +589,6 @@ lean_object* l_Lean_Elab_Command_failIfSucceeds___closed__3;
lean_object* l_Lean_Elab_Command_logUnknownDecl___closed__2;
lean_object* l___regBuiltin_Lean_Elab_Command_elabEval(lean_object*);
lean_object* l_Lean_Elab_Command_mkCommandElabAttribute(lean_object*);
lean_object* l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_18__elabImplicitLambda___main___spec__1___rarg(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabEvalUnsafe___lambda__4___closed__2;
lean_object* l_Array_foldlStepMAux___main___at_Lean_Elab_Command_elabOpenRenaming___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -604,6 +603,7 @@ lean_object* l_Lean_Elab_Command_elabEvalUnsafe___closed__3;
extern lean_object* l_Lean_Elab_mkDeclName___rarg___closed__3;
lean_object* l_Lean_Elab_Command_withLogging___closed__3;
lean_object* l___regBuiltin_Lean_Elab_Command_elabVariables(lean_object*);
extern lean_object* l___private_Lean_Elab_Term_5__tryCoe___closed__3;
lean_object* l_Lean_Elab_Command_MonadIO___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Syntax_asNode(lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_Elab_Command_elabExport___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -648,6 +648,7 @@ lean_object* l_Lean_Elab_Command_elabEnd___closed__7;
lean_object* l_Lean_Elab_Command_elabOpenRenaming___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_failIfSucceeds___closed__5;
lean_object* l_Lean_Elab_Command_elabOpenOnly___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_20__elabImplicitLambda___main___spec__1___rarg(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_applyVisibility___at_Lean_Elab_Command_expandDeclId___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_throwError___at_Lean_Elab_Term_throwErrorIfErrors___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabSynth___closed__3;
@ -687,7 +688,6 @@ uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
lean_object* l_Lean_addAndCompile___at_Lean_Elab_Command_elabEvalUnsafe___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_getRef___boxed(lean_object*, lean_object*, lean_object*);
lean_object* lean_add_decl(lean_object*, lean_object*);
extern lean_object* l_Lean_Elab_Term_tryCoe___closed__3;
lean_object* _init_l_Lean_Elab_Command_Scope_inhabited___closed__1() {
_start:
{
@ -3162,7 +3162,7 @@ x_10 = lean_unsigned_to_nat(2u);
x_11 = lean_alloc_ctor(8, 2, 0);
lean_ctor_set(x_11, 0, x_10);
lean_ctor_set(x_11, 1, x_9);
x_12 = l___private_Lean_Elab_Term_10__elabUsingElabFnsAux___main___closed__3;
x_12 = l___private_Lean_Elab_Term_12__elabUsingElabFnsAux___main___closed__3;
x_13 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_13, 0, x_12);
lean_ctor_set(x_13, 1, x_11);
@ -5342,11 +5342,11 @@ x_87 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_87, 0, x_86);
x_88 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_88, 0, x_87);
x_89 = l___private_Lean_Elab_Term_11__elabUsingElabFns___closed__3;
x_89 = l___private_Lean_Elab_Term_13__elabUsingElabFns___closed__3;
x_90 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_90, 0, x_89);
lean_ctor_set(x_90, 1, x_88);
x_91 = l___private_Lean_Elab_Term_11__elabUsingElabFns___closed__6;
x_91 = l___private_Lean_Elab_Term_13__elabUsingElabFns___closed__6;
x_92 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_92, 0, x_90);
lean_ctor_set(x_92, 1, x_91);
@ -5950,11 +5950,11 @@ x_246 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_246, 0, x_245);
x_247 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_247, 0, x_246);
x_248 = l___private_Lean_Elab_Term_11__elabUsingElabFns___closed__3;
x_248 = l___private_Lean_Elab_Term_13__elabUsingElabFns___closed__3;
x_249 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_249, 0, x_248);
lean_ctor_set(x_249, 1, x_247);
x_250 = l___private_Lean_Elab_Term_11__elabUsingElabFns___closed__6;
x_250 = l___private_Lean_Elab_Term_13__elabUsingElabFns___closed__6;
x_251 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_251, 0, x_249);
lean_ctor_set(x_251, 1, x_250);
@ -6659,11 +6659,11 @@ x_425 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_425, 0, x_424);
x_426 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_426, 0, x_425);
x_427 = l___private_Lean_Elab_Term_11__elabUsingElabFns___closed__3;
x_427 = l___private_Lean_Elab_Term_13__elabUsingElabFns___closed__3;
x_428 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_428, 0, x_427);
lean_ctor_set(x_428, 1, x_426);
x_429 = l___private_Lean_Elab_Term_11__elabUsingElabFns___closed__6;
x_429 = l___private_Lean_Elab_Term_13__elabUsingElabFns___closed__6;
x_430 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_430, 0, x_428);
lean_ctor_set(x_430, 1, x_429);
@ -15278,7 +15278,7 @@ lean_inc(x_10);
lean_inc(x_9);
lean_inc(x_8);
lean_inc(x_7);
x_28 = l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_6__isMonad_x3f___spec__1(x_25, x_27, x_5, x_6, x_7, x_8, x_9, x_10, x_23);
x_28 = l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_7__isMonad_x3f___spec__1(x_25, x_27, x_5, x_6, x_7, x_8, x_9, x_10, x_23);
if (lean_obj_tag(x_28) == 0)
{
lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35;
@ -15747,7 +15747,7 @@ _start:
lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18;
x_12 = l_Lean_Elab_Command_elabEvalUnsafe___lambda__2___closed__1;
x_13 = lean_name_mk_string(x_1, x_12);
x_14 = l_Lean_Elab_Term_tryCoe___closed__3;
x_14 = l___private_Lean_Elab_Term_5__tryCoe___closed__3;
lean_inc(x_2);
x_15 = lean_array_push(x_14, x_2);
lean_inc(x_4);
@ -15757,7 +15757,7 @@ lean_inc(x_10);
lean_inc(x_9);
lean_inc(x_8);
lean_inc(x_7);
x_18 = l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_6__isMonad_x3f___spec__1(x_13, x_17, x_5, x_6, x_7, x_8, x_9, x_10, x_11);
x_18 = l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_7__isMonad_x3f___spec__1(x_13, x_17, x_5, x_6, x_7, x_8, x_9, x_10, x_11);
if (lean_obj_tag(x_18) == 0)
{
lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24;
@ -15769,7 +15769,7 @@ lean_dec(x_18);
x_21 = l_Lean_mkAppStx___closed__9;
x_22 = lean_array_push(x_21, x_2);
x_23 = lean_array_push(x_22, x_4);
x_24 = l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_17__elabImplicitLambdaAux___spec__1(x_23, x_19, x_5, x_6, x_7, x_8, x_9, x_10, x_20);
x_24 = l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_19__elabImplicitLambdaAux___spec__1(x_23, x_19, x_5, x_6, x_7, x_8, x_9, x_10, x_20);
lean_dec(x_10);
lean_dec(x_9);
lean_dec(x_8);
@ -15845,7 +15845,7 @@ lean_closure_set(x_15, 1, x_4);
lean_closure_set(x_15, 2, x_3);
x_16 = l_Lean_Elab_Command_elabEvalUnsafe___lambda__3___closed__2;
x_17 = 0;
x_18 = l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_18__elabImplicitLambda___main___spec__1___rarg(x_16, x_17, x_14, x_15, x_5, x_6, x_7, x_8, x_9, x_10, x_11);
x_18 = l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_20__elabImplicitLambda___main___spec__1___rarg(x_16, x_17, x_14, x_15, x_5, x_6, x_7, x_8, x_9, x_10, x_11);
return x_18;
}
}
@ -15932,7 +15932,7 @@ lean_inc(x_8);
lean_inc(x_7);
lean_inc(x_6);
lean_inc(x_5);
x_30 = l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_18__elabImplicitLambda___main___spec__1___rarg(x_28, x_29, x_26, x_27, x_5, x_6, x_7, x_8, x_9, x_10, x_22);
x_30 = l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_20__elabImplicitLambda___main___spec__1___rarg(x_28, x_29, x_26, x_27, x_5, x_6, x_7, x_8, x_9, x_10, x_22);
if (lean_obj_tag(x_30) == 0)
{
lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38;

4
stage0/stdlib/Lean/Elab/Declaration.c generated
View file

@ -101,6 +101,7 @@ lean_object* l_Lean_Elab_Command_expandMutualPreamble___closed__4;
lean_object* l___regBuiltin_Lean_Elab_Command_expandMutualPreamble(lean_object*);
extern lean_object* l___regBuiltin_Lean_Elab_Command_elabOpen___closed__2;
extern lean_object* l___regBuiltin_Lean_Elab_Command_elabVariables___closed__2;
lean_object* l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Elab_elabModifiers___rarg___lambda__3___closed__2;
lean_object* l_Lean_Syntax_getId(lean_object*);
lean_object* l_Lean_Elab_Command_elabClassInductive(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -148,7 +149,6 @@ uint8_t l___private_Lean_Elab_Declaration_6__isMutualPreambleCommand(lean_object
lean_object* l_Lean_Macro_throwError___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_expandDeclNamespace_x3f___closed__1;
lean_object* l___private_Lean_Elab_Declaration_1__inductiveSyntaxToView(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Elab_macroAttribute;
lean_object* l___regBuiltin_Lean_Elab_Command_expandMutualNamespace___closed__2;
lean_object* l_Lean_Elab_Command_expandDeclNamespace_x3f___closed__2;
@ -1585,7 +1585,7 @@ x_48 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_48, 0, x_47);
x_49 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_49, 0, x_48);
x_50 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_7, x_49, x_9, x_10, x_11, x_12, x_13, x_14, x_41);
x_50 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_7, x_49, x_9, x_10, x_11, x_12, x_13, x_14, x_41);
lean_dec(x_14);
lean_dec(x_12);
lean_dec(x_11);

447
stage0/stdlib/Lean/Elab/Do.c generated
View file

@ -106,7 +106,6 @@ extern lean_object* l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__9;
lean_object* l_Lean_Elab_Term_Do_ToTerm_returnToTermCore___closed__8;
lean_object* l_Lean_Elab_Term_Do_mkFreshJP___closed__1;
lean_object* l_Lean_Elab_Term_Do_mkJmp(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_6__isMonad_x3f___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_st_ref_get(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_Do_mkFreshJP___closed__4;
lean_object* l_Lean_Elab_Term_Do_ToTerm_actionToTermCore___closed__10;
@ -129,8 +128,10 @@ lean_object* l_Lean_Elab_Term_Do_hasContinueBreak___main___boxed(lean_object*);
lean_object* l_Lean_Elab_Term_Do_ToTerm_mkResultUVarTuple___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_Do_ToTerm_actionToTermCore___closed__7;
lean_object* l_Lean_Elab_Term_Do_Code_inhabited;
lean_object* l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_7__isMonad_x3f___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Do_11__mkPUnit___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_Do_ToCodeBlock_doSeqToCode___main___closed__36;
lean_object* l_Lean_Meta_whnf___at___private_Lean_Elab_Term_6__isTypeApp_x3f___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Do_13__mkForInYield___closed__10;
lean_object* lean_array_push(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_Do_elabDo___lambda__1___boxed(lean_object*, lean_object*);
@ -225,7 +226,7 @@ lean_object* l_Lean_Elab_Term_Do_ToTerm_actionToTermCore___closed__8;
lean_object* l_Lean_Elab_Term_Do_ToTerm_declToTermCore___closed__15;
lean_object* l_Lean_throwError___at_Lean_Elab_Term_Do_ToCodeBlock_checkReassignable___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_Match_processInaccessibleAsCtor___closed__1;
lean_object* l_Lean_Elab_Term_elabTermEnsuringType(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_elabTermEnsuringType(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_Do_ToTerm_declToTermCore___closed__18;
lean_object* l_Lean_Elab_throwUnsupportedSyntax___at_Lean_Elab_Term_Do_ToCodeBlock_doSeqToCode___main___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -255,7 +256,6 @@ lean_object* l_Lean_Elab_Term_Do_eraseVars___boxed(lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Do_2__mkIdBindFor___closed__3;
lean_object* l_Lean_Elab_Term_Do_mkUnless___closed__6;
lean_object* l_Lean_Elab_Term_Do_ToTerm_declToTermCore___closed__5;
lean_object* l_Lean_Meta_getDecLevel___at_Lean_Elab_Term_tryLiftAndCoe___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_Do_ToCodeBlock_doSeqToCode___main___closed__25;
lean_object* l_Array_umapMAux___main___at_Lean_Elab_Term_Do_ToTerm_mkJoinPointCore___spec__1___closed__2;
lean_object* l___regBuiltin_Lean_Elab_Term_elabLiftMethod___closed__1;
@ -302,6 +302,7 @@ lean_object* l_Std_RBNode_balRight___rarg(lean_object*, lean_object*, lean_objec
uint8_t l_Std_RBNode_isBlack___rarg(lean_object*);
lean_object* l___private_Lean_Elab_Do_11__mkPUnit(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Do_15__expandLiftMethodAux(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_Do_getDoLetArrowVars___closed__3;
lean_object* l_Lean_Elab_Term_Do_ToTerm_breakToTermCore___closed__12;
lean_object* l_Array_umapMAux___main___at_Lean_Elab_Term_Do_convertReturnIntoJmpAux___main___spec__1(lean_object*, lean_object*, lean_object*);
@ -401,7 +402,6 @@ lean_object* l___private_Lean_Elab_Do_12__mkTuple(lean_object*, lean_object*, le
lean_object* l_Lean_Elab_Term_Do_toMessageDataAux___main___closed__22;
lean_object* l_Lean_throwErrorAt___at_Lean_Elab_Term_Do_ToCodeBlock_toForInTerm___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_Do_ToTerm_declToTermCore___closed__10;
lean_object* l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__2___rarg(lean_object*);
lean_object* l_Array_umapMAux___main___at_Lean_Elab_Term_Do_pullExitPointsAux___main___spec__1___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Std_RBNode_fold___main___at___private_Lean_Elab_Do_6__union___spec__1(lean_object*, lean_object*);
extern lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__12;
@ -456,7 +456,6 @@ uint8_t l_Array_anyRangeMAux___main___at_Lean_Elab_Term_Do_hasContinueBreak___ma
lean_object* l_Lean_Elab_Term_Do_toDoSeq(lean_object*);
extern lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__20;
lean_object* l_Lean_Elab_Term_Do_getDoLetRecVars(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_throwUnsupportedSyntax___at_Lean_Elab_Term_Do_ToCodeBlock_doSeqToCode___main___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_Do_pullExitPoints(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_Elab_Term_Do_getDoLetRecVars___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -476,6 +475,7 @@ lean_object* l_Lean_Elab_Term_Do_ToTerm_mkUVarTuple(lean_object*, lean_object*,
lean_object* l_Lean_Elab_Term_Do_mkUnless___closed__1;
lean_object* l___private_Lean_Elab_Util_5__expandMacro_x3f___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Elab_Term_elabLetDeclCore___closed__6;
lean_object* l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__2___rarg(lean_object*);
lean_object* l_Lean_Elab_Term_Do_ToTerm_reassignToTermCore___closed__8;
lean_object* l_Lean_Elab_Term_Do_toMessageDataAux___main___closed__24;
lean_object* l_Lean_mkApp(lean_object*, lean_object*);
@ -499,7 +499,6 @@ lean_object* l_Lean_Elab_Term_Do_mkAction(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_Do_ToTerm_breakToTerm(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_Elab_Term_Do_toMessageDataAux___main___spec__3___closed__2;
lean_object* l_Lean_Elab_Term_Do_ToTerm_declToTermCore___closed__7;
lean_object* l_Lean_Meta_whnf___at___private_Lean_Elab_Term_5__isTypeApp_x3f___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_elabLiftMethod___closed__2;
lean_object* l_Lean_Elab_Term_Do_ToTerm_breakToTermCore___closed__4;
extern lean_object* l___private_Lean_Elab_Binders_17__expandMatchAltsIntoMatchAux___main___closed__13;
@ -657,6 +656,7 @@ extern lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__17
lean_object* l_List_map___main___at___private_Lean_Elab_Do_7__getDoSeqElems___spec__1(lean_object*);
uint8_t l_Array_anyRangeMAux___main___at___private_Lean_Elab_Do_1__hasLiftMethod___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_umapMAux___main___at_Lean_Elab_Term_Do_extendUpdatedVarsAux___main___spec__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_getDecLevel___at___private_Lean_Elab_Term_9__tryLiftAndCoe___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_Do_ToCodeBlock_doSeqToCode___main___closed__39;
lean_object* l_Lean_Elab_Term_Do_ToTerm_actionToTermCore___closed__5;
lean_object* l_Lean_Elab_Term_Do_getDoLetVars(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -721,7 +721,7 @@ _start:
{
lean_object* x_10; lean_object* x_11;
x_10 = l_Lean_Elab_Term_elabLiftMethod___closed__3;
x_11 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_1, x_10, x_3, x_4, x_5, x_6, x_7, x_8, x_9);
x_11 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_1, x_10, x_3, x_4, x_5, x_6, x_7, x_8, x_9);
return x_11;
}
}
@ -1028,7 +1028,7 @@ _start:
{
lean_object* x_9;
lean_inc(x_1);
x_9 = l_Lean_Meta_getDecLevel___at_Lean_Elab_Term_tryLiftAndCoe___spec__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8);
x_9 = l_Lean_Meta_getDecLevel___at___private_Lean_Elab_Term_9__tryLiftAndCoe___spec__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8);
if (lean_obj_tag(x_9) == 0)
{
uint8_t x_10;
@ -1182,7 +1182,7 @@ lean_ctor_set(x_17, 2, x_14);
lean_inc(x_7);
lean_inc(x_6);
lean_inc(x_5);
x_18 = l_Lean_Meta_whnf___at___private_Lean_Elab_Term_5__isTypeApp_x3f___spec__1(x_12, x_2, x_3, x_17, x_5, x_6, x_7, x_8);
x_18 = l_Lean_Meta_whnf___at___private_Lean_Elab_Term_6__isTypeApp_x3f___spec__1(x_12, x_2, x_3, x_17, x_5, x_6, x_7, x_8);
if (lean_obj_tag(x_18) == 0)
{
lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_44; uint8_t x_45;
@ -1245,7 +1245,7 @@ lean_inc(x_7);
lean_inc(x_6);
lean_inc(x_5);
lean_inc(x_4);
x_27 = l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_6__isMonad_x3f___spec__1(x_26, x_25, x_2, x_3, x_4, x_5, x_6, x_7, x_21);
x_27 = l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_7__isMonad_x3f___spec__1(x_26, x_25, x_2, x_3, x_4, x_5, x_6, x_7, x_21);
if (lean_obj_tag(x_27) == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
@ -1390,7 +1390,7 @@ lean_ctor_set(x_65, 2, x_14);
lean_inc(x_7);
lean_inc(x_6);
lean_inc(x_5);
x_66 = l_Lean_Meta_whnf___at___private_Lean_Elab_Term_5__isTypeApp_x3f___spec__1(x_12, x_2, x_3, x_65, x_5, x_6, x_7, x_8);
x_66 = l_Lean_Meta_whnf___at___private_Lean_Elab_Term_6__isTypeApp_x3f___spec__1(x_12, x_2, x_3, x_65, x_5, x_6, x_7, x_8);
if (lean_obj_tag(x_66) == 0)
{
lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_90; uint8_t x_91;
@ -1455,7 +1455,7 @@ lean_inc(x_7);
lean_inc(x_6);
lean_inc(x_5);
lean_inc(x_4);
x_75 = l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_6__isMonad_x3f___spec__1(x_74, x_73, x_2, x_3, x_4, x_5, x_6, x_7, x_69);
x_75 = l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_7__isMonad_x3f___spec__1(x_74, x_73, x_2, x_3, x_4, x_5, x_6, x_7, x_69);
if (lean_obj_tag(x_75) == 0)
{
lean_object* x_76; lean_object* x_77; lean_object* x_78;
@ -18345,7 +18345,7 @@ x_1425 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_1425, 0, x_1424);
x_1426 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_1426, 0, x_1425);
x_1427 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_1423, x_1426, x_3, x_4, x_5, x_6, x_7, x_8, x_1400);
x_1427 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_1423, x_1426, x_3, x_4, x_5, x_6, x_7, x_8, x_1400);
lean_dec(x_8);
lean_dec(x_6);
lean_dec(x_5);
@ -22521,7 +22521,7 @@ x_2145 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2145, 0, x_2144);
x_2146 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_2146, 0, x_2145);
x_2147 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_2143, x_2146, x_3, x_4, x_5, x_6, x_1444, x_8, x_2123);
x_2147 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_2143, x_2146, x_3, x_4, x_5, x_6, x_1444, x_8, x_2123);
lean_dec(x_8);
lean_dec(x_6);
lean_dec(x_5);
@ -25714,189 +25714,189 @@ lean_inc(x_1);
x_19 = l_Lean_Elab_Term_Do_ToCodeBlock_run(x_1, x_17, x_3, x_4, x_5, x_6, x_7, x_8, x_18);
if (lean_obj_tag(x_19) == 0)
{
lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73;
lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74;
x_20 = lean_ctor_get(x_19, 0);
lean_inc(x_20);
x_21 = lean_ctor_get(x_19, 1);
lean_inc(x_21);
lean_dec(x_19);
x_53 = lean_ctor_get(x_20, 0);
lean_inc(x_53);
x_54 = lean_ctor_get(x_20, 0);
lean_inc(x_54);
lean_dec(x_20);
x_54 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4, x_5, x_6, x_7, x_8, x_21);
x_55 = lean_ctor_get(x_54, 0);
lean_inc(x_55);
x_56 = lean_ctor_get(x_54, 1);
x_55 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4, x_5, x_6, x_7, x_8, x_21);
x_56 = lean_ctor_get(x_55, 0);
lean_inc(x_56);
lean_dec(x_54);
x_57 = lean_st_ref_get(x_8, x_56);
x_58 = lean_ctor_get(x_57, 0);
lean_inc(x_58);
x_59 = lean_ctor_get(x_57, 1);
x_57 = lean_ctor_get(x_55, 1);
lean_inc(x_57);
lean_dec(x_55);
x_58 = lean_st_ref_get(x_8, x_57);
x_59 = lean_ctor_get(x_58, 0);
lean_inc(x_59);
lean_dec(x_57);
x_60 = lean_ctor_get(x_58, 0);
x_60 = lean_ctor_get(x_58, 1);
lean_inc(x_60);
lean_dec(x_58);
x_61 = lean_st_ref_get(x_8, x_59);
x_62 = lean_ctor_get(x_61, 0);
lean_inc(x_62);
x_63 = lean_ctor_get(x_61, 1);
x_61 = lean_ctor_get(x_59, 0);
lean_inc(x_61);
lean_dec(x_59);
x_62 = lean_st_ref_get(x_8, x_60);
x_63 = lean_ctor_get(x_62, 0);
lean_inc(x_63);
lean_dec(x_61);
x_64 = lean_ctor_get(x_62, 1);
lean_inc(x_64);
lean_dec(x_62);
x_65 = lean_ctor_get(x_7, 1);
x_65 = lean_ctor_get(x_63, 1);
lean_inc(x_65);
x_66 = lean_ctor_get(x_7, 2);
lean_dec(x_63);
x_66 = lean_ctor_get(x_7, 1);
lean_inc(x_66);
lean_inc(x_60);
x_67 = lean_alloc_closure((void*)(l___private_Lean_Elab_Util_5__expandMacro_x3f___boxed), 4, 1);
lean_closure_set(x_67, 0, x_60);
x_68 = x_67;
x_69 = lean_environment_main_module(x_60);
x_70 = lean_alloc_ctor(0, 5, 0);
lean_ctor_set(x_70, 0, x_68);
lean_ctor_set(x_70, 1, x_69);
lean_ctor_set(x_70, 2, x_55);
lean_ctor_set(x_70, 3, x_65);
lean_ctor_set(x_70, 4, x_66);
x_71 = l_Array_empty___closed__1;
x_72 = lean_box(0);
x_73 = l_Lean_Elab_Term_Do_ToTerm_run(x_53, x_17, x_71, x_72, x_70, x_64);
if (lean_obj_tag(x_73) == 0)
x_67 = lean_ctor_get(x_7, 2);
lean_inc(x_67);
lean_inc(x_61);
x_68 = lean_alloc_closure((void*)(l___private_Lean_Elab_Util_5__expandMacro_x3f___boxed), 4, 1);
lean_closure_set(x_68, 0, x_61);
x_69 = x_68;
x_70 = lean_environment_main_module(x_61);
x_71 = lean_alloc_ctor(0, 5, 0);
lean_ctor_set(x_71, 0, x_69);
lean_ctor_set(x_71, 1, x_70);
lean_ctor_set(x_71, 2, x_56);
lean_ctor_set(x_71, 3, x_66);
lean_ctor_set(x_71, 4, x_67);
x_72 = l_Array_empty___closed__1;
x_73 = lean_box(0);
x_74 = l_Lean_Elab_Term_Do_ToTerm_run(x_54, x_17, x_72, x_73, x_71, x_65);
if (lean_obj_tag(x_74) == 0)
{
lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; uint8_t x_79;
x_74 = lean_ctor_get(x_73, 0);
lean_inc(x_74);
x_75 = lean_ctor_get(x_73, 1);
lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; uint8_t x_80;
x_75 = lean_ctor_get(x_74, 0);
lean_inc(x_75);
lean_dec(x_73);
x_76 = lean_st_ref_take(x_8, x_63);
x_77 = lean_ctor_get(x_76, 0);
lean_inc(x_77);
x_78 = lean_ctor_get(x_76, 1);
x_76 = lean_ctor_get(x_74, 1);
lean_inc(x_76);
lean_dec(x_74);
x_77 = lean_st_ref_take(x_8, x_64);
x_78 = lean_ctor_get(x_77, 0);
lean_inc(x_78);
lean_dec(x_76);
x_79 = !lean_is_exclusive(x_77);
if (x_79 == 0)
x_79 = lean_ctor_get(x_77, 1);
lean_inc(x_79);
lean_dec(x_77);
x_80 = !lean_is_exclusive(x_78);
if (x_80 == 0)
{
lean_object* x_80; lean_object* x_81; lean_object* x_82;
x_80 = lean_ctor_get(x_77, 1);
lean_dec(x_80);
lean_ctor_set(x_77, 1, x_75);
x_81 = lean_st_ref_set(x_8, x_77, x_78);
x_82 = lean_ctor_get(x_81, 1);
lean_inc(x_82);
lean_object* x_81; lean_object* x_82; lean_object* x_83;
x_81 = lean_ctor_get(x_78, 1);
lean_dec(x_81);
x_22 = x_74;
x_23 = x_82;
goto block_52;
lean_ctor_set(x_78, 1, x_76);
x_82 = lean_st_ref_set(x_8, x_78, x_79);
x_83 = lean_ctor_get(x_82, 1);
lean_inc(x_83);
lean_dec(x_82);
x_22 = x_75;
x_23 = x_83;
goto block_53;
}
else
{
lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88;
x_83 = lean_ctor_get(x_77, 0);
x_84 = lean_ctor_get(x_77, 2);
x_85 = lean_ctor_get(x_77, 3);
lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89;
x_84 = lean_ctor_get(x_78, 0);
x_85 = lean_ctor_get(x_78, 2);
x_86 = lean_ctor_get(x_78, 3);
lean_inc(x_86);
lean_inc(x_85);
lean_inc(x_84);
lean_inc(x_83);
lean_dec(x_77);
x_86 = lean_alloc_ctor(0, 4, 0);
lean_ctor_set(x_86, 0, x_83);
lean_ctor_set(x_86, 1, x_75);
lean_ctor_set(x_86, 2, x_84);
lean_ctor_set(x_86, 3, x_85);
x_87 = lean_st_ref_set(x_8, x_86, x_78);
x_88 = lean_ctor_get(x_87, 1);
lean_inc(x_88);
lean_dec(x_87);
x_22 = x_74;
x_23 = x_88;
goto block_52;
lean_dec(x_78);
x_87 = lean_alloc_ctor(0, 4, 0);
lean_ctor_set(x_87, 0, x_84);
lean_ctor_set(x_87, 1, x_76);
lean_ctor_set(x_87, 2, x_85);
lean_ctor_set(x_87, 3, x_86);
x_88 = lean_st_ref_set(x_8, x_87, x_79);
x_89 = lean_ctor_get(x_88, 1);
lean_inc(x_89);
lean_dec(x_88);
x_22 = x_75;
x_23 = x_89;
goto block_53;
}
}
else
{
lean_object* x_89;
lean_object* x_90;
lean_dec(x_15);
lean_dec(x_13);
lean_dec(x_1);
x_89 = lean_ctor_get(x_73, 0);
lean_inc(x_89);
lean_dec(x_73);
if (lean_obj_tag(x_89) == 0)
{
lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; uint8_t x_95;
x_90 = lean_ctor_get(x_89, 0);
x_90 = lean_ctor_get(x_74, 0);
lean_inc(x_90);
x_91 = lean_ctor_get(x_89, 1);
lean_dec(x_74);
if (lean_obj_tag(x_90) == 0)
{
lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; uint8_t x_96;
x_91 = lean_ctor_get(x_90, 0);
lean_inc(x_91);
lean_dec(x_89);
x_92 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_92, 0, x_91);
x_93 = lean_alloc_ctor(0, 1, 0);
x_92 = lean_ctor_get(x_90, 1);
lean_inc(x_92);
lean_dec(x_90);
x_93 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_93, 0, x_92);
x_94 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_90, x_93, x_3, x_4, x_5, x_6, x_7, x_8, x_63);
x_94 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_94, 0, x_93);
x_95 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_91, x_94, x_3, x_4, x_5, x_6, x_7, x_8, x_64);
lean_dec(x_8);
lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_90);
x_95 = !lean_is_exclusive(x_94);
if (x_95 == 0)
lean_dec(x_91);
x_96 = !lean_is_exclusive(x_95);
if (x_96 == 0)
{
return x_94;
return x_95;
}
else
{
lean_object* x_96; lean_object* x_97; lean_object* x_98;
x_96 = lean_ctor_get(x_94, 0);
x_97 = lean_ctor_get(x_94, 1);
lean_object* x_97; lean_object* x_98; lean_object* x_99;
x_97 = lean_ctor_get(x_95, 0);
x_98 = lean_ctor_get(x_95, 1);
lean_inc(x_98);
lean_inc(x_97);
lean_inc(x_96);
lean_dec(x_94);
x_98 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_98, 0, x_96);
lean_ctor_set(x_98, 1, x_97);
return x_98;
lean_dec(x_95);
x_99 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_99, 0, x_97);
lean_ctor_set(x_99, 1, x_98);
return x_99;
}
}
else
{
lean_object* x_99; uint8_t x_100;
lean_object* x_100; uint8_t x_101;
lean_dec(x_8);
lean_dec(x_7);
lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
x_99 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__2___rarg(x_63);
x_100 = !lean_is_exclusive(x_99);
if (x_100 == 0)
x_100 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__2___rarg(x_64);
x_101 = !lean_is_exclusive(x_100);
if (x_101 == 0)
{
return x_99;
return x_100;
}
else
{
lean_object* x_101; lean_object* x_102; lean_object* x_103;
x_101 = lean_ctor_get(x_99, 0);
x_102 = lean_ctor_get(x_99, 1);
lean_object* x_102; lean_object* x_103; lean_object* x_104;
x_102 = lean_ctor_get(x_100, 0);
x_103 = lean_ctor_get(x_100, 1);
lean_inc(x_103);
lean_inc(x_102);
lean_inc(x_101);
lean_dec(x_99);
x_103 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_103, 0, x_101);
lean_ctor_set(x_103, 1, x_102);
return x_103;
lean_dec(x_100);
x_104 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_104, 0, x_102);
lean_ctor_set(x_104, 1, x_103);
return x_104;
}
}
}
block_52:
block_53:
{
lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; uint8_t x_31;
lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; uint8_t x_32;
lean_inc(x_22);
x_24 = lean_alloc_closure((void*)(l_Lean_Elab_Term_Do_elabDo___lambda__1___boxed), 2, 1);
lean_closure_set(x_24, 0, x_22);
@ -25911,36 +25911,38 @@ lean_dec(x_13);
x_29 = l_Lean_mkApp(x_15, x_28);
x_30 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_30, 0, x_29);
x_31 = !lean_is_exclusive(x_3);
if (x_31 == 0)
x_31 = lean_box(0);
x_32 = !lean_is_exclusive(x_3);
if (x_32 == 0)
{
lean_object* x_32; lean_object* x_33; lean_object* x_34; uint8_t x_35; lean_object* x_36;
x_32 = lean_ctor_get(x_3, 6);
lean_object* x_33; lean_object* x_34; lean_object* x_35; uint8_t x_36; lean_object* x_37;
x_33 = lean_ctor_get(x_3, 6);
lean_inc(x_22);
x_33 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_33, 0, x_1);
lean_ctor_set(x_33, 1, x_22);
x_34 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_34, 0, x_33);
lean_ctor_set(x_34, 1, x_32);
lean_ctor_set(x_3, 6, x_34);
x_35 = 1;
x_36 = l_Lean_Elab_Term_elabTermEnsuringType(x_22, x_30, x_35, x_3, x_4, x_5, x_6, x_7, x_8, x_27);
return x_36;
x_34 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_34, 0, x_1);
lean_ctor_set(x_34, 1, x_22);
x_35 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_35, 0, x_34);
lean_ctor_set(x_35, 1, x_33);
lean_ctor_set(x_3, 6, x_35);
x_36 = 1;
x_37 = l_Lean_Elab_Term_elabTermEnsuringType(x_22, x_30, x_36, x_31, x_3, x_4, x_5, x_6, x_7, x_8, x_27);
return x_37;
}
else
{
lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; uint8_t x_45; uint8_t x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; uint8_t x_50; lean_object* x_51;
x_37 = lean_ctor_get(x_3, 0);
x_38 = lean_ctor_get(x_3, 1);
x_39 = lean_ctor_get(x_3, 2);
x_40 = lean_ctor_get(x_3, 3);
x_41 = lean_ctor_get(x_3, 4);
x_42 = lean_ctor_get(x_3, 5);
x_43 = lean_ctor_get(x_3, 6);
x_44 = lean_ctor_get(x_3, 7);
x_45 = lean_ctor_get_uint8(x_3, sizeof(void*)*8);
x_46 = lean_ctor_get_uint8(x_3, sizeof(void*)*8 + 1);
lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; uint8_t x_46; uint8_t x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; uint8_t x_51; lean_object* x_52;
x_38 = lean_ctor_get(x_3, 0);
x_39 = lean_ctor_get(x_3, 1);
x_40 = lean_ctor_get(x_3, 2);
x_41 = lean_ctor_get(x_3, 3);
x_42 = lean_ctor_get(x_3, 4);
x_43 = lean_ctor_get(x_3, 5);
x_44 = lean_ctor_get(x_3, 6);
x_45 = lean_ctor_get(x_3, 7);
x_46 = lean_ctor_get_uint8(x_3, sizeof(void*)*8);
x_47 = lean_ctor_get_uint8(x_3, sizeof(void*)*8 + 1);
lean_inc(x_45);
lean_inc(x_44);
lean_inc(x_43);
lean_inc(x_42);
@ -25948,35 +25950,34 @@ lean_inc(x_41);
lean_inc(x_40);
lean_inc(x_39);
lean_inc(x_38);
lean_inc(x_37);
lean_dec(x_3);
lean_inc(x_22);
x_47 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_47, 0, x_1);
lean_ctor_set(x_47, 1, x_22);
x_48 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_48, 0, x_47);
lean_ctor_set(x_48, 1, x_43);
x_49 = lean_alloc_ctor(0, 8, 2);
lean_ctor_set(x_49, 0, x_37);
lean_ctor_set(x_49, 1, x_38);
lean_ctor_set(x_49, 2, x_39);
lean_ctor_set(x_49, 3, x_40);
lean_ctor_set(x_49, 4, x_41);
lean_ctor_set(x_49, 5, x_42);
lean_ctor_set(x_49, 6, x_48);
lean_ctor_set(x_49, 7, x_44);
lean_ctor_set_uint8(x_49, sizeof(void*)*8, x_45);
lean_ctor_set_uint8(x_49, sizeof(void*)*8 + 1, x_46);
x_50 = 1;
x_51 = l_Lean_Elab_Term_elabTermEnsuringType(x_22, x_30, x_50, x_49, x_4, x_5, x_6, x_7, x_8, x_27);
return x_51;
x_48 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_48, 0, x_1);
lean_ctor_set(x_48, 1, x_22);
x_49 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_49, 0, x_48);
lean_ctor_set(x_49, 1, x_44);
x_50 = lean_alloc_ctor(0, 8, 2);
lean_ctor_set(x_50, 0, x_38);
lean_ctor_set(x_50, 1, x_39);
lean_ctor_set(x_50, 2, x_40);
lean_ctor_set(x_50, 3, x_41);
lean_ctor_set(x_50, 4, x_42);
lean_ctor_set(x_50, 5, x_43);
lean_ctor_set(x_50, 6, x_49);
lean_ctor_set(x_50, 7, x_45);
lean_ctor_set_uint8(x_50, sizeof(void*)*8, x_46);
lean_ctor_set_uint8(x_50, sizeof(void*)*8 + 1, x_47);
x_51 = 1;
x_52 = l_Lean_Elab_Term_elabTermEnsuringType(x_22, x_30, x_51, x_31, x_50, x_4, x_5, x_6, x_7, x_8, x_27);
return x_52;
}
}
}
else
{
uint8_t x_104;
uint8_t x_105;
lean_dec(x_17);
lean_dec(x_15);
lean_dec(x_13);
@ -25987,29 +25988,29 @@ lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_1);
x_104 = !lean_is_exclusive(x_19);
if (x_104 == 0)
x_105 = !lean_is_exclusive(x_19);
if (x_105 == 0)
{
return x_19;
}
else
{
lean_object* x_105; lean_object* x_106; lean_object* x_107;
x_105 = lean_ctor_get(x_19, 0);
x_106 = lean_ctor_get(x_19, 1);
lean_object* x_106; lean_object* x_107; lean_object* x_108;
x_106 = lean_ctor_get(x_19, 0);
x_107 = lean_ctor_get(x_19, 1);
lean_inc(x_107);
lean_inc(x_106);
lean_inc(x_105);
lean_dec(x_19);
x_107 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_107, 0, x_105);
lean_ctor_set(x_107, 1, x_106);
return x_107;
x_108 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_108, 0, x_106);
lean_ctor_set(x_108, 1, x_107);
return x_108;
}
}
}
else
{
uint8_t x_108;
uint8_t x_109;
lean_dec(x_15);
lean_dec(x_13);
lean_dec(x_8);
@ -26019,29 +26020,29 @@ lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_1);
x_108 = !lean_is_exclusive(x_16);
if (x_108 == 0)
x_109 = !lean_is_exclusive(x_16);
if (x_109 == 0)
{
return x_16;
}
else
{
lean_object* x_109; lean_object* x_110; lean_object* x_111;
x_109 = lean_ctor_get(x_16, 0);
x_110 = lean_ctor_get(x_16, 1);
lean_object* x_110; lean_object* x_111; lean_object* x_112;
x_110 = lean_ctor_get(x_16, 0);
x_111 = lean_ctor_get(x_16, 1);
lean_inc(x_111);
lean_inc(x_110);
lean_inc(x_109);
lean_dec(x_16);
x_111 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_111, 0, x_109);
lean_ctor_set(x_111, 1, x_110);
return x_111;
x_112 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_112, 0, x_110);
lean_ctor_set(x_112, 1, x_111);
return x_112;
}
}
}
else
{
uint8_t x_112;
uint8_t x_113;
lean_dec(x_8);
lean_dec(x_7);
lean_dec(x_6);
@ -26049,29 +26050,29 @@ lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_1);
x_112 = !lean_is_exclusive(x_12);
if (x_112 == 0)
x_113 = !lean_is_exclusive(x_12);
if (x_113 == 0)
{
return x_12;
}
else
{
lean_object* x_113; lean_object* x_114; lean_object* x_115;
x_113 = lean_ctor_get(x_12, 0);
x_114 = lean_ctor_get(x_12, 1);
lean_object* x_114; lean_object* x_115; lean_object* x_116;
x_114 = lean_ctor_get(x_12, 0);
x_115 = lean_ctor_get(x_12, 1);
lean_inc(x_115);
lean_inc(x_114);
lean_inc(x_113);
lean_dec(x_12);
x_115 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_115, 0, x_113);
lean_ctor_set(x_115, 1, x_114);
return x_115;
x_116 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_116, 0, x_114);
lean_ctor_set(x_116, 1, x_115);
return x_116;
}
}
}
else
{
uint8_t x_116;
uint8_t x_117;
lean_dec(x_8);
lean_dec(x_7);
lean_dec(x_6);
@ -26080,23 +26081,23 @@ lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_116 = !lean_is_exclusive(x_10);
if (x_116 == 0)
x_117 = !lean_is_exclusive(x_10);
if (x_117 == 0)
{
return x_10;
}
else
{
lean_object* x_117; lean_object* x_118; lean_object* x_119;
x_117 = lean_ctor_get(x_10, 0);
x_118 = lean_ctor_get(x_10, 1);
lean_object* x_118; lean_object* x_119; lean_object* x_120;
x_118 = lean_ctor_get(x_10, 0);
x_119 = lean_ctor_get(x_10, 1);
lean_inc(x_119);
lean_inc(x_118);
lean_inc(x_117);
lean_dec(x_10);
x_119 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_119, 0, x_117);
lean_ctor_set(x_119, 1, x_118);
return x_119;
x_120 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_120, 0, x_118);
lean_ctor_set(x_120, 1, x_119);
return x_120;
}
}
}

18
stage0/stdlib/Lean/Elab/Inductive.c generated
View file

@ -218,6 +218,7 @@ lean_object* l_Lean_Elab_Command_ElabHeaderResult_inhabited___closed__1;
lean_object* l_Lean_Elab_Command_checkValidCtorModifier___closed__11;
lean_object* lean_mk_brec_on(lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Inductive_22__collectUniverses(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Inductive_1__elabHeaderAux___main___lambda__1___closed__3;
lean_object* lean_st_mk_ref(lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Inductive_23__updateResultingUniverse___closed__2;
@ -311,7 +312,6 @@ lean_object* l___private_Lean_Elab_Inductive_29__collectLevelParamsInInductive__
lean_object* l___private_Lean_Elab_Inductive_4__checkLevelNames(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_forallTelescopeReducing___at_Lean_Meta_getParamNamesImp___spec__3___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_forallBoundedTelescope___at___private_Lean_Elab_Inductive_31__replaceIndFVarsWithConsts___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_mapM___main___at___private_Lean_Elab_Inductive_16__elabCtors___spec__2___lambda__1___closed__3;
lean_object* l_Std_HashMapImp_find_x3f___at___private_Lean_MetavarContext_2__visit___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_mkLevelSucc(lean_object*);
@ -395,7 +395,6 @@ lean_object* l_Lean_Elab_Command_checkValidCtorModifier___closed__3;
lean_object* l_List_mapM___main___at___private_Lean_Elab_Inductive_31__replaceIndFVarsWithConsts___spec__3___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Inductive_20__collectUniversesFromCtorTypeAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_isTypeFormerType___at___private_Lean_Elab_Inductive_1__elabHeaderAux___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_18__elabImplicitLambda___main___spec__1___rarg(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Inductive_25__collectUsed___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_checkValidCtorModifier___closed__5;
lean_object* l_Lean_Meta_mkFreshLevelMVar___at_Lean_Elab_Term_ensureType___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
@ -426,6 +425,7 @@ lean_object* l_Lean_Meta_forallBoundedTelescope___at___private_Lean_Elab_Inducti
lean_object* l___private_Lean_Elab_Inductive_35__mkInductiveDecl___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t lean_level_eq(lean_object*, lean_object*);
lean_object* l_Lean_indentExpr(lean_object*);
lean_object* l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_20__elabImplicitLambda___main___spec__1___rarg(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_throwError___at_Lean_Elab_Term_throwErrorIfErrors___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Inductive_35__mkInductiveDecl(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_checkValidInductiveModifier(lean_object*, lean_object*, lean_object*, lean_object*);
@ -1194,7 +1194,7 @@ x_39 = lean_ctor_get(x_36, 1);
lean_inc(x_39);
lean_dec(x_36);
x_40 = l___private_Lean_Elab_Inductive_1__elabHeaderAux___main___lambda__1___closed__3;
x_41 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_30, x_40, x_6, x_7, x_8, x_9, x_10, x_11, x_39);
x_41 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_30, x_40, x_6, x_7, x_8, x_9, x_10, x_11, x_39);
lean_dec(x_11);
lean_dec(x_9);
lean_dec(x_8);
@ -1451,7 +1451,7 @@ x_20 = lean_ctor_get(x_19, 0);
lean_inc(x_20);
lean_dec(x_19);
x_21 = l_Array_forMAux___main___at___private_Lean_Elab_Inductive_2__checkNumParams___spec__1___closed__3;
x_22 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_20, x_21, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
x_22 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_20, x_21, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
lean_dec(x_20);
x_23 = !lean_is_exclusive(x_22);
if (x_23 == 0)
@ -1676,7 +1676,7 @@ x_20 = lean_ctor_get(x_16, 0);
lean_inc(x_20);
lean_dec(x_16);
x_21 = l_Array_forMAux___main___at___private_Lean_Elab_Inductive_3__checkUnsafe___spec__1___closed__3;
x_22 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_20, x_21, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
x_22 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_20, x_21, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
lean_dec(x_20);
x_23 = !lean_is_exclusive(x_22);
if (x_23 == 0)
@ -1821,7 +1821,7 @@ x_18 = lean_ctor_get(x_15, 0);
lean_inc(x_18);
lean_dec(x_15);
x_19 = l_Array_forMAux___main___at___private_Lean_Elab_Inductive_4__checkLevelNames___spec__1___closed__3;
x_20 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_18, x_19, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
x_20 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_18, x_19, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
lean_dec(x_18);
x_21 = !lean_is_exclusive(x_20);
if (x_21 == 0)
@ -3277,7 +3277,7 @@ lean_closure_set(x_19, 2, x_1);
lean_closure_set(x_19, 3, x_2);
lean_closure_set(x_19, 4, x_3);
x_20 = 0;
x_21 = l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_18__elabImplicitLambda___main___spec__1___rarg(x_17, x_20, x_18, x_19, x_6, x_7, x_8, x_9, x_10, x_11, x_12);
x_21 = l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_20__elabImplicitLambda___main___spec__1___rarg(x_17, x_20, x_18, x_19, x_6, x_7, x_8, x_9, x_10, x_11, x_12);
return x_21;
}
}
@ -6759,7 +6759,7 @@ lean_closure_set(x_22, 1, x_1);
lean_closure_set(x_22, 2, x_2);
lean_closure_set(x_22, 3, x_20);
lean_closure_set(x_22, 4, x_5);
x_23 = l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_18__elabImplicitLambda___main___spec__1___rarg(x_15, x_21, x_16, x_22, x_6, x_7, x_8, x_9, x_10, x_11, x_12);
x_23 = l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_20__elabImplicitLambda___main___spec__1___rarg(x_15, x_21, x_16, x_22, x_6, x_7, x_8, x_9, x_10, x_11, x_12);
return x_23;
}
else
@ -6850,7 +6850,7 @@ lean_closure_set(x_42, 0, x_27);
lean_closure_set(x_42, 1, x_1);
lean_closure_set(x_42, 2, x_2);
lean_closure_set(x_42, 3, x_40);
x_43 = l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_18__elabImplicitLambda___main___spec__1___rarg(x_25, x_41, x_26, x_42, x_6, x_7, x_8, x_9, x_10, x_11, x_34);
x_43 = l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_20__elabImplicitLambda___main___spec__1___rarg(x_25, x_41, x_26, x_42, x_6, x_7, x_8, x_9, x_10, x_11, x_34);
return x_43;
}
}

121
stage0/stdlib/Lean/Elab/LetRec.c generated
View file

@ -49,7 +49,7 @@ lean_object* l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_LetRec_
lean_object* l___private_Lean_Elab_LetRec_5__abortIfContainsSyntheticSorry___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_LetRec_3__withAuxLocalDecls(lean_object*);
lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_LetRec_1__mkLetRecDeclView___spec__7___closed__1;
lean_object* l_Lean_Elab_Term_elabTermEnsuringType(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_elabTermEnsuringType(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
lean_object* l_Lean_Meta_getLocalInstances___at_Lean_Elab_Term_elabBinders___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -67,7 +67,7 @@ lean_object* l_Lean_Expr_fvarId_x21(lean_object*);
lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_LetRec_6__registerLetRecsToLift___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_getConstInfo___rarg___lambda__1___closed__5;
lean_object* l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_17__elabImplicitLambdaAux___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Expr_hasSyntheticSorry___main(lean_object*);
lean_object* lean_name_mk_string(lean_object*, lean_object*);
lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_LetRec_1__mkLetRecDeclView___spec__7___lambda__1___closed__3;
@ -79,20 +79,18 @@ extern lean_object* l_Lean_mkAppStx___closed__6;
lean_object* l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_LetRec_1__mkLetRecDeclView___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_elabAttr___at___private_Lean_Elab_LetRec_1__mkLetRecDeclView___spec__5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_LetRec_1__mkLetRecDeclView___spec__7___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_elabTermEnsuringType___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_elabTermEnsuringType___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_ReaderT_bind___at_Lean_Elab_Term_monadLog___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Meta_Basic_21__forallBoundedTelescopeImp___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_elabDeclAttrs___at___private_Lean_Elab_LetRec_1__mkLetRecDeclView___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_LetRec_2__withAuxLocalDeclsAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_LetRec_1__mkLetRecDeclView___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Elab_Term_termElabAttribute;
lean_object* l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_17__elabImplicitLambdaAux___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_elabAttr___at___private_Lean_Elab_LetRec_1__mkLetRecDeclView___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Syntax_isIdOrAtom_x3f(lean_object*);
extern lean_object* l_Lean_Elab_elabAttr___rarg___closed__3;
uint8_t l_Lean_isAttribute(lean_object*, lean_object*);
lean_object* l_Lean_Syntax_getNumArgs(lean_object*);
lean_object* l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_forallBoundedTelescope___at___private_Lean_Elab_LetRec_4__elabLetRecDeclValues___spec__1(lean_object*);
lean_object* lean_environment_main_module(lean_object*);
lean_object* l___regBuiltin_Lean_Elab_Term_elabLetRec(lean_object*);
@ -106,6 +104,7 @@ lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_LetRec_1__mkLetRec
extern lean_object* l_Lean_Elab_checkNotAlreadyDeclared___rarg___lambda__1___closed__3;
lean_object* l___private_Lean_Elab_LetRec_2__withAuxLocalDeclsAux___main___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_withDeclName___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_19__elabImplicitLambdaAux___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_elabType(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_st_ref_set(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Elab_Term_elabLetDeclCore___closed__4;
@ -127,6 +126,7 @@ lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_LetRec_2__withAuxLocalDeclsAux(lean_object*);
extern lean_object* l_Lean_Elab_elabAttr___rarg___lambda__2___closed__3;
lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_19__elabImplicitLambdaAux___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_elabAttrs___at___private_Lean_Elab_LetRec_1__mkLetRecDeclView___spec__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_LetRec_1__mkLetRecDeclView___spec__2___rarg(lean_object*);
lean_object* l___regBuiltin_Lean_Elab_Term_elabLetRec___closed__2;
@ -1609,7 +1609,7 @@ lean_dec(x_26);
lean_dec(x_16);
lean_dec(x_1);
x_133 = l_Array_umapMAux___main___at___private_Lean_Elab_LetRec_1__mkLetRecDeclView___spec__7___closed__3;
x_134 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_30, x_133, x_3, x_4, x_5, x_6, x_7, x_8, x_27);
x_134 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_30, x_133, x_3, x_4, x_5, x_6, x_7, x_8, x_27);
lean_dec(x_8);
lean_dec(x_6);
lean_dec(x_5);
@ -1977,7 +1977,7 @@ return x_2;
lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_LetRec_4__elabLetRecDeclValues___spec__2___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10) {
_start:
{
lean_object* x_11; lean_object* x_12; lean_object* x_13; uint8_t x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19;
lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20;
x_11 = lean_ctor_get(x_1, 3);
lean_inc(x_11);
x_12 = lean_ctor_get(x_1, 7);
@ -1985,19 +1985,21 @@ lean_inc(x_12);
lean_dec(x_1);
x_13 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_13, 0, x_3);
x_14 = 1;
x_15 = lean_box(x_14);
x_16 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabTermEnsuringType___boxed), 10, 3);
lean_closure_set(x_16, 0, x_12);
lean_closure_set(x_16, 1, x_13);
lean_closure_set(x_16, 2, x_15);
x_17 = lean_alloc_closure((void*)(l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_17__elabImplicitLambdaAux___spec__1___boxed), 9, 1);
lean_closure_set(x_17, 0, x_2);
x_18 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Term_monadLog___spec__2___rarg), 9, 2);
lean_closure_set(x_18, 0, x_16);
lean_closure_set(x_18, 1, x_17);
x_19 = l_Lean_Elab_Term_withDeclName___rarg(x_11, x_18, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
return x_19;
x_14 = lean_box(0);
x_15 = 1;
x_16 = lean_box(x_15);
x_17 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabTermEnsuringType___boxed), 11, 4);
lean_closure_set(x_17, 0, x_12);
lean_closure_set(x_17, 1, x_13);
lean_closure_set(x_17, 2, x_16);
lean_closure_set(x_17, 3, x_14);
x_18 = lean_alloc_closure((void*)(l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_19__elabImplicitLambdaAux___spec__1___boxed), 9, 1);
lean_closure_set(x_18, 0, x_2);
x_19 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Term_monadLog___spec__2___rarg), 9, 2);
lean_closure_set(x_19, 0, x_17);
lean_closure_set(x_19, 1, x_18);
x_20 = l_Lean_Elab_Term_withDeclName___rarg(x_11, x_19, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
return x_20;
}
}
lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_LetRec_4__elabLetRecDeclValues___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9) {
@ -2388,7 +2390,7 @@ lean_inc(x_1);
x_12 = l___private_Lean_Elab_LetRec_4__elabLetRecDeclValues(x_1, x_5, x_6, x_7, x_8, x_9, x_10, x_11);
if (lean_obj_tag(x_12) == 0)
{
lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; lean_object* x_17;
lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; uint8_t x_17; lean_object* x_18;
x_13 = lean_ctor_get(x_12, 0);
lean_inc(x_13);
x_14 = lean_ctor_get(x_12, 1);
@ -2397,39 +2399,40 @@ lean_dec(x_12);
x_15 = lean_ctor_get(x_1, 1);
lean_inc(x_15);
lean_dec(x_1);
x_16 = 1;
x_16 = lean_box(0);
x_17 = 1;
lean_inc(x_10);
lean_inc(x_9);
lean_inc(x_8);
lean_inc(x_7);
lean_inc(x_6);
lean_inc(x_5);
x_17 = l_Lean_Elab_Term_elabTermEnsuringType(x_15, x_2, x_16, x_5, x_6, x_7, x_8, x_9, x_10, x_14);
if (lean_obj_tag(x_17) == 0)
x_18 = l_Lean_Elab_Term_elabTermEnsuringType(x_15, x_2, x_17, x_16, x_5, x_6, x_7, x_8, x_9, x_10, x_14);
if (lean_obj_tag(x_18) == 0)
{
lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22;
x_18 = lean_ctor_get(x_17, 0);
lean_inc(x_18);
x_19 = lean_ctor_get(x_17, 1);
lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23;
x_19 = lean_ctor_get(x_18, 0);
lean_inc(x_19);
lean_dec(x_17);
x_20 = lean_ctor_get(x_18, 1);
lean_inc(x_20);
lean_dec(x_18);
lean_inc(x_7);
x_20 = l___private_Lean_Elab_LetRec_6__registerLetRecsToLift(x_3, x_4, x_13, x_5, x_6, x_7, x_8, x_9, x_10, x_19);
x_21 = l___private_Lean_Elab_LetRec_6__registerLetRecsToLift(x_3, x_4, x_13, x_5, x_6, x_7, x_8, x_9, x_10, x_20);
lean_dec(x_13);
x_21 = lean_ctor_get(x_20, 1);
lean_inc(x_21);
lean_dec(x_20);
x_22 = l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_17__elabImplicitLambdaAux___spec__1(x_4, x_18, x_5, x_6, x_7, x_8, x_9, x_10, x_21);
x_22 = lean_ctor_get(x_21, 1);
lean_inc(x_22);
lean_dec(x_21);
x_23 = l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_19__elabImplicitLambdaAux___spec__1(x_4, x_19, x_5, x_6, x_7, x_8, x_9, x_10, x_22);
lean_dec(x_10);
lean_dec(x_9);
lean_dec(x_8);
lean_dec(x_6);
lean_dec(x_5);
return x_22;
return x_23;
}
else
{
uint8_t x_23;
uint8_t x_24;
lean_dec(x_13);
lean_dec(x_10);
lean_dec(x_9);
@ -2439,29 +2442,29 @@ lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
x_23 = !lean_is_exclusive(x_17);
if (x_23 == 0)
x_24 = !lean_is_exclusive(x_18);
if (x_24 == 0)
{
return x_17;
return x_18;
}
else
{
lean_object* x_24; lean_object* x_25; lean_object* x_26;
x_24 = lean_ctor_get(x_17, 0);
x_25 = lean_ctor_get(x_17, 1);
lean_object* x_25; lean_object* x_26; lean_object* x_27;
x_25 = lean_ctor_get(x_18, 0);
x_26 = lean_ctor_get(x_18, 1);
lean_inc(x_26);
lean_inc(x_25);
lean_inc(x_24);
lean_dec(x_17);
x_26 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_26, 0, x_24);
lean_ctor_set(x_26, 1, x_25);
return x_26;
lean_dec(x_18);
x_27 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_27, 0, x_25);
lean_ctor_set(x_27, 1, x_26);
return x_27;
}
}
}
else
{
uint8_t x_27;
uint8_t x_28;
lean_dec(x_10);
lean_dec(x_9);
lean_dec(x_8);
@ -2472,23 +2475,23 @@ lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_27 = !lean_is_exclusive(x_12);
if (x_27 == 0)
x_28 = !lean_is_exclusive(x_12);
if (x_28 == 0)
{
return x_12;
}
else
{
lean_object* x_28; lean_object* x_29; lean_object* x_30;
x_28 = lean_ctor_get(x_12, 0);
x_29 = lean_ctor_get(x_12, 1);
lean_object* x_29; lean_object* x_30; lean_object* x_31;
x_29 = lean_ctor_get(x_12, 0);
x_30 = lean_ctor_get(x_12, 1);
lean_inc(x_30);
lean_inc(x_29);
lean_inc(x_28);
lean_dec(x_12);
x_30 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_30, 0, x_28);
lean_ctor_set(x_30, 1, x_29);
return x_30;
x_31 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_31, 0, x_29);
lean_ctor_set(x_31, 1, x_30);
return x_31;
}
}
}

1243
stage0/stdlib/Lean/Elab/Match.c generated
View file

File diff suppressed because it is too large Load diff

69
stage0/stdlib/Lean/Elab/MutualDef.c generated
View file

@ -171,7 +171,7 @@ lean_object* l_Array_iterateMAux___main___at___private_Lean_Elab_MutualDef_21__m
lean_object* l_Lean_Meta_lambdaTelescope___at___private_Lean_Elab_MutualDef_37__mkLetRecClosureFor___spec__3___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_throwErrorAt___at_Lean_Elab_Command_elabCommand___main___spec__7___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_MutualClosure_insertReplacementForMainFns(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_elabTermEnsuringType(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_elabTermEnsuringType(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
lean_object* l_Lean_Elab_elabModifiers___at_Lean_Elab_Command_elabMutualDef___spec__1___closed__23;
lean_object* l___private_Lean_Elab_MutualDef_25__getUsedFVarsMap(lean_object*);
@ -248,6 +248,7 @@ lean_object* l_Lean_Elab_elabModifiers___at_Lean_Elab_Command_elabMutualDef___sp
lean_object* l_Lean_Elab_elabModifiers___at_Lean_Elab_Command_elabMutualDef___spec__1___closed__15;
lean_object* l_Lean_Elab_Term_MutualClosure_insertReplacementForLetRecs(lean_object*, lean_object*);
lean_object* l_Std_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_logAt___at___private_Lean_Elab_MutualDef_35__mkClosureForAux___main___spec__8___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_MutualDef_4__registerFailedToInferDefTypeInfo___closed__2;
lean_object* l_List_forM___main___at___private_Lean_Elab_MutualDef_20__checkLetRecsToLiftTypes___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -329,7 +330,6 @@ lean_object* l_Lean_Elab_elabModifiers___at_Lean_Elab_Command_elabMutualDef___sp
lean_object* l___private_Lean_Elab_MutualDef_36__mkClosureFor___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Elab_elabModifiers___rarg___closed__3;
lean_object* l_Lean_Elab_Term_MutualClosure_pushMain___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__2___rarg(lean_object*);
lean_object* lean_expr_update_proj(lean_object*, lean_object*);
lean_object* l_Lean_Elab_throwAlreadyDeclaredUniverseLevel___at___private_Lean_Elab_MutualDef_6__elabHeaders___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PersistentEnvExtension_addEntry___rarg(lean_object*, lean_object*, lean_object*);
@ -350,7 +350,6 @@ lean_object* l_Array_umapMAux___main___at_Lean_Elab_Term_MutualClosure_main___sp
lean_object* l___private_Lean_Elab_MutualDef_29__fixpoint___main___boxed(lean_object*);
lean_object* l_Array_umapMAux___main___at_Lean_Elab_Term_MutualClosure_main___spec__8___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_umapMAux___main___at_Lean_Elab_Term_MutualClosure_main___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_17__elabImplicitLambdaAux___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_MutualDef_26__modifyUsedFVars___boxed(lean_object*, lean_object*, lean_object*);
size_t l_USize_mod(size_t, size_t);
lean_object* l_List_foldl___main___at_Lean_Elab_Term_MutualClosure_pushLetRecs___spec__1(uint8_t, lean_object*, lean_object*, lean_object*);
@ -383,7 +382,6 @@ lean_object* l_Lean_Syntax_getNumArgs(lean_object*);
lean_object* l_Array_anyRangeMAux___main___at_Lean_Elab_Term_MutualClosure_getModifiersForLetRecs___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkHole(lean_object*);
lean_object* l_Lean_Elab_elabModifiers___at_Lean_Elab_Command_elabMutualDef___spec__1___closed__6;
lean_object* l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_MutualDef_7__withFunLocalDeclsAux___main___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_MutualDef_21__mkInitialUsedFVarsMap___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_environment_main_module(lean_object*);
@ -393,6 +391,7 @@ lean_object* l___private_Lean_Elab_MutualDef_39__getAllUserLevelNames___boxed(le
lean_object* l___private_Lean_Elab_MutualDef_24__markModified___rarg(lean_object*);
lean_object* l___private_Lean_Elab_Util_5__expandMacro_x3f___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_MutualDef_33__pushNewVars(lean_object*, lean_object*);
lean_object* l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__2___rarg(lean_object*);
lean_object* l_List_forM___main___at___private_Lean_Elab_MutualDef_20__checkLetRecsToLiftTypes___spec__1___closed__4;
lean_object* l_Lean_Elab_elabModifiers___at_Lean_Elab_Command_elabMutualDef___spec__1___closed__21;
lean_object* l_Lean_mkPrivateName(lean_object*, lean_object*);
@ -420,6 +419,7 @@ uint8_t l_Array_anyRangeMAux___main___at___private_Lean_Elab_MutualDef_15__isThe
lean_object* l_Lean_Meta_resetZetaFVarIds___at_Lean_Elab_Term_MutualClosure_main___spec__2(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_withDeclName___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_Closure_mkForall(lean_object*, lean_object*);
lean_object* l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_19__elabImplicitLambdaAux___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_MetavarContext_getDelayedRoot___main(lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_MutualDef_9__declValToTerm___closed__1;
lean_object* l_Lean_Elab_Term_MutualClosure_pushMain(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -480,7 +480,6 @@ lean_object* l___private_Lean_Elab_MutualDef_14__isExample___boxed(lean_object*)
lean_object* l___private_Lean_Elab_MutualDef_3__check___closed__20;
uint8_t l_Lean_NameSet_contains(lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_MutualDef_35__mkClosureForAux___main___closed__6;
lean_object* l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_18__elabImplicitLambda___main___spec__1___rarg(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_forM___main___at___private_Lean_Elab_MutualDef_11__collectUsed___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_MutualDef_3__check___closed__10;
lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*);
@ -513,6 +512,7 @@ lean_object* l___private_Lean_Elab_MutualDef_7__withFunLocalDeclsAux___main___ra
lean_object* l_Array_iterateMAux___main___at___private_Lean_Elab_MutualDef_6__elabHeaders___spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_elabModifiers___at_Lean_Elab_Command_elabMutualDef___spec__1___closed__11;
uint8_t l___private_Lean_Elab_MutualDef_14__isExample(lean_object*);
lean_object* l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_20__elabImplicitLambda___main___spec__1___rarg(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_throwError___at_Lean_Elab_Term_throwErrorIfErrors___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_MutualDef_3__check___closed__23;
lean_object* l_Lean_mkConst(lean_object*, lean_object*);
@ -4131,7 +4131,7 @@ lean_closure_set(x_18, 1, x_4);
lean_closure_set(x_18, 2, x_1);
lean_closure_set(x_18, 3, x_2);
x_19 = 4;
x_20 = l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_18__elabImplicitLambda___main___spec__1___rarg(x_16, x_19, x_17, x_18, x_5, x_6, x_7, x_8, x_9, x_10, x_11);
x_20 = l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_Term_20__elabImplicitLambda___main___spec__1___rarg(x_16, x_19, x_17, x_18, x_5, x_6, x_7, x_8, x_9, x_10, x_11);
return x_20;
}
}
@ -4459,7 +4459,7 @@ x_48 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_48, 0, x_47);
x_49 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_49, 0, x_48);
x_50 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_46, x_49, x_3, x_4, x_5, x_6, x_7, x_8, x_16);
x_50 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_46, x_49, x_3, x_4, x_5, x_6, x_7, x_8, x_16);
lean_dec(x_46);
return x_50;
}
@ -4468,7 +4468,7 @@ else
lean_object* x_51;
lean_dec(x_7);
lean_dec(x_3);
x_51 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__2___rarg(x_16);
x_51 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__2___rarg(x_16);
return x_51;
}
}
@ -4477,36 +4477,37 @@ return x_51;
lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_MutualDef_10__elabFunValues___spec__2___lambda__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10) {
_start:
{
lean_object* x_11; uint8_t x_12; lean_object* x_13;
lean_object* x_11; lean_object* x_12; uint8_t x_13; lean_object* x_14;
x_11 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_11, 0, x_3);
x_12 = 1;
x_12 = lean_box(0);
x_13 = 1;
lean_inc(x_9);
lean_inc(x_8);
lean_inc(x_7);
lean_inc(x_6);
lean_inc(x_5);
lean_inc(x_4);
x_13 = l_Lean_Elab_Term_elabTermEnsuringType(x_1, x_11, x_12, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
if (lean_obj_tag(x_13) == 0)
x_14 = l_Lean_Elab_Term_elabTermEnsuringType(x_1, x_11, x_13, x_12, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
if (lean_obj_tag(x_14) == 0)
{
lean_object* x_14; lean_object* x_15; lean_object* x_16;
x_14 = lean_ctor_get(x_13, 0);
lean_inc(x_14);
x_15 = lean_ctor_get(x_13, 1);
lean_object* x_15; lean_object* x_16; lean_object* x_17;
x_15 = lean_ctor_get(x_14, 0);
lean_inc(x_15);
lean_dec(x_13);
x_16 = l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_17__elabImplicitLambdaAux___spec__1(x_2, x_14, x_4, x_5, x_6, x_7, x_8, x_9, x_15);
x_16 = lean_ctor_get(x_14, 1);
lean_inc(x_16);
lean_dec(x_14);
x_17 = l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_19__elabImplicitLambdaAux___spec__1(x_2, x_15, x_4, x_5, x_6, x_7, x_8, x_9, x_16);
lean_dec(x_9);
lean_dec(x_8);
lean_dec(x_7);
lean_dec(x_5);
lean_dec(x_4);
return x_16;
return x_17;
}
else
{
uint8_t x_17;
uint8_t x_18;
lean_dec(x_9);
lean_dec(x_8);
lean_dec(x_7);
@ -4514,23 +4515,23 @@ lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_2);
x_17 = !lean_is_exclusive(x_13);
if (x_17 == 0)
x_18 = !lean_is_exclusive(x_14);
if (x_18 == 0)
{
return x_13;
return x_14;
}
else
{
lean_object* x_18; lean_object* x_19; lean_object* x_20;
x_18 = lean_ctor_get(x_13, 0);
x_19 = lean_ctor_get(x_13, 1);
lean_object* x_19; lean_object* x_20; lean_object* x_21;
x_19 = lean_ctor_get(x_14, 0);
x_20 = lean_ctor_get(x_14, 1);
lean_inc(x_20);
lean_inc(x_19);
lean_inc(x_18);
lean_dec(x_13);
x_20 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_20, 0, x_18);
lean_ctor_set(x_20, 1, x_19);
return x_20;
lean_dec(x_14);
x_21 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_21, 0, x_19);
lean_ctor_set(x_21, 1, x_20);
return x_21;
}
}
}
@ -6354,7 +6355,7 @@ x_26 = l_List_forM___main___at___private_Lean_Elab_MutualDef_20__checkLetRecsToL
x_27 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_27, 0, x_25);
lean_ctor_set(x_27, 1, x_26);
x_28 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_22, x_27, x_4, x_5, x_6, x_7, x_8, x_9, x_21);
x_28 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_22, x_27, x_4, x_5, x_6, x_7, x_8, x_9, x_21);
lean_dec(x_6);
lean_dec(x_22);
x_29 = !lean_is_exclusive(x_28);
@ -11071,7 +11072,7 @@ x_23 = lean_array_get(x_22, x_3, x_19);
lean_dec(x_19);
lean_inc(x_9);
lean_inc(x_1);
x_24 = l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_17__elabImplicitLambdaAux___spec__1(x_1, x_23, x_7, x_8, x_9, x_10, x_11, x_12, x_13);
x_24 = l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_Term_19__elabImplicitLambdaAux___spec__1(x_1, x_23, x_7, x_8, x_9, x_10, x_11, x_12, x_13);
if (lean_obj_tag(x_24) == 0)
{
lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28;

14
stage0/stdlib/Lean/Elab/Quotation.c generated
View file

@ -295,6 +295,7 @@ lean_object* l___private_Lean_Elab_Quotation_6__compileStxMatch___main___closed_
lean_object* l_ReaderT_bind___at___private_Lean_Elab_Quotation_5__explodeHeadPat___spec__1(lean_object*, lean_object*);
uint8_t l_Array_anyRangeMAux___main___at_Lean_Elab_Term_Quotation_isAntiquotSplicePat___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_map___main___at___private_Lean_Elab_Quotation_7__getPatternVarsAux___main___spec__1(lean_object*);
lean_object* l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Nat_repr(lean_object*);
lean_object* l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__15;
lean_object* l___private_Lean_Elab_Quotation_6__compileStxMatch___main___closed__45;
@ -413,7 +414,6 @@ lean_object* l_List_mapM___main___at___private_Lean_Elab_Quotation_6__compileStx
lean_object* l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__7;
extern lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__20;
lean_object* l___private_Lean_Elab_Quotation_10__toPreterm___main___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Elab_Term_Quotation_isAntiquotSplicePat(lean_object*);
extern lean_object* l_Lean_Elab_Term_MetaHasEval___rarg___closed__1;
lean_object* l___private_Lean_Elab_Quotation_4__getHeadInfo___lambda__2___closed__1;
@ -2252,7 +2252,7 @@ else
{
lean_object* x_114; lean_object* x_115;
x_114 = l___private_Lean_Elab_Quotation_2__quoteSyntax___main___closed__18;
x_115 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_1, x_114, x_2, x_3, x_4, x_5, x_6, x_7, x_8);
x_115 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_1, x_114, x_2, x_3, x_4, x_5, x_6, x_7, x_8);
lean_dec(x_7);
lean_dec(x_5);
lean_dec(x_4);
@ -4985,7 +4985,7 @@ x_18 = l___private_Lean_Elab_Quotation_4__getHeadInfo___lambda__1___closed__3;
x_19 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_19, 0, x_18);
lean_ctor_set(x_19, 1, x_17);
x_20 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_1, x_19, x_3, x_4, x_5, x_6, x_7, x_8, x_9);
x_20 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_1, x_19, x_3, x_4, x_5, x_6, x_7, x_8, x_9);
lean_dec(x_1);
return x_20;
}
@ -5268,7 +5268,7 @@ x_18 = l___private_Lean_Elab_Quotation_4__getHeadInfo___lambda__3___closed__3;
x_19 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_19, 0, x_18);
lean_ctor_set(x_19, 1, x_17);
x_20 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_1, x_19, x_3, x_4, x_5, x_6, x_7, x_8, x_9);
x_20 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_1, x_19, x_3, x_4, x_5, x_6, x_7, x_8, x_9);
lean_dec(x_1);
return x_20;
}
@ -5278,7 +5278,7 @@ _start:
{
lean_object* x_10; lean_object* x_11;
x_10 = l___private_Lean_Elab_Quotation_2__quoteSyntax___main___closed__18;
x_11 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_1, x_10, x_3, x_4, x_5, x_6, x_7, x_8, x_9);
x_11 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_1, x_10, x_3, x_4, x_5, x_6, x_7, x_8, x_9);
return x_11;
}
}
@ -13381,7 +13381,7 @@ x_33 = lean_ctor_get(x_22, 0);
lean_inc(x_33);
lean_dec(x_22);
x_34 = l_Array_umapMAux___main___at_Lean_Elab_Term_Quotation_match__syntax_expand___spec__1___closed__4;
x_35 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_33, x_34, x_3, x_4, x_5, x_6, x_7, x_8, x_19);
x_35 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_33, x_34, x_3, x_4, x_5, x_6, x_7, x_8, x_19);
lean_dec(x_33);
x_36 = !lean_is_exclusive(x_35);
if (x_36 == 0)
@ -13446,7 +13446,7 @@ x_55 = lean_ctor_get(x_45, 0);
lean_inc(x_55);
lean_dec(x_45);
x_56 = l_Array_umapMAux___main___at_Lean_Elab_Term_Quotation_match__syntax_expand___spec__1___closed__4;
x_57 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_55, x_56, x_3, x_4, x_5, x_6, x_7, x_8, x_19);
x_57 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_55, x_56, x_3, x_4, x_5, x_6, x_7, x_8, x_19);
lean_dec(x_55);
x_58 = !lean_is_exclusive(x_57);
if (x_58 == 0)

5888
stage0/stdlib/Lean/Elab/StructInst.c generated
View file

File diff suppressed because it is too large Load diff

3132
stage0/stdlib/Lean/Elab/Structure.c generated
View file

File diff suppressed because it is too large Load diff

12
stage0/stdlib/Lean/Elab/Syntax.c generated
View file

@ -205,6 +205,7 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__43;
lean_object* l___private_Lean_Elab_Syntax_6__declareSyntaxCatQuotParser___closed__46;
lean_object* l_Lean_Elab_Term_checkLeftRec___closed__11;
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__120;
lean_object* l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_26__elabCDot___spec__1___rarg(lean_object*);
extern lean_object* l_Lean_mkAppStx___closed__8;
lean_object* l___private_Lean_Elab_Syntax_6__declareSyntaxCatQuotParser___closed__49;
lean_object* l_Lean_Elab_Command_expandMixfix___closed__13;
@ -359,6 +360,7 @@ lean_object* l_Array_iterateMAux___main___at___private_Lean_Elab_Syntax_1__mkPar
extern lean_object* l_Lean_Parser_mkParserOfConstantUnsafe___closed__4;
lean_object* l_Lean_Elab_Command_elabNoKindMacroRulesAux___closed__8;
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__56;
lean_object* l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__66;
extern lean_object* l_Lean_Parser_categoryParserFnImpl___closed__4;
lean_object* l_Nat_repr(lean_object*);
@ -468,7 +470,6 @@ lean_object* l_Lean_Elab_Command_expandElab___closed__46;
lean_object* l___regBuiltin_Lean_Elab_Command_elabSyntaxAbbrev___closed__3;
lean_object* l_Lean_Elab_Term_checkLeftRec___closed__5;
lean_object* l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__5;
lean_object* l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__2___rarg(lean_object*);
lean_object* l_Lean_Elab_Command_expandElab___closed__25;
lean_object* l_Lean_Elab_Term_elabBinders___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__12;
@ -524,7 +525,6 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__90;
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__76;
lean_object* l_Lean_Syntax_getNumArgs(lean_object*);
extern lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__20;
lean_object* l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Elab_macroAttribute;
lean_object* l___regBuiltin_Lean_Elab_Command_expandMixfix(lean_object*);
lean_object* l_Lean_Elab_Command_elabSyntax___closed__17;
@ -547,6 +547,7 @@ lean_object* l_Lean_Elab_Command_expandMixfix___closed__17;
uint8_t l_Lean_Parser_isParserCategory(lean_object*, lean_object*);
extern lean_object* l_Lean_Elab_Term_elabLetDeclCore___closed__6;
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__125;
lean_object* l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__2___rarg(lean_object*);
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__163;
lean_object* l_Lean_Elab_Command_getCurrMacroScope(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_SourceInfo_inhabited___closed__1;
@ -743,7 +744,6 @@ lean_object* l___private_Lean_Elab_Syntax_6__declareSyntaxCatQuotParser___closed
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__96;
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__13;
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__41;
lean_object* l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_24__elabCDot___spec__1___rarg(lean_object*);
extern lean_object* l_Lean_mkAppStx___closed__2;
lean_object* l_Lean_Elab_Command_expandElab___closed__2;
extern lean_object* l_String_Inhabited;
@ -1056,7 +1056,7 @@ else
{
lean_object* x_20;
lean_dec(x_9);
x_20 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__2___rarg(x_8);
x_20 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__2___rarg(x_8);
return x_20;
}
}
@ -4249,7 +4249,7 @@ x_93 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_93, 0, x_92);
x_94 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_94, 0, x_93);
x_95 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_19__elabTermAux___main___spec__1___rarg(x_91, x_94, x_4, x_5, x_6, x_7, x_8, x_9, x_66);
x_95 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_21__elabTermAux___main___spec__1___rarg(x_91, x_94, x_4, x_5, x_6, x_7, x_8, x_9, x_66);
lean_dec(x_9);
lean_dec(x_7);
lean_dec(x_6);
@ -4283,7 +4283,7 @@ lean_dec(x_7);
lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_4);
x_100 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_24__elabCDot___spec__1___rarg(x_66);
x_100 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_26__elabCDot___spec__1___rarg(x_66);
x_101 = !lean_is_exclusive(x_100);
if (x_101 == 0)
{

1042
stage0/stdlib/Lean/Elab/SyntheticMVars.c generated
View file

File diff suppressed because it is too large Load diff

780
stage0/stdlib/Lean/Elab/Tactic/Basic.c generated
View file

File diff suppressed because it is too large Load diff

4
stage0/stdlib/Lean/Elab/Tactic/ElabTerm.c generated
View file

@ -45,7 +45,6 @@ lean_object* l_Lean_Elab_Tactic_evalRefine(lean_object*, lean_object*, lean_obje
lean_object* l_Array_filterMAux___main___at_Lean_Elab_Tactic_elabTermWithHoles___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_filterMAux___main___at_Lean_Elab_Tactic_elabTermWithHoles___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_ensureHasType(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_getMVarDecl___at_Lean_Elab_Tactic_getMainTag___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_apply(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Tactic_elabTerm___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -110,6 +109,7 @@ lean_object* l___regBuiltin_Lean_Elab_Tactic_evalApply(lean_object*);
lean_object* l_Lean_Elab_Tactic_expandAdmit(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Tactic_refineCore___lambda__1(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_toList___rarg(lean_object*);
lean_object* l_Lean_Elab_Tactic_ensureHasType(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Tactic_evalApply___closed__1;
lean_object* l_Lean_Elab_Term_logUnassignedUsingErrorInfos(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Syntax_isOfKind(lean_object*, lean_object*);
@ -293,7 +293,7 @@ lean_inc(x_14);
x_15 = lean_ctor_get(x_13, 1);
lean_inc(x_15);
lean_dec(x_13);
x_16 = l_Lean_Elab_Term_ensureHasType(x_2, x_14, x_6, x_7, x_8, x_9, x_10, x_11, x_15);
x_16 = l_Lean_Elab_Tactic_ensureHasType(x_2, x_14, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11, x_15);
lean_dec(x_7);
return x_16;
}

4
stage0/stdlib/Lean/Elab/Tactic/Rewrite.c generated
View file

@ -94,6 +94,7 @@ lean_object* l_Lean_Meta_getMVarDecl___at_Lean_Elab_Tactic_getMainTag___spec__1(
lean_object* l_Array_umapMAux___main___at_Lean_Elab_Tactic_expandRewriteTactic___spec__1___closed__1;
lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*);
lean_object* l_Lean_Meta_instantiateMVars___at_Lean_Elab_Tactic_ensureHasNoMVars___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_Lean_Elab_Term_5__tryCoe___closed__3;
lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_umapMAux___main___at_Lean_Elab_Tactic_expandRewriteTactic___spec__1___closed__2;
lean_object* lean_local_ctx_find(lean_object*, lean_object*);
@ -103,7 +104,6 @@ lean_object* l_Lean_Elab_Tactic_evalRewrite___boxed(lean_object*, lean_object*,
lean_object* l_Lean_Elab_Tactic_expandRewriteTactic(lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
lean_object* l_Array_forMAux___main___at_Lean_Elab_Tactic_evalRewrite___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Elab_Term_tryCoe___closed__3;
lean_object* _init_l_Array_umapMAux___main___at_Lean_Elab_Tactic_expandRewriteTactic___spec__1___closed__1() {
_start:
{
@ -146,7 +146,7 @@ x_9 = lean_array_fset(x_3, x_2, x_8);
x_10 = x_7;
x_11 = l_Array_umapMAux___main___at_Lean_Elab_Tactic_expandRewriteTactic___spec__1___closed__2;
x_12 = l_Lean_mkAtomFrom(x_10, x_11);
x_13 = l_Lean_Elab_Term_tryCoe___closed__3;
x_13 = l___private_Lean_Elab_Term_5__tryCoe___closed__3;
x_14 = lean_array_push(x_13, x_12);
x_15 = lean_array_push(x_14, x_10);
lean_inc(x_1);

7107
stage0/stdlib/Lean/Elab/Term.c generated
View file

File diff suppressed because it is too large Load diff

762
stage0/stdlib/Lean/Parser/Term.c generated
View file

@ -162,10 +162,12 @@ lean_object* l_Lean_Parser_Term_matchDiscr___elambda__1___closed__5;
lean_object* l___regBuiltin_Lean_Parser_Term_sorry_formatter(lean_object*);
lean_object* l_Lean_Parser_Term_andthen___elambda__1___closed__4;
lean_object* l_Lean_Parser_Term_anonymousCtor_formatter___closed__2;
lean_object* l_Lean_Parser_Term_ensureExpectedType;
lean_object* l_Lean_Parser_Term_explicitBinder_formatter___closed__6;
lean_object* l_Lean_Parser_andthenInfo(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_have___elambda__1___closed__7;
lean_object* l_Lean_Parser_Term_infixL_parenthesizer(lean_object*);
lean_object* l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__1;
lean_object* l_Lean_Parser_Term_explicit___elambda__1___closed__2;
lean_object* l_Lean_Parser_Term_bnot___closed__4;
lean_object* l_Lean_Parser_Term_sub___elambda__1(lean_object*, lean_object*);
@ -303,6 +305,7 @@ lean_object* l___regBuiltin_Lean_Parser_Term_anonymousCtor_formatter(lean_object
lean_object* l_Lean_Parser_Term_bracketedBinder(uint8_t);
lean_object* l_Lean_Parser_Term_structInstLVal_parenthesizer___closed__5;
lean_object* l_Lean_Parser_Term_structInst___closed__6;
lean_object* l_Lean_Parser_Term_ensureExpectedType___closed__1;
lean_object* l_Lean_PrettyPrinter_Parenthesizer_sepBy_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Tactic_seq1___elambda__1___spec__1___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Parser_Term_unreachable_parenthesizer(lean_object*);
@ -347,6 +350,7 @@ lean_object* l_Lean_Parser_Term_listLit___closed__3;
lean_object* l_Lean_Parser_Term_match___closed__7;
lean_object* l_Lean_PrettyPrinter_Formatter_many_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_tupleTail_parenthesizer___closed__3;
lean_object* l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__4;
lean_object* l___regBuiltinParser_Lean_Parser_Term_pow(lean_object*);
lean_object* l___regBuiltin_Lean_Parser_Term_match__syntax_formatter___closed__1;
lean_object* l_Lean_Parser_Tactic_tacticSeq1Indented_formatter___closed__1;
@ -422,6 +426,7 @@ lean_object* l_Lean_Parser_Term_show___elambda__1___closed__1;
lean_object* l_Lean_Parser_Term_match__syntax___closed__7;
lean_object* l_Lean_Parser_Term_match__syntax_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_nativeRefl___elambda__1___closed__5;
lean_object* l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2;
lean_object* l_Lean_Parser_Term_nativeRefl_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Term_matchAlt___closed__8;
lean_object* l___regBuiltinParser_Lean_Parser_Term_assert(lean_object*);
@ -560,6 +565,7 @@ lean_object* l_Lean_Parser_Term_bor_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Term_andM___closed__2;
lean_object* l_Lean_Parser_Term_implicitBinder_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Parser_Term_emptyC_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__9;
lean_object* l_Lean_Parser_Term_structInstLVal___closed__10;
lean_object* l_Lean_Parser_Tactic_tacticSeqBracketed_parenthesizer___closed__8;
lean_object* l_Lean_Parser_Term_type___closed__6;
@ -583,6 +589,7 @@ lean_object* l___regBuiltin_Lean_Parser_Term_band_formatter(lean_object*);
lean_object* l_Lean_Parser_Term_anonymousCtor___closed__8;
lean_object* l_Lean_Parser_Term_dollarProj___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_sort___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__3;
lean_object* l_Lean_Parser_Term_heq___elambda__1___closed__5;
lean_object* l_Lean_Parser_Term_unreachable_parenthesizer___closed__2;
lean_object* l_Lean_Parser_Term_attributes___closed__4;
@ -680,6 +687,7 @@ lean_object* l_Lean_Parser_Term_app_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Term_explicitBinder_formatter___closed__1;
lean_object* l_Lean_Parser_Term_structInstLVal___closed__7;
lean_object* l_Lean_Parser_Term_nomatch_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_ensureExpectedType___closed__8;
lean_object* l_Lean_Parser_Term_optExprPrecedence_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_gt_formatter___closed__1;
lean_object* l_Lean_Parser_Term_bor_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -727,6 +735,7 @@ lean_object* l_Lean_Parser_Term_nativeDecide___elambda__1___closed__2;
lean_object* l_Lean_Parser_notFollowedByFn(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__12;
lean_object* l_Lean_Parser_Term_match__syntax___closed__3;
lean_object* l_Lean_Parser_Term_ensureExpectedType___closed__4;
extern lean_object* l_Lean_Parser_symbolNoWsFn___closed__1;
lean_object* l_Lean_Parser_Term_typeAscription___elambda__1___closed__6;
lean_object* l_Lean_Parser_Term_if_parenthesizer___closed__5;
@ -1140,6 +1149,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Term_panic(lean_object*);
lean_object* l___regBuiltin_Lean_Parser_Term_sorry_formatter___closed__1;
lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__14;
lean_object* l_Lean_Parser_Term_ensureTypeOf___closed__4;
lean_object* l_Lean_Parser_Term_ensureExpectedType_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_letRecDecls___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_ensureTypeOf___elambda__1___closed__8;
lean_object* l_Lean_Parser_Term_match_parenthesizer___closed__4;
@ -1679,6 +1689,7 @@ lean_object* l_Lean_Parser_Term_type___closed__7;
lean_object* l_Lean_Parser_Term_arrayRef;
lean_object* l_Lean_Parser_Term_cdot;
lean_object* l___regBuiltin_Lean_Parser_Term_band_formatter___closed__1;
lean_object* l_Lean_Parser_Term_ensureExpectedType_formatter___closed__4;
lean_object* l_Lean_Parser_Tactic_quotSeq_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Term_depArrow___closed__9;
lean_object* l_Lean_Parser_Term_typeAscription___elambda__1___closed__3;
@ -1872,6 +1883,7 @@ lean_object* l_Lean_Parser_Term_fcomp;
lean_object* l_Lean_Parser_Term_letPatDecl_parenthesizer___closed__2;
lean_object* l_Lean_Parser_Term_tupleTail___closed__7;
lean_object* l_Lean_Parser_Term_fromTerm___elambda__1___closed__5;
lean_object* l_Lean_Parser_Term_ensureExpectedType_formatter___closed__2;
lean_object* l_Lean_Parser_Tactic_quot___elambda__1___closed__3;
lean_object* l_Lean_Parser_Term_structInst___closed__14;
lean_object* l_Lean_Parser_Term_depArrow___closed__4;
@ -2014,6 +2026,7 @@ lean_object* l_Lean_Parser_Term_instBinder___elambda__1___closed__4;
lean_object* l_Lean_Parser_Term_subst_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_depArrow___elambda__1___closed__3;
lean_object* l_Lean_Parser_Tactic_tacticSeqBracketed_parenthesizer___closed__9;
lean_object* l_Lean_Parser_Term_ensureExpectedType_formatter___closed__3;
lean_object* l_Lean_Parser_Term_arrayLit_formatter___closed__3;
lean_object* l___regBuiltin_Lean_Parser_Term_append_formatter___closed__1;
lean_object* l_Lean_Parser_Term_append___closed__1;
@ -2031,6 +2044,7 @@ lean_object* l_Lean_Parser_Term_explicit___elambda__1___closed__9;
lean_object* l_Lean_Parser_Term_fun___elambda__1___closed__2;
lean_object* l_Lean_Parser_Term_explicit_parenthesizer___closed__2;
lean_object* l_Lean_Parser_Tactic_quot___elambda__1___closed__2;
lean_object* l_Lean_Parser_Term_ensureExpectedType___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_or___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_sort_formatter___closed__1;
lean_object* l___regBuiltinParser_Lean_Parser_Term_seq(lean_object*);
@ -2368,6 +2382,7 @@ lean_object* l_Lean_Parser_Term_funBinder_quot;
lean_object* l_Lean_Parser_Tactic_tacticSeqBracketed___closed__3;
lean_object* l_Lean_Parser_Term_show_formatter___closed__4;
lean_object* l_Lean_Parser_Term_or___elambda__1___closed__3;
lean_object* l___regBuiltin_Lean_Parser_Term_ensureExpectedType_formatter___closed__1;
extern lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___rarg___closed__3;
lean_object* l_Lean_Parser_Term_bne_formatter___closed__1;
lean_object* l_Lean_Parser_Term_structInst___closed__12;
@ -2594,6 +2609,7 @@ lean_object* l_Lean_Parser_Term_dollar___closed__6;
lean_object* l_Lean_Parser_Level_quot_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_matchDiscr_parenthesizer___closed__4;
lean_object* l_Lean_Parser_Term_haveDecl_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_ensureExpectedType___closed__3;
lean_object* l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2;
lean_object* l_Lean_Parser_Term_match__syntax___closed__2;
lean_object* l_Lean_Parser_Term_tparser_x21___elambda__1___closed__5;
@ -2613,6 +2629,7 @@ lean_object* l_Lean_Parser_Term_match__syntax___closed__1;
lean_object* l_Lean_Parser_Term_instBinder___closed__2;
lean_object* l_Lean_Parser_Term_letDecl___closed__1;
lean_object* l_Lean_Parser_Term_unicodeInfixL___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_ensureExpectedType___closed__5;
lean_object* l_Lean_Parser_Term_forall_formatter___closed__11;
lean_object* l___private_Lean_Parser_Basic_2__sepByFnAux___main___at_Lean_Parser_Term_subst___elambda__1___spec__2(uint8_t, lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_emptyC___closed__4;
@ -2689,6 +2706,7 @@ lean_object* l_Lean_Parser_Tactic_seq1___closed__4;
lean_object* l_Lean_Parser_Term_forall_formatter___closed__6;
lean_object* l_Lean_Parser_charLit___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_implicitBinder___elambda__1___closed__2;
lean_object* l___regBuiltinParser_Lean_Parser_Term_ensureExpectedType(lean_object*);
lean_object* l___regBuiltin_Lean_Parser_Term_or_parenthesizer(lean_object*);
lean_object* l_Lean_Parser_Term_uminus___closed__2;
lean_object* l_Lean_Parser_toggleInsideQuotFn(lean_object*, lean_object*, lean_object*);
@ -2800,6 +2818,7 @@ lean_object* l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__3;
lean_object* l_Lean_Parser_Term_typeSpec_parenthesizer___closed__1;
lean_object* l___regBuiltinParser_Lean_Parser_Term_show(lean_object*);
lean_object* l_Lean_Parser_Term_letPatDecl___elambda__1___closed__2;
lean_object* l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__7;
lean_object* l_Lean_Parser_Level_quot___elambda__1___closed__8;
lean_object* l_Lean_Parser_Term_match___elambda__1___closed__4;
lean_object* l_Lean_Parser_Term_append___elambda__1___closed__3;
@ -2847,6 +2866,7 @@ lean_object* l_Lean_Parser_Term_nativeDecide;
lean_object* l_Lean_Parser_Term_binderType___boxed(lean_object*);
lean_object* l_Lean_Parser_Term_funImplicitBinder___closed__4;
lean_object* l_Lean_Parser_Term_letDecl_formatter___closed__3;
lean_object* l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Term_char_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Parser_Term_paren_formatter___closed__1;
lean_object* l_Lean_Parser_Term_binderDefault_parenthesizer___closed__1;
@ -3023,6 +3043,8 @@ lean_object* l_Lean_Parser_Term_namedPattern___closed__1;
lean_object* l_Lean_Parser_Term_haveDecl_formatter___closed__5;
lean_object* l_Lean_Parser_Term_cdot_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_assert___elambda__1___closed__1;
lean_object* l_Lean_Parser_Term_ensureExpectedType_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_ensureExpectedType___closed__7;
lean_object* l_Lean_Parser_Term_forall_parenthesizer___closed__10;
lean_object* l_Lean_Parser_Term_letDecl___closed__8;
lean_object* l_Lean_Parser_Tactic_quot___elambda__1___closed__4;
@ -3116,6 +3138,7 @@ lean_object* l_Lean_Parser_Term_attrInstance___elambda__1___closed__4;
lean_object* l_Lean_Parser_Term_unreachable___elambda__1___closed__4;
extern lean_object* l_Lean_Parser_epsilonInfo;
lean_object* l_Lean_Parser_Term_funBinder_quot_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__3;
lean_object* l_Lean_Parser_Term_panic___elambda__1___closed__5;
lean_object* l_Lean_Parser_Term_structInstLVal_parenthesizer___closed__2;
lean_object* l_Lean_Parser_Term_have___closed__4;
@ -3203,6 +3226,7 @@ lean_object* l_Lean_Parser_Term_matchAlts_formatter___closed__8;
lean_object* l_Lean_Parser_Term_attributes_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Term_bne___closed__2;
lean_object* l_Lean_Parser_Term_seqLeft_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__5;
lean_object* l_Lean_Parser_Term_namedArgument_parenthesizer___closed__4;
lean_object* l_Lean_Parser_Term_where___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_structInst_formatter___closed__15;
@ -3270,6 +3294,7 @@ lean_object* l_Lean_Parser_Term_bne___closed__4;
lean_object* l_Lean_Parser_Tactic_tacticSeqBracketed_formatter___closed__5;
lean_object* l_Lean_Parser_Term_quotedName_formatter___closed__2;
lean_object* l_Lean_Parser_Term_char;
lean_object* l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__4;
lean_object* l_Lean_Parser_Term_let_x21___elambda__1___closed__1;
lean_object* l_Lean_Parser_Term_structInstField___closed__5;
lean_object* l_Lean_Parser_Term_attrArg___closed__1;
@ -3323,6 +3348,7 @@ lean_object* l_Lean_Parser_Term_match__syntax___elambda__1___closed__5;
lean_object* l_Lean_Parser_Term_listLit___elambda__1___closed__1;
lean_object* l_Lean_Parser_Term_seqRight_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_gt;
lean_object* l___regBuiltin_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Term_ensureTypeOf___elambda__1___closed__7;
lean_object* l_Lean_Parser_Term_tparser_x21___closed__2;
lean_object* l_Lean_Parser_Term_matchAlts___boxed(lean_object*);
@ -3486,6 +3512,7 @@ extern lean_object* l_Lean_Parser_Level_addLit___elambda__1___closed__3;
lean_object* l_Lean_Parser_Term_instBinder___closed__4;
lean_object* l_Lean_Parser_Term_ne___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_heq___closed__1;
lean_object* l___regBuiltin_Lean_Parser_Term_ensureExpectedType_formatter(lean_object*);
lean_object* l_Lean_Parser_Term_tparser_x21_formatter___closed__4;
lean_object* l_Lean_Parser_Term_borrowed___closed__6;
lean_object* l_Lean_Parser_Term_byTactic_parenthesizer___closed__1;
@ -3574,6 +3601,7 @@ lean_object* l_Lean_Parser_Term_haveDecl___closed__2;
lean_object* l_Lean_Parser_Term_have_formatter___closed__4;
lean_object* l_Lean_Parser_Term_typeSpec___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_haveAssign___closed__3;
lean_object* l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__2;
lean_object* l_Lean_Parser_Term_typeSpec___elambda__1___closed__1;
lean_object* l_Lean_Parser_Term_depArrow_parenthesizer___closed__8;
lean_object* l_Lean_Parser_Term_forall___closed__5;
@ -3632,6 +3660,7 @@ lean_object* l_Lean_Parser_Term_namedPattern_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Term_haveDecl___closed__6;
lean_object* l_Lean_Parser_Term_bor_formatter___closed__1;
lean_object* l_Lean_Parser_Term_ensureTypeOf_parenthesizer___closed__5;
lean_object* l___regBuiltin_Lean_Parser_Term_ensureExpectedType_parenthesizer(lean_object*);
lean_object* l_Lean_Parser_Term_lt;
lean_object* l_Lean_Parser_Term_matchAlt_formatter___closed__1;
lean_object* l_Lean_Parser_Term_structInstArrayRef_formatter___closed__2;
@ -3732,6 +3761,7 @@ lean_object* l_Lean_Parser_Term_nomatch___closed__5;
lean_object* l_Lean_Parser_Term_beq___closed__1;
lean_object* l_Lean_Parser_Term_fun___closed__2;
lean_object* l_Lean_Parser_Term_fun___elambda__1___closed__5;
lean_object* l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__8;
lean_object* l_Lean_Parser_Term_if_parenthesizer___closed__2;
lean_object* l_Lean_Parser_Tactic_quotSeq_formatter___closed__6;
lean_object* l___regBuiltinParser_Lean_Parser_Term_hole(lean_object*);
@ -3853,6 +3883,7 @@ lean_object* l_Lean_Parser_Term_binderTactic_parenthesizer___closed__3;
lean_object* l_Lean_Parser_Level_quot_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Term_matchDiscr___closed__9;
lean_object* l_Lean_Parser_Term_anonymousCtor___elambda__1___closed__5;
lean_object* l_Lean_Parser_Term_ensureExpectedType___closed__2;
lean_object* l_Lean_Parser_Term_proj___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_sort_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_sufficesDecl___closed__4;
@ -3899,6 +3930,7 @@ lean_object* l_Lean_Parser_Term_ensureTypeOf___closed__6;
lean_object* l_Lean_Parser_Term_borrowed___elambda__1___closed__6;
lean_object* l___regBuiltinParser_Lean_Parser_Term_borrowed(lean_object*);
lean_object* l_Lean_Parser_Term_depArrow___elambda__1___closed__11;
lean_object* l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__6;
lean_object* l___regBuiltin_Lean_Parser_Term_ne_parenthesizer(lean_object*);
lean_object* l_Lean_Parser_Term_let_x21___elambda__1___closed__2;
lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__4;
@ -4033,6 +4065,7 @@ lean_object* l_Lean_Parser_Term_sort___closed__7;
lean_object* l___regBuiltin_Lean_Parser_Term_eq_parenthesizer___closed__1;
lean_object* l___private_Lean_Parser_Basic_2__sepByFnAux___main___at_Lean_Parser_Term_tupleTail___elambda__1___spec__2___closed__2;
lean_object* l_Lean_Parser_Term_unicodeInfixR___elambda__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_ensureExpectedType___closed__6;
lean_object* l_Lean_Parser_Term_funBinder_quot___elambda__1___closed__9;
lean_object* l_Lean_Parser_Term_str_formatter___closed__1;
lean_object* l___regBuiltin_Lean_Parser_Term_letrec_parenthesizer___closed__1;
@ -4055,6 +4088,7 @@ lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Term_attributes___elambda__
lean_object* l___regBuiltin_Lean_Parser_Term_not_parenthesizer(lean_object*);
lean_object* l___regBuiltin_Lean_Parser_Term_num_formatter(lean_object*);
lean_object* l_Lean_Parser_Tactic_quotSeq___elambda__1___closed__3;
lean_object* l_Lean_Parser_Term_ensureExpectedType_formatter___closed__1;
lean_object* l_Lean_Parser_Term_bnot_parenthesizer___closed__2;
lean_object* l___private_Lean_Parser_Basic_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___spec__2(uint8_t, lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_seq___closed__4;
@ -61415,6 +61449,669 @@ x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1);
return x_5;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("ensureExpectedType");
return x_1;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_mkAppStx___closed__6;
x_2 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__1;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2;
x_2 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4;
x_1 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__1;
x_2 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__3;
x_3 = 1;
x_4 = l_Lean_Parser_mkAntiquot(x_1, x_2, x_3);
return x_4;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__5() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("ensureExpectedType! ");
return x_1;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__6() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__5;
x_2 = l_String_trim(x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__7() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Char_HasRepr___closed__1;
x_2 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__6;
x_3 = lean_string_append(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__8() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__7;
x_2 = l_Char_HasRepr___closed__1;
x_3 = lean_string_append(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__9() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__8;
x_3 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
}
}
lean_object* l_Lean_Parser_Term_ensureExpectedType___elambda__1(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4; uint8_t x_5;
x_3 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__4;
x_4 = lean_ctor_get(x_3, 1);
lean_inc(x_4);
lean_inc(x_2);
lean_inc(x_1);
x_5 = l_Lean_Parser_tryAnti(x_1, x_2);
if (x_5 == 0)
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
lean_dec(x_4);
x_6 = lean_unsigned_to_nat(1024u);
x_7 = l_Lean_Parser_checkPrecFn(x_6, x_1, x_2);
x_8 = lean_ctor_get(x_7, 3);
lean_inc(x_8);
if (lean_obj_tag(x_8) == 0)
{
lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_25; lean_object* x_26; lean_object* x_27;
x_9 = lean_ctor_get(x_7, 0);
lean_inc(x_9);
x_10 = lean_array_get_size(x_9);
lean_dec(x_9);
x_25 = lean_ctor_get(x_7, 1);
lean_inc(x_25);
lean_inc(x_1);
x_26 = l_Lean_Parser_tokenFn(x_1, x_7);
x_27 = lean_ctor_get(x_26, 3);
lean_inc(x_27);
if (lean_obj_tag(x_27) == 0)
{
lean_object* x_28; lean_object* x_29;
x_28 = lean_ctor_get(x_26, 0);
lean_inc(x_28);
x_29 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_28);
lean_dec(x_28);
if (lean_obj_tag(x_29) == 2)
{
lean_object* x_30; lean_object* x_31; uint8_t x_32;
x_30 = lean_ctor_get(x_29, 1);
lean_inc(x_30);
lean_dec(x_29);
x_31 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__6;
x_32 = lean_string_dec_eq(x_30, x_31);
lean_dec(x_30);
if (x_32 == 0)
{
lean_object* x_33; lean_object* x_34;
x_33 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__9;
x_34 = l_Lean_Parser_ParserState_mkErrorsAt(x_26, x_33, x_25);
x_11 = x_34;
goto block_24;
}
else
{
lean_dec(x_25);
x_11 = x_26;
goto block_24;
}
}
else
{
lean_object* x_35; lean_object* x_36;
lean_dec(x_29);
x_35 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__9;
x_36 = l_Lean_Parser_ParserState_mkErrorsAt(x_26, x_35, x_25);
x_11 = x_36;
goto block_24;
}
}
else
{
lean_object* x_37; lean_object* x_38;
lean_dec(x_27);
x_37 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__9;
x_38 = l_Lean_Parser_ParserState_mkErrorsAt(x_26, x_37, x_25);
x_11 = x_38;
goto block_24;
}
block_24:
{
lean_object* x_12;
x_12 = lean_ctor_get(x_11, 3);
lean_inc(x_12);
if (lean_obj_tag(x_12) == 0)
{
lean_object* x_13; lean_object* x_14;
lean_inc(x_1);
x_13 = l_Lean_Parser_strLit___elambda__1(x_1, x_11);
x_14 = lean_ctor_get(x_13, 3);
lean_inc(x_14);
if (lean_obj_tag(x_14) == 0)
{
lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19;
x_15 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__15;
x_16 = l_Lean_Parser_maxPrec;
x_17 = l_Lean_Parser_categoryParser___elambda__1(x_15, x_16, x_1, x_13);
x_18 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2;
x_19 = l_Lean_Parser_ParserState_mkNode(x_17, x_18, x_10);
return x_19;
}
else
{
lean_object* x_20; lean_object* x_21;
lean_dec(x_14);
lean_dec(x_1);
x_20 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2;
x_21 = l_Lean_Parser_ParserState_mkNode(x_13, x_20, x_10);
return x_21;
}
}
else
{
lean_object* x_22; lean_object* x_23;
lean_dec(x_12);
lean_dec(x_1);
x_22 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2;
x_23 = l_Lean_Parser_ParserState_mkNode(x_11, x_22, x_10);
return x_23;
}
}
}
else
{
lean_dec(x_8);
lean_dec(x_1);
return x_7;
}
}
else
{
lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43;
x_39 = lean_ctor_get(x_2, 0);
lean_inc(x_39);
x_40 = lean_array_get_size(x_39);
lean_dec(x_39);
x_41 = lean_ctor_get(x_2, 1);
lean_inc(x_41);
lean_inc(x_1);
x_42 = lean_apply_2(x_4, x_1, x_2);
x_43 = lean_ctor_get(x_42, 3);
lean_inc(x_43);
if (lean_obj_tag(x_43) == 0)
{
lean_dec(x_41);
lean_dec(x_40);
lean_dec(x_1);
return x_42;
}
else
{
lean_object* x_44; lean_object* x_45; uint8_t x_46;
x_44 = lean_ctor_get(x_43, 0);
lean_inc(x_44);
lean_dec(x_43);
x_45 = lean_ctor_get(x_42, 1);
lean_inc(x_45);
x_46 = lean_nat_dec_eq(x_45, x_41);
lean_dec(x_45);
if (x_46 == 0)
{
lean_dec(x_44);
lean_dec(x_41);
lean_dec(x_40);
lean_dec(x_1);
return x_42;
}
else
{
lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50;
lean_inc(x_41);
x_47 = l_Lean_Parser_ParserState_restore(x_42, x_40, x_41);
lean_dec(x_40);
x_48 = lean_unsigned_to_nat(1024u);
x_49 = l_Lean_Parser_checkPrecFn(x_48, x_1, x_47);
x_50 = lean_ctor_get(x_49, 3);
lean_inc(x_50);
if (lean_obj_tag(x_50) == 0)
{
lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_73; lean_object* x_74; lean_object* x_75;
x_51 = lean_ctor_get(x_49, 0);
lean_inc(x_51);
x_52 = lean_array_get_size(x_51);
lean_dec(x_51);
x_73 = lean_ctor_get(x_49, 1);
lean_inc(x_73);
lean_inc(x_1);
x_74 = l_Lean_Parser_tokenFn(x_1, x_49);
x_75 = lean_ctor_get(x_74, 3);
lean_inc(x_75);
if (lean_obj_tag(x_75) == 0)
{
lean_object* x_76; lean_object* x_77;
x_76 = lean_ctor_get(x_74, 0);
lean_inc(x_76);
x_77 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_76);
lean_dec(x_76);
if (lean_obj_tag(x_77) == 2)
{
lean_object* x_78; lean_object* x_79; uint8_t x_80;
x_78 = lean_ctor_get(x_77, 1);
lean_inc(x_78);
lean_dec(x_77);
x_79 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__6;
x_80 = lean_string_dec_eq(x_78, x_79);
lean_dec(x_78);
if (x_80 == 0)
{
lean_object* x_81; lean_object* x_82;
x_81 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__9;
x_82 = l_Lean_Parser_ParserState_mkErrorsAt(x_74, x_81, x_73);
x_53 = x_82;
goto block_72;
}
else
{
lean_dec(x_73);
x_53 = x_74;
goto block_72;
}
}
else
{
lean_object* x_83; lean_object* x_84;
lean_dec(x_77);
x_83 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__9;
x_84 = l_Lean_Parser_ParserState_mkErrorsAt(x_74, x_83, x_73);
x_53 = x_84;
goto block_72;
}
}
else
{
lean_object* x_85; lean_object* x_86;
lean_dec(x_75);
x_85 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__9;
x_86 = l_Lean_Parser_ParserState_mkErrorsAt(x_74, x_85, x_73);
x_53 = x_86;
goto block_72;
}
block_72:
{
lean_object* x_54;
x_54 = lean_ctor_get(x_53, 3);
lean_inc(x_54);
if (lean_obj_tag(x_54) == 0)
{
lean_object* x_55; lean_object* x_56;
lean_inc(x_1);
x_55 = l_Lean_Parser_strLit___elambda__1(x_1, x_53);
x_56 = lean_ctor_get(x_55, 3);
lean_inc(x_56);
if (lean_obj_tag(x_56) == 0)
{
lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; uint8_t x_62; lean_object* x_63;
x_57 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__15;
x_58 = l_Lean_Parser_maxPrec;
x_59 = l_Lean_Parser_categoryParser___elambda__1(x_57, x_58, x_1, x_55);
x_60 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2;
x_61 = l_Lean_Parser_ParserState_mkNode(x_59, x_60, x_52);
x_62 = 1;
x_63 = l_Lean_Parser_mergeOrElseErrors(x_61, x_44, x_41, x_62);
lean_dec(x_41);
return x_63;
}
else
{
lean_object* x_64; lean_object* x_65; uint8_t x_66; lean_object* x_67;
lean_dec(x_56);
lean_dec(x_1);
x_64 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2;
x_65 = l_Lean_Parser_ParserState_mkNode(x_55, x_64, x_52);
x_66 = 1;
x_67 = l_Lean_Parser_mergeOrElseErrors(x_65, x_44, x_41, x_66);
lean_dec(x_41);
return x_67;
}
}
else
{
lean_object* x_68; lean_object* x_69; uint8_t x_70; lean_object* x_71;
lean_dec(x_54);
lean_dec(x_1);
x_68 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2;
x_69 = l_Lean_Parser_ParserState_mkNode(x_53, x_68, x_52);
x_70 = 1;
x_71 = l_Lean_Parser_mergeOrElseErrors(x_69, x_44, x_41, x_70);
lean_dec(x_41);
return x_71;
}
}
}
else
{
uint8_t x_87; lean_object* x_88;
lean_dec(x_50);
lean_dec(x_1);
x_87 = 1;
x_88 = l_Lean_Parser_mergeOrElseErrors(x_49, x_44, x_41, x_87);
lean_dec(x_41);
return x_88;
}
}
}
}
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__6;
x_2 = l_Lean_Parser_symbolInfo(x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_1 = l_Lean_Parser_strLit;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l_Lean_Parser_Term_explicit___closed__2;
x_4 = lean_ctor_get(x_3, 0);
lean_inc(x_4);
x_5 = l_Lean_Parser_andthenInfo(x_2, x_4);
return x_5;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_ensureExpectedType___closed__1;
x_2 = l_Lean_Parser_Term_ensureExpectedType___closed__2;
x_3 = l_Lean_Parser_andthenInfo(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2;
x_2 = l_Lean_Parser_Term_ensureExpectedType___closed__3;
x_3 = l_Lean_Parser_nodeInfo(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType___closed__5() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_epsilonInfo;
x_2 = l_Lean_Parser_Term_ensureExpectedType___closed__4;
x_3 = l_Lean_Parser_andthenInfo(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType___closed__6() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__4;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l_Lean_Parser_Term_ensureExpectedType___closed__5;
x_4 = l_Lean_Parser_orelseInfo(x_2, x_3);
return x_4;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType___closed__7() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_ensureExpectedType___elambda__1), 2, 0);
return x_1;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType___closed__8() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_ensureExpectedType___closed__6;
x_2 = l_Lean_Parser_Term_ensureExpectedType___closed__7;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_1);
lean_ctor_set(x_3, 1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType() {
_start:
{
lean_object* x_1;
x_1 = l_Lean_Parser_Term_ensureExpectedType___closed__8;
return x_1;
}
}
lean_object* l___regBuiltinParser_Lean_Parser_Term_ensureExpectedType(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__15;
x_3 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Term_ensureExpectedType;
x_6 = lean_unsigned_to_nat(0u);
x_7 = l_Lean_Parser_addBuiltinParser(x_2, x_3, x_4, x_5, x_6, x_1);
return x_7;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType_formatter___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; lean_object* x_5;
x_1 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__1;
x_2 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__3;
x_3 = 1;
x_4 = lean_box(x_3);
x_5 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot_formatter___boxed), 8, 3);
lean_closure_set(x_5, 0, x_1);
lean_closure_set(x_5, 1, x_2);
lean_closure_set(x_5, 2, x_4);
return x_5;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType_formatter___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__5;
x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_symbol_formatter___boxed), 6, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType_formatter___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_ensureExpectedType_formatter___closed__2;
x_2 = l_Lean_Parser_Term_ensureTypeOf_formatter___closed__3;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType_formatter___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2;
x_2 = lean_unsigned_to_nat(1024u);
x_3 = l_Lean_Parser_Term_ensureExpectedType_formatter___closed__3;
x_4 = lean_alloc_closure((void*)(l_Lean_Parser_leadingNode_formatter___boxed), 8, 3);
lean_closure_set(x_4, 0, x_1);
lean_closure_set(x_4, 1, x_2);
lean_closure_set(x_4, 2, x_3);
return x_4;
}
}
lean_object* l_Lean_Parser_Term_ensureExpectedType_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = l_Lean_Parser_Term_ensureExpectedType_formatter___closed__1;
x_7 = l_Lean_Parser_Term_ensureExpectedType_formatter___closed__4;
x_8 = l_Lean_PrettyPrinter_Formatter_orelse_formatter(x_6, x_7, x_1, x_2, x_3, x_4, x_5);
return x_8;
}
}
lean_object* _init_l___regBuiltin_Lean_Parser_Term_ensureExpectedType_formatter___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_ensureExpectedType_formatter), 5, 0);
return x_1;
}
}
lean_object* l___regBuiltin_Lean_Parser_Term_ensureExpectedType_formatter(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_2 = l_Lean_PrettyPrinter_formatterAttribute;
x_3 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2;
x_4 = l___regBuiltin_Lean_Parser_Term_ensureExpectedType_formatter___closed__1;
x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1);
return x_5;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__1() {
_start:
{
lean_object* x_1; uint8_t x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__3;
x_2 = 1;
x_3 = lean_box(x_2);
x_4 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot_parenthesizer___rarg___boxed), 7, 2);
lean_closure_set(x_4, 0, x_1);
lean_closure_set(x_4, 1, x_3);
return x_4;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_str_parenthesizer___closed__1;
x_2 = l_Lean_Parser_Term_explicit_parenthesizer___closed__2;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_antiquotNestedExpr_parenthesizer___closed__3;
x_2 = l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__2;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2;
x_2 = lean_unsigned_to_nat(1024u);
x_3 = l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__3;
x_4 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_leadingNode_parenthesizer___boxed), 8, 3);
lean_closure_set(x_4, 0, x_1);
lean_closure_set(x_4, 1, x_2);
lean_closure_set(x_4, 2, x_3);
return x_4;
}
}
lean_object* l_Lean_Parser_Term_ensureExpectedType_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__1;
x_7 = l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__4;
x_8 = l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer(x_6, x_7, x_1, x_2, x_3, x_4, x_5);
return x_8;
}
}
lean_object* _init_l___regBuiltin_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_ensureExpectedType_parenthesizer), 5, 0);
return x_1;
}
}
lean_object* l___regBuiltin_Lean_Parser_Term_ensureExpectedType_parenthesizer(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_2 = l_Lean_PrettyPrinter_parenthesizerAttribute;
x_3 = l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2;
x_4 = l___regBuiltin_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__1;
x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1);
return x_5;
}
}
lean_object* _init_l_Lean_Parser_Term_not___elambda__1___closed__1() {
_start:
{
@ -89403,6 +90100,71 @@ lean_mark_persistent(l___regBuiltin_Lean_Parser_Term_ensureTypeOf_parenthesizer_
res = l___regBuiltin_Lean_Parser_Term_ensureTypeOf_parenthesizer(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__1 = _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__1();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__1);
l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2 = _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__2);
l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__3 = _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__3();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__3);
l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__4 = _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__4();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__4);
l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__5 = _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__5();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__5);
l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__6 = _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__6();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__6);
l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__7 = _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__7();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__7);
l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__8 = _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__8();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__8);
l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__9 = _init_l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__9();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType___elambda__1___closed__9);
l_Lean_Parser_Term_ensureExpectedType___closed__1 = _init_l_Lean_Parser_Term_ensureExpectedType___closed__1();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType___closed__1);
l_Lean_Parser_Term_ensureExpectedType___closed__2 = _init_l_Lean_Parser_Term_ensureExpectedType___closed__2();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType___closed__2);
l_Lean_Parser_Term_ensureExpectedType___closed__3 = _init_l_Lean_Parser_Term_ensureExpectedType___closed__3();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType___closed__3);
l_Lean_Parser_Term_ensureExpectedType___closed__4 = _init_l_Lean_Parser_Term_ensureExpectedType___closed__4();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType___closed__4);
l_Lean_Parser_Term_ensureExpectedType___closed__5 = _init_l_Lean_Parser_Term_ensureExpectedType___closed__5();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType___closed__5);
l_Lean_Parser_Term_ensureExpectedType___closed__6 = _init_l_Lean_Parser_Term_ensureExpectedType___closed__6();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType___closed__6);
l_Lean_Parser_Term_ensureExpectedType___closed__7 = _init_l_Lean_Parser_Term_ensureExpectedType___closed__7();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType___closed__7);
l_Lean_Parser_Term_ensureExpectedType___closed__8 = _init_l_Lean_Parser_Term_ensureExpectedType___closed__8();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType___closed__8);
l_Lean_Parser_Term_ensureExpectedType = _init_l_Lean_Parser_Term_ensureExpectedType();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType);
res = l___regBuiltinParser_Lean_Parser_Term_ensureExpectedType(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Parser_Term_ensureExpectedType_formatter___closed__1 = _init_l_Lean_Parser_Term_ensureExpectedType_formatter___closed__1();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType_formatter___closed__1);
l_Lean_Parser_Term_ensureExpectedType_formatter___closed__2 = _init_l_Lean_Parser_Term_ensureExpectedType_formatter___closed__2();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType_formatter___closed__2);
l_Lean_Parser_Term_ensureExpectedType_formatter___closed__3 = _init_l_Lean_Parser_Term_ensureExpectedType_formatter___closed__3();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType_formatter___closed__3);
l_Lean_Parser_Term_ensureExpectedType_formatter___closed__4 = _init_l_Lean_Parser_Term_ensureExpectedType_formatter___closed__4();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType_formatter___closed__4);
l___regBuiltin_Lean_Parser_Term_ensureExpectedType_formatter___closed__1 = _init_l___regBuiltin_Lean_Parser_Term_ensureExpectedType_formatter___closed__1();
lean_mark_persistent(l___regBuiltin_Lean_Parser_Term_ensureExpectedType_formatter___closed__1);
res = l___regBuiltin_Lean_Parser_Term_ensureExpectedType_formatter(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__1 = _init_l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__1();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__1);
l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__2 = _init_l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__2();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__2);
l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__3 = _init_l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__3();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__3);
l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__4 = _init_l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__4();
lean_mark_persistent(l_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__4);
l___regBuiltin_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__1();
lean_mark_persistent(l___regBuiltin_Lean_Parser_Term_ensureExpectedType_parenthesizer___closed__1);
res = l___regBuiltin_Lean_Parser_Term_ensureExpectedType_parenthesizer(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Parser_Term_not___elambda__1___closed__1 = _init_l_Lean_Parser_Term_not___elambda__1___closed__1();
lean_mark_persistent(l_Lean_Parser_Term_not___elambda__1___closed__1);
l_Lean_Parser_Term_not___elambda__1___closed__2 = _init_l_Lean_Parser_Term_not___elambda__1___closed__2();