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-03-16 15:00:13 -07:00
parent 702087c72c
commit 96bdc2b2e8
42 changed files with 5964 additions and 5706 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
stage0/src/Init/Core.lean
View file

@ -1739,6 +1739,9 @@ def reduceBool (b : Bool) : Bool := b
We believe `Lean.reduceBool` enables most interesting applications (e.g., proof by reflection). -/
def reduceNat (n : Nat) : Nat := n
def ofReduceBool (a b : Bool) (h : reduceBool a = b) : a = b := h
def ofReduceNat (a b : Nat) (h : reduceNat a = b) : a = b := h
end Lean
/- Classical reasoning support -/

21
stage0/src/Init/Lean/Data/Name.lean
View file

@ -8,6 +8,7 @@ import Init.LeanInit
import Init.Data.UInt
import Init.Data.ToString
import Init.Data.Hashable
import Init.Data.HashSet
import Init.Data.RBMap
import Init.Data.RBTree
@ -154,19 +155,25 @@ end NameMap
def NameSet := RBTree Name Name.quickLt
@[inline] def mkNameSet : NameSet := mkRBTree Name Name.quickLt
namespace NameSet
instance : HasEmptyc NameSet := ⟨mkNameSet⟩
def empty : NameSet := mkRBTree Name Name.quickLt
instance : HasEmptyc NameSet := ⟨empty⟩
instance : Inhabited NameSet := ⟨{}⟩
def insert (s : NameSet) (n : Name) := RBTree.insert s n
def contains (s : NameSet) (n : Name) : Bool := RBMap.contains s n
end NameSet
def NameHashSet := HashSet Name
namespace NameHashSet
@[inline] def empty : NameHashSet := HashSet.empty
instance : HasEmptyc NameHashSet := ⟨empty⟩
instance : Inhabited NameHashSet := ⟨{}⟩
def insert (s : NameHashSet) (n : Name) := HashSet.insert s n
def contains (s : NameHashSet) (n : Name) : Bool := HashSet.contains s n
end NameHashSet
end Lean
open Lean

2
stage0/src/Init/Lean/Elab/Declaration.lean
View file

@ -33,7 +33,7 @@ let (binders, type) := expandOptDeclSig (stx.getArg 2);
let modifiers := modifiers.addAttribute { name := `inline };
let modifiers := modifiers.addAttribute { name := `reducible };
elabDefLike {
ref := stx, kind := DefKind.def, modifiers := modifiers,
ref := stx, kind := DefKind.abbrev, modifiers := modifiers,
declId := stx.getArg 1, binders := binders, type? := type, val := stx.getArg 3
}

27
stage0/src/Init/Lean/Elab/Definition.lean
View file

@ -4,7 +4,9 @@ Released under Apache 2.0 license as described in the file LICENSE.
Authors: Leonardo de Moura, Sebastian Ullrich
-/
prelude
import Init.ShareCommon
import Init.Lean.Util.CollectLevelParams
import Init.Lean.Util.FoldConsts
import Init.Lean.Util.CollectFVars
import Init.Lean.Elab.DeclModifiers
import Init.Lean.Elab.Binders
@ -14,15 +16,16 @@ namespace Elab
namespace Command
inductive DefKind
| «def» | «theorem» | «example» | «opaque»
| «def» | «theorem» | «example» | «opaque» | «abbrev»
def DefKind.isTheorem : DefKind → Bool
| DefKind.theorem => true
| _ => false
def DefKind.isDefOrOpaque : DefKind → Bool
def DefKind.isDefOrAbbrevOrOpaque : DefKind → Bool
| DefKind.def => true
| DefKind.opaque => true
| DefKind.abbrev => true
| _ => false
def DefKind.isExample : DefKind → Bool
@ -89,7 +92,7 @@ Term.synthesizeSyntheticMVars false;
type ← Term.instantiateMVars ref type;
val ← Term.instantiateMVars view.val val;
if view.kind.isExample then pure none
else withUsedWhen ref vars xs val type view.kind.isDefOrOpaque $ fun vars => do
else withUsedWhen ref vars xs val type view.kind.isDefOrAbbrevOrOpaque $ fun vars => do
type ← Term.mkForall ref xs type;
type ← Term.mkForall ref vars type;
val ← Term.mkLambda ref xs val;
@ -98,7 +101,13 @@ else withUsedWhen ref vars xs val type view.kind.isDefOrOpaque $ fun vars => do
val ← Term.levelMVarToParam val;
type ← Term.instantiateMVars ref type;
val ← Term.instantiateMVars view.val val;
Term.trace `Elab.definition.body ref $ fun _ => val;
let shareCommonTypeVal : ShareCommonM (Expr × Expr) := do {
type ← withShareCommon type;
val ← withShareCommon val;
pure (type, val)
};
let (type, val) := shareCommonTypeVal.run;
Term.trace `Elab.definition.body ref $ fun _ => declName ++ " : " ++ type ++ " :=" ++ Format.line ++ val;
let usedParams : CollectLevelParams.State := {};
let usedParams := collectLevelParams usedParams type;
let usedParams := collectLevelParams usedParams val;
@ -109,10 +118,16 @@ else withUsedWhen ref vars xs val type view.kind.isDefOrOpaque $ fun vars => do
pure $ some $ Declaration.thmDecl { name := declName, lparams := levelParams, type := type, value := Task.pure val }
| DefKind.opaque =>
pure $ some $ Declaration.opaqueDecl { name := declName, lparams := levelParams, type := type, value := val, isUnsafe := view.modifiers.isUnsafe }
| DefKind.def =>
| DefKind.abbrev =>
pure $ some $ Declaration.defnDecl {
name := declName, lparams := levelParams, type := type, value := val,
hints := ReducibilityHints.regular 0, -- TODO
hints := ReducibilityHints.abbrev,
isUnsafe := view.modifiers.isUnsafe }
| DefKind.def => do
env ← Term.getEnv;
pure $ some $ Declaration.defnDecl {
name := declName, lparams := levelParams, type := type, value := val,
hints := ReducibilityHints.regular (getMaxHeight env val + 1),
isUnsafe := view.modifiers.isUnsafe }
| _ => unreachable!

13
stage0/src/Init/Lean/Meta/ExprDefEq.lean
View file

@ -36,6 +36,18 @@ if a.isLambda && !b.isLambda then do
else
pure false
/-- Support for `Lean.reduceBool` and `Lean.reduceNat` -/
def isDefEqNative (s t : Expr) : MetaM LBool := do
let isDefEq (s t) : MetaM LBool := toLBoolM $ isExprDefEqAux s t;
s? ← reduceNative? s;
match s? with
| some s => isDefEq s t
| none => do
t? ← reduceNative? t;
match t? with
| some t => isDefEq s t
| none => pure LBool.undef
/--
Return `true` if `e` is of the form `fun (x_1 ... x_n) => ?m x_1 ... x_n)`, and `?m` is unassigned.
Remark: `n` may be 0. -/
@ -990,6 +1002,7 @@ partial def isExprDefEqAuxImpl : Expr → Expr → MetaM Bool
whenUndefDo (isDefEqProofIrrel t s) $
isDefEqWHNF t s $ fun t s => do
condM (isDefEqEta t s <||> isDefEqEta s t) (pure true) $
whenUndefDo (isDefEqNative t s) $ do
whenUndefDo (isDefEqOffset t s) $ do
whenUndefDo (isDefEqDelta t s) $
match t, s with

36
stage0/src/Init/Lean/Meta/WHNF.lean
View file

@ -21,13 +21,41 @@ Lean.WHNF.unfoldDefinitionAux getConstNoEx isAuxDef? whnf inferType isExprDefEq
def whnfCore (e : Expr) : MetaM Expr :=
Lean.WHNF.whnfCore getConstNoEx isAuxDef? whnf inferType isExprDefEqAux getLocalDecl getExprMVarAssignment? e
unsafe def reduceNativeConst (α : Type) (typeName : Name) (constName : Name) : MetaM α := do
env ← getEnv;
match env.evalConstCheck α typeName constName with
| Except.error ex => throw $ Exception.other ex
| Except.ok v => pure v
unsafe def reduceBoolNativeUnsafe (constName : Name) : MetaM Bool := reduceNativeConst Bool `Bool constName
unsafe def reduceNatNativeUnsafe (constName : Name) : MetaM Nat := reduceNativeConst Nat `Nat constName
@[implementedBy reduceBoolNativeUnsafe] constant reduceBoolNative (constName : Name) : MetaM Bool := arbitrary _
@[implementedBy reduceNatNativeUnsafe] constant reduceNatNative (constName : Name) : MetaM Nat := arbitrary _
def reduceNative? (e : Expr) : MetaM (Option Expr) :=
match e with
| Expr.app (Expr.const fName _ _) (Expr.const argName _ _) _ =>
if fName == `Lean.reduceBool then do
b ← reduceBoolNative argName;
pure $ if b then some $ mkConst `Bool.true else some $ mkConst `Bool.false
else if fName == `Lean.reduceNat then do
n ← reduceNatNative argName;
pure $ some $ mkNatLit n
else
pure none
| _ => pure none
partial def whnfImpl : Expr → MetaM Expr
| e => Lean.WHNF.whnfEasyCases getLocalDecl getExprMVarAssignment? e $ fun e => do
e ← whnfCore e;
e? ← unfoldDefinition? e;
match e? with
| some e => whnfImpl e
| none => pure e
v? ← reduceNative? e;
match v? with
| some v => pure v
| none => do
e? ← unfoldDefinition? e;
match e? with
| some e => whnfImpl e
| none => pure e
@[init] def setWHNFRef : IO Unit :=
whnfRef.set whnfImpl

2
stage0/src/Init/Lean/Parser/Term.lean
View file

@ -137,6 +137,8 @@ def bracketedDoSeq := parser! "{" >> doSeq >> "}"
@[builtinTermParser] def liftMethod := parser! leftArrow >> termParser
@[builtinTermParser] def «do» := parser! symbol "do " leadPrec >> (bracketedDoSeq <|> doSeq)
@[builtinTermParser] def nativeRefl := parser! "nativeRefl! " >> termParser appPrec
@[builtinTermParser] def not := parser! symbol "¬" appPrec >> termParser 40
@[builtinTermParser] def bnot := parser! symbol "!" appPrec >> termParser 40
@[builtinTermParser] def uminus := parser! "-" >> termParser 100

1
stage0/src/Init/Lean/Util.lean
View file

@ -19,3 +19,4 @@ import Init.Lean.Util.Trace
import Init.Lean.Util.WHNF
import Init.Lean.Util.FindExpr
import Init.Lean.Util.ReplaceExpr
import Init.Lean.Util.FoldConsts

74
stage0/src/Init/Lean/Util/FoldConsts.lean Normal file
View file

@ -0,0 +1,74 @@
/-
Copyright (c) 2020 Microsoft Corporation. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.
Authors: Leonardo de Moura
-/
prelude
import Init.Control.Option
import Init.Lean.Expr
import Init.Lean.Environment
namespace Lean
namespace Expr
namespace FoldConstsImpl
abbrev cacheSize : USize := 8192
structure State :=
(visitedTerms : Array Expr) -- Remark: cache based on pointer address. Our "unsafe" implementation relies on the fact that `()` is not a valid Expr
(visitedConsts : NameHashSet) -- cache based on structural equality
abbrev FoldM := StateM State
@[inline] unsafe def visited (e : Expr) (size : USize) : FoldM Bool := do
s ← get;
let h := ptrAddrUnsafe e;
let i := h % size;
let k := s.visitedTerms.uget i lcProof;
if ptrAddrUnsafe k == h then pure true
else do
modify $ fun s => { visitedTerms := s.visitedTerms.uset i e lcProof, .. s };
pure false
@[specialize] unsafe partial def fold {α : Type} (f : Name → α → α) (size : USize) : Expr → α → FoldM α
| e, acc => condM (liftM $ visited e size) (pure acc) $
match e with
| Expr.forallE _ d b _ => do acc ← fold d acc; fold b acc
| Expr.lam _ d b _ => do acc ← fold d acc; fold b acc
| Expr.mdata _ b _ => fold b acc
| Expr.letE _ t v b _ => do acc ← fold t acc; acc ← fold v acc; fold b acc
| Expr.app f a _ => do acc ← fold f acc; fold a acc
| Expr.proj _ _ b _ => fold b acc
| Expr.const c _ _ => do
s ← get;
if s.visitedConsts.contains c then pure acc
else do
modify $ fun s => { visitedConsts := s.visitedConsts.insert c, .. s };
pure $ f c acc
| _ => pure acc
unsafe def initCache : State :=
{ visitedTerms := mkArray cacheSize.toNat (cast lcProof ()),
visitedConsts := {} }
@[inline] unsafe def foldUnsafe {α : Type} (e : Expr) (init : α) (f : Name → α → α) : α :=
(fold f cacheSize e init).run' initCache
end FoldConstsImpl
/-- Apply `f` to every constant occurring in `e` once. -/
@[implementedBy FoldConstsImpl.foldUnsafe]
constant foldConsts {α : Type} (e : Expr) (init : α) (f : Name → α → α) : α := init
end Expr
def getMaxHeight (env : Environment) (e : Expr) : UInt32 :=
e.foldConsts 0 $ fun constName max =>
match env.find? constName with
| ConstantInfo.defnInfo val =>
match val.hints with
| ReducibilityHints.regular h => if h > max then h else max
| _ => max
| _ => max
end Lean

2
stage0/stdlib/CMakeLists.txt
View file

File diff suppressed because one or more lines are too long

253
stage0/stdlib/Init/Lean/Attributes.c
View file

@ -32,7 +32,7 @@ lean_object* l_Lean_PersistentEnvExtension_getModuleEntries___rarg(lean_object*,
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerEnumAttributes___spec__3___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_qsortAux___main___at_Lean_registerParametricAttribute___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_nullKind;
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4(lean_object*);
lean_object* lean_array_uget(lean_object*, size_t);
lean_object* l_Lean_ParametricAttribute_setParam___rarg___closed__1;
lean_object* l_Lean_registerBuiltinAttribute___closed__3;
@ -55,7 +55,6 @@ lean_object* l_Lean_registerEnumAttributes___rarg___lambda__2___closed__3;
lean_object* l_Lean_ParametricAttribute_setParam___rarg___closed__2;
lean_object* l_Lean_attributeExtension___elambda__4___rarg(lean_object*);
lean_object* l_Lean_ParametricAttribute_Inhabited(lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__2___boxed(lean_object*, lean_object*);
lean_object* l_Lean_mkAttributeExtension___closed__2;
lean_object* l_Lean_mkAttributeImplBuilderTable(lean_object*);
size_t l_USize_sub(size_t, size_t);
@ -101,18 +100,19 @@ size_t l_USize_shiftRight(size_t, size_t);
lean_object* l_Lean_attributeExtension___elambda__2___boxed(lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerParametricAttribute___spec__3___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_binSearchAux___main___at_Lean_EnumAttributes_getValue___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParametricAttribute_Inhabited___closed__2;
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9(lean_object*);
lean_object* l_Lean_mkAttributeImplOfConstantUnsafe___closed__3;
lean_object* l_Lean_attributeExtension___elambda__3(lean_object*, lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerEnumAttributes___spec__6___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_TagAttribute_hasTag___boxed(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_LocalContext_Inhabited___closed__1;
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__3___closed__2;
lean_object* l_Lean_AttributeImpl_inhabited___closed__2;
lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* l_Lean_registerTagAttribute___closed__2;
lean_object* l_Lean_attributeExtension___elambda__2(lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerParametricAttribute___spec__4___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParametricAttribute_Inhabited___closed__3;
lean_object* l_RBNode_find___main___at_Lean_EnumAttributes_setValue___spec__1(lean_object*);
lean_object* l_PersistentHashMap_insertAux___main___at_Lean_registerBuiltinAttribute___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkAttributeImplOfConstant___boxed(lean_object*, lean_object*);
@ -143,9 +143,11 @@ extern lean_object* l_Lean_EnvExtension_Inhabited___rarg___closed__1;
lean_object* l_RBNode_find___main___at_Lean_ParametricAttribute_getParam___spec__1___rarg___boxed(lean_object*, lean_object*);
lean_object* l_EStateM_bind___rarg(lean_object*, lean_object*, lean_object*);
lean_object* lean_nat_sub(lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerEnumAttributes___spec__5___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_forM___main___at_Lean_registerEnumAttributes___spec__11(lean_object*, lean_object*);
lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4___closed__3;
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerParametricAttribute___spec__5___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_AssocList_foldlM___main___at_Lean_registerAttributeImplBuilder___spec__6(lean_object*, lean_object*);
lean_object* l_Lean_attributeExtension___closed__3;
@ -163,6 +165,7 @@ lean_object* l_Lean_mkAttributeMapRef(lean_object*);
lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Attributes_2__AttributeExtension_addImported___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerEnumAttributes___spec__3(lean_object*);
lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__5___boxed(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_Init_Lean_Attributes_2__AttributeExtension_addImported___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_lengthAux___main___rarg(lean_object*, lean_object*);
lean_object* l_Lean_registerEnumAttributes___rarg___lambda__2(lean_object*);
@ -174,7 +177,7 @@ lean_object* l_Lean_registerEnumAttributes___rarg___lambda__2___closed__1;
lean_object* l_Lean_getAttributeNames___boxed(lean_object*);
lean_object* l_Lean_TagAttribute_Inhabited;
size_t l_Lean_Name_hash(lean_object*);
lean_object* l_Lean_registerTagAttribute___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerTagAttribute___lambda__1___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Nat_repr(lean_object*);
extern lean_object* l_Char_HasRepr___closed__1;
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerEnumAttributes___spec__6(lean_object*);
@ -187,7 +190,7 @@ lean_object* l_RBNode_fold___main___at_Lean_registerEnumAttributes___spec__1___r
lean_object* l_Lean_ParametricAttribute_setParam(lean_object*);
lean_object* l_Lean_attributeExtension___closed__1;
lean_object* lean_eval_const(lean_object*, lean_object*);
lean_object* l_Lean_registerTagAttribute___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerTagAttribute___lambda__1(lean_object*, lean_object*, lean_object*);
lean_object* l_RBNode_fold___main___at_Lean_registerParametricAttribute___spec__1(lean_object*);
lean_object* l_RBNode_find___main___at_Lean_ParametricAttribute_setParam___spec__1___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Lean_mkAttributeExtension___lambda__2(lean_object*);
@ -212,12 +215,12 @@ lean_object* l_Lean_ParametricAttribute_setParam___rarg___closed__3;
lean_object* l_Lean_registerBuiltinAttribute(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_findAux___main___at_Lean_getBuiltinAttributeImpl___spec__2(lean_object*, size_t, lean_object*);
lean_object* l_Array_qsortAux___main___at_Lean_registerParametricAttribute___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4___boxed(lean_object*);
lean_object* l_Lean_mkAttributeImplOfEntry(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerTagAttribute___lambda__3(lean_object*);
size_t l_USize_mul(size_t, size_t);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__3___closed__3;
lean_object* l_List_redLength___main___rarg(lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4___closed__2;
lean_object* l_mkHashMapImp___rarg(lean_object*);
lean_object* l_RBNode_fold___main___at_RBMap_size___spec__1___rarg(lean_object*, lean_object*);
lean_object* l_IO_ofExcept___at_Lean_mkAttributeImplOfBuilder___spec__3(lean_object*, lean_object*);
@ -225,8 +228,10 @@ uint8_t l_PersistentHashMap_containsAtAux___main___at_Lean_Environment_contains_
lean_object* l_PersistentHashMap_contains___at_Lean_registerBuiltinAttribute___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_Lean_registerTagAttribute___lambda__3___closed__3;
lean_object* l_Lean_registerAttributeImplBuilder___closed__2;
lean_object* l_Lean_registerParametricAttribute___rarg___closed__4;
lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_getBuiltinAttributeImpl___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__3;
extern lean_object* l_Lean_NameSet_empty;
lean_object* l_Lean_ConstantInfo_type(lean_object*);
lean_object* lean_pop_scope(lean_object*, lean_object*);
lean_object* l_Lean_registerAttributeImplBuilder___closed__1;
@ -280,11 +285,14 @@ lean_object* l_Lean_registerEnumAttributes___rarg___closed__1;
lean_object* l_RBNode_fold___main___at_Lean_registerParametricAttribute___spec__1___rarg(lean_object*, lean_object*);
lean_object* l_Lean_AttributeImpl_inhabited___closed__1;
lean_object* l_Lean_AttributeApplicationTime_beq___boxed(lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___closed__3;
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4___closed__4;
lean_object* l_Lean_ParametricAttribute_getParam___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_add_attribute(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*);
uint8_t l_Lean_TagAttribute_hasTag(lean_object*, lean_object*, lean_object*);
lean_object* l_RBNode_find___main___at_Lean_EnumAttributes_getValue___spec__1(lean_object*);
lean_object* l_Lean_EnumAttributes_setValue___rarg___closed__2;
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4___closed__1;
lean_object* l_HashMapImp_contains___at_Lean_registerAttributeImplBuilder___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_Lean_attributeExtension___closed__6;
lean_object* l_Array_iterateMAux___main___at_Lean_getBuiltinAttributeNames___spec__4(lean_object*, lean_object*, lean_object*, lean_object*);
@ -307,8 +315,8 @@ lean_object* l_RBNode_find___main___at_Lean_EnumAttributes_setValue___spec__1___
lean_object* lean_push_scope(lean_object*, lean_object*, uint8_t, lean_object*);
lean_object* l_Lean_Environment_getModuleIdxFor_x3f(lean_object*, lean_object*);
lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__3___boxed(lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__3___closed__1;
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__3___boxed(lean_object*, lean_object*);
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
lean_object* l_PersistentHashMap_getCollisionNodeSize___rarg(lean_object*);
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerEnumAttributes___spec__9___rarg(lean_object*, lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerEnumAttributes___spec__4(lean_object*);
@ -327,10 +335,11 @@ lean_object* l_Lean_registerTagAttribute(lean_object*, lean_object*, lean_object
lean_object* l_Lean_registerParametricAttribute___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*);
uint8_t l_HashMapImp_contains___at_Lean_registerAttributeImplBuilder___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_EnumAttributes_setValue___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerEnumAttributes___spec__4___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyRangeMAux___main___at_Lean_registerTagAttribute___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_NameSet_contains(lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__3(lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__3(lean_object*, lean_object*);
lean_object* l_Lean_registerTagAttribute___closed__4;
lean_object* l_Lean_TagAttribute_Inhabited___closed__3;
lean_object* l_Array_iterateMAux___main___at_Lean_registerBuiltinAttribute___spec__6(size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -355,12 +364,11 @@ lean_object* l_Lean_AttributeExtensionState_inhabited___closed__1;
lean_object* l_RBNode_fold___main___at_Lean_registerEnumAttributes___spec__1___rarg(lean_object*, lean_object*);
lean_object* l_Lean_attributeExtension___elambda__1(lean_object*);
lean_object* l_Lean_registerAttributeOfDecl(lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__3___closed__4;
lean_object* l_Lean_registerTagAttribute___lambda__4___closed__4;
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerEnumAttributes___spec__5___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_HashMapImp_find_x3f___at_Lean_mkAttributeImplOfBuilder___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_mkAttributeExtension___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__1(lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerTagAttribute___lambda__3___closed__1;
lean_object* l_Lean_getAttributeNames(lean_object*);
lean_object* l_Lean_attributeExtension___elambda__4___boxed(lean_object*, lean_object*);
@ -5165,11 +5173,11 @@ lean_object* _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttrib
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Array_empty___closed__1;
x_1 = l_Array_empty___closed__1;
x_2 = l_Lean_NameSet_empty;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
lean_ctor_set(x_3, 0, x_1);
lean_ctor_set(x_3, 1, x_2);
return x_3;
}
}
@ -5872,13 +5880,14 @@ return x_115;
}
}
}
lean_object* l_Lean_registerTagAttribute___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
lean_object* l_Lean_registerTagAttribute___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_5;
lean_object* x_4; lean_object* x_5;
x_4 = l_Lean_NameSet_empty;
x_5 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_5, 0, x_1);
lean_ctor_set(x_5, 1, x_4);
lean_ctor_set(x_5, 0, x_4);
lean_ctor_set(x_5, 1, x_3);
return x_5;
}
}
@ -6128,7 +6137,7 @@ lean_object* _init_l_Lean_registerTagAttribute___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = lean_box(0);
x_1 = l_Lean_NameSet_empty;
x_2 = lean_alloc_closure((void*)(l_EStateM_pure___rarg), 2, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
@ -6137,11 +6146,9 @@ return x_2;
lean_object* _init_l_Lean_registerTagAttribute___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = lean_box(0);
x_2 = lean_alloc_closure((void*)(l_Lean_registerTagAttribute___lambda__1___boxed), 4, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_registerTagAttribute___lambda__1___boxed), 3, 0);
return x_1;
}
}
lean_object* _init_l_Lean_registerTagAttribute___closed__3() {
@ -6295,14 +6302,14 @@ x_7 = lean_box(x_6);
return x_7;
}
}
lean_object* l_Lean_registerTagAttribute___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
lean_object* l_Lean_registerTagAttribute___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_5;
x_5 = l_Lean_registerTagAttribute___lambda__1(x_1, x_2, x_3, x_4);
lean_dec(x_3);
lean_object* x_4;
x_4 = l_Lean_registerTagAttribute___lambda__1(x_1, x_2, x_3);
lean_dec(x_2);
return x_5;
lean_dec(x_1);
return x_4;
}
}
lean_object* l_Lean_registerTagAttribute___lambda__3___boxed(lean_object* x_1) {
@ -6958,6 +6965,18 @@ x_2 = lean_alloc_closure((void*)(l_Array_anyRangeMAux___main___at_Lean_registerP
return x_2;
}
}
lean_object* _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Array_empty___closed__1;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
}
}
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
@ -7016,7 +7035,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -7673,7 +7692,17 @@ x_2 = lean_alloc_closure((void*)(l_Lean_registerPersistentEnvExtensionUnsafe___a
return x_2;
}
}
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__1(lean_object* x_1, lean_object* x_2) {
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_5, 0, x_1);
lean_ctor_set(x_5, 1, x_4);
return x_5;
}
}
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__2(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4; lean_object* x_5;
@ -7686,7 +7715,7 @@ x_5 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_1, x_3, x_4);
return x_5;
}
}
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__2(lean_object* x_1, lean_object* x_2) {
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__3(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9;
@ -7702,7 +7731,7 @@ lean_dec(x_7);
return x_9;
}
}
lean_object* _init_l_Lean_registerParametricAttribute___rarg___lambda__3___closed__1() {
lean_object* _init_l_Lean_registerParametricAttribute___rarg___lambda__4___closed__1() {
_start:
{
lean_object* x_1;
@ -7710,22 +7739,22 @@ x_1 = lean_mk_string("parametric attribute");
return x_1;
}
}
lean_object* _init_l_Lean_registerParametricAttribute___rarg___lambda__3___closed__2() {
lean_object* _init_l_Lean_registerParametricAttribute___rarg___lambda__4___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_registerParametricAttribute___rarg___lambda__3___closed__1;
x_1 = l_Lean_registerParametricAttribute___rarg___lambda__4___closed__1;
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_registerParametricAttribute___rarg___lambda__3___closed__3() {
lean_object* _init_l_Lean_registerParametricAttribute___rarg___lambda__4___closed__3() {
_start:
{
uint8_t x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = 0;
x_2 = l_Lean_registerParametricAttribute___rarg___lambda__3___closed__2;
x_2 = l_Lean_registerParametricAttribute___rarg___lambda__4___closed__2;
x_3 = lean_box(1);
x_4 = lean_alloc_ctor(4, 2, 1);
lean_ctor_set(x_4, 0, x_2);
@ -7734,12 +7763,12 @@ lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_1);
return x_4;
}
}
lean_object* _init_l_Lean_registerParametricAttribute___rarg___lambda__3___closed__4() {
lean_object* _init_l_Lean_registerParametricAttribute___rarg___lambda__4___closed__4() {
_start:
{
uint8_t x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = 0;
x_2 = l_Lean_registerParametricAttribute___rarg___lambda__3___closed__3;
x_2 = l_Lean_registerParametricAttribute___rarg___lambda__4___closed__3;
x_3 = l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__4___closed__2;
x_4 = lean_alloc_ctor(4, 2, 1);
lean_ctor_set(x_4, 0, x_2);
@ -7748,7 +7777,7 @@ lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_1);
return x_4;
}
}
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__3(lean_object* x_1) {
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; uint8_t x_6; lean_object* x_7; lean_object* x_8;
@ -7758,7 +7787,7 @@ x_4 = l_Nat_repr(x_3);
x_5 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_5, 0, x_4);
x_6 = 0;
x_7 = l_Lean_registerParametricAttribute___rarg___lambda__3___closed__4;
x_7 = l_Lean_registerParametricAttribute___rarg___lambda__4___closed__4;
x_8 = lean_alloc_ctor(4, 2, 1);
lean_ctor_set(x_8, 0, x_7);
lean_ctor_set(x_8, 1, x_5);
@ -7766,7 +7795,7 @@ lean_ctor_set_uint8(x_8, sizeof(void*)*2, x_6);
return x_8;
}
}
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, uint8_t x_8, lean_object* x_9) {
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__5(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, uint8_t x_8, lean_object* x_9) {
_start:
{
if (x_8 == 0)
@ -7907,16 +7936,36 @@ return x_53;
lean_object* _init_l_Lean_registerParametricAttribute___rarg___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__1), 2, 0);
return x_1;
lean_object* x_1; lean_object* x_2;
x_1 = lean_box(0);
x_2 = lean_alloc_closure((void*)(l_EStateM_pure___rarg), 2, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_registerParametricAttribute___rarg___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = lean_box(0);
x_2 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__1___boxed), 4, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_registerParametricAttribute___rarg___closed__3() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__3___boxed), 1, 0);
x_1 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__2), 2, 0);
return x_1;
}
}
lean_object* _init_l_Lean_registerParametricAttribute___rarg___closed__4() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__4___boxed), 1, 0);
return x_1;
}
}
@ -7924,12 +7973,12 @@ lean_object* l_Lean_registerParametricAttribute___rarg(lean_object* x_1, lean_ob
_start:
{
lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14;
x_8 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__2___boxed), 2, 1);
x_8 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__3___boxed), 2, 1);
lean_closure_set(x_8, 0, x_1);
x_9 = l_Lean_registerTagAttribute___closed__1;
x_10 = l_Lean_registerTagAttribute___closed__2;
x_11 = l_Lean_registerParametricAttribute___rarg___closed__1;
x_12 = l_Lean_registerParametricAttribute___rarg___closed__2;
x_9 = l_Lean_registerParametricAttribute___rarg___closed__1;
x_10 = l_Lean_registerParametricAttribute___rarg___closed__2;
x_11 = l_Lean_registerParametricAttribute___rarg___closed__3;
x_12 = l_Lean_registerParametricAttribute___rarg___closed__4;
lean_inc(x_2);
x_13 = lean_alloc_ctor(0, 6, 0);
lean_ctor_set(x_13, 0, x_2);
@ -7949,7 +7998,7 @@ lean_inc(x_16);
lean_dec(x_14);
lean_inc(x_15);
lean_inc(x_2);
x_17 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__4___boxed), 9, 4);
x_17 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__5___boxed), 9, 4);
lean_closure_set(x_17, 0, x_2);
lean_closure_set(x_17, 1, x_4);
lean_closure_set(x_17, 2, x_15);
@ -8123,31 +8172,41 @@ x_7 = lean_box(x_6);
return x_7;
}
}
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__2___boxed(lean_object* x_1, lean_object* x_2) {
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = l_Lean_registerParametricAttribute___rarg___lambda__1(x_1, x_2, x_3, x_4);
lean_dec(x_3);
lean_dec(x_2);
return x_5;
}
}
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__3___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Lean_registerParametricAttribute___rarg___lambda__2(x_1, x_2);
x_3 = l_Lean_registerParametricAttribute___rarg___lambda__3(x_1, x_2);
lean_dec(x_2);
return x_3;
}
}
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__3___boxed(lean_object* x_1) {
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_registerParametricAttribute___rarg___lambda__3(x_1);
x_2 = l_Lean_registerParametricAttribute___rarg___lambda__4(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9) {
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__5___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9) {
_start:
{
uint8_t x_10; lean_object* x_11;
x_10 = lean_unbox(x_8);
lean_dec(x_8);
x_11 = l_Lean_registerParametricAttribute___rarg___lambda__4(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_10, x_9);
x_11 = l_Lean_registerParametricAttribute___rarg___lambda__5(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_10, x_9);
return x_11;
}
}
@ -8164,9 +8223,43 @@ return x_9;
lean_object* _init_l_Lean_ParametricAttribute_Inhabited___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = lean_unsigned_to_nat(0u);
x_2 = l_Lean_EnvExtension_Inhabited___rarg___closed__1;
x_3 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
x_4 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_4, 0, x_1);
lean_ctor_set(x_4, 1, x_2);
lean_ctor_set(x_4, 2, x_3);
return x_4;
}
}
lean_object* _init_l_Lean_ParametricAttribute_Inhabited___closed__2() {
_start:
{
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;
x_1 = l_Lean_ParametricAttribute_Inhabited___closed__1;
x_2 = lean_box(0);
x_3 = l_Lean_PersistentEnvExtension_inhabited___rarg___closed__1;
x_4 = l_Lean_PersistentEnvExtension_inhabited___rarg___closed__2;
x_5 = l_Lean_PersistentEnvExtension_inhabited___rarg___closed__3;
x_6 = l_Lean_PersistentEnvExtension_inhabited___rarg___closed__4;
x_7 = lean_alloc_ctor(0, 6, 0);
lean_ctor_set(x_7, 0, x_1);
lean_ctor_set(x_7, 1, x_2);
lean_ctor_set(x_7, 2, x_3);
lean_ctor_set(x_7, 3, x_4);
lean_ctor_set(x_7, 4, x_5);
lean_ctor_set(x_7, 5, x_6);
return x_7;
}
}
lean_object* _init_l_Lean_ParametricAttribute_Inhabited___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_AttributeImpl_inhabited___closed__2;
x_2 = l_Lean_TagAttribute_Inhabited___closed__2;
x_2 = l_Lean_ParametricAttribute_Inhabited___closed__2;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_1);
lean_ctor_set(x_3, 1, x_2);
@ -8177,7 +8270,7 @@ lean_object* l_Lean_ParametricAttribute_Inhabited(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_ParametricAttribute_Inhabited___closed__1;
x_2 = l_Lean_ParametricAttribute_Inhabited___closed__3;
return x_2;
}
}
@ -9202,7 +9295,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -10209,9 +10302,9 @@ _start:
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13;
x_7 = lean_alloc_closure((void*)(l_Lean_registerEnumAttributes___rarg___lambda__1___boxed), 2, 1);
lean_closure_set(x_7, 0, x_1);
x_8 = l_Lean_registerTagAttribute___closed__1;
x_9 = l_Lean_registerTagAttribute___closed__2;
x_10 = l_Lean_registerParametricAttribute___rarg___closed__1;
x_8 = l_Lean_registerParametricAttribute___rarg___closed__1;
x_9 = l_Lean_registerParametricAttribute___rarg___closed__2;
x_10 = l_Lean_registerParametricAttribute___rarg___closed__3;
x_11 = l_Lean_registerEnumAttributes___rarg___closed__1;
x_12 = lean_alloc_ctor(0, 6, 0);
lean_ctor_set(x_12, 0, x_2);
@ -10447,7 +10540,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_TagAttribute_Inhabited___closed__2;
x_2 = l_Lean_ParametricAttribute_Inhabited___closed__2;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_1);
lean_ctor_set(x_3, 1, x_2);
@ -11084,20 +11177,30 @@ l_Lean_TagAttribute_Inhabited___closed__3 = _init_l_Lean_TagAttribute_Inhabited_
lean_mark_persistent(l_Lean_TagAttribute_Inhabited___closed__3);
l_Lean_TagAttribute_Inhabited = _init_l_Lean_TagAttribute_Inhabited();
lean_mark_persistent(l_Lean_TagAttribute_Inhabited);
l_Lean_registerParametricAttribute___rarg___lambda__3___closed__1 = _init_l_Lean_registerParametricAttribute___rarg___lambda__3___closed__1();
lean_mark_persistent(l_Lean_registerParametricAttribute___rarg___lambda__3___closed__1);
l_Lean_registerParametricAttribute___rarg___lambda__3___closed__2 = _init_l_Lean_registerParametricAttribute___rarg___lambda__3___closed__2();
lean_mark_persistent(l_Lean_registerParametricAttribute___rarg___lambda__3___closed__2);
l_Lean_registerParametricAttribute___rarg___lambda__3___closed__3 = _init_l_Lean_registerParametricAttribute___rarg___lambda__3___closed__3();
lean_mark_persistent(l_Lean_registerParametricAttribute___rarg___lambda__3___closed__3);
l_Lean_registerParametricAttribute___rarg___lambda__3___closed__4 = _init_l_Lean_registerParametricAttribute___rarg___lambda__3___closed__4();
lean_mark_persistent(l_Lean_registerParametricAttribute___rarg___lambda__3___closed__4);
l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1 = _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1();
lean_mark_persistent(l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1);
l_Lean_registerParametricAttribute___rarg___lambda__4___closed__1 = _init_l_Lean_registerParametricAttribute___rarg___lambda__4___closed__1();
lean_mark_persistent(l_Lean_registerParametricAttribute___rarg___lambda__4___closed__1);
l_Lean_registerParametricAttribute___rarg___lambda__4___closed__2 = _init_l_Lean_registerParametricAttribute___rarg___lambda__4___closed__2();
lean_mark_persistent(l_Lean_registerParametricAttribute___rarg___lambda__4___closed__2);
l_Lean_registerParametricAttribute___rarg___lambda__4___closed__3 = _init_l_Lean_registerParametricAttribute___rarg___lambda__4___closed__3();
lean_mark_persistent(l_Lean_registerParametricAttribute___rarg___lambda__4___closed__3);
l_Lean_registerParametricAttribute___rarg___lambda__4___closed__4 = _init_l_Lean_registerParametricAttribute___rarg___lambda__4___closed__4();
lean_mark_persistent(l_Lean_registerParametricAttribute___rarg___lambda__4___closed__4);
l_Lean_registerParametricAttribute___rarg___closed__1 = _init_l_Lean_registerParametricAttribute___rarg___closed__1();
lean_mark_persistent(l_Lean_registerParametricAttribute___rarg___closed__1);
l_Lean_registerParametricAttribute___rarg___closed__2 = _init_l_Lean_registerParametricAttribute___rarg___closed__2();
lean_mark_persistent(l_Lean_registerParametricAttribute___rarg___closed__2);
l_Lean_registerParametricAttribute___rarg___closed__3 = _init_l_Lean_registerParametricAttribute___rarg___closed__3();
lean_mark_persistent(l_Lean_registerParametricAttribute___rarg___closed__3);
l_Lean_registerParametricAttribute___rarg___closed__4 = _init_l_Lean_registerParametricAttribute___rarg___closed__4();
lean_mark_persistent(l_Lean_registerParametricAttribute___rarg___closed__4);
l_Lean_ParametricAttribute_Inhabited___closed__1 = _init_l_Lean_ParametricAttribute_Inhabited___closed__1();
lean_mark_persistent(l_Lean_ParametricAttribute_Inhabited___closed__1);
l_Lean_ParametricAttribute_Inhabited___closed__2 = _init_l_Lean_ParametricAttribute_Inhabited___closed__2();
lean_mark_persistent(l_Lean_ParametricAttribute_Inhabited___closed__2);
l_Lean_ParametricAttribute_Inhabited___closed__3 = _init_l_Lean_ParametricAttribute_Inhabited___closed__3();
lean_mark_persistent(l_Lean_ParametricAttribute_Inhabited___closed__3);
l_Lean_ParametricAttribute_setParam___rarg___closed__1 = _init_l_Lean_ParametricAttribute_setParam___rarg___closed__1();
lean_mark_persistent(l_Lean_ParametricAttribute_setParam___rarg___closed__1);
l_Lean_ParametricAttribute_setParam___rarg___closed__2 = _init_l_Lean_ParametricAttribute_setParam___rarg___closed__2();

22
stage0/stdlib/Init/Lean/Compiler/ExportAttr.c
View file

@ -24,13 +24,11 @@ lean_object* lean_nat_div(lean_object*, lean_object*);
lean_object* l_Lean_PersistentEnvExtension_getModuleEntries___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParametricAttribute_getParam___at_Lean_getExportNameFor___spec__1(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkExportAttr___closed__1;
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
uint8_t lean_name_eq(lean_object*, lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkExportAttr___spec__4___closed__1;
lean_object* l_Lean_mkExportAttr___lambda__1(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Array_empty___closed__1;
extern lean_object* l_Lean_registerTagAttribute___closed__1;
uint8_t l_Char_isDigit(uint32_t);
lean_object* lean_io_ref_get(lean_object*, lean_object*);
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_mkExportAttr___spec__7(lean_object*, lean_object*);
@ -51,8 +49,8 @@ lean_object* lean_string_utf8_byte_size(lean_object*);
lean_object* l_Lean_mkExportAttr___lambda__1___closed__2;
lean_object* lean_nat_add(lean_object*, lean_object*);
uint8_t l___private_Init_Lean_Compiler_ExportAttr_2__isValidCppName___main(lean_object*);
extern lean_object* l_Lean_registerTagAttribute___closed__2;
lean_object* l_Lean_registerParametricAttribute___at_Lean_mkExportAttr___spec__1___lambda__1(lean_object*);
extern lean_object* l_Lean_ParametricAttribute_Inhabited___closed__3;
lean_object* lean_string_utf8_next(lean_object*, lean_object*);
lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_mkExportAttr___spec__5(lean_object*, lean_object*);
lean_object* l_RBNode_find___main___at_Lean_getExportNameFor___spec__2(lean_object*, lean_object*);
@ -67,6 +65,7 @@ lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkExportAttr___lambda__1___closed__1;
lean_object* l_Lean_isExport___closed__2;
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_name_mk_string(lean_object*, lean_object*);
lean_object* l_Lean_mkExportAttr___lambda__1___closed__4;
lean_object* l_String_anyAux___main___at___private_Init_Lean_Compiler_ExportAttr_1__isValidCppId___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -79,9 +78,9 @@ extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__2;
extern lean_object* l___private_Init_Lean_Environment_5__envExtensionsRef;
lean_object* l_Lean_registerBuiltinAttribute(lean_object*, lean_object*);
lean_object* l_Array_binSearchAux___main___at_Lean_getExportNameFor___spec__3(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Compiler_ExportAttr_1__isValidCppId___boxed(lean_object*);
uint8_t l_String_anyAux___main___at___private_Init_Lean_Compiler_ExportAttr_1__isValidCppId___spec__1(uint8_t, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__4;
uint8_t l_Lean_isExport(lean_object*, lean_object*);
uint8_t l_Char_isAlpha(uint32_t);
uint8_t l___private_Init_Lean_Compiler_ExportAttr_2__isValidCppName(lean_object*);
@ -92,11 +91,13 @@ uint8_t l_UInt32_decEq(uint32_t, uint32_t);
extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__1;
lean_object* l_Array_anyRangeMAux___main___at_Lean_mkExportAttr___spec__6___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__3;
lean_object* lean_io_ref_reset(lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__2;
lean_object* l_Lean_Environment_getModuleIdxFor_x3f(lean_object*, lean_object*);
lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkExportAttr___lambda__2(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
lean_object* l_Lean_mkExportAttr___lambda__2___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PersistentEnvExtension_getState___rarg(lean_object*, lean_object*);
lean_object* lean_get_export_name_for(lean_object*, lean_object*);
@ -105,7 +106,6 @@ lean_object* lean_io_initializing(lean_object*);
extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__2;
lean_object* l_Lean_registerParametricAttribute___at_Lean_mkExportAttr___spec__1___lambda__1___boxed(lean_object*);
lean_object* l_RBNode_fold___main___at_Lean_mkExportAttr___spec__2(lean_object*, lean_object*);
extern lean_object* l_Lean_ParametricAttribute_Inhabited___closed__1;
lean_object* l___private_Init_Lean_Compiler_ExportAttr_2__isValidCppName___boxed(lean_object*);
lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*);
uint8_t l_String_anyAux___main___at___private_Init_Lean_Compiler_ExportAttr_1__isValidCppId___spec__2(uint8_t, lean_object*, lean_object*, lean_object*);
@ -825,7 +825,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -1494,11 +1494,11 @@ lean_object* l_Lean_registerParametricAttribute___at_Lean_mkExportAttr___spec__1
_start:
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13;
x_7 = l_Lean_registerTagAttribute___closed__1;
x_8 = l_Lean_registerTagAttribute___closed__2;
x_9 = l_Lean_registerParametricAttribute___rarg___closed__1;
x_7 = l_Lean_registerParametricAttribute___rarg___closed__1;
x_8 = l_Lean_registerParametricAttribute___rarg___closed__2;
x_9 = l_Lean_registerParametricAttribute___rarg___closed__3;
x_10 = l_Lean_registerParametricAttribute___at_Lean_mkExportAttr___spec__1___closed__1;
x_11 = l_Lean_registerParametricAttribute___rarg___closed__2;
x_11 = l_Lean_registerParametricAttribute___rarg___closed__4;
lean_inc(x_1);
x_12 = lean_alloc_ctor(0, 6, 0);
lean_ctor_set(x_12, 0, x_1);
@ -1518,7 +1518,7 @@ lean_inc(x_15);
lean_dec(x_13);
lean_inc(x_14);
lean_inc(x_1);
x_16 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__4___boxed), 9, 4);
x_16 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__5___boxed), 9, 4);
lean_closure_set(x_16, 0, x_1);
lean_closure_set(x_16, 1, x_3);
lean_closure_set(x_16, 2, x_14);

20
stage0/stdlib/Init/Lean/Compiler/ExternAttr.c
View file

@ -24,14 +24,12 @@ lean_object* l_Lean_mkExternAttr(lean_object*);
lean_object* l___private_Init_Lean_Compiler_ExternAttr_2__syntaxToExternAttrData___closed__6;
lean_object* l_Lean_registerParametricAttribute___at_Lean_mkExternAttr___spec__1___lambda__1___boxed(lean_object*);
lean_object* l_Lean_getExternNameFor___boxed(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
uint8_t lean_name_eq(lean_object*, lean_object*);
extern lean_object* l_Lean_mkProjectionFnInfoExtension___closed__3;
extern lean_object* l_Prod_HasRepr___rarg___closed__1;
lean_object* l_Lean_ExternAttrData_inhabited___closed__1;
extern lean_object* l_Array_empty___closed__1;
extern lean_object* l_Lean_registerTagAttribute___closed__1;
lean_object* l_Lean_expandExternPattern(lean_object*, lean_object*);
lean_object* l_Lean_ParametricAttribute_getParam___at_Lean_getExternAttrData___spec__1___boxed(lean_object*, lean_object*, lean_object*);
lean_object* lean_io_ref_get(lean_object*, lean_object*);
@ -52,9 +50,9 @@ lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_
lean_object* l___private_Init_Lean_Compiler_ExternAttr_2__syntaxToExternAttrData___closed__4;
uint8_t l_Lean_Environment_isProjectionFn(lean_object*, lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
extern lean_object* l_Lean_registerTagAttribute___closed__2;
lean_object* l___private_Init_Lean_Compiler_ExternAttr_1__syntaxToExternEntries___main___closed__7;
lean_object* l___private_Init_Lean_Compiler_ExternAttr_2__syntaxToExternAttrData___closed__9;
extern lean_object* l_Lean_ParametricAttribute_Inhabited___closed__3;
uint8_t l_Lean_Environment_isConstructor(lean_object*, lean_object*);
uint8_t l_Not_Decidable___rarg(uint8_t);
lean_object* l_Lean_expandExternPattern___boxed(lean_object*, lean_object*);
@ -81,6 +79,7 @@ lean_object* l_Lean_expandExternPatternAux___main(lean_object*, lean_object*, le
lean_object* l___private_Init_Lean_Compiler_ExternAttr_2__syntaxToExternAttrData___closed__5;
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Compiler_ExternAttr_3__parseOptNum___main(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Compiler_ExternAttr_2__syntaxToExternAttrData___boxed(lean_object*);
lean_object* l_Lean_expandExternPatternAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkExternAttr___lambda__1(lean_object*, lean_object*, lean_object*);
@ -90,16 +89,17 @@ lean_object* l_Array_qsortAux___main___at_Lean_mkExternAttr___spec__3___boxed(le
extern lean_object* l_List_reprAux___main___rarg___closed__1;
lean_object* l_Lean_mkExternAttr___closed__1;
lean_object* l___private_Init_Lean_Compiler_ExternAttr_1__syntaxToExternEntries___main___closed__6;
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__1;
lean_object* l_Lean_isExtern___boxed(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Compiler_ExternAttr_3__parseOptNum(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__2;
extern lean_object* l___private_Init_Lean_Environment_5__envExtensionsRef;
lean_object* l_Lean_registerBuiltinAttribute(lean_object*, lean_object*);
lean_object* l_Lean_mkExternAttr___lambda__2___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Array_anyRangeMAux___main___at_Lean_mkExternAttr___spec__6(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_String_Iterator_next(lean_object*);
lean_object* l___private_Init_Lean_Compiler_ExternAttr_2__syntaxToExternAttrData___closed__3;
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__4;
lean_object* l_List_foldl___main___at_Lean_mkSimpleFnCall___spec__1___boxed(lean_object*, lean_object*);
uint8_t l_String_Iterator_hasNext(lean_object*);
extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__3;
@ -130,6 +130,7 @@ lean_object* l_Lean_expandExternPatternAux(lean_object*, lean_object*, lean_obje
lean_object* l_Lean_getExternEntryForAux___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Environment_getModuleIdxFor_x3f(lean_object*, lean_object*);
lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
lean_object* l_Lean_mkExternAttr___closed__4;
lean_object* l_Lean_PersistentEnvExtension_getState___rarg(lean_object*, lean_object*);
lean_object* lean_io_initializing(lean_object*);
@ -140,7 +141,6 @@ lean_object* l___private_Init_Lean_Compiler_ExternAttr_2__syntaxToExternAttrData
lean_object* l___private_Init_Lean_Compiler_ExternAttr_2__syntaxToExternAttrData___closed__7;
lean_object* l_Lean_getExternEntryForAux___main___boxed(lean_object*, lean_object*);
lean_object* l_String_Iterator_remainingBytes(lean_object*);
extern lean_object* l_Lean_ParametricAttribute_Inhabited___closed__1;
lean_object* l_Lean_getExternEntryForAux___main(lean_object*, lean_object*);
extern lean_object* l_System_FilePath_dirName___closed__1;
lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*);
@ -1109,7 +1109,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -1778,11 +1778,11 @@ lean_object* l_Lean_registerParametricAttribute___at_Lean_mkExternAttr___spec__1
_start:
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13;
x_7 = l_Lean_registerTagAttribute___closed__1;
x_8 = l_Lean_registerTagAttribute___closed__2;
x_7 = l_Lean_registerParametricAttribute___rarg___closed__1;
x_8 = l_Lean_registerParametricAttribute___rarg___closed__2;
x_9 = l_Lean_mkProjectionFnInfoExtension___closed__3;
x_10 = l_Lean_registerParametricAttribute___at_Lean_mkExternAttr___spec__1___closed__1;
x_11 = l_Lean_registerParametricAttribute___rarg___closed__2;
x_11 = l_Lean_registerParametricAttribute___rarg___closed__4;
lean_inc(x_1);
x_12 = lean_alloc_ctor(0, 6, 0);
lean_ctor_set(x_12, 0, x_1);
@ -1802,7 +1802,7 @@ lean_inc(x_15);
lean_dec(x_13);
lean_inc(x_14);
lean_inc(x_1);
x_16 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__4___boxed), 9, 4);
x_16 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__5___boxed), 9, 4);
lean_closure_set(x_16, 0, x_1);
lean_closure_set(x_16, 1, x_3);
lean_closure_set(x_16, 2, x_14);

3
stage0/stdlib/Init/Lean/Compiler/IR/ElimDeadBranches.c
View file

@ -190,6 +190,7 @@ lean_object* l_Lean_IR_UnreachableBranches_projValue___boxed(lean_object*, lean_
size_t lean_usize_of_nat(lean_object*);
uint8_t l_Lean_IR_UnreachableBranches_containsCtor(lean_object*, lean_object*);
lean_object* l_Lean_IR_UnreachableBranches_Value_addChoice(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_NameSet_empty;
lean_object* l_Lean_IR_UnreachableBranches_functionSummariesExt___elambda__4___boxed(lean_object*, lean_object*);
lean_object* l_Array_umapMAux___main___at_Lean_IR_UnreachableBranches_inferStep___spec__1___closed__1;
lean_object* l_Lean_IR_UnreachableBranches_Value_HasBeq___closed__1;
@ -1809,7 +1810,7 @@ _start:
{
lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_4 = l_Lean_IR_UnreachableBranches_Value_merge___main(x_2, x_3);
x_5 = lean_box(0);
x_5 = l_Lean_NameSet_empty;
x_6 = l_Lean_IR_UnreachableBranches_Value_truncate___main(x_1, x_4, x_5);
return x_6;
}

3
stage0/stdlib/Init/Lean/Compiler/IR/EmitC.c
View file

@ -324,6 +324,7 @@ lean_object* l_Lean_IR_EmitC_emitUProj___boxed(lean_object*, lean_object*, lean_
lean_object* l_Lean_IR_EmitC_emitCInitName___boxed(lean_object*, lean_object*, lean_object*);
size_t lean_usize_of_nat(lean_object*);
lean_object* l_Lean_IR_EmitC_emitReuse___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_NameSet_empty;
lean_object* l_Lean_IR_EmitC_emitFnBody(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_IR_ensureHasDefault(lean_object*);
lean_object* l_Nat_forMAux___main___at_Lean_IR_EmitC_emitFnDeclAux___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -2372,7 +2373,7 @@ lean_inc(x_5);
lean_dec(x_3);
x_6 = l_Lean_IR_declMapExt;
x_7 = l_Lean_SimplePersistentEnvExtension_getEntries___rarg(x_6, x_4);
x_8 = lean_box(0);
x_8 = l_Lean_NameSet_empty;
x_9 = l_List_foldl___main___at_Lean_IR_EmitC_emitFnDecls___spec__1(x_8, x_7);
lean_inc(x_4);
x_10 = l_List_foldl___main___at_Lean_IR_EmitC_emitFnDecls___spec__2(x_4, x_8, x_7);

22
stage0/stdlib/Init/Lean/Compiler/ImplementedByAttr.c
View file

@ -21,14 +21,12 @@ lean_object* l_Lean_PersistentEnvExtension_getModuleEntries___rarg(lean_object*,
lean_object* l_Lean_registerParametricAttribute___at_Lean_Compiler_mkImplementedByAttr___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Compiler_mkImplementedByAttr___lambda__1___closed__1;
lean_object* l_Lean_Compiler_mkImplementedByAttr___lambda__1___boxed(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
uint8_t lean_name_eq(lean_object*, lean_object*);
lean_object* l_RBNode_find___main___at_Lean_Compiler_getImplementedBy___spec__2(lean_object*, lean_object*);
lean_object* l_Lean_Compiler_mkImplementedByAttr___lambda__1___closed__4;
extern lean_object* l_Array_empty___closed__1;
lean_object* lean_environment_find(lean_object*, lean_object*);
extern lean_object* l_Lean_registerTagAttribute___closed__1;
lean_object* l_Array_binSearchAux___main___at_Lean_Compiler_getImplementedBy___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_io_ref_get(lean_object*, lean_object*);
lean_object* lean_array_push(lean_object*, lean_object*);
@ -39,7 +37,7 @@ extern lean_object* l_Lean_Name_inhabited;
lean_object* l_Lean_registerParametricAttribute___at_Lean_Compiler_mkImplementedByAttr___spec__1___lambda__1(lean_object*);
lean_object* l_Lean_Compiler_implementedByAttr;
lean_object* lean_nat_add(lean_object*, lean_object*);
extern lean_object* l_Lean_registerTagAttribute___closed__2;
extern lean_object* l_Lean_ParametricAttribute_Inhabited___closed__3;
lean_object* l_Array_binSearchAux___main___at_Lean_Compiler_getImplementedBy___spec__3(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_Compiler_mkImplementedByAttr___spec__7(lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___at_Lean_Compiler_mkImplementedByAttr___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*);
@ -53,6 +51,7 @@ lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___at_Lean_Compiler_mkImplementedByAttr___spec__1___lambda__1___boxed(lean_object*);
lean_object* l_Array_qsortAux___main___at_Lean_Compiler_mkImplementedByAttr___spec__3(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Compiler_mkImplementedByAttr___spec__4___closed__1;
extern lean_object* l_Char_HasRepr___closed__1;
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_Compiler_mkImplementedByAttr___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -63,7 +62,7 @@ extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__1;
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__2;
extern lean_object* l___private_Init_Lean_Environment_5__envExtensionsRef;
lean_object* l_Lean_registerBuiltinAttribute(lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__4;
lean_object* l_Lean_ConstantInfo_type(lean_object*);
lean_object* l_Lean_Compiler_mkImplementedByAttr___lambda__1(lean_object*, lean_object*, lean_object*);
lean_object* l_RBNode_fold___main___at_Lean_Compiler_mkImplementedByAttr___spec__2___boxed(lean_object*, lean_object*);
@ -80,6 +79,7 @@ uint8_t lean_nat_dec_le(lean_object*, lean_object*);
lean_object* l_Lean_Compiler_mkImplementedByAttr___lambda__1___closed__5;
lean_object* l_Lean_ParametricAttribute_getParam___at_Lean_Compiler_getImplementedBy___spec__1___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Compiler_mkImplementedByAttr___closed__1;
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__3;
lean_object* l_Lean_Compiler_mkImplementedByAttr___closed__2;
lean_object* lean_get_implemented_by(lean_object*, lean_object*);
lean_object* l_Lean_Compiler_mkImplementedByAttr___closed__4;
@ -87,12 +87,12 @@ lean_object* lean_io_ref_reset(lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__2;
lean_object* l_Lean_Environment_getModuleIdxFor_x3f(lean_object*, lean_object*);
lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
lean_object* l_Array_anyRangeMAux___main___at_Lean_Compiler_mkImplementedByAttr___spec__6___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PersistentEnvExtension_getState___rarg(lean_object*, lean_object*);
lean_object* lean_io_initializing(lean_object*);
extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__2;
lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_Compiler_mkImplementedByAttr___spec__5(lean_object*, lean_object*);
extern lean_object* l_Lean_ParametricAttribute_Inhabited___closed__1;
lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*);
lean_object* l_Lean_Compiler_mkImplementedByAttr___lambda__1___closed__6;
@ -447,7 +447,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -1116,11 +1116,11 @@ lean_object* l_Lean_registerParametricAttribute___at_Lean_Compiler_mkImplemented
_start:
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13;
x_7 = l_Lean_registerTagAttribute___closed__1;
x_8 = l_Lean_registerTagAttribute___closed__2;
x_9 = l_Lean_registerParametricAttribute___rarg___closed__1;
x_7 = l_Lean_registerParametricAttribute___rarg___closed__1;
x_8 = l_Lean_registerParametricAttribute___rarg___closed__2;
x_9 = l_Lean_registerParametricAttribute___rarg___closed__3;
x_10 = l_Lean_registerParametricAttribute___at_Lean_Compiler_mkImplementedByAttr___spec__1___closed__1;
x_11 = l_Lean_registerParametricAttribute___rarg___closed__2;
x_11 = l_Lean_registerParametricAttribute___rarg___closed__4;
lean_inc(x_1);
x_12 = lean_alloc_ctor(0, 6, 0);
lean_ctor_set(x_12, 0, x_1);
@ -1140,7 +1140,7 @@ lean_inc(x_15);
lean_dec(x_13);
lean_inc(x_14);
lean_inc(x_1);
x_16 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__4___boxed), 9, 4);
x_16 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__5___boxed), 9, 4);
lean_closure_set(x_16, 0, x_1);
lean_closure_set(x_16, 1, x_3);
lean_closure_set(x_16, 2, x_14);

22
stage0/stdlib/Init/Lean/Compiler/InitAttr.c
View file

@ -23,14 +23,12 @@ lean_object* l_Lean_registerParametricAttribute___at_Lean_mkInitAttr___spec__1__
lean_object* l_Lean_registerParametricAttribute___at_Lean_mkInitAttr___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_nat_div(lean_object*, lean_object*);
lean_object* l_Lean_PersistentEnvExtension_getModuleEntries___rarg(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
uint8_t lean_name_eq(lean_object*, lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkInitAttr___spec__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Array_empty___closed__1;
lean_object* lean_environment_find(lean_object*, lean_object*);
lean_object* l_Lean_mkInitAttr___lambda__1___closed__11;
extern lean_object* l_Lean_registerTagAttribute___closed__1;
lean_object* lean_io_ref_get(lean_object*, lean_object*);
lean_object* lean_array_push(lean_object*, lean_object*);
lean_object* lean_array_get_size(lean_object*);
@ -39,9 +37,9 @@ extern lean_object* l_Lean_Name_inhabited;
lean_object* l_Lean_registerParametricAttribute___at_Lean_mkInitAttr___spec__1___lambda__1(lean_object*);
uint8_t l_Array_anyRangeMAux___main___at_Lean_mkInitAttr___spec__6(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
extern lean_object* l_Lean_registerTagAttribute___closed__2;
lean_object* l_Lean_mkInitAttr___closed__5;
lean_object* l_Lean_mkInitAttr___lambda__1___closed__8;
extern lean_object* l_Lean_ParametricAttribute_Inhabited___closed__3;
lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_mkInitAttr___spec__5(lean_object*, lean_object*);
lean_object* l_Array_anyRangeMAux___main___at_Lean_mkInitAttr___spec__6___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l___private_Init_Lean_Compiler_InitAttr_2__isUnitType(lean_object*);
@ -52,6 +50,7 @@ lean_object* lean_nat_sub(lean_object*, lean_object*);
lean_object* l_Lean_mkInitAttr___lambda__1___closed__2;
lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_RBNode_find___main___at_Lean_isIOUnitInitFn___spec__2(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Compiler_InitAttr_1__getIOTypeArg___closed__1;
lean_object* l_Lean_mkInitAttr(lean_object*);
@ -68,10 +67,10 @@ extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__1;
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__2;
extern lean_object* l___private_Init_Lean_Environment_5__envExtensionsRef;
lean_object* l_Lean_registerBuiltinAttribute(lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkInitAttr___lambda__1___closed__4;
lean_object* l___private_Init_Lean_Compiler_InitAttr_1__getIOTypeArg(lean_object*);
lean_object* l_Array_qsortAux___main___at_Lean_mkInitAttr___spec__3(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__4;
lean_object* l_Lean_ConstantInfo_type(lean_object*);
lean_object* l_Array_binSearchAux___main___at_Lean_isIOUnitInitFn___spec__3(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_hasInitAttr(lean_object*, lean_object*);
@ -88,6 +87,7 @@ uint8_t lean_nat_dec_le(lean_object*, lean_object*);
lean_object* l_Lean_mkInitAttr___lambda__1___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_qsortAux___main___at_Lean_mkInitAttr___spec__3___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParametricAttribute_getParam___at_Lean_isIOUnitInitFn___spec__1(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__3;
lean_object* l_Lean_mkInitAttr___lambda__1___closed__6;
lean_object* l_Lean_mkInitAttr___closed__3;
uint8_t l_Lean_isIOUnitInitFn(lean_object*, lean_object*);
@ -98,6 +98,7 @@ lean_object* l_Lean_Environment_getModuleIdxFor_x3f(lean_object*, lean_object*);
lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*);
lean_object* lean_get_init_fn_name_for(lean_object*, lean_object*);
lean_object* l_Lean_isIOUnitInitFn___boxed(lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
lean_object* l_Lean_mkInitAttr___lambda__2___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkInitAttr___closed__4;
lean_object* l_RBNode_find___main___at_Lean_isIOUnitInitFn___spec__2___boxed(lean_object*, lean_object*);
@ -109,7 +110,6 @@ lean_object* l_Lean_mkInitAttr___lambda__2(lean_object*, lean_object*, lean_obje
lean_object* l_Lean_mkInitAttr___lambda__1___closed__10;
lean_object* l_Lean_registerParametricAttribute___at_Lean_mkInitAttr___spec__1___lambda__1___boxed(lean_object*);
lean_object* l_RBNode_fold___main___at_Lean_mkInitAttr___spec__2___boxed(lean_object*, lean_object*);
extern lean_object* l_Lean_ParametricAttribute_Inhabited___closed__1;
lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*);
lean_object* l_Lean_mkInitAttr___closed__2;
@ -641,7 +641,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -1310,11 +1310,11 @@ lean_object* l_Lean_registerParametricAttribute___at_Lean_mkInitAttr___spec__1(l
_start:
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13;
x_7 = l_Lean_registerTagAttribute___closed__1;
x_8 = l_Lean_registerTagAttribute___closed__2;
x_9 = l_Lean_registerParametricAttribute___rarg___closed__1;
x_7 = l_Lean_registerParametricAttribute___rarg___closed__1;
x_8 = l_Lean_registerParametricAttribute___rarg___closed__2;
x_9 = l_Lean_registerParametricAttribute___rarg___closed__3;
x_10 = l_Lean_registerParametricAttribute___at_Lean_mkInitAttr___spec__1___closed__1;
x_11 = l_Lean_registerParametricAttribute___rarg___closed__2;
x_11 = l_Lean_registerParametricAttribute___rarg___closed__4;
lean_inc(x_1);
x_12 = lean_alloc_ctor(0, 6, 0);
lean_ctor_set(x_12, 0, x_1);
@ -1334,7 +1334,7 @@ lean_inc(x_15);
lean_dec(x_13);
lean_inc(x_14);
lean_inc(x_1);
x_16 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__4___boxed), 9, 4);
x_16 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__5___boxed), 9, 4);
lean_closure_set(x_16, 0, x_1);
lean_closure_set(x_16, 1, x_3);
lean_closure_set(x_16, 2, x_14);

12
stage0/stdlib/Init/Lean/Compiler/InlineAttrs.c
View file

@ -19,7 +19,6 @@ extern lean_object* l___private_Init_Lean_Environment_8__persistentEnvExtensions
lean_object* lean_nat_div(lean_object*, lean_object*);
lean_object* l_Lean_PersistentEnvExtension_getModuleEntries___rarg(lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Compiler_InlineAttributeKind_Inhabited;
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
uint8_t lean_name_eq(lean_object*, lean_object*);
lean_object* l_Lean_Compiler_mkInlineAttrs___closed__16;
@ -27,7 +26,6 @@ lean_object* l_RBNode_fold___main___at_Lean_Compiler_mkInlineAttrs___spec__2___b
uint8_t lean_has_noinline_attribute(lean_object*, lean_object*);
lean_object* l_RBNode_fold___main___at_Lean_Compiler_mkInlineAttrs___spec__2(lean_object*, lean_object*);
extern lean_object* l_Array_empty___closed__1;
extern lean_object* l_Lean_registerTagAttribute___closed__1;
lean_object* l_Lean_Compiler_mkInlineAttrs___closed__10;
lean_object* lean_io_ref_get(lean_object*, lean_object*);
lean_object* l_List_map___main___at_Lean_Compiler_mkInlineAttrs___spec__8___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -50,7 +48,6 @@ lean_object* l_Lean_Compiler_mkInlineAttrs___closed__3;
lean_object* l_Lean_Compiler_mkInlineAttrs___closed__14;
uint8_t lean_has_macro_inline_attribute(lean_object*, lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
extern lean_object* l_Lean_registerTagAttribute___closed__2;
lean_object* l_Lean_Compiler_InlineAttributeKind_HasBeq;
lean_object* l_Lean_Compiler_mkInlineAttrs___closed__7;
lean_object* l_Lean_Compiler_mkInlineAttrs___lambda__1___boxed(lean_object*, lean_object*, lean_object*);
@ -83,7 +80,9 @@ lean_object* lean_name_mk_string(lean_object*, lean_object*);
lean_object* l_Lean_Compiler_mkInlineAttrs___lambda__1(lean_object*, lean_object*, uint8_t);
lean_object* l_Lean_Compiler_mkInlineAttrs___closed__21;
lean_object* l_Lean_Compiler_mkInlineAttrs___closed__23;
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__1;
lean_object* l_Array_qsortAux___main___at_Lean_Compiler_mkInlineAttrs___spec__3___boxed(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__2;
extern lean_object* l___private_Init_Lean_Environment_5__envExtensionsRef;
lean_object* l_Lean_Compiler_mkInlineAttrs___closed__6;
lean_object* l___private_Init_Lean_Compiler_InlineAttrs_1__hasInlineAttrAux___boxed(lean_object*, lean_object*, lean_object*);
@ -118,6 +117,7 @@ lean_object* l_Lean_Environment_getModuleIdxFor_x3f(lean_object*, lean_object*);
lean_object* l_Lean_EnumAttributes_getValue___at___private_Init_Lean_Compiler_InlineAttrs_1__hasInlineAttrAux___main___spec__1___boxed(lean_object*, lean_object*, lean_object*);
uint8_t lean_has_inline_if_reduce_attribute(lean_object*, lean_object*);
lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
lean_object* l_Lean_PersistentEnvExtension_getState___rarg(lean_object*, lean_object*);
lean_object* l_Lean_Compiler_mkInlineAttrs___closed__12;
lean_object* lean_io_initializing(lean_object*);
@ -603,7 +603,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -1482,8 +1482,8 @@ lean_object* l_Lean_registerEnumAttributes___at_Lean_Compiler_mkInlineAttrs___sp
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12;
x_6 = l_Lean_registerTagAttribute___closed__1;
x_7 = l_Lean_registerTagAttribute___closed__2;
x_6 = l_Lean_registerParametricAttribute___rarg___closed__1;
x_7 = l_Lean_registerParametricAttribute___rarg___closed__2;
x_8 = l_Lean_registerEnumAttributes___at_Lean_Compiler_mkInlineAttrs___spec__1___closed__1;
x_9 = l_Lean_registerEnumAttributes___at_Lean_Compiler_mkInlineAttrs___spec__1___closed__2;
x_10 = l_Lean_registerEnumAttributes___rarg___closed__1;

12
stage0/stdlib/Init/Lean/Compiler/Specialize.c
View file

@ -37,7 +37,6 @@ lean_object* l_Lean_Compiler_mkSpecExtension___closed__2;
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_Compiler_mkSpecExtension___spec__7(lean_object*, lean_object*);
lean_object* l_Lean_Compiler_mkSpecializeAttrs___closed__8;
lean_object* lean_array_uget(lean_object*, size_t);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
lean_object* l_Array_iterateMAux___main___at_Lean_Compiler_SpecState_addEntry___spec__16(size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
uint8_t lean_name_eq(lean_object*, lean_object*);
@ -52,7 +51,6 @@ lean_object* l_PersistentHashMap_find_x3f___at_Lean_Compiler_getCachedSpecializa
size_t l_USize_sub(size_t, size_t);
extern lean_object* l_Array_empty___closed__1;
lean_object* l_AssocList_replace___main___at_Lean_Compiler_SpecState_addEntry___spec__22(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerTagAttribute___closed__1;
lean_object* l_PersistentHashMap_findAux___main___at_Lean_Compiler_getCachedSpecialization___spec__3___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Compiler_mkSpecExtension___closed__1;
lean_object* lean_io_ref_get(lean_object*, lean_object*);
@ -88,7 +86,6 @@ lean_object* l___private_Init_Lean_Compiler_Specialize_1__hasSpecializeAttrAux__
lean_object* l_Lean_SMap_switch___at_Lean_Compiler_SpecState_switch___spec__2(lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* l_Lean_Compiler_specExtension___elambda__3___boxed(lean_object*, lean_object*);
extern lean_object* l_Lean_registerTagAttribute___closed__2;
lean_object* l_Lean_SMap_find_x3f___at_Lean_Compiler_getCachedSpecialization___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_List_map___main___at_Lean_Compiler_mkSpecializeAttrs___spec__8(lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l_Lean_Compiler_mkSpecializeAttrs___closed__6;
@ -144,7 +141,9 @@ uint8_t lean_has_specialize_attribute(lean_object*, lean_object*);
lean_object* l_Lean_Compiler_mkSpecializeAttrs___closed__2;
extern lean_object* l_IO_Error_Inhabited___closed__1;
lean_object* l_HashMapImp_find_x3f___at_Lean_Compiler_getCachedSpecialization___spec__5(lean_object*, lean_object*);
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__1;
lean_object* l_Lean_Compiler_mkSpecializeAttrs___closed__7;
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__2;
size_t lean_usize_modn(size_t, lean_object*);
extern lean_object* l___private_Init_Lean_Environment_5__envExtensionsRef;
lean_object* l_Lean_SMap_insert___at_Lean_Compiler_SpecState_addEntry___spec__12(lean_object*, lean_object*, lean_object*);
@ -221,6 +220,7 @@ lean_object* l_Array_anyRangeMAux___main___at_Lean_Compiler_mkSpecExtension___sp
lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*);
lean_object* lean_get_cached_specialization(lean_object*, lean_object*);
uint8_t l_Lean_Compiler_SpecializeAttributeKind_beq(uint8_t, uint8_t);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
lean_object* l_PersistentHashMap_getCollisionNodeSize___rarg(lean_object*);
lean_object* l_Lean_Compiler_specExtension___elambda__1(lean_object*);
lean_object* lean_mk_array(lean_object*, lean_object*);
@ -684,7 +684,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -1563,8 +1563,8 @@ lean_object* l_Lean_registerEnumAttributes___at_Lean_Compiler_mkSpecializeAttrs_
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12;
x_6 = l_Lean_registerTagAttribute___closed__1;
x_7 = l_Lean_registerTagAttribute___closed__2;
x_6 = l_Lean_registerParametricAttribute___rarg___closed__1;
x_7 = l_Lean_registerParametricAttribute___rarg___closed__2;
x_8 = l_Lean_registerEnumAttributes___at_Lean_Compiler_mkSpecializeAttrs___spec__1___closed__1;
x_9 = l_Lean_registerEnumAttributes___at_Lean_Compiler_mkSpecializeAttrs___spec__1___closed__2;
x_10 = l_Lean_registerEnumAttributes___rarg___closed__1;

469
stage0/stdlib/Init/Lean/Data/Name.c
View file

@ -1,6 +1,6 @@
// Lean compiler output
// Module: Init.Lean.Data.Name
// Imports: Init.LeanInit Init.Data.UInt Init.Data.ToString Init.Data.Hashable Init.Data.RBMap Init.Data.RBTree
// Imports: Init.LeanInit Init.Data.UInt Init.Data.ToString Init.Data.Hashable Init.Data.HashSet Init.Data.RBMap Init.Data.RBTree
#include "runtime/lean.h"
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
@ -19,17 +19,22 @@ extern lean_object* l_Lean_mkHole___closed__3;
lean_object* l_RBNode_find___main___at_Lean_NameMap_find_x3f___spec__1___rarg___boxed(lean_object*, lean_object*);
extern lean_object* l_Lean_Name_toString___closed__1;
lean_object* l_Lean_stringToName;
lean_object* l_HashSetImp_expand___at_Lean_NameHashSet_insert___spec__3(lean_object*, lean_object*);
uint8_t l_RBNode_isRed___rarg(lean_object*);
lean_object* l_mkHashSetImp___rarg(lean_object*);
lean_object* l_Lean_Name_DecidableRel___boxed(lean_object*, lean_object*);
lean_object* l_Lean_NameSet_contains___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Name_hasLtQuick;
lean_object* l_Lean_NameMap_find_x3f___rarg(lean_object*, lean_object*);
lean_object* lean_array_uget(lean_object*, size_t);
lean_object* l_Lean_NameMap_Inhabited(lean_object*);
uint8_t l_Lean_Name_lt___main(lean_object*, lean_object*);
lean_object* l_Lean_Name_replacePrefix___main___boxed(lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
uint8_t lean_name_eq(lean_object*, lean_object*);
lean_object* l_Lean_Name_isInternal___boxed(lean_object*);
lean_object* lean_array_uset(lean_object*, size_t, lean_object*);
uint8_t l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(lean_object*, lean_object*);
lean_object* l_Lean_NameSet_HasEmptyc;
lean_object* l_Lean_Name_isPrefixOf___main___boxed(lean_object*, lean_object*);
uint8_t l_Lean_Name_DecidableRel(lean_object*, lean_object*);
@ -38,6 +43,8 @@ lean_object* l_Lean_Name_getNumParts___main___boxed(lean_object*);
lean_object* l_Lean_Name_updatePrefix(lean_object*, lean_object*);
lean_object* l_Lean_Name_isAnonymous___boxed(lean_object*);
lean_object* l_Lean_mkNameSimple(lean_object*);
lean_object* l_HashSetImp_contains___at_Lean_NameHashSet_contains___spec__1___boxed(lean_object*, lean_object*);
lean_object* lean_array_get_size(lean_object*);
lean_object* l_RBNode_find___main___at_Lean_NameMap_find_x3f___spec__1___rarg(lean_object*, lean_object*);
lean_object* lean_string_append(lean_object*, lean_object*);
uint8_t l_Lean_Name_isPrefixOf(lean_object*, lean_object*);
@ -47,7 +54,9 @@ lean_object* l_String_splitOn(lean_object*, lean_object*);
lean_object* l_RBNode_find___main___at_Lean_NameSet_contains___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Name_getNumParts___main(lean_object*);
uint8_t l_USize_decLt(size_t, size_t);
lean_object* l_mkHashSet___at_Lean_NameHashSet_empty___spec__1(lean_object*);
uint8_t l_Lean_NameMap_contains___rarg(lean_object*, lean_object*);
lean_object* l_Lean_NameHashSet_HasEmptyc;
lean_object* l_Lean_Name_lt___main___boxed(lean_object*, lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* l_RBNode_insert___at_Lean_NameMap_insert___spec__1(lean_object*);
@ -55,17 +64,22 @@ lean_object* l_Lean_NameMap_insert___rarg(lean_object*, lean_object*, lean_objec
lean_object* l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Name_eqStr(lean_object*, lean_object*);
lean_object* l_Lean_NameMap_find_x3f___rarg___boxed(lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
lean_object* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_NameHashSet_Inhabited;
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
lean_object* l_String_toName(lean_object*);
lean_object* l_RBNode_find___main___at_Lean_NameMap_find_x3f___spec__1(lean_object*);
uint8_t l_Lean_Name_quickLtAux(lean_object*, lean_object*);
lean_object* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2(lean_object*);
lean_object* l_Lean_Name_components_x27(lean_object*);
lean_object* l_Lean_NameHashSet_empty;
lean_object* l_Lean_NameMap_contains(lean_object*);
lean_object* l_Lean_NameHashSet_contains___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Name_hashEx___boxed(lean_object*);
size_t lean_name_hash(lean_object*);
lean_object* l_RBNode_find___main___at_Lean_NameMap_contains___spec__1(lean_object*);
lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Name_isInternal(lean_object*);
lean_object* l_Lean_Name_appendIndexAfter(lean_object*, lean_object*);
lean_object* l_Lean_NameMap_insert(lean_object*);
@ -77,16 +91,20 @@ lean_object* l_Lean_Name_eqStr___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Name_isSuffixOf___main___boxed(lean_object*, lean_object*);
lean_object* lean_name_mk_string(lean_object*, lean_object*);
uint8_t l_Lean_Name_isAtomic(lean_object*);
lean_object* l_Lean_NameHashSet_empty___closed__1;
uint32_t lean_string_utf8_get(lean_object*, lean_object*);
lean_object* l_Lean_Name_getNumParts(lean_object*);
lean_object* l_Lean_NameMap_HasEmptyc(lean_object*);
size_t lean_usize_modn(size_t, lean_object*);
lean_object* l_Lean_Name_isInternal___main___boxed(lean_object*);
lean_object* l_Lean_NameMap_find_x3f(lean_object*);
lean_object* l_RBNode_insert___at_Lean_NameSet_insert___spec__1(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkNameSet;
lean_object* l_Lean_NameSet_empty;
extern lean_object* l_HashSet_Inhabited___closed__1;
lean_object* l_Lean_Name_quickLtAux___main___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Name_replacePrefix___main(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_stringToName___closed__1;
lean_object* l_List_elem___main___at_Lean_NameHashSet_insert___spec__2___boxed(lean_object*, lean_object*);
uint8_t l_Lean_Name_quickLtAux___main(lean_object*, lean_object*);
lean_object* l_List_foldl___main___at_String_toName___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_Lean_NameMap_contains___rarg___boxed(lean_object*, lean_object*);
@ -95,8 +113,11 @@ uint8_t l_UInt32_decEq(uint32_t, uint32_t);
lean_object* l_Lean_Name_appendAfter(lean_object*, lean_object*);
uint8_t l_Lean_Name_lt(lean_object*, lean_object*);
lean_object* l_Lean_Name_getNumParts___boxed(lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
uint8_t l_Lean_Name_isInternal___main(lean_object*);
lean_object* l_Lean_Name_getPrefix___boxed(lean_object*);
lean_object* l_Lean_NameHashSet_insert(lean_object*, lean_object*);
uint8_t l_Lean_NameHashSet_contains(lean_object*, lean_object*);
lean_object* l_Lean_Name_components_x27___main(lean_object*);
uint8_t l_Lean_Name_isSuffixOf(lean_object*, lean_object*);
uint8_t l_Lean_Name_isAnonymous(lean_object*);
@ -106,24 +127,32 @@ lean_object* l_Lean_Name_replacePrefix___boxed(lean_object*, lean_object*, lean_
lean_object* l_List_foldl___main___at_String_toName___spec__1(lean_object*, lean_object*);
uint8_t l_Lean_Name_isSuffixOf___main(lean_object*, lean_object*);
lean_object* l_Lean_Name_isSuffixOf___boxed(lean_object*, lean_object*);
lean_object* lean_nat_mul(lean_object*, lean_object*);
lean_object* l_Lean_Name_getPrefix(lean_object*);
lean_object* l_RBNode_setBlack___rarg(lean_object*);
lean_object* l_Lean_Name_getRoot___main(lean_object*);
lean_object* l_String_trim(lean_object*);
lean_object* l_List_foldl___main___at_Lean_NameHashSet_insert___spec__5(lean_object*, lean_object*);
lean_object* lean_mk_array(lean_object*, lean_object*);
uint8_t l_Lean_NameSet_contains(lean_object*, lean_object*);
lean_object* l_Lean_Name_isPrefixOf___boxed(lean_object*, lean_object*);
lean_object* l_Lean_NameSet_insert(lean_object*, lean_object*);
lean_object* l_Lean_Name_appendBefore(lean_object*, lean_object*);
lean_object* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3(lean_object*);
lean_object* l_List_replace___main___at_Lean_NameHashSet_insert___spec__6(lean_object*, lean_object*, lean_object*);
lean_object* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Name_getRoot___main___boxed(lean_object*);
lean_object* l_RBNode_find___main___at_Lean_NameMap_contains___spec__1___rarg(lean_object*, lean_object*);
lean_object* l_Lean_mkNameMap(lean_object*);
lean_object* l_HashSetImp_moveEntries___main___at_Lean_NameHashSet_insert___spec__4(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Name_getRoot___boxed(lean_object*);
lean_object* l_Lean_Name_getRoot(lean_object*);
lean_object* l_HashSetImp_insert___at_Lean_NameHashSet_insert___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_Name_replacePrefix(lean_object*, lean_object*, lean_object*);
lean_object* l_List_replace___main___at_Lean_NameHashSet_insert___spec__6___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Name_components(lean_object*);
lean_object* lean_name_mk_numeral(lean_object*, lean_object*);
uint8_t l_HashSetImp_contains___at_Lean_NameHashSet_contains___spec__1(lean_object*, lean_object*);
uint8_t lean_string_dec_lt(lean_object*, lean_object*);
uint8_t lean_string_dec_eq(lean_object*, lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
@ -6294,7 +6323,7 @@ lean_dec(x_1);
return x_3;
}
}
lean_object* _init_l_Lean_mkNameSet() {
lean_object* _init_l_Lean_NameSet_empty() {
_start:
{
lean_object* x_1;
@ -6306,7 +6335,7 @@ lean_object* _init_l_Lean_NameSet_HasEmptyc() {
_start:
{
lean_object* x_1;
x_1 = lean_box(0);
x_1 = l_Lean_NameSet_empty;
return x_1;
}
}
@ -6314,7 +6343,7 @@ lean_object* _init_l_Lean_NameSet_Inhabited() {
_start:
{
lean_object* x_1;
x_1 = lean_box(0);
x_1 = l_Lean_NameSet_empty;
return x_1;
}
}
@ -8816,6 +8845,420 @@ x_4 = lean_box(x_3);
return x_4;
}
}
lean_object* l_mkHashSet___at_Lean_NameHashSet_empty___spec__1(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_mkHashSetImp___rarg(x_1);
return x_2;
}
}
lean_object* _init_l_Lean_NameHashSet_empty___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = lean_unsigned_to_nat(8u);
x_2 = l_mkHashSetImp___rarg(x_1);
return x_2;
}
}
lean_object* _init_l_Lean_NameHashSet_empty() {
_start:
{
lean_object* x_1;
x_1 = l_Lean_NameHashSet_empty___closed__1;
return x_1;
}
}
lean_object* _init_l_Lean_NameHashSet_HasEmptyc() {
_start:
{
lean_object* x_1;
x_1 = l_HashSet_Inhabited___closed__1;
return x_1;
}
}
lean_object* _init_l_Lean_NameHashSet_Inhabited() {
_start:
{
lean_object* x_1;
x_1 = l_HashSet_Inhabited___closed__1;
return x_1;
}
}
uint8_t l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(lean_object* x_1, lean_object* x_2) {
_start:
{
if (lean_obj_tag(x_2) == 0)
{
uint8_t x_3;
x_3 = 0;
return x_3;
}
else
{
lean_object* x_4; lean_object* x_5; uint8_t x_6;
x_4 = lean_ctor_get(x_2, 0);
x_5 = lean_ctor_get(x_2, 1);
x_6 = lean_name_eq(x_1, x_4);
if (x_6 == 0)
{
x_2 = x_5;
goto _start;
}
else
{
uint8_t x_8;
x_8 = 1;
return x_8;
}
}
}
}
lean_object* l_List_foldl___main___at_Lean_NameHashSet_insert___spec__5(lean_object* x_1, lean_object* x_2) {
_start:
{
if (lean_obj_tag(x_2) == 0)
{
return x_1;
}
else
{
uint8_t x_3;
x_3 = !lean_is_exclusive(x_2);
if (x_3 == 0)
{
lean_object* x_4; lean_object* x_5; lean_object* x_6; size_t x_7; size_t x_8; lean_object* x_9; lean_object* x_10;
x_4 = lean_ctor_get(x_2, 0);
x_5 = lean_ctor_get(x_2, 1);
x_6 = lean_array_get_size(x_1);
x_7 = l_Lean_Name_hash(x_4);
x_8 = lean_usize_modn(x_7, x_6);
lean_dec(x_6);
x_9 = lean_array_uget(x_1, x_8);
lean_ctor_set(x_2, 1, x_9);
x_10 = lean_array_uset(x_1, x_8, x_2);
x_1 = x_10;
x_2 = x_5;
goto _start;
}
else
{
lean_object* x_12; lean_object* x_13; lean_object* x_14; size_t x_15; size_t x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19;
x_12 = lean_ctor_get(x_2, 0);
x_13 = lean_ctor_get(x_2, 1);
lean_inc(x_13);
lean_inc(x_12);
lean_dec(x_2);
x_14 = lean_array_get_size(x_1);
x_15 = l_Lean_Name_hash(x_12);
x_16 = lean_usize_modn(x_15, x_14);
lean_dec(x_14);
x_17 = lean_array_uget(x_1, x_16);
x_18 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_18, 0, x_12);
lean_ctor_set(x_18, 1, x_17);
x_19 = lean_array_uset(x_1, x_16, x_18);
x_1 = x_19;
x_2 = x_13;
goto _start;
}
}
}
}
lean_object* l_HashSetImp_moveEntries___main___at_Lean_NameHashSet_insert___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; uint8_t x_5;
x_4 = lean_array_get_size(x_2);
x_5 = lean_nat_dec_lt(x_1, x_4);
lean_dec(x_4);
if (x_5 == 0)
{
lean_dec(x_2);
lean_dec(x_1);
return x_3;
}
else
{
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11;
x_6 = lean_array_fget(x_2, x_1);
x_7 = lean_box(0);
x_8 = lean_array_fset(x_2, x_1, x_7);
x_9 = l_List_foldl___main___at_Lean_NameHashSet_insert___spec__5(x_3, x_6);
x_10 = lean_unsigned_to_nat(1u);
x_11 = lean_nat_add(x_1, x_10);
lean_dec(x_1);
x_1 = x_11;
x_2 = x_8;
x_3 = x_9;
goto _start;
}
}
}
lean_object* l_HashSetImp_expand___at_Lean_NameHashSet_insert___spec__3(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_3 = lean_array_get_size(x_2);
x_4 = lean_unsigned_to_nat(2u);
x_5 = lean_nat_mul(x_3, x_4);
lean_dec(x_3);
x_6 = lean_box(0);
x_7 = lean_mk_array(x_5, x_6);
x_8 = lean_unsigned_to_nat(0u);
x_9 = l_HashSetImp_moveEntries___main___at_Lean_NameHashSet_insert___spec__4(x_8, x_2, x_7);
x_10 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_10, 0, x_1);
lean_ctor_set(x_10, 1, x_9);
return x_10;
}
}
lean_object* l_List_replace___main___at_Lean_NameHashSet_insert___spec__6(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
if (lean_obj_tag(x_1) == 0)
{
lean_dec(x_3);
return x_1;
}
else
{
uint8_t x_4;
x_4 = !lean_is_exclusive(x_1);
if (x_4 == 0)
{
lean_object* x_5; lean_object* x_6; uint8_t x_7;
x_5 = lean_ctor_get(x_1, 0);
x_6 = lean_ctor_get(x_1, 1);
x_7 = lean_name_eq(x_5, x_2);
if (x_7 == 0)
{
lean_object* x_8;
x_8 = l_List_replace___main___at_Lean_NameHashSet_insert___spec__6(x_6, x_2, x_3);
lean_ctor_set(x_1, 1, x_8);
return x_1;
}
else
{
lean_dec(x_5);
lean_ctor_set(x_1, 0, x_3);
return x_1;
}
}
else
{
lean_object* x_9; lean_object* x_10; uint8_t x_11;
x_9 = lean_ctor_get(x_1, 0);
x_10 = lean_ctor_get(x_1, 1);
lean_inc(x_10);
lean_inc(x_9);
lean_dec(x_1);
x_11 = lean_name_eq(x_9, x_2);
if (x_11 == 0)
{
lean_object* x_12; lean_object* x_13;
x_12 = l_List_replace___main___at_Lean_NameHashSet_insert___spec__6(x_10, x_2, x_3);
x_13 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_13, 0, x_9);
lean_ctor_set(x_13, 1, x_12);
return x_13;
}
else
{
lean_object* x_14;
lean_dec(x_9);
x_14 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_14, 0, x_3);
lean_ctor_set(x_14, 1, x_10);
return x_14;
}
}
}
}
}
lean_object* l_HashSetImp_insert___at_Lean_NameHashSet_insert___spec__1(lean_object* x_1, lean_object* x_2) {
_start:
{
uint8_t x_3;
x_3 = !lean_is_exclusive(x_1);
if (x_3 == 0)
{
lean_object* x_4; lean_object* x_5; lean_object* x_6; size_t x_7; size_t x_8; lean_object* x_9; uint8_t x_10;
x_4 = lean_ctor_get(x_1, 0);
x_5 = lean_ctor_get(x_1, 1);
x_6 = lean_array_get_size(x_5);
x_7 = l_Lean_Name_hash(x_2);
x_8 = lean_usize_modn(x_7, x_6);
x_9 = lean_array_uget(x_5, x_8);
x_10 = l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(x_2, x_9);
if (x_10 == 0)
{
lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15;
x_11 = lean_unsigned_to_nat(1u);
x_12 = lean_nat_add(x_4, x_11);
lean_dec(x_4);
x_13 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_13, 0, x_2);
lean_ctor_set(x_13, 1, x_9);
x_14 = lean_array_uset(x_5, x_8, x_13);
x_15 = lean_nat_dec_le(x_12, x_6);
lean_dec(x_6);
if (x_15 == 0)
{
lean_object* x_16;
lean_free_object(x_1);
x_16 = l_HashSetImp_expand___at_Lean_NameHashSet_insert___spec__3(x_12, x_14);
return x_16;
}
else
{
lean_ctor_set(x_1, 1, x_14);
lean_ctor_set(x_1, 0, x_12);
return x_1;
}
}
else
{
lean_object* x_17; lean_object* x_18;
lean_dec(x_6);
lean_inc(x_2);
x_17 = l_List_replace___main___at_Lean_NameHashSet_insert___spec__6(x_9, x_2, x_2);
lean_dec(x_2);
x_18 = lean_array_uset(x_5, x_8, x_17);
lean_ctor_set(x_1, 1, x_18);
return x_1;
}
}
else
{
lean_object* x_19; lean_object* x_20; lean_object* x_21; size_t x_22; size_t x_23; lean_object* x_24; uint8_t x_25;
x_19 = lean_ctor_get(x_1, 0);
x_20 = lean_ctor_get(x_1, 1);
lean_inc(x_20);
lean_inc(x_19);
lean_dec(x_1);
x_21 = lean_array_get_size(x_20);
x_22 = l_Lean_Name_hash(x_2);
x_23 = lean_usize_modn(x_22, x_21);
x_24 = lean_array_uget(x_20, x_23);
x_25 = l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(x_2, x_24);
if (x_25 == 0)
{
lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; uint8_t x_30;
x_26 = lean_unsigned_to_nat(1u);
x_27 = lean_nat_add(x_19, x_26);
lean_dec(x_19);
x_28 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_28, 0, x_2);
lean_ctor_set(x_28, 1, x_24);
x_29 = lean_array_uset(x_20, x_23, x_28);
x_30 = lean_nat_dec_le(x_27, x_21);
lean_dec(x_21);
if (x_30 == 0)
{
lean_object* x_31;
x_31 = l_HashSetImp_expand___at_Lean_NameHashSet_insert___spec__3(x_27, x_29);
return x_31;
}
else
{
lean_object* x_32;
x_32 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_32, 0, x_27);
lean_ctor_set(x_32, 1, x_29);
return x_32;
}
}
else
{
lean_object* x_33; lean_object* x_34; lean_object* x_35;
lean_dec(x_21);
lean_inc(x_2);
x_33 = l_List_replace___main___at_Lean_NameHashSet_insert___spec__6(x_24, x_2, x_2);
lean_dec(x_2);
x_34 = lean_array_uset(x_20, x_23, x_33);
x_35 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_35, 0, x_19);
lean_ctor_set(x_35, 1, x_34);
return x_35;
}
}
}
}
lean_object* l_Lean_NameHashSet_insert(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_HashSetImp_insert___at_Lean_NameHashSet_insert___spec__1(x_1, x_2);
return x_3;
}
}
lean_object* l_List_elem___main___at_Lean_NameHashSet_insert___spec__2___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
uint8_t x_3; lean_object* x_4;
x_3 = l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(x_1, x_2);
lean_dec(x_2);
lean_dec(x_1);
x_4 = lean_box(x_3);
return x_4;
}
}
lean_object* l_List_replace___main___at_Lean_NameHashSet_insert___spec__6___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_List_replace___main___at_Lean_NameHashSet_insert___spec__6(x_1, x_2, x_3);
lean_dec(x_2);
return x_4;
}
}
uint8_t l_HashSetImp_contains___at_Lean_NameHashSet_contains___spec__1(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4; size_t x_5; size_t x_6; lean_object* x_7; uint8_t x_8;
x_3 = lean_ctor_get(x_1, 1);
x_4 = lean_array_get_size(x_3);
x_5 = l_Lean_Name_hash(x_2);
x_6 = lean_usize_modn(x_5, x_4);
lean_dec(x_4);
x_7 = lean_array_uget(x_3, x_6);
x_8 = l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(x_2, x_7);
lean_dec(x_7);
return x_8;
}
}
uint8_t l_Lean_NameHashSet_contains(lean_object* x_1, lean_object* x_2) {
_start:
{
uint8_t x_3;
x_3 = l_HashSetImp_contains___at_Lean_NameHashSet_contains___spec__1(x_1, x_2);
return x_3;
}
}
lean_object* l_HashSetImp_contains___at_Lean_NameHashSet_contains___spec__1___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
uint8_t x_3; lean_object* x_4;
x_3 = l_HashSetImp_contains___at_Lean_NameHashSet_contains___spec__1(x_1, x_2);
lean_dec(x_2);
lean_dec(x_1);
x_4 = lean_box(x_3);
return x_4;
}
}
lean_object* l_Lean_NameHashSet_contains___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
uint8_t x_3; lean_object* x_4;
x_3 = l_Lean_NameHashSet_contains(x_1, x_2);
lean_dec(x_2);
lean_dec(x_1);
x_4 = lean_box(x_3);
return x_4;
}
}
lean_object* l_List_foldl___main___at_String_toName___spec__1(lean_object* x_1, lean_object* x_2) {
_start:
{
@ -8861,6 +9304,7 @@ lean_object* initialize_Init_LeanInit(lean_object*);
lean_object* initialize_Init_Data_UInt(lean_object*);
lean_object* initialize_Init_Data_ToString(lean_object*);
lean_object* initialize_Init_Data_Hashable(lean_object*);
lean_object* initialize_Init_Data_HashSet(lean_object*);
lean_object* initialize_Init_Data_RBMap(lean_object*);
lean_object* initialize_Init_Data_RBTree(lean_object*);
static bool _G_initialized = false;
@ -8880,6 +9324,9 @@ lean_dec_ref(res);
res = initialize_Init_Data_Hashable(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Init_Data_HashSet(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Init_Data_RBMap(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
@ -8892,12 +9339,20 @@ l_Lean_stringToName = _init_l_Lean_stringToName();
lean_mark_persistent(l_Lean_stringToName);
l_Lean_Name_hasLtQuick = _init_l_Lean_Name_hasLtQuick();
lean_mark_persistent(l_Lean_Name_hasLtQuick);
l_Lean_mkNameSet = _init_l_Lean_mkNameSet();
lean_mark_persistent(l_Lean_mkNameSet);
l_Lean_NameSet_empty = _init_l_Lean_NameSet_empty();
lean_mark_persistent(l_Lean_NameSet_empty);
l_Lean_NameSet_HasEmptyc = _init_l_Lean_NameSet_HasEmptyc();
lean_mark_persistent(l_Lean_NameSet_HasEmptyc);
l_Lean_NameSet_Inhabited = _init_l_Lean_NameSet_Inhabited();
lean_mark_persistent(l_Lean_NameSet_Inhabited);
l_Lean_NameHashSet_empty___closed__1 = _init_l_Lean_NameHashSet_empty___closed__1();
lean_mark_persistent(l_Lean_NameHashSet_empty___closed__1);
l_Lean_NameHashSet_empty = _init_l_Lean_NameHashSet_empty();
lean_mark_persistent(l_Lean_NameHashSet_empty);
l_Lean_NameHashSet_HasEmptyc = _init_l_Lean_NameHashSet_HasEmptyc();
lean_mark_persistent(l_Lean_NameHashSet_HasEmptyc);
l_Lean_NameHashSet_Inhabited = _init_l_Lean_NameHashSet_Inhabited();
lean_mark_persistent(l_Lean_NameHashSet_Inhabited);
return lean_mk_io_result(lean_box(0));
}
#ifdef __cplusplus

45
stage0/stdlib/Init/Lean/Elab/Alias.c
View file

@ -27,7 +27,7 @@ lean_object* l_Lean_aliasExtension___closed__5;
uint8_t lean_name_eq(lean_object*, lean_object*);
extern size_t l_PersistentHashMap_insertAux___main___rarg___closed__2;
lean_object* lean_array_uset(lean_object*, size_t, lean_object*);
uint8_t l_List_elem___main___at_Lean_addAliasEntry___spec__18(lean_object*, lean_object*);
uint8_t l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(lean_object*, lean_object*);
lean_object* l_Lean_aliasExtension___closed__3;
size_t l_USize_sub(size_t, size_t);
extern lean_object* l_Array_empty___closed__1;
@ -68,7 +68,6 @@ lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_insertAux___main___at_Lean_addAliasEntry___spec__9___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_SMap_empty___at_Lean_mkAliasExtension___spec__1___closed__2;
lean_object* l_List_elem___main___at_Lean_addAliasEntry___spec__18___boxed(lean_object*, lean_object*);
size_t l_Lean_Name_hash(lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_mkAliasExtension___spec__6(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_mkAliasExtension___spec__11(lean_object*, lean_object*);
@ -1217,35 +1216,6 @@ return x_18;
}
}
}
uint8_t l_List_elem___main___at_Lean_addAliasEntry___spec__18(lean_object* x_1, lean_object* x_2) {
_start:
{
if (lean_obj_tag(x_2) == 0)
{
uint8_t x_3;
x_3 = 0;
return x_3;
}
else
{
lean_object* x_4; lean_object* x_5; uint8_t x_6;
x_4 = lean_ctor_get(x_2, 0);
x_5 = lean_ctor_get(x_2, 1);
x_6 = lean_name_eq(x_1, x_4);
if (x_6 == 0)
{
x_2 = x_5;
goto _start;
}
else
{
uint8_t x_8;
x_8 = 1;
return x_8;
}
}
}
}
lean_object* l_Lean_addAliasEntry(lean_object* x_1, lean_object* x_2) {
_start:
{
@ -1276,7 +1246,7 @@ lean_dec(x_4);
x_10 = lean_ctor_get(x_2, 1);
lean_inc(x_10);
lean_dec(x_2);
x_11 = l_List_elem___main___at_Lean_addAliasEntry___spec__18(x_10, x_9);
x_11 = l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(x_10, x_9);
if (x_11 == 0)
{
lean_object* x_12; lean_object* x_13;
@ -1392,17 +1362,6 @@ x_4 = lean_box(x_3);
return x_4;
}
}
lean_object* l_List_elem___main___at_Lean_addAliasEntry___spec__18___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
uint8_t x_3; lean_object* x_4;
x_3 = l_List_elem___main___at_Lean_addAliasEntry___spec__18(x_1, x_2);
lean_dec(x_2);
lean_dec(x_1);
x_4 = lean_box(x_3);
return x_4;
}
}
lean_object* l_mkHashMap___at_Lean_mkAliasExtension___spec__2(lean_object* x_1) {
_start:
{

8
stage0/stdlib/Init/Lean/Elab/Command.c
View file

@ -66,6 +66,7 @@ lean_object* l_Lean_Elab_Command_commandElabAttribute;
lean_object* l_Lean_Elab_Command_elabUniverse(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fswap(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_identKind___closed__2;
uint8_t l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_withNamespace___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Elab_Command_10__toCommandResult(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabCheck___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -279,7 +280,6 @@ uint8_t l_Lean_Environment_contains(lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Elab_Command_elabExport(lean_object*);
lean_object* l_Lean_Elab_Command_getScopes(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elbChoice(lean_object*, lean_object*, lean_object*);
uint8_t l_List_elem___main___at_Lean_Parser_addLeadingParser___spec__7(lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Command_docComment___elambda__1___closed__2;
lean_object* l_Lean_Elab_Command_elabExport(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Elab_Command_6__mkTermContext(lean_object*, lean_object*, lean_object*);
@ -11773,7 +11773,7 @@ lean_inc(x_6);
x_7 = lean_ctor_get(x_5, 1);
lean_inc(x_7);
lean_dec(x_5);
x_8 = l_List_elem___main___at_Lean_Parser_addLeadingParser___spec__7(x_4, x_6);
x_8 = l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(x_4, x_6);
lean_dec(x_6);
if (x_8 == 0)
{
@ -23062,7 +23062,7 @@ x_11 = lean_unsigned_to_nat(1u);
x_12 = lean_nat_add(x_3, x_11);
lean_dec(x_3);
x_13 = l_Lean_Syntax_getId(x_10);
x_14 = l_List_elem___main___at_Lean_Parser_addLeadingParser___spec__7(x_13, x_4);
x_14 = l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(x_13, x_4);
if (x_14 == 0)
{
lean_object* x_15;
@ -24134,7 +24134,7 @@ else
{
lean_object* x_8; uint8_t x_9;
x_8 = lean_array_fget(x_2, x_3);
x_9 = l_List_elem___main___at_Lean_Parser_addLeadingParser___spec__7(x_8, x_1);
x_9 = l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(x_8, x_1);
lean_dec(x_8);
if (x_9 == 0)
{

6
stage0/stdlib/Init/Lean/Elab/Declaration.c
View file

@ -30,6 +30,7 @@ lean_object* l_Lean_Elab_Command_elabConstant___closed__2;
lean_object* l_Lean_Elab_Command_elabDeclaration___closed__4;
extern lean_object* l_Lean_Elab_Command_commandElabAttribute;
lean_object* l_Lean_Elab_Command_elabExample(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabAbbrev(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabExample___closed__1;
lean_object* l_Lean_Elab_Command_elabConstant___closed__1;
@ -82,7 +83,6 @@ lean_object* lean_name_mk_string(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_modifyScope___at_Lean_Elab_Command_elabAxiom___spec__4(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Command_namespace___elambda__1___closed__1;
lean_object* l_Lean_Elab_Command_throwError___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_List_elem___main___at_Lean_Parser_addLeadingParser___spec__7(lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Command_docComment___elambda__1___closed__2;
lean_object* l___private_Init_Lean_Elab_Command_6__mkTermContext(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_modifyScope___at_Lean_Elab_Command_elabAxiom___spec__3(lean_object*, lean_object*, lean_object*);
@ -282,7 +282,7 @@ x_14 = lean_unsigned_to_nat(1u);
x_15 = l_Lean_Syntax_getArg(x_2, x_14);
x_16 = lean_unsigned_to_nat(3u);
x_17 = l_Lean_Syntax_getArg(x_2, x_16);
x_18 = 0;
x_18 = 4;
x_19 = lean_alloc_ctor(0, 6, 1);
lean_ctor_set(x_19, 0, x_2);
lean_ctor_set(x_19, 1, x_13);
@ -2991,7 +2991,7 @@ x_11 = lean_unsigned_to_nat(1u);
x_12 = lean_nat_add(x_3, x_11);
lean_dec(x_3);
x_13 = l_Lean_Syntax_getId(x_10);
x_14 = l_List_elem___main___at_Lean_Parser_addLeadingParser___spec__7(x_13, x_4);
x_14 = l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(x_13, x_4);
if (x_14 == 0)
{
lean_object* x_15;

499
stage0/stdlib/Init/Lean/Elab/Definition.c
View file

@ -1,6 +1,6 @@
// Lean compiler output
// Module: Init.Lean.Elab.Definition
// Imports: Init.Lean.Util.CollectLevelParams Init.Lean.Util.CollectFVars Init.Lean.Elab.DeclModifiers Init.Lean.Elab.Binders
// Imports: Init.ShareCommon Init.Lean.Util.CollectLevelParams Init.Lean.Util.FoldConsts Init.Lean.Util.CollectFVars Init.Lean.Elab.DeclModifiers Init.Lean.Elab.Binders
#include "runtime/lean.h"
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
@ -13,6 +13,7 @@
#ifdef __cplusplus
extern "C" {
#endif
lean_object* l_Lean_Elab_Term_getEnv___rarg(lean_object*);
lean_object* l_Lean_Elab_Term_mkForall(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_extractMacroScopes(lean_object*);
lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*);
@ -21,6 +22,7 @@ lean_object* l_Lean_Elab_Term_instantiateMVars(lean_object*, lean_object*, lean_
lean_object* l_unreachable_x21___rarg(lean_object*);
lean_object* l_Lean_Elab_Command_withUsedWhen_x27___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_Init_Lean_Elab_SyntheticMVars_2__resumePostponed___lambda__1___closed__1;
extern lean_object* l_Lean_MessageData_ofList___closed__3;
lean_object* l_Lean_Elab_Term_inferType(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_Elab_Command_collectUsedFVarsAtFVars___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_Elab_Command_elabDefLike___spec__5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -28,6 +30,7 @@ uint8_t lean_name_eq(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_modifyScope___at_Lean_Elab_Command_elabDefLike___spec__2(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabDefLike___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_mkDef___lambda__1___closed__4;
uint8_t l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(lean_object*, lean_object*);
lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Elab_Command_removeUnused___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_local_ctx_erase(lean_object*, lean_object*);
extern lean_object* l_Array_empty___closed__1;
@ -40,6 +43,7 @@ lean_object* l_Lean_Elab_Term_mkLambda(lean_object*, lean_object*, lean_object*,
lean_object* lean_array_push(lean_object*, lean_object*);
lean_object* lean_array_get_size(lean_object*);
extern lean_object* l_Lean_Parser_Command_declValEqns___elambda__1___closed__2;
lean_object* l_Lean_Elab_Command_DefKind_isDefOrAbbrevOrOpaque___boxed(lean_object*);
lean_object* l_Lean_Elab_Command_elabDefVal___closed__1;
lean_object* l_Lean_Elab_Command_elabDefVal(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_collectUsedFVarsAtFVars___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -49,6 +53,7 @@ lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_ensureHasType(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_mkFreshTypeMVar(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Elab_SyntheticMVars_11__synthesizeSyntheticMVarsAux___main(uint8_t, lean_object*, lean_object*, lean_object*);
uint32_t l_UInt32_add(uint32_t, uint32_t);
lean_object* l_Lean_Elab_Term_getOptions(lean_object*, lean_object*);
lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Elab_Command_removeUnused___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_foldlStepMAux___main___at_Lean_Elab_Term_elabParen___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
@ -56,6 +61,7 @@ lean_object* l_Lean_Elab_Command_mkDeclName(lean_object*, lean_object*, lean_obj
lean_object* l_Lean_Elab_Command_collectUsedFVarsAtFVars(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabDefLike___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
lean_object* l_ShareCommonT_withShareCommon___at_Lean_Elab_Command_mkDef___spec__1(lean_object*, lean_object*);
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_Elab_Command_collectUsedFVarsAtFVars___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_levelMVarToParam(lean_object*, lean_object*, lean_object*);
@ -65,8 +71,10 @@ lean_object* lean_nat_sub(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(lean_object*);
lean_object* l_Lean_Elab_Command_DefKind_isTheorem___boxed(lean_object*);
lean_object* l_Lean_Elab_Command_expandDeclId(lean_object*);
uint8_t l_Lean_Elab_Command_DefKind_isDefOrAbbrevOrOpaque(uint8_t);
lean_object* l_Lean_Elab_Term_elabTerm(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Command_declValSimple___elambda__1___closed__2;
extern lean_object* l___private_Init_Lean_Meta_ExprDefEq_8__checkTypesAndAssign___closed__7;
lean_object* l_Lean_Expr_fvarId_x21(lean_object*);
lean_object* l_Lean_Elab_Command_mkDef___lambda__1___closed__2;
lean_object* l_Lean_Elab_Command_mkDef___lambda__1___closed__1;
@ -83,17 +91,18 @@ lean_object* l___private_Init_Lean_Elab_Definition_1__regTraceClasses(lean_objec
lean_object* l_Lean_Elab_Command_withUsedWhen___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Command_namespace___elambda__1___closed__1;
lean_object* l_Lean_Elab_Command_throwError___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_List_elem___main___at_Lean_Parser_addLeadingParser___spec__7(lean_object*, lean_object*);
extern lean_object* l_Array_iterateMAux___main___at_Lean_ppGoal___spec__6___closed__6;
lean_object* l___private_Init_Lean_Elab_Command_6__mkTermContext(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_LocalInstances_erase(lean_object*, lean_object*);
lean_object* l_Lean_CollectFVars_main___main(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_withUsedWhen_x27(lean_object*);
lean_object* l_Lean_Elab_Command_DefKind_isDefOrOpaque___boxed(lean_object*);
lean_object* l_Lean_getMaxHeight(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_getLocalInsts(lean_object*, lean_object*);
extern lean_object* l_Lean_Elab_Command_modifyScope___closed__1;
lean_object* l_Lean_Elab_Command_elabDefLike___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Elab_Command_DefKind_isTheorem(uint8_t);
extern lean_object* l_Lean_Elab_Command_withDeclId___closed__3;
extern lean_object* l_Lean_NameSet_empty;
lean_object* l_Lean_Elab_Command_sortDeclLevelParams(lean_object*, lean_object*);
extern lean_object* l_HashSet_Inhabited___closed__1;
lean_object* l_Lean_Elab_Command_elabDefVal___closed__3;
@ -124,8 +133,9 @@ lean_object* l_Lean_Elab_Term_elabBinders___rarg(lean_object*, lean_object*, lea
lean_object* l_Lean_Elab_Command_removeUnused___closed__1;
uint8_t l_Lean_NameSet_contains(lean_object*, lean_object*);
lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*);
extern lean_object* l_ShareCommon_State_empty;
extern lean_object* l___private_Init_Lean_Elab_Util_4__regTraceClasses___closed__1;
uint8_t l_Lean_Elab_Command_DefKind_isDefOrOpaque(uint8_t);
lean_object* lean_state_sharecommon(lean_object*, lean_object*);
lean_object* lean_task_pure(lean_object*);
lean_object* l___private_Init_Lean_Elab_Command_7__mkTermState(lean_object*);
lean_object* l_Lean_CollectLevelParams_main___main(lean_object*, lean_object*);
@ -166,7 +176,7 @@ x_4 = lean_box(x_3);
return x_4;
}
}
uint8_t l_Lean_Elab_Command_DefKind_isDefOrOpaque(uint8_t x_1) {
uint8_t l_Lean_Elab_Command_DefKind_isDefOrAbbrevOrOpaque(uint8_t x_1) {
_start:
{
lean_object* x_2;
@ -194,13 +204,13 @@ return x_5;
}
}
}
lean_object* l_Lean_Elab_Command_DefKind_isDefOrOpaque___boxed(lean_object* x_1) {
lean_object* l_Lean_Elab_Command_DefKind_isDefOrAbbrevOrOpaque___boxed(lean_object* x_1) {
_start:
{
uint8_t x_2; uint8_t x_3; lean_object* x_4;
x_2 = lean_unbox(x_1);
lean_dec(x_1);
x_3 = l_Lean_Elab_Command_DefKind_isDefOrOpaque(x_2);
x_3 = l_Lean_Elab_Command_DefKind_isDefOrAbbrevOrOpaque(x_2);
x_4 = lean_box(x_3);
return x_4;
}
@ -847,11 +857,11 @@ lean_object* _init_l_Lean_Elab_Command_removeUnused___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_HashSet_Inhabited___closed__1;
x_1 = l_HashSet_Inhabited___closed__1;
x_2 = l_Lean_NameSet_empty;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
lean_ctor_set(x_3, 0, x_1);
lean_ctor_set(x_3, 1, x_2);
return x_3;
}
}
@ -1338,6 +1348,14 @@ lean_dec(x_1);
return x_10;
}
}
lean_object* l_ShareCommonT_withShareCommon___at_Lean_Elab_Command_mkDef___spec__1(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_state_sharecommon(x_2, x_1);
return x_3;
}
}
lean_object* _init_l_Lean_Elab_Command_mkDef___lambda__1___closed__1() {
_start:
{
@ -1354,32 +1372,22 @@ return x_3;
lean_object* _init_l_Lean_Elab_Command_mkDef___lambda__1___closed__2() {
_start:
{
uint32_t x_1; lean_object* x_2;
x_1 = 0;
x_2 = lean_alloc_ctor(2, 0, 4);
lean_ctor_set_uint32(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Elab_Command_mkDef___lambda__1___closed__3() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("definition");
return x_1;
}
}
lean_object* _init_l_Lean_Elab_Command_mkDef___lambda__1___closed__4() {
lean_object* _init_l_Lean_Elab_Command_mkDef___lambda__1___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Init_Lean_Elab_Util_4__regTraceClasses___closed__1;
x_2 = l_Lean_Elab_Command_mkDef___lambda__1___closed__3;
x_2 = l_Lean_Elab_Command_mkDef___lambda__1___closed__2;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Elab_Command_mkDef___lambda__1___closed__5() {
lean_object* _init_l_Lean_Elab_Command_mkDef___lambda__1___closed__4() {
_start:
{
lean_object* x_1;
@ -1387,16 +1395,26 @@ x_1 = lean_mk_string("body");
return x_1;
}
}
lean_object* _init_l_Lean_Elab_Command_mkDef___lambda__1___closed__6() {
lean_object* _init_l_Lean_Elab_Command_mkDef___lambda__1___closed__5() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Elab_Command_mkDef___lambda__1___closed__4;
x_2 = l_Lean_Elab_Command_mkDef___lambda__1___closed__5;
x_1 = l_Lean_Elab_Command_mkDef___lambda__1___closed__3;
x_2 = l_Lean_Elab_Command_mkDef___lambda__1___closed__4;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Elab_Command_mkDef___lambda__1___closed__6() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Array_iterateMAux___main___at_Lean_ppGoal___spec__6___closed__6;
x_2 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* l_Lean_Elab_Command_mkDef___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, uint8_t x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11, lean_object* x_12) {
_start:
{
@ -1437,7 +1455,7 @@ lean_inc(x_11);
x_22 = l_Lean_Elab_Term_mkLambda(x_1, x_10, x_20, x_11, x_21);
if (lean_obj_tag(x_22) == 0)
{
lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; uint8_t x_73;
lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_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_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; uint8_t x_107;
x_23 = lean_ctor_get(x_22, 0);
lean_inc(x_23);
x_24 = lean_ctor_get(x_22, 1);
@ -1478,253 +1496,362 @@ if (lean_is_exclusive(x_34)) {
lean_dec_ref(x_34);
x_37 = lean_box(0);
}
x_69 = l_Lean_Elab_Term_getOptions(x_11, x_36);
x_70 = lean_ctor_get(x_69, 0);
lean_inc(x_70);
x_71 = lean_ctor_get(x_69, 1);
lean_inc(x_71);
lean_dec(x_69);
x_72 = l_Lean_Elab_Command_mkDef___lambda__1___closed__6;
x_73 = l_Lean_checkTraceOption(x_70, x_72);
lean_dec(x_70);
if (x_73 == 0)
x_38 = l_ShareCommon_State_empty;
x_39 = lean_state_sharecommon(x_38, x_32);
x_40 = lean_ctor_get(x_39, 0);
lean_inc(x_40);
x_41 = lean_ctor_get(x_39, 1);
lean_inc(x_41);
lean_dec(x_39);
x_42 = lean_state_sharecommon(x_41, x_35);
x_43 = lean_ctor_get(x_42, 0);
lean_inc(x_43);
lean_dec(x_42);
x_103 = l_Lean_Elab_Term_getOptions(x_11, x_36);
x_104 = lean_ctor_get(x_103, 0);
lean_inc(x_104);
x_105 = lean_ctor_get(x_103, 1);
lean_inc(x_105);
lean_dec(x_103);
x_106 = l_Lean_Elab_Command_mkDef___lambda__1___closed__5;
x_107 = l_Lean_checkTraceOption(x_104, x_106);
lean_dec(x_104);
if (x_107 == 0)
{
x_38 = x_71;
goto block_68;
x_44 = x_105;
goto block_102;
}
else
{
lean_object* x_74; lean_object* x_75; lean_object* x_76;
lean_inc(x_35);
x_74 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_74, 0, x_35);
x_75 = l_Lean_Elab_Term_logTrace(x_72, x_1, x_74, x_11, x_71);
x_76 = lean_ctor_get(x_75, 1);
lean_inc(x_76);
lean_dec(x_75);
x_38 = x_76;
goto block_68;
lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120;
lean_inc(x_8);
x_108 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_108, 0, x_8);
x_109 = l___private_Init_Lean_Meta_ExprDefEq_8__checkTypesAndAssign___closed__7;
x_110 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_110, 0, x_108);
lean_ctor_set(x_110, 1, x_109);
lean_inc(x_40);
x_111 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_111, 0, x_40);
x_112 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_112, 0, x_110);
lean_ctor_set(x_112, 1, x_111);
x_113 = l_Lean_Elab_Command_mkDef___lambda__1___closed__6;
x_114 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_114, 0, x_112);
lean_ctor_set(x_114, 1, x_113);
x_115 = l_Lean_MessageData_ofList___closed__3;
x_116 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_116, 0, x_114);
lean_ctor_set(x_116, 1, x_115);
lean_inc(x_43);
x_117 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_117, 0, x_43);
x_118 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_118, 0, x_116);
lean_ctor_set(x_118, 1, x_117);
x_119 = l_Lean_Elab_Term_logTrace(x_106, x_1, x_118, x_11, x_105);
x_120 = lean_ctor_get(x_119, 1);
lean_inc(x_120);
lean_dec(x_119);
x_44 = x_120;
goto block_102;
}
block_68:
block_102:
{
lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43;
x_39 = l_Lean_Elab_Command_mkDef___lambda__1___closed__1;
lean_inc(x_32);
x_40 = l_Lean_CollectLevelParams_main___main(x_32, x_39);
lean_inc(x_35);
x_41 = l_Lean_CollectLevelParams_main___main(x_35, x_40);
x_42 = lean_ctor_get(x_41, 2);
lean_inc(x_42);
lean_dec(x_41);
x_43 = l_Lean_Elab_Command_sortDeclLevelParams(x_6, x_42);
lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49;
x_45 = l_Lean_Elab_Command_mkDef___lambda__1___closed__1;
lean_inc(x_40);
x_46 = l_Lean_CollectLevelParams_main___main(x_40, x_45);
lean_inc(x_43);
x_47 = l_Lean_CollectLevelParams_main___main(x_43, x_46);
x_48 = lean_ctor_get(x_47, 2);
lean_inc(x_48);
lean_dec(x_47);
x_49 = l_Lean_Elab_Command_sortDeclLevelParams(x_6, x_48);
switch (x_7) {
case 0:
{
lean_object* x_44; lean_object* x_45; uint8_t x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51;
lean_object* x_50; uint8_t x_51;
lean_dec(x_37);
lean_dec(x_11);
x_44 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_44, 0, x_8);
lean_ctor_set(x_44, 1, x_43);
lean_ctor_set(x_44, 2, x_32);
x_45 = lean_ctor_get(x_9, 1);
x_46 = lean_ctor_get_uint8(x_45, sizeof(void*)*2 + 3);
x_47 = l_Lean_Elab_Command_mkDef___lambda__1___closed__2;
x_48 = lean_alloc_ctor(0, 3, 1);
lean_ctor_set(x_48, 0, x_44);
lean_ctor_set(x_48, 1, x_35);
lean_ctor_set(x_48, 2, x_47);
lean_ctor_set_uint8(x_48, sizeof(void*)*3, x_46);
x_49 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_49, 0, x_48);
x_50 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_50, 0, x_49);
if (lean_is_scalar(x_37)) {
x_51 = lean_alloc_ctor(0, 2, 0);
} else {
x_51 = x_37;
x_50 = l_Lean_Elab_Term_getEnv___rarg(x_44);
x_51 = !lean_is_exclusive(x_50);
if (x_51 == 0)
{
lean_object* x_52; lean_object* x_53; lean_object* x_54; uint32_t x_55; uint32_t x_56; uint32_t x_57; lean_object* x_58; lean_object* x_59; uint8_t x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63;
x_52 = lean_ctor_get(x_50, 0);
x_53 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_53, 0, x_8);
lean_ctor_set(x_53, 1, x_49);
lean_ctor_set(x_53, 2, x_40);
lean_inc(x_43);
x_54 = l_Lean_getMaxHeight(x_52, x_43);
x_55 = lean_unbox_uint32(x_54);
lean_dec(x_54);
x_56 = 1;
x_57 = x_55 + x_56;
x_58 = lean_alloc_ctor(2, 0, 4);
lean_ctor_set_uint32(x_58, 0, x_57);
x_59 = lean_ctor_get(x_9, 1);
x_60 = lean_ctor_get_uint8(x_59, sizeof(void*)*2 + 3);
x_61 = lean_alloc_ctor(0, 3, 1);
lean_ctor_set(x_61, 0, x_53);
lean_ctor_set(x_61, 1, x_43);
lean_ctor_set(x_61, 2, x_58);
lean_ctor_set_uint8(x_61, sizeof(void*)*3, x_60);
x_62 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_62, 0, x_61);
x_63 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_63, 0, x_62);
lean_ctor_set(x_50, 0, x_63);
return x_50;
}
else
{
lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; uint32_t x_68; uint32_t x_69; uint32_t x_70; lean_object* x_71; lean_object* x_72; uint8_t x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77;
x_64 = lean_ctor_get(x_50, 0);
x_65 = lean_ctor_get(x_50, 1);
lean_inc(x_65);
lean_inc(x_64);
lean_dec(x_50);
x_66 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_66, 0, x_8);
lean_ctor_set(x_66, 1, x_49);
lean_ctor_set(x_66, 2, x_40);
lean_inc(x_43);
x_67 = l_Lean_getMaxHeight(x_64, x_43);
x_68 = lean_unbox_uint32(x_67);
lean_dec(x_67);
x_69 = 1;
x_70 = x_68 + x_69;
x_71 = lean_alloc_ctor(2, 0, 4);
lean_ctor_set_uint32(x_71, 0, x_70);
x_72 = lean_ctor_get(x_9, 1);
x_73 = lean_ctor_get_uint8(x_72, sizeof(void*)*2 + 3);
x_74 = lean_alloc_ctor(0, 3, 1);
lean_ctor_set(x_74, 0, x_66);
lean_ctor_set(x_74, 1, x_43);
lean_ctor_set(x_74, 2, x_71);
lean_ctor_set_uint8(x_74, sizeof(void*)*3, x_73);
x_75 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_75, 0, x_74);
x_76 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_76, 0, x_75);
x_77 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_77, 0, x_76);
lean_ctor_set(x_77, 1, x_65);
return x_77;
}
lean_ctor_set(x_51, 0, x_50);
lean_ctor_set(x_51, 1, x_38);
return x_51;
}
case 1:
{
lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57;
lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83;
lean_dec(x_11);
x_52 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_52, 0, x_8);
lean_ctor_set(x_52, 1, x_43);
lean_ctor_set(x_52, 2, x_32);
x_53 = lean_task_pure(x_35);
x_54 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_54, 0, x_52);
lean_ctor_set(x_54, 1, x_53);
x_55 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_55, 0, x_54);
x_56 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_56, 0, x_55);
x_78 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_78, 0, x_8);
lean_ctor_set(x_78, 1, x_49);
lean_ctor_set(x_78, 2, x_40);
x_79 = lean_task_pure(x_43);
x_80 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_80, 0, x_78);
lean_ctor_set(x_80, 1, x_79);
x_81 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_81, 0, x_80);
x_82 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_82, 0, x_81);
if (lean_is_scalar(x_37)) {
x_57 = lean_alloc_ctor(0, 2, 0);
x_83 = lean_alloc_ctor(0, 2, 0);
} else {
x_57 = x_37;
x_83 = x_37;
}
lean_ctor_set(x_57, 0, x_56);
lean_ctor_set(x_57, 1, x_38);
return x_57;
lean_ctor_set(x_83, 0, x_82);
lean_ctor_set(x_83, 1, x_44);
return x_83;
}
case 2:
{
lean_object* x_58; lean_object* x_59; lean_object* x_60;
lean_object* x_84; lean_object* x_85; lean_object* x_86;
lean_dec(x_49);
lean_dec(x_43);
lean_dec(x_40);
lean_dec(x_37);
lean_dec(x_35);
lean_dec(x_32);
lean_dec(x_8);
x_58 = l___private_Init_Lean_Elab_SyntheticMVars_2__resumePostponed___lambda__1___closed__1;
x_59 = l_unreachable_x21___rarg(x_58);
x_60 = lean_apply_2(x_59, x_11, x_38);
return x_60;
x_84 = l___private_Init_Lean_Elab_SyntheticMVars_2__resumePostponed___lambda__1___closed__1;
x_85 = l_unreachable_x21___rarg(x_84);
x_86 = lean_apply_2(x_85, x_11, x_44);
return x_86;
}
case 3:
{
lean_object* x_87; lean_object* x_88; uint8_t x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93;
lean_dec(x_11);
x_87 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_87, 0, x_8);
lean_ctor_set(x_87, 1, x_49);
lean_ctor_set(x_87, 2, x_40);
x_88 = lean_ctor_get(x_9, 1);
x_89 = lean_ctor_get_uint8(x_88, sizeof(void*)*2 + 3);
x_90 = lean_alloc_ctor(0, 2, 1);
lean_ctor_set(x_90, 0, x_87);
lean_ctor_set(x_90, 1, x_43);
lean_ctor_set_uint8(x_90, sizeof(void*)*2, x_89);
x_91 = lean_alloc_ctor(3, 1, 0);
lean_ctor_set(x_91, 0, x_90);
x_92 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_92, 0, x_91);
if (lean_is_scalar(x_37)) {
x_93 = lean_alloc_ctor(0, 2, 0);
} else {
x_93 = x_37;
}
lean_ctor_set(x_93, 0, x_92);
lean_ctor_set(x_93, 1, x_44);
return x_93;
}
default:
{
lean_object* x_61; lean_object* x_62; uint8_t x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67;
lean_object* x_94; lean_object* x_95; uint8_t x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101;
lean_dec(x_11);
x_61 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_61, 0, x_8);
lean_ctor_set(x_61, 1, x_43);
lean_ctor_set(x_61, 2, x_32);
x_62 = lean_ctor_get(x_9, 1);
x_63 = lean_ctor_get_uint8(x_62, sizeof(void*)*2 + 3);
x_64 = lean_alloc_ctor(0, 2, 1);
lean_ctor_set(x_64, 0, x_61);
lean_ctor_set(x_64, 1, x_35);
lean_ctor_set_uint8(x_64, sizeof(void*)*2, x_63);
x_65 = lean_alloc_ctor(3, 1, 0);
lean_ctor_set(x_65, 0, x_64);
x_66 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_66, 0, x_65);
x_94 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_94, 0, x_8);
lean_ctor_set(x_94, 1, x_49);
lean_ctor_set(x_94, 2, x_40);
x_95 = lean_ctor_get(x_9, 1);
x_96 = lean_ctor_get_uint8(x_95, sizeof(void*)*2 + 3);
x_97 = lean_box(1);
x_98 = lean_alloc_ctor(0, 3, 1);
lean_ctor_set(x_98, 0, x_94);
lean_ctor_set(x_98, 1, x_43);
lean_ctor_set(x_98, 2, x_97);
lean_ctor_set_uint8(x_98, sizeof(void*)*3, x_96);
x_99 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_99, 0, x_98);
x_100 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_100, 0, x_99);
if (lean_is_scalar(x_37)) {
x_67 = lean_alloc_ctor(0, 2, 0);
x_101 = lean_alloc_ctor(0, 2, 0);
} else {
x_67 = x_37;
x_101 = x_37;
}
lean_ctor_set(x_67, 0, x_66);
lean_ctor_set(x_67, 1, x_38);
return x_67;
lean_ctor_set(x_101, 0, x_100);
lean_ctor_set(x_101, 1, x_44);
return x_101;
}
}
}
}
else
{
uint8_t x_77;
uint8_t x_121;
lean_dec(x_17);
lean_dec(x_11);
lean_dec(x_8);
lean_dec(x_6);
x_77 = !lean_is_exclusive(x_22);
if (x_77 == 0)
x_121 = !lean_is_exclusive(x_22);
if (x_121 == 0)
{
return x_22;
}
else
{
lean_object* x_78; lean_object* x_79; lean_object* x_80;
x_78 = lean_ctor_get(x_22, 0);
x_79 = lean_ctor_get(x_22, 1);
lean_inc(x_79);
lean_inc(x_78);
lean_object* x_122; lean_object* x_123; lean_object* x_124;
x_122 = lean_ctor_get(x_22, 0);
x_123 = lean_ctor_get(x_22, 1);
lean_inc(x_123);
lean_inc(x_122);
lean_dec(x_22);
x_80 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_80, 0, x_78);
lean_ctor_set(x_80, 1, x_79);
return x_80;
x_124 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_124, 0, x_122);
lean_ctor_set(x_124, 1, x_123);
return x_124;
}
}
}
else
{
uint8_t x_81;
uint8_t x_125;
lean_dec(x_17);
lean_dec(x_11);
lean_dec(x_10);
lean_dec(x_8);
lean_dec(x_6);
x_81 = !lean_is_exclusive(x_19);
if (x_81 == 0)
x_125 = !lean_is_exclusive(x_19);
if (x_125 == 0)
{
return x_19;
}
else
{
lean_object* x_82; lean_object* x_83; lean_object* x_84;
x_82 = lean_ctor_get(x_19, 0);
x_83 = lean_ctor_get(x_19, 1);
lean_inc(x_83);
lean_inc(x_82);
lean_object* x_126; lean_object* x_127; lean_object* x_128;
x_126 = lean_ctor_get(x_19, 0);
x_127 = lean_ctor_get(x_19, 1);
lean_inc(x_127);
lean_inc(x_126);
lean_dec(x_19);
x_84 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_84, 0, x_82);
lean_ctor_set(x_84, 1, x_83);
return x_84;
x_128 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_128, 0, x_126);
lean_ctor_set(x_128, 1, x_127);
return x_128;
}
}
}
else
{
uint8_t x_85;
uint8_t x_129;
lean_dec(x_11);
lean_dec(x_10);
lean_dec(x_8);
lean_dec(x_6);
lean_dec(x_4);
lean_dec(x_2);
x_85 = !lean_is_exclusive(x_16);
if (x_85 == 0)
x_129 = !lean_is_exclusive(x_16);
if (x_129 == 0)
{
return x_16;
}
else
{
lean_object* x_86; lean_object* x_87; lean_object* x_88;
x_86 = lean_ctor_get(x_16, 0);
x_87 = lean_ctor_get(x_16, 1);
lean_inc(x_87);
lean_inc(x_86);
lean_object* x_130; lean_object* x_131; lean_object* x_132;
x_130 = lean_ctor_get(x_16, 0);
x_131 = lean_ctor_get(x_16, 1);
lean_inc(x_131);
lean_inc(x_130);
lean_dec(x_16);
x_88 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_88, 0, x_86);
lean_ctor_set(x_88, 1, x_87);
return x_88;
x_132 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_132, 0, x_130);
lean_ctor_set(x_132, 1, x_131);
return x_132;
}
}
}
else
{
uint8_t x_89;
uint8_t x_133;
lean_dec(x_11);
lean_dec(x_10);
lean_dec(x_8);
lean_dec(x_6);
lean_dec(x_4);
lean_dec(x_2);
x_89 = !lean_is_exclusive(x_13);
if (x_89 == 0)
x_133 = !lean_is_exclusive(x_13);
if (x_133 == 0)
{
return x_13;
}
else
{
lean_object* x_90; lean_object* x_91; lean_object* x_92;
x_90 = lean_ctor_get(x_13, 0);
x_91 = lean_ctor_get(x_13, 1);
lean_inc(x_91);
lean_inc(x_90);
lean_object* x_134; lean_object* x_135; lean_object* x_136;
x_134 = lean_ctor_get(x_13, 0);
x_135 = lean_ctor_get(x_13, 1);
lean_inc(x_135);
lean_inc(x_134);
lean_dec(x_13);
x_92 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_92, 0, x_90);
lean_ctor_set(x_92, 1, x_91);
return x_92;
x_136 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_136, 0, x_134);
lean_ctor_set(x_136, 1, x_135);
return x_136;
}
}
}
@ -1791,7 +1918,7 @@ if (x_31 == 0)
{
uint8_t x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35;
lean_free_object(x_26);
x_32 = l_Lean_Elab_Command_DefKind_isDefOrOpaque(x_30);
x_32 = l_Lean_Elab_Command_DefKind_isDefOrAbbrevOrOpaque(x_30);
x_33 = lean_box(x_30);
lean_inc(x_28);
lean_inc(x_24);
@ -1843,7 +1970,7 @@ x_40 = l_Lean_Elab_Command_DefKind_isExample(x_39);
if (x_40 == 0)
{
uint8_t x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44;
x_41 = l_Lean_Elab_Command_DefKind_isDefOrOpaque(x_39);
x_41 = l_Lean_Elab_Command_DefKind_isDefOrAbbrevOrOpaque(x_39);
x_42 = lean_box(x_39);
lean_inc(x_37);
lean_inc(x_24);
@ -4284,7 +4411,7 @@ x_11 = lean_unsigned_to_nat(1u);
x_12 = lean_nat_add(x_3, x_11);
lean_dec(x_3);
x_13 = l_Lean_Syntax_getId(x_10);
x_14 = l_List_elem___main___at_Lean_Parser_addLeadingParser___spec__7(x_13, x_4);
x_14 = l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(x_13, x_4);
if (x_14 == 0)
{
lean_object* x_15;
@ -6627,7 +6754,7 @@ lean_object* l___private_Init_Lean_Elab_Definition_1__regTraceClasses(lean_objec
_start:
{
lean_object* x_2; lean_object* x_3;
x_2 = l_Lean_Elab_Command_mkDef___lambda__1___closed__4;
x_2 = l_Lean_Elab_Command_mkDef___lambda__1___closed__3;
x_3 = l_Lean_registerTraceClass(x_2, x_1);
if (lean_obj_tag(x_3) == 0)
{
@ -6679,7 +6806,9 @@ return x_13;
}
}
}
lean_object* initialize_Init_ShareCommon(lean_object*);
lean_object* initialize_Init_Lean_Util_CollectLevelParams(lean_object*);
lean_object* initialize_Init_Lean_Util_FoldConsts(lean_object*);
lean_object* initialize_Init_Lean_Util_CollectFVars(lean_object*);
lean_object* initialize_Init_Lean_Elab_DeclModifiers(lean_object*);
lean_object* initialize_Init_Lean_Elab_Binders(lean_object*);
@ -6688,9 +6817,15 @@ lean_object* initialize_Init_Lean_Elab_Definition(lean_object* w) {
lean_object * res;
if (_G_initialized) return lean_mk_io_result(lean_box(0));
_G_initialized = true;
res = initialize_Init_ShareCommon(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Init_Lean_Util_CollectLevelParams(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Init_Lean_Util_FoldConsts(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Init_Lean_Util_CollectFVars(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);

4
stage0/stdlib/Init/Lean/Elab/Level.c
View file

@ -27,6 +27,7 @@ uint8_t lean_name_eq(lean_object*, lean_object*);
lean_object* l_Lean_Elab_getPos___at_Lean_Elab_Level_elabLevel___main___spec__3(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Level_LevelElabM_MonadLog___lambda__4___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Syntax_getIdAt(lean_object*, lean_object*);
uint8_t l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Level_LevelElabM_MonadLog___lambda__3(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Level_max___elambda__1___closed__1;
lean_object* lean_array_get_size(lean_object*);
@ -62,7 +63,6 @@ lean_object* l_Lean_Elab_Level_mkFreshId(lean_object*);
lean_object* l_Lean_Elab_Level_elabLevel___main___closed__3;
lean_object* l_ReaderT_bind___at_Lean_Elab_Level_LevelElabM_MonadLog___spec__2(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Level_LevelElabM_MonadLog___closed__1;
uint8_t l_List_elem___main___at_Lean_Parser_addLeadingParser___spec__7(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Level_elabLevel___main___closed__9;
lean_object* l_Lean_Elab_mkMessage___at_Lean_Elab_Level_elabLevel___main___spec__2(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_FileMap_toPosition(lean_object*, lean_object*);
@ -1170,7 +1170,7 @@ lean_dec(x_4);
x_50 = lean_unsigned_to_nat(0u);
x_51 = l_Lean_Syntax_getIdAt(x_1, x_50);
x_52 = lean_ctor_get(x_2, 3);
x_53 = l_List_elem___main___at_Lean_Parser_addLeadingParser___spec__7(x_51, x_52);
x_53 = l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(x_51, x_52);
if (x_53 == 0)
{
lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; uint8_t x_58;

4
stage0/stdlib/Init/Lean/Elab/Quotation.c
View file

@ -519,6 +519,7 @@ lean_object* l_List_mapM___main___at___private_Init_Lean_Elab_Quotation_9__compi
lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Quotation_4__elimAntiquotChoices___main___spec__1(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Elab_Quotation_9__compileStxMatch___main___closed__3;
lean_object* l_Lean_mkStxLit(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_reduceNative_x3f___closed__8;
lean_object* l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__24;
lean_object* l___private_Init_Lean_Elab_Quotation_14__oldRunTermElabM___rarg(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__13;
@ -564,7 +565,6 @@ lean_object* l___private_Init_Lean_Elab_Quotation_9__compileStxMatch___main___cl
lean_object* l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___elambda__3___closed__9;
lean_object* l___private_Init_Lean_Elab_Quotation_3__quoteOption___rarg___closed__4;
lean_object* l___private_Init_Lean_Elab_Quotation_8__explodeHeadPat___closed__2;
extern lean_object* l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__2;
lean_object* l_Lean_Prod_hasQuote(lean_object*, lean_object*);
lean_object* l_Lean_Message_toString(lean_object*);
lean_object* l_Lean_Elab_Term_Quotation_antiquotKind_x3f(lean_object*);
@ -7707,7 +7707,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__2;
x_2 = l_Lean_Meta_reduceNative_x3f___closed__8;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);

8
stage0/stdlib/Init/Lean/Elab/ResolveName.c
View file

@ -22,7 +22,7 @@ lean_object* l_unreachable_x21___rarg(lean_object*);
extern lean_object* l_List_repr___rarg___closed__1;
lean_object* l___private_Init_Lean_Elab_ResolveName_2__resolveUsingNamespace(lean_object*, lean_object*, lean_object*);
uint8_t lean_name_eq(lean_object*, lean_object*);
uint8_t l_List_elem___main___at_Lean_addAliasEntry___spec__18(lean_object*, lean_object*);
uint8_t l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(lean_object*, lean_object*);
lean_object* l_List_append___rarg(lean_object*, lean_object*);
lean_object* l_List_toStringAux___main___at_Lean_Elab_OpenDecl_HasToString___spec__3___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Elab_resolveGlobalName___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -539,7 +539,7 @@ lean_inc(x_7);
x_8 = lean_ctor_get(x_5, 1);
lean_inc(x_8);
lean_dec(x_5);
x_9 = l_List_elem___main___at_Lean_addAliasEntry___spec__18(x_2, x_8);
x_9 = l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(x_2, x_8);
lean_dec(x_8);
if (x_9 == 0)
{
@ -657,7 +657,7 @@ if (x_4 == 0)
lean_object* x_5; lean_object* x_6; uint8_t x_7;
x_5 = lean_ctor_get(x_1, 0);
x_6 = lean_ctor_get(x_1, 1);
x_7 = l_List_elem___main___at_Lean_addAliasEntry___spec__18(x_5, x_2);
x_7 = l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(x_5, x_2);
if (x_7 == 0)
{
lean_ctor_set(x_1, 1, x_2);
@ -685,7 +685,7 @@ x_11 = lean_ctor_get(x_1, 1);
lean_inc(x_11);
lean_inc(x_10);
lean_dec(x_1);
x_12 = l_List_elem___main___at_Lean_addAliasEntry___spec__18(x_10, x_2);
x_12 = l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(x_10, x_2);
if (x_12 == 0)
{
lean_object* x_13;

12
stage0/stdlib/Init/Lean/Elab/StrategyAttrs.c
View file

@ -20,7 +20,6 @@ lean_object* lean_nat_div(lean_object*, lean_object*);
lean_object* l_Lean_PersistentEnvExtension_getModuleEntries___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkElaboratorStrategyAttrs___closed__13;
lean_object* l_Lean_EnumAttributes_getValue___at_Lean_getElaboratorStrategy___spec__1(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
uint8_t lean_name_eq(lean_object*, lean_object*);
lean_object* l_List_map___main___at_Lean_mkElaboratorStrategyAttrs___spec__8(lean_object*, uint8_t, lean_object*, lean_object*);
@ -28,7 +27,6 @@ uint8_t l_Lean_ElaboratorStrategy_inhabited;
lean_object* l_Lean_mkElaboratorStrategyAttrs___closed__12;
extern lean_object* l_Array_empty___closed__1;
lean_object* l_RBNode_fold___main___at_Lean_mkElaboratorStrategyAttrs___spec__2___boxed(lean_object*, lean_object*);
extern lean_object* l_Lean_registerTagAttribute___closed__1;
lean_object* l_Lean_mkElaboratorStrategyAttrs___lambda__1___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkElaboratorStrategyAttrs___lambda__1___closed__1;
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkElaboratorStrategyAttrs___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -45,7 +43,6 @@ lean_object* l_RBNode_find___main___at_Lean_getElaboratorStrategy___spec__2___bo
lean_object* l_Lean_elaboratorStrategyAttrs;
lean_object* l_Lean_mkElaboratorStrategyAttrs___closed__21;
lean_object* lean_nat_add(lean_object*, lean_object*);
extern lean_object* l_Lean_registerTagAttribute___closed__2;
lean_object* l_List_map___main___at_Lean_mkElaboratorStrategyAttrs___spec__8___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_Lean_registerTagAttribute___lambda__4___closed__3;
lean_object* l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(lean_object*, lean_object*, lean_object*);
@ -62,7 +59,9 @@ lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkElaboratorStrategyAttrs___closed__11;
lean_object* l_Lean_mkElaboratorStrategyAttrs___closed__19;
lean_object* lean_name_mk_string(lean_object*, lean_object*);
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__1;
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_mkElaboratorStrategyAttrs___spec__7(lean_object*, lean_object*);
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__2;
extern lean_object* l___private_Init_Lean_Environment_5__envExtensionsRef;
lean_object* lean_get_elaborator_strategy(lean_object*, lean_object*);
lean_object* l_Lean_EnumAttributes_getValue___at_Lean_getElaboratorStrategy___spec__1___boxed(lean_object*, lean_object*, lean_object*);
@ -92,6 +91,7 @@ lean_object* l_Lean_mkElaboratorStrategyAttrs___closed__2;
lean_object* l_Lean_Environment_getModuleIdxFor_x3f(lean_object*, lean_object*);
lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkElaboratorStrategyAttrs___closed__3;
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
lean_object* l_Lean_mkElaboratorStrategyAttrs___closed__15;
lean_object* l_Lean_registerEnumAttributes___at_Lean_mkElaboratorStrategyAttrs___spec__1___lambda__2___boxed(lean_object*);
lean_object* l_Lean_mkElaboratorStrategyAttrs___closed__1;
@ -471,7 +471,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -1350,8 +1350,8 @@ lean_object* l_Lean_registerEnumAttributes___at_Lean_mkElaboratorStrategyAttrs__
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12;
x_6 = l_Lean_registerTagAttribute___closed__1;
x_7 = l_Lean_registerTagAttribute___closed__2;
x_6 = l_Lean_registerParametricAttribute___rarg___closed__1;
x_7 = l_Lean_registerParametricAttribute___rarg___closed__2;
x_8 = l_Lean_registerEnumAttributes___at_Lean_mkElaboratorStrategyAttrs___spec__1___closed__1;
x_9 = l_Lean_registerEnumAttributes___at_Lean_mkElaboratorStrategyAttrs___spec__1___closed__2;
x_10 = l_Lean_registerEnumAttributes___rarg___closed__1;

125
stage0/stdlib/Init/Lean/Elab/Syntax.c
View file

@ -60,7 +60,6 @@ lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__
lean_object* l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8;
extern lean_object* l_Lean_identKind___closed__1;
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__92;
extern lean_object* l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__1;
lean_object* l_Array_eraseIdx___rarg(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__14;
lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__28;
@ -107,6 +106,7 @@ lean_object* l_Lean_Elab_Term_checkLeftRec___closed__9;
lean_object* l_Lean_Elab_Command_elabSyntax___closed__16;
lean_object* l___private_Init_LeanInit_14__mapSepElemsMAux___main___at_Lean_Elab_Command_elabMacroRulesAux___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__118;
extern lean_object* l_Lean_Meta_reduceNative_x3f___closed__5;
lean_object* l___private_Init_Lean_Elab_Command_9__getVarDecls(lean_object*);
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__39;
lean_object* l_Lean_Elab_Command_elabSyntax___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -283,7 +283,6 @@ lean_object* l_Lean_Elab_Command_elabNoKindMacroRulesAux___boxed(lean_object*, l
lean_object* l___private_Init_Lean_Elab_Syntax_5__withoutLeftRec___rarg(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__93;
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__121;
extern lean_object* l_Lean_Parser_Command_docComment___elambda__1___closed__2;
lean_object* l___private_Init_Lean_Elab_Command_6__mkTermContext(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabSyntax___closed__28;
@ -2551,9 +2550,11 @@ lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__106() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__1;
x_2 = l_Bool_HasRepr___closed__1;
x_3 = lean_name_mk_string(x_1, x_2);
x_1 = lean_box(0);
x_2 = l_Lean_Meta_reduceNative_x3f___closed__5;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
}
}
@ -2563,7 +2564,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__106;
x_3 = lean_alloc_ctor(0, 2, 0);
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;
@ -2572,39 +2573,27 @@ return x_3;
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__108() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__107;
x_3 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
}
}
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__109() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("ParserDescr.parser");
return x_1;
}
}
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__110() {
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__109() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__109;
x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__108;
x_2 = lean_string_utf8_byte_size(x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__111() {
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__110() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__109;
x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__108;
x_2 = lean_unsigned_to_nat(0u);
x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__110;
x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__109;
x_4 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_4, 0, x_1);
lean_ctor_set(x_4, 1, x_2);
@ -2612,7 +2601,7 @@ lean_ctor_set(x_4, 2, x_3);
return x_4;
}
}
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__112() {
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__111() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
@ -2622,7 +2611,7 @@ x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__113() {
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__112() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
@ -2632,13 +2621,25 @@ x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__113() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__112;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
}
}
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__114() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__113;
x_3 = lean_alloc_ctor(0, 2, 0);
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;
@ -2647,21 +2648,19 @@ return x_3;
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__115() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__114;
x_3 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
lean_object* x_1;
x_1 = lean_mk_string("unknown category '");
return x_1;
}
}
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__116() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("unknown category '");
return x_1;
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__115;
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__117() {
@ -2669,7 +2668,7 @@ _start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__116;
x_2 = lean_alloc_ctor(2, 1, 0);
x_2 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
@ -2677,19 +2676,19 @@ return x_2;
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__118() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__117;
x_2 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
lean_object* x_1;
x_1 = lean_mk_string("invalid atomic left recursive syntax");
return x_1;
}
}
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__119() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("invalid atomic left recursive syntax");
return x_1;
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__118;
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__120() {
@ -2697,16 +2696,6 @@ _start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__119;
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__121() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__120;
x_2 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
@ -6301,7 +6290,7 @@ x_1484 = lean_array_push(x_1472, x_1483);
x_1485 = l_Lean_Elab_Term_toParserDescrAux___main___closed__105;
x_1486 = l_Lean_addMacroScope(x_1465, x_1485, x_1461);
x_1487 = l_Lean_Elab_Term_toParserDescrAux___main___closed__104;
x_1488 = l_Lean_Elab_Term_toParserDescrAux___main___closed__108;
x_1488 = l_Lean_Elab_Term_toParserDescrAux___main___closed__107;
x_1489 = lean_alloc_ctor(3, 4, 0);
lean_ctor_set(x_1489, 0, x_1466);
lean_ctor_set(x_1489, 1, x_1487);
@ -6369,7 +6358,7 @@ x_1521 = lean_array_push(x_1509, x_1520);
x_1522 = l_Lean_Elab_Term_toParserDescrAux___main___closed__105;
x_1523 = l_Lean_addMacroScope(x_1501, x_1522, x_1461);
x_1524 = l_Lean_Elab_Term_toParserDescrAux___main___closed__104;
x_1525 = l_Lean_Elab_Term_toParserDescrAux___main___closed__108;
x_1525 = l_Lean_Elab_Term_toParserDescrAux___main___closed__107;
x_1526 = lean_alloc_ctor(3, 4, 0);
lean_ctor_set(x_1526, 0, x_1503);
lean_ctor_set(x_1526, 1, x_1524);
@ -6639,7 +6628,7 @@ else
{
lean_object* x_1651; lean_object* x_1652; uint8_t x_1653;
lean_dec(x_1546);
x_1651 = l_Lean_Elab_Term_toParserDescrAux___main___closed__121;
x_1651 = l_Lean_Elab_Term_toParserDescrAux___main___closed__120;
x_1652 = l_Lean_Elab_Term_throwError___rarg(x_1, x_1651, x_4, x_5);
lean_dec(x_1);
x_1653 = !lean_is_exclusive(x_1652);
@ -6687,7 +6676,7 @@ x_1631 = l_Lean_Syntax_getArg(x_1, x_1630);
lean_dec(x_1);
x_1632 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_1632, 0, x_1546);
x_1633 = l_Lean_Elab_Term_toParserDescrAux___main___closed__118;
x_1633 = l_Lean_Elab_Term_toParserDescrAux___main___closed__117;
x_1634 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_1634, 0, x_1633);
lean_ctor_set(x_1634, 1, x_1632);
@ -6773,10 +6762,10 @@ if (x_1563 == 0)
lean_object* x_1564; lean_object* x_1565; lean_object* x_1566; lean_object* x_1567; lean_object* x_1568; lean_object* x_1569; lean_object* x_1570; lean_object* x_1571; lean_object* x_1572; lean_object* x_1573; lean_object* x_1574; lean_object* x_1575; lean_object* x_1576; lean_object* x_1577; lean_object* x_1578; lean_object* x_1579; lean_object* x_1580; lean_object* x_1581; lean_object* x_1582; lean_object* x_1583; lean_object* x_1584; lean_object* x_1585; lean_object* x_1586; lean_object* x_1587; lean_object* x_1588; lean_object* x_1589; lean_object* x_1590; lean_object* x_1591; lean_object* x_1592; lean_object* x_1593;
x_1564 = lean_ctor_get(x_1562, 0);
x_1565 = lean_box(0);
x_1566 = l_Lean_Elab_Term_toParserDescrAux___main___closed__112;
x_1566 = l_Lean_Elab_Term_toParserDescrAux___main___closed__111;
x_1567 = l_Lean_addMacroScope(x_1564, x_1566, x_1560);
x_1568 = l_Lean_Elab_Term_toParserDescrAux___main___closed__111;
x_1569 = l_Lean_Elab_Term_toParserDescrAux___main___closed__115;
x_1568 = l_Lean_Elab_Term_toParserDescrAux___main___closed__110;
x_1569 = l_Lean_Elab_Term_toParserDescrAux___main___closed__114;
x_1570 = lean_alloc_ctor(3, 4, 0);
lean_ctor_set(x_1570, 0, x_1565);
lean_ctor_set(x_1570, 1, x_1568);
@ -6831,10 +6820,10 @@ lean_inc(x_1595);
lean_inc(x_1594);
lean_dec(x_1562);
x_1596 = lean_box(0);
x_1597 = l_Lean_Elab_Term_toParserDescrAux___main___closed__112;
x_1597 = l_Lean_Elab_Term_toParserDescrAux___main___closed__111;
x_1598 = l_Lean_addMacroScope(x_1594, x_1597, x_1560);
x_1599 = l_Lean_Elab_Term_toParserDescrAux___main___closed__111;
x_1600 = l_Lean_Elab_Term_toParserDescrAux___main___closed__115;
x_1599 = l_Lean_Elab_Term_toParserDescrAux___main___closed__110;
x_1600 = l_Lean_Elab_Term_toParserDescrAux___main___closed__114;
x_1601 = lean_alloc_ctor(3, 4, 0);
lean_ctor_set(x_1601, 0, x_1596);
lean_ctor_set(x_1601, 1, x_1599);
@ -7291,7 +7280,7 @@ lean_object* x_1748; lean_object* x_1749; uint8_t x_1750;
lean_dec(x_1708);
lean_dec(x_1663);
lean_dec(x_2);
x_1748 = l_Lean_Elab_Term_toParserDescrAux___main___closed__121;
x_1748 = l_Lean_Elab_Term_toParserDescrAux___main___closed__120;
x_1749 = l_Lean_Elab_Term_throwError___rarg(x_1, x_1748, x_4, x_1707);
lean_dec(x_1);
x_1750 = !lean_is_exclusive(x_1749);
@ -8143,7 +8132,7 @@ x_383 = l_Lean_Syntax_getArg(x_1, x_7);
lean_dec(x_1);
x_384 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_384, 0, x_9);
x_385 = l_Lean_Elab_Term_toParserDescrAux___main___closed__118;
x_385 = l_Lean_Elab_Term_toParserDescrAux___main___closed__117;
x_386 = lean_alloc_ctor(9, 2, 0);
lean_ctor_set(x_386, 0, x_385);
lean_ctor_set(x_386, 1, x_384);
@ -14913,8 +14902,6 @@ l_Lean_Elab_Term_toParserDescrAux___main___closed__119 = _init_l_Lean_Elab_Term_
lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__119);
l_Lean_Elab_Term_toParserDescrAux___main___closed__120 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__120();
lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__120);
l_Lean_Elab_Term_toParserDescrAux___main___closed__121 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__121();
lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__121);
l___regBuiltin_Lean_Elab_Command_elabDeclareSyntaxCat___closed__1 = _init_l___regBuiltin_Lean_Elab_Command_elabDeclareSyntaxCat___closed__1();
lean_mark_persistent(l___regBuiltin_Lean_Elab_Command_elabDeclareSyntaxCat___closed__1);
res = l___regBuiltin_Lean_Elab_Command_elabDeclareSyntaxCat(lean_io_mk_world());

39
stage0/stdlib/Init/Lean/Elab/Term.c
View file

@ -100,10 +100,10 @@ extern lean_object* l_Lean_maxRecDepthErrorMessage;
lean_object* l_Lean_Elab_Term_getLocalInsts___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_resettingSynthInstanceCacheWhen___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_getPos___at_Lean_Elab_Term_throwError___spec__2___boxed(lean_object*, lean_object*, lean_object*);
uint8_t l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_synthesizeInstMVarCore___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_elabArrayLit___closed__2;
extern lean_object* l_Lean_Parser_Term_type___elambda__1___closed__2;
uint8_t l_List_elem___main___at_Lean_addAliasEntry___spec__18(lean_object*, lean_object*);
extern lean_object* l_Prod_HasRepr___rarg___closed__1;
lean_object* l___private_Init_Lean_Elab_Term_5__expandCDot___main___closed__3;
lean_object* l_Lean_Elab_Term_elabQuotedName___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -325,7 +325,6 @@ lean_object* l_Lean_Elab_Term_mkConst___boxed(lean_object*, lean_object*, lean_o
lean_object* l_Lean_Elab_Term_getCurrNamespace(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(lean_object*);
lean_object* l_Lean_Elab_Term_monadLog___closed__8;
extern lean_object* l_Lean_Expr_isSyntheticSorry___closed__1;
lean_object* l_Lean_Elab_Term_tryLiftAndCoe___closed__4;
lean_object* l_Lean_Elab_Term_isExprMVarAssigned___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_elabProp___rarg(lean_object*);
@ -585,7 +584,6 @@ lean_object* l___regBuiltin_Lean_Elab_Term_elabHole___closed__1;
lean_object* l_Lean_Syntax_isTermId_x3f(lean_object*, uint8_t);
lean_object* l_Lean_Elab_Term_ensureType___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Syntax_getArgs(lean_object*);
extern lean_object* l_Bool_HasRepr___closed__2;
lean_object* l___private_Init_Lean_Elab_Term_13__tryCoeSort___closed__6;
uint8_t l_Lean_BinderInfo_isExplicit(uint8_t);
lean_object* l_Lean_Elab_Term_registerSyntheticMVar(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -622,7 +620,6 @@ extern lean_object* l___private_Init_Util_1__mkPanicMessage___closed__2;
lean_object* l_Lean_Elab_Term_resettingSynthInstanceCacheWhen___rarg(uint8_t, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_logAt___at_Lean_Elab_Term_logTrace___spec__2(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_resolveGlobalName___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__3;
lean_object* l___private_Init_Lean_Elab_Term_14__mkPairsAux___main___closed__8;
lean_object* l___private_Init_Lean_Elab_Term_3__fromMetaState___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Elab_Term_elabProp___closed__1;
@ -725,6 +722,7 @@ lean_object* l_Lean_Elab_Term_monadLog___lambda__3(lean_object*, lean_object*, l
lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Term_3__fromMetaState___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_monadQuotation___closed__3;
lean_object* l_Lean_Elab_Term_setEnv(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_reduceNative_x3f___closed__8;
lean_object* l_Lean_Meta_mkFreshLevelMVar___rarg(lean_object*);
lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*);
extern lean_object* l_Lean_MetavarContext_Inhabited___closed__1;
@ -775,7 +773,6 @@ lean_object* l_Lean_Elab_Term_elabRawCharLit___closed__4;
lean_object* l___private_Init_Lean_Elab_Term_14__mkPairsAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_levelOne;
lean_object* l_ReaderT_lift___at_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___spec__1___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__2;
lean_object* l_Lean_Message_toString(lean_object*);
lean_object* l_Lean_mkAppB(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Term_char___elambda__1___closed__2;
@ -10172,7 +10169,7 @@ _start:
{
lean_object* x_3; uint8_t x_4;
x_3 = lean_ctor_get(x_1, 6);
x_4 = l_List_elem___main___at_Lean_addAliasEntry___spec__18(x_2, x_3);
x_4 = l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(x_2, x_3);
return x_4;
}
}
@ -16045,27 +16042,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_Expr_isSyntheticSorry___closed__1;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* _init_l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__1;
x_2 = l_Bool_HasRepr___closed__2;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* _init_l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__2;
x_2 = l_Lean_Meta_reduceNative_x3f___closed__8;
x_3 = l_Lean_mkConst(x_2, x_1);
return x_3;
}
@ -16120,7 +16097,7 @@ lean_ctor_set(x_13, 0, x_10);
lean_ctor_set(x_13, 1, x_12);
x_14 = l_Lean_Expr_hasSorry___main___closed__1;
x_15 = l_Lean_mkConst(x_14, x_13);
x_16 = l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__3;
x_16 = l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__1;
x_17 = l_Lean_mkAppB(x_15, x_6, x_16);
x_18 = lean_ctor_get(x_2, 4);
lean_inc(x_18);
@ -16189,7 +16166,7 @@ lean_ctor_set(x_34, 0, x_31);
lean_ctor_set(x_34, 1, x_33);
x_35 = l_Lean_Expr_hasSorry___main___closed__1;
x_36 = l_Lean_mkConst(x_35, x_34);
x_37 = l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__3;
x_37 = l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__1;
x_38 = l_Lean_mkAppB(x_36, x_6, x_37);
x_39 = lean_ctor_get(x_2, 4);
lean_inc(x_39);
@ -27880,10 +27857,6 @@ l_Lean_Elab_Term_tryLiftAndCoe___closed__7 = _init_l_Lean_Elab_Term_tryLiftAndCo
lean_mark_persistent(l_Lean_Elab_Term_tryLiftAndCoe___closed__7);
l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__1 = _init_l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__1();
lean_mark_persistent(l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__1);
l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__2 = _init_l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__2();
lean_mark_persistent(l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__2);
l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__3 = _init_l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__3();
lean_mark_persistent(l___private_Init_Lean_Elab_Term_8__exceptionToSorry___closed__3);
l___private_Init_Lean_Elab_Term_9__postponeElabTerm___closed__1 = _init_l___private_Init_Lean_Elab_Term_9__postponeElabTerm___closed__1();
lean_mark_persistent(l___private_Init_Lean_Elab_Term_9__postponeElabTerm___closed__1);
l___private_Init_Lean_Elab_Term_9__postponeElabTerm___closed__2 = _init_l___private_Init_Lean_Elab_Term_9__postponeElabTerm___closed__2();

92
stage0/stdlib/Init/Lean/Environment.c
View file

@ -123,7 +123,6 @@ extern lean_object* l_Id_monad;
lean_object* l_Lean_Environment_compileDecl___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_foldlMAux___main___rarg___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_SMap_size___at_Lean_Environment_displayStats___spec__3(lean_object*);
lean_object* l_Lean_regNamespacesExtension___lambda__2(lean_object*);
lean_object* l_PersistentHashMap_insertAtCollisionNodeAux___main___at_Lean_Environment_addAux___spec__4(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_AssocList_contains___main___at_Lean_Environment_addAux___spec__7___boxed(lean_object*, lean_object*);
uint8_t l_HashMapImp_contains___at_Lean_Environment_contains___spec__2(lean_object*, lean_object*);
@ -304,6 +303,7 @@ uint8_t l_Lean_Format_isNil(lean_object*);
lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__3;
lean_object* l_Lean_ModuleData_inhabited;
lean_object* l___private_Init_Lean_Environment_12__isNamespaceName___main___boxed(lean_object*);
extern lean_object* l_Lean_NameSet_empty;
lean_object* l_Lean_ConstantInfo_type(lean_object*);
lean_object* l_Lean_SMap_find_x3f_x27___at_Lean_Environment_find_x3f___spec__1(lean_object*, lean_object*);
lean_object* l_List_toStringAux___main___at_Lean_Environment_displayStats___spec__2___boxed(lean_object*, lean_object*);
@ -485,7 +485,6 @@ lean_object* l_Lean_mkTagDeclarationExtension___lambda__2___boxed(lean_object*);
lean_object* l_Lean_SimplePersistentEnvExtension_setState___rarg___lambda__1(lean_object*, lean_object*);
lean_object* l_Lean_mkModuleData___boxed(lean_object*, lean_object*);
lean_object* l_IO_fileExists___at_Lean_importModulesAux___main___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_Lean_regNamespacesExtension___lambda__1___boxed(lean_object*);
lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Environment_10__setImportedEntries___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Environment_14__throwUnexpectedType___rarg___closed__2;
@ -608,18 +607,18 @@ return x_2;
lean_object* _init_l_Lean_Environment_Inhabited___closed__2() {
_start:
{
uint32_t x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
uint32_t x_1; uint8_t x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = 0;
x_2 = lean_box(0);
x_3 = 0;
x_4 = lean_box(0);
x_5 = l_Array_empty___closed__1;
x_2 = 0;
x_3 = lean_box(0);
x_4 = l_Array_empty___closed__1;
x_5 = l_Lean_NameSet_empty;
x_6 = lean_alloc_ctor(0, 3, 5);
lean_ctor_set(x_6, 0, x_4);
lean_ctor_set(x_6, 1, x_5);
lean_ctor_set(x_6, 2, x_2);
lean_ctor_set(x_6, 0, x_3);
lean_ctor_set(x_6, 1, x_4);
lean_ctor_set(x_6, 2, x_5);
lean_ctor_set_uint32(x_6, sizeof(void*)*3, x_1);
lean_ctor_set_uint8(x_6, sizeof(void*)*3 + 4, x_3);
lean_ctor_set_uint8(x_6, sizeof(void*)*3 + 4, x_2);
return x_6;
}
}
@ -3322,18 +3321,18 @@ uint8_t x_8;
x_8 = !lean_is_exclusive(x_7);
if (x_8 == 0)
{
lean_object* x_9; lean_object* x_10; uint8_t x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17;
lean_object* x_9; uint8_t x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17;
x_9 = lean_ctor_get(x_7, 0);
x_10 = lean_box(0);
x_11 = 0;
x_12 = lean_box(0);
x_13 = l_Array_empty___closed__1;
x_10 = 0;
x_11 = lean_box(0);
x_12 = l_Array_empty___closed__1;
x_13 = l_Lean_NameSet_empty;
x_14 = lean_alloc_ctor(0, 3, 5);
lean_ctor_set(x_14, 0, x_12);
lean_ctor_set(x_14, 1, x_13);
lean_ctor_set(x_14, 2, x_10);
lean_ctor_set(x_14, 0, x_11);
lean_ctor_set(x_14, 1, x_12);
lean_ctor_set(x_14, 2, x_13);
lean_ctor_set_uint32(x_14, sizeof(void*)*3, x_1);
lean_ctor_set_uint8(x_14, sizeof(void*)*3 + 4, x_11);
lean_ctor_set_uint8(x_14, sizeof(void*)*3 + 4, x_10);
x_15 = l_HashMap_Inhabited___closed__1;
x_16 = l_Lean_SMap_empty___at_Lean_Environment_Inhabited___spec__2;
x_17 = lean_alloc_ctor(0, 4, 0);
@ -3346,22 +3345,22 @@ return x_7;
}
else
{
lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28;
lean_object* x_18; lean_object* x_19; uint8_t x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28;
x_18 = lean_ctor_get(x_7, 0);
x_19 = lean_ctor_get(x_7, 1);
lean_inc(x_19);
lean_inc(x_18);
lean_dec(x_7);
x_20 = lean_box(0);
x_21 = 0;
x_22 = lean_box(0);
x_23 = l_Array_empty___closed__1;
x_20 = 0;
x_21 = lean_box(0);
x_22 = l_Array_empty___closed__1;
x_23 = l_Lean_NameSet_empty;
x_24 = lean_alloc_ctor(0, 3, 5);
lean_ctor_set(x_24, 0, x_22);
lean_ctor_set(x_24, 1, x_23);
lean_ctor_set(x_24, 2, x_20);
lean_ctor_set(x_24, 0, x_21);
lean_ctor_set(x_24, 1, x_22);
lean_ctor_set(x_24, 2, x_23);
lean_ctor_set_uint32(x_24, sizeof(void*)*3, x_1);
lean_ctor_set_uint8(x_24, sizeof(void*)*3 + 4, x_21);
lean_ctor_set_uint8(x_24, sizeof(void*)*3 + 4, x_20);
x_25 = l_HashMap_Inhabited___closed__1;
x_26 = l_Lean_SMap_empty___at_Lean_Environment_Inhabited___spec__2;
x_27 = lean_alloc_ctor(0, 4, 0);
@ -6387,7 +6386,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = lean_box(0);
x_2 = l_Lean_NameSet_empty;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_1);
lean_ctor_set(x_3, 1, x_2);
@ -7155,7 +7154,7 @@ lean_object* l_Lean_mkTagDeclarationExtension___lambda__2(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_box(0);
x_2 = l_Lean_NameSet_empty;
return x_2;
}
}
@ -10435,7 +10434,7 @@ lean_object* _init_l_Lean_importModules___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_1 = l_Lean_NameSet_empty;
x_2 = l_Array_empty___closed__1;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_1);
@ -10980,16 +10979,6 @@ lean_object* l_Lean_regNamespacesExtension___lambda__1(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_2 = lean_box(0);
x_3 = lean_unsigned_to_nat(0u);
x_4 = l_Array_iterateMAux___main___at_Lean_regNamespacesExtension___spec__3(x_1, x_1, x_3, x_2);
return x_4;
}
}
lean_object* l_Lean_regNamespacesExtension___lambda__2(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_2 = l_List_redLength___main___rarg(x_1);
x_3 = lean_mk_empty_array_with_capacity(x_2);
lean_dec(x_2);
@ -11018,16 +11007,18 @@ return x_3;
lean_object* _init_l_Lean_regNamespacesExtension___closed__3() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_regNamespacesExtension___lambda__1___boxed), 1, 0);
return x_1;
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_NameSet_empty;
x_2 = lean_alloc_closure((void*)(l_Lean_mkStateFromImportedEntries___at_Lean_regNamespacesExtension___spec__1___boxed), 2, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l_Lean_regNamespacesExtension___closed__4() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_regNamespacesExtension___lambda__2), 1, 0);
x_1 = lean_alloc_closure((void*)(l_Lean_regNamespacesExtension___lambda__1), 1, 0);
return x_1;
}
}
@ -11085,15 +11076,6 @@ lean_dec(x_2);
return x_3;
}
}
lean_object* l_Lean_regNamespacesExtension___lambda__1___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_regNamespacesExtension___lambda__1(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_Lean_namespacesExt___elambda__1(lean_object* x_1) {
_start:
{

6645
stage0/stdlib/Init/Lean/Meta/ExprDefEq.c
View file

File diff suppressed because it is too large Load diff

22
stage0/stdlib/Init/Lean/Meta/RecursorInfo.c
View file

@ -38,7 +38,6 @@ extern lean_object* l_Option_HasRepr___rarg___closed__1;
lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Meta_RecursorInfo_5__getMajorPosDepElim___spec__2___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Meta_RecursorInfo_10__getProduceMotiveAndRecursive___spec__4___lambda__1(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_toString___at_Lean_Meta_RecursorInfo_HasToString___spec__5(lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
uint8_t lean_name_eq(lean_object*, lean_object*);
lean_object* l_Lean_Meta_RecursorInfo_isMinor___boxed(lean_object*, lean_object*);
@ -49,7 +48,6 @@ lean_object* l_List_map___main___at___private_Init_Lean_Meta_RecursorInfo_1__mkR
lean_object* l_RBNode_find___main___at_Lean_Meta_getMajorPos_x3f___spec__2(lean_object*, lean_object*);
extern lean_object* l_Array_empty___closed__1;
lean_object* l___private_Init_Lean_Meta_RecursorInfo_1__mkRecursorInfoForKernelRec___closed__2;
extern lean_object* l_Lean_registerTagAttribute___closed__1;
lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Meta_RecursorInfo_7__getIndicesPos___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* lean_io_ref_get(lean_object*, lean_object*);
lean_object* l_Array_findIdxMAux___main___at___private_Init_Lean_Meta_RecursorInfo_7__getIndicesPos___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -92,12 +90,12 @@ uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_RecursorInfo_3
lean_object* l___private_Init_Lean_Meta_RecursorInfo_3__checkMotive___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
extern lean_object* l_Lean_registerTagAttribute___closed__2;
lean_object* l_Lean_Meta_RecursorInfo_HasToString___closed__2;
lean_object* l___private_Init_Lean_Meta_RecursorInfo_4__getNumParams___main___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_withAppAux___main___at___private_Init_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_withAppAux___main___at___private_Init_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___spec__1___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_ParametricAttribute_Inhabited___closed__3;
lean_object* l_Lean_Meta_RecursorInfo_HasToString___closed__6;
lean_object* l_Lean_Meta_RecursorInfo_HasToString___closed__8;
lean_object* l___private_Init_Lean_Meta_RecursorInfo_2__getMajorPosIfAuxRecursor_x3f___closed__1;
@ -143,6 +141,7 @@ lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Meta_RecursorInfo_10
lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Meta_RecursorInfo_6__getParamsPos___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_fvarId_x21(lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_lengthAux___main___rarg(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Meta_RecursorInfo_9__getUnivLevelPos___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ConstantInfo_name(lean_object*);
@ -184,7 +183,6 @@ lean_object* l_Lean_Meta_RecursorInfo_HasToString___closed__9;
lean_object* l_Lean_registerBuiltinAttribute(lean_object*, lean_object*);
uint8_t l_Array_isEmpty___rarg(lean_object*);
lean_object* l_List_map___main___at___private_Init_Lean_Meta_RecursorInfo_1__mkRecursorInfoForKernelRec___spec__3(lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_toString___at_Lean_Meta_RecursorInfo_HasToString___spec__3(lean_object*);
lean_object* l_List_redLength___main___rarg(lean_object*);
lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_Meta_mkRecursorAttr___spec__5(lean_object*, lean_object*);
@ -196,6 +194,7 @@ lean_object* l___private_Init_Lean_Meta_RecursorInfo_8__getMotiveLevel(lean_obje
lean_object* l___private_Init_Lean_Meta_RecursorInfo_12__mkRecursorInfoAux___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Meta_RecursorInfo_7__getIndicesPos___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Meta_RecursorInfo_7__getIndicesPos(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__4;
lean_object* l_Lean_Meta_getMajorPos_x3f___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Meta_RecursorInfo_numIndices(lean_object*);
lean_object* l_Lean_ConstantInfo_type(lean_object*);
@ -235,6 +234,7 @@ extern lean_object* l_Bool_HasRepr___closed__2;
lean_object* l_Lean_registerParametricAttribute___at_Lean_Meta_mkRecursorAttr___spec__1___lambda__1___boxed(lean_object*);
lean_object* l___private_Init_Lean_Meta_RecursorInfo_11__checkMotiveResultType(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_RecursorInfo_firstIndexPos___boxed(lean_object*);
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__3;
lean_object* l___private_Init_Lean_Meta_RecursorInfo_13__syntaxToMajorPos___closed__4;
lean_object* l___private_Init_Lean_Meta_RecursorInfo_8__getMotiveLevel___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_RecursorInfo_HasToString___closed__12;
@ -254,6 +254,7 @@ lean_object* l_Lean_Meta_inferType(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_getIdx_x3f___at___private_Init_Lean_Meta_RecursorInfo_5__getMajorPosDepElim___spec__1___boxed(lean_object*, lean_object*);
lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_isExprDefEq(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
lean_object* l_Lean_Meta_getConstInfo(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_qsortAux___main___at_Lean_Meta_mkRecursorAttr___spec__3___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_toList___rarg(lean_object*);
@ -273,7 +274,6 @@ lean_object* l_Nat_foldMAux___main___at___private_Init_Lean_Meta_RecursorInfo_7_
lean_object* l___private_Init_Lean_Meta_RecursorInfo_6__getParamsPos(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_RecursorInfo_HasToString___closed__10;
lean_object* l___private_Init_Lean_Meta_RecursorInfo_4__getNumParams___boxed(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_ParametricAttribute_Inhabited___closed__1;
lean_object* l_Lean_ParametricAttribute_getParam___at_Lean_Meta_getMajorPos_x3f___spec__1___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Meta_RecursorInfo_11__checkMotiveResultType___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Meta_RecursorInfo_13__syntaxToMajorPos___closed__2;
@ -8490,7 +8490,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -9159,11 +9159,11 @@ lean_object* l_Lean_registerParametricAttribute___at_Lean_Meta_mkRecursorAttr___
_start:
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13;
x_7 = l_Lean_registerTagAttribute___closed__1;
x_8 = l_Lean_registerTagAttribute___closed__2;
x_9 = l_Lean_registerParametricAttribute___rarg___closed__1;
x_7 = l_Lean_registerParametricAttribute___rarg___closed__1;
x_8 = l_Lean_registerParametricAttribute___rarg___closed__2;
x_9 = l_Lean_registerParametricAttribute___rarg___closed__3;
x_10 = l_Lean_registerParametricAttribute___at_Lean_Meta_mkRecursorAttr___spec__1___closed__1;
x_11 = l_Lean_registerParametricAttribute___rarg___closed__2;
x_11 = l_Lean_registerParametricAttribute___rarg___closed__4;
lean_inc(x_1);
x_12 = lean_alloc_ctor(0, 6, 0);
lean_ctor_set(x_12, 0, x_1);
@ -9183,7 +9183,7 @@ lean_inc(x_15);
lean_dec(x_13);
lean_inc(x_14);
lean_inc(x_1);
x_16 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__4___boxed), 9, 4);
x_16 = lean_alloc_closure((void*)(l_Lean_registerParametricAttribute___rarg___lambda__5___boxed), 9, 4);
lean_closure_set(x_16, 0, x_1);
lean_closure_set(x_16, 1, x_3);
lean_closure_set(x_16, 2, x_14);

1467
stage0/stdlib/Init/Lean/Meta/WHNF.c
View file

File diff suppressed because it is too large Load diff

55
stage0/stdlib/Init/Lean/Parser/Parser.c
View file

@ -143,6 +143,7 @@ lean_object* l_Lean_Parser_satisfyFn___at_Lean_Parser_identFnAux___main___spec__
lean_object* l_Lean_Parser_hexNumberFn(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_foldSepBy___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_strLitFnAux(lean_object*, lean_object*, lean_object*);
uint8_t l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_Parser_SyntaxNodeKindSet_insert___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_ParserState_next(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Prod_HasRepr___rarg___closed__1;
@ -253,6 +254,7 @@ lean_object* l_Array_foldlStepMAux___main___at_Array_foldSepByM___spec__1___rarg
lean_object* l_Lean_Parser_identFnAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_mkNodeToken(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_tryAnti___boxed(lean_object*, lean_object*);
lean_object* l_List_foldl___main___at_Lean_Parser_addLeadingParser___spec__7(lean_object*, lean_object*, lean_object*);
size_t l_USize_shiftRight(size_t, size_t);
lean_object* l_Lean_Parser_identFnAux___main___closed__1;
lean_object* l_Lean_Parser_symbolInfo___elambda__1(lean_object*);
@ -315,7 +317,6 @@ lean_object* l_Lean_Parser_satisfyFn(lean_object*, lean_object*, lean_object*, l
lean_object* l_Lean_Parser_rawIdent___closed__3;
lean_object* l_Lean_Parser_symbolNoWsInfo___elambda__1(lean_object*);
lean_object* l_Array_foldlStepMAux___main___at_Lean_Syntax_forSepArgsM___spec__1___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_foldl___main___at_Lean_Parser_addLeadingParser___spec__8(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_foldlStepMAux___main___at_Lean_Syntax_foldSepRevArgsM___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_identEqFn(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_24__ParserExtension_addImported___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -600,7 +601,6 @@ lean_object* l_Lean_Parser_ParserState_mkEOIError___closed__1;
uint8_t l_Lean_Parser_isIdCont(lean_object*, lean_object*);
lean_object* l_Lean_Parser_mergeOrElseErrors___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_compileParserDescr(lean_object*, lean_object*);
uint8_t l_List_elem___main___at_Lean_Parser_addLeadingParser___spec__7(lean_object*, lean_object*);
lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_quotedSymbolFn___spec__2___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_declareTrailingBuiltinParser(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_hashAndthen;
@ -671,7 +671,6 @@ uint8_t l_PersistentHashMap_containsAtAux___main___at_Lean_Environment_contains_
lean_object* l_PersistentHashMap_empty___at_Lean_Parser_mkBuiltinParserCategories___spec__1;
lean_object* l_Lean_Parser_ParserState_restore___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Parser_Parser_25__catNameToString(lean_object*);
lean_object* l_List_elem___main___at_Lean_Parser_addLeadingParser___spec__7___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Parser_mkAntiquot___closed__21;
lean_object* l_Lean_Parser_ParserState_restore(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_symbolAux(lean_object*, lean_object*);
@ -29362,35 +29361,6 @@ return x_16;
}
}
}
uint8_t l_List_elem___main___at_Lean_Parser_addLeadingParser___spec__7(lean_object* x_1, lean_object* x_2) {
_start:
{
if (lean_obj_tag(x_2) == 0)
{
uint8_t x_3;
x_3 = 0;
return x_3;
}
else
{
lean_object* x_4; lean_object* x_5; uint8_t x_6;
x_4 = lean_ctor_get(x_2, 0);
x_5 = lean_ctor_get(x_2, 1);
x_6 = lean_name_eq(x_1, x_4);
if (x_6 == 0)
{
x_2 = x_5;
goto _start;
}
else
{
uint8_t x_8;
x_8 = 1;
return x_8;
}
}
}
}
lean_object* l_List_eraseDupsAux___main___at_Lean_Parser_addLeadingParser___spec__6(lean_object* x_1, lean_object* x_2) {
_start:
{
@ -29409,7 +29379,7 @@ if (x_4 == 0)
lean_object* x_5; lean_object* x_6; uint8_t x_7;
x_5 = lean_ctor_get(x_1, 0);
x_6 = lean_ctor_get(x_1, 1);
x_7 = l_List_elem___main___at_Lean_Parser_addLeadingParser___spec__7(x_5, x_2);
x_7 = l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(x_5, x_2);
if (x_7 == 0)
{
lean_ctor_set(x_1, 1, x_2);
@ -29437,7 +29407,7 @@ x_11 = lean_ctor_get(x_1, 1);
lean_inc(x_11);
lean_inc(x_10);
lean_dec(x_1);
x_12 = l_List_elem___main___at_Lean_Parser_addLeadingParser___spec__7(x_10, x_2);
x_12 = l_List_elem___main___at_Lean_NameHashSet_insert___spec__2(x_10, x_2);
if (x_12 == 0)
{
lean_object* x_13;
@ -29467,7 +29437,7 @@ x_3 = l_List_eraseDupsAux___main___at_Lean_Parser_addLeadingParser___spec__6(x_1
return x_3;
}
}
lean_object* l_List_foldl___main___at_Lean_Parser_addLeadingParser___spec__8(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
lean_object* l_List_foldl___main___at_Lean_Parser_addLeadingParser___spec__7(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
if (lean_obj_tag(x_3) == 0)
@ -29679,7 +29649,7 @@ if (x_39 == 0)
lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44;
x_40 = lean_ctor_get(x_7, 0);
x_41 = l_List_eraseDups___at_Lean_Parser_addLeadingParser___spec__5(x_38);
x_42 = l_List_foldl___main___at_Lean_Parser_addLeadingParser___spec__8(x_4, x_40, x_41);
x_42 = l_List_foldl___main___at_Lean_Parser_addLeadingParser___spec__7(x_4, x_40, x_41);
lean_ctor_set(x_7, 0, x_42);
x_43 = l_PersistentHashMap_insert___at___private_Init_Lean_Parser_Parser_16__addParserCategoryCore___spec__3(x_1, x_2, x_7);
x_44 = lean_alloc_ctor(1, 1, 0);
@ -29694,7 +29664,7 @@ x_46 = lean_ctor_get_uint8(x_7, sizeof(void*)*1);
lean_inc(x_45);
lean_dec(x_7);
x_47 = l_List_eraseDups___at_Lean_Parser_addLeadingParser___spec__5(x_38);
x_48 = l_List_foldl___main___at_Lean_Parser_addLeadingParser___spec__8(x_4, x_45, x_47);
x_48 = l_List_foldl___main___at_Lean_Parser_addLeadingParser___spec__7(x_4, x_45, x_47);
x_49 = lean_alloc_ctor(0, 1, 1);
lean_ctor_set(x_49, 0, x_48);
lean_ctor_set_uint8(x_49, sizeof(void*)*1, x_46);
@ -29738,17 +29708,6 @@ lean_dec(x_2);
return x_3;
}
}
lean_object* l_List_elem___main___at_Lean_Parser_addLeadingParser___spec__7___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
uint8_t x_3; lean_object* x_4;
x_3 = l_List_elem___main___at_Lean_Parser_addLeadingParser___spec__7(x_1, x_2);
lean_dec(x_2);
lean_dec(x_1);
x_4 = lean_box(x_3);
return x_4;
}
}
lean_object* l_Lean_Parser_addLeadingParser___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{

463
stage0/stdlib/Init/Lean/Parser/Term.c
View file

@ -206,6 +206,7 @@ lean_object* l_Lean_Parser_Term_arrayLit___elambda__1___closed__6;
lean_object* l_Lean_Parser_Term_show___elambda__1___closed__1;
lean_object* l_Lean_Parser_Term_match__syntax___closed__7;
lean_object* l___private_Init_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Tactic_seq___elambda__1___spec__2___closed__4;
lean_object* l_Lean_Parser_Term_nativeRefl___elambda__1___closed__5;
lean_object* l_Lean_Parser_Term_matchAlt___closed__8;
lean_object* l_Lean_Parser_Term_prod___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_darrow___elambda__1___closed__4;
@ -238,6 +239,7 @@ lean_object* l_Lean_Parser_Term_binderTactic___elambda__1___closed__3;
lean_object* l_Lean_Parser_regTacticParserAttribute___closed__2;
lean_object* l_Lean_Parser_Term_typeAscription___elambda__1___closed__1;
lean_object* l_Lean_Parser_Term_tacticBlock___closed__3;
lean_object* l_Lean_Parser_Term_nativeRefl___closed__4;
lean_object* l_Lean_Parser_Term_match___elambda__1___closed__1;
lean_object* l_Lean_Parser_Term_type___elambda__1___closed__2;
lean_object* l_Lean_Parser_Term_letPatDecl___closed__2;
@ -429,6 +431,7 @@ lean_object* l_Lean_Parser_Term_mod___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_forall___elambda__1___closed__6;
lean_object* l_Array_back___at_Lean_Parser_checkStackTopFn___spec__1(lean_object*);
lean_object* l_Lean_Parser_Term_instBinder___closed__3;
lean_object* l_Lean_Parser_Term_nativeRefl___elambda__1___closed__6;
lean_object* l_Lean_Parser_Term_and;
lean_object* l_Lean_Parser_Term_gt___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_bracketedDoSeq___elambda__1(lean_object*, lean_object*);
@ -473,6 +476,7 @@ lean_object* l_Lean_Parser_Term_structInstSource___elambda__1___closed__5;
lean_object* l_Lean_Parser_Term_heq___closed__3;
extern lean_object* l_Lean_mkAppStx___closed__4;
lean_object* l_Lean_Parser_ParserState_mkErrorsAt(lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltinParser_Lean_Parser_Term_nativeRefl(lean_object*);
lean_object* l_Lean_Parser_Term_andM___elambda__1___closed__2;
lean_object* l_Lean_Parser_Term_mul___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_tupleTail___elambda__1___closed__2;
@ -604,6 +608,7 @@ lean_object* l_Lean_Parser_Term_if___closed__3;
lean_object* l_Lean_Parser_Term_tacticStxQuot___closed__6;
lean_object* l_Lean_Parser_Term_byTactic___elambda__1___closed__1;
lean_object* l_Lean_Parser_Term_suffices___closed__4;
lean_object* l_Lean_Parser_Term_nativeRefl___closed__1;
lean_object* l_Lean_Parser_Term_fromTerm___elambda__1___closed__9;
lean_object* l_Lean_Parser_Term_funBinder___closed__3;
lean_object* l_Lean_Parser_Term_let___closed__2;
@ -716,6 +721,7 @@ lean_object* l_Lean_Parser_Term_parenSpecial;
lean_object* l_Lean_Parser_Term_funBinder___elambda__1___closed__1;
lean_object* l_Lean_Parser_Term_mapConst___elambda__1___closed__4;
lean_object* l_Lean_Parser_Term_proj___closed__4;
lean_object* l_Lean_Parser_Term_nativeRefl___closed__2;
lean_object* l_Lean_Parser_Term_pow___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_char___closed__1;
lean_object* l_Lean_Parser_Term_fun;
@ -828,6 +834,7 @@ lean_object* l_Lean_Parser_Term_cdot;
lean_object* l_Lean_Parser_Term_structInstSource___closed__4;
lean_object* l_Lean_Parser_Term_typeAscription___elambda__1___closed__3;
lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Tactic_nonEmptySeq___elambda__1___spec__1(uint8_t, uint8_t, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_nativeRefl___closed__6;
lean_object* l_Lean_Parser_Term_quotedName___elambda__1___closed__4;
lean_object* l_Lean_Parser_Term_orM___closed__1;
lean_object* l_Lean_Parser_Term_sub___elambda__1___closed__1;
@ -939,6 +946,7 @@ lean_object* l_Lean_Parser_Term_seqLeft;
lean_object* l_Lean_Parser_Term_have___closed__6;
lean_object* l_Lean_Parser_Term_mod___closed__3;
lean_object* l_Lean_Parser_Term_id___elambda__1___closed__1;
lean_object* l_Lean_Parser_Term_nativeRefl___elambda__1___closed__7;
lean_object* l_Lean_Parser_Term_tparser_x21___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Term_where___elambda__1___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__4(lean_object*, lean_object*, uint8_t, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*);
@ -962,6 +970,7 @@ lean_object* l_Lean_Parser_Term_dollarProj___elambda__1___closed__5;
lean_object* l_Lean_Parser_Term_nomatch___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_explicitBinder___elambda__1___closed__2;
lean_object* l___regBuiltinParser_Lean_Parser_Term_type(lean_object*);
lean_object* l_Lean_Parser_Term_nativeRefl___closed__5;
lean_object* l_Lean_Parser_Term_binderIdent___closed__1;
lean_object* l___regBuiltinParser_Lean_Parser_Term_tacticBlock(lean_object*);
lean_object* l_Lean_Parser_Term_structInstSource___elambda__1___closed__4;
@ -1443,6 +1452,7 @@ lean_object* l_Lean_Parser_Term_type___elambda__1(lean_object*, lean_object*);
lean_object* l___regBuiltinParser_Lean_Parser_Term_not(lean_object*);
lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_Term_structInstLVal___elambda__1___spec__1___closed__3;
lean_object* l_Lean_Parser_Term_prop___closed__1;
lean_object* l_Lean_Parser_Term_nativeRefl___closed__3;
lean_object* l_Lean_Parser_Term_subst___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_binderType___boxed(lean_object*);
lean_object* l_Lean_Parser_Term_binderType___closed__1;
@ -1496,6 +1506,7 @@ lean_object* l_Lean_Parser_Term_inaccessible___closed__3;
lean_object* l_Lean_Parser_Term_match__syntax___elambda__1___closed__4;
lean_object* l_Lean_Parser_Term_str___elambda__1___closed__4;
lean_object* l_Lean_Parser_Tactic_nonEmptySeq___closed__3;
lean_object* l_Lean_Parser_Term_nativeRefl;
lean_object* l_Lean_Parser_regTacticParserAttribute(lean_object*);
lean_object* l_Lean_Parser_Term_let___closed__3;
lean_object* l_Lean_Parser_Term_suffices___closed__7;
@ -1625,6 +1636,7 @@ lean_object* l_Lean_Parser_Term_structInstLVal___closed__11;
lean_object* l_Lean_Parser_Term_dollar___closed__4;
lean_object* l_Lean_Parser_Term_arrayRef___closed__1;
lean_object* l_Lean_Parser_Term_fromTerm___closed__5;
lean_object* l_Lean_Parser_Term_nativeRefl___elambda__1___closed__1;
lean_object* l_Lean_Parser_dollarSymbol___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_mapConst___elambda__1___closed__1;
lean_object* l_Lean_Parser_Term_map___closed__2;
@ -1689,9 +1701,11 @@ lean_object* l_Lean_Parser_Term_forall___elambda__1___closed__3;
lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Term_matchAlts___elambda__1___spec__17(lean_object*, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__2___closed__1;
lean_object* l_Lean_Parser_Term_tacticStxQuot___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_nativeRefl___elambda__1___closed__8;
lean_object* l_Lean_Parser_Term_haveAssign___closed__5;
lean_object* l_Lean_Parser_Term_letIdDecl___closed__1;
lean_object* l_Lean_Parser_Term_arrayLit___elambda__1___closed__8;
lean_object* l_Lean_Parser_Term_nativeRefl___elambda__1___closed__4;
lean_object* l_Lean_Parser_Term_sorry___elambda__1___closed__7;
lean_object* l_Lean_Parser_Term_explicitBinder___closed__8;
lean_object* l_Lean_Parser_Term_matchAlt___closed__2;
@ -1711,6 +1725,7 @@ lean_object* l_Lean_Parser_darrow___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_pow___closed__3;
lean_object* l___private_Init_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___elambda__1___spec__10(lean_object*, lean_object*, uint8_t, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_implicitBinder___boxed(lean_object*);
lean_object* l_Lean_Parser_Term_nativeRefl___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_mapConst___elambda__1___closed__2;
lean_object* l_Lean_Parser_Term_if___closed__9;
lean_object* l_Lean_Parser_nodeFn(lean_object*, lean_object*, lean_object*, lean_object*);
@ -1849,6 +1864,7 @@ lean_object* l_Lean_Parser_Term_depArrow___elambda__1(lean_object*, lean_object*
lean_object* l_Lean_Parser_Term_gt___elambda__1___closed__4;
lean_object* l_Lean_Parser_Term_typeSpec___elambda__1___closed__2;
lean_object* l_Lean_Parser_Term_liftMethod;
lean_object* l_Lean_Parser_Term_nativeRefl___elambda__1___closed__2;
lean_object* l_Lean_Parser_Term_doPat___elambda__1___closed__4;
lean_object* l_Lean_Parser_Term_map___elambda__1___closed__4;
lean_object* l_Lean_Parser_Term_listLit___elambda__1___closed__2;
@ -1889,6 +1905,7 @@ lean_object* l_Lean_Parser_regBuiltinTacticParserAttr___closed__4;
lean_object* l_Lean_Parser_Term_mapConstRev___closed__2;
lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__7;
lean_object* l_Lean_Parser_Term_tupleTail___closed__4;
lean_object* l_Lean_Parser_Term_nativeRefl___elambda__1___closed__3;
lean_object* l_Lean_Parser_Term_orelse___elambda__1___closed__2;
lean_object* l_Lean_Parser_Term_gt___closed__3;
lean_object* l_Lean_Parser_unicodeSymbolInfo(lean_object*, lean_object*, lean_object*);
@ -2024,6 +2041,7 @@ extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr__
lean_object* l_Lean_Parser_Term_emptyC___elambda__1___closed__7;
lean_object* l_Lean_Parser_Term_dollar___elambda__1___closed__2;
lean_object* l_Lean_Parser_Term_unicodeInfixL___elambda__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_nativeRefl___elambda__1___closed__9;
lean_object* l_Lean_Parser_Term_subtype___closed__11;
lean_object* l_Lean_Parser_unicodeSymbolFnAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_forall___elambda__1___closed__7;
@ -39200,6 +39218,416 @@ x_6 = l_Lean_Parser_addBuiltinParser(x_2, x_3, x_4, x_5, x_1);
return x_6;
}
}
lean_object* _init_l_Lean_Parser_Term_nativeRefl___elambda__1___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("nativeRefl");
return x_1;
}
}
lean_object* _init_l_Lean_Parser_Term_nativeRefl___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_nativeRefl___elambda__1___closed__1;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Parser_Term_nativeRefl___elambda__1___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_Term_nativeRefl___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_nativeRefl___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_nativeRefl___elambda__1___closed__1;
x_2 = l_Lean_Parser_Term_nativeRefl___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_nativeRefl___elambda__1___closed__5() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("nativeRefl! ");
return x_1;
}
}
lean_object* _init_l_Lean_Parser_Term_nativeRefl___elambda__1___closed__6() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_Term_nativeRefl___elambda__1___closed__5;
x_2 = l_String_trim(x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Parser_Term_nativeRefl___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_nativeRefl___elambda__1___closed__6;
x_3 = lean_string_append(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Parser_Term_nativeRefl___elambda__1___closed__8() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_nativeRefl___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_nativeRefl___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_nativeRefl___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_nativeRefl___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_nativeRefl___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_object* x_18; lean_object* x_19; lean_object* x_20;
lean_dec(x_4);
x_6 = lean_ctor_get(x_2, 0);
lean_inc(x_6);
x_7 = lean_array_get_size(x_6);
lean_dec(x_6);
x_18 = lean_ctor_get(x_2, 1);
lean_inc(x_18);
lean_inc(x_1);
x_19 = l_Lean_Parser_tokenFn(x_1, x_2);
x_20 = lean_ctor_get(x_19, 3);
lean_inc(x_20);
if (lean_obj_tag(x_20) == 0)
{
lean_object* x_21; lean_object* x_22;
x_21 = lean_ctor_get(x_19, 0);
lean_inc(x_21);
x_22 = l_Array_back___at_Lean_Parser_checkStackTopFn___spec__1(x_21);
lean_dec(x_21);
if (lean_obj_tag(x_22) == 2)
{
lean_object* x_23; lean_object* x_24; uint8_t x_25;
x_23 = lean_ctor_get(x_22, 1);
lean_inc(x_23);
lean_dec(x_22);
x_24 = l_Lean_Parser_Term_nativeRefl___elambda__1___closed__6;
x_25 = lean_string_dec_eq(x_23, x_24);
lean_dec(x_23);
if (x_25 == 0)
{
lean_object* x_26; lean_object* x_27;
x_26 = l_Lean_Parser_Term_nativeRefl___elambda__1___closed__9;
x_27 = l_Lean_Parser_ParserState_mkErrorsAt(x_19, x_26, x_18);
x_8 = x_27;
goto block_17;
}
else
{
lean_dec(x_18);
x_8 = x_19;
goto block_17;
}
}
else
{
lean_object* x_28; lean_object* x_29;
lean_dec(x_22);
x_28 = l_Lean_Parser_Term_nativeRefl___elambda__1___closed__9;
x_29 = l_Lean_Parser_ParserState_mkErrorsAt(x_19, x_28, x_18);
x_8 = x_29;
goto block_17;
}
}
else
{
lean_object* x_30; lean_object* x_31;
lean_dec(x_20);
x_30 = l_Lean_Parser_Term_nativeRefl___elambda__1___closed__9;
x_31 = l_Lean_Parser_ParserState_mkErrorsAt(x_19, x_30, x_18);
x_8 = x_31;
goto block_17;
}
block_17:
{
lean_object* x_9;
x_9 = lean_ctor_get(x_8, 3);
lean_inc(x_9);
if (lean_obj_tag(x_9) == 0)
{
lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14;
x_10 = l_Lean_Parser_termParser___closed__2;
x_11 = l_Lean_Parser_appPrec;
x_12 = l_Lean_Parser_categoryParser___elambda__1(x_10, x_11, x_1, x_8);
x_13 = l_Lean_Parser_Term_nativeRefl___elambda__1___closed__2;
x_14 = l_Lean_Parser_ParserState_mkNode(x_12, x_13, x_7);
return x_14;
}
else
{
lean_object* x_15; lean_object* x_16;
lean_dec(x_9);
lean_dec(x_1);
x_15 = l_Lean_Parser_Term_nativeRefl___elambda__1___closed__2;
x_16 = l_Lean_Parser_ParserState_mkNode(x_8, x_15, x_7);
return x_16;
}
}
}
else
{
lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36;
x_32 = lean_ctor_get(x_2, 0);
lean_inc(x_32);
x_33 = lean_array_get_size(x_32);
lean_dec(x_32);
x_34 = lean_ctor_get(x_2, 1);
lean_inc(x_34);
lean_inc(x_1);
x_35 = lean_apply_2(x_4, x_1, x_2);
x_36 = lean_ctor_get(x_35, 3);
lean_inc(x_36);
if (lean_obj_tag(x_36) == 0)
{
lean_dec(x_34);
lean_dec(x_33);
lean_dec(x_1);
return x_35;
}
else
{
lean_object* x_37; lean_object* x_38; uint8_t x_39;
x_37 = lean_ctor_get(x_36, 0);
lean_inc(x_37);
lean_dec(x_36);
x_38 = lean_ctor_get(x_35, 1);
lean_inc(x_38);
x_39 = lean_nat_dec_eq(x_38, x_34);
lean_dec(x_38);
if (x_39 == 0)
{
lean_dec(x_37);
lean_dec(x_34);
lean_dec(x_33);
lean_dec(x_1);
return x_35;
}
else
{
lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_55; lean_object* x_56;
lean_inc(x_34);
x_40 = l_Lean_Parser_ParserState_restore(x_35, x_33, x_34);
lean_dec(x_33);
x_41 = lean_ctor_get(x_40, 0);
lean_inc(x_41);
x_42 = lean_array_get_size(x_41);
lean_dec(x_41);
lean_inc(x_1);
x_55 = l_Lean_Parser_tokenFn(x_1, x_40);
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;
x_57 = lean_ctor_get(x_55, 0);
lean_inc(x_57);
x_58 = l_Array_back___at_Lean_Parser_checkStackTopFn___spec__1(x_57);
lean_dec(x_57);
if (lean_obj_tag(x_58) == 2)
{
lean_object* x_59; lean_object* x_60; uint8_t x_61;
x_59 = lean_ctor_get(x_58, 1);
lean_inc(x_59);
lean_dec(x_58);
x_60 = l_Lean_Parser_Term_nativeRefl___elambda__1___closed__6;
x_61 = lean_string_dec_eq(x_59, x_60);
lean_dec(x_59);
if (x_61 == 0)
{
lean_object* x_62; lean_object* x_63;
x_62 = l_Lean_Parser_Term_nativeRefl___elambda__1___closed__9;
lean_inc(x_34);
x_63 = l_Lean_Parser_ParserState_mkErrorsAt(x_55, x_62, x_34);
x_43 = x_63;
goto block_54;
}
else
{
x_43 = x_55;
goto block_54;
}
}
else
{
lean_object* x_64; lean_object* x_65;
lean_dec(x_58);
x_64 = l_Lean_Parser_Term_nativeRefl___elambda__1___closed__9;
lean_inc(x_34);
x_65 = l_Lean_Parser_ParserState_mkErrorsAt(x_55, x_64, x_34);
x_43 = x_65;
goto block_54;
}
}
else
{
lean_object* x_66; lean_object* x_67;
lean_dec(x_56);
x_66 = l_Lean_Parser_Term_nativeRefl___elambda__1___closed__9;
lean_inc(x_34);
x_67 = l_Lean_Parser_ParserState_mkErrorsAt(x_55, x_66, x_34);
x_43 = x_67;
goto block_54;
}
block_54:
{
lean_object* x_44;
x_44 = lean_ctor_get(x_43, 3);
lean_inc(x_44);
if (lean_obj_tag(x_44) == 0)
{
lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50;
x_45 = l_Lean_Parser_termParser___closed__2;
x_46 = l_Lean_Parser_appPrec;
x_47 = l_Lean_Parser_categoryParser___elambda__1(x_45, x_46, x_1, x_43);
x_48 = l_Lean_Parser_Term_nativeRefl___elambda__1___closed__2;
x_49 = l_Lean_Parser_ParserState_mkNode(x_47, x_48, x_42);
x_50 = l_Lean_Parser_mergeOrElseErrors(x_49, x_37, x_34);
lean_dec(x_34);
return x_50;
}
else
{
lean_object* x_51; lean_object* x_52; lean_object* x_53;
lean_dec(x_44);
lean_dec(x_1);
x_51 = l_Lean_Parser_Term_nativeRefl___elambda__1___closed__2;
x_52 = l_Lean_Parser_ParserState_mkNode(x_43, x_51, x_42);
x_53 = l_Lean_Parser_mergeOrElseErrors(x_52, x_37, x_34);
lean_dec(x_34);
return x_53;
}
}
}
}
}
}
}
lean_object* _init_l_Lean_Parser_Term_nativeRefl___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_Parser_Term_nativeRefl___elambda__1___closed__6;
x_3 = l_Lean_Parser_symbolInfo(x_2, x_1);
return x_3;
}
}
lean_object* _init_l_Lean_Parser_Term_nativeRefl___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_Parser_Term_namedPattern___closed__2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l_Lean_Parser_Term_nativeRefl___closed__1;
x_4 = l_Lean_Parser_andthenInfo(x_3, x_2);
return x_4;
}
}
lean_object* _init_l_Lean_Parser_Term_nativeRefl___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_nativeRefl___elambda__1___closed__2;
x_2 = l_Lean_Parser_Term_nativeRefl___closed__2;
x_3 = l_Lean_Parser_nodeInfo(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Parser_Term_nativeRefl___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_nativeRefl___elambda__1___closed__4;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l_Lean_Parser_Term_nativeRefl___closed__3;
x_4 = l_Lean_Parser_orelseInfo(x_2, x_3);
return x_4;
}
}
lean_object* _init_l_Lean_Parser_Term_nativeRefl___closed__5() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_nativeRefl___elambda__1), 2, 0);
return x_1;
}
}
lean_object* _init_l_Lean_Parser_Term_nativeRefl___closed__6() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_nativeRefl___closed__4;
x_2 = l_Lean_Parser_Term_nativeRefl___closed__5;
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_nativeRefl() {
_start:
{
lean_object* x_1;
x_1 = l_Lean_Parser_Term_nativeRefl___closed__6;
return x_1;
}
}
lean_object* l___regBuiltinParser_Lean_Parser_Term_nativeRefl(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;
x_2 = l_Lean_Parser_termParser___closed__2;
x_3 = l_Lean_Parser_Term_nativeRefl___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Term_nativeRefl;
x_6 = l_Lean_Parser_addBuiltinParser(x_2, x_3, x_4, x_5, x_1);
return x_6;
}
}
lean_object* _init_l_Lean_Parser_Term_not___elambda__1___closed__1() {
_start:
{
@ -51945,6 +52373,41 @@ lean_mark_persistent(l_Lean_Parser_Term_do);
res = l___regBuiltinParser_Lean_Parser_Term_do(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Parser_Term_nativeRefl___elambda__1___closed__1 = _init_l_Lean_Parser_Term_nativeRefl___elambda__1___closed__1();
lean_mark_persistent(l_Lean_Parser_Term_nativeRefl___elambda__1___closed__1);
l_Lean_Parser_Term_nativeRefl___elambda__1___closed__2 = _init_l_Lean_Parser_Term_nativeRefl___elambda__1___closed__2();
lean_mark_persistent(l_Lean_Parser_Term_nativeRefl___elambda__1___closed__2);
l_Lean_Parser_Term_nativeRefl___elambda__1___closed__3 = _init_l_Lean_Parser_Term_nativeRefl___elambda__1___closed__3();
lean_mark_persistent(l_Lean_Parser_Term_nativeRefl___elambda__1___closed__3);
l_Lean_Parser_Term_nativeRefl___elambda__1___closed__4 = _init_l_Lean_Parser_Term_nativeRefl___elambda__1___closed__4();
lean_mark_persistent(l_Lean_Parser_Term_nativeRefl___elambda__1___closed__4);
l_Lean_Parser_Term_nativeRefl___elambda__1___closed__5 = _init_l_Lean_Parser_Term_nativeRefl___elambda__1___closed__5();
lean_mark_persistent(l_Lean_Parser_Term_nativeRefl___elambda__1___closed__5);
l_Lean_Parser_Term_nativeRefl___elambda__1___closed__6 = _init_l_Lean_Parser_Term_nativeRefl___elambda__1___closed__6();
lean_mark_persistent(l_Lean_Parser_Term_nativeRefl___elambda__1___closed__6);
l_Lean_Parser_Term_nativeRefl___elambda__1___closed__7 = _init_l_Lean_Parser_Term_nativeRefl___elambda__1___closed__7();
lean_mark_persistent(l_Lean_Parser_Term_nativeRefl___elambda__1___closed__7);
l_Lean_Parser_Term_nativeRefl___elambda__1___closed__8 = _init_l_Lean_Parser_Term_nativeRefl___elambda__1___closed__8();
lean_mark_persistent(l_Lean_Parser_Term_nativeRefl___elambda__1___closed__8);
l_Lean_Parser_Term_nativeRefl___elambda__1___closed__9 = _init_l_Lean_Parser_Term_nativeRefl___elambda__1___closed__9();
lean_mark_persistent(l_Lean_Parser_Term_nativeRefl___elambda__1___closed__9);
l_Lean_Parser_Term_nativeRefl___closed__1 = _init_l_Lean_Parser_Term_nativeRefl___closed__1();
lean_mark_persistent(l_Lean_Parser_Term_nativeRefl___closed__1);
l_Lean_Parser_Term_nativeRefl___closed__2 = _init_l_Lean_Parser_Term_nativeRefl___closed__2();
lean_mark_persistent(l_Lean_Parser_Term_nativeRefl___closed__2);
l_Lean_Parser_Term_nativeRefl___closed__3 = _init_l_Lean_Parser_Term_nativeRefl___closed__3();
lean_mark_persistent(l_Lean_Parser_Term_nativeRefl___closed__3);
l_Lean_Parser_Term_nativeRefl___closed__4 = _init_l_Lean_Parser_Term_nativeRefl___closed__4();
lean_mark_persistent(l_Lean_Parser_Term_nativeRefl___closed__4);
l_Lean_Parser_Term_nativeRefl___closed__5 = _init_l_Lean_Parser_Term_nativeRefl___closed__5();
lean_mark_persistent(l_Lean_Parser_Term_nativeRefl___closed__5);
l_Lean_Parser_Term_nativeRefl___closed__6 = _init_l_Lean_Parser_Term_nativeRefl___closed__6();
lean_mark_persistent(l_Lean_Parser_Term_nativeRefl___closed__6);
l_Lean_Parser_Term_nativeRefl = _init_l_Lean_Parser_Term_nativeRefl();
lean_mark_persistent(l_Lean_Parser_Term_nativeRefl);
res = l___regBuiltinParser_Lean_Parser_Term_nativeRefl(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();

113
stage0/stdlib/Init/Lean/ProjFns.c
View file

@ -17,6 +17,7 @@ extern lean_object* l_Lean_Name_toString___closed__1;
lean_object* l_Lean_mkProjectionFnInfoExtension___lambda__2(lean_object*);
lean_object* lean_add_projection_info(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t);
extern lean_object* l___private_Init_Lean_Environment_8__persistentEnvExtensionsRef;
lean_object* l_Lean_projectionFnInfoExt___closed__6;
lean_object* lean_mk_empty_array_with_capacity(lean_object*);
lean_object* lean_nat_div(lean_object*, lean_object*);
lean_object* l_Lean_PersistentEnvExtension_getModuleEntries___rarg(lean_object*, lean_object*, lean_object*);
@ -27,9 +28,9 @@ uint8_t lean_name_eq(lean_object*, lean_object*);
lean_object* l_Lean_mkProjectionFnInfoExtension___closed__3;
lean_object* l_Lean_projectionFnInfoExt___elambda__2___boxed(lean_object*);
lean_object* l_RBNode_find___main___at_Lean_Environment_getProjectionFnInfo___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_mkProjectionFnInfoExtension___spec__6___closed__1;
extern lean_object* l_Array_empty___closed__1;
lean_object* lean_io_ref_get(lean_object*, lean_object*);
extern lean_object* l_Lean_mkTagDeclarationExtension___closed__2;
lean_object* l_Lean_mkProjectionFnInfoExtension___closed__1;
lean_object* lean_array_push(lean_object*, lean_object*);
lean_object* lean_array_get_size(lean_object*);
@ -51,6 +52,7 @@ lean_object* lean_array_fget(lean_object*, lean_object*);
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
lean_object* l_Lean_mkProjectionFnInfoExtension___closed__2;
uint8_t l_Array_binSearchAux___main___at_Lean_Environment_isProjectionFn___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_EnvExtension_Inhabited___rarg___closed__1;
lean_object* l_EStateM_bind___rarg(lean_object*, lean_object*, lean_object*);
lean_object* lean_nat_sub(lean_object*, lean_object*);
lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
@ -66,11 +68,12 @@ lean_object* l_Lean_projectionFnInfoExt___closed__3;
extern lean_object* l_IO_Error_Inhabited___closed__1;
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkProjectionFnInfoExtension___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_Init_Lean_Environment_5__envExtensionsRef;
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_mkTagDeclarationExtension___spec__6___closed__2;
lean_object* l_List_redLength___main___rarg(lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkProjectionFnInfoExtension___spec__2___closed__1;
lean_object* l_Lean_mkProjectionFnInfoExtension___lambda__2___boxed(lean_object*);
lean_object* l_Lean_PersistentEnvExtension_addEntry___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_projectionFnInfoExt;
lean_object* l_Lean_mkProjectionFnInfoExtension___lambda__3(lean_object*);
lean_object* l_Lean_SimplePersistentEnvExtension_getState___rarg(lean_object*, lean_object*);
extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__3;
lean_object* l_Lean_registerSimplePersistentEnvExtension___at_Lean_mkProjectionFnInfoExtension___spec__3(lean_object*, lean_object*);
@ -92,13 +95,13 @@ lean_object* l_Lean_Environment_getModuleIdxFor_x3f(lean_object*, lean_object*);
lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_projectionFnInfoExt___elambda__4(lean_object*, lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkProjectionFnInfoExtension___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_namespacesExt___closed__1;
lean_object* l_Lean_projectionFnInfoExt___closed__4;
lean_object* lean_io_initializing(lean_object*);
extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__2;
lean_object* l_Lean_Environment_isProjectionFn___boxed(lean_object*, lean_object*);
lean_object* l_Lean_projectionFnInfoExt___closed__2;
lean_object* l_Array_binSearchAux___main___at_Lean_Environment_getProjectionFnInfo___spec__2(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_mkProjectionFnInfoExtension___spec__6___closed__2;
lean_object* l_List_toArrayAux___main___rarg(lean_object*, lean_object*);
lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*);
@ -108,6 +111,7 @@ lean_object* l_Lean_ProjectionFunctionInfo_inhabited___closed__1;
lean_object* lean_mk_projection_info(lean_object*, lean_object*, lean_object*, uint8_t);
lean_object* l_EStateM_pure___rarg(lean_object*, lean_object*);
lean_object* l_Array_qsortAux___main___at_Lean_mkProjectionFnInfoExtension___spec__1___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkProjectionFnInfoExtension___closed__6;
lean_object* l_Array_binSearchAux___main___at_Lean_Environment_getProjectionFnInfo___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_projectionFnInfoExt___elambda__1___boxed(lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
@ -437,6 +441,30 @@ return x_11;
}
}
}
lean_object* _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_mkProjectionFnInfoExtension___spec__6___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = lean_box(0);
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_1);
lean_ctor_set(x_3, 1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_mkProjectionFnInfoExtension___spec__6___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Array_empty___closed__1;
x_2 = l_Lean_registerEnvExtensionUnsafe___at_Lean_mkProjectionFnInfoExtension___spec__6___closed__1;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_1);
lean_ctor_set(x_3, 1, x_2);
return x_3;
}
}
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_mkProjectionFnInfoExtension___spec__6(lean_object* x_1, lean_object* x_2) {
_start:
{
@ -495,7 +523,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_mkTagDeclarationExtension___spec__6___closed__2;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_mkProjectionFnInfoExtension___spec__6___closed__2;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -1189,6 +1217,14 @@ return x_5;
lean_object* l_Lean_mkProjectionFnInfoExtension___lambda__2(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_box(0);
return x_2;
}
}
lean_object* l_Lean_mkProjectionFnInfoExtension___lambda__3(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_2 = l_List_redLength___main___rarg(x_1);
x_3 = lean_mk_empty_array_with_capacity(x_2);
@ -1234,18 +1270,26 @@ lean_object* _init_l_Lean_mkProjectionFnInfoExtension___closed__4() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_mkProjectionFnInfoExtension___lambda__2), 1, 0);
x_1 = lean_alloc_closure((void*)(l_Lean_mkProjectionFnInfoExtension___lambda__2___boxed), 1, 0);
return x_1;
}
}
lean_object* _init_l_Lean_mkProjectionFnInfoExtension___closed__5() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_mkProjectionFnInfoExtension___lambda__3), 1, 0);
return x_1;
}
}
lean_object* _init_l_Lean_mkProjectionFnInfoExtension___closed__6() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_1 = l_Lean_mkProjectionFnInfoExtension___closed__2;
x_2 = l_Lean_mkProjectionFnInfoExtension___closed__3;
x_3 = l_Lean_mkTagDeclarationExtension___closed__2;
x_4 = l_Lean_mkProjectionFnInfoExtension___closed__4;
x_3 = l_Lean_mkProjectionFnInfoExtension___closed__4;
x_4 = l_Lean_mkProjectionFnInfoExtension___closed__5;
x_5 = lean_alloc_ctor(0, 4, 0);
lean_ctor_set(x_5, 0, x_1);
lean_ctor_set(x_5, 1, x_2);
@ -1258,7 +1302,7 @@ lean_object* l_Lean_mkProjectionFnInfoExtension(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3;
x_2 = l_Lean_mkProjectionFnInfoExtension___closed__5;
x_2 = l_Lean_mkProjectionFnInfoExtension___closed__6;
x_3 = l_Lean_registerSimplePersistentEnvExtension___at_Lean_mkProjectionFnInfoExtension___spec__3(x_2, x_1);
return x_3;
}
@ -1295,6 +1339,15 @@ x_7 = lean_box(x_6);
return x_7;
}
}
lean_object* l_Lean_mkProjectionFnInfoExtension___lambda__2___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_mkProjectionFnInfoExtension___lambda__2(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_Lean_projectionFnInfoExt___elambda__1(lean_object* x_1) {
_start:
{
@ -1340,16 +1393,22 @@ return x_3;
lean_object* _init_l_Lean_projectionFnInfoExt___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_projectionFnInfoExt___elambda__4___boxed), 2, 0);
return x_1;
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = lean_unsigned_to_nat(0u);
x_2 = l_Lean_EnvExtension_Inhabited___rarg___closed__1;
x_3 = l_Lean_registerEnvExtensionUnsafe___at_Lean_mkProjectionFnInfoExtension___spec__6___closed__2;
x_4 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_4, 0, x_1);
lean_ctor_set(x_4, 1, x_2);
lean_ctor_set(x_4, 2, x_3);
return x_4;
}
}
lean_object* _init_l_Lean_projectionFnInfoExt___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_projectionFnInfoExt___elambda__3___boxed), 2, 0);
x_1 = lean_alloc_closure((void*)(l_Lean_projectionFnInfoExt___elambda__4___boxed), 2, 0);
return x_1;
}
}
@ -1357,7 +1416,7 @@ lean_object* _init_l_Lean_projectionFnInfoExt___closed__3() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_projectionFnInfoExt___elambda__2___boxed), 1, 0);
x_1 = lean_alloc_closure((void*)(l_Lean_projectionFnInfoExt___elambda__3___boxed), 2, 0);
return x_1;
}
}
@ -1365,20 +1424,28 @@ lean_object* _init_l_Lean_projectionFnInfoExt___closed__4() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_projectionFnInfoExt___elambda__1___boxed), 1, 0);
x_1 = lean_alloc_closure((void*)(l_Lean_projectionFnInfoExt___elambda__2___boxed), 1, 0);
return x_1;
}
}
lean_object* _init_l_Lean_projectionFnInfoExt___closed__5() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_projectionFnInfoExt___elambda__1___boxed), 1, 0);
return x_1;
}
}
lean_object* _init_l_Lean_projectionFnInfoExt___closed__6() {
_start:
{
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;
x_1 = l_Lean_namespacesExt___closed__1;
x_1 = l_Lean_projectionFnInfoExt___closed__1;
x_2 = lean_box(0);
x_3 = l_Lean_projectionFnInfoExt___closed__1;
x_4 = l_Lean_projectionFnInfoExt___closed__2;
x_5 = l_Lean_projectionFnInfoExt___closed__3;
x_6 = l_Lean_projectionFnInfoExt___closed__4;
x_3 = l_Lean_projectionFnInfoExt___closed__2;
x_4 = l_Lean_projectionFnInfoExt___closed__3;
x_5 = l_Lean_projectionFnInfoExt___closed__4;
x_6 = l_Lean_projectionFnInfoExt___closed__5;
x_7 = lean_alloc_ctor(0, 6, 0);
lean_ctor_set(x_7, 0, x_1);
lean_ctor_set(x_7, 1, x_2);
@ -1828,6 +1895,10 @@ l_Lean_ProjectionFunctionInfo_inhabited = _init_l_Lean_ProjectionFunctionInfo_in
lean_mark_persistent(l_Lean_ProjectionFunctionInfo_inhabited);
l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkProjectionFnInfoExtension___spec__2___closed__1 = _init_l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkProjectionFnInfoExtension___spec__2___closed__1();
lean_mark_persistent(l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkProjectionFnInfoExtension___spec__2___closed__1);
l_Lean_registerEnvExtensionUnsafe___at_Lean_mkProjectionFnInfoExtension___spec__6___closed__1 = _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_mkProjectionFnInfoExtension___spec__6___closed__1();
lean_mark_persistent(l_Lean_registerEnvExtensionUnsafe___at_Lean_mkProjectionFnInfoExtension___spec__6___closed__1);
l_Lean_registerEnvExtensionUnsafe___at_Lean_mkProjectionFnInfoExtension___spec__6___closed__2 = _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_mkProjectionFnInfoExtension___spec__6___closed__2();
lean_mark_persistent(l_Lean_registerEnvExtensionUnsafe___at_Lean_mkProjectionFnInfoExtension___spec__6___closed__2);
l_Lean_mkProjectionFnInfoExtension___closed__1 = _init_l_Lean_mkProjectionFnInfoExtension___closed__1();
lean_mark_persistent(l_Lean_mkProjectionFnInfoExtension___closed__1);
l_Lean_mkProjectionFnInfoExtension___closed__2 = _init_l_Lean_mkProjectionFnInfoExtension___closed__2();
@ -1838,6 +1909,8 @@ l_Lean_mkProjectionFnInfoExtension___closed__4 = _init_l_Lean_mkProjectionFnInfo
lean_mark_persistent(l_Lean_mkProjectionFnInfoExtension___closed__4);
l_Lean_mkProjectionFnInfoExtension___closed__5 = _init_l_Lean_mkProjectionFnInfoExtension___closed__5();
lean_mark_persistent(l_Lean_mkProjectionFnInfoExtension___closed__5);
l_Lean_mkProjectionFnInfoExtension___closed__6 = _init_l_Lean_mkProjectionFnInfoExtension___closed__6();
lean_mark_persistent(l_Lean_mkProjectionFnInfoExtension___closed__6);
l_Lean_projectionFnInfoExt___closed__1 = _init_l_Lean_projectionFnInfoExt___closed__1();
lean_mark_persistent(l_Lean_projectionFnInfoExt___closed__1);
l_Lean_projectionFnInfoExt___closed__2 = _init_l_Lean_projectionFnInfoExt___closed__2();
@ -1848,6 +1921,8 @@ l_Lean_projectionFnInfoExt___closed__4 = _init_l_Lean_projectionFnInfoExt___clos
lean_mark_persistent(l_Lean_projectionFnInfoExt___closed__4);
l_Lean_projectionFnInfoExt___closed__5 = _init_l_Lean_projectionFnInfoExt___closed__5();
lean_mark_persistent(l_Lean_projectionFnInfoExt___closed__5);
l_Lean_projectionFnInfoExt___closed__6 = _init_l_Lean_projectionFnInfoExt___closed__6();
lean_mark_persistent(l_Lean_projectionFnInfoExt___closed__6);
res = l_Lean_mkProjectionFnInfoExtension(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
l_Lean_projectionFnInfoExt = lean_io_result_get_value(res);

12
stage0/stdlib/Init/Lean/ReducibilityAttrs.c
View file

@ -19,12 +19,10 @@ lean_object* lean_nat_div(lean_object*, lean_object*);
lean_object* l_Lean_PersistentEnvExtension_getModuleEntries___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkReducibilityAttrs___closed__14;
lean_object* l_Array_qsortAux___main___at_Lean_mkReducibilityAttrs___spec__3(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
uint8_t lean_name_eq(lean_object*, lean_object*);
lean_object* l_Lean_mkReducibilityAttrs___closed__16;
extern lean_object* l_Array_empty___closed__1;
extern lean_object* l_Lean_registerTagAttribute___closed__1;
lean_object* lean_io_ref_get(lean_object*, lean_object*);
lean_object* l_Lean_EnumAttributes_getValue___at_Lean_getReducibilityStatus___spec__1___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkReducibilityAttrs___closed__8;
@ -36,7 +34,6 @@ uint8_t l_Lean_isReducible(lean_object*, lean_object*);
lean_object* l_Lean_isReducible___boxed(lean_object*, lean_object*);
lean_object* l_Lean_mkReducibilityAttrs___closed__2;
lean_object* lean_nat_add(lean_object*, lean_object*);
extern lean_object* l_Lean_registerTagAttribute___closed__2;
lean_object* l_Lean_mkReducibilityAttrs___closed__1;
lean_object* l_Array_binSearchAux___main___at_Lean_getReducibilityStatus___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_reducibilityAttrs;
@ -66,6 +63,8 @@ lean_object* l_Lean_setReducibilityStatus___boxed(lean_object*, lean_object*, le
lean_object* l_RBNode_fold___main___at_Lean_mkReducibilityAttrs___spec__2(lean_object*, lean_object*);
lean_object* l_Lean_mkReducibilityAttrs___closed__15;
lean_object* l_Lean_registerEnumAttributes___at_Lean_mkReducibilityAttrs___spec__1___lambda__2(lean_object*);
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__1;
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__2;
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkReducibilityAttrs___spec__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_Init_Lean_Environment_5__envExtensionsRef;
lean_object* l_Lean_mkReducibilityAttrs___closed__9;
@ -99,6 +98,7 @@ lean_object* lean_set_reducibility_status(lean_object*, lean_object*, uint8_t);
lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_mkReducibilityAttrs___spec__7(lean_object*, lean_object*);
lean_object* l_Lean_mkReducibilityAttrs___closed__10;
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
lean_object* l_Lean_PersistentEnvExtension_getState___rarg(lean_object*, lean_object*);
lean_object* lean_io_initializing(lean_object*);
extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__2;
@ -474,7 +474,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -1353,8 +1353,8 @@ lean_object* l_Lean_registerEnumAttributes___at_Lean_mkReducibilityAttrs___spec_
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12;
x_6 = l_Lean_registerTagAttribute___closed__1;
x_7 = l_Lean_registerTagAttribute___closed__2;
x_6 = l_Lean_registerParametricAttribute___rarg___closed__1;
x_7 = l_Lean_registerParametricAttribute___rarg___closed__2;
x_8 = l_Lean_registerEnumAttributes___at_Lean_mkReducibilityAttrs___spec__1___closed__1;
x_9 = l_Lean_registerEnumAttributes___at_Lean_mkReducibilityAttrs___spec__1___closed__2;
x_10 = l_Lean_registerEnumAttributes___rarg___closed__1;

42
stage0/stdlib/Init/Lean/Scopes.c
View file

@ -72,11 +72,11 @@ extern lean_object* l_IO_Error_Inhabited___closed__1;
extern lean_object* l___private_Init_Lean_Environment_5__envExtensionsRef;
lean_object* l_Array_iterateMAux___main___at_Lean_regScopeManagerExtension___spec__3(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_regScopeManagerExtension___lambda__2(lean_object*);
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7___closed__3;
lean_object* l_Lean_scopeManagerExt___elambda__1___boxed(lean_object*);
lean_object* l_Lean_scopeManagerExt___closed__6;
lean_object* l_RBNode_insert___at_Lean_NameSet_insert___spec__1(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7(lean_object*, lean_object*);
extern lean_object* l_Lean_NameSet_empty;
lean_object* lean_get_scope_header(lean_object*);
lean_object* l_Lean_PersistentEnvExtension_addEntry___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_SimplePersistentEnvExtension_getState___rarg(lean_object*, lean_object*);
@ -123,12 +123,12 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = lean_box(0);
x_2 = l_Lean_NameSet_empty;
x_3 = lean_alloc_ctor(0, 4, 0);
lean_ctor_set(x_3, 0, x_1);
lean_ctor_set(x_3, 1, x_2);
lean_ctor_set(x_3, 2, x_2);
lean_ctor_set(x_3, 3, x_2);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
lean_ctor_set(x_3, 2, x_1);
lean_ctor_set(x_3, 3, x_1);
return x_3;
}
}
@ -284,12 +284,10 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = lean_box(0);
x_3 = lean_alloc_ctor(0, 4, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
lean_ctor_set(x_3, 2, x_1);
lean_ctor_set(x_3, 3, x_1);
x_2 = l_Lean_ScopeManagerState_Inhabited___closed__1;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_1);
lean_ctor_set(x_3, 1, x_2);
return x_3;
}
}
@ -297,20 +295,8 @@ lean_object* _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerEx
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7___closed__1;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_1);
lean_ctor_set(x_3, 1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Array_empty___closed__1;
x_2 = l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7___closed__2;
x_2 = l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7___closed__1;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_1);
lean_ctor_set(x_3, 1, x_2);
@ -375,7 +361,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7___closed__3;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7___closed__2;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -1258,7 +1244,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = lean_unsigned_to_nat(0u);
x_2 = l_Lean_EnvExtension_Inhabited___rarg___closed__1;
x_3 = l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7___closed__3;
x_3 = l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7___closed__2;
x_4 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_4, 0, x_1);
lean_ctor_set(x_4, 1, x_2);
@ -1884,8 +1870,6 @@ l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7__
lean_mark_persistent(l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7___closed__1);
l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7___closed__2 = _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7___closed__2();
lean_mark_persistent(l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7___closed__2);
l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7___closed__3 = _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7___closed__3();
lean_mark_persistent(l_Lean_registerEnvExtensionUnsafe___at_Lean_regScopeManagerExtension___spec__7___closed__3);
l_Lean_regScopeManagerExtension___closed__1 = _init_l_Lean_regScopeManagerExtension___closed__1();
lean_mark_persistent(l_Lean_regScopeManagerExtension___closed__1);
l_Lean_regScopeManagerExtension___closed__2 = _init_l_Lean_regScopeManagerExtension___closed__2();

6
stage0/stdlib/Init/Lean/Util.c
View file

@ -1,6 +1,6 @@
// Lean compiler output
// Module: Init.Lean.Util
// Imports: Init.Lean.Util.CollectFVars Init.Lean.Util.CollectLevelParams Init.Lean.Util.CollectMVars Init.Lean.Util.FindMVar Init.Lean.Util.MonadCache Init.Lean.Util.PPExt Init.Lean.Util.PPGoal Init.Lean.Util.Path Init.Lean.Util.Profile Init.Lean.Util.RecDepth Init.Lean.Util.Sorry Init.Lean.Util.Trace Init.Lean.Util.WHNF Init.Lean.Util.FindExpr Init.Lean.Util.ReplaceExpr
// Imports: Init.Lean.Util.CollectFVars Init.Lean.Util.CollectLevelParams Init.Lean.Util.CollectMVars Init.Lean.Util.FindMVar Init.Lean.Util.MonadCache Init.Lean.Util.PPExt Init.Lean.Util.PPGoal Init.Lean.Util.Path Init.Lean.Util.Profile Init.Lean.Util.RecDepth Init.Lean.Util.Sorry Init.Lean.Util.Trace Init.Lean.Util.WHNF Init.Lean.Util.FindExpr Init.Lean.Util.ReplaceExpr Init.Lean.Util.FoldConsts
#include "runtime/lean.h"
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
@ -28,6 +28,7 @@ lean_object* initialize_Init_Lean_Util_Trace(lean_object*);
lean_object* initialize_Init_Lean_Util_WHNF(lean_object*);
lean_object* initialize_Init_Lean_Util_FindExpr(lean_object*);
lean_object* initialize_Init_Lean_Util_ReplaceExpr(lean_object*);
lean_object* initialize_Init_Lean_Util_FoldConsts(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_Init_Lean_Util(lean_object* w) {
lean_object * res;
@ -78,6 +79,9 @@ lean_dec_ref(res);
res = initialize_Init_Lean_Util_ReplaceExpr(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Init_Lean_Util_FoldConsts(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
return lean_mk_io_result(lean_box(0));
}
#ifdef __cplusplus

9
stage0/stdlib/Init/Lean/Util/CollectFVars.c
View file

@ -34,6 +34,7 @@ size_t l_Lean_Expr_hash(lean_object*);
lean_object* l_Lean_CollectFVars_main___main(lean_object*, lean_object*);
size_t lean_usize_modn(size_t, lean_object*);
lean_object* l_RBNode_insert___at_Lean_NameSet_insert___spec__1(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_NameSet_empty;
lean_object* l_Lean_CollectFVars_visit(lean_object*, lean_object*, lean_object*);
lean_object* l_HashSetImp_contains___at_Lean_CollectFVars_visit___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_HashSetImp_moveEntries___main___at_Lean_CollectFVars_visit___spec__5(lean_object*, lean_object*, lean_object*);
@ -68,11 +69,11 @@ lean_object* _init_l_Lean_CollectFVars_State_inhabited___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_CollectFVars_State_inhabited___closed__1;
x_1 = l_Lean_CollectFVars_State_inhabited___closed__1;
x_2 = l_Lean_NameSet_empty;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
lean_ctor_set(x_3, 0, x_1);
lean_ctor_set(x_3, 1, x_2);
return x_3;
}
}

975
stage0/stdlib/Init/Lean/Util/FoldConsts.c Normal file
View file

@ -0,0 +1,975 @@
// Lean compiler output
// Module: Init.Lean.Util.FoldConsts
// Imports: Init.Control.Option Init.Lean.Expr Init.Lean.Environment
#include "runtime/lean.h"
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
#pragma clang diagnostic ignored "-Wunused-label"
#elif defined(__GNUC__) && !defined(__CLANG__)
#pragma GCC diagnostic ignored "-Wunused-parameter"
#pragma GCC diagnostic ignored "-Wunused-label"
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
#ifdef __cplusplus
extern "C" {
#endif
lean_object* l_Lean_Expr_FoldConstsImpl_fold___main___at_Lean_getMaxHeight___spec__1(lean_object*, size_t, lean_object*, uint32_t, lean_object*);
uint8_t l_USize_decEq(size_t, size_t);
lean_object* lean_array_uget(lean_object*, size_t);
lean_object* l_Lean_Expr_FoldConstsImpl_fold___main___rarg(lean_object*, size_t, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_uset(lean_object*, size_t, lean_object*);
size_t l_Lean_Expr_FoldConstsImpl_cacheSize;
lean_object* lean_environment_find(lean_object*, lean_object*);
lean_object* l_Lean_Expr_foldConsts(lean_object*, lean_object*);
lean_object* l_Lean_Expr_FoldConstsImpl_fold___main(lean_object*);
lean_object* l_Lean_Expr_FoldConstsImpl_fold___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_FoldConstsImpl_fold___main___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_FoldConstsImpl_fold___rarg(lean_object*, size_t, lean_object*, lean_object*, lean_object*);
uint8_t l_UInt32_decLt(uint32_t, uint32_t);
lean_object* l_Lean_Expr_FoldConstsImpl_initCache___closed__1;
lean_object* l_Lean_Expr_foldConsts___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Lean_getMaxHeight(lean_object*, lean_object*);
lean_object* l_Lean_Expr_FoldConstsImpl_initCache___closed__2;
extern lean_object* l_HashSet_Inhabited___closed__1;
lean_object* l_Lean_Expr_foldConsts___boxed(lean_object*, lean_object*);
size_t l_USize_mod(size_t, size_t);
size_t lean_ptr_addr(lean_object*);
lean_object* l_Lean_Expr_FoldConstsImpl_fold(lean_object*);
lean_object* lean_mk_array(lean_object*, lean_object*);
lean_object* l_Lean_Expr_FoldConstsImpl_visited(lean_object*, size_t, lean_object*);
lean_object* l_Lean_Expr_FoldConstsImpl_initCache;
lean_object* l_Lean_Expr_FoldConstsImpl_fold___main___at_Lean_getMaxHeight___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_FoldConstsImpl_foldUnsafe(lean_object*);
lean_object* l_Lean_Expr_FoldConstsImpl_visited___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_HashSetImp_insert___at_Lean_NameHashSet_insert___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_Expr_FoldConstsImpl_foldUnsafe___rarg(lean_object*, lean_object*, lean_object*);
uint8_t l_HashSetImp_contains___at_Lean_NameHashSet_contains___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_Expr_foldConsts___rarg(lean_object*, lean_object*);
size_t _init_l_Lean_Expr_FoldConstsImpl_cacheSize() {
_start:
{
size_t x_1;
x_1 = 8192;
return x_1;
}
}
lean_object* l_Lean_Expr_FoldConstsImpl_visited(lean_object* x_1, size_t x_2, lean_object* x_3) {
_start:
{
size_t x_4; size_t x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; size_t x_9; uint8_t x_10;
x_4 = lean_ptr_addr(x_1);
x_5 = x_2 == 0 ? 0 : x_4 % x_2;
x_6 = lean_ctor_get(x_3, 0);
lean_inc(x_6);
x_7 = lean_ctor_get(x_3, 1);
lean_inc(x_7);
x_8 = lean_array_uget(x_6, x_5);
x_9 = lean_ptr_addr(x_8);
lean_dec(x_8);
x_10 = x_9 == x_4;
if (x_10 == 0)
{
uint8_t x_11;
x_11 = !lean_is_exclusive(x_3);
if (x_11 == 0)
{
lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15; lean_object* x_16; lean_object* x_17;
x_12 = lean_ctor_get(x_3, 1);
lean_dec(x_12);
x_13 = lean_ctor_get(x_3, 0);
lean_dec(x_13);
x_14 = lean_array_uset(x_6, x_5, x_1);
lean_ctor_set(x_3, 0, x_14);
x_15 = 0;
x_16 = lean_box(x_15);
x_17 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_17, 0, x_16);
lean_ctor_set(x_17, 1, x_3);
return x_17;
}
else
{
lean_object* x_18; lean_object* x_19; uint8_t x_20; lean_object* x_21; lean_object* x_22;
lean_dec(x_3);
x_18 = lean_array_uset(x_6, x_5, x_1);
x_19 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_19, 0, x_18);
lean_ctor_set(x_19, 1, x_7);
x_20 = 0;
x_21 = lean_box(x_20);
x_22 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_22, 0, x_21);
lean_ctor_set(x_22, 1, x_19);
return x_22;
}
}
else
{
uint8_t x_23; lean_object* x_24; lean_object* x_25;
lean_dec(x_7);
lean_dec(x_6);
lean_dec(x_1);
x_23 = 1;
x_24 = lean_box(x_23);
x_25 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_25, 0, x_24);
lean_ctor_set(x_25, 1, x_3);
return x_25;
}
}
}
lean_object* l_Lean_Expr_FoldConstsImpl_visited___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
size_t x_4; lean_object* x_5;
x_4 = lean_unbox_usize(x_2);
lean_dec(x_2);
x_5 = l_Lean_Expr_FoldConstsImpl_visited(x_1, x_4, x_3);
return x_5;
}
}
lean_object* l_Lean_Expr_FoldConstsImpl_fold___main___rarg(lean_object* x_1, size_t x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
uint8_t x_6; lean_object* x_7; size_t x_58; size_t x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; size_t x_63; uint8_t x_64;
x_58 = lean_ptr_addr(x_3);
x_59 = x_2 == 0 ? 0 : x_58 % x_2;
x_60 = lean_ctor_get(x_5, 0);
lean_inc(x_60);
x_61 = lean_ctor_get(x_5, 1);
lean_inc(x_61);
x_62 = lean_array_uget(x_60, x_59);
x_63 = lean_ptr_addr(x_62);
lean_dec(x_62);
x_64 = x_63 == x_58;
if (x_64 == 0)
{
uint8_t x_65;
x_65 = !lean_is_exclusive(x_5);
if (x_65 == 0)
{
lean_object* x_66; lean_object* x_67; lean_object* x_68; uint8_t x_69;
x_66 = lean_ctor_get(x_5, 1);
lean_dec(x_66);
x_67 = lean_ctor_get(x_5, 0);
lean_dec(x_67);
lean_inc(x_3);
x_68 = lean_array_uset(x_60, x_59, x_3);
lean_ctor_set(x_5, 0, x_68);
x_69 = 0;
x_6 = x_69;
x_7 = x_5;
goto block_57;
}
else
{
lean_object* x_70; lean_object* x_71; uint8_t x_72;
lean_dec(x_5);
lean_inc(x_3);
x_70 = lean_array_uset(x_60, x_59, x_3);
x_71 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_71, 0, x_70);
lean_ctor_set(x_71, 1, x_61);
x_72 = 0;
x_6 = x_72;
x_7 = x_71;
goto block_57;
}
}
else
{
uint8_t x_73;
lean_dec(x_61);
lean_dec(x_60);
x_73 = 1;
x_6 = x_73;
x_7 = x_5;
goto block_57;
}
block_57:
{
if (x_6 == 0)
{
switch (lean_obj_tag(x_3)) {
case 4:
{
lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11;
x_8 = lean_ctor_get(x_3, 0);
lean_inc(x_8);
lean_dec(x_3);
x_9 = lean_ctor_get(x_7, 0);
lean_inc(x_9);
x_10 = lean_ctor_get(x_7, 1);
lean_inc(x_10);
x_11 = l_HashSetImp_contains___at_Lean_NameHashSet_contains___spec__1(x_10, x_8);
if (x_11 == 0)
{
uint8_t x_12;
x_12 = !lean_is_exclusive(x_7);
if (x_12 == 0)
{
lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17;
x_13 = lean_ctor_get(x_7, 1);
lean_dec(x_13);
x_14 = lean_ctor_get(x_7, 0);
lean_dec(x_14);
lean_inc(x_8);
x_15 = l_HashSetImp_insert___at_Lean_NameHashSet_insert___spec__1(x_10, x_8);
lean_ctor_set(x_7, 1, x_15);
x_16 = lean_apply_2(x_1, x_8, x_4);
x_17 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_17, 0, x_16);
lean_ctor_set(x_17, 1, x_7);
return x_17;
}
else
{
lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21;
lean_dec(x_7);
lean_inc(x_8);
x_18 = l_HashSetImp_insert___at_Lean_NameHashSet_insert___spec__1(x_10, x_8);
x_19 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_19, 0, x_9);
lean_ctor_set(x_19, 1, x_18);
x_20 = lean_apply_2(x_1, x_8, x_4);
x_21 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_21, 0, x_20);
lean_ctor_set(x_21, 1, x_19);
return x_21;
}
}
else
{
lean_object* x_22;
lean_dec(x_10);
lean_dec(x_9);
lean_dec(x_8);
lean_dec(x_1);
x_22 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_22, 0, x_4);
lean_ctor_set(x_22, 1, x_7);
return x_22;
}
}
case 5:
{
lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27;
x_23 = lean_ctor_get(x_3, 0);
lean_inc(x_23);
x_24 = lean_ctor_get(x_3, 1);
lean_inc(x_24);
lean_dec(x_3);
lean_inc(x_1);
x_25 = l_Lean_Expr_FoldConstsImpl_fold___main___rarg(x_1, x_2, x_23, x_4, x_7);
x_26 = lean_ctor_get(x_25, 0);
lean_inc(x_26);
x_27 = lean_ctor_get(x_25, 1);
lean_inc(x_27);
lean_dec(x_25);
x_3 = x_24;
x_4 = x_26;
x_5 = x_27;
goto _start;
}
case 6:
{
lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33;
x_29 = lean_ctor_get(x_3, 1);
lean_inc(x_29);
x_30 = lean_ctor_get(x_3, 2);
lean_inc(x_30);
lean_dec(x_3);
lean_inc(x_1);
x_31 = l_Lean_Expr_FoldConstsImpl_fold___main___rarg(x_1, x_2, x_29, x_4, x_7);
x_32 = lean_ctor_get(x_31, 0);
lean_inc(x_32);
x_33 = lean_ctor_get(x_31, 1);
lean_inc(x_33);
lean_dec(x_31);
x_3 = x_30;
x_4 = x_32;
x_5 = x_33;
goto _start;
}
case 7:
{
lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39;
x_35 = lean_ctor_get(x_3, 1);
lean_inc(x_35);
x_36 = lean_ctor_get(x_3, 2);
lean_inc(x_36);
lean_dec(x_3);
lean_inc(x_1);
x_37 = l_Lean_Expr_FoldConstsImpl_fold___main___rarg(x_1, x_2, x_35, x_4, x_7);
x_38 = lean_ctor_get(x_37, 0);
lean_inc(x_38);
x_39 = lean_ctor_get(x_37, 1);
lean_inc(x_39);
lean_dec(x_37);
x_3 = x_36;
x_4 = x_38;
x_5 = x_39;
goto _start;
}
case 8:
{
lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49;
x_41 = lean_ctor_get(x_3, 1);
lean_inc(x_41);
x_42 = lean_ctor_get(x_3, 2);
lean_inc(x_42);
x_43 = lean_ctor_get(x_3, 3);
lean_inc(x_43);
lean_dec(x_3);
lean_inc(x_1);
x_44 = l_Lean_Expr_FoldConstsImpl_fold___main___rarg(x_1, x_2, x_41, x_4, x_7);
x_45 = lean_ctor_get(x_44, 0);
lean_inc(x_45);
x_46 = lean_ctor_get(x_44, 1);
lean_inc(x_46);
lean_dec(x_44);
lean_inc(x_1);
x_47 = l_Lean_Expr_FoldConstsImpl_fold___main___rarg(x_1, x_2, x_42, x_45, x_46);
x_48 = lean_ctor_get(x_47, 0);
lean_inc(x_48);
x_49 = lean_ctor_get(x_47, 1);
lean_inc(x_49);
lean_dec(x_47);
x_3 = x_43;
x_4 = x_48;
x_5 = x_49;
goto _start;
}
case 10:
{
lean_object* x_51;
x_51 = lean_ctor_get(x_3, 1);
lean_inc(x_51);
lean_dec(x_3);
x_3 = x_51;
x_5 = x_7;
goto _start;
}
case 11:
{
lean_object* x_53;
x_53 = lean_ctor_get(x_3, 2);
lean_inc(x_53);
lean_dec(x_3);
x_3 = x_53;
x_5 = x_7;
goto _start;
}
default:
{
lean_object* x_55;
lean_dec(x_3);
lean_dec(x_1);
x_55 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_55, 0, x_4);
lean_ctor_set(x_55, 1, x_7);
return x_55;
}
}
}
else
{
lean_object* x_56;
lean_dec(x_3);
lean_dec(x_1);
x_56 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_56, 0, x_4);
lean_ctor_set(x_56, 1, x_7);
return x_56;
}
}
}
}
lean_object* l_Lean_Expr_FoldConstsImpl_fold___main(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_Expr_FoldConstsImpl_fold___main___rarg___boxed), 5, 0);
return x_2;
}
}
lean_object* l_Lean_Expr_FoldConstsImpl_fold___main___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
size_t x_6; lean_object* x_7;
x_6 = lean_unbox_usize(x_2);
lean_dec(x_2);
x_7 = l_Lean_Expr_FoldConstsImpl_fold___main___rarg(x_1, x_6, x_3, x_4, x_5);
return x_7;
}
}
lean_object* l_Lean_Expr_FoldConstsImpl_fold___rarg(lean_object* x_1, size_t x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6;
x_6 = l_Lean_Expr_FoldConstsImpl_fold___main___rarg(x_1, x_2, x_3, x_4, x_5);
return x_6;
}
}
lean_object* l_Lean_Expr_FoldConstsImpl_fold(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_Expr_FoldConstsImpl_fold___rarg___boxed), 5, 0);
return x_2;
}
}
lean_object* l_Lean_Expr_FoldConstsImpl_fold___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
size_t x_6; lean_object* x_7;
x_6 = lean_unbox_usize(x_2);
lean_dec(x_2);
x_7 = l_Lean_Expr_FoldConstsImpl_fold___rarg(x_1, x_6, x_3, x_4, x_5);
return x_7;
}
}
lean_object* _init_l_Lean_Expr_FoldConstsImpl_initCache___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_unsigned_to_nat(8192u);
x_2 = lean_box(0);
x_3 = lean_mk_array(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Expr_FoldConstsImpl_initCache___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Expr_FoldConstsImpl_initCache___closed__1;
x_2 = l_HashSet_Inhabited___closed__1;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_1);
lean_ctor_set(x_3, 1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_Expr_FoldConstsImpl_initCache() {
_start:
{
lean_object* x_1;
x_1 = l_Lean_Expr_FoldConstsImpl_initCache___closed__2;
return x_1;
}
}
lean_object* l_Lean_Expr_FoldConstsImpl_foldUnsafe___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
size_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_4 = 8192;
x_5 = l_Lean_Expr_FoldConstsImpl_initCache;
x_6 = l_Lean_Expr_FoldConstsImpl_fold___main___rarg(x_3, x_4, x_1, x_2, x_5);
x_7 = lean_ctor_get(x_6, 0);
lean_inc(x_7);
lean_dec(x_6);
return x_7;
}
}
lean_object* l_Lean_Expr_FoldConstsImpl_foldUnsafe(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_Expr_FoldConstsImpl_foldUnsafe___rarg), 3, 0);
return x_2;
}
}
lean_object* l_Lean_Expr_foldConsts___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_inc(x_1);
return x_1;
}
}
lean_object* l_Lean_Expr_foldConsts(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_Lean_Expr_foldConsts___rarg___boxed), 2, 0);
return x_3;
}
}
lean_object* l_Lean_Expr_foldConsts___rarg___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Lean_Expr_foldConsts___rarg(x_1, x_2);
lean_dec(x_2);
lean_dec(x_1);
return x_3;
}
}
lean_object* l_Lean_Expr_foldConsts___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Lean_Expr_foldConsts(x_1, x_2);
lean_dec(x_2);
return x_3;
}
}
lean_object* l_Lean_Expr_FoldConstsImpl_fold___main___at_Lean_getMaxHeight___spec__1(lean_object* x_1, size_t x_2, lean_object* x_3, uint32_t x_4, lean_object* x_5) {
_start:
{
uint8_t x_6; lean_object* x_7; size_t x_94; size_t x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; size_t x_99; uint8_t x_100;
x_94 = lean_ptr_addr(x_3);
x_95 = x_2 == 0 ? 0 : x_94 % x_2;
x_96 = lean_ctor_get(x_5, 0);
lean_inc(x_96);
x_97 = lean_ctor_get(x_5, 1);
lean_inc(x_97);
x_98 = lean_array_uget(x_96, x_95);
x_99 = lean_ptr_addr(x_98);
lean_dec(x_98);
x_100 = x_99 == x_94;
if (x_100 == 0)
{
uint8_t x_101;
x_101 = !lean_is_exclusive(x_5);
if (x_101 == 0)
{
lean_object* x_102; lean_object* x_103; lean_object* x_104; uint8_t x_105;
x_102 = lean_ctor_get(x_5, 1);
lean_dec(x_102);
x_103 = lean_ctor_get(x_5, 0);
lean_dec(x_103);
lean_inc(x_3);
x_104 = lean_array_uset(x_96, x_95, x_3);
lean_ctor_set(x_5, 0, x_104);
x_105 = 0;
x_6 = x_105;
x_7 = x_5;
goto block_93;
}
else
{
lean_object* x_106; lean_object* x_107; uint8_t x_108;
lean_dec(x_5);
lean_inc(x_3);
x_106 = lean_array_uset(x_96, x_95, x_3);
x_107 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_107, 0, x_106);
lean_ctor_set(x_107, 1, x_97);
x_108 = 0;
x_6 = x_108;
x_7 = x_107;
goto block_93;
}
}
else
{
uint8_t x_109;
lean_dec(x_97);
lean_dec(x_96);
x_109 = 1;
x_6 = x_109;
x_7 = x_5;
goto block_93;
}
block_93:
{
if (x_6 == 0)
{
switch (lean_obj_tag(x_3)) {
case 4:
{
lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11;
x_8 = lean_ctor_get(x_3, 0);
lean_inc(x_8);
lean_dec(x_3);
x_9 = lean_ctor_get(x_7, 0);
lean_inc(x_9);
x_10 = lean_ctor_get(x_7, 1);
lean_inc(x_10);
x_11 = l_HashSetImp_contains___at_Lean_NameHashSet_contains___spec__1(x_10, x_8);
if (x_11 == 0)
{
uint8_t x_12;
x_12 = !lean_is_exclusive(x_7);
if (x_12 == 0)
{
lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16;
x_13 = lean_ctor_get(x_7, 1);
lean_dec(x_13);
x_14 = lean_ctor_get(x_7, 0);
lean_dec(x_14);
lean_inc(x_8);
x_15 = l_HashSetImp_insert___at_Lean_NameHashSet_insert___spec__1(x_10, x_8);
lean_ctor_set(x_7, 1, x_15);
x_16 = lean_environment_find(x_1, x_8);
if (lean_obj_tag(x_16) == 0)
{
lean_object* x_17; lean_object* x_18;
x_17 = lean_box_uint32(x_4);
x_18 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_18, 0, x_17);
lean_ctor_set(x_18, 1, x_7);
return x_18;
}
else
{
lean_object* x_19;
x_19 = lean_ctor_get(x_16, 0);
lean_inc(x_19);
lean_dec(x_16);
if (lean_obj_tag(x_19) == 1)
{
lean_object* x_20; lean_object* x_21;
x_20 = lean_ctor_get(x_19, 0);
lean_inc(x_20);
lean_dec(x_19);
x_21 = lean_ctor_get(x_20, 2);
lean_inc(x_21);
lean_dec(x_20);
if (lean_obj_tag(x_21) == 2)
{
uint32_t x_22; uint8_t x_23;
x_22 = lean_ctor_get_uint32(x_21, 0);
lean_dec(x_21);
x_23 = x_4 < x_22;
if (x_23 == 0)
{
lean_object* x_24; lean_object* x_25;
x_24 = lean_box_uint32(x_4);
x_25 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_25, 0, x_24);
lean_ctor_set(x_25, 1, x_7);
return x_25;
}
else
{
lean_object* x_26; lean_object* x_27;
x_26 = lean_box_uint32(x_22);
x_27 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_27, 0, x_26);
lean_ctor_set(x_27, 1, x_7);
return x_27;
}
}
else
{
lean_object* x_28; lean_object* x_29;
lean_dec(x_21);
x_28 = lean_box_uint32(x_4);
x_29 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_29, 0, x_28);
lean_ctor_set(x_29, 1, x_7);
return x_29;
}
}
else
{
lean_object* x_30; lean_object* x_31;
lean_dec(x_19);
x_30 = lean_box_uint32(x_4);
x_31 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_31, 0, x_30);
lean_ctor_set(x_31, 1, x_7);
return x_31;
}
}
}
else
{
lean_object* x_32; lean_object* x_33; lean_object* x_34;
lean_dec(x_7);
lean_inc(x_8);
x_32 = l_HashSetImp_insert___at_Lean_NameHashSet_insert___spec__1(x_10, x_8);
x_33 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_33, 0, x_9);
lean_ctor_set(x_33, 1, x_32);
x_34 = lean_environment_find(x_1, x_8);
if (lean_obj_tag(x_34) == 0)
{
lean_object* x_35; lean_object* x_36;
x_35 = lean_box_uint32(x_4);
x_36 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_36, 0, x_35);
lean_ctor_set(x_36, 1, x_33);
return x_36;
}
else
{
lean_object* x_37;
x_37 = lean_ctor_get(x_34, 0);
lean_inc(x_37);
lean_dec(x_34);
if (lean_obj_tag(x_37) == 1)
{
lean_object* x_38; lean_object* x_39;
x_38 = lean_ctor_get(x_37, 0);
lean_inc(x_38);
lean_dec(x_37);
x_39 = lean_ctor_get(x_38, 2);
lean_inc(x_39);
lean_dec(x_38);
if (lean_obj_tag(x_39) == 2)
{
uint32_t x_40; uint8_t x_41;
x_40 = lean_ctor_get_uint32(x_39, 0);
lean_dec(x_39);
x_41 = x_4 < x_40;
if (x_41 == 0)
{
lean_object* x_42; lean_object* x_43;
x_42 = lean_box_uint32(x_4);
x_43 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_43, 0, x_42);
lean_ctor_set(x_43, 1, x_33);
return x_43;
}
else
{
lean_object* x_44; lean_object* x_45;
x_44 = lean_box_uint32(x_40);
x_45 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_45, 0, x_44);
lean_ctor_set(x_45, 1, x_33);
return x_45;
}
}
else
{
lean_object* x_46; lean_object* x_47;
lean_dec(x_39);
x_46 = lean_box_uint32(x_4);
x_47 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_47, 0, x_46);
lean_ctor_set(x_47, 1, x_33);
return x_47;
}
}
else
{
lean_object* x_48; lean_object* x_49;
lean_dec(x_37);
x_48 = lean_box_uint32(x_4);
x_49 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_49, 0, x_48);
lean_ctor_set(x_49, 1, x_33);
return x_49;
}
}
}
}
else
{
lean_object* x_50; lean_object* x_51;
lean_dec(x_10);
lean_dec(x_9);
lean_dec(x_8);
lean_dec(x_1);
x_50 = lean_box_uint32(x_4);
x_51 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_51, 0, x_50);
lean_ctor_set(x_51, 1, x_7);
return x_51;
}
}
case 5:
{
lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; uint32_t x_57;
x_52 = lean_ctor_get(x_3, 0);
lean_inc(x_52);
x_53 = lean_ctor_get(x_3, 1);
lean_inc(x_53);
lean_dec(x_3);
lean_inc(x_1);
x_54 = l_Lean_Expr_FoldConstsImpl_fold___main___at_Lean_getMaxHeight___spec__1(x_1, x_2, x_52, x_4, x_7);
x_55 = lean_ctor_get(x_54, 0);
lean_inc(x_55);
x_56 = lean_ctor_get(x_54, 1);
lean_inc(x_56);
lean_dec(x_54);
x_57 = lean_unbox_uint32(x_55);
lean_dec(x_55);
x_3 = x_53;
x_4 = x_57;
x_5 = x_56;
goto _start;
}
case 6:
{
lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; uint32_t x_64;
x_59 = lean_ctor_get(x_3, 1);
lean_inc(x_59);
x_60 = lean_ctor_get(x_3, 2);
lean_inc(x_60);
lean_dec(x_3);
lean_inc(x_1);
x_61 = l_Lean_Expr_FoldConstsImpl_fold___main___at_Lean_getMaxHeight___spec__1(x_1, x_2, x_59, x_4, x_7);
x_62 = lean_ctor_get(x_61, 0);
lean_inc(x_62);
x_63 = lean_ctor_get(x_61, 1);
lean_inc(x_63);
lean_dec(x_61);
x_64 = lean_unbox_uint32(x_62);
lean_dec(x_62);
x_3 = x_60;
x_4 = x_64;
x_5 = x_63;
goto _start;
}
case 7:
{
lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; uint32_t x_71;
x_66 = lean_ctor_get(x_3, 1);
lean_inc(x_66);
x_67 = lean_ctor_get(x_3, 2);
lean_inc(x_67);
lean_dec(x_3);
lean_inc(x_1);
x_68 = l_Lean_Expr_FoldConstsImpl_fold___main___at_Lean_getMaxHeight___spec__1(x_1, x_2, x_66, x_4, x_7);
x_69 = lean_ctor_get(x_68, 0);
lean_inc(x_69);
x_70 = lean_ctor_get(x_68, 1);
lean_inc(x_70);
lean_dec(x_68);
x_71 = lean_unbox_uint32(x_69);
lean_dec(x_69);
x_3 = x_67;
x_4 = x_71;
x_5 = x_70;
goto _start;
}
case 8:
{
lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; uint32_t x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; uint32_t x_83;
x_73 = lean_ctor_get(x_3, 1);
lean_inc(x_73);
x_74 = lean_ctor_get(x_3, 2);
lean_inc(x_74);
x_75 = lean_ctor_get(x_3, 3);
lean_inc(x_75);
lean_dec(x_3);
lean_inc(x_1);
x_76 = l_Lean_Expr_FoldConstsImpl_fold___main___at_Lean_getMaxHeight___spec__1(x_1, x_2, x_73, x_4, x_7);
x_77 = lean_ctor_get(x_76, 0);
lean_inc(x_77);
x_78 = lean_ctor_get(x_76, 1);
lean_inc(x_78);
lean_dec(x_76);
x_79 = lean_unbox_uint32(x_77);
lean_dec(x_77);
lean_inc(x_1);
x_80 = l_Lean_Expr_FoldConstsImpl_fold___main___at_Lean_getMaxHeight___spec__1(x_1, x_2, x_74, x_79, x_78);
x_81 = lean_ctor_get(x_80, 0);
lean_inc(x_81);
x_82 = lean_ctor_get(x_80, 1);
lean_inc(x_82);
lean_dec(x_80);
x_83 = lean_unbox_uint32(x_81);
lean_dec(x_81);
x_3 = x_75;
x_4 = x_83;
x_5 = x_82;
goto _start;
}
case 10:
{
lean_object* x_85;
x_85 = lean_ctor_get(x_3, 1);
lean_inc(x_85);
lean_dec(x_3);
x_3 = x_85;
x_5 = x_7;
goto _start;
}
case 11:
{
lean_object* x_87;
x_87 = lean_ctor_get(x_3, 2);
lean_inc(x_87);
lean_dec(x_3);
x_3 = x_87;
x_5 = x_7;
goto _start;
}
default:
{
lean_object* x_89; lean_object* x_90;
lean_dec(x_3);
lean_dec(x_1);
x_89 = lean_box_uint32(x_4);
x_90 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_90, 0, x_89);
lean_ctor_set(x_90, 1, x_7);
return x_90;
}
}
}
else
{
lean_object* x_91; lean_object* x_92;
lean_dec(x_3);
lean_dec(x_1);
x_91 = lean_box_uint32(x_4);
x_92 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_92, 0, x_91);
lean_ctor_set(x_92, 1, x_7);
return x_92;
}
}
}
}
lean_object* l_Lean_getMaxHeight(lean_object* x_1, lean_object* x_2) {
_start:
{
uint32_t x_3; size_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_3 = 0;
x_4 = 8192;
x_5 = l_Lean_Expr_FoldConstsImpl_initCache;
x_6 = l_Lean_Expr_FoldConstsImpl_fold___main___at_Lean_getMaxHeight___spec__1(x_1, x_4, x_2, x_3, x_5);
x_7 = lean_ctor_get(x_6, 0);
lean_inc(x_7);
lean_dec(x_6);
return x_7;
}
}
lean_object* l_Lean_Expr_FoldConstsImpl_fold___main___at_Lean_getMaxHeight___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
size_t x_6; uint32_t x_7; lean_object* x_8;
x_6 = lean_unbox_usize(x_2);
lean_dec(x_2);
x_7 = lean_unbox_uint32(x_4);
lean_dec(x_4);
x_8 = l_Lean_Expr_FoldConstsImpl_fold___main___at_Lean_getMaxHeight___spec__1(x_1, x_6, x_3, x_7, x_5);
return x_8;
}
}
lean_object* initialize_Init_Control_Option(lean_object*);
lean_object* initialize_Init_Lean_Expr(lean_object*);
lean_object* initialize_Init_Lean_Environment(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_Init_Lean_Util_FoldConsts(lean_object* w) {
lean_object * res;
if (_G_initialized) return lean_mk_io_result(lean_box(0));
_G_initialized = true;
res = initialize_Init_Control_Option(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Init_Lean_Expr(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Init_Lean_Environment(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Expr_FoldConstsImpl_cacheSize = _init_l_Lean_Expr_FoldConstsImpl_cacheSize();
l_Lean_Expr_FoldConstsImpl_initCache___closed__1 = _init_l_Lean_Expr_FoldConstsImpl_initCache___closed__1();
lean_mark_persistent(l_Lean_Expr_FoldConstsImpl_initCache___closed__1);
l_Lean_Expr_FoldConstsImpl_initCache___closed__2 = _init_l_Lean_Expr_FoldConstsImpl_initCache___closed__2();
lean_mark_persistent(l_Lean_Expr_FoldConstsImpl_initCache___closed__2);
l_Lean_Expr_FoldConstsImpl_initCache = _init_l_Lean_Expr_FoldConstsImpl_initCache();
lean_mark_persistent(l_Lean_Expr_FoldConstsImpl_initCache);
return lean_mk_io_result(lean_box(0));
}
#ifdef __cplusplus
}
#endif