From 96bdc2b2e89ed33ef51a47d3d5d291639dbcd0c9 Mon Sep 17 00:00:00 2001 From: Leonardo de Moura Date: Mon, 16 Mar 2020 15:00:13 -0700 Subject: [PATCH] chore: update stage0 --- stage0/src/Init/Core.lean | 3 + stage0/src/Init/Lean/Data/Name.lean | 21 +- stage0/src/Init/Lean/Elab/Declaration.lean | 2 +- stage0/src/Init/Lean/Elab/Definition.lean | 27 +- stage0/src/Init/Lean/Meta/ExprDefEq.lean | 13 + stage0/src/Init/Lean/Meta/WHNF.lean | 36 +- stage0/src/Init/Lean/Parser/Term.lean | 2 + stage0/src/Init/Lean/Util.lean | 1 + stage0/src/Init/Lean/Util/FoldConsts.lean | 74 + stage0/stdlib/CMakeLists.txt | 2 +- stage0/stdlib/Init/Lean/Attributes.c | 253 +- stage0/stdlib/Init/Lean/Compiler/ExportAttr.c | 22 +- stage0/stdlib/Init/Lean/Compiler/ExternAttr.c | 20 +- .../Init/Lean/Compiler/IR/ElimDeadBranches.c | 3 +- stage0/stdlib/Init/Lean/Compiler/IR/EmitC.c | 3 +- .../Init/Lean/Compiler/ImplementedByAttr.c | 22 +- stage0/stdlib/Init/Lean/Compiler/InitAttr.c | 22 +- .../stdlib/Init/Lean/Compiler/InlineAttrs.c | 12 +- stage0/stdlib/Init/Lean/Compiler/Specialize.c | 12 +- stage0/stdlib/Init/Lean/Data/Name.c | 469 +- stage0/stdlib/Init/Lean/Elab/Alias.c | 45 +- stage0/stdlib/Init/Lean/Elab/Command.c | 8 +- stage0/stdlib/Init/Lean/Elab/Declaration.c | 6 +- stage0/stdlib/Init/Lean/Elab/Definition.c | 499 +- stage0/stdlib/Init/Lean/Elab/Level.c | 4 +- stage0/stdlib/Init/Lean/Elab/Quotation.c | 4 +- stage0/stdlib/Init/Lean/Elab/ResolveName.c | 8 +- stage0/stdlib/Init/Lean/Elab/StrategyAttrs.c | 12 +- stage0/stdlib/Init/Lean/Elab/Syntax.c | 125 +- stage0/stdlib/Init/Lean/Elab/Term.c | 39 +- stage0/stdlib/Init/Lean/Environment.c | 92 +- stage0/stdlib/Init/Lean/Meta/ExprDefEq.c | 6645 +++++------------ stage0/stdlib/Init/Lean/Meta/RecursorInfo.c | 22 +- stage0/stdlib/Init/Lean/Meta/WHNF.c | 1467 +++- stage0/stdlib/Init/Lean/Parser/Parser.c | 55 +- stage0/stdlib/Init/Lean/Parser/Term.c | 463 ++ stage0/stdlib/Init/Lean/ProjFns.c | 113 +- stage0/stdlib/Init/Lean/ReducibilityAttrs.c | 12 +- stage0/stdlib/Init/Lean/Scopes.c | 42 +- stage0/stdlib/Init/Lean/Util.c | 6 +- stage0/stdlib/Init/Lean/Util/CollectFVars.c | 9 +- stage0/stdlib/Init/Lean/Util/FoldConsts.c | 975 +++ 42 files changed, 5964 insertions(+), 5706 deletions(-) create mode 100644 stage0/src/Init/Lean/Util/FoldConsts.lean create mode 100644 stage0/stdlib/Init/Lean/Util/FoldConsts.c diff --git a/stage0/src/Init/Core.lean b/stage0/src/Init/Core.lean index e0dcee71ed..850a760114 100644 --- a/stage0/src/Init/Core.lean +++ b/stage0/src/Init/Core.lean @@ -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 -/ diff --git a/stage0/src/Init/Lean/Data/Name.lean b/stage0/src/Init/Lean/Data/Name.lean index 4dbb3b5630..f6d7d114e7 100644 --- a/stage0/src/Init/Lean/Data/Name.lean +++ b/stage0/src/Init/Lean/Data/Name.lean @@ -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 diff --git a/stage0/src/Init/Lean/Elab/Declaration.lean b/stage0/src/Init/Lean/Elab/Declaration.lean index abf85a2bc7..52ef36fab7 100644 --- a/stage0/src/Init/Lean/Elab/Declaration.lean +++ b/stage0/src/Init/Lean/Elab/Declaration.lean @@ -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 } diff --git a/stage0/src/Init/Lean/Elab/Definition.lean b/stage0/src/Init/Lean/Elab/Definition.lean index 0f8e4b4be7..d99c6504d0 100644 --- a/stage0/src/Init/Lean/Elab/Definition.lean +++ b/stage0/src/Init/Lean/Elab/Definition.lean @@ -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! diff --git a/stage0/src/Init/Lean/Meta/ExprDefEq.lean b/stage0/src/Init/Lean/Meta/ExprDefEq.lean index e447f51ddb..e028e2a980 100644 --- a/stage0/src/Init/Lean/Meta/ExprDefEq.lean +++ b/stage0/src/Init/Lean/Meta/ExprDefEq.lean @@ -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 diff --git a/stage0/src/Init/Lean/Meta/WHNF.lean b/stage0/src/Init/Lean/Meta/WHNF.lean index 61eff6c4f4..5975d794da 100644 --- a/stage0/src/Init/Lean/Meta/WHNF.lean +++ b/stage0/src/Init/Lean/Meta/WHNF.lean @@ -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 diff --git a/stage0/src/Init/Lean/Parser/Term.lean b/stage0/src/Init/Lean/Parser/Term.lean index 1c2cf0f467..5ee20c18eb 100644 --- a/stage0/src/Init/Lean/Parser/Term.lean +++ b/stage0/src/Init/Lean/Parser/Term.lean @@ -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 diff --git a/stage0/src/Init/Lean/Util.lean b/stage0/src/Init/Lean/Util.lean index 3b439978df..aa614b1111 100644 --- a/stage0/src/Init/Lean/Util.lean +++ b/stage0/src/Init/Lean/Util.lean @@ -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 diff --git a/stage0/src/Init/Lean/Util/FoldConsts.lean b/stage0/src/Init/Lean/Util/FoldConsts.lean new file mode 100644 index 0000000000..d45a9fbf3a --- /dev/null +++ b/stage0/src/Init/Lean/Util/FoldConsts.lean @@ -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 diff --git a/stage0/stdlib/CMakeLists.txt b/stage0/stdlib/CMakeLists.txt index 055203c09b..f694618097 100644 --- a/stage0/stdlib/CMakeLists.txt +++ b/stage0/stdlib/CMakeLists.txt @@ -1 +1 @@ -add_library (stage0 OBJECT Init/./Coe.c Init/./Control.c Init/./Control/Alternative.c Init/./Control/Applicative.c Init/./Control/Conditional.c Init/./Control/EState.c Init/./Control/Except.c Init/./Control/Functor.c Init/./Control/Id.c Init/./Control/Lift.c Init/./Control/Monad.c Init/./Control/Option.c Init/./Control/Reader.c Init/./Control/State.c Init/./Core.c Init/./Data.c Init/./Data/Array.c Init/./Data/Array/Basic.c Init/./Data/Array/BinSearch.c Init/./Data/Array/QSort.c Init/./Data/AssocList.c Init/./Data/Basic.c Init/./Data/BinomialHeap.c Init/./Data/BinomialHeap/Basic.c Init/./Data/ByteArray.c Init/./Data/ByteArray/Basic.c Init/./Data/Char.c Init/./Data/Char/Basic.c Init/./Data/DList.c Init/./Data/Fin.c Init/./Data/Fin/Basic.c Init/./Data/HashMap.c Init/./Data/HashMap/Basic.c Init/./Data/HashSet.c Init/./Data/Hashable.c Init/./Data/Int.c Init/./Data/Int/Basic.c Init/./Data/List.c Init/./Data/List/Basic.c Init/./Data/List/BasicAux.c Init/./Data/List/Control.c Init/./Data/List/Instances.c Init/./Data/Nat.c Init/./Data/Nat/Basic.c Init/./Data/Nat/Bitwise.c Init/./Data/Nat/Control.c Init/./Data/Nat/Div.c Init/./Data/Option.c Init/./Data/Option/Basic.c Init/./Data/Option/BasicAux.c Init/./Data/Option/Instances.c Init/./Data/PersistentArray.c Init/./Data/PersistentArray/Basic.c Init/./Data/PersistentHashMap.c Init/./Data/PersistentHashMap/Basic.c Init/./Data/PersistentHashSet.c Init/./Data/Queue.c Init/./Data/Queue/Basic.c Init/./Data/RBMap.c Init/./Data/RBMap/Basic.c Init/./Data/RBMap/BasicAux.c Init/./Data/RBTree.c Init/./Data/RBTree/Basic.c Init/./Data/Random.c Init/./Data/Repr.c Init/./Data/Stack.c Init/./Data/Stack/Basic.c Init/./Data/String.c Init/./Data/String/Basic.c Init/./Data/ToString.c Init/./Data/UInt.c Init/./Default.c Init/./Fix.c Init/./HasCoe.c Init/./Lean.c Init/./Lean/Attributes.c Init/./Lean/AuxRecursor.c Init/./Lean/Class.c Init/./Lean/Compiler.c Init/./Lean/Compiler/ClosedTermCache.c Init/./Lean/Compiler/ConstFolding.c Init/./Lean/Compiler/ExportAttr.c Init/./Lean/Compiler/ExternAttr.c Init/./Lean/Compiler/IR.c Init/./Lean/Compiler/IR/Basic.c Init/./Lean/Compiler/IR/Borrow.c Init/./Lean/Compiler/IR/Boxing.c Init/./Lean/Compiler/IR/Checker.c Init/./Lean/Compiler/IR/CompilerM.c Init/./Lean/Compiler/IR/CtorLayout.c Init/./Lean/Compiler/IR/ElimDeadBranches.c Init/./Lean/Compiler/IR/ElimDeadVars.c Init/./Lean/Compiler/IR/EmitC.c Init/./Lean/Compiler/IR/EmitUtil.c Init/./Lean/Compiler/IR/ExpandResetReuse.c Init/./Lean/Compiler/IR/Format.c Init/./Lean/Compiler/IR/FreeVars.c Init/./Lean/Compiler/IR/LiveVars.c Init/./Lean/Compiler/IR/NormIds.c Init/./Lean/Compiler/IR/PushProj.c Init/./Lean/Compiler/IR/RC.c Init/./Lean/Compiler/IR/ResetReuse.c Init/./Lean/Compiler/IR/SimpCase.c Init/./Lean/Compiler/IR/UnboxResult.c Init/./Lean/Compiler/ImplementedByAttr.c Init/./Lean/Compiler/InitAttr.c Init/./Lean/Compiler/InlineAttrs.c Init/./Lean/Compiler/NameMangling.c Init/./Lean/Compiler/NeverExtractAttr.c Init/./Lean/Compiler/Specialize.c Init/./Lean/Compiler/Util.c Init/./Lean/Data/Format.c Init/./Lean/Data/KVMap.c Init/./Lean/Data/LBool.c Init/./Lean/Data/LOption.c Init/./Lean/Data/Name.c Init/./Lean/Data/Occurrences.c Init/./Lean/Data/Options.c Init/./Lean/Data/Position.c Init/./Lean/Data/SMap.c Init/./Lean/Data/Trie.c Init/./Lean/Declaration.c Init/./Lean/Elab.c Init/./Lean/Elab/Alias.c Init/./Lean/Elab/App.c Init/./Lean/Elab/Binders.c Init/./Lean/Elab/BuiltinNotation.c Init/./Lean/Elab/Command.c Init/./Lean/Elab/DeclModifiers.c Init/./Lean/Elab/Declaration.c Init/./Lean/Elab/Definition.c Init/./Lean/Elab/DoNotation.c Init/./Lean/Elab/Exception.c Init/./Lean/Elab/Frontend.c Init/./Lean/Elab/Import.c Init/./Lean/Elab/Level.c Init/./Lean/Elab/Log.c Init/./Lean/Elab/Match.c Init/./Lean/Elab/Quotation.c Init/./Lean/Elab/ResolveName.c Init/./Lean/Elab/StrategyAttrs.c Init/./Lean/Elab/StructInst.c Init/./Lean/Elab/Syntax.c Init/./Lean/Elab/SyntheticMVars.c Init/./Lean/Elab/Tactic.c Init/./Lean/Elab/Tactic/Basic.c Init/./Lean/Elab/Tactic/ElabTerm.c Init/./Lean/Elab/Tactic/Generalize.c Init/./Lean/Elab/Tactic/Induction.c Init/./Lean/Elab/Tactic/Injection.c Init/./Lean/Elab/Term.c Init/./Lean/Elab/Util.c Init/./Lean/Environment.c Init/./Lean/EqnCompiler.c Init/./Lean/EqnCompiler/MatchPattern.c Init/./Lean/Eval.c Init/./Lean/Expr.c Init/./Lean/HeadIndex.c Init/./Lean/Hygiene.c Init/./Lean/KeyedDeclsAttribute.c Init/./Lean/Level.c Init/./Lean/Linter.c Init/./Lean/LocalContext.c Init/./Lean/Message.c Init/./Lean/Meta.c Init/./Lean/Meta/AbstractMVars.c Init/./Lean/Meta/AppBuilder.c Init/./Lean/Meta/Basic.c Init/./Lean/Meta/Check.c Init/./Lean/Meta/DiscrTree.c Init/./Lean/Meta/DiscrTreeTypes.c Init/./Lean/Meta/Exception.c Init/./Lean/Meta/ExprDefEq.c Init/./Lean/Meta/FunInfo.c Init/./Lean/Meta/InferType.c Init/./Lean/Meta/Instances.c Init/./Lean/Meta/KAbstract.c Init/./Lean/Meta/LevelDefEq.c Init/./Lean/Meta/Message.c Init/./Lean/Meta/Offset.c Init/./Lean/Meta/RecursorInfo.c Init/./Lean/Meta/Reduce.c Init/./Lean/Meta/SynthInstance.c Init/./Lean/Meta/Tactic.c Init/./Lean/Meta/Tactic/Apply.c Init/./Lean/Meta/Tactic/Assert.c Init/./Lean/Meta/Tactic/Assumption.c Init/./Lean/Meta/Tactic/Cases.c Init/./Lean/Meta/Tactic/Clear.c Init/./Lean/Meta/Tactic/FVarSubst.c Init/./Lean/Meta/Tactic/Generalize.c Init/./Lean/Meta/Tactic/Induction.c Init/./Lean/Meta/Tactic/Injection.c Init/./Lean/Meta/Tactic/Intro.c Init/./Lean/Meta/Tactic/LocalDecl.c Init/./Lean/Meta/Tactic/Revert.c Init/./Lean/Meta/Tactic/Rewrite.c Init/./Lean/Meta/Tactic/Subst.c Init/./Lean/Meta/Tactic/Target.c Init/./Lean/Meta/Tactic/Util.c Init/./Lean/Meta/WHNF.c Init/./Lean/MetavarContext.c Init/./Lean/Modifiers.c Init/./Lean/Parser.c Init/./Lean/Parser/Command.c Init/./Lean/Parser/Level.c Init/./Lean/Parser/Module.c Init/./Lean/Parser/Parser.c Init/./Lean/Parser/Syntax.c Init/./Lean/Parser/Tactic.c Init/./Lean/Parser/Term.c Init/./Lean/Parser/Transform.c Init/./Lean/ProjFns.c Init/./Lean/ReducibilityAttrs.c Init/./Lean/Runtime.c Init/./Lean/Scopes.c Init/./Lean/Structure.c Init/./Lean/Syntax.c Init/./Lean/ToExpr.c Init/./Lean/Util.c Init/./Lean/Util/CollectFVars.c Init/./Lean/Util/CollectLevelParams.c Init/./Lean/Util/CollectMVars.c Init/./Lean/Util/FindExpr.c Init/./Lean/Util/FindMVar.c Init/./Lean/Util/MonadCache.c Init/./Lean/Util/PPExt.c Init/./Lean/Util/PPGoal.c Init/./Lean/Util/Path.c Init/./Lean/Util/Profile.c Init/./Lean/Util/RecDepth.c Init/./Lean/Util/ReplaceExpr.c Init/./Lean/Util/Sorry.c Init/./Lean/Util/Trace.c Init/./Lean/Util/WHNF.c Init/./LeanInit.c Init/./ShareCommon.c Init/./System.c Init/./System/FilePath.c Init/./System/IO.c Init/./System/IOError.c Init/./System/Platform.c Init/./Util.c Init/./WF.c) +add_library (stage0 OBJECT Init/./Coe.c Init/./Control.c Init/./Control/Alternative.c Init/./Control/Applicative.c Init/./Control/Conditional.c Init/./Control/EState.c Init/./Control/Except.c Init/./Control/Functor.c Init/./Control/Id.c Init/./Control/Lift.c Init/./Control/Monad.c Init/./Control/Option.c Init/./Control/Reader.c Init/./Control/State.c Init/./Core.c Init/./Data.c Init/./Data/Array.c Init/./Data/Array/Basic.c Init/./Data/Array/BinSearch.c Init/./Data/Array/QSort.c Init/./Data/AssocList.c Init/./Data/Basic.c Init/./Data/BinomialHeap.c Init/./Data/BinomialHeap/Basic.c Init/./Data/ByteArray.c Init/./Data/ByteArray/Basic.c Init/./Data/Char.c Init/./Data/Char/Basic.c Init/./Data/DList.c Init/./Data/Fin.c Init/./Data/Fin/Basic.c Init/./Data/HashMap.c Init/./Data/HashMap/Basic.c Init/./Data/HashSet.c Init/./Data/Hashable.c Init/./Data/Int.c Init/./Data/Int/Basic.c Init/./Data/List.c Init/./Data/List/Basic.c Init/./Data/List/BasicAux.c Init/./Data/List/Control.c Init/./Data/List/Instances.c Init/./Data/Nat.c Init/./Data/Nat/Basic.c Init/./Data/Nat/Bitwise.c Init/./Data/Nat/Control.c Init/./Data/Nat/Div.c Init/./Data/Option.c Init/./Data/Option/Basic.c Init/./Data/Option/BasicAux.c Init/./Data/Option/Instances.c Init/./Data/PersistentArray.c Init/./Data/PersistentArray/Basic.c Init/./Data/PersistentHashMap.c Init/./Data/PersistentHashMap/Basic.c Init/./Data/PersistentHashSet.c Init/./Data/Queue.c Init/./Data/Queue/Basic.c Init/./Data/RBMap.c Init/./Data/RBMap/Basic.c Init/./Data/RBMap/BasicAux.c Init/./Data/RBTree.c Init/./Data/RBTree/Basic.c Init/./Data/Random.c Init/./Data/Repr.c Init/./Data/Stack.c Init/./Data/Stack/Basic.c Init/./Data/String.c Init/./Data/String/Basic.c Init/./Data/ToString.c Init/./Data/UInt.c Init/./Default.c Init/./Fix.c Init/./HasCoe.c Init/./Lean.c Init/./Lean/Attributes.c Init/./Lean/AuxRecursor.c Init/./Lean/Class.c Init/./Lean/Compiler.c Init/./Lean/Compiler/ClosedTermCache.c Init/./Lean/Compiler/ConstFolding.c Init/./Lean/Compiler/ExportAttr.c Init/./Lean/Compiler/ExternAttr.c Init/./Lean/Compiler/IR.c Init/./Lean/Compiler/IR/Basic.c Init/./Lean/Compiler/IR/Borrow.c Init/./Lean/Compiler/IR/Boxing.c Init/./Lean/Compiler/IR/Checker.c Init/./Lean/Compiler/IR/CompilerM.c Init/./Lean/Compiler/IR/CtorLayout.c Init/./Lean/Compiler/IR/ElimDeadBranches.c Init/./Lean/Compiler/IR/ElimDeadVars.c Init/./Lean/Compiler/IR/EmitC.c Init/./Lean/Compiler/IR/EmitUtil.c Init/./Lean/Compiler/IR/ExpandResetReuse.c Init/./Lean/Compiler/IR/Format.c Init/./Lean/Compiler/IR/FreeVars.c Init/./Lean/Compiler/IR/LiveVars.c Init/./Lean/Compiler/IR/NormIds.c Init/./Lean/Compiler/IR/PushProj.c Init/./Lean/Compiler/IR/RC.c Init/./Lean/Compiler/IR/ResetReuse.c Init/./Lean/Compiler/IR/SimpCase.c Init/./Lean/Compiler/IR/UnboxResult.c Init/./Lean/Compiler/ImplementedByAttr.c Init/./Lean/Compiler/InitAttr.c Init/./Lean/Compiler/InlineAttrs.c Init/./Lean/Compiler/NameMangling.c Init/./Lean/Compiler/NeverExtractAttr.c Init/./Lean/Compiler/Specialize.c Init/./Lean/Compiler/Util.c Init/./Lean/Data/Format.c Init/./Lean/Data/KVMap.c Init/./Lean/Data/LBool.c Init/./Lean/Data/LOption.c Init/./Lean/Data/Name.c Init/./Lean/Data/Occurrences.c Init/./Lean/Data/Options.c Init/./Lean/Data/Position.c Init/./Lean/Data/SMap.c Init/./Lean/Data/Trie.c Init/./Lean/Declaration.c Init/./Lean/Elab.c Init/./Lean/Elab/Alias.c Init/./Lean/Elab/App.c Init/./Lean/Elab/Binders.c Init/./Lean/Elab/BuiltinNotation.c Init/./Lean/Elab/Command.c Init/./Lean/Elab/DeclModifiers.c Init/./Lean/Elab/Declaration.c Init/./Lean/Elab/Definition.c Init/./Lean/Elab/DoNotation.c Init/./Lean/Elab/Exception.c Init/./Lean/Elab/Frontend.c Init/./Lean/Elab/Import.c Init/./Lean/Elab/Level.c Init/./Lean/Elab/Log.c Init/./Lean/Elab/Match.c Init/./Lean/Elab/Quotation.c Init/./Lean/Elab/ResolveName.c Init/./Lean/Elab/StrategyAttrs.c Init/./Lean/Elab/StructInst.c Init/./Lean/Elab/Syntax.c Init/./Lean/Elab/SyntheticMVars.c Init/./Lean/Elab/Tactic.c Init/./Lean/Elab/Tactic/Basic.c Init/./Lean/Elab/Tactic/ElabTerm.c Init/./Lean/Elab/Tactic/Generalize.c Init/./Lean/Elab/Tactic/Induction.c Init/./Lean/Elab/Tactic/Injection.c Init/./Lean/Elab/Term.c Init/./Lean/Elab/Util.c Init/./Lean/Environment.c Init/./Lean/EqnCompiler.c Init/./Lean/EqnCompiler/MatchPattern.c Init/./Lean/Eval.c Init/./Lean/Expr.c Init/./Lean/HeadIndex.c Init/./Lean/Hygiene.c Init/./Lean/KeyedDeclsAttribute.c Init/./Lean/Level.c Init/./Lean/Linter.c Init/./Lean/LocalContext.c Init/./Lean/Message.c Init/./Lean/Meta.c Init/./Lean/Meta/AbstractMVars.c Init/./Lean/Meta/AppBuilder.c Init/./Lean/Meta/Basic.c Init/./Lean/Meta/Check.c Init/./Lean/Meta/DiscrTree.c Init/./Lean/Meta/DiscrTreeTypes.c Init/./Lean/Meta/Exception.c Init/./Lean/Meta/ExprDefEq.c Init/./Lean/Meta/FunInfo.c Init/./Lean/Meta/InferType.c Init/./Lean/Meta/Instances.c Init/./Lean/Meta/KAbstract.c Init/./Lean/Meta/LevelDefEq.c Init/./Lean/Meta/Message.c Init/./Lean/Meta/Offset.c Init/./Lean/Meta/RecursorInfo.c Init/./Lean/Meta/Reduce.c Init/./Lean/Meta/SynthInstance.c Init/./Lean/Meta/Tactic.c Init/./Lean/Meta/Tactic/Apply.c Init/./Lean/Meta/Tactic/Assert.c Init/./Lean/Meta/Tactic/Assumption.c Init/./Lean/Meta/Tactic/Cases.c Init/./Lean/Meta/Tactic/Clear.c Init/./Lean/Meta/Tactic/FVarSubst.c Init/./Lean/Meta/Tactic/Generalize.c Init/./Lean/Meta/Tactic/Induction.c Init/./Lean/Meta/Tactic/Injection.c Init/./Lean/Meta/Tactic/Intro.c Init/./Lean/Meta/Tactic/LocalDecl.c Init/./Lean/Meta/Tactic/Revert.c Init/./Lean/Meta/Tactic/Rewrite.c Init/./Lean/Meta/Tactic/Subst.c Init/./Lean/Meta/Tactic/Target.c Init/./Lean/Meta/Tactic/Util.c Init/./Lean/Meta/WHNF.c Init/./Lean/MetavarContext.c Init/./Lean/Modifiers.c Init/./Lean/Parser.c Init/./Lean/Parser/Command.c Init/./Lean/Parser/Level.c Init/./Lean/Parser/Module.c Init/./Lean/Parser/Parser.c Init/./Lean/Parser/Syntax.c Init/./Lean/Parser/Tactic.c Init/./Lean/Parser/Term.c Init/./Lean/Parser/Transform.c Init/./Lean/ProjFns.c Init/./Lean/ReducibilityAttrs.c Init/./Lean/Runtime.c Init/./Lean/Scopes.c Init/./Lean/Structure.c Init/./Lean/Syntax.c Init/./Lean/ToExpr.c Init/./Lean/Util.c Init/./Lean/Util/CollectFVars.c Init/./Lean/Util/CollectLevelParams.c Init/./Lean/Util/CollectMVars.c Init/./Lean/Util/FindExpr.c Init/./Lean/Util/FindMVar.c Init/./Lean/Util/FoldConsts.c Init/./Lean/Util/MonadCache.c Init/./Lean/Util/PPExt.c Init/./Lean/Util/PPGoal.c Init/./Lean/Util/Path.c Init/./Lean/Util/Profile.c Init/./Lean/Util/RecDepth.c Init/./Lean/Util/ReplaceExpr.c Init/./Lean/Util/Sorry.c Init/./Lean/Util/Trace.c Init/./Lean/Util/WHNF.c Init/./LeanInit.c Init/./ShareCommon.c Init/./System.c Init/./System/FilePath.c Init/./System/IO.c Init/./System/IOError.c Init/./System/Platform.c Init/./Util.c Init/./WF.c) diff --git a/stage0/stdlib/Init/Lean/Attributes.c b/stage0/stdlib/Init/Lean/Attributes.c index 3f1c063af8..e4e1863f7c 100644 --- a/stage0/stdlib/Init/Lean/Attributes.c +++ b/stage0/stdlib/Init/Lean/Attributes.c @@ -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(); diff --git a/stage0/stdlib/Init/Lean/Compiler/ExportAttr.c b/stage0/stdlib/Init/Lean/Compiler/ExportAttr.c index 051828f378..d9b1656fca 100644 --- a/stage0/stdlib/Init/Lean/Compiler/ExportAttr.c +++ b/stage0/stdlib/Init/Lean/Compiler/ExportAttr.c @@ -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); diff --git a/stage0/stdlib/Init/Lean/Compiler/ExternAttr.c b/stage0/stdlib/Init/Lean/Compiler/ExternAttr.c index c6e3700874..3716d81374 100644 --- a/stage0/stdlib/Init/Lean/Compiler/ExternAttr.c +++ b/stage0/stdlib/Init/Lean/Compiler/ExternAttr.c @@ -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); diff --git a/stage0/stdlib/Init/Lean/Compiler/IR/ElimDeadBranches.c b/stage0/stdlib/Init/Lean/Compiler/IR/ElimDeadBranches.c index 88c0c6b3e6..830fcc32b8 100644 --- a/stage0/stdlib/Init/Lean/Compiler/IR/ElimDeadBranches.c +++ b/stage0/stdlib/Init/Lean/Compiler/IR/ElimDeadBranches.c @@ -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; } diff --git a/stage0/stdlib/Init/Lean/Compiler/IR/EmitC.c b/stage0/stdlib/Init/Lean/Compiler/IR/EmitC.c index faeae75405..92ae10a187 100644 --- a/stage0/stdlib/Init/Lean/Compiler/IR/EmitC.c +++ b/stage0/stdlib/Init/Lean/Compiler/IR/EmitC.c @@ -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); diff --git a/stage0/stdlib/Init/Lean/Compiler/ImplementedByAttr.c b/stage0/stdlib/Init/Lean/Compiler/ImplementedByAttr.c index 4cd226c79c..64ce93f3d9 100644 --- a/stage0/stdlib/Init/Lean/Compiler/ImplementedByAttr.c +++ b/stage0/stdlib/Init/Lean/Compiler/ImplementedByAttr.c @@ -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); diff --git a/stage0/stdlib/Init/Lean/Compiler/InitAttr.c b/stage0/stdlib/Init/Lean/Compiler/InitAttr.c index 57cba998f4..6e7d8ab878 100644 --- a/stage0/stdlib/Init/Lean/Compiler/InitAttr.c +++ b/stage0/stdlib/Init/Lean/Compiler/InitAttr.c @@ -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); diff --git a/stage0/stdlib/Init/Lean/Compiler/InlineAttrs.c b/stage0/stdlib/Init/Lean/Compiler/InlineAttrs.c index c68f2e5215..0685a9a3fc 100644 --- a/stage0/stdlib/Init/Lean/Compiler/InlineAttrs.c +++ b/stage0/stdlib/Init/Lean/Compiler/InlineAttrs.c @@ -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; diff --git a/stage0/stdlib/Init/Lean/Compiler/Specialize.c b/stage0/stdlib/Init/Lean/Compiler/Specialize.c index 2280a90bd2..8f28b80d09 100644 --- a/stage0/stdlib/Init/Lean/Compiler/Specialize.c +++ b/stage0/stdlib/Init/Lean/Compiler/Specialize.c @@ -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; diff --git a/stage0/stdlib/Init/Lean/Data/Name.c b/stage0/stdlib/Init/Lean/Data/Name.c index e8902ca606..04c5da7ce0 100644 --- a/stage0/stdlib/Init/Lean/Data/Name.c +++ b/stage0/stdlib/Init/Lean/Data/Name.c @@ -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 diff --git a/stage0/stdlib/Init/Lean/Elab/Alias.c b/stage0/stdlib/Init/Lean/Elab/Alias.c index c9eda572e6..770dcbbe74 100644 --- a/stage0/stdlib/Init/Lean/Elab/Alias.c +++ b/stage0/stdlib/Init/Lean/Elab/Alias.c @@ -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: { diff --git a/stage0/stdlib/Init/Lean/Elab/Command.c b/stage0/stdlib/Init/Lean/Elab/Command.c index a49dfe3eeb..9ff045f471 100644 --- a/stage0/stdlib/Init/Lean/Elab/Command.c +++ b/stage0/stdlib/Init/Lean/Elab/Command.c @@ -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) { diff --git a/stage0/stdlib/Init/Lean/Elab/Declaration.c b/stage0/stdlib/Init/Lean/Elab/Declaration.c index f7941f1c14..e9805b5879 100644 --- a/stage0/stdlib/Init/Lean/Elab/Declaration.c +++ b/stage0/stdlib/Init/Lean/Elab/Declaration.c @@ -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; diff --git a/stage0/stdlib/Init/Lean/Elab/Definition.c b/stage0/stdlib/Init/Lean/Elab/Definition.c index c7723af18d..7c15037f5e 100644 --- a/stage0/stdlib/Init/Lean/Elab/Definition.c +++ b/stage0/stdlib/Init/Lean/Elab/Definition.c @@ -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); diff --git a/stage0/stdlib/Init/Lean/Elab/Level.c b/stage0/stdlib/Init/Lean/Elab/Level.c index 02165ba260..56812c36c8 100644 --- a/stage0/stdlib/Init/Lean/Elab/Level.c +++ b/stage0/stdlib/Init/Lean/Elab/Level.c @@ -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; diff --git a/stage0/stdlib/Init/Lean/Elab/Quotation.c b/stage0/stdlib/Init/Lean/Elab/Quotation.c index 99a0a4d381..fbdd958f74 100644 --- a/stage0/stdlib/Init/Lean/Elab/Quotation.c +++ b/stage0/stdlib/Init/Lean/Elab/Quotation.c @@ -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); diff --git a/stage0/stdlib/Init/Lean/Elab/ResolveName.c b/stage0/stdlib/Init/Lean/Elab/ResolveName.c index 91603b5bbd..8d2ad25aa7 100644 --- a/stage0/stdlib/Init/Lean/Elab/ResolveName.c +++ b/stage0/stdlib/Init/Lean/Elab/ResolveName.c @@ -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; diff --git a/stage0/stdlib/Init/Lean/Elab/StrategyAttrs.c b/stage0/stdlib/Init/Lean/Elab/StrategyAttrs.c index 3f60642934..466650d844 100644 --- a/stage0/stdlib/Init/Lean/Elab/StrategyAttrs.c +++ b/stage0/stdlib/Init/Lean/Elab/StrategyAttrs.c @@ -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; diff --git a/stage0/stdlib/Init/Lean/Elab/Syntax.c b/stage0/stdlib/Init/Lean/Elab/Syntax.c index 435558b4d0..0790dd0d7a 100644 --- a/stage0/stdlib/Init/Lean/Elab/Syntax.c +++ b/stage0/stdlib/Init/Lean/Elab/Syntax.c @@ -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()); diff --git a/stage0/stdlib/Init/Lean/Elab/Term.c b/stage0/stdlib/Init/Lean/Elab/Term.c index ec486991bf..2be6be8a8a 100644 --- a/stage0/stdlib/Init/Lean/Elab/Term.c +++ b/stage0/stdlib/Init/Lean/Elab/Term.c @@ -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(); diff --git a/stage0/stdlib/Init/Lean/Environment.c b/stage0/stdlib/Init/Lean/Environment.c index ff844bd1f2..8aa7b6ae3a 100644 --- a/stage0/stdlib/Init/Lean/Environment.c +++ b/stage0/stdlib/Init/Lean/Environment.c @@ -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: { diff --git a/stage0/stdlib/Init/Lean/Meta/ExprDefEq.c b/stage0/stdlib/Init/Lean/Meta/ExprDefEq.c index 83e4777345..b69200514c 100644 --- a/stage0/stdlib/Init/Lean/Meta/ExprDefEq.c +++ b/stage0/stdlib/Init/Lean/Meta/ExprDefEq.c @@ -102,6 +102,7 @@ lean_object* l_Lean_Expr_getAppFn___main(lean_object*); lean_object* l___private_Init_Lean_Util_Trace_3__getResetTraces___at_Lean_Meta_check___spec__1___rarg(lean_object*); extern lean_object* l_Lean_Expr_getAppArgs___closed__1; lean_object* l___private_Init_Lean_Meta_ExprDefEq_14__processAssignmentFOApproxAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_isDefEqNative(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_isLevelDefEqAux___main___closed__5; lean_object* l___private_Init_Lean_Meta_ExprDefEq_25__isDefEqLeftRight___closed__1; @@ -211,6 +212,7 @@ lean_object* l___private_Init_Lean_Meta_ExprDefEq_7__isDefEqBinding(lean_object* lean_object* l___private_Init_Lean_Meta_ExprDefEq_6__isDefEqBindingAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_15__processAssignmentFOApprox___main___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Meta_TransparencyMode_beq(uint8_t, uint8_t); +lean_object* l_Lean_Meta_isListLevelDefEqAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); size_t lean_usize_modn(size_t, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_37__isSynthetic(lean_object*, lean_object*, lean_object*); @@ -263,6 +265,7 @@ uint8_t l_AssocList_contains___main___at___private_Init_Lean_Meta_ExprDefEq_10__ lean_object* l_Lean_LocalDecl_value_x3f(lean_object*); lean_object* lean_local_ctx_mk_local_decl(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t); lean_object* l___private_Init_Lean_Meta_ExprDefEq_38__isAssignable(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_ExprDefEq_43__isDefEqWHNF___at_Lean_Meta_isExprDefEqAuxImpl___spec__2___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_AssocList_replace___main___at___private_Init_Lean_Meta_ExprDefEq_10__cache___spec__6(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at_Lean_Meta_CheckAssignmentQuick_check___main___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -276,6 +279,7 @@ extern lean_object* l_Lean_Meta_ParamInfo_inhabited; lean_object* l_Lean_Meta_getLocalDecl(lean_object*, lean_object*, lean_object*); uint8_t lean_expr_eqv(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_12__checkAssignmentFailure___closed__5; +lean_object* l___private_Init_Lean_Meta_ExprDefEq_43__isDefEqWHNF___at_Lean_Meta_isExprDefEqAuxImpl___spec__2___lambda__1(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); uint8_t l_Lean_Expr_isMVar(lean_object*); uint8_t lean_expr_equal(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_44__unstuckMVar(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -340,6 +344,7 @@ extern lean_object* l_Lean_Expr_Inhabited; lean_object* l_Lean_Meta_instantiateMVars(lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_ExprDefEq_19__processAssignmentAux___main___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_mk_array(lean_object*, lean_object*); +lean_object* l_ReaderT_pure___at_Lean_Meta_MetaExtState_inhabited___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_commitWhen___at___private_Init_Lean_Meta_ExprDefEq_41__isDefEqQuick___main___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_CheckAssignment_mkAuxMVar(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_21__isDeltaCandidate(lean_object*, lean_object*, lean_object*); @@ -350,6 +355,7 @@ lean_object* l_Lean_Meta_withNewLocalInstances___main___at___private_Init_Lean_M lean_object* l___private_Init_Lean_Meta_Basic_5__forallTelescopeReducingAux___at___private_Init_Lean_Meta_ExprDefEq_18__processConstApprox___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isDefEqBindingDomain___main___at___private_Init_Lean_Meta_ExprDefEq_6__isDefEqBindingAux___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_41__isDefEqQuick___main(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceNative_x3f(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_whnfD(lean_object*, lean_object*, lean_object*); uint8_t l___private_Init_Lean_Meta_ExprDefEq_39__etaEq(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_ExprDefEq_35__isAssigned(lean_object*, lean_object*, lean_object*); @@ -945,6 +951,246 @@ lean_dec(x_3); return x_9; } } +lean_object* l_Lean_Meta_isDefEqNative(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +lean_inc(x_1); +x_5 = l_Lean_Meta_reduceNative_x3f(x_1, x_3, x_4); +if (lean_obj_tag(x_5) == 0) +{ +lean_object* x_6; +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_7; lean_object* x_8; +x_7 = lean_ctor_get(x_5, 1); +lean_inc(x_7); +lean_dec(x_5); +x_8 = l_Lean_Meta_reduceNative_x3f(x_2, x_3, x_7); +if (lean_obj_tag(x_8) == 0) +{ +lean_object* x_9; +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +if (lean_obj_tag(x_9) == 0) +{ +uint8_t x_10; +lean_dec(x_3); +lean_dec(x_1); +x_10 = !lean_is_exclusive(x_8); +if (x_10 == 0) +{ +lean_object* x_11; uint8_t x_12; lean_object* x_13; +x_11 = lean_ctor_get(x_8, 0); +lean_dec(x_11); +x_12 = 2; +x_13 = lean_box(x_12); +lean_ctor_set(x_8, 0, x_13); +return x_8; +} +else +{ +lean_object* x_14; uint8_t x_15; lean_object* x_16; lean_object* x_17; +x_14 = lean_ctor_get(x_8, 1); +lean_inc(x_14); +lean_dec(x_8); +x_15 = 2; +x_16 = lean_box(x_15); +x_17 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_17, 0, x_16); +lean_ctor_set(x_17, 1, x_14); +return x_17; +} +} +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_18 = lean_ctor_get(x_8, 1); +lean_inc(x_18); +lean_dec(x_8); +x_19 = lean_ctor_get(x_9, 0); +lean_inc(x_19); +lean_dec(x_9); +x_20 = l_Lean_Meta_isExprDefEqAux(x_1, x_19, x_3, x_18); +if (lean_obj_tag(x_20) == 0) +{ +uint8_t x_21; +x_21 = !lean_is_exclusive(x_20); +if (x_21 == 0) +{ +lean_object* x_22; uint8_t x_23; uint8_t x_24; lean_object* x_25; +x_22 = lean_ctor_get(x_20, 0); +x_23 = lean_unbox(x_22); +lean_dec(x_22); +x_24 = l_Bool_toLBool(x_23); +x_25 = lean_box(x_24); +lean_ctor_set(x_20, 0, x_25); +return x_20; +} +else +{ +lean_object* x_26; lean_object* x_27; uint8_t x_28; uint8_t x_29; lean_object* x_30; lean_object* x_31; +x_26 = lean_ctor_get(x_20, 0); +x_27 = lean_ctor_get(x_20, 1); +lean_inc(x_27); +lean_inc(x_26); +lean_dec(x_20); +x_28 = lean_unbox(x_26); +lean_dec(x_26); +x_29 = l_Bool_toLBool(x_28); +x_30 = lean_box(x_29); +x_31 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_31, 0, x_30); +lean_ctor_set(x_31, 1, x_27); +return x_31; +} +} +else +{ +uint8_t x_32; +x_32 = !lean_is_exclusive(x_20); +if (x_32 == 0) +{ +return x_20; +} +else +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; +x_33 = lean_ctor_get(x_20, 0); +x_34 = lean_ctor_get(x_20, 1); +lean_inc(x_34); +lean_inc(x_33); +lean_dec(x_20); +x_35 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_35, 0, x_33); +lean_ctor_set(x_35, 1, x_34); +return x_35; +} +} +} +} +else +{ +uint8_t x_36; +lean_dec(x_3); +lean_dec(x_1); +x_36 = !lean_is_exclusive(x_8); +if (x_36 == 0) +{ +return x_8; +} +else +{ +lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_37 = lean_ctor_get(x_8, 0); +x_38 = lean_ctor_get(x_8, 1); +lean_inc(x_38); +lean_inc(x_37); +lean_dec(x_8); +x_39 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_39, 0, x_37); +lean_ctor_set(x_39, 1, x_38); +return x_39; +} +} +} +else +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; +lean_dec(x_1); +x_40 = lean_ctor_get(x_5, 1); +lean_inc(x_40); +lean_dec(x_5); +x_41 = lean_ctor_get(x_6, 0); +lean_inc(x_41); +lean_dec(x_6); +x_42 = l_Lean_Meta_isExprDefEqAux(x_41, x_2, x_3, x_40); +if (lean_obj_tag(x_42) == 0) +{ +uint8_t x_43; +x_43 = !lean_is_exclusive(x_42); +if (x_43 == 0) +{ +lean_object* x_44; uint8_t x_45; uint8_t x_46; lean_object* x_47; +x_44 = lean_ctor_get(x_42, 0); +x_45 = lean_unbox(x_44); +lean_dec(x_44); +x_46 = l_Bool_toLBool(x_45); +x_47 = lean_box(x_46); +lean_ctor_set(x_42, 0, x_47); +return x_42; +} +else +{ +lean_object* x_48; lean_object* x_49; uint8_t x_50; uint8_t x_51; lean_object* x_52; lean_object* x_53; +x_48 = lean_ctor_get(x_42, 0); +x_49 = lean_ctor_get(x_42, 1); +lean_inc(x_49); +lean_inc(x_48); +lean_dec(x_42); +x_50 = lean_unbox(x_48); +lean_dec(x_48); +x_51 = l_Bool_toLBool(x_50); +x_52 = lean_box(x_51); +x_53 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_53, 0, x_52); +lean_ctor_set(x_53, 1, x_49); +return x_53; +} +} +else +{ +uint8_t x_54; +x_54 = !lean_is_exclusive(x_42); +if (x_54 == 0) +{ +return x_42; +} +else +{ +lean_object* x_55; lean_object* x_56; lean_object* x_57; +x_55 = lean_ctor_get(x_42, 0); +x_56 = lean_ctor_get(x_42, 1); +lean_inc(x_56); +lean_inc(x_55); +lean_dec(x_42); +x_57 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_57, 0, x_55); +lean_ctor_set(x_57, 1, x_56); +return x_57; +} +} +} +} +else +{ +uint8_t x_58; +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_58 = !lean_is_exclusive(x_5); +if (x_58 == 0) +{ +return x_5; +} +else +{ +lean_object* x_59; lean_object* x_60; lean_object* x_61; +x_59 = lean_ctor_get(x_5, 0); +x_60 = lean_ctor_get(x_5, 1); +lean_inc(x_60); +lean_inc(x_59); +lean_dec(x_5); +x_61 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_61, 0, x_59); +lean_ctor_set(x_61, 1, x_60); +return x_61; +} +} +} +} lean_object* l_Lean_Meta_isEtaUnassignedMVar(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -49962,6 +50208,30 @@ return x_62; } } } +lean_object* l___private_Init_Lean_Meta_ExprDefEq_43__isDefEqWHNF___at_Lean_Meta_isExprDefEqAuxImpl___spec__2___lambda__1(lean_object* x_1, lean_object* x_2, uint8_t x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +if (x_3 == 0) +{ +lean_object* x_6; +lean_inc(x_1); +x_6 = l___private_Init_Lean_Meta_ExprDefEq_44__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure___spec__2(x_1, x_2, x_1, x_4, x_5); +return x_6; +} +else +{ +lean_object* x_7; lean_object* x_8; +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_7 = lean_box(x_3); +x_8 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_8, 0, x_7); +lean_ctor_set(x_8, 1, x_5); +return x_8; +} +} +} lean_object* l___private_Init_Lean_Meta_ExprDefEq_43__isDefEqWHNF___at_Lean_Meta_isExprDefEqAuxImpl___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -50078,7 +50348,7 @@ return x_31; } default: { -lean_object* x_32; lean_object* x_33; uint8_t x_34; lean_object* x_35; lean_object* x_355; +lean_object* x_32; lean_object* x_33; uint8_t x_34; lean_object* x_35; lean_object* x_129; x_32 = lean_ctor_get(x_13, 1); lean_inc(x_32); if (lean_is_exclusive(x_13)) { @@ -50092,106 +50362,107 @@ if (lean_is_exclusive(x_13)) { lean_inc(x_3); lean_inc(x_9); lean_inc(x_6); -x_355 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_6, x_9, x_3, x_32); -if (lean_obj_tag(x_355) == 0) +x_129 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_6, x_9, x_3, x_32); +if (lean_obj_tag(x_129) == 0) { -lean_object* x_356; uint8_t x_357; -x_356 = lean_ctor_get(x_355, 0); -lean_inc(x_356); -x_357 = lean_unbox(x_356); -if (x_357 == 0) +lean_object* x_130; uint8_t x_131; +x_130 = lean_ctor_get(x_129, 0); +lean_inc(x_130); +x_131 = lean_unbox(x_130); +if (x_131 == 0) { -lean_object* x_358; lean_object* x_359; -lean_dec(x_356); -x_358 = lean_ctor_get(x_355, 1); -lean_inc(x_358); -lean_dec(x_355); +lean_object* x_132; lean_object* x_133; +lean_dec(x_130); +x_132 = lean_ctor_get(x_129, 1); +lean_inc(x_132); +lean_dec(x_129); lean_inc(x_3); lean_inc(x_6); lean_inc(x_9); -x_359 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_9, x_6, x_3, x_358); -if (lean_obj_tag(x_359) == 0) +x_133 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_9, x_6, x_3, x_132); +if (lean_obj_tag(x_133) == 0) { -lean_object* x_360; lean_object* x_361; uint8_t x_362; -x_360 = lean_ctor_get(x_359, 0); -lean_inc(x_360); -x_361 = lean_ctor_get(x_359, 1); -lean_inc(x_361); -lean_dec(x_359); -x_362 = lean_unbox(x_360); -lean_dec(x_360); -x_34 = x_362; -x_35 = x_361; -goto block_354; +lean_object* x_134; lean_object* x_135; uint8_t x_136; +x_134 = lean_ctor_get(x_133, 0); +lean_inc(x_134); +x_135 = lean_ctor_get(x_133, 1); +lean_inc(x_135); +lean_dec(x_133); +x_136 = lean_unbox(x_134); +lean_dec(x_134); +x_34 = x_136; +x_35 = x_135; +goto block_128; } else { -uint8_t x_363; +uint8_t x_137; lean_dec(x_33); lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_363 = !lean_is_exclusive(x_359); -if (x_363 == 0) +x_137 = !lean_is_exclusive(x_133); +if (x_137 == 0) { -return x_359; +return x_133; } else { -lean_object* x_364; lean_object* x_365; lean_object* x_366; -x_364 = lean_ctor_get(x_359, 0); -x_365 = lean_ctor_get(x_359, 1); -lean_inc(x_365); -lean_inc(x_364); -lean_dec(x_359); -x_366 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_366, 0, x_364); -lean_ctor_set(x_366, 1, x_365); -return x_366; +lean_object* x_138; lean_object* x_139; lean_object* x_140; +x_138 = lean_ctor_get(x_133, 0); +x_139 = lean_ctor_get(x_133, 1); +lean_inc(x_139); +lean_inc(x_138); +lean_dec(x_133); +x_140 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_140, 0, x_138); +lean_ctor_set(x_140, 1, x_139); +return x_140; } } } else { -lean_object* x_367; uint8_t x_368; -x_367 = lean_ctor_get(x_355, 1); -lean_inc(x_367); -lean_dec(x_355); -x_368 = lean_unbox(x_356); -lean_dec(x_356); -x_34 = x_368; -x_35 = x_367; -goto block_354; +lean_object* x_141; uint8_t x_142; +x_141 = lean_ctor_get(x_129, 1); +lean_inc(x_141); +lean_dec(x_129); +x_142 = lean_unbox(x_130); +lean_dec(x_130); +x_34 = x_142; +x_35 = x_141; +goto block_128; } } else { -uint8_t x_369; +uint8_t x_143; lean_dec(x_33); lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_369 = !lean_is_exclusive(x_355); -if (x_369 == 0) +x_143 = !lean_is_exclusive(x_129); +if (x_143 == 0) { -return x_355; +return x_129; } else { -lean_object* x_370; lean_object* x_371; lean_object* x_372; -x_370 = lean_ctor_get(x_355, 0); -x_371 = lean_ctor_get(x_355, 1); -lean_inc(x_371); -lean_inc(x_370); -lean_dec(x_355); -x_372 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_372, 0, x_370); -lean_ctor_set(x_372, 1, x_371); -return x_372; +lean_object* x_144; lean_object* x_145; lean_object* x_146; +x_144 = lean_ctor_get(x_129, 0); +x_145 = lean_ctor_get(x_129, 1); +lean_inc(x_145); +lean_inc(x_144); +lean_dec(x_129); +x_146 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_146, 0, x_144); +lean_ctor_set(x_146, 1, x_145); +return x_146; } } -block_354: +block_128: { +lean_object* x_36; if (x_34 == 0) { lean_dec(x_33); @@ -50200,1465 +50471,385 @@ case 4: { if (lean_obj_tag(x_9) == 4) { -lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; uint8_t x_40; -x_36 = lean_ctor_get(x_6, 0); -lean_inc(x_36); -x_37 = lean_ctor_get(x_6, 1); -lean_inc(x_37); -x_38 = lean_ctor_get(x_9, 0); -lean_inc(x_38); -x_39 = lean_ctor_get(x_9, 1); -lean_inc(x_39); -x_40 = lean_name_eq(x_36, x_38); -lean_dec(x_38); -lean_dec(x_36); -if (x_40 == 0) -{ -lean_object* x_41; -lean_dec(x_39); -lean_dec(x_37); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_41 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_35); -if (lean_obj_tag(x_41) == 0) -{ -lean_object* x_42; uint8_t x_43; -x_42 = lean_ctor_get(x_41, 0); -lean_inc(x_42); -x_43 = lean_unbox(x_42); -lean_dec(x_42); -switch (x_43) { -case 0: -{ -uint8_t x_44; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_44 = !lean_is_exclusive(x_41); -if (x_44 == 0) -{ -lean_object* x_45; uint8_t x_46; lean_object* x_47; -x_45 = lean_ctor_get(x_41, 0); -lean_dec(x_45); -x_46 = 0; -x_47 = lean_box(x_46); -lean_ctor_set(x_41, 0, x_47); -return x_41; -} -else -{ -lean_object* x_48; uint8_t x_49; lean_object* x_50; lean_object* x_51; -x_48 = lean_ctor_get(x_41, 1); -lean_inc(x_48); -lean_dec(x_41); -x_49 = 0; -x_50 = lean_box(x_49); -x_51 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_51, 0, x_50); -lean_ctor_set(x_51, 1, x_48); -return x_51; -} -} -case 1: -{ -uint8_t x_52; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_52 = !lean_is_exclusive(x_41); -if (x_52 == 0) -{ -lean_object* x_53; uint8_t x_54; lean_object* x_55; -x_53 = lean_ctor_get(x_41, 0); -lean_dec(x_53); -x_54 = 1; -x_55 = lean_box(x_54); -lean_ctor_set(x_41, 0, x_55); -return x_41; -} -else -{ -lean_object* x_56; uint8_t x_57; lean_object* x_58; lean_object* x_59; -x_56 = lean_ctor_get(x_41, 1); -lean_inc(x_56); -lean_dec(x_41); -x_57 = 1; -x_58 = lean_box(x_57); -x_59 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_59, 0, x_58); -lean_ctor_set(x_59, 1, x_56); -return x_59; -} -} -default: -{ -lean_object* x_60; lean_object* x_61; -x_60 = lean_ctor_get(x_41, 1); -lean_inc(x_60); -lean_dec(x_41); -x_61 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_60); -if (lean_obj_tag(x_61) == 0) -{ -lean_object* x_62; uint8_t x_63; -x_62 = lean_ctor_get(x_61, 0); -lean_inc(x_62); -x_63 = lean_unbox(x_62); -lean_dec(x_62); -switch (x_63) { -case 0: -{ -uint8_t x_64; -x_64 = !lean_is_exclusive(x_61); -if (x_64 == 0) -{ -lean_object* x_65; uint8_t x_66; lean_object* x_67; -x_65 = lean_ctor_get(x_61, 0); -lean_dec(x_65); -x_66 = 0; -x_67 = lean_box(x_66); -lean_ctor_set(x_61, 0, x_67); -return x_61; -} -else -{ -lean_object* x_68; uint8_t x_69; lean_object* x_70; lean_object* x_71; -x_68 = lean_ctor_get(x_61, 1); -lean_inc(x_68); -lean_dec(x_61); -x_69 = 0; -x_70 = lean_box(x_69); -x_71 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_71, 0, x_70); -lean_ctor_set(x_71, 1, x_68); -return x_71; -} -} -case 1: -{ -uint8_t x_72; -x_72 = !lean_is_exclusive(x_61); -if (x_72 == 0) -{ -lean_object* x_73; uint8_t x_74; lean_object* x_75; -x_73 = lean_ctor_get(x_61, 0); -lean_dec(x_73); -x_74 = 1; -x_75 = lean_box(x_74); -lean_ctor_set(x_61, 0, x_75); -return x_61; -} -else -{ -lean_object* x_76; uint8_t x_77; lean_object* x_78; lean_object* x_79; -x_76 = lean_ctor_get(x_61, 1); -lean_inc(x_76); -lean_dec(x_61); -x_77 = 1; -x_78 = lean_box(x_77); -x_79 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_79, 0, x_78); -lean_ctor_set(x_79, 1, x_76); -return x_79; -} -} -default: -{ -uint8_t x_80; -x_80 = !lean_is_exclusive(x_61); -if (x_80 == 0) -{ -lean_object* x_81; lean_object* x_82; -x_81 = lean_ctor_get(x_61, 0); -lean_dec(x_81); -x_82 = lean_box(x_34); -lean_ctor_set(x_61, 0, x_82); -return x_61; -} -else -{ -lean_object* x_83; lean_object* x_84; lean_object* x_85; -x_83 = lean_ctor_get(x_61, 1); -lean_inc(x_83); -lean_dec(x_61); -x_84 = lean_box(x_34); -x_85 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_85, 0, x_84); -lean_ctor_set(x_85, 1, x_83); -return x_85; -} -} -} -} -else -{ -uint8_t x_86; -x_86 = !lean_is_exclusive(x_61); -if (x_86 == 0) -{ -return x_61; -} -else -{ -lean_object* x_87; lean_object* x_88; lean_object* x_89; -x_87 = lean_ctor_get(x_61, 0); -x_88 = lean_ctor_get(x_61, 1); -lean_inc(x_88); -lean_inc(x_87); -lean_dec(x_61); -x_89 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_89, 0, x_87); -lean_ctor_set(x_89, 1, x_88); -return x_89; -} -} -} -} -} -else -{ -uint8_t x_90; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_90 = !lean_is_exclusive(x_41); -if (x_90 == 0) -{ -return x_41; -} -else -{ -lean_object* x_91; lean_object* x_92; lean_object* x_93; -x_91 = lean_ctor_get(x_41, 0); -x_92 = lean_ctor_get(x_41, 1); -lean_inc(x_92); -lean_inc(x_91); -lean_dec(x_41); -x_93 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_93, 0, x_91); -lean_ctor_set(x_93, 1, x_92); -return x_93; -} -} -} -else -{ -lean_object* x_94; -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_94 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_35); -if (lean_obj_tag(x_94) == 0) -{ -lean_object* x_95; uint8_t x_96; -x_95 = lean_ctor_get(x_94, 0); -lean_inc(x_95); -x_96 = lean_unbox(x_95); -lean_dec(x_95); -switch (x_96) { -case 0: -{ -uint8_t x_97; -lean_dec(x_39); -lean_dec(x_37); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_97 = !lean_is_exclusive(x_94); -if (x_97 == 0) -{ -lean_object* x_98; uint8_t x_99; lean_object* x_100; -x_98 = lean_ctor_get(x_94, 0); -lean_dec(x_98); -x_99 = 0; -x_100 = lean_box(x_99); -lean_ctor_set(x_94, 0, x_100); -return x_94; -} -else -{ -lean_object* x_101; uint8_t x_102; lean_object* x_103; lean_object* x_104; -x_101 = lean_ctor_get(x_94, 1); -lean_inc(x_101); -lean_dec(x_94); -x_102 = 0; -x_103 = lean_box(x_102); -x_104 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_104, 0, x_103); -lean_ctor_set(x_104, 1, x_101); -return x_104; -} -} -case 1: -{ -uint8_t x_105; -lean_dec(x_39); -lean_dec(x_37); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_105 = !lean_is_exclusive(x_94); -if (x_105 == 0) -{ -lean_object* x_106; uint8_t x_107; lean_object* x_108; -x_106 = lean_ctor_get(x_94, 0); -lean_dec(x_106); -x_107 = 1; -x_108 = lean_box(x_107); -lean_ctor_set(x_94, 0, x_108); -return x_94; -} -else -{ -lean_object* x_109; uint8_t x_110; lean_object* x_111; lean_object* x_112; -x_109 = lean_ctor_get(x_94, 1); -lean_inc(x_109); -lean_dec(x_94); -x_110 = 1; -x_111 = lean_box(x_110); -x_112 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_112, 0, x_111); -lean_ctor_set(x_112, 1, x_109); -return x_112; -} -} -default: -{ -lean_object* x_113; lean_object* x_114; -x_113 = lean_ctor_get(x_94, 1); +lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; uint8_t x_115; +x_111 = lean_ctor_get(x_6, 0); +lean_inc(x_111); +x_112 = lean_ctor_get(x_6, 1); +lean_inc(x_112); +x_113 = lean_ctor_get(x_9, 0); lean_inc(x_113); -lean_dec(x_94); -lean_inc(x_3); -x_114 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_113); -if (lean_obj_tag(x_114) == 0) +x_114 = lean_ctor_get(x_9, 1); +lean_inc(x_114); +x_115 = lean_name_eq(x_111, x_113); +lean_dec(x_113); +lean_dec(x_111); +if (x_115 == 0) { -lean_object* x_115; uint8_t x_116; -x_115 = lean_ctor_get(x_114, 0); -lean_inc(x_115); -x_116 = lean_unbox(x_115); -lean_dec(x_115); -switch (x_116) { -case 0: -{ -uint8_t x_117; -lean_dec(x_39); -lean_dec(x_37); -lean_dec(x_3); -x_117 = !lean_is_exclusive(x_114); -if (x_117 == 0) -{ -lean_object* x_118; uint8_t x_119; lean_object* x_120; -x_118 = lean_ctor_get(x_114, 0); -lean_dec(x_118); -x_119 = 0; -x_120 = lean_box(x_119); -lean_ctor_set(x_114, 0, x_120); -return x_114; -} -else -{ -lean_object* x_121; uint8_t x_122; lean_object* x_123; lean_object* x_124; -x_121 = lean_ctor_get(x_114, 1); -lean_inc(x_121); +lean_object* x_116; lean_object* x_117; lean_dec(x_114); -x_122 = 0; -x_123 = lean_box(x_122); -x_124 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_124, 0, x_123); -lean_ctor_set(x_124, 1, x_121); -return x_124; -} -} -case 1: -{ -uint8_t x_125; -lean_dec(x_39); -lean_dec(x_37); -lean_dec(x_3); -x_125 = !lean_is_exclusive(x_114); -if (x_125 == 0) -{ -lean_object* x_126; uint8_t x_127; lean_object* x_128; -x_126 = lean_ctor_get(x_114, 0); -lean_dec(x_126); -x_127 = 1; -x_128 = lean_box(x_127); -lean_ctor_set(x_114, 0, x_128); -return x_114; +lean_dec(x_112); +x_116 = lean_box(x_34); +x_117 = lean_alloc_closure((void*)(l_ReaderT_pure___at_Lean_Meta_MetaExtState_inhabited___spec__1___rarg___boxed), 3, 1); +lean_closure_set(x_117, 0, x_116); +x_36 = x_117; +goto block_110; } else { -lean_object* x_129; uint8_t x_130; lean_object* x_131; lean_object* x_132; -x_129 = lean_ctor_get(x_114, 1); -lean_inc(x_129); -lean_dec(x_114); -x_130 = 1; -x_131 = lean_box(x_130); -x_132 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_132, 0, x_131); -lean_ctor_set(x_132, 1, x_129); -return x_132; -} -} -default: -{ -lean_object* x_133; lean_object* x_134; -x_133 = lean_ctor_get(x_114, 1); -lean_inc(x_133); -lean_dec(x_114); -x_134 = l_Lean_Meta_isListLevelDefEqAux___main(x_37, x_39, x_3, x_133); -lean_dec(x_3); -return x_134; -} +lean_object* x_118; +x_118 = lean_alloc_closure((void*)(l_Lean_Meta_isListLevelDefEqAux___boxed), 4, 2); +lean_closure_set(x_118, 0, x_112); +lean_closure_set(x_118, 1, x_114); +x_36 = x_118; +goto block_110; } } else { -uint8_t x_135; -lean_dec(x_39); -lean_dec(x_37); -lean_dec(x_3); -x_135 = !lean_is_exclusive(x_114); -if (x_135 == 0) -{ -return x_114; -} -else -{ -lean_object* x_136; lean_object* x_137; lean_object* x_138; -x_136 = lean_ctor_get(x_114, 0); -x_137 = lean_ctor_get(x_114, 1); -lean_inc(x_137); -lean_inc(x_136); -lean_dec(x_114); -x_138 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_138, 0, x_136); -lean_ctor_set(x_138, 1, x_137); -return x_138; -} -} -} -} -} -else -{ -uint8_t x_139; -lean_dec(x_39); -lean_dec(x_37); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_139 = !lean_is_exclusive(x_94); -if (x_139 == 0) -{ -return x_94; -} -else -{ -lean_object* x_140; lean_object* x_141; lean_object* x_142; -x_140 = lean_ctor_get(x_94, 0); -x_141 = lean_ctor_get(x_94, 1); -lean_inc(x_141); -lean_inc(x_140); -lean_dec(x_94); -x_142 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_142, 0, x_140); -lean_ctor_set(x_142, 1, x_141); -return x_142; -} -} -} -} -else -{ -lean_object* x_143; -lean_inc(x_3); +lean_object* x_119; lean_inc(x_9); lean_inc(x_6); -x_143 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_35); -if (lean_obj_tag(x_143) == 0) -{ -lean_object* x_144; uint8_t x_145; -x_144 = lean_ctor_get(x_143, 0); -lean_inc(x_144); -x_145 = lean_unbox(x_144); -lean_dec(x_144); -switch (x_145) { -case 0: -{ -uint8_t x_146; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_146 = !lean_is_exclusive(x_143); -if (x_146 == 0) -{ -lean_object* x_147; uint8_t x_148; lean_object* x_149; -x_147 = lean_ctor_get(x_143, 0); -lean_dec(x_147); -x_148 = 0; -x_149 = lean_box(x_148); -lean_ctor_set(x_143, 0, x_149); -return x_143; -} -else -{ -lean_object* x_150; uint8_t x_151; lean_object* x_152; lean_object* x_153; -x_150 = lean_ctor_get(x_143, 1); -lean_inc(x_150); -lean_dec(x_143); -x_151 = 0; -x_152 = lean_box(x_151); -x_153 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_153, 0, x_152); -lean_ctor_set(x_153, 1, x_150); -return x_153; -} -} -case 1: -{ -uint8_t x_154; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_154 = !lean_is_exclusive(x_143); -if (x_154 == 0) -{ -lean_object* x_155; uint8_t x_156; lean_object* x_157; -x_155 = lean_ctor_get(x_143, 0); -lean_dec(x_155); -x_156 = 1; -x_157 = lean_box(x_156); -lean_ctor_set(x_143, 0, x_157); -return x_143; -} -else -{ -lean_object* x_158; uint8_t x_159; lean_object* x_160; lean_object* x_161; -x_158 = lean_ctor_get(x_143, 1); -lean_inc(x_158); -lean_dec(x_143); -x_159 = 1; -x_160 = lean_box(x_159); -x_161 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_161, 0, x_160); -lean_ctor_set(x_161, 1, x_158); -return x_161; -} -} -default: -{ -lean_object* x_162; lean_object* x_163; -x_162 = lean_ctor_get(x_143, 1); -lean_inc(x_162); -lean_dec(x_143); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_163 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_162); -if (lean_obj_tag(x_163) == 0) -{ -lean_object* x_164; uint8_t x_165; -x_164 = lean_ctor_get(x_163, 0); -lean_inc(x_164); -x_165 = lean_unbox(x_164); -lean_dec(x_164); -switch (x_165) { -case 0: -{ -uint8_t x_166; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_166 = !lean_is_exclusive(x_163); -if (x_166 == 0) -{ -lean_object* x_167; uint8_t x_168; lean_object* x_169; -x_167 = lean_ctor_get(x_163, 0); -lean_dec(x_167); -x_168 = 0; -x_169 = lean_box(x_168); -lean_ctor_set(x_163, 0, x_169); -return x_163; -} -else -{ -lean_object* x_170; uint8_t x_171; lean_object* x_172; lean_object* x_173; -x_170 = lean_ctor_get(x_163, 1); -lean_inc(x_170); -lean_dec(x_163); -x_171 = 0; -x_172 = lean_box(x_171); -x_173 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_173, 0, x_172); -lean_ctor_set(x_173, 1, x_170); -return x_173; -} -} -case 1: -{ -uint8_t x_174; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_174 = !lean_is_exclusive(x_163); -if (x_174 == 0) -{ -lean_object* x_175; uint8_t x_176; lean_object* x_177; -x_175 = lean_ctor_get(x_163, 0); -lean_dec(x_175); -x_176 = 1; -x_177 = lean_box(x_176); -lean_ctor_set(x_163, 0, x_177); -return x_163; -} -else -{ -lean_object* x_178; uint8_t x_179; lean_object* x_180; lean_object* x_181; -x_178 = lean_ctor_get(x_163, 1); -lean_inc(x_178); -lean_dec(x_163); -x_179 = 1; -x_180 = lean_box(x_179); -x_181 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_181, 0, x_180); -lean_ctor_set(x_181, 1, x_178); -return x_181; -} -} -default: -{ -lean_object* x_182; lean_object* x_183; -x_182 = lean_ctor_get(x_163, 1); -lean_inc(x_182); -lean_dec(x_163); -lean_inc(x_6); -x_183 = l___private_Init_Lean_Meta_ExprDefEq_44__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure___spec__2(x_6, x_9, x_6, x_3, x_182); -return x_183; -} -} -} -else -{ -uint8_t x_184; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_184 = !lean_is_exclusive(x_163); -if (x_184 == 0) -{ -return x_163; -} -else -{ -lean_object* x_185; lean_object* x_186; lean_object* x_187; -x_185 = lean_ctor_get(x_163, 0); -x_186 = lean_ctor_get(x_163, 1); -lean_inc(x_186); -lean_inc(x_185); -lean_dec(x_163); -x_187 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_187, 0, x_185); -lean_ctor_set(x_187, 1, x_186); -return x_187; -} -} -} -} -} -else -{ -uint8_t x_188; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_188 = !lean_is_exclusive(x_143); -if (x_188 == 0) -{ -return x_143; -} -else -{ -lean_object* x_189; lean_object* x_190; lean_object* x_191; -x_189 = lean_ctor_get(x_143, 0); -x_190 = lean_ctor_get(x_143, 1); -lean_inc(x_190); -lean_inc(x_189); -lean_dec(x_143); -x_191 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_191, 0, x_189); -lean_ctor_set(x_191, 1, x_190); -return x_191; -} -} +x_119 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure), 4, 2); +lean_closure_set(x_119, 0, x_6); +lean_closure_set(x_119, 1, x_9); +x_36 = x_119; +goto block_110; } } case 5: { if (lean_obj_tag(x_9) == 5) { -lean_object* x_192; lean_object* x_193; -x_192 = l_Lean_Expr_getAppFn___main(x_6); -lean_inc(x_3); +lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; +x_120 = l_Lean_Expr_getAppFn___main(x_6); lean_inc(x_9); lean_inc(x_6); -x_193 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_35); -if (lean_obj_tag(x_193) == 0) -{ -lean_object* x_194; uint8_t x_195; -x_194 = lean_ctor_get(x_193, 0); -lean_inc(x_194); -x_195 = lean_unbox(x_194); -lean_dec(x_194); -switch (x_195) { -case 0: -{ -uint8_t x_196; -lean_dec(x_192); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_196 = !lean_is_exclusive(x_193); -if (x_196 == 0) -{ -lean_object* x_197; uint8_t x_198; lean_object* x_199; -x_197 = lean_ctor_get(x_193, 0); -lean_dec(x_197); -x_198 = 0; -x_199 = lean_box(x_198); -lean_ctor_set(x_193, 0, x_199); -return x_193; +x_121 = lean_alloc_closure((void*)(l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1), 5, 3); +lean_closure_set(x_121, 0, x_6); +lean_closure_set(x_121, 1, x_9); +lean_closure_set(x_121, 2, x_120); +lean_inc(x_9); +lean_inc(x_6); +x_122 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_ExprDefEq_43__isDefEqWHNF___at_Lean_Meta_isExprDefEqAuxImpl___spec__2___lambda__1___boxed), 5, 2); +lean_closure_set(x_122, 0, x_6); +lean_closure_set(x_122, 1, x_9); +x_123 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_123, 0, x_121); +lean_closure_set(x_123, 1, x_122); +x_36 = x_123; +goto block_110; } else { -lean_object* x_200; uint8_t x_201; lean_object* x_202; lean_object* x_203; -x_200 = lean_ctor_get(x_193, 1); -lean_inc(x_200); -lean_dec(x_193); -x_201 = 0; -x_202 = lean_box(x_201); -x_203 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_203, 0, x_202); -lean_ctor_set(x_203, 1, x_200); -return x_203; -} -} -case 1: -{ -uint8_t x_204; -lean_dec(x_192); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_204 = !lean_is_exclusive(x_193); -if (x_204 == 0) -{ -lean_object* x_205; uint8_t x_206; lean_object* x_207; -x_205 = lean_ctor_get(x_193, 0); -lean_dec(x_205); -x_206 = 1; -x_207 = lean_box(x_206); -lean_ctor_set(x_193, 0, x_207); -return x_193; -} -else -{ -lean_object* x_208; uint8_t x_209; lean_object* x_210; lean_object* x_211; -x_208 = lean_ctor_get(x_193, 1); -lean_inc(x_208); -lean_dec(x_193); -x_209 = 1; -x_210 = lean_box(x_209); -x_211 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_211, 0, x_210); -lean_ctor_set(x_211, 1, x_208); -return x_211; +lean_object* x_124; +lean_inc(x_9); +lean_inc(x_6); +x_124 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure), 4, 2); +lean_closure_set(x_124, 0, x_6); +lean_closure_set(x_124, 1, x_9); +x_36 = x_124; +goto block_110; } } default: { -lean_object* x_212; lean_object* x_213; -x_212 = lean_ctor_get(x_193, 1); -lean_inc(x_212); -lean_dec(x_193); -lean_inc(x_3); +lean_object* x_125; lean_inc(x_9); lean_inc(x_6); -x_213 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_212); -if (lean_obj_tag(x_213) == 0) +x_125 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure), 4, 2); +lean_closure_set(x_125, 0, x_6); +lean_closure_set(x_125, 1, x_9); +x_36 = x_125; +goto block_110; +} +} +} +else { -lean_object* x_214; uint8_t x_215; -x_214 = lean_ctor_get(x_213, 0); -lean_inc(x_214); -x_215 = lean_unbox(x_214); -lean_dec(x_214); -switch (x_215) { -case 0: -{ -uint8_t x_216; -lean_dec(x_192); +lean_object* x_126; lean_object* x_127; lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_216 = !lean_is_exclusive(x_213); -if (x_216 == 0) -{ -lean_object* x_217; uint8_t x_218; lean_object* x_219; -x_217 = lean_ctor_get(x_213, 0); -lean_dec(x_217); -x_218 = 0; -x_219 = lean_box(x_218); -lean_ctor_set(x_213, 0, x_219); -return x_213; -} -else -{ -lean_object* x_220; uint8_t x_221; lean_object* x_222; lean_object* x_223; -x_220 = lean_ctor_get(x_213, 1); -lean_inc(x_220); -lean_dec(x_213); -x_221 = 0; -x_222 = lean_box(x_221); -x_223 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_223, 0, x_222); -lean_ctor_set(x_223, 1, x_220); -return x_223; -} -} -case 1: -{ -uint8_t x_224; -lean_dec(x_192); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_224 = !lean_is_exclusive(x_213); -if (x_224 == 0) -{ -lean_object* x_225; uint8_t x_226; lean_object* x_227; -x_225 = lean_ctor_get(x_213, 0); -lean_dec(x_225); -x_226 = 1; -x_227 = lean_box(x_226); -lean_ctor_set(x_213, 0, x_227); -return x_213; -} -else -{ -lean_object* x_228; uint8_t x_229; lean_object* x_230; lean_object* x_231; -x_228 = lean_ctor_get(x_213, 1); -lean_inc(x_228); -lean_dec(x_213); -x_229 = 1; -x_230 = lean_box(x_229); -x_231 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_231, 0, x_230); -lean_ctor_set(x_231, 1, x_228); -return x_231; -} -} -default: -{ -lean_object* x_232; lean_object* x_233; -x_232 = lean_ctor_get(x_213, 1); -lean_inc(x_232); -lean_dec(x_213); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_233 = l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(x_6, x_9, x_192, x_3, x_232); -if (lean_obj_tag(x_233) == 0) -{ -lean_object* x_234; uint8_t x_235; -x_234 = lean_ctor_get(x_233, 0); -lean_inc(x_234); -x_235 = lean_unbox(x_234); -if (x_235 == 0) -{ -lean_object* x_236; lean_object* x_237; -lean_dec(x_234); -x_236 = lean_ctor_get(x_233, 1); -lean_inc(x_236); -lean_dec(x_233); -lean_inc(x_6); -x_237 = l___private_Init_Lean_Meta_ExprDefEq_44__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure___spec__2(x_6, x_9, x_6, x_3, x_236); -return x_237; -} -else -{ -uint8_t x_238; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_238 = !lean_is_exclusive(x_233); -if (x_238 == 0) -{ -lean_object* x_239; -x_239 = lean_ctor_get(x_233, 0); -lean_dec(x_239); -return x_233; -} -else -{ -lean_object* x_240; lean_object* x_241; -x_240 = lean_ctor_get(x_233, 1); -lean_inc(x_240); -lean_dec(x_233); -x_241 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_241, 0, x_234); -lean_ctor_set(x_241, 1, x_240); -return x_241; -} -} -} -else -{ -uint8_t x_242; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_242 = !lean_is_exclusive(x_233); -if (x_242 == 0) -{ -return x_233; -} -else -{ -lean_object* x_243; lean_object* x_244; lean_object* x_245; -x_243 = lean_ctor_get(x_233, 0); -x_244 = lean_ctor_get(x_233, 1); -lean_inc(x_244); -lean_inc(x_243); -lean_dec(x_233); -x_245 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_245, 0, x_243); -lean_ctor_set(x_245, 1, x_244); -return x_245; -} -} -} -} -} -else -{ -uint8_t x_246; -lean_dec(x_192); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_246 = !lean_is_exclusive(x_213); -if (x_246 == 0) -{ -return x_213; -} -else -{ -lean_object* x_247; lean_object* x_248; lean_object* x_249; -x_247 = lean_ctor_get(x_213, 0); -x_248 = lean_ctor_get(x_213, 1); -lean_inc(x_248); -lean_inc(x_247); -lean_dec(x_213); -x_249 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_249, 0, x_247); -lean_ctor_set(x_249, 1, x_248); -return x_249; -} -} -} -} -} -else -{ -uint8_t x_250; -lean_dec(x_192); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_250 = !lean_is_exclusive(x_193); -if (x_250 == 0) -{ -return x_193; -} -else -{ -lean_object* x_251; lean_object* x_252; lean_object* x_253; -x_251 = lean_ctor_get(x_193, 0); -x_252 = lean_ctor_get(x_193, 1); -lean_inc(x_252); -lean_inc(x_251); -lean_dec(x_193); -x_253 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_253, 0, x_251); -lean_ctor_set(x_253, 1, x_252); -return x_253; -} -} -} -else -{ -lean_object* x_254; -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_254 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_35); -if (lean_obj_tag(x_254) == 0) -{ -lean_object* x_255; uint8_t x_256; -x_255 = lean_ctor_get(x_254, 0); -lean_inc(x_255); -x_256 = lean_unbox(x_255); -lean_dec(x_255); -switch (x_256) { -case 0: -{ -uint8_t x_257; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_257 = !lean_is_exclusive(x_254); -if (x_257 == 0) -{ -lean_object* x_258; uint8_t x_259; lean_object* x_260; -x_258 = lean_ctor_get(x_254, 0); -lean_dec(x_258); -x_259 = 0; -x_260 = lean_box(x_259); -lean_ctor_set(x_254, 0, x_260); -return x_254; -} -else -{ -lean_object* x_261; uint8_t x_262; lean_object* x_263; lean_object* x_264; -x_261 = lean_ctor_get(x_254, 1); -lean_inc(x_261); -lean_dec(x_254); -x_262 = 0; -x_263 = lean_box(x_262); -x_264 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_264, 0, x_263); -lean_ctor_set(x_264, 1, x_261); -return x_264; -} -} -case 1: -{ -uint8_t x_265; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_265 = !lean_is_exclusive(x_254); -if (x_265 == 0) -{ -lean_object* x_266; uint8_t x_267; lean_object* x_268; -x_266 = lean_ctor_get(x_254, 0); -lean_dec(x_266); -x_267 = 1; -x_268 = lean_box(x_267); -lean_ctor_set(x_254, 0, x_268); -return x_254; -} -else -{ -lean_object* x_269; uint8_t x_270; lean_object* x_271; lean_object* x_272; -x_269 = lean_ctor_get(x_254, 1); -lean_inc(x_269); -lean_dec(x_254); -x_270 = 1; -x_271 = lean_box(x_270); -x_272 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_272, 0, x_271); -lean_ctor_set(x_272, 1, x_269); -return x_272; -} -} -default: -{ -lean_object* x_273; lean_object* x_274; -x_273 = lean_ctor_get(x_254, 1); -lean_inc(x_273); -lean_dec(x_254); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_274 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_273); -if (lean_obj_tag(x_274) == 0) -{ -lean_object* x_275; uint8_t x_276; -x_275 = lean_ctor_get(x_274, 0); -lean_inc(x_275); -x_276 = lean_unbox(x_275); -lean_dec(x_275); -switch (x_276) { -case 0: -{ -uint8_t x_277; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_277 = !lean_is_exclusive(x_274); -if (x_277 == 0) -{ -lean_object* x_278; uint8_t x_279; lean_object* x_280; -x_278 = lean_ctor_get(x_274, 0); -lean_dec(x_278); -x_279 = 0; -x_280 = lean_box(x_279); -lean_ctor_set(x_274, 0, x_280); -return x_274; -} -else -{ -lean_object* x_281; uint8_t x_282; lean_object* x_283; lean_object* x_284; -x_281 = lean_ctor_get(x_274, 1); -lean_inc(x_281); -lean_dec(x_274); -x_282 = 0; -x_283 = lean_box(x_282); -x_284 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_284, 0, x_283); -lean_ctor_set(x_284, 1, x_281); -return x_284; -} -} -case 1: -{ -uint8_t x_285; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_285 = !lean_is_exclusive(x_274); -if (x_285 == 0) -{ -lean_object* x_286; uint8_t x_287; lean_object* x_288; -x_286 = lean_ctor_get(x_274, 0); -lean_dec(x_286); -x_287 = 1; -x_288 = lean_box(x_287); -lean_ctor_set(x_274, 0, x_288); -return x_274; -} -else -{ -lean_object* x_289; uint8_t x_290; lean_object* x_291; lean_object* x_292; -x_289 = lean_ctor_get(x_274, 1); -lean_inc(x_289); -lean_dec(x_274); -x_290 = 1; -x_291 = lean_box(x_290); -x_292 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_292, 0, x_291); -lean_ctor_set(x_292, 1, x_289); -return x_292; -} -} -default: -{ -lean_object* x_293; lean_object* x_294; -x_293 = lean_ctor_get(x_274, 1); -lean_inc(x_293); -lean_dec(x_274); -lean_inc(x_6); -x_294 = l___private_Init_Lean_Meta_ExprDefEq_44__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure___spec__2(x_6, x_9, x_6, x_3, x_293); -return x_294; -} -} -} -else -{ -uint8_t x_295; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_295 = !lean_is_exclusive(x_274); -if (x_295 == 0) -{ -return x_274; -} -else -{ -lean_object* x_296; lean_object* x_297; lean_object* x_298; -x_296 = lean_ctor_get(x_274, 0); -x_297 = lean_ctor_get(x_274, 1); -lean_inc(x_297); -lean_inc(x_296); -lean_dec(x_274); -x_298 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_298, 0, x_296); -lean_ctor_set(x_298, 1, x_297); -return x_298; -} -} -} -} -} -else -{ -uint8_t x_299; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_299 = !lean_is_exclusive(x_254); -if (x_299 == 0) -{ -return x_254; -} -else -{ -lean_object* x_300; lean_object* x_301; lean_object* x_302; -x_300 = lean_ctor_get(x_254, 0); -x_301 = lean_ctor_get(x_254, 1); -lean_inc(x_301); -lean_inc(x_300); -lean_dec(x_254); -x_302 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_302, 0, x_300); -lean_ctor_set(x_302, 1, x_301); -return x_302; -} -} -} -} -default: -{ -lean_object* x_303; -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_303 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_35); -if (lean_obj_tag(x_303) == 0) -{ -lean_object* x_304; uint8_t x_305; -x_304 = lean_ctor_get(x_303, 0); -lean_inc(x_304); -x_305 = lean_unbox(x_304); -lean_dec(x_304); -switch (x_305) { -case 0: -{ -uint8_t x_306; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_306 = !lean_is_exclusive(x_303); -if (x_306 == 0) -{ -lean_object* x_307; uint8_t x_308; lean_object* x_309; -x_307 = lean_ctor_get(x_303, 0); -lean_dec(x_307); -x_308 = 0; -x_309 = lean_box(x_308); -lean_ctor_set(x_303, 0, x_309); -return x_303; -} -else -{ -lean_object* x_310; uint8_t x_311; lean_object* x_312; lean_object* x_313; -x_310 = lean_ctor_get(x_303, 1); -lean_inc(x_310); -lean_dec(x_303); -x_311 = 0; -x_312 = lean_box(x_311); -x_313 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_313, 0, x_312); -lean_ctor_set(x_313, 1, x_310); -return x_313; -} -} -case 1: -{ -uint8_t x_314; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_314 = !lean_is_exclusive(x_303); -if (x_314 == 0) -{ -lean_object* x_315; uint8_t x_316; lean_object* x_317; -x_315 = lean_ctor_get(x_303, 0); -lean_dec(x_315); -x_316 = 1; -x_317 = lean_box(x_316); -lean_ctor_set(x_303, 0, x_317); -return x_303; -} -else -{ -lean_object* x_318; uint8_t x_319; lean_object* x_320; lean_object* x_321; -x_318 = lean_ctor_get(x_303, 1); -lean_inc(x_318); -lean_dec(x_303); -x_319 = 1; -x_320 = lean_box(x_319); -x_321 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_321, 0, x_320); -lean_ctor_set(x_321, 1, x_318); -return x_321; -} -} -default: -{ -lean_object* x_322; lean_object* x_323; -x_322 = lean_ctor_get(x_303, 1); -lean_inc(x_322); -lean_dec(x_303); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_323 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_322); -if (lean_obj_tag(x_323) == 0) -{ -lean_object* x_324; uint8_t x_325; -x_324 = lean_ctor_get(x_323, 0); -lean_inc(x_324); -x_325 = lean_unbox(x_324); -lean_dec(x_324); -switch (x_325) { -case 0: -{ -uint8_t x_326; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_326 = !lean_is_exclusive(x_323); -if (x_326 == 0) -{ -lean_object* x_327; uint8_t x_328; lean_object* x_329; -x_327 = lean_ctor_get(x_323, 0); -lean_dec(x_327); -x_328 = 0; -x_329 = lean_box(x_328); -lean_ctor_set(x_323, 0, x_329); -return x_323; -} -else -{ -lean_object* x_330; uint8_t x_331; lean_object* x_332; lean_object* x_333; -x_330 = lean_ctor_get(x_323, 1); -lean_inc(x_330); -lean_dec(x_323); -x_331 = 0; -x_332 = lean_box(x_331); -x_333 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_333, 0, x_332); -lean_ctor_set(x_333, 1, x_330); -return x_333; -} -} -case 1: -{ -uint8_t x_334; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_334 = !lean_is_exclusive(x_323); -if (x_334 == 0) -{ -lean_object* x_335; uint8_t x_336; lean_object* x_337; -x_335 = lean_ctor_get(x_323, 0); -lean_dec(x_335); -x_336 = 1; -x_337 = lean_box(x_336); -lean_ctor_set(x_323, 0, x_337); -return x_323; -} -else -{ -lean_object* x_338; uint8_t x_339; lean_object* x_340; lean_object* x_341; -x_338 = lean_ctor_get(x_323, 1); -lean_inc(x_338); -lean_dec(x_323); -x_339 = 1; -x_340 = lean_box(x_339); -x_341 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_341, 0, x_340); -lean_ctor_set(x_341, 1, x_338); -return x_341; -} -} -default: -{ -lean_object* x_342; lean_object* x_343; -x_342 = lean_ctor_get(x_323, 1); -lean_inc(x_342); -lean_dec(x_323); -lean_inc(x_6); -x_343 = l___private_Init_Lean_Meta_ExprDefEq_44__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure___spec__2(x_6, x_9, x_6, x_3, x_342); -return x_343; -} -} -} -else -{ -uint8_t x_344; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_344 = !lean_is_exclusive(x_323); -if (x_344 == 0) -{ -return x_323; -} -else -{ -lean_object* x_345; lean_object* x_346; lean_object* x_347; -x_345 = lean_ctor_get(x_323, 0); -x_346 = lean_ctor_get(x_323, 1); -lean_inc(x_346); -lean_inc(x_345); -lean_dec(x_323); -x_347 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_347, 0, x_345); -lean_ctor_set(x_347, 1, x_346); -return x_347; -} -} -} -} -} -else -{ -uint8_t x_348; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_348 = !lean_is_exclusive(x_303); -if (x_348 == 0) -{ -return x_303; -} -else -{ -lean_object* x_349; lean_object* x_350; lean_object* x_351; -x_349 = lean_ctor_get(x_303, 0); -x_350 = lean_ctor_get(x_303, 1); -lean_inc(x_350); -lean_inc(x_349); -lean_dec(x_303); -x_351 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_351, 0, x_349); -lean_ctor_set(x_351, 1, x_350); -return x_351; -} -} -} -} -} -else -{ -lean_object* x_352; lean_object* x_353; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_352 = lean_box(x_34); +x_126 = lean_box(x_34); if (lean_is_scalar(x_33)) { - x_353 = lean_alloc_ctor(0, 2, 0); + x_127 = lean_alloc_ctor(0, 2, 0); } else { - x_353 = x_33; + x_127 = x_33; } -lean_ctor_set(x_353, 0, x_352); -lean_ctor_set(x_353, 1, x_35); -return x_353; +lean_ctor_set(x_127, 0, x_126); +lean_ctor_set(x_127, 1, x_35); +return x_127; +} +block_110: +{ +lean_object* x_37; +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_37 = l_Lean_Meta_isDefEqNative(x_6, x_9, x_3, x_35); +if (lean_obj_tag(x_37) == 0) +{ +lean_object* x_38; uint8_t x_39; +x_38 = lean_ctor_get(x_37, 0); +lean_inc(x_38); +x_39 = lean_unbox(x_38); +lean_dec(x_38); +switch (x_39) { +case 0: +{ +uint8_t x_40; +lean_dec(x_36); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_40 = !lean_is_exclusive(x_37); +if (x_40 == 0) +{ +lean_object* x_41; uint8_t x_42; lean_object* x_43; +x_41 = lean_ctor_get(x_37, 0); +lean_dec(x_41); +x_42 = 0; +x_43 = lean_box(x_42); +lean_ctor_set(x_37, 0, x_43); +return x_37; +} +else +{ +lean_object* x_44; uint8_t x_45; lean_object* x_46; lean_object* x_47; +x_44 = lean_ctor_get(x_37, 1); +lean_inc(x_44); +lean_dec(x_37); +x_45 = 0; +x_46 = lean_box(x_45); +x_47 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_47, 0, x_46); +lean_ctor_set(x_47, 1, x_44); +return x_47; +} +} +case 1: +{ +uint8_t x_48; +lean_dec(x_36); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_48 = !lean_is_exclusive(x_37); +if (x_48 == 0) +{ +lean_object* x_49; uint8_t x_50; lean_object* x_51; +x_49 = lean_ctor_get(x_37, 0); +lean_dec(x_49); +x_50 = 1; +x_51 = lean_box(x_50); +lean_ctor_set(x_37, 0, x_51); +return x_37; +} +else +{ +lean_object* x_52; uint8_t x_53; lean_object* x_54; lean_object* x_55; +x_52 = lean_ctor_get(x_37, 1); +lean_inc(x_52); +lean_dec(x_37); +x_53 = 1; +x_54 = lean_box(x_53); +x_55 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_55, 0, x_54); +lean_ctor_set(x_55, 1, x_52); +return x_55; +} +} +default: +{ +lean_object* x_56; lean_object* x_57; +x_56 = lean_ctor_get(x_37, 1); +lean_inc(x_56); +lean_dec(x_37); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_57 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_56); +if (lean_obj_tag(x_57) == 0) +{ +lean_object* x_58; uint8_t x_59; +x_58 = lean_ctor_get(x_57, 0); +lean_inc(x_58); +x_59 = lean_unbox(x_58); +lean_dec(x_58); +switch (x_59) { +case 0: +{ +uint8_t x_60; +lean_dec(x_36); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_60 = !lean_is_exclusive(x_57); +if (x_60 == 0) +{ +lean_object* x_61; uint8_t x_62; lean_object* x_63; +x_61 = lean_ctor_get(x_57, 0); +lean_dec(x_61); +x_62 = 0; +x_63 = lean_box(x_62); +lean_ctor_set(x_57, 0, x_63); +return x_57; +} +else +{ +lean_object* x_64; uint8_t x_65; lean_object* x_66; lean_object* x_67; +x_64 = lean_ctor_get(x_57, 1); +lean_inc(x_64); +lean_dec(x_57); +x_65 = 0; +x_66 = lean_box(x_65); +x_67 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_67, 0, x_66); +lean_ctor_set(x_67, 1, x_64); +return x_67; +} +} +case 1: +{ +uint8_t x_68; +lean_dec(x_36); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_68 = !lean_is_exclusive(x_57); +if (x_68 == 0) +{ +lean_object* x_69; uint8_t x_70; lean_object* x_71; +x_69 = lean_ctor_get(x_57, 0); +lean_dec(x_69); +x_70 = 1; +x_71 = lean_box(x_70); +lean_ctor_set(x_57, 0, x_71); +return x_57; +} +else +{ +lean_object* x_72; uint8_t x_73; lean_object* x_74; lean_object* x_75; +x_72 = lean_ctor_get(x_57, 1); +lean_inc(x_72); +lean_dec(x_57); +x_73 = 1; +x_74 = lean_box(x_73); +x_75 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_75, 0, x_74); +lean_ctor_set(x_75, 1, x_72); +return x_75; +} +} +default: +{ +lean_object* x_76; lean_object* x_77; +x_76 = lean_ctor_get(x_57, 1); +lean_inc(x_76); +lean_dec(x_57); +lean_inc(x_3); +x_77 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_76); +if (lean_obj_tag(x_77) == 0) +{ +lean_object* x_78; uint8_t x_79; +x_78 = lean_ctor_get(x_77, 0); +lean_inc(x_78); +x_79 = lean_unbox(x_78); +lean_dec(x_78); +switch (x_79) { +case 0: +{ +uint8_t x_80; +lean_dec(x_36); +lean_dec(x_3); +x_80 = !lean_is_exclusive(x_77); +if (x_80 == 0) +{ +lean_object* x_81; uint8_t x_82; lean_object* x_83; +x_81 = lean_ctor_get(x_77, 0); +lean_dec(x_81); +x_82 = 0; +x_83 = lean_box(x_82); +lean_ctor_set(x_77, 0, x_83); +return x_77; +} +else +{ +lean_object* x_84; uint8_t x_85; lean_object* x_86; lean_object* x_87; +x_84 = lean_ctor_get(x_77, 1); +lean_inc(x_84); +lean_dec(x_77); +x_85 = 0; +x_86 = lean_box(x_85); +x_87 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_87, 0, x_86); +lean_ctor_set(x_87, 1, x_84); +return x_87; +} +} +case 1: +{ +uint8_t x_88; +lean_dec(x_36); +lean_dec(x_3); +x_88 = !lean_is_exclusive(x_77); +if (x_88 == 0) +{ +lean_object* x_89; uint8_t x_90; lean_object* x_91; +x_89 = lean_ctor_get(x_77, 0); +lean_dec(x_89); +x_90 = 1; +x_91 = lean_box(x_90); +lean_ctor_set(x_77, 0, x_91); +return x_77; +} +else +{ +lean_object* x_92; uint8_t x_93; lean_object* x_94; lean_object* x_95; +x_92 = lean_ctor_get(x_77, 1); +lean_inc(x_92); +lean_dec(x_77); +x_93 = 1; +x_94 = lean_box(x_93); +x_95 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_95, 0, x_94); +lean_ctor_set(x_95, 1, x_92); +return x_95; +} +} +default: +{ +lean_object* x_96; lean_object* x_97; +x_96 = lean_ctor_get(x_77, 1); +lean_inc(x_96); +lean_dec(x_77); +x_97 = lean_apply_2(x_36, x_3, x_96); +return x_97; +} +} +} +else +{ +uint8_t x_98; +lean_dec(x_36); +lean_dec(x_3); +x_98 = !lean_is_exclusive(x_77); +if (x_98 == 0) +{ +return x_77; +} +else +{ +lean_object* x_99; lean_object* x_100; lean_object* x_101; +x_99 = lean_ctor_get(x_77, 0); +x_100 = lean_ctor_get(x_77, 1); +lean_inc(x_100); +lean_inc(x_99); +lean_dec(x_77); +x_101 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_101, 0, x_99); +lean_ctor_set(x_101, 1, x_100); +return x_101; } } } @@ -51666,1834 +50857,876 @@ return x_353; } else { -uint8_t x_373; +uint8_t x_102; +lean_dec(x_36); lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_373 = !lean_is_exclusive(x_13); -if (x_373 == 0) +x_102 = !lean_is_exclusive(x_57); +if (x_102 == 0) +{ +return x_57; +} +else +{ +lean_object* x_103; lean_object* x_104; lean_object* x_105; +x_103 = lean_ctor_get(x_57, 0); +x_104 = lean_ctor_get(x_57, 1); +lean_inc(x_104); +lean_inc(x_103); +lean_dec(x_57); +x_105 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_105, 0, x_103); +lean_ctor_set(x_105, 1, x_104); +return x_105; +} +} +} +} +} +else +{ +uint8_t x_106; +lean_dec(x_36); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_106 = !lean_is_exclusive(x_37); +if (x_106 == 0) +{ +return x_37; +} +else +{ +lean_object* x_107; lean_object* x_108; lean_object* x_109; +x_107 = lean_ctor_get(x_37, 0); +x_108 = lean_ctor_get(x_37, 1); +lean_inc(x_108); +lean_inc(x_107); +lean_dec(x_37); +x_109 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_109, 0, x_107); +lean_ctor_set(x_109, 1, x_108); +return x_109; +} +} +} +} +} +} +} +else +{ +uint8_t x_147; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_147 = !lean_is_exclusive(x_13); +if (x_147 == 0) { return x_13; } else { -lean_object* x_374; lean_object* x_375; lean_object* x_376; -x_374 = lean_ctor_get(x_13, 0); -x_375 = lean_ctor_get(x_13, 1); -lean_inc(x_375); -lean_inc(x_374); +lean_object* x_148; lean_object* x_149; lean_object* x_150; +x_148 = lean_ctor_get(x_13, 0); +x_149 = lean_ctor_get(x_13, 1); +lean_inc(x_149); +lean_inc(x_148); lean_dec(x_13); -x_376 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_376, 0, x_374); -lean_ctor_set(x_376, 1, x_375); -return x_376; +x_150 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_150, 0, x_148); +lean_ctor_set(x_150, 1, x_149); +return x_150; } } } else { -uint8_t x_377; -x_377 = lean_expr_eqv(x_2, x_9); +uint8_t x_151; +x_151 = lean_expr_eqv(x_2, x_9); lean_dec(x_2); -if (x_377 == 0) +if (x_151 == 0) { -lean_object* x_378; +lean_object* x_152; lean_dec(x_11); lean_inc(x_3); lean_inc(x_9); lean_inc(x_6); -x_378 = l___private_Init_Lean_Meta_ExprDefEq_41__isDefEqQuick___main(x_6, x_9, x_3, x_10); -if (lean_obj_tag(x_378) == 0) +x_152 = l___private_Init_Lean_Meta_ExprDefEq_41__isDefEqQuick___main(x_6, x_9, x_3, x_10); +if (lean_obj_tag(x_152) == 0) { -lean_object* x_379; uint8_t x_380; -x_379 = lean_ctor_get(x_378, 0); -lean_inc(x_379); -x_380 = lean_unbox(x_379); -lean_dec(x_379); -switch (x_380) { +lean_object* x_153; uint8_t x_154; +x_153 = lean_ctor_get(x_152, 0); +lean_inc(x_153); +x_154 = lean_unbox(x_153); +lean_dec(x_153); +switch (x_154) { case 0: { -uint8_t x_381; +uint8_t x_155; lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_381 = !lean_is_exclusive(x_378); -if (x_381 == 0) +x_155 = !lean_is_exclusive(x_152); +if (x_155 == 0) { -lean_object* x_382; uint8_t x_383; lean_object* x_384; -x_382 = lean_ctor_get(x_378, 0); -lean_dec(x_382); -x_383 = 0; -x_384 = lean_box(x_383); -lean_ctor_set(x_378, 0, x_384); -return x_378; +lean_object* x_156; uint8_t x_157; lean_object* x_158; +x_156 = lean_ctor_get(x_152, 0); +lean_dec(x_156); +x_157 = 0; +x_158 = lean_box(x_157); +lean_ctor_set(x_152, 0, x_158); +return x_152; } else { -lean_object* x_385; uint8_t x_386; lean_object* x_387; lean_object* x_388; -x_385 = lean_ctor_get(x_378, 1); -lean_inc(x_385); -lean_dec(x_378); -x_386 = 0; -x_387 = lean_box(x_386); -x_388 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_388, 0, x_387); -lean_ctor_set(x_388, 1, x_385); -return x_388; +lean_object* x_159; uint8_t x_160; lean_object* x_161; lean_object* x_162; +x_159 = lean_ctor_get(x_152, 1); +lean_inc(x_159); +lean_dec(x_152); +x_160 = 0; +x_161 = lean_box(x_160); +x_162 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_162, 0, x_161); +lean_ctor_set(x_162, 1, x_159); +return x_162; } } case 1: { -uint8_t x_389; +uint8_t x_163; lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_389 = !lean_is_exclusive(x_378); -if (x_389 == 0) +x_163 = !lean_is_exclusive(x_152); +if (x_163 == 0) { -lean_object* x_390; uint8_t x_391; lean_object* x_392; -x_390 = lean_ctor_get(x_378, 0); -lean_dec(x_390); -x_391 = 1; -x_392 = lean_box(x_391); -lean_ctor_set(x_378, 0, x_392); -return x_378; +lean_object* x_164; uint8_t x_165; lean_object* x_166; +x_164 = lean_ctor_get(x_152, 0); +lean_dec(x_164); +x_165 = 1; +x_166 = lean_box(x_165); +lean_ctor_set(x_152, 0, x_166); +return x_152; } else { -lean_object* x_393; uint8_t x_394; lean_object* x_395; lean_object* x_396; -x_393 = lean_ctor_get(x_378, 1); -lean_inc(x_393); -lean_dec(x_378); -x_394 = 1; -x_395 = lean_box(x_394); -x_396 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_396, 0, x_395); -lean_ctor_set(x_396, 1, x_393); +lean_object* x_167; uint8_t x_168; lean_object* x_169; lean_object* x_170; +x_167 = lean_ctor_get(x_152, 1); +lean_inc(x_167); +lean_dec(x_152); +x_168 = 1; +x_169 = lean_box(x_168); +x_170 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_170, 0, x_169); +lean_ctor_set(x_170, 1, x_167); +return x_170; +} +} +default: +{ +lean_object* x_171; lean_object* x_172; uint8_t x_173; lean_object* x_174; lean_object* x_268; +x_171 = lean_ctor_get(x_152, 1); +lean_inc(x_171); +if (lean_is_exclusive(x_152)) { + lean_ctor_release(x_152, 0); + lean_ctor_release(x_152, 1); + x_172 = x_152; +} else { + lean_dec_ref(x_152); + x_172 = lean_box(0); +} +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_268 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_6, x_9, x_3, x_171); +if (lean_obj_tag(x_268) == 0) +{ +lean_object* x_269; uint8_t x_270; +x_269 = lean_ctor_get(x_268, 0); +lean_inc(x_269); +x_270 = lean_unbox(x_269); +if (x_270 == 0) +{ +lean_object* x_271; lean_object* x_272; +lean_dec(x_269); +x_271 = lean_ctor_get(x_268, 1); +lean_inc(x_271); +lean_dec(x_268); +lean_inc(x_3); +lean_inc(x_6); +lean_inc(x_9); +x_272 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_9, x_6, x_3, x_271); +if (lean_obj_tag(x_272) == 0) +{ +lean_object* x_273; lean_object* x_274; uint8_t x_275; +x_273 = lean_ctor_get(x_272, 0); +lean_inc(x_273); +x_274 = lean_ctor_get(x_272, 1); +lean_inc(x_274); +lean_dec(x_272); +x_275 = lean_unbox(x_273); +lean_dec(x_273); +x_173 = x_275; +x_174 = x_274; +goto block_267; +} +else +{ +uint8_t x_276; +lean_dec(x_172); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_276 = !lean_is_exclusive(x_272); +if (x_276 == 0) +{ +return x_272; +} +else +{ +lean_object* x_277; lean_object* x_278; lean_object* x_279; +x_277 = lean_ctor_get(x_272, 0); +x_278 = lean_ctor_get(x_272, 1); +lean_inc(x_278); +lean_inc(x_277); +lean_dec(x_272); +x_279 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_279, 0, x_277); +lean_ctor_set(x_279, 1, x_278); +return x_279; +} +} +} +else +{ +lean_object* x_280; uint8_t x_281; +x_280 = lean_ctor_get(x_268, 1); +lean_inc(x_280); +lean_dec(x_268); +x_281 = lean_unbox(x_269); +lean_dec(x_269); +x_173 = x_281; +x_174 = x_280; +goto block_267; +} +} +else +{ +uint8_t x_282; +lean_dec(x_172); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_282 = !lean_is_exclusive(x_268); +if (x_282 == 0) +{ +return x_268; +} +else +{ +lean_object* x_283; lean_object* x_284; lean_object* x_285; +x_283 = lean_ctor_get(x_268, 0); +x_284 = lean_ctor_get(x_268, 1); +lean_inc(x_284); +lean_inc(x_283); +lean_dec(x_268); +x_285 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_285, 0, x_283); +lean_ctor_set(x_285, 1, x_284); +return x_285; +} +} +block_267: +{ +lean_object* x_175; +if (x_173 == 0) +{ +lean_dec(x_172); +switch (lean_obj_tag(x_6)) { +case 4: +{ +if (lean_obj_tag(x_9) == 4) +{ +lean_object* x_250; lean_object* x_251; lean_object* x_252; lean_object* x_253; uint8_t x_254; +x_250 = lean_ctor_get(x_6, 0); +lean_inc(x_250); +x_251 = lean_ctor_get(x_6, 1); +lean_inc(x_251); +x_252 = lean_ctor_get(x_9, 0); +lean_inc(x_252); +x_253 = lean_ctor_get(x_9, 1); +lean_inc(x_253); +x_254 = lean_name_eq(x_250, x_252); +lean_dec(x_252); +lean_dec(x_250); +if (x_254 == 0) +{ +lean_object* x_255; lean_object* x_256; +lean_dec(x_253); +lean_dec(x_251); +x_255 = lean_box(x_173); +x_256 = lean_alloc_closure((void*)(l_ReaderT_pure___at_Lean_Meta_MetaExtState_inhabited___spec__1___rarg___boxed), 3, 1); +lean_closure_set(x_256, 0, x_255); +x_175 = x_256; +goto block_249; +} +else +{ +lean_object* x_257; +x_257 = lean_alloc_closure((void*)(l_Lean_Meta_isListLevelDefEqAux___boxed), 4, 2); +lean_closure_set(x_257, 0, x_251); +lean_closure_set(x_257, 1, x_253); +x_175 = x_257; +goto block_249; +} +} +else +{ +lean_object* x_258; +lean_inc(x_9); +lean_inc(x_6); +x_258 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure), 4, 2); +lean_closure_set(x_258, 0, x_6); +lean_closure_set(x_258, 1, x_9); +x_175 = x_258; +goto block_249; +} +} +case 5: +{ +if (lean_obj_tag(x_9) == 5) +{ +lean_object* x_259; lean_object* x_260; lean_object* x_261; lean_object* x_262; +x_259 = l_Lean_Expr_getAppFn___main(x_6); +lean_inc(x_9); +lean_inc(x_6); +x_260 = lean_alloc_closure((void*)(l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1), 5, 3); +lean_closure_set(x_260, 0, x_6); +lean_closure_set(x_260, 1, x_9); +lean_closure_set(x_260, 2, x_259); +lean_inc(x_9); +lean_inc(x_6); +x_261 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_ExprDefEq_43__isDefEqWHNF___at_Lean_Meta_isExprDefEqAuxImpl___spec__2___lambda__1___boxed), 5, 2); +lean_closure_set(x_261, 0, x_6); +lean_closure_set(x_261, 1, x_9); +x_262 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_262, 0, x_260); +lean_closure_set(x_262, 1, x_261); +x_175 = x_262; +goto block_249; +} +else +{ +lean_object* x_263; +lean_inc(x_9); +lean_inc(x_6); +x_263 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure), 4, 2); +lean_closure_set(x_263, 0, x_6); +lean_closure_set(x_263, 1, x_9); +x_175 = x_263; +goto block_249; +} +} +default: +{ +lean_object* x_264; +lean_inc(x_9); +lean_inc(x_6); +x_264 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure), 4, 2); +lean_closure_set(x_264, 0, x_6); +lean_closure_set(x_264, 1, x_9); +x_175 = x_264; +goto block_249; +} +} +} +else +{ +lean_object* x_265; lean_object* x_266; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_265 = lean_box(x_173); +if (lean_is_scalar(x_172)) { + x_266 = lean_alloc_ctor(0, 2, 0); +} else { + x_266 = x_172; +} +lean_ctor_set(x_266, 0, x_265); +lean_ctor_set(x_266, 1, x_174); +return x_266; +} +block_249: +{ +lean_object* x_176; +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_176 = l_Lean_Meta_isDefEqNative(x_6, x_9, x_3, x_174); +if (lean_obj_tag(x_176) == 0) +{ +lean_object* x_177; uint8_t x_178; +x_177 = lean_ctor_get(x_176, 0); +lean_inc(x_177); +x_178 = lean_unbox(x_177); +lean_dec(x_177); +switch (x_178) { +case 0: +{ +uint8_t x_179; +lean_dec(x_175); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_179 = !lean_is_exclusive(x_176); +if (x_179 == 0) +{ +lean_object* x_180; uint8_t x_181; lean_object* x_182; +x_180 = lean_ctor_get(x_176, 0); +lean_dec(x_180); +x_181 = 0; +x_182 = lean_box(x_181); +lean_ctor_set(x_176, 0, x_182); +return x_176; +} +else +{ +lean_object* x_183; uint8_t x_184; lean_object* x_185; lean_object* x_186; +x_183 = lean_ctor_get(x_176, 1); +lean_inc(x_183); +lean_dec(x_176); +x_184 = 0; +x_185 = lean_box(x_184); +x_186 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_186, 0, x_185); +lean_ctor_set(x_186, 1, x_183); +return x_186; +} +} +case 1: +{ +uint8_t x_187; +lean_dec(x_175); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_187 = !lean_is_exclusive(x_176); +if (x_187 == 0) +{ +lean_object* x_188; uint8_t x_189; lean_object* x_190; +x_188 = lean_ctor_get(x_176, 0); +lean_dec(x_188); +x_189 = 1; +x_190 = lean_box(x_189); +lean_ctor_set(x_176, 0, x_190); +return x_176; +} +else +{ +lean_object* x_191; uint8_t x_192; lean_object* x_193; lean_object* x_194; +x_191 = lean_ctor_get(x_176, 1); +lean_inc(x_191); +lean_dec(x_176); +x_192 = 1; +x_193 = lean_box(x_192); +x_194 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_194, 0, x_193); +lean_ctor_set(x_194, 1, x_191); +return x_194; +} +} +default: +{ +lean_object* x_195; lean_object* x_196; +x_195 = lean_ctor_get(x_176, 1); +lean_inc(x_195); +lean_dec(x_176); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_196 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_195); +if (lean_obj_tag(x_196) == 0) +{ +lean_object* x_197; uint8_t x_198; +x_197 = lean_ctor_get(x_196, 0); +lean_inc(x_197); +x_198 = lean_unbox(x_197); +lean_dec(x_197); +switch (x_198) { +case 0: +{ +uint8_t x_199; +lean_dec(x_175); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_199 = !lean_is_exclusive(x_196); +if (x_199 == 0) +{ +lean_object* x_200; uint8_t x_201; lean_object* x_202; +x_200 = lean_ctor_get(x_196, 0); +lean_dec(x_200); +x_201 = 0; +x_202 = lean_box(x_201); +lean_ctor_set(x_196, 0, x_202); +return x_196; +} +else +{ +lean_object* x_203; uint8_t x_204; lean_object* x_205; lean_object* x_206; +x_203 = lean_ctor_get(x_196, 1); +lean_inc(x_203); +lean_dec(x_196); +x_204 = 0; +x_205 = lean_box(x_204); +x_206 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_206, 0, x_205); +lean_ctor_set(x_206, 1, x_203); +return x_206; +} +} +case 1: +{ +uint8_t x_207; +lean_dec(x_175); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_207 = !lean_is_exclusive(x_196); +if (x_207 == 0) +{ +lean_object* x_208; uint8_t x_209; lean_object* x_210; +x_208 = lean_ctor_get(x_196, 0); +lean_dec(x_208); +x_209 = 1; +x_210 = lean_box(x_209); +lean_ctor_set(x_196, 0, x_210); +return x_196; +} +else +{ +lean_object* x_211; uint8_t x_212; lean_object* x_213; lean_object* x_214; +x_211 = lean_ctor_get(x_196, 1); +lean_inc(x_211); +lean_dec(x_196); +x_212 = 1; +x_213 = lean_box(x_212); +x_214 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_214, 0, x_213); +lean_ctor_set(x_214, 1, x_211); +return x_214; +} +} +default: +{ +lean_object* x_215; lean_object* x_216; +x_215 = lean_ctor_get(x_196, 1); +lean_inc(x_215); +lean_dec(x_196); +lean_inc(x_3); +x_216 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_215); +if (lean_obj_tag(x_216) == 0) +{ +lean_object* x_217; uint8_t x_218; +x_217 = lean_ctor_get(x_216, 0); +lean_inc(x_217); +x_218 = lean_unbox(x_217); +lean_dec(x_217); +switch (x_218) { +case 0: +{ +uint8_t x_219; +lean_dec(x_175); +lean_dec(x_3); +x_219 = !lean_is_exclusive(x_216); +if (x_219 == 0) +{ +lean_object* x_220; uint8_t x_221; lean_object* x_222; +x_220 = lean_ctor_get(x_216, 0); +lean_dec(x_220); +x_221 = 0; +x_222 = lean_box(x_221); +lean_ctor_set(x_216, 0, x_222); +return x_216; +} +else +{ +lean_object* x_223; uint8_t x_224; lean_object* x_225; lean_object* x_226; +x_223 = lean_ctor_get(x_216, 1); +lean_inc(x_223); +lean_dec(x_216); +x_224 = 0; +x_225 = lean_box(x_224); +x_226 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_226, 0, x_225); +lean_ctor_set(x_226, 1, x_223); +return x_226; +} +} +case 1: +{ +uint8_t x_227; +lean_dec(x_175); +lean_dec(x_3); +x_227 = !lean_is_exclusive(x_216); +if (x_227 == 0) +{ +lean_object* x_228; uint8_t x_229; lean_object* x_230; +x_228 = lean_ctor_get(x_216, 0); +lean_dec(x_228); +x_229 = 1; +x_230 = lean_box(x_229); +lean_ctor_set(x_216, 0, x_230); +return x_216; +} +else +{ +lean_object* x_231; uint8_t x_232; lean_object* x_233; lean_object* x_234; +x_231 = lean_ctor_get(x_216, 1); +lean_inc(x_231); +lean_dec(x_216); +x_232 = 1; +x_233 = lean_box(x_232); +x_234 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_234, 0, x_233); +lean_ctor_set(x_234, 1, x_231); +return x_234; +} +} +default: +{ +lean_object* x_235; lean_object* x_236; +x_235 = lean_ctor_get(x_216, 1); +lean_inc(x_235); +lean_dec(x_216); +x_236 = lean_apply_2(x_175, x_3, x_235); +return x_236; +} +} +} +else +{ +uint8_t x_237; +lean_dec(x_175); +lean_dec(x_3); +x_237 = !lean_is_exclusive(x_216); +if (x_237 == 0) +{ +return x_216; +} +else +{ +lean_object* x_238; lean_object* x_239; lean_object* x_240; +x_238 = lean_ctor_get(x_216, 0); +x_239 = lean_ctor_get(x_216, 1); +lean_inc(x_239); +lean_inc(x_238); +lean_dec(x_216); +x_240 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_240, 0, x_238); +lean_ctor_set(x_240, 1, x_239); +return x_240; +} +} +} +} +} +else +{ +uint8_t x_241; +lean_dec(x_175); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_241 = !lean_is_exclusive(x_196); +if (x_241 == 0) +{ +return x_196; +} +else +{ +lean_object* x_242; lean_object* x_243; lean_object* x_244; +x_242 = lean_ctor_get(x_196, 0); +x_243 = lean_ctor_get(x_196, 1); +lean_inc(x_243); +lean_inc(x_242); +lean_dec(x_196); +x_244 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_244, 0, x_242); +lean_ctor_set(x_244, 1, x_243); +return x_244; +} +} +} +} +} +else +{ +uint8_t x_245; +lean_dec(x_175); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_245 = !lean_is_exclusive(x_176); +if (x_245 == 0) +{ +return x_176; +} +else +{ +lean_object* x_246; lean_object* x_247; lean_object* x_248; +x_246 = lean_ctor_get(x_176, 0); +x_247 = lean_ctor_get(x_176, 1); +lean_inc(x_247); +lean_inc(x_246); +lean_dec(x_176); +x_248 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_248, 0, x_246); +lean_ctor_set(x_248, 1, x_247); +return x_248; +} +} +} +} +} +} +} +else +{ +uint8_t x_286; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_286 = !lean_is_exclusive(x_152); +if (x_286 == 0) +{ +return x_152; +} +else +{ +lean_object* x_287; lean_object* x_288; lean_object* x_289; +x_287 = lean_ctor_get(x_152, 0); +x_288 = lean_ctor_get(x_152, 1); +lean_inc(x_288); +lean_inc(x_287); +lean_dec(x_152); +x_289 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_289, 0, x_287); +lean_ctor_set(x_289, 1, x_288); +return x_289; +} +} +} +else +{ +uint8_t x_290; lean_object* x_291; lean_object* x_385; +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_385 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_6, x_9, x_3, x_10); +if (lean_obj_tag(x_385) == 0) +{ +lean_object* x_386; uint8_t x_387; +x_386 = lean_ctor_get(x_385, 0); +lean_inc(x_386); +x_387 = lean_unbox(x_386); +if (x_387 == 0) +{ +lean_object* x_388; lean_object* x_389; +lean_dec(x_386); +x_388 = lean_ctor_get(x_385, 1); +lean_inc(x_388); +lean_dec(x_385); +lean_inc(x_3); +lean_inc(x_6); +lean_inc(x_9); +x_389 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_9, x_6, x_3, x_388); +if (lean_obj_tag(x_389) == 0) +{ +lean_object* x_390; lean_object* x_391; uint8_t x_392; +x_390 = lean_ctor_get(x_389, 0); +lean_inc(x_390); +x_391 = lean_ctor_get(x_389, 1); +lean_inc(x_391); +lean_dec(x_389); +x_392 = lean_unbox(x_390); +lean_dec(x_390); +x_290 = x_392; +x_291 = x_391; +goto block_384; +} +else +{ +uint8_t x_393; +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_393 = !lean_is_exclusive(x_389); +if (x_393 == 0) +{ +return x_389; +} +else +{ +lean_object* x_394; lean_object* x_395; lean_object* x_396; +x_394 = lean_ctor_get(x_389, 0); +x_395 = lean_ctor_get(x_389, 1); +lean_inc(x_395); +lean_inc(x_394); +lean_dec(x_389); +x_396 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_396, 0, x_394); +lean_ctor_set(x_396, 1, x_395); return x_396; } } -default: +} +else { -lean_object* x_397; lean_object* x_398; uint8_t x_399; lean_object* x_400; lean_object* x_720; -x_397 = lean_ctor_get(x_378, 1); +lean_object* x_397; uint8_t x_398; +x_397 = lean_ctor_get(x_385, 1); lean_inc(x_397); -if (lean_is_exclusive(x_378)) { - lean_ctor_release(x_378, 0); - lean_ctor_release(x_378, 1); - x_398 = x_378; -} else { - lean_dec_ref(x_378); - x_398 = lean_box(0); +lean_dec(x_385); +x_398 = lean_unbox(x_386); +lean_dec(x_386); +x_290 = x_398; +x_291 = x_397; +goto block_384; } -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_720 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_6, x_9, x_3, x_397); -if (lean_obj_tag(x_720) == 0) -{ -lean_object* x_721; uint8_t x_722; -x_721 = lean_ctor_get(x_720, 0); -lean_inc(x_721); -x_722 = lean_unbox(x_721); -if (x_722 == 0) -{ -lean_object* x_723; lean_object* x_724; -lean_dec(x_721); -x_723 = lean_ctor_get(x_720, 1); -lean_inc(x_723); -lean_dec(x_720); -lean_inc(x_3); -lean_inc(x_6); -lean_inc(x_9); -x_724 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_9, x_6, x_3, x_723); -if (lean_obj_tag(x_724) == 0) -{ -lean_object* x_725; lean_object* x_726; uint8_t x_727; -x_725 = lean_ctor_get(x_724, 0); -lean_inc(x_725); -x_726 = lean_ctor_get(x_724, 1); -lean_inc(x_726); -lean_dec(x_724); -x_727 = lean_unbox(x_725); -lean_dec(x_725); -x_399 = x_727; -x_400 = x_726; -goto block_719; } else { -uint8_t x_728; -lean_dec(x_398); +uint8_t x_399; +lean_dec(x_11); lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_728 = !lean_is_exclusive(x_724); -if (x_728 == 0) -{ -return x_724; -} -else -{ -lean_object* x_729; lean_object* x_730; lean_object* x_731; -x_729 = lean_ctor_get(x_724, 0); -x_730 = lean_ctor_get(x_724, 1); -lean_inc(x_730); -lean_inc(x_729); -lean_dec(x_724); -x_731 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_731, 0, x_729); -lean_ctor_set(x_731, 1, x_730); -return x_731; -} -} -} -else -{ -lean_object* x_732; uint8_t x_733; -x_732 = lean_ctor_get(x_720, 1); -lean_inc(x_732); -lean_dec(x_720); -x_733 = lean_unbox(x_721); -lean_dec(x_721); -x_399 = x_733; -x_400 = x_732; -goto block_719; -} -} -else -{ -uint8_t x_734; -lean_dec(x_398); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_734 = !lean_is_exclusive(x_720); -if (x_734 == 0) -{ -return x_720; -} -else -{ -lean_object* x_735; lean_object* x_736; lean_object* x_737; -x_735 = lean_ctor_get(x_720, 0); -x_736 = lean_ctor_get(x_720, 1); -lean_inc(x_736); -lean_inc(x_735); -lean_dec(x_720); -x_737 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_737, 0, x_735); -lean_ctor_set(x_737, 1, x_736); -return x_737; -} -} -block_719: -{ +x_399 = !lean_is_exclusive(x_385); if (x_399 == 0) { -lean_dec(x_398); -switch (lean_obj_tag(x_6)) { -case 4: +return x_385; +} +else { -if (lean_obj_tag(x_9) == 4) -{ -lean_object* x_401; lean_object* x_402; lean_object* x_403; lean_object* x_404; uint8_t x_405; -x_401 = lean_ctor_get(x_6, 0); +lean_object* x_400; lean_object* x_401; lean_object* x_402; +x_400 = lean_ctor_get(x_385, 0); +x_401 = lean_ctor_get(x_385, 1); lean_inc(x_401); -x_402 = lean_ctor_get(x_6, 1); -lean_inc(x_402); -x_403 = lean_ctor_get(x_9, 0); -lean_inc(x_403); -x_404 = lean_ctor_get(x_9, 1); -lean_inc(x_404); -x_405 = lean_name_eq(x_401, x_403); -lean_dec(x_403); -lean_dec(x_401); -if (x_405 == 0) -{ -lean_object* x_406; -lean_dec(x_404); -lean_dec(x_402); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_406 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_400); -if (lean_obj_tag(x_406) == 0) -{ -lean_object* x_407; uint8_t x_408; -x_407 = lean_ctor_get(x_406, 0); -lean_inc(x_407); -x_408 = lean_unbox(x_407); -lean_dec(x_407); -switch (x_408) { -case 0: -{ -uint8_t x_409; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_409 = !lean_is_exclusive(x_406); -if (x_409 == 0) -{ -lean_object* x_410; uint8_t x_411; lean_object* x_412; -x_410 = lean_ctor_get(x_406, 0); -lean_dec(x_410); -x_411 = 0; -x_412 = lean_box(x_411); -lean_ctor_set(x_406, 0, x_412); -return x_406; -} -else -{ -lean_object* x_413; uint8_t x_414; lean_object* x_415; lean_object* x_416; -x_413 = lean_ctor_get(x_406, 1); -lean_inc(x_413); -lean_dec(x_406); -x_414 = 0; -x_415 = lean_box(x_414); -x_416 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_416, 0, x_415); -lean_ctor_set(x_416, 1, x_413); -return x_416; -} -} -case 1: -{ -uint8_t x_417; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_417 = !lean_is_exclusive(x_406); -if (x_417 == 0) -{ -lean_object* x_418; uint8_t x_419; lean_object* x_420; -x_418 = lean_ctor_get(x_406, 0); -lean_dec(x_418); -x_419 = 1; -x_420 = lean_box(x_419); -lean_ctor_set(x_406, 0, x_420); -return x_406; -} -else -{ -lean_object* x_421; uint8_t x_422; lean_object* x_423; lean_object* x_424; -x_421 = lean_ctor_get(x_406, 1); -lean_inc(x_421); -lean_dec(x_406); -x_422 = 1; -x_423 = lean_box(x_422); -x_424 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_424, 0, x_423); -lean_ctor_set(x_424, 1, x_421); -return x_424; -} -} -default: -{ -lean_object* x_425; lean_object* x_426; -x_425 = lean_ctor_get(x_406, 1); -lean_inc(x_425); -lean_dec(x_406); -x_426 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_425); -if (lean_obj_tag(x_426) == 0) -{ -lean_object* x_427; uint8_t x_428; -x_427 = lean_ctor_get(x_426, 0); -lean_inc(x_427); -x_428 = lean_unbox(x_427); -lean_dec(x_427); -switch (x_428) { -case 0: -{ -uint8_t x_429; -x_429 = !lean_is_exclusive(x_426); -if (x_429 == 0) -{ -lean_object* x_430; uint8_t x_431; lean_object* x_432; -x_430 = lean_ctor_get(x_426, 0); -lean_dec(x_430); -x_431 = 0; -x_432 = lean_box(x_431); -lean_ctor_set(x_426, 0, x_432); -return x_426; -} -else -{ -lean_object* x_433; uint8_t x_434; lean_object* x_435; lean_object* x_436; -x_433 = lean_ctor_get(x_426, 1); -lean_inc(x_433); -lean_dec(x_426); -x_434 = 0; -x_435 = lean_box(x_434); -x_436 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_436, 0, x_435); -lean_ctor_set(x_436, 1, x_433); -return x_436; -} -} -case 1: -{ -uint8_t x_437; -x_437 = !lean_is_exclusive(x_426); -if (x_437 == 0) -{ -lean_object* x_438; uint8_t x_439; lean_object* x_440; -x_438 = lean_ctor_get(x_426, 0); -lean_dec(x_438); -x_439 = 1; -x_440 = lean_box(x_439); -lean_ctor_set(x_426, 0, x_440); -return x_426; -} -else -{ -lean_object* x_441; uint8_t x_442; lean_object* x_443; lean_object* x_444; -x_441 = lean_ctor_get(x_426, 1); -lean_inc(x_441); -lean_dec(x_426); -x_442 = 1; -x_443 = lean_box(x_442); -x_444 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_444, 0, x_443); -lean_ctor_set(x_444, 1, x_441); -return x_444; -} -} -default: -{ -uint8_t x_445; -x_445 = !lean_is_exclusive(x_426); -if (x_445 == 0) -{ -lean_object* x_446; lean_object* x_447; -x_446 = lean_ctor_get(x_426, 0); -lean_dec(x_446); -x_447 = lean_box(x_399); -lean_ctor_set(x_426, 0, x_447); -return x_426; -} -else -{ -lean_object* x_448; lean_object* x_449; lean_object* x_450; -x_448 = lean_ctor_get(x_426, 1); -lean_inc(x_448); -lean_dec(x_426); -x_449 = lean_box(x_399); -x_450 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_450, 0, x_449); -lean_ctor_set(x_450, 1, x_448); -return x_450; -} -} -} -} -else -{ -uint8_t x_451; -x_451 = !lean_is_exclusive(x_426); -if (x_451 == 0) -{ -return x_426; -} -else -{ -lean_object* x_452; lean_object* x_453; lean_object* x_454; -x_452 = lean_ctor_get(x_426, 0); -x_453 = lean_ctor_get(x_426, 1); -lean_inc(x_453); -lean_inc(x_452); -lean_dec(x_426); -x_454 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_454, 0, x_452); -lean_ctor_set(x_454, 1, x_453); -return x_454; -} -} -} -} -} -else -{ -uint8_t x_455; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_455 = !lean_is_exclusive(x_406); -if (x_455 == 0) -{ -return x_406; -} -else -{ -lean_object* x_456; lean_object* x_457; lean_object* x_458; -x_456 = lean_ctor_get(x_406, 0); -x_457 = lean_ctor_get(x_406, 1); -lean_inc(x_457); -lean_inc(x_456); -lean_dec(x_406); -x_458 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_458, 0, x_456); -lean_ctor_set(x_458, 1, x_457); -return x_458; -} -} -} -else -{ -lean_object* x_459; -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_459 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_400); -if (lean_obj_tag(x_459) == 0) -{ -lean_object* x_460; uint8_t x_461; -x_460 = lean_ctor_get(x_459, 0); -lean_inc(x_460); -x_461 = lean_unbox(x_460); -lean_dec(x_460); -switch (x_461) { -case 0: -{ -uint8_t x_462; -lean_dec(x_404); -lean_dec(x_402); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_462 = !lean_is_exclusive(x_459); -if (x_462 == 0) -{ -lean_object* x_463; uint8_t x_464; lean_object* x_465; -x_463 = lean_ctor_get(x_459, 0); -lean_dec(x_463); -x_464 = 0; -x_465 = lean_box(x_464); -lean_ctor_set(x_459, 0, x_465); -return x_459; -} -else -{ -lean_object* x_466; uint8_t x_467; lean_object* x_468; lean_object* x_469; -x_466 = lean_ctor_get(x_459, 1); -lean_inc(x_466); -lean_dec(x_459); -x_467 = 0; -x_468 = lean_box(x_467); -x_469 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_469, 0, x_468); -lean_ctor_set(x_469, 1, x_466); -return x_469; -} -} -case 1: -{ -uint8_t x_470; -lean_dec(x_404); -lean_dec(x_402); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_470 = !lean_is_exclusive(x_459); -if (x_470 == 0) -{ -lean_object* x_471; uint8_t x_472; lean_object* x_473; -x_471 = lean_ctor_get(x_459, 0); -lean_dec(x_471); -x_472 = 1; -x_473 = lean_box(x_472); -lean_ctor_set(x_459, 0, x_473); -return x_459; -} -else -{ -lean_object* x_474; uint8_t x_475; lean_object* x_476; lean_object* x_477; -x_474 = lean_ctor_get(x_459, 1); -lean_inc(x_474); -lean_dec(x_459); -x_475 = 1; -x_476 = lean_box(x_475); -x_477 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_477, 0, x_476); -lean_ctor_set(x_477, 1, x_474); -return x_477; -} -} -default: -{ -lean_object* x_478; lean_object* x_479; -x_478 = lean_ctor_get(x_459, 1); -lean_inc(x_478); -lean_dec(x_459); -lean_inc(x_3); -x_479 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_478); -if (lean_obj_tag(x_479) == 0) -{ -lean_object* x_480; uint8_t x_481; -x_480 = lean_ctor_get(x_479, 0); -lean_inc(x_480); -x_481 = lean_unbox(x_480); -lean_dec(x_480); -switch (x_481) { -case 0: -{ -uint8_t x_482; -lean_dec(x_404); -lean_dec(x_402); -lean_dec(x_3); -x_482 = !lean_is_exclusive(x_479); -if (x_482 == 0) -{ -lean_object* x_483; uint8_t x_484; lean_object* x_485; -x_483 = lean_ctor_get(x_479, 0); -lean_dec(x_483); -x_484 = 0; -x_485 = lean_box(x_484); -lean_ctor_set(x_479, 0, x_485); -return x_479; -} -else -{ -lean_object* x_486; uint8_t x_487; lean_object* x_488; lean_object* x_489; -x_486 = lean_ctor_get(x_479, 1); -lean_inc(x_486); -lean_dec(x_479); -x_487 = 0; -x_488 = lean_box(x_487); -x_489 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_489, 0, x_488); -lean_ctor_set(x_489, 1, x_486); -return x_489; -} -} -case 1: -{ -uint8_t x_490; -lean_dec(x_404); -lean_dec(x_402); -lean_dec(x_3); -x_490 = !lean_is_exclusive(x_479); -if (x_490 == 0) -{ -lean_object* x_491; uint8_t x_492; lean_object* x_493; -x_491 = lean_ctor_get(x_479, 0); -lean_dec(x_491); -x_492 = 1; -x_493 = lean_box(x_492); -lean_ctor_set(x_479, 0, x_493); -return x_479; -} -else -{ -lean_object* x_494; uint8_t x_495; lean_object* x_496; lean_object* x_497; -x_494 = lean_ctor_get(x_479, 1); -lean_inc(x_494); -lean_dec(x_479); -x_495 = 1; -x_496 = lean_box(x_495); -x_497 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_497, 0, x_496); -lean_ctor_set(x_497, 1, x_494); -return x_497; -} -} -default: -{ -lean_object* x_498; lean_object* x_499; -x_498 = lean_ctor_get(x_479, 1); -lean_inc(x_498); -lean_dec(x_479); -x_499 = l_Lean_Meta_isListLevelDefEqAux___main(x_402, x_404, x_3, x_498); -lean_dec(x_3); -return x_499; -} -} -} -else -{ -uint8_t x_500; -lean_dec(x_404); -lean_dec(x_402); -lean_dec(x_3); -x_500 = !lean_is_exclusive(x_479); -if (x_500 == 0) -{ -return x_479; -} -else -{ -lean_object* x_501; lean_object* x_502; lean_object* x_503; -x_501 = lean_ctor_get(x_479, 0); -x_502 = lean_ctor_get(x_479, 1); -lean_inc(x_502); -lean_inc(x_501); -lean_dec(x_479); -x_503 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_503, 0, x_501); -lean_ctor_set(x_503, 1, x_502); -return x_503; -} -} -} -} -} -else -{ -uint8_t x_504; -lean_dec(x_404); -lean_dec(x_402); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_504 = !lean_is_exclusive(x_459); -if (x_504 == 0) -{ -return x_459; -} -else -{ -lean_object* x_505; lean_object* x_506; lean_object* x_507; -x_505 = lean_ctor_get(x_459, 0); -x_506 = lean_ctor_get(x_459, 1); -lean_inc(x_506); -lean_inc(x_505); -lean_dec(x_459); -x_507 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_507, 0, x_505); -lean_ctor_set(x_507, 1, x_506); -return x_507; -} -} -} -} -else -{ -lean_object* x_508; -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_508 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_400); -if (lean_obj_tag(x_508) == 0) -{ -lean_object* x_509; uint8_t x_510; -x_509 = lean_ctor_get(x_508, 0); -lean_inc(x_509); -x_510 = lean_unbox(x_509); -lean_dec(x_509); -switch (x_510) { -case 0: -{ -uint8_t x_511; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_511 = !lean_is_exclusive(x_508); -if (x_511 == 0) -{ -lean_object* x_512; uint8_t x_513; lean_object* x_514; -x_512 = lean_ctor_get(x_508, 0); -lean_dec(x_512); -x_513 = 0; -x_514 = lean_box(x_513); -lean_ctor_set(x_508, 0, x_514); -return x_508; -} -else -{ -lean_object* x_515; uint8_t x_516; lean_object* x_517; lean_object* x_518; -x_515 = lean_ctor_get(x_508, 1); -lean_inc(x_515); -lean_dec(x_508); -x_516 = 0; -x_517 = lean_box(x_516); -x_518 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_518, 0, x_517); -lean_ctor_set(x_518, 1, x_515); -return x_518; -} -} -case 1: -{ -uint8_t x_519; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_519 = !lean_is_exclusive(x_508); -if (x_519 == 0) -{ -lean_object* x_520; uint8_t x_521; lean_object* x_522; -x_520 = lean_ctor_get(x_508, 0); -lean_dec(x_520); -x_521 = 1; -x_522 = lean_box(x_521); -lean_ctor_set(x_508, 0, x_522); -return x_508; -} -else -{ -lean_object* x_523; uint8_t x_524; lean_object* x_525; lean_object* x_526; -x_523 = lean_ctor_get(x_508, 1); -lean_inc(x_523); -lean_dec(x_508); -x_524 = 1; -x_525 = lean_box(x_524); -x_526 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_526, 0, x_525); -lean_ctor_set(x_526, 1, x_523); -return x_526; -} -} -default: -{ -lean_object* x_527; lean_object* x_528; -x_527 = lean_ctor_get(x_508, 1); -lean_inc(x_527); -lean_dec(x_508); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_528 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_527); -if (lean_obj_tag(x_528) == 0) -{ -lean_object* x_529; uint8_t x_530; -x_529 = lean_ctor_get(x_528, 0); -lean_inc(x_529); -x_530 = lean_unbox(x_529); -lean_dec(x_529); -switch (x_530) { -case 0: -{ -uint8_t x_531; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_531 = !lean_is_exclusive(x_528); -if (x_531 == 0) -{ -lean_object* x_532; uint8_t x_533; lean_object* x_534; -x_532 = lean_ctor_get(x_528, 0); -lean_dec(x_532); -x_533 = 0; -x_534 = lean_box(x_533); -lean_ctor_set(x_528, 0, x_534); -return x_528; -} -else -{ -lean_object* x_535; uint8_t x_536; lean_object* x_537; lean_object* x_538; -x_535 = lean_ctor_get(x_528, 1); -lean_inc(x_535); -lean_dec(x_528); -x_536 = 0; -x_537 = lean_box(x_536); -x_538 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_538, 0, x_537); -lean_ctor_set(x_538, 1, x_535); -return x_538; -} -} -case 1: -{ -uint8_t x_539; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_539 = !lean_is_exclusive(x_528); -if (x_539 == 0) -{ -lean_object* x_540; uint8_t x_541; lean_object* x_542; -x_540 = lean_ctor_get(x_528, 0); -lean_dec(x_540); -x_541 = 1; -x_542 = lean_box(x_541); -lean_ctor_set(x_528, 0, x_542); -return x_528; -} -else -{ -lean_object* x_543; uint8_t x_544; lean_object* x_545; lean_object* x_546; -x_543 = lean_ctor_get(x_528, 1); -lean_inc(x_543); -lean_dec(x_528); -x_544 = 1; -x_545 = lean_box(x_544); -x_546 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_546, 0, x_545); -lean_ctor_set(x_546, 1, x_543); -return x_546; -} -} -default: -{ -lean_object* x_547; lean_object* x_548; -x_547 = lean_ctor_get(x_528, 1); -lean_inc(x_547); -lean_dec(x_528); -lean_inc(x_6); -x_548 = l___private_Init_Lean_Meta_ExprDefEq_44__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure___spec__2(x_6, x_9, x_6, x_3, x_547); -return x_548; -} -} -} -else -{ -uint8_t x_549; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_549 = !lean_is_exclusive(x_528); -if (x_549 == 0) -{ -return x_528; -} -else -{ -lean_object* x_550; lean_object* x_551; lean_object* x_552; -x_550 = lean_ctor_get(x_528, 0); -x_551 = lean_ctor_get(x_528, 1); -lean_inc(x_551); -lean_inc(x_550); -lean_dec(x_528); -x_552 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_552, 0, x_550); -lean_ctor_set(x_552, 1, x_551); -return x_552; -} -} -} -} -} -else -{ -uint8_t x_553; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_553 = !lean_is_exclusive(x_508); -if (x_553 == 0) -{ -return x_508; -} -else -{ -lean_object* x_554; lean_object* x_555; lean_object* x_556; -x_554 = lean_ctor_get(x_508, 0); -x_555 = lean_ctor_get(x_508, 1); -lean_inc(x_555); -lean_inc(x_554); -lean_dec(x_508); -x_556 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_556, 0, x_554); -lean_ctor_set(x_556, 1, x_555); -return x_556; -} -} -} -} -case 5: -{ -if (lean_obj_tag(x_9) == 5) -{ -lean_object* x_557; lean_object* x_558; -x_557 = l_Lean_Expr_getAppFn___main(x_6); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_558 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_400); -if (lean_obj_tag(x_558) == 0) -{ -lean_object* x_559; uint8_t x_560; -x_559 = lean_ctor_get(x_558, 0); -lean_inc(x_559); -x_560 = lean_unbox(x_559); -lean_dec(x_559); -switch (x_560) { -case 0: -{ -uint8_t x_561; -lean_dec(x_557); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_561 = !lean_is_exclusive(x_558); -if (x_561 == 0) -{ -lean_object* x_562; uint8_t x_563; lean_object* x_564; -x_562 = lean_ctor_get(x_558, 0); -lean_dec(x_562); -x_563 = 0; -x_564 = lean_box(x_563); -lean_ctor_set(x_558, 0, x_564); -return x_558; -} -else -{ -lean_object* x_565; uint8_t x_566; lean_object* x_567; lean_object* x_568; -x_565 = lean_ctor_get(x_558, 1); -lean_inc(x_565); -lean_dec(x_558); -x_566 = 0; -x_567 = lean_box(x_566); -x_568 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_568, 0, x_567); -lean_ctor_set(x_568, 1, x_565); -return x_568; -} -} -case 1: -{ -uint8_t x_569; -lean_dec(x_557); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_569 = !lean_is_exclusive(x_558); -if (x_569 == 0) -{ -lean_object* x_570; uint8_t x_571; lean_object* x_572; -x_570 = lean_ctor_get(x_558, 0); -lean_dec(x_570); -x_571 = 1; -x_572 = lean_box(x_571); -lean_ctor_set(x_558, 0, x_572); -return x_558; -} -else -{ -lean_object* x_573; uint8_t x_574; lean_object* x_575; lean_object* x_576; -x_573 = lean_ctor_get(x_558, 1); -lean_inc(x_573); -lean_dec(x_558); -x_574 = 1; -x_575 = lean_box(x_574); -x_576 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_576, 0, x_575); -lean_ctor_set(x_576, 1, x_573); -return x_576; -} -} -default: -{ -lean_object* x_577; lean_object* x_578; -x_577 = lean_ctor_get(x_558, 1); -lean_inc(x_577); -lean_dec(x_558); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_578 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_577); -if (lean_obj_tag(x_578) == 0) -{ -lean_object* x_579; uint8_t x_580; -x_579 = lean_ctor_get(x_578, 0); -lean_inc(x_579); -x_580 = lean_unbox(x_579); -lean_dec(x_579); -switch (x_580) { -case 0: -{ -uint8_t x_581; -lean_dec(x_557); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_581 = !lean_is_exclusive(x_578); -if (x_581 == 0) -{ -lean_object* x_582; uint8_t x_583; lean_object* x_584; -x_582 = lean_ctor_get(x_578, 0); -lean_dec(x_582); -x_583 = 0; -x_584 = lean_box(x_583); -lean_ctor_set(x_578, 0, x_584); -return x_578; -} -else -{ -lean_object* x_585; uint8_t x_586; lean_object* x_587; lean_object* x_588; -x_585 = lean_ctor_get(x_578, 1); -lean_inc(x_585); -lean_dec(x_578); -x_586 = 0; -x_587 = lean_box(x_586); -x_588 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_588, 0, x_587); -lean_ctor_set(x_588, 1, x_585); -return x_588; -} -} -case 1: -{ -uint8_t x_589; -lean_dec(x_557); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_589 = !lean_is_exclusive(x_578); -if (x_589 == 0) -{ -lean_object* x_590; uint8_t x_591; lean_object* x_592; -x_590 = lean_ctor_get(x_578, 0); -lean_dec(x_590); -x_591 = 1; -x_592 = lean_box(x_591); -lean_ctor_set(x_578, 0, x_592); -return x_578; -} -else -{ -lean_object* x_593; uint8_t x_594; lean_object* x_595; lean_object* x_596; -x_593 = lean_ctor_get(x_578, 1); -lean_inc(x_593); -lean_dec(x_578); -x_594 = 1; -x_595 = lean_box(x_594); -x_596 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_596, 0, x_595); -lean_ctor_set(x_596, 1, x_593); -return x_596; -} -} -default: -{ -lean_object* x_597; lean_object* x_598; -x_597 = lean_ctor_get(x_578, 1); -lean_inc(x_597); -lean_dec(x_578); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_598 = l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(x_6, x_9, x_557, x_3, x_597); -if (lean_obj_tag(x_598) == 0) -{ -lean_object* x_599; uint8_t x_600; -x_599 = lean_ctor_get(x_598, 0); -lean_inc(x_599); -x_600 = lean_unbox(x_599); -if (x_600 == 0) -{ -lean_object* x_601; lean_object* x_602; -lean_dec(x_599); -x_601 = lean_ctor_get(x_598, 1); -lean_inc(x_601); -lean_dec(x_598); -lean_inc(x_6); -x_602 = l___private_Init_Lean_Meta_ExprDefEq_44__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure___spec__2(x_6, x_9, x_6, x_3, x_601); -return x_602; -} -else -{ -uint8_t x_603; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_603 = !lean_is_exclusive(x_598); -if (x_603 == 0) -{ -lean_object* x_604; -x_604 = lean_ctor_get(x_598, 0); -lean_dec(x_604); -return x_598; -} -else -{ -lean_object* x_605; lean_object* x_606; -x_605 = lean_ctor_get(x_598, 1); -lean_inc(x_605); -lean_dec(x_598); -x_606 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_606, 0, x_599); -lean_ctor_set(x_606, 1, x_605); -return x_606; -} -} -} -else -{ -uint8_t x_607; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_607 = !lean_is_exclusive(x_598); -if (x_607 == 0) -{ -return x_598; -} -else -{ -lean_object* x_608; lean_object* x_609; lean_object* x_610; -x_608 = lean_ctor_get(x_598, 0); -x_609 = lean_ctor_get(x_598, 1); -lean_inc(x_609); -lean_inc(x_608); -lean_dec(x_598); -x_610 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_610, 0, x_608); -lean_ctor_set(x_610, 1, x_609); -return x_610; -} -} -} -} -} -else -{ -uint8_t x_611; -lean_dec(x_557); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_611 = !lean_is_exclusive(x_578); -if (x_611 == 0) -{ -return x_578; -} -else -{ -lean_object* x_612; lean_object* x_613; lean_object* x_614; -x_612 = lean_ctor_get(x_578, 0); -x_613 = lean_ctor_get(x_578, 1); -lean_inc(x_613); -lean_inc(x_612); -lean_dec(x_578); -x_614 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_614, 0, x_612); -lean_ctor_set(x_614, 1, x_613); -return x_614; -} -} -} -} -} -else -{ -uint8_t x_615; -lean_dec(x_557); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_615 = !lean_is_exclusive(x_558); -if (x_615 == 0) -{ -return x_558; -} -else -{ -lean_object* x_616; lean_object* x_617; lean_object* x_618; -x_616 = lean_ctor_get(x_558, 0); -x_617 = lean_ctor_get(x_558, 1); -lean_inc(x_617); -lean_inc(x_616); -lean_dec(x_558); -x_618 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_618, 0, x_616); -lean_ctor_set(x_618, 1, x_617); -return x_618; -} -} -} -else -{ -lean_object* x_619; -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_619 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_400); -if (lean_obj_tag(x_619) == 0) -{ -lean_object* x_620; uint8_t x_621; -x_620 = lean_ctor_get(x_619, 0); -lean_inc(x_620); -x_621 = lean_unbox(x_620); -lean_dec(x_620); -switch (x_621) { -case 0: -{ -uint8_t x_622; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_622 = !lean_is_exclusive(x_619); -if (x_622 == 0) -{ -lean_object* x_623; uint8_t x_624; lean_object* x_625; -x_623 = lean_ctor_get(x_619, 0); -lean_dec(x_623); -x_624 = 0; -x_625 = lean_box(x_624); -lean_ctor_set(x_619, 0, x_625); -return x_619; -} -else -{ -lean_object* x_626; uint8_t x_627; lean_object* x_628; lean_object* x_629; -x_626 = lean_ctor_get(x_619, 1); -lean_inc(x_626); -lean_dec(x_619); -x_627 = 0; -x_628 = lean_box(x_627); -x_629 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_629, 0, x_628); -lean_ctor_set(x_629, 1, x_626); -return x_629; -} -} -case 1: -{ -uint8_t x_630; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_630 = !lean_is_exclusive(x_619); -if (x_630 == 0) -{ -lean_object* x_631; uint8_t x_632; lean_object* x_633; -x_631 = lean_ctor_get(x_619, 0); -lean_dec(x_631); -x_632 = 1; -x_633 = lean_box(x_632); -lean_ctor_set(x_619, 0, x_633); -return x_619; -} -else -{ -lean_object* x_634; uint8_t x_635; lean_object* x_636; lean_object* x_637; -x_634 = lean_ctor_get(x_619, 1); -lean_inc(x_634); -lean_dec(x_619); -x_635 = 1; -x_636 = lean_box(x_635); -x_637 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_637, 0, x_636); -lean_ctor_set(x_637, 1, x_634); -return x_637; -} -} -default: -{ -lean_object* x_638; lean_object* x_639; -x_638 = lean_ctor_get(x_619, 1); -lean_inc(x_638); -lean_dec(x_619); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_639 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_638); -if (lean_obj_tag(x_639) == 0) -{ -lean_object* x_640; uint8_t x_641; -x_640 = lean_ctor_get(x_639, 0); -lean_inc(x_640); -x_641 = lean_unbox(x_640); -lean_dec(x_640); -switch (x_641) { -case 0: -{ -uint8_t x_642; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_642 = !lean_is_exclusive(x_639); -if (x_642 == 0) -{ -lean_object* x_643; uint8_t x_644; lean_object* x_645; -x_643 = lean_ctor_get(x_639, 0); -lean_dec(x_643); -x_644 = 0; -x_645 = lean_box(x_644); -lean_ctor_set(x_639, 0, x_645); -return x_639; -} -else -{ -lean_object* x_646; uint8_t x_647; lean_object* x_648; lean_object* x_649; -x_646 = lean_ctor_get(x_639, 1); -lean_inc(x_646); -lean_dec(x_639); -x_647 = 0; -x_648 = lean_box(x_647); -x_649 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_649, 0, x_648); -lean_ctor_set(x_649, 1, x_646); -return x_649; -} -} -case 1: -{ -uint8_t x_650; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_650 = !lean_is_exclusive(x_639); -if (x_650 == 0) -{ -lean_object* x_651; uint8_t x_652; lean_object* x_653; -x_651 = lean_ctor_get(x_639, 0); -lean_dec(x_651); -x_652 = 1; -x_653 = lean_box(x_652); -lean_ctor_set(x_639, 0, x_653); -return x_639; -} -else -{ -lean_object* x_654; uint8_t x_655; lean_object* x_656; lean_object* x_657; -x_654 = lean_ctor_get(x_639, 1); -lean_inc(x_654); -lean_dec(x_639); -x_655 = 1; -x_656 = lean_box(x_655); -x_657 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_657, 0, x_656); -lean_ctor_set(x_657, 1, x_654); -return x_657; -} -} -default: -{ -lean_object* x_658; lean_object* x_659; -x_658 = lean_ctor_get(x_639, 1); -lean_inc(x_658); -lean_dec(x_639); -lean_inc(x_6); -x_659 = l___private_Init_Lean_Meta_ExprDefEq_44__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure___spec__2(x_6, x_9, x_6, x_3, x_658); -return x_659; -} -} -} -else -{ -uint8_t x_660; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_660 = !lean_is_exclusive(x_639); -if (x_660 == 0) -{ -return x_639; -} -else -{ -lean_object* x_661; lean_object* x_662; lean_object* x_663; -x_661 = lean_ctor_get(x_639, 0); -x_662 = lean_ctor_get(x_639, 1); -lean_inc(x_662); -lean_inc(x_661); -lean_dec(x_639); -x_663 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_663, 0, x_661); -lean_ctor_set(x_663, 1, x_662); -return x_663; -} -} -} -} -} -else -{ -uint8_t x_664; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_664 = !lean_is_exclusive(x_619); -if (x_664 == 0) -{ -return x_619; -} -else -{ -lean_object* x_665; lean_object* x_666; lean_object* x_667; -x_665 = lean_ctor_get(x_619, 0); -x_666 = lean_ctor_get(x_619, 1); -lean_inc(x_666); -lean_inc(x_665); -lean_dec(x_619); -x_667 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_667, 0, x_665); -lean_ctor_set(x_667, 1, x_666); -return x_667; -} -} -} -} -default: -{ -lean_object* x_668; -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_668 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_400); -if (lean_obj_tag(x_668) == 0) -{ -lean_object* x_669; uint8_t x_670; -x_669 = lean_ctor_get(x_668, 0); -lean_inc(x_669); -x_670 = lean_unbox(x_669); -lean_dec(x_669); -switch (x_670) { -case 0: -{ -uint8_t x_671; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_671 = !lean_is_exclusive(x_668); -if (x_671 == 0) -{ -lean_object* x_672; uint8_t x_673; lean_object* x_674; -x_672 = lean_ctor_get(x_668, 0); -lean_dec(x_672); -x_673 = 0; -x_674 = lean_box(x_673); -lean_ctor_set(x_668, 0, x_674); -return x_668; -} -else -{ -lean_object* x_675; uint8_t x_676; lean_object* x_677; lean_object* x_678; -x_675 = lean_ctor_get(x_668, 1); -lean_inc(x_675); -lean_dec(x_668); -x_676 = 0; -x_677 = lean_box(x_676); -x_678 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_678, 0, x_677); -lean_ctor_set(x_678, 1, x_675); -return x_678; -} -} -case 1: -{ -uint8_t x_679; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_679 = !lean_is_exclusive(x_668); -if (x_679 == 0) -{ -lean_object* x_680; uint8_t x_681; lean_object* x_682; -x_680 = lean_ctor_get(x_668, 0); -lean_dec(x_680); -x_681 = 1; -x_682 = lean_box(x_681); -lean_ctor_set(x_668, 0, x_682); -return x_668; -} -else -{ -lean_object* x_683; uint8_t x_684; lean_object* x_685; lean_object* x_686; -x_683 = lean_ctor_get(x_668, 1); -lean_inc(x_683); -lean_dec(x_668); -x_684 = 1; -x_685 = lean_box(x_684); -x_686 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_686, 0, x_685); -lean_ctor_set(x_686, 1, x_683); -return x_686; -} -} -default: -{ -lean_object* x_687; lean_object* x_688; -x_687 = lean_ctor_get(x_668, 1); -lean_inc(x_687); -lean_dec(x_668); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_688 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_687); -if (lean_obj_tag(x_688) == 0) -{ -lean_object* x_689; uint8_t x_690; -x_689 = lean_ctor_get(x_688, 0); -lean_inc(x_689); -x_690 = lean_unbox(x_689); -lean_dec(x_689); -switch (x_690) { -case 0: -{ -uint8_t x_691; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_691 = !lean_is_exclusive(x_688); -if (x_691 == 0) -{ -lean_object* x_692; uint8_t x_693; lean_object* x_694; -x_692 = lean_ctor_get(x_688, 0); -lean_dec(x_692); -x_693 = 0; -x_694 = lean_box(x_693); -lean_ctor_set(x_688, 0, x_694); -return x_688; -} -else -{ -lean_object* x_695; uint8_t x_696; lean_object* x_697; lean_object* x_698; -x_695 = lean_ctor_get(x_688, 1); -lean_inc(x_695); -lean_dec(x_688); -x_696 = 0; -x_697 = lean_box(x_696); -x_698 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_698, 0, x_697); -lean_ctor_set(x_698, 1, x_695); -return x_698; -} -} -case 1: -{ -uint8_t x_699; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_699 = !lean_is_exclusive(x_688); -if (x_699 == 0) -{ -lean_object* x_700; uint8_t x_701; lean_object* x_702; -x_700 = lean_ctor_get(x_688, 0); -lean_dec(x_700); -x_701 = 1; -x_702 = lean_box(x_701); -lean_ctor_set(x_688, 0, x_702); -return x_688; -} -else -{ -lean_object* x_703; uint8_t x_704; lean_object* x_705; lean_object* x_706; -x_703 = lean_ctor_get(x_688, 1); -lean_inc(x_703); -lean_dec(x_688); -x_704 = 1; -x_705 = lean_box(x_704); -x_706 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_706, 0, x_705); -lean_ctor_set(x_706, 1, x_703); -return x_706; -} -} -default: -{ -lean_object* x_707; lean_object* x_708; -x_707 = lean_ctor_get(x_688, 1); -lean_inc(x_707); -lean_dec(x_688); -lean_inc(x_6); -x_708 = l___private_Init_Lean_Meta_ExprDefEq_44__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure___spec__2(x_6, x_9, x_6, x_3, x_707); -return x_708; -} -} -} -else -{ -uint8_t x_709; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_709 = !lean_is_exclusive(x_688); -if (x_709 == 0) -{ -return x_688; -} -else -{ -lean_object* x_710; lean_object* x_711; lean_object* x_712; -x_710 = lean_ctor_get(x_688, 0); -x_711 = lean_ctor_get(x_688, 1); -lean_inc(x_711); -lean_inc(x_710); -lean_dec(x_688); -x_712 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_712, 0, x_710); -lean_ctor_set(x_712, 1, x_711); -return x_712; -} -} -} -} -} -else -{ -uint8_t x_713; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_713 = !lean_is_exclusive(x_668); -if (x_713 == 0) -{ -return x_668; -} -else -{ -lean_object* x_714; lean_object* x_715; lean_object* x_716; -x_714 = lean_ctor_get(x_668, 0); -x_715 = lean_ctor_get(x_668, 1); -lean_inc(x_715); -lean_inc(x_714); -lean_dec(x_668); -x_716 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_716, 0, x_714); -lean_ctor_set(x_716, 1, x_715); -return x_716; -} -} -} -} -} -else -{ -lean_object* x_717; lean_object* x_718; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_717 = lean_box(x_399); -if (lean_is_scalar(x_398)) { - x_718 = lean_alloc_ctor(0, 2, 0); -} else { - x_718 = x_398; -} -lean_ctor_set(x_718, 0, x_717); -lean_ctor_set(x_718, 1, x_400); -return x_718; -} -} -} -} -} -else -{ -uint8_t x_738; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_738 = !lean_is_exclusive(x_378); -if (x_738 == 0) -{ -return x_378; -} -else -{ -lean_object* x_739; lean_object* x_740; lean_object* x_741; -x_739 = lean_ctor_get(x_378, 0); -x_740 = lean_ctor_get(x_378, 1); -lean_inc(x_740); -lean_inc(x_739); -lean_dec(x_378); -x_741 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_741, 0, x_739); -lean_ctor_set(x_741, 1, x_740); -return x_741; -} -} -} -else -{ -uint8_t x_742; lean_object* x_743; lean_object* x_1063; -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_1063 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_6, x_9, x_3, x_10); -if (lean_obj_tag(x_1063) == 0) -{ -lean_object* x_1064; uint8_t x_1065; -x_1064 = lean_ctor_get(x_1063, 0); -lean_inc(x_1064); -x_1065 = lean_unbox(x_1064); -if (x_1065 == 0) -{ -lean_object* x_1066; lean_object* x_1067; -lean_dec(x_1064); -x_1066 = lean_ctor_get(x_1063, 1); -lean_inc(x_1066); -lean_dec(x_1063); -lean_inc(x_3); -lean_inc(x_6); -lean_inc(x_9); -x_1067 = l___private_Init_Lean_Meta_ExprDefEq_1__isDefEqEta(x_9, x_6, x_3, x_1066); -if (lean_obj_tag(x_1067) == 0) -{ -lean_object* x_1068; lean_object* x_1069; uint8_t x_1070; -x_1068 = lean_ctor_get(x_1067, 0); -lean_inc(x_1068); -x_1069 = lean_ctor_get(x_1067, 1); -lean_inc(x_1069); -lean_dec(x_1067); -x_1070 = lean_unbox(x_1068); -lean_dec(x_1068); -x_742 = x_1070; -x_743 = x_1069; -goto block_1062; -} -else -{ -uint8_t x_1071; -lean_dec(x_11); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_1071 = !lean_is_exclusive(x_1067); -if (x_1071 == 0) -{ -return x_1067; -} -else -{ -lean_object* x_1072; lean_object* x_1073; lean_object* x_1074; -x_1072 = lean_ctor_get(x_1067, 0); -x_1073 = lean_ctor_get(x_1067, 1); -lean_inc(x_1073); -lean_inc(x_1072); -lean_dec(x_1067); -x_1074 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1074, 0, x_1072); -lean_ctor_set(x_1074, 1, x_1073); -return x_1074; -} -} -} -else -{ -lean_object* x_1075; uint8_t x_1076; -x_1075 = lean_ctor_get(x_1063, 1); -lean_inc(x_1075); -lean_dec(x_1063); -x_1076 = lean_unbox(x_1064); -lean_dec(x_1064); -x_742 = x_1076; -x_743 = x_1075; -goto block_1062; -} -} -else -{ -uint8_t x_1077; -lean_dec(x_11); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_1077 = !lean_is_exclusive(x_1063); -if (x_1077 == 0) -{ -return x_1063; -} -else -{ -lean_object* x_1078; lean_object* x_1079; lean_object* x_1080; -x_1078 = lean_ctor_get(x_1063, 0); -x_1079 = lean_ctor_get(x_1063, 1); -lean_inc(x_1079); -lean_inc(x_1078); -lean_dec(x_1063); -x_1080 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1080, 0, x_1078); -lean_ctor_set(x_1080, 1, x_1079); -return x_1080; +lean_inc(x_400); +lean_dec(x_385); +x_402 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_402, 0, x_400); +lean_ctor_set(x_402, 1, x_401); +return x_402; } } -block_1062: +block_384: { -if (x_742 == 0) +lean_object* x_292; +if (x_290 == 0) { lean_dec(x_11); switch (lean_obj_tag(x_6)) { @@ -53501,1465 +51734,385 @@ case 4: { if (lean_obj_tag(x_9) == 4) { -lean_object* x_744; lean_object* x_745; lean_object* x_746; lean_object* x_747; uint8_t x_748; -x_744 = lean_ctor_get(x_6, 0); -lean_inc(x_744); -x_745 = lean_ctor_get(x_6, 1); -lean_inc(x_745); -x_746 = lean_ctor_get(x_9, 0); -lean_inc(x_746); -x_747 = lean_ctor_get(x_9, 1); -lean_inc(x_747); -x_748 = lean_name_eq(x_744, x_746); -lean_dec(x_746); -lean_dec(x_744); -if (x_748 == 0) +lean_object* x_367; lean_object* x_368; lean_object* x_369; lean_object* x_370; uint8_t x_371; +x_367 = lean_ctor_get(x_6, 0); +lean_inc(x_367); +x_368 = lean_ctor_get(x_6, 1); +lean_inc(x_368); +x_369 = lean_ctor_get(x_9, 0); +lean_inc(x_369); +x_370 = lean_ctor_get(x_9, 1); +lean_inc(x_370); +x_371 = lean_name_eq(x_367, x_369); +lean_dec(x_369); +lean_dec(x_367); +if (x_371 == 0) { -lean_object* x_749; -lean_dec(x_747); -lean_dec(x_745); -lean_inc(x_3); +lean_object* x_372; lean_object* x_373; +lean_dec(x_370); +lean_dec(x_368); +x_372 = lean_box(x_290); +x_373 = lean_alloc_closure((void*)(l_ReaderT_pure___at_Lean_Meta_MetaExtState_inhabited___spec__1___rarg___boxed), 3, 1); +lean_closure_set(x_373, 0, x_372); +x_292 = x_373; +goto block_366; +} +else +{ +lean_object* x_374; +x_374 = lean_alloc_closure((void*)(l_Lean_Meta_isListLevelDefEqAux___boxed), 4, 2); +lean_closure_set(x_374, 0, x_368); +lean_closure_set(x_374, 1, x_370); +x_292 = x_374; +goto block_366; +} +} +else +{ +lean_object* x_375; lean_inc(x_9); lean_inc(x_6); -x_749 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_743); -if (lean_obj_tag(x_749) == 0) -{ -lean_object* x_750; uint8_t x_751; -x_750 = lean_ctor_get(x_749, 0); -lean_inc(x_750); -x_751 = lean_unbox(x_750); -lean_dec(x_750); -switch (x_751) { -case 0: -{ -uint8_t x_752; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_752 = !lean_is_exclusive(x_749); -if (x_752 == 0) -{ -lean_object* x_753; uint8_t x_754; lean_object* x_755; -x_753 = lean_ctor_get(x_749, 0); -lean_dec(x_753); -x_754 = 0; -x_755 = lean_box(x_754); -lean_ctor_set(x_749, 0, x_755); -return x_749; -} -else -{ -lean_object* x_756; uint8_t x_757; lean_object* x_758; lean_object* x_759; -x_756 = lean_ctor_get(x_749, 1); -lean_inc(x_756); -lean_dec(x_749); -x_757 = 0; -x_758 = lean_box(x_757); -x_759 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_759, 0, x_758); -lean_ctor_set(x_759, 1, x_756); -return x_759; -} -} -case 1: -{ -uint8_t x_760; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_760 = !lean_is_exclusive(x_749); -if (x_760 == 0) -{ -lean_object* x_761; uint8_t x_762; lean_object* x_763; -x_761 = lean_ctor_get(x_749, 0); -lean_dec(x_761); -x_762 = 1; -x_763 = lean_box(x_762); -lean_ctor_set(x_749, 0, x_763); -return x_749; -} -else -{ -lean_object* x_764; uint8_t x_765; lean_object* x_766; lean_object* x_767; -x_764 = lean_ctor_get(x_749, 1); -lean_inc(x_764); -lean_dec(x_749); -x_765 = 1; -x_766 = lean_box(x_765); -x_767 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_767, 0, x_766); -lean_ctor_set(x_767, 1, x_764); -return x_767; -} -} -default: -{ -lean_object* x_768; lean_object* x_769; -x_768 = lean_ctor_get(x_749, 1); -lean_inc(x_768); -lean_dec(x_749); -x_769 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_768); -if (lean_obj_tag(x_769) == 0) -{ -lean_object* x_770; uint8_t x_771; -x_770 = lean_ctor_get(x_769, 0); -lean_inc(x_770); -x_771 = lean_unbox(x_770); -lean_dec(x_770); -switch (x_771) { -case 0: -{ -uint8_t x_772; -x_772 = !lean_is_exclusive(x_769); -if (x_772 == 0) -{ -lean_object* x_773; uint8_t x_774; lean_object* x_775; -x_773 = lean_ctor_get(x_769, 0); -lean_dec(x_773); -x_774 = 0; -x_775 = lean_box(x_774); -lean_ctor_set(x_769, 0, x_775); -return x_769; -} -else -{ -lean_object* x_776; uint8_t x_777; lean_object* x_778; lean_object* x_779; -x_776 = lean_ctor_get(x_769, 1); -lean_inc(x_776); -lean_dec(x_769); -x_777 = 0; -x_778 = lean_box(x_777); -x_779 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_779, 0, x_778); -lean_ctor_set(x_779, 1, x_776); -return x_779; -} -} -case 1: -{ -uint8_t x_780; -x_780 = !lean_is_exclusive(x_769); -if (x_780 == 0) -{ -lean_object* x_781; uint8_t x_782; lean_object* x_783; -x_781 = lean_ctor_get(x_769, 0); -lean_dec(x_781); -x_782 = 1; -x_783 = lean_box(x_782); -lean_ctor_set(x_769, 0, x_783); -return x_769; -} -else -{ -lean_object* x_784; uint8_t x_785; lean_object* x_786; lean_object* x_787; -x_784 = lean_ctor_get(x_769, 1); -lean_inc(x_784); -lean_dec(x_769); -x_785 = 1; -x_786 = lean_box(x_785); -x_787 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_787, 0, x_786); -lean_ctor_set(x_787, 1, x_784); -return x_787; -} -} -default: -{ -uint8_t x_788; -x_788 = !lean_is_exclusive(x_769); -if (x_788 == 0) -{ -lean_object* x_789; lean_object* x_790; -x_789 = lean_ctor_get(x_769, 0); -lean_dec(x_789); -x_790 = lean_box(x_742); -lean_ctor_set(x_769, 0, x_790); -return x_769; -} -else -{ -lean_object* x_791; lean_object* x_792; lean_object* x_793; -x_791 = lean_ctor_get(x_769, 1); -lean_inc(x_791); -lean_dec(x_769); -x_792 = lean_box(x_742); -x_793 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_793, 0, x_792); -lean_ctor_set(x_793, 1, x_791); -return x_793; -} -} -} -} -else -{ -uint8_t x_794; -x_794 = !lean_is_exclusive(x_769); -if (x_794 == 0) -{ -return x_769; -} -else -{ -lean_object* x_795; lean_object* x_796; lean_object* x_797; -x_795 = lean_ctor_get(x_769, 0); -x_796 = lean_ctor_get(x_769, 1); -lean_inc(x_796); -lean_inc(x_795); -lean_dec(x_769); -x_797 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_797, 0, x_795); -lean_ctor_set(x_797, 1, x_796); -return x_797; -} -} -} -} -} -else -{ -uint8_t x_798; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_798 = !lean_is_exclusive(x_749); -if (x_798 == 0) -{ -return x_749; -} -else -{ -lean_object* x_799; lean_object* x_800; lean_object* x_801; -x_799 = lean_ctor_get(x_749, 0); -x_800 = lean_ctor_get(x_749, 1); -lean_inc(x_800); -lean_inc(x_799); -lean_dec(x_749); -x_801 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_801, 0, x_799); -lean_ctor_set(x_801, 1, x_800); -return x_801; -} -} -} -else -{ -lean_object* x_802; -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_802 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_743); -if (lean_obj_tag(x_802) == 0) -{ -lean_object* x_803; uint8_t x_804; -x_803 = lean_ctor_get(x_802, 0); -lean_inc(x_803); -x_804 = lean_unbox(x_803); -lean_dec(x_803); -switch (x_804) { -case 0: -{ -uint8_t x_805; -lean_dec(x_747); -lean_dec(x_745); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_805 = !lean_is_exclusive(x_802); -if (x_805 == 0) -{ -lean_object* x_806; uint8_t x_807; lean_object* x_808; -x_806 = lean_ctor_get(x_802, 0); -lean_dec(x_806); -x_807 = 0; -x_808 = lean_box(x_807); -lean_ctor_set(x_802, 0, x_808); -return x_802; -} -else -{ -lean_object* x_809; uint8_t x_810; lean_object* x_811; lean_object* x_812; -x_809 = lean_ctor_get(x_802, 1); -lean_inc(x_809); -lean_dec(x_802); -x_810 = 0; -x_811 = lean_box(x_810); -x_812 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_812, 0, x_811); -lean_ctor_set(x_812, 1, x_809); -return x_812; -} -} -case 1: -{ -uint8_t x_813; -lean_dec(x_747); -lean_dec(x_745); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_813 = !lean_is_exclusive(x_802); -if (x_813 == 0) -{ -lean_object* x_814; uint8_t x_815; lean_object* x_816; -x_814 = lean_ctor_get(x_802, 0); -lean_dec(x_814); -x_815 = 1; -x_816 = lean_box(x_815); -lean_ctor_set(x_802, 0, x_816); -return x_802; -} -else -{ -lean_object* x_817; uint8_t x_818; lean_object* x_819; lean_object* x_820; -x_817 = lean_ctor_get(x_802, 1); -lean_inc(x_817); -lean_dec(x_802); -x_818 = 1; -x_819 = lean_box(x_818); -x_820 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_820, 0, x_819); -lean_ctor_set(x_820, 1, x_817); -return x_820; -} -} -default: -{ -lean_object* x_821; lean_object* x_822; -x_821 = lean_ctor_get(x_802, 1); -lean_inc(x_821); -lean_dec(x_802); -lean_inc(x_3); -x_822 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_821); -if (lean_obj_tag(x_822) == 0) -{ -lean_object* x_823; uint8_t x_824; -x_823 = lean_ctor_get(x_822, 0); -lean_inc(x_823); -x_824 = lean_unbox(x_823); -lean_dec(x_823); -switch (x_824) { -case 0: -{ -uint8_t x_825; -lean_dec(x_747); -lean_dec(x_745); -lean_dec(x_3); -x_825 = !lean_is_exclusive(x_822); -if (x_825 == 0) -{ -lean_object* x_826; uint8_t x_827; lean_object* x_828; -x_826 = lean_ctor_get(x_822, 0); -lean_dec(x_826); -x_827 = 0; -x_828 = lean_box(x_827); -lean_ctor_set(x_822, 0, x_828); -return x_822; -} -else -{ -lean_object* x_829; uint8_t x_830; lean_object* x_831; lean_object* x_832; -x_829 = lean_ctor_get(x_822, 1); -lean_inc(x_829); -lean_dec(x_822); -x_830 = 0; -x_831 = lean_box(x_830); -x_832 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_832, 0, x_831); -lean_ctor_set(x_832, 1, x_829); -return x_832; -} -} -case 1: -{ -uint8_t x_833; -lean_dec(x_747); -lean_dec(x_745); -lean_dec(x_3); -x_833 = !lean_is_exclusive(x_822); -if (x_833 == 0) -{ -lean_object* x_834; uint8_t x_835; lean_object* x_836; -x_834 = lean_ctor_get(x_822, 0); -lean_dec(x_834); -x_835 = 1; -x_836 = lean_box(x_835); -lean_ctor_set(x_822, 0, x_836); -return x_822; -} -else -{ -lean_object* x_837; uint8_t x_838; lean_object* x_839; lean_object* x_840; -x_837 = lean_ctor_get(x_822, 1); -lean_inc(x_837); -lean_dec(x_822); -x_838 = 1; -x_839 = lean_box(x_838); -x_840 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_840, 0, x_839); -lean_ctor_set(x_840, 1, x_837); -return x_840; -} -} -default: -{ -lean_object* x_841; lean_object* x_842; -x_841 = lean_ctor_get(x_822, 1); -lean_inc(x_841); -lean_dec(x_822); -x_842 = l_Lean_Meta_isListLevelDefEqAux___main(x_745, x_747, x_3, x_841); -lean_dec(x_3); -return x_842; -} -} -} -else -{ -uint8_t x_843; -lean_dec(x_747); -lean_dec(x_745); -lean_dec(x_3); -x_843 = !lean_is_exclusive(x_822); -if (x_843 == 0) -{ -return x_822; -} -else -{ -lean_object* x_844; lean_object* x_845; lean_object* x_846; -x_844 = lean_ctor_get(x_822, 0); -x_845 = lean_ctor_get(x_822, 1); -lean_inc(x_845); -lean_inc(x_844); -lean_dec(x_822); -x_846 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_846, 0, x_844); -lean_ctor_set(x_846, 1, x_845); -return x_846; -} -} -} -} -} -else -{ -uint8_t x_847; -lean_dec(x_747); -lean_dec(x_745); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_847 = !lean_is_exclusive(x_802); -if (x_847 == 0) -{ -return x_802; -} -else -{ -lean_object* x_848; lean_object* x_849; lean_object* x_850; -x_848 = lean_ctor_get(x_802, 0); -x_849 = lean_ctor_get(x_802, 1); -lean_inc(x_849); -lean_inc(x_848); -lean_dec(x_802); -x_850 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_850, 0, x_848); -lean_ctor_set(x_850, 1, x_849); -return x_850; -} -} -} -} -else -{ -lean_object* x_851; -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_851 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_743); -if (lean_obj_tag(x_851) == 0) -{ -lean_object* x_852; uint8_t x_853; -x_852 = lean_ctor_get(x_851, 0); -lean_inc(x_852); -x_853 = lean_unbox(x_852); -lean_dec(x_852); -switch (x_853) { -case 0: -{ -uint8_t x_854; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_854 = !lean_is_exclusive(x_851); -if (x_854 == 0) -{ -lean_object* x_855; uint8_t x_856; lean_object* x_857; -x_855 = lean_ctor_get(x_851, 0); -lean_dec(x_855); -x_856 = 0; -x_857 = lean_box(x_856); -lean_ctor_set(x_851, 0, x_857); -return x_851; -} -else -{ -lean_object* x_858; uint8_t x_859; lean_object* x_860; lean_object* x_861; -x_858 = lean_ctor_get(x_851, 1); -lean_inc(x_858); -lean_dec(x_851); -x_859 = 0; -x_860 = lean_box(x_859); -x_861 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_861, 0, x_860); -lean_ctor_set(x_861, 1, x_858); -return x_861; -} -} -case 1: -{ -uint8_t x_862; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_862 = !lean_is_exclusive(x_851); -if (x_862 == 0) -{ -lean_object* x_863; uint8_t x_864; lean_object* x_865; -x_863 = lean_ctor_get(x_851, 0); -lean_dec(x_863); -x_864 = 1; -x_865 = lean_box(x_864); -lean_ctor_set(x_851, 0, x_865); -return x_851; -} -else -{ -lean_object* x_866; uint8_t x_867; lean_object* x_868; lean_object* x_869; -x_866 = lean_ctor_get(x_851, 1); -lean_inc(x_866); -lean_dec(x_851); -x_867 = 1; -x_868 = lean_box(x_867); -x_869 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_869, 0, x_868); -lean_ctor_set(x_869, 1, x_866); -return x_869; -} -} -default: -{ -lean_object* x_870; lean_object* x_871; -x_870 = lean_ctor_get(x_851, 1); -lean_inc(x_870); -lean_dec(x_851); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_871 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_870); -if (lean_obj_tag(x_871) == 0) -{ -lean_object* x_872; uint8_t x_873; -x_872 = lean_ctor_get(x_871, 0); -lean_inc(x_872); -x_873 = lean_unbox(x_872); -lean_dec(x_872); -switch (x_873) { -case 0: -{ -uint8_t x_874; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_874 = !lean_is_exclusive(x_871); -if (x_874 == 0) -{ -lean_object* x_875; uint8_t x_876; lean_object* x_877; -x_875 = lean_ctor_get(x_871, 0); -lean_dec(x_875); -x_876 = 0; -x_877 = lean_box(x_876); -lean_ctor_set(x_871, 0, x_877); -return x_871; -} -else -{ -lean_object* x_878; uint8_t x_879; lean_object* x_880; lean_object* x_881; -x_878 = lean_ctor_get(x_871, 1); -lean_inc(x_878); -lean_dec(x_871); -x_879 = 0; -x_880 = lean_box(x_879); -x_881 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_881, 0, x_880); -lean_ctor_set(x_881, 1, x_878); -return x_881; -} -} -case 1: -{ -uint8_t x_882; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_882 = !lean_is_exclusive(x_871); -if (x_882 == 0) -{ -lean_object* x_883; uint8_t x_884; lean_object* x_885; -x_883 = lean_ctor_get(x_871, 0); -lean_dec(x_883); -x_884 = 1; -x_885 = lean_box(x_884); -lean_ctor_set(x_871, 0, x_885); -return x_871; -} -else -{ -lean_object* x_886; uint8_t x_887; lean_object* x_888; lean_object* x_889; -x_886 = lean_ctor_get(x_871, 1); -lean_inc(x_886); -lean_dec(x_871); -x_887 = 1; -x_888 = lean_box(x_887); -x_889 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_889, 0, x_888); -lean_ctor_set(x_889, 1, x_886); -return x_889; -} -} -default: -{ -lean_object* x_890; lean_object* x_891; -x_890 = lean_ctor_get(x_871, 1); -lean_inc(x_890); -lean_dec(x_871); -lean_inc(x_6); -x_891 = l___private_Init_Lean_Meta_ExprDefEq_44__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure___spec__2(x_6, x_9, x_6, x_3, x_890); -return x_891; -} -} -} -else -{ -uint8_t x_892; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_892 = !lean_is_exclusive(x_871); -if (x_892 == 0) -{ -return x_871; -} -else -{ -lean_object* x_893; lean_object* x_894; lean_object* x_895; -x_893 = lean_ctor_get(x_871, 0); -x_894 = lean_ctor_get(x_871, 1); -lean_inc(x_894); -lean_inc(x_893); -lean_dec(x_871); -x_895 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_895, 0, x_893); -lean_ctor_set(x_895, 1, x_894); -return x_895; -} -} -} -} -} -else -{ -uint8_t x_896; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_896 = !lean_is_exclusive(x_851); -if (x_896 == 0) -{ -return x_851; -} -else -{ -lean_object* x_897; lean_object* x_898; lean_object* x_899; -x_897 = lean_ctor_get(x_851, 0); -x_898 = lean_ctor_get(x_851, 1); -lean_inc(x_898); -lean_inc(x_897); -lean_dec(x_851); -x_899 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_899, 0, x_897); -lean_ctor_set(x_899, 1, x_898); -return x_899; -} -} +x_375 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure), 4, 2); +lean_closure_set(x_375, 0, x_6); +lean_closure_set(x_375, 1, x_9); +x_292 = x_375; +goto block_366; } } case 5: { if (lean_obj_tag(x_9) == 5) { -lean_object* x_900; lean_object* x_901; -x_900 = l_Lean_Expr_getAppFn___main(x_6); -lean_inc(x_3); +lean_object* x_376; lean_object* x_377; lean_object* x_378; lean_object* x_379; +x_376 = l_Lean_Expr_getAppFn___main(x_6); lean_inc(x_9); lean_inc(x_6); -x_901 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_743); -if (lean_obj_tag(x_901) == 0) -{ -lean_object* x_902; uint8_t x_903; -x_902 = lean_ctor_get(x_901, 0); -lean_inc(x_902); -x_903 = lean_unbox(x_902); -lean_dec(x_902); -switch (x_903) { -case 0: -{ -uint8_t x_904; -lean_dec(x_900); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_904 = !lean_is_exclusive(x_901); -if (x_904 == 0) -{ -lean_object* x_905; uint8_t x_906; lean_object* x_907; -x_905 = lean_ctor_get(x_901, 0); -lean_dec(x_905); -x_906 = 0; -x_907 = lean_box(x_906); -lean_ctor_set(x_901, 0, x_907); -return x_901; +x_377 = lean_alloc_closure((void*)(l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1), 5, 3); +lean_closure_set(x_377, 0, x_6); +lean_closure_set(x_377, 1, x_9); +lean_closure_set(x_377, 2, x_376); +lean_inc(x_9); +lean_inc(x_6); +x_378 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_ExprDefEq_43__isDefEqWHNF___at_Lean_Meta_isExprDefEqAuxImpl___spec__2___lambda__1___boxed), 5, 2); +lean_closure_set(x_378, 0, x_6); +lean_closure_set(x_378, 1, x_9); +x_379 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg), 4, 2); +lean_closure_set(x_379, 0, x_377); +lean_closure_set(x_379, 1, x_378); +x_292 = x_379; +goto block_366; } else { -lean_object* x_908; uint8_t x_909; lean_object* x_910; lean_object* x_911; -x_908 = lean_ctor_get(x_901, 1); -lean_inc(x_908); -lean_dec(x_901); -x_909 = 0; -x_910 = lean_box(x_909); -x_911 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_911, 0, x_910); -lean_ctor_set(x_911, 1, x_908); -return x_911; -} -} -case 1: -{ -uint8_t x_912; -lean_dec(x_900); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_912 = !lean_is_exclusive(x_901); -if (x_912 == 0) -{ -lean_object* x_913; uint8_t x_914; lean_object* x_915; -x_913 = lean_ctor_get(x_901, 0); -lean_dec(x_913); -x_914 = 1; -x_915 = lean_box(x_914); -lean_ctor_set(x_901, 0, x_915); -return x_901; -} -else -{ -lean_object* x_916; uint8_t x_917; lean_object* x_918; lean_object* x_919; -x_916 = lean_ctor_get(x_901, 1); -lean_inc(x_916); -lean_dec(x_901); -x_917 = 1; -x_918 = lean_box(x_917); -x_919 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_919, 0, x_918); -lean_ctor_set(x_919, 1, x_916); -return x_919; +lean_object* x_380; +lean_inc(x_9); +lean_inc(x_6); +x_380 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure), 4, 2); +lean_closure_set(x_380, 0, x_6); +lean_closure_set(x_380, 1, x_9); +x_292 = x_380; +goto block_366; } } default: { -lean_object* x_920; lean_object* x_921; -x_920 = lean_ctor_get(x_901, 1); -lean_inc(x_920); -lean_dec(x_901); -lean_inc(x_3); +lean_object* x_381; lean_inc(x_9); lean_inc(x_6); -x_921 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_920); -if (lean_obj_tag(x_921) == 0) +x_381 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure), 4, 2); +lean_closure_set(x_381, 0, x_6); +lean_closure_set(x_381, 1, x_9); +x_292 = x_381; +goto block_366; +} +} +} +else { -lean_object* x_922; uint8_t x_923; -x_922 = lean_ctor_get(x_921, 0); -lean_inc(x_922); -x_923 = lean_unbox(x_922); -lean_dec(x_922); -switch (x_923) { -case 0: -{ -uint8_t x_924; -lean_dec(x_900); +lean_object* x_382; lean_object* x_383; lean_dec(x_9); lean_dec(x_6); lean_dec(x_3); -x_924 = !lean_is_exclusive(x_921); -if (x_924 == 0) -{ -lean_object* x_925; uint8_t x_926; lean_object* x_927; -x_925 = lean_ctor_get(x_921, 0); -lean_dec(x_925); -x_926 = 0; -x_927 = lean_box(x_926); -lean_ctor_set(x_921, 0, x_927); -return x_921; -} -else -{ -lean_object* x_928; uint8_t x_929; lean_object* x_930; lean_object* x_931; -x_928 = lean_ctor_get(x_921, 1); -lean_inc(x_928); -lean_dec(x_921); -x_929 = 0; -x_930 = lean_box(x_929); -x_931 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_931, 0, x_930); -lean_ctor_set(x_931, 1, x_928); -return x_931; -} -} -case 1: -{ -uint8_t x_932; -lean_dec(x_900); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_932 = !lean_is_exclusive(x_921); -if (x_932 == 0) -{ -lean_object* x_933; uint8_t x_934; lean_object* x_935; -x_933 = lean_ctor_get(x_921, 0); -lean_dec(x_933); -x_934 = 1; -x_935 = lean_box(x_934); -lean_ctor_set(x_921, 0, x_935); -return x_921; -} -else -{ -lean_object* x_936; uint8_t x_937; lean_object* x_938; lean_object* x_939; -x_936 = lean_ctor_get(x_921, 1); -lean_inc(x_936); -lean_dec(x_921); -x_937 = 1; -x_938 = lean_box(x_937); -x_939 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_939, 0, x_938); -lean_ctor_set(x_939, 1, x_936); -return x_939; -} -} -default: -{ -lean_object* x_940; lean_object* x_941; -x_940 = lean_ctor_get(x_921, 1); -lean_inc(x_940); -lean_dec(x_921); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_941 = l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(x_6, x_9, x_900, x_3, x_940); -if (lean_obj_tag(x_941) == 0) -{ -lean_object* x_942; uint8_t x_943; -x_942 = lean_ctor_get(x_941, 0); -lean_inc(x_942); -x_943 = lean_unbox(x_942); -if (x_943 == 0) -{ -lean_object* x_944; lean_object* x_945; -lean_dec(x_942); -x_944 = lean_ctor_get(x_941, 1); -lean_inc(x_944); -lean_dec(x_941); -lean_inc(x_6); -x_945 = l___private_Init_Lean_Meta_ExprDefEq_44__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure___spec__2(x_6, x_9, x_6, x_3, x_944); -return x_945; -} -else -{ -uint8_t x_946; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_946 = !lean_is_exclusive(x_941); -if (x_946 == 0) -{ -lean_object* x_947; -x_947 = lean_ctor_get(x_941, 0); -lean_dec(x_947); -return x_941; -} -else -{ -lean_object* x_948; lean_object* x_949; -x_948 = lean_ctor_get(x_941, 1); -lean_inc(x_948); -lean_dec(x_941); -x_949 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_949, 0, x_942); -lean_ctor_set(x_949, 1, x_948); -return x_949; -} -} -} -else -{ -uint8_t x_950; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_950 = !lean_is_exclusive(x_941); -if (x_950 == 0) -{ -return x_941; -} -else -{ -lean_object* x_951; lean_object* x_952; lean_object* x_953; -x_951 = lean_ctor_get(x_941, 0); -x_952 = lean_ctor_get(x_941, 1); -lean_inc(x_952); -lean_inc(x_951); -lean_dec(x_941); -x_953 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_953, 0, x_951); -lean_ctor_set(x_953, 1, x_952); -return x_953; -} -} -} -} -} -else -{ -uint8_t x_954; -lean_dec(x_900); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_954 = !lean_is_exclusive(x_921); -if (x_954 == 0) -{ -return x_921; -} -else -{ -lean_object* x_955; lean_object* x_956; lean_object* x_957; -x_955 = lean_ctor_get(x_921, 0); -x_956 = lean_ctor_get(x_921, 1); -lean_inc(x_956); -lean_inc(x_955); -lean_dec(x_921); -x_957 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_957, 0, x_955); -lean_ctor_set(x_957, 1, x_956); -return x_957; -} -} -} -} -} -else -{ -uint8_t x_958; -lean_dec(x_900); -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_958 = !lean_is_exclusive(x_901); -if (x_958 == 0) -{ -return x_901; -} -else -{ -lean_object* x_959; lean_object* x_960; lean_object* x_961; -x_959 = lean_ctor_get(x_901, 0); -x_960 = lean_ctor_get(x_901, 1); -lean_inc(x_960); -lean_inc(x_959); -lean_dec(x_901); -x_961 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_961, 0, x_959); -lean_ctor_set(x_961, 1, x_960); -return x_961; -} -} -} -else -{ -lean_object* x_962; -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_962 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_743); -if (lean_obj_tag(x_962) == 0) -{ -lean_object* x_963; uint8_t x_964; -x_963 = lean_ctor_get(x_962, 0); -lean_inc(x_963); -x_964 = lean_unbox(x_963); -lean_dec(x_963); -switch (x_964) { -case 0: -{ -uint8_t x_965; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_965 = !lean_is_exclusive(x_962); -if (x_965 == 0) -{ -lean_object* x_966; uint8_t x_967; lean_object* x_968; -x_966 = lean_ctor_get(x_962, 0); -lean_dec(x_966); -x_967 = 0; -x_968 = lean_box(x_967); -lean_ctor_set(x_962, 0, x_968); -return x_962; -} -else -{ -lean_object* x_969; uint8_t x_970; lean_object* x_971; lean_object* x_972; -x_969 = lean_ctor_get(x_962, 1); -lean_inc(x_969); -lean_dec(x_962); -x_970 = 0; -x_971 = lean_box(x_970); -x_972 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_972, 0, x_971); -lean_ctor_set(x_972, 1, x_969); -return x_972; -} -} -case 1: -{ -uint8_t x_973; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_973 = !lean_is_exclusive(x_962); -if (x_973 == 0) -{ -lean_object* x_974; uint8_t x_975; lean_object* x_976; -x_974 = lean_ctor_get(x_962, 0); -lean_dec(x_974); -x_975 = 1; -x_976 = lean_box(x_975); -lean_ctor_set(x_962, 0, x_976); -return x_962; -} -else -{ -lean_object* x_977; uint8_t x_978; lean_object* x_979; lean_object* x_980; -x_977 = lean_ctor_get(x_962, 1); -lean_inc(x_977); -lean_dec(x_962); -x_978 = 1; -x_979 = lean_box(x_978); -x_980 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_980, 0, x_979); -lean_ctor_set(x_980, 1, x_977); -return x_980; -} -} -default: -{ -lean_object* x_981; lean_object* x_982; -x_981 = lean_ctor_get(x_962, 1); -lean_inc(x_981); -lean_dec(x_962); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_982 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_981); -if (lean_obj_tag(x_982) == 0) -{ -lean_object* x_983; uint8_t x_984; -x_983 = lean_ctor_get(x_982, 0); -lean_inc(x_983); -x_984 = lean_unbox(x_983); -lean_dec(x_983); -switch (x_984) { -case 0: -{ -uint8_t x_985; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_985 = !lean_is_exclusive(x_982); -if (x_985 == 0) -{ -lean_object* x_986; uint8_t x_987; lean_object* x_988; -x_986 = lean_ctor_get(x_982, 0); -lean_dec(x_986); -x_987 = 0; -x_988 = lean_box(x_987); -lean_ctor_set(x_982, 0, x_988); -return x_982; -} -else -{ -lean_object* x_989; uint8_t x_990; lean_object* x_991; lean_object* x_992; -x_989 = lean_ctor_get(x_982, 1); -lean_inc(x_989); -lean_dec(x_982); -x_990 = 0; -x_991 = lean_box(x_990); -x_992 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_992, 0, x_991); -lean_ctor_set(x_992, 1, x_989); -return x_992; -} -} -case 1: -{ -uint8_t x_993; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_993 = !lean_is_exclusive(x_982); -if (x_993 == 0) -{ -lean_object* x_994; uint8_t x_995; lean_object* x_996; -x_994 = lean_ctor_get(x_982, 0); -lean_dec(x_994); -x_995 = 1; -x_996 = lean_box(x_995); -lean_ctor_set(x_982, 0, x_996); -return x_982; -} -else -{ -lean_object* x_997; uint8_t x_998; lean_object* x_999; lean_object* x_1000; -x_997 = lean_ctor_get(x_982, 1); -lean_inc(x_997); -lean_dec(x_982); -x_998 = 1; -x_999 = lean_box(x_998); -x_1000 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1000, 0, x_999); -lean_ctor_set(x_1000, 1, x_997); -return x_1000; -} -} -default: -{ -lean_object* x_1001; lean_object* x_1002; -x_1001 = lean_ctor_get(x_982, 1); -lean_inc(x_1001); -lean_dec(x_982); -lean_inc(x_6); -x_1002 = l___private_Init_Lean_Meta_ExprDefEq_44__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure___spec__2(x_6, x_9, x_6, x_3, x_1001); -return x_1002; -} -} -} -else -{ -uint8_t x_1003; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_1003 = !lean_is_exclusive(x_982); -if (x_1003 == 0) -{ -return x_982; -} -else -{ -lean_object* x_1004; lean_object* x_1005; lean_object* x_1006; -x_1004 = lean_ctor_get(x_982, 0); -x_1005 = lean_ctor_get(x_982, 1); -lean_inc(x_1005); -lean_inc(x_1004); -lean_dec(x_982); -x_1006 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1006, 0, x_1004); -lean_ctor_set(x_1006, 1, x_1005); -return x_1006; -} -} -} -} -} -else -{ -uint8_t x_1007; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_1007 = !lean_is_exclusive(x_962); -if (x_1007 == 0) -{ -return x_962; -} -else -{ -lean_object* x_1008; lean_object* x_1009; lean_object* x_1010; -x_1008 = lean_ctor_get(x_962, 0); -x_1009 = lean_ctor_get(x_962, 1); -lean_inc(x_1009); -lean_inc(x_1008); -lean_dec(x_962); -x_1010 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1010, 0, x_1008); -lean_ctor_set(x_1010, 1, x_1009); -return x_1010; -} -} -} -} -default: -{ -lean_object* x_1011; -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_1011 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_743); -if (lean_obj_tag(x_1011) == 0) -{ -lean_object* x_1012; uint8_t x_1013; -x_1012 = lean_ctor_get(x_1011, 0); -lean_inc(x_1012); -x_1013 = lean_unbox(x_1012); -lean_dec(x_1012); -switch (x_1013) { -case 0: -{ -uint8_t x_1014; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_1014 = !lean_is_exclusive(x_1011); -if (x_1014 == 0) -{ -lean_object* x_1015; uint8_t x_1016; lean_object* x_1017; -x_1015 = lean_ctor_get(x_1011, 0); -lean_dec(x_1015); -x_1016 = 0; -x_1017 = lean_box(x_1016); -lean_ctor_set(x_1011, 0, x_1017); -return x_1011; -} -else -{ -lean_object* x_1018; uint8_t x_1019; lean_object* x_1020; lean_object* x_1021; -x_1018 = lean_ctor_get(x_1011, 1); -lean_inc(x_1018); -lean_dec(x_1011); -x_1019 = 0; -x_1020 = lean_box(x_1019); -x_1021 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1021, 0, x_1020); -lean_ctor_set(x_1021, 1, x_1018); -return x_1021; -} -} -case 1: -{ -uint8_t x_1022; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_1022 = !lean_is_exclusive(x_1011); -if (x_1022 == 0) -{ -lean_object* x_1023; uint8_t x_1024; lean_object* x_1025; -x_1023 = lean_ctor_get(x_1011, 0); -lean_dec(x_1023); -x_1024 = 1; -x_1025 = lean_box(x_1024); -lean_ctor_set(x_1011, 0, x_1025); -return x_1011; -} -else -{ -lean_object* x_1026; uint8_t x_1027; lean_object* x_1028; lean_object* x_1029; -x_1026 = lean_ctor_get(x_1011, 1); -lean_inc(x_1026); -lean_dec(x_1011); -x_1027 = 1; -x_1028 = lean_box(x_1027); -x_1029 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1029, 0, x_1028); -lean_ctor_set(x_1029, 1, x_1026); -return x_1029; -} -} -default: -{ -lean_object* x_1030; lean_object* x_1031; -x_1030 = lean_ctor_get(x_1011, 1); -lean_inc(x_1030); -lean_dec(x_1011); -lean_inc(x_3); -lean_inc(x_9); -lean_inc(x_6); -x_1031 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_1030); -if (lean_obj_tag(x_1031) == 0) -{ -lean_object* x_1032; uint8_t x_1033; -x_1032 = lean_ctor_get(x_1031, 0); -lean_inc(x_1032); -x_1033 = lean_unbox(x_1032); -lean_dec(x_1032); -switch (x_1033) { -case 0: -{ -uint8_t x_1034; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_1034 = !lean_is_exclusive(x_1031); -if (x_1034 == 0) -{ -lean_object* x_1035; uint8_t x_1036; lean_object* x_1037; -x_1035 = lean_ctor_get(x_1031, 0); -lean_dec(x_1035); -x_1036 = 0; -x_1037 = lean_box(x_1036); -lean_ctor_set(x_1031, 0, x_1037); -return x_1031; -} -else -{ -lean_object* x_1038; uint8_t x_1039; lean_object* x_1040; lean_object* x_1041; -x_1038 = lean_ctor_get(x_1031, 1); -lean_inc(x_1038); -lean_dec(x_1031); -x_1039 = 0; -x_1040 = lean_box(x_1039); -x_1041 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1041, 0, x_1040); -lean_ctor_set(x_1041, 1, x_1038); -return x_1041; -} -} -case 1: -{ -uint8_t x_1042; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_1042 = !lean_is_exclusive(x_1031); -if (x_1042 == 0) -{ -lean_object* x_1043; uint8_t x_1044; lean_object* x_1045; -x_1043 = lean_ctor_get(x_1031, 0); -lean_dec(x_1043); -x_1044 = 1; -x_1045 = lean_box(x_1044); -lean_ctor_set(x_1031, 0, x_1045); -return x_1031; -} -else -{ -lean_object* x_1046; uint8_t x_1047; lean_object* x_1048; lean_object* x_1049; -x_1046 = lean_ctor_get(x_1031, 1); -lean_inc(x_1046); -lean_dec(x_1031); -x_1047 = 1; -x_1048 = lean_box(x_1047); -x_1049 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1049, 0, x_1048); -lean_ctor_set(x_1049, 1, x_1046); -return x_1049; -} -} -default: -{ -lean_object* x_1050; lean_object* x_1051; -x_1050 = lean_ctor_get(x_1031, 1); -lean_inc(x_1050); -lean_dec(x_1031); -lean_inc(x_6); -x_1051 = l___private_Init_Lean_Meta_ExprDefEq_44__unstuckMVar___at___private_Init_Lean_Meta_ExprDefEq_45__isDefEqOnFailure___spec__2(x_6, x_9, x_6, x_3, x_1050); -return x_1051; -} -} -} -else -{ -uint8_t x_1052; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_1052 = !lean_is_exclusive(x_1031); -if (x_1052 == 0) -{ -return x_1031; -} -else -{ -lean_object* x_1053; lean_object* x_1054; lean_object* x_1055; -x_1053 = lean_ctor_get(x_1031, 0); -x_1054 = lean_ctor_get(x_1031, 1); -lean_inc(x_1054); -lean_inc(x_1053); -lean_dec(x_1031); -x_1055 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1055, 0, x_1053); -lean_ctor_set(x_1055, 1, x_1054); -return x_1055; -} -} -} -} -} -else -{ -uint8_t x_1056; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_1056 = !lean_is_exclusive(x_1011); -if (x_1056 == 0) -{ -return x_1011; -} -else -{ -lean_object* x_1057; lean_object* x_1058; lean_object* x_1059; -x_1057 = lean_ctor_get(x_1011, 0); -x_1058 = lean_ctor_get(x_1011, 1); -lean_inc(x_1058); -lean_inc(x_1057); -lean_dec(x_1011); -x_1059 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1059, 0, x_1057); -lean_ctor_set(x_1059, 1, x_1058); -return x_1059; -} -} -} -} -} -else -{ -lean_object* x_1060; lean_object* x_1061; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_3); -x_1060 = lean_box(x_742); +x_382 = lean_box(x_290); if (lean_is_scalar(x_11)) { - x_1061 = lean_alloc_ctor(0, 2, 0); + x_383 = lean_alloc_ctor(0, 2, 0); } else { - x_1061 = x_11; + x_383 = x_11; } -lean_ctor_set(x_1061, 0, x_1060); -lean_ctor_set(x_1061, 1, x_743); -return x_1061; +lean_ctor_set(x_383, 0, x_382); +lean_ctor_set(x_383, 1, x_291); +return x_383; +} +block_366: +{ +lean_object* x_293; +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_293 = l_Lean_Meta_isDefEqNative(x_6, x_9, x_3, x_291); +if (lean_obj_tag(x_293) == 0) +{ +lean_object* x_294; uint8_t x_295; +x_294 = lean_ctor_get(x_293, 0); +lean_inc(x_294); +x_295 = lean_unbox(x_294); +lean_dec(x_294); +switch (x_295) { +case 0: +{ +uint8_t x_296; +lean_dec(x_292); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_296 = !lean_is_exclusive(x_293); +if (x_296 == 0) +{ +lean_object* x_297; uint8_t x_298; lean_object* x_299; +x_297 = lean_ctor_get(x_293, 0); +lean_dec(x_297); +x_298 = 0; +x_299 = lean_box(x_298); +lean_ctor_set(x_293, 0, x_299); +return x_293; +} +else +{ +lean_object* x_300; uint8_t x_301; lean_object* x_302; lean_object* x_303; +x_300 = lean_ctor_get(x_293, 1); +lean_inc(x_300); +lean_dec(x_293); +x_301 = 0; +x_302 = lean_box(x_301); +x_303 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_303, 0, x_302); +lean_ctor_set(x_303, 1, x_300); +return x_303; +} +} +case 1: +{ +uint8_t x_304; +lean_dec(x_292); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_304 = !lean_is_exclusive(x_293); +if (x_304 == 0) +{ +lean_object* x_305; uint8_t x_306; lean_object* x_307; +x_305 = lean_ctor_get(x_293, 0); +lean_dec(x_305); +x_306 = 1; +x_307 = lean_box(x_306); +lean_ctor_set(x_293, 0, x_307); +return x_293; +} +else +{ +lean_object* x_308; uint8_t x_309; lean_object* x_310; lean_object* x_311; +x_308 = lean_ctor_get(x_293, 1); +lean_inc(x_308); +lean_dec(x_293); +x_309 = 1; +x_310 = lean_box(x_309); +x_311 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_311, 0, x_310); +lean_ctor_set(x_311, 1, x_308); +return x_311; +} +} +default: +{ +lean_object* x_312; lean_object* x_313; +x_312 = lean_ctor_get(x_293, 1); +lean_inc(x_312); +lean_dec(x_293); +lean_inc(x_3); +lean_inc(x_9); +lean_inc(x_6); +x_313 = l_Lean_Meta_isDefEqOffset(x_6, x_9, x_3, x_312); +if (lean_obj_tag(x_313) == 0) +{ +lean_object* x_314; uint8_t x_315; +x_314 = lean_ctor_get(x_313, 0); +lean_inc(x_314); +x_315 = lean_unbox(x_314); +lean_dec(x_314); +switch (x_315) { +case 0: +{ +uint8_t x_316; +lean_dec(x_292); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_316 = !lean_is_exclusive(x_313); +if (x_316 == 0) +{ +lean_object* x_317; uint8_t x_318; lean_object* x_319; +x_317 = lean_ctor_get(x_313, 0); +lean_dec(x_317); +x_318 = 0; +x_319 = lean_box(x_318); +lean_ctor_set(x_313, 0, x_319); +return x_313; +} +else +{ +lean_object* x_320; uint8_t x_321; lean_object* x_322; lean_object* x_323; +x_320 = lean_ctor_get(x_313, 1); +lean_inc(x_320); +lean_dec(x_313); +x_321 = 0; +x_322 = lean_box(x_321); +x_323 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_323, 0, x_322); +lean_ctor_set(x_323, 1, x_320); +return x_323; +} +} +case 1: +{ +uint8_t x_324; +lean_dec(x_292); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_324 = !lean_is_exclusive(x_313); +if (x_324 == 0) +{ +lean_object* x_325; uint8_t x_326; lean_object* x_327; +x_325 = lean_ctor_get(x_313, 0); +lean_dec(x_325); +x_326 = 1; +x_327 = lean_box(x_326); +lean_ctor_set(x_313, 0, x_327); +return x_313; +} +else +{ +lean_object* x_328; uint8_t x_329; lean_object* x_330; lean_object* x_331; +x_328 = lean_ctor_get(x_313, 1); +lean_inc(x_328); +lean_dec(x_313); +x_329 = 1; +x_330 = lean_box(x_329); +x_331 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_331, 0, x_330); +lean_ctor_set(x_331, 1, x_328); +return x_331; +} +} +default: +{ +lean_object* x_332; lean_object* x_333; +x_332 = lean_ctor_get(x_313, 1); +lean_inc(x_332); +lean_dec(x_313); +lean_inc(x_3); +x_333 = l___private_Init_Lean_Meta_ExprDefEq_34__isDefEqDelta(x_6, x_9, x_3, x_332); +if (lean_obj_tag(x_333) == 0) +{ +lean_object* x_334; uint8_t x_335; +x_334 = lean_ctor_get(x_333, 0); +lean_inc(x_334); +x_335 = lean_unbox(x_334); +lean_dec(x_334); +switch (x_335) { +case 0: +{ +uint8_t x_336; +lean_dec(x_292); +lean_dec(x_3); +x_336 = !lean_is_exclusive(x_333); +if (x_336 == 0) +{ +lean_object* x_337; uint8_t x_338; lean_object* x_339; +x_337 = lean_ctor_get(x_333, 0); +lean_dec(x_337); +x_338 = 0; +x_339 = lean_box(x_338); +lean_ctor_set(x_333, 0, x_339); +return x_333; +} +else +{ +lean_object* x_340; uint8_t x_341; lean_object* x_342; lean_object* x_343; +x_340 = lean_ctor_get(x_333, 1); +lean_inc(x_340); +lean_dec(x_333); +x_341 = 0; +x_342 = lean_box(x_341); +x_343 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_343, 0, x_342); +lean_ctor_set(x_343, 1, x_340); +return x_343; +} +} +case 1: +{ +uint8_t x_344; +lean_dec(x_292); +lean_dec(x_3); +x_344 = !lean_is_exclusive(x_333); +if (x_344 == 0) +{ +lean_object* x_345; uint8_t x_346; lean_object* x_347; +x_345 = lean_ctor_get(x_333, 0); +lean_dec(x_345); +x_346 = 1; +x_347 = lean_box(x_346); +lean_ctor_set(x_333, 0, x_347); +return x_333; +} +else +{ +lean_object* x_348; uint8_t x_349; lean_object* x_350; lean_object* x_351; +x_348 = lean_ctor_get(x_333, 1); +lean_inc(x_348); +lean_dec(x_333); +x_349 = 1; +x_350 = lean_box(x_349); +x_351 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_351, 0, x_350); +lean_ctor_set(x_351, 1, x_348); +return x_351; +} +} +default: +{ +lean_object* x_352; lean_object* x_353; +x_352 = lean_ctor_get(x_333, 1); +lean_inc(x_352); +lean_dec(x_333); +x_353 = lean_apply_2(x_292, x_3, x_352); +return x_353; +} +} +} +else +{ +uint8_t x_354; +lean_dec(x_292); +lean_dec(x_3); +x_354 = !lean_is_exclusive(x_333); +if (x_354 == 0) +{ +return x_333; +} +else +{ +lean_object* x_355; lean_object* x_356; lean_object* x_357; +x_355 = lean_ctor_get(x_333, 0); +x_356 = lean_ctor_get(x_333, 1); +lean_inc(x_356); +lean_inc(x_355); +lean_dec(x_333); +x_357 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_357, 0, x_355); +lean_ctor_set(x_357, 1, x_356); +return x_357; } } } @@ -54967,54 +52120,114 @@ return x_1061; } else { -uint8_t x_1081; +uint8_t x_358; +lean_dec(x_292); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_358 = !lean_is_exclusive(x_313); +if (x_358 == 0) +{ +return x_313; +} +else +{ +lean_object* x_359; lean_object* x_360; lean_object* x_361; +x_359 = lean_ctor_get(x_313, 0); +x_360 = lean_ctor_get(x_313, 1); +lean_inc(x_360); +lean_inc(x_359); +lean_dec(x_313); +x_361 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_361, 0, x_359); +lean_ctor_set(x_361, 1, x_360); +return x_361; +} +} +} +} +} +else +{ +uint8_t x_362; +lean_dec(x_292); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_3); +x_362 = !lean_is_exclusive(x_293); +if (x_362 == 0) +{ +return x_293; +} +else +{ +lean_object* x_363; lean_object* x_364; lean_object* x_365; +x_363 = lean_ctor_get(x_293, 0); +x_364 = lean_ctor_get(x_293, 1); +lean_inc(x_364); +lean_inc(x_363); +lean_dec(x_293); +x_365 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_365, 0, x_363); +lean_ctor_set(x_365, 1, x_364); +return x_365; +} +} +} +} +} +} +} +else +{ +uint8_t x_403; lean_dec(x_6); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_1081 = !lean_is_exclusive(x_8); -if (x_1081 == 0) +x_403 = !lean_is_exclusive(x_8); +if (x_403 == 0) { return x_8; } else { -lean_object* x_1082; lean_object* x_1083; lean_object* x_1084; -x_1082 = lean_ctor_get(x_8, 0); -x_1083 = lean_ctor_get(x_8, 1); -lean_inc(x_1083); -lean_inc(x_1082); +lean_object* x_404; lean_object* x_405; lean_object* x_406; +x_404 = lean_ctor_get(x_8, 0); +x_405 = lean_ctor_get(x_8, 1); +lean_inc(x_405); +lean_inc(x_404); lean_dec(x_8); -x_1084 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1084, 0, x_1082); -lean_ctor_set(x_1084, 1, x_1083); -return x_1084; +x_406 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_406, 0, x_404); +lean_ctor_set(x_406, 1, x_405); +return x_406; } } } else { -uint8_t x_1085; +uint8_t x_407; lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_1085 = !lean_is_exclusive(x_5); -if (x_1085 == 0) +x_407 = !lean_is_exclusive(x_5); +if (x_407 == 0) { return x_5; } else { -lean_object* x_1086; lean_object* x_1087; lean_object* x_1088; -x_1086 = lean_ctor_get(x_5, 0); -x_1087 = lean_ctor_get(x_5, 1); -lean_inc(x_1087); -lean_inc(x_1086); +lean_object* x_408; lean_object* x_409; lean_object* x_410; +x_408 = lean_ctor_get(x_5, 0); +x_409 = lean_ctor_get(x_5, 1); +lean_inc(x_409); +lean_inc(x_408); lean_dec(x_5); -x_1088 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1088, 0, x_1086); -lean_ctor_set(x_1088, 1, x_1087); -return x_1088; +x_410 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_410, 0, x_408); +lean_ctor_set(x_410, 1, x_409); +return x_410; } } } @@ -55323,6 +52536,16 @@ x_8 = l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1___lambd return x_8; } } +lean_object* l___private_Init_Lean_Meta_ExprDefEq_43__isDefEqWHNF___at_Lean_Meta_isExprDefEqAuxImpl___spec__2___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +uint8_t x_6; lean_object* x_7; +x_6 = lean_unbox(x_3); +lean_dec(x_3); +x_7 = l___private_Init_Lean_Meta_ExprDefEq_43__isDefEqWHNF___at_Lean_Meta_isExprDefEqAuxImpl___spec__2___lambda__1(x_1, x_2, x_6, x_4, x_5); +return x_7; +} +} lean_object* l_Lean_Meta_isExprDefEqAuxImpl___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { diff --git a/stage0/stdlib/Init/Lean/Meta/RecursorInfo.c b/stage0/stdlib/Init/Lean/Meta/RecursorInfo.c index 392c17b47c..8cb6145e27 100644 --- a/stage0/stdlib/Init/Lean/Meta/RecursorInfo.c +++ b/stage0/stdlib/Init/Lean/Meta/RecursorInfo.c @@ -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); diff --git a/stage0/stdlib/Init/Lean/Meta/WHNF.c b/stage0/stdlib/Init/Lean/Meta/WHNF.c index 08c6c355a5..4dd9b790f6 100644 --- a/stage0/stdlib/Init/Lean/Meta/WHNF.c +++ b/stage0/stdlib/Init/Lean/Meta/WHNF.c @@ -13,16 +13,21 @@ #ifdef __cplusplus extern "C" { #endif +lean_object* l_Lean_Meta_reduceNative_x3f___closed__1; lean_object* l___private_Init_Lean_Util_WHNF_9__deltaBetaDefinition___at_Lean_Meta_whnfCore___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Util_WHNF_7__extractIdRhs(lean_object*); lean_object* l_Lean_WHNF_whnfEasyCases___main___at_Lean_Meta_unfoldDefinition_x3f___spec__14___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceNative_x3f___closed__2; +lean_object* l_Lean_Meta_reduceNative_x3f___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_WHNF_whnfEasyCases___main___at_Lean_Meta_unfoldDefinition_x3f___spec__14(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_mk_empty_array_with_capacity(lean_object*); lean_object* l_Lean_WHNF_whnfEasyCases___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_unreachable_x21___rarg(lean_object*); uint8_t l_Array_anyRangeMAux___main___at_Lean_Meta_whnfCore___spec__7(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceNative_x3f___closed__6; lean_object* l___private_Init_Lean_Util_WHNF_5__toCtorWhenK___at_Lean_Meta_unfoldDefinition_x3f___spec__9(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_noConfusionExt; +uint8_t lean_name_eq(lean_object*, lean_object*); lean_object* l_Lean_Meta_reduceProj_x3f___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_WHNF_reduceRec___at_Lean_Meta_unfoldDefinition_x3f___spec__8(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Util_WHNF_8__deltaDefinition___at_Lean_Meta_unfoldDefinition_x3f___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); @@ -35,6 +40,7 @@ lean_object* l_Lean_Meta_isExprDefEqAux(lean_object*, lean_object*, lean_object* lean_object* l_Lean_Meta_getStuckMVar_x3f(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_WHNF_reduceRec___at_Lean_Meta_whnfCore___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Expr_isAppOf(lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceNative_x3f___closed__5; lean_object* l_Lean_WHNF_whnfEasyCases___main___at_Lean_Meta_whnfCore___spec__8(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_setWHNFRef___closed__1; lean_object* l_Lean_Meta_isAuxDef_x3f___boxed(lean_object*, lean_object*, lean_object*); @@ -46,9 +52,11 @@ extern lean_object* l_Lean_Expr_getAppArgs___closed__1; lean_object* l_Lean_Meta_unfoldDefinition_x3f(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_WHNF_reduceQuotRec___at_Lean_Meta_unfoldDefinition_x3f___spec__7(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_Exception_Inhabited___closed__1; lean_object* l_Lean_Meta_whnfUntil___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Util_WHNF_9__deltaBetaDefinition___at_Lean_Meta_unfoldDefinition_x3f___spec__6(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Util_WHNF_4__getRecRuleFor(lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceNatNative___rarg(lean_object*); extern lean_object* l_Lean_auxRecExt; lean_object* l___private_Init_Lean_Meta_WHNF_1__whnfHeadPredAux(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at_Lean_Meta_whnfCore___spec__6___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -58,12 +66,15 @@ lean_object* l___private_Init_Lean_Util_WHNF_2__mkNullaryCtor___at_Lean_Meta_unf lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_WHNF_1__whnfHeadPredAux___main___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_WHNF_isRecStuck_x3f___at_Lean_Meta_getStuckMVar_x3f___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceNatNative___boxed(lean_object*, lean_object*); lean_object* l_Lean_Expr_getAppNumArgsAux___main(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Util_WHNF_5__toCtorWhenK___at_Lean_Meta_unfoldDefinition_x3f___spec__9___closed__1; lean_object* l___private_Init_Lean_Util_WHNF_10__whnfCoreUnstuck___main___at_Lean_Meta_unfoldDefinition_x3f___spec__4(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_WHNF_1__whnfHeadPredAux___main(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceBoolNative___rarg(lean_object*); lean_object* l_Lean_WHNF_whnfEasyCases___main___at_Lean_Meta_whnfCore___spec__8___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_WHNF_whnfCore___main___at_Lean_Meta_unfoldDefinition_x3f___spec__5(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceNative_x3f___closed__7; lean_object* l_Lean_WHNF_isQuotRecStuck_x3f___at_Lean_Meta_unfoldDefinition_x3f___spec__16___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_RecursorVal_getMajorIdx(lean_object*); lean_object* lean_array_fget(lean_object*, lean_object*); @@ -86,17 +97,24 @@ lean_object* l_Lean_WHNF_whnfEasyCases___main___at_Lean_Meta_whnfCore___spec__8_ lean_object* lean_name_mk_string(lean_object*, lean_object*); uint8_t l_Lean_ConstantInfo_hasValue(lean_object*); lean_object* l___private_Init_Lean_Util_WHNF_8__deltaDefinition___at_Lean_Meta_unfoldDefinition_x3f___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceNative_x3f___closed__3; lean_object* l___private_Init_Lean_Meta_WHNF_1__whnfHeadPredAux___main___closed__2; +lean_object* l_Lean_Meta_reduceBoolNativeUnsafe(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_WHNF_whnfEasyCases___main___at_Lean_Meta_whnfImpl___main___spec__1(lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at_Lean_Meta_unfoldDefinition_x3f___spec__12(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Literal_type___closed__2; +lean_object* l_Lean_Meta_reduceNativeConst(lean_object*); uint8_t l_Lean_Expr_isConstOf(lean_object*, lean_object*); lean_object* l_Lean_WHNF_reduceQuotRec___at_Lean_Meta_whnfCore___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Expr_3__getAppArgsAux___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_whnf(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceNative_x3f___closed__10; extern lean_object* l_Lean_WHNF_smartUnfoldingSuffix; uint8_t l_Lean_Expr_isLambda(lean_object*); +lean_object* l_Lean_Meta_reduceNativeConst___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_WHNF_isQuotRecStuck_x3f___at_Lean_Meta_getStuckMVar_x3f___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_WHNF_1__whnfHeadPredAux___main___closed__1; +lean_object* l_Lean_Environment_evalConstCheck___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at_Lean_Meta_unfoldDefinition_x3f___spec__12___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isAuxDef_x3f(lean_object*, lean_object*, lean_object*); uint8_t l___private_Init_Lean_Util_WHNF_6__isIdRhsApp(lean_object*); @@ -108,6 +126,7 @@ lean_object* l_Lean_ConstantInfo_lparams(lean_object*); lean_object* l_Lean_Meta_whnfHeadPred(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at_Lean_Meta_unfoldDefinition_x3f___spec__13(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_WHNF_whnfEasyCases___main___at_Lean_Meta_unfoldDefinition_x3f___spec__14___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Bool_HasRepr___closed__1; lean_object* lean_instantiate_value_lparams(lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at_Lean_Meta_whnfCore___spec__6(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Util_WHNF_3__toCtorIfLit(lean_object*); @@ -123,35 +142,51 @@ lean_object* l_Lean_WHNF_getStuckMVar_x3f___main___at_Lean_Meta_getStuckMVar_x3f uint8_t lean_nat_dec_le(lean_object*, lean_object*); lean_object* l_Lean_mkApp(lean_object*, lean_object*); lean_object* l_Lean_Expr_betaRev(lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceNatNative(lean_object*, lean_object*); +extern lean_object* l_Bool_HasRepr___closed__2; lean_object* l___private_Init_Lean_Util_WHNF_1__getFirstCtor___at_Lean_Meta_unfoldDefinition_x3f___spec__11(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getConstAux(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_WHNF_1__whnfHeadPredAux___main___at_Lean_Meta_whnfUntil___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceNatNativeUnsafe___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_updateFn___main(lean_object*, lean_object*); extern lean_object* l_Lean_Meta_whnfRef; lean_object* l_Lean_Meta_synthPending(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceBoolNative___boxed(lean_object*, lean_object*); lean_object* l_Lean_Meta_getExprMVarAssignment_x3f___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_WHNF_reduceQuotRec___at_Lean_Meta_whnfCore___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_whnfImpl___main(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Util_WHNF_9__deltaBetaDefinition___at_Lean_Meta_unfoldDefinition_x3f___spec__18___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_WHNF_whnfEasyCases___main___at_Lean_Meta_whnfImpl___main___spec__1___closed__1; +lean_object* l_Lean_Meta_reduceBoolNativeUnsafe___closed__2; lean_object* l_Lean_Meta_inferType(lean_object*, 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*); lean_object* l_Lean_WHNF_isQuotRecStuck_x3f___at_Lean_Meta_unfoldDefinition_x3f___spec__16(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceNative_x3f___closed__9; extern lean_object* l_Lean_Expr_Inhabited; uint8_t l_Lean_TagDeclarationExtension_isTagged(lean_object*, lean_object*, lean_object*); lean_object* lean_mk_array(lean_object*, lean_object*); lean_object* l_Lean_WHNF_isRecStuck_x3f___at_Lean_Meta_unfoldDefinition_x3f___spec__17___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Util_WHNF_5__toCtorWhenK___at_Lean_Meta_whnfCore___spec__5(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceNative_x3f(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceNative_x3f___closed__4; lean_object* l_Lean_Meta_whnfCore(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceNative_x3f___closed__8; lean_object* l_Lean_WHNF_reduceQuotRec___at_Lean_Meta_unfoldDefinition_x3f___spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkNatLit(lean_object*); +lean_object* l_Lean_Meta_reduceNativeConst___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceBoolNativeUnsafe___closed__1; +lean_object* l_Lean_Meta_reduceBoolNativeUnsafe___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_WHNF_whnfEasyCases___main___at_Lean_Meta_whnfCore___spec__8___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_getRevArgD___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_whnfImpl(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceBoolNative(lean_object*, lean_object*); +extern lean_object* l_Lean_mkAppStx___closed__2; lean_object* l_Lean_mkConst(lean_object*, lean_object*); lean_object* l_Lean_WHNF_reduceRec___at_Lean_Meta_whnfCore___spec__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_WHNF_whnfEasyCases___main___at_Lean_Meta_unfoldDefinition_x3f___spec__14___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_reduceNatNativeUnsafe(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_MetavarContext_MkBinding_mkBinding___closed__1; lean_object* l___private_Init_Lean_Util_WHNF_9__deltaBetaDefinition___at_Lean_Meta_whnfCore___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at_Lean_Meta_whnfCore___spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -10949,6 +10984,498 @@ lean_dec(x_3); return x_6; } } +lean_object* l_Lean_Meta_reduceNativeConst___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; +x_5 = lean_ctor_get(x_4, 0); +lean_inc(x_5); +x_6 = l_Lean_Environment_evalConstCheck___rarg(x_5, x_1, x_2); +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_7 = lean_ctor_get(x_6, 0); +lean_inc(x_7); +lean_dec(x_6); +x_8 = lean_alloc_ctor(20, 1, 0); +lean_ctor_set(x_8, 0, x_7); +x_9 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_9, 0, x_8); +lean_ctor_set(x_9, 1, x_4); +return x_9; +} +else +{ +lean_object* x_10; lean_object* x_11; +x_10 = lean_ctor_get(x_6, 0); +lean_inc(x_10); +lean_dec(x_6); +x_11 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_11, 0, x_10); +lean_ctor_set(x_11, 1, x_4); +return x_11; +} +} +} +lean_object* l_Lean_Meta_reduceNativeConst(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Meta_reduceNativeConst___rarg___boxed), 4, 0); +return x_2; +} +} +lean_object* l_Lean_Meta_reduceNativeConst___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_Lean_Meta_reduceNativeConst___rarg(x_1, x_2, x_3, x_4); +lean_dec(x_3); +return x_5; +} +} +lean_object* _init_l_Lean_Meta_reduceBoolNativeUnsafe___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("Bool"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_reduceBoolNativeUnsafe___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_reduceBoolNativeUnsafe___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_reduceBoolNativeUnsafe(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Meta_reduceBoolNativeUnsafe___closed__2; +x_5 = l_Lean_Meta_reduceNativeConst___rarg(x_4, x_1, x_2, x_3); +return x_5; +} +} +lean_object* l_Lean_Meta_reduceBoolNativeUnsafe___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Meta_reduceBoolNativeUnsafe(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_Meta_reduceNatNativeUnsafe(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; +x_4 = l_Lean_Literal_type___closed__2; +x_5 = l_Lean_Meta_reduceNativeConst___rarg(x_4, x_1, x_2, x_3); +return x_5; +} +} +lean_object* l_Lean_Meta_reduceNatNativeUnsafe___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Meta_reduceNatNativeUnsafe(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_Meta_reduceBoolNative___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_Meta_Exception_Inhabited___closed__1; +x_3 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_reduceBoolNative(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Lean_Meta_reduceBoolNative___rarg), 1, 0); +return x_3; +} +} +lean_object* l_Lean_Meta_reduceBoolNative___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_reduceBoolNative(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_reduceNatNative___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_Meta_Exception_Inhabited___closed__1; +x_3 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; +} +} +lean_object* l_Lean_Meta_reduceNatNative(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Lean_Meta_reduceNatNative___rarg), 1, 0); +return x_3; +} +} +lean_object* l_Lean_Meta_reduceNatNative___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Meta_reduceNatNative(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_reduceNative_x3f___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("reduceBool"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_reduceNative_x3f___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__2; +x_2 = l_Lean_Meta_reduceNative_x3f___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_reduceNative_x3f___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("reduceNat"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_reduceNative_x3f___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__2; +x_2 = l_Lean_Meta_reduceNative_x3f___closed__3; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_reduceNative_x3f___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Meta_reduceBoolNativeUnsafe___closed__2; +x_2 = l_Bool_HasRepr___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_reduceNative_x3f___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_reduceNative_x3f___closed__5; +x_3 = l_Lean_mkConst(x_2, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_reduceNative_x3f___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_reduceNative_x3f___closed__6; +x_2 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_reduceNative_x3f___closed__8() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Meta_reduceBoolNativeUnsafe___closed__2; +x_2 = l_Bool_HasRepr___closed__2; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_reduceNative_x3f___closed__9() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_reduceNative_x3f___closed__8; +x_3 = l_Lean_mkConst(x_2, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_reduceNative_x3f___closed__10() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_reduceNative_x3f___closed__9; +x_2 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Meta_reduceNative_x3f(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 5) +{ +lean_object* x_4; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +if (lean_obj_tag(x_4) == 4) +{ +lean_object* x_5; +x_5 = lean_ctor_get(x_1, 1); +lean_inc(x_5); +lean_dec(x_1); +if (lean_obj_tag(x_5) == 4) +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; uint8_t x_9; +x_6 = lean_ctor_get(x_4, 0); +lean_inc(x_6); +lean_dec(x_4); +x_7 = lean_ctor_get(x_5, 0); +lean_inc(x_7); +lean_dec(x_5); +x_8 = l_Lean_Meta_reduceNative_x3f___closed__2; +x_9 = lean_name_eq(x_6, x_8); +if (x_9 == 0) +{ +lean_object* x_10; uint8_t x_11; +x_10 = l_Lean_Meta_reduceNative_x3f___closed__4; +x_11 = lean_name_eq(x_6, x_10); +lean_dec(x_6); +if (x_11 == 0) +{ +lean_object* x_12; lean_object* x_13; +lean_dec(x_7); +x_12 = lean_box(0); +x_13 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_13, 0, x_12); +lean_ctor_set(x_13, 1, x_3); +return x_13; +} +else +{ +lean_object* x_14; +x_14 = l_Lean_Meta_reduceNatNativeUnsafe(x_7, x_2, x_3); +if (lean_obj_tag(x_14) == 0) +{ +uint8_t x_15; +x_15 = !lean_is_exclusive(x_14); +if (x_15 == 0) +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_16 = lean_ctor_get(x_14, 0); +x_17 = l_Lean_mkNatLit(x_16); +x_18 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_18, 0, x_17); +lean_ctor_set(x_14, 0, x_18); +return x_14; +} +else +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_19 = lean_ctor_get(x_14, 0); +x_20 = lean_ctor_get(x_14, 1); +lean_inc(x_20); +lean_inc(x_19); +lean_dec(x_14); +x_21 = l_Lean_mkNatLit(x_19); +x_22 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_22, 0, x_21); +x_23 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_23, 0, x_22); +lean_ctor_set(x_23, 1, x_20); +return x_23; +} +} +else +{ +uint8_t x_24; +x_24 = !lean_is_exclusive(x_14); +if (x_24 == 0) +{ +return x_14; +} +else +{ +lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_25 = lean_ctor_get(x_14, 0); +x_26 = lean_ctor_get(x_14, 1); +lean_inc(x_26); +lean_inc(x_25); +lean_dec(x_14); +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_25); +lean_ctor_set(x_27, 1, x_26); +return x_27; +} +} +} +} +else +{ +lean_object* x_28; +lean_dec(x_6); +x_28 = l_Lean_Meta_reduceBoolNativeUnsafe(x_7, x_2, x_3); +if (lean_obj_tag(x_28) == 0) +{ +lean_object* x_29; uint8_t x_30; +x_29 = lean_ctor_get(x_28, 0); +lean_inc(x_29); +x_30 = lean_unbox(x_29); +lean_dec(x_29); +if (x_30 == 0) +{ +uint8_t x_31; +x_31 = !lean_is_exclusive(x_28); +if (x_31 == 0) +{ +lean_object* x_32; lean_object* x_33; +x_32 = lean_ctor_get(x_28, 0); +lean_dec(x_32); +x_33 = l_Lean_Meta_reduceNative_x3f___closed__7; +lean_ctor_set(x_28, 0, x_33); +return x_28; +} +else +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; +x_34 = lean_ctor_get(x_28, 1); +lean_inc(x_34); +lean_dec(x_28); +x_35 = l_Lean_Meta_reduceNative_x3f___closed__7; +x_36 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_36, 0, x_35); +lean_ctor_set(x_36, 1, x_34); +return x_36; +} +} +else +{ +uint8_t x_37; +x_37 = !lean_is_exclusive(x_28); +if (x_37 == 0) +{ +lean_object* x_38; lean_object* x_39; +x_38 = lean_ctor_get(x_28, 0); +lean_dec(x_38); +x_39 = l_Lean_Meta_reduceNative_x3f___closed__10; +lean_ctor_set(x_28, 0, x_39); +return x_28; +} +else +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; +x_40 = lean_ctor_get(x_28, 1); +lean_inc(x_40); +lean_dec(x_28); +x_41 = l_Lean_Meta_reduceNative_x3f___closed__10; +x_42 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_42, 0, x_41); +lean_ctor_set(x_42, 1, x_40); +return x_42; +} +} +} +else +{ +uint8_t x_43; +x_43 = !lean_is_exclusive(x_28); +if (x_43 == 0) +{ +return x_28; +} +else +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; +x_44 = lean_ctor_get(x_28, 0); +x_45 = lean_ctor_get(x_28, 1); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_28); +x_46 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_46, 0, x_44); +lean_ctor_set(x_46, 1, x_45); +return x_46; +} +} +} +} +else +{ +lean_object* x_47; lean_object* x_48; +lean_dec(x_5); +lean_dec(x_4); +x_47 = lean_box(0); +x_48 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_48, 0, x_47); +lean_ctor_set(x_48, 1, x_3); +return x_48; +} +} +else +{ +lean_object* x_49; lean_object* x_50; +lean_dec(x_4); +lean_dec(x_1); +x_49 = lean_box(0); +x_50 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_50, 0, x_49); +lean_ctor_set(x_50, 1, x_3); +return x_50; +} +} +else +{ +lean_object* x_51; lean_object* x_52; +lean_dec(x_1); +x_51 = lean_box(0); +x_52 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_52, 0, x_51); +lean_ctor_set(x_52, 1, x_3); +return x_52; +} +} +} +lean_object* l_Lean_Meta_reduceNative_x3f___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Meta_reduceNative_x3f(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} lean_object* _init_l_Lean_WHNF_whnfEasyCases___main___at_Lean_Meta_whnfImpl___main___spec__1___closed__1() { _start: { @@ -11107,9 +11634,8 @@ lean_inc(x_32); x_33 = lean_ctor_get(x_31, 1); lean_inc(x_33); lean_dec(x_31); -lean_inc(x_2); lean_inc(x_32); -x_34 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_32, x_2, x_33); +x_34 = l_Lean_Meta_reduceNative_x3f(x_32, x_2, x_33); if (lean_obj_tag(x_34) == 0) { lean_object* x_35; @@ -11117,449 +11643,734 @@ x_35 = lean_ctor_get(x_34, 0); lean_inc(x_35); if (lean_obj_tag(x_35) == 0) { -uint8_t x_36; -lean_dec(x_2); -x_36 = !lean_is_exclusive(x_34); -if (x_36 == 0) +lean_object* x_36; lean_object* x_37; +x_36 = lean_ctor_get(x_34, 1); +lean_inc(x_36); +lean_dec(x_34); +lean_inc(x_2); +lean_inc(x_32); +x_37 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_32, x_2, x_36); +if (lean_obj_tag(x_37) == 0) { -lean_object* x_37; -x_37 = lean_ctor_get(x_34, 0); -lean_dec(x_37); -lean_ctor_set(x_34, 0, x_32); -return x_34; -} -else -{ -lean_object* x_38; lean_object* x_39; -x_38 = lean_ctor_get(x_34, 1); +lean_object* x_38; +x_38 = lean_ctor_get(x_37, 0); lean_inc(x_38); -lean_dec(x_34); -x_39 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_39, 0, x_32); -lean_ctor_set(x_39, 1, x_38); -return x_39; +if (lean_obj_tag(x_38) == 0) +{ +uint8_t x_39; +lean_dec(x_2); +x_39 = !lean_is_exclusive(x_37); +if (x_39 == 0) +{ +lean_object* x_40; +x_40 = lean_ctor_get(x_37, 0); +lean_dec(x_40); +lean_ctor_set(x_37, 0, x_32); +return x_37; +} +else +{ +lean_object* x_41; lean_object* x_42; +x_41 = lean_ctor_get(x_37, 1); +lean_inc(x_41); +lean_dec(x_37); +x_42 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_42, 0, x_32); +lean_ctor_set(x_42, 1, x_41); +return x_42; } } else { -lean_object* x_40; lean_object* x_41; +lean_object* x_43; lean_object* x_44; lean_dec(x_32); -x_40 = lean_ctor_get(x_34, 1); -lean_inc(x_40); -lean_dec(x_34); -x_41 = lean_ctor_get(x_35, 0); -lean_inc(x_41); -lean_dec(x_35); -x_1 = x_41; -x_3 = x_40; +x_43 = lean_ctor_get(x_37, 1); +lean_inc(x_43); +lean_dec(x_37); +x_44 = lean_ctor_get(x_38, 0); +lean_inc(x_44); +lean_dec(x_38); +x_1 = x_44; +x_3 = x_43; goto _start; } } else { -uint8_t x_43; +uint8_t x_46; lean_dec(x_32); lean_dec(x_2); -x_43 = !lean_is_exclusive(x_34); -if (x_43 == 0) +x_46 = !lean_is_exclusive(x_37); +if (x_46 == 0) +{ +return x_37; +} +else +{ +lean_object* x_47; lean_object* x_48; lean_object* x_49; +x_47 = lean_ctor_get(x_37, 0); +x_48 = lean_ctor_get(x_37, 1); +lean_inc(x_48); +lean_inc(x_47); +lean_dec(x_37); +x_49 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_49, 0, x_47); +lean_ctor_set(x_49, 1, x_48); +return x_49; +} +} +} +else +{ +uint8_t x_50; +lean_dec(x_32); +lean_dec(x_2); +x_50 = !lean_is_exclusive(x_34); +if (x_50 == 0) +{ +lean_object* x_51; lean_object* x_52; +x_51 = lean_ctor_get(x_34, 0); +lean_dec(x_51); +x_52 = lean_ctor_get(x_35, 0); +lean_inc(x_52); +lean_dec(x_35); +lean_ctor_set(x_34, 0, x_52); +return x_34; +} +else +{ +lean_object* x_53; lean_object* x_54; lean_object* x_55; +x_53 = lean_ctor_get(x_34, 1); +lean_inc(x_53); +lean_dec(x_34); +x_54 = lean_ctor_get(x_35, 0); +lean_inc(x_54); +lean_dec(x_35); +x_55 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_55, 0, x_54); +lean_ctor_set(x_55, 1, x_53); +return x_55; +} +} +} +else +{ +uint8_t x_56; +lean_dec(x_32); +lean_dec(x_2); +x_56 = !lean_is_exclusive(x_34); +if (x_56 == 0) { return x_34; } else { -lean_object* x_44; lean_object* x_45; lean_object* x_46; -x_44 = lean_ctor_get(x_34, 0); -x_45 = lean_ctor_get(x_34, 1); -lean_inc(x_45); -lean_inc(x_44); +lean_object* x_57; lean_object* x_58; lean_object* x_59; +x_57 = lean_ctor_get(x_34, 0); +x_58 = lean_ctor_get(x_34, 1); +lean_inc(x_58); +lean_inc(x_57); lean_dec(x_34); -x_46 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_46, 0, x_44); -lean_ctor_set(x_46, 1, x_45); -return x_46; +x_59 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_59, 0, x_57); +lean_ctor_set(x_59, 1, x_58); +return x_59; } } } else { -uint8_t x_47; +uint8_t x_60; lean_dec(x_2); -x_47 = !lean_is_exclusive(x_31); -if (x_47 == 0) +x_60 = !lean_is_exclusive(x_31); +if (x_60 == 0) { return x_31; } else { -lean_object* x_48; lean_object* x_49; lean_object* x_50; -x_48 = lean_ctor_get(x_31, 0); -x_49 = lean_ctor_get(x_31, 1); -lean_inc(x_49); -lean_inc(x_48); +lean_object* x_61; lean_object* x_62; lean_object* x_63; +x_61 = lean_ctor_get(x_31, 0); +x_62 = lean_ctor_get(x_31, 1); +lean_inc(x_62); +lean_inc(x_61); lean_dec(x_31); -x_50 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_50, 0, x_48); -lean_ctor_set(x_50, 1, x_49); -return x_50; +x_63 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_63, 0, x_61); +lean_ctor_set(x_63, 1, x_62); +return x_63; } } } case 5: { -lean_object* x_51; +lean_object* x_64; lean_inc(x_2); -x_51 = l_Lean_WHNF_whnfCore___main___at_Lean_Meta_whnfCore___spec__1(x_1, x_2, x_3); -if (lean_obj_tag(x_51) == 0) +x_64 = l_Lean_WHNF_whnfCore___main___at_Lean_Meta_whnfCore___spec__1(x_1, x_2, x_3); +if (lean_obj_tag(x_64) == 0) { -lean_object* x_52; lean_object* x_53; lean_object* x_54; -x_52 = lean_ctor_get(x_51, 0); -lean_inc(x_52); -x_53 = lean_ctor_get(x_51, 1); -lean_inc(x_53); -lean_dec(x_51); -lean_inc(x_2); -lean_inc(x_52); -x_54 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_52, x_2, x_53); -if (lean_obj_tag(x_54) == 0) -{ -lean_object* x_55; -x_55 = lean_ctor_get(x_54, 0); -lean_inc(x_55); -if (lean_obj_tag(x_55) == 0) -{ -uint8_t x_56; -lean_dec(x_2); -x_56 = !lean_is_exclusive(x_54); -if (x_56 == 0) -{ -lean_object* x_57; -x_57 = lean_ctor_get(x_54, 0); -lean_dec(x_57); -lean_ctor_set(x_54, 0, x_52); -return x_54; -} -else -{ -lean_object* x_58; lean_object* x_59; -x_58 = lean_ctor_get(x_54, 1); -lean_inc(x_58); -lean_dec(x_54); -x_59 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_59, 0, x_52); -lean_ctor_set(x_59, 1, x_58); -return x_59; -} -} -else -{ -lean_object* x_60; lean_object* x_61; -lean_dec(x_52); -x_60 = lean_ctor_get(x_54, 1); -lean_inc(x_60); -lean_dec(x_54); -x_61 = lean_ctor_get(x_55, 0); -lean_inc(x_61); -lean_dec(x_55); -x_1 = x_61; -x_3 = x_60; -goto _start; -} -} -else -{ -uint8_t x_63; -lean_dec(x_52); -lean_dec(x_2); -x_63 = !lean_is_exclusive(x_54); -if (x_63 == 0) -{ -return x_54; -} -else -{ -lean_object* x_64; lean_object* x_65; lean_object* x_66; -x_64 = lean_ctor_get(x_54, 0); -x_65 = lean_ctor_get(x_54, 1); +lean_object* x_65; lean_object* x_66; lean_object* x_67; +x_65 = lean_ctor_get(x_64, 0); lean_inc(x_65); -lean_inc(x_64); -lean_dec(x_54); -x_66 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_66, 0, x_64); -lean_ctor_set(x_66, 1, x_65); -return x_66; -} -} -} -else +x_66 = lean_ctor_get(x_64, 1); +lean_inc(x_66); +lean_dec(x_64); +lean_inc(x_65); +x_67 = l_Lean_Meta_reduceNative_x3f(x_65, x_2, x_66); +if (lean_obj_tag(x_67) == 0) { -uint8_t x_67; -lean_dec(x_2); -x_67 = !lean_is_exclusive(x_51); -if (x_67 == 0) -{ -return x_51; -} -else -{ -lean_object* x_68; lean_object* x_69; lean_object* x_70; -x_68 = lean_ctor_get(x_51, 0); -x_69 = lean_ctor_get(x_51, 1); -lean_inc(x_69); +lean_object* x_68; +x_68 = lean_ctor_get(x_67, 0); lean_inc(x_68); -lean_dec(x_51); -x_70 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_70, 0, x_68); -lean_ctor_set(x_70, 1, x_69); -return x_70; -} -} -} -case 8: +if (lean_obj_tag(x_68) == 0) +{ +lean_object* x_69; lean_object* x_70; +x_69 = lean_ctor_get(x_67, 1); +lean_inc(x_69); +lean_dec(x_67); +lean_inc(x_2); +lean_inc(x_65); +x_70 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_65, x_2, x_69); +if (lean_obj_tag(x_70) == 0) { lean_object* x_71; -lean_inc(x_2); -x_71 = l_Lean_WHNF_whnfCore___main___at_Lean_Meta_whnfCore___spec__1(x_1, x_2, x_3); +x_71 = lean_ctor_get(x_70, 0); +lean_inc(x_71); if (lean_obj_tag(x_71) == 0) { -lean_object* x_72; lean_object* x_73; lean_object* x_74; -x_72 = lean_ctor_get(x_71, 0); -lean_inc(x_72); -x_73 = lean_ctor_get(x_71, 1); -lean_inc(x_73); -lean_dec(x_71); -lean_inc(x_2); -lean_inc(x_72); -x_74 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_72, x_2, x_73); -if (lean_obj_tag(x_74) == 0) -{ -lean_object* x_75; -x_75 = lean_ctor_get(x_74, 0); -lean_inc(x_75); -if (lean_obj_tag(x_75) == 0) -{ -uint8_t x_76; +uint8_t x_72; lean_dec(x_2); -x_76 = !lean_is_exclusive(x_74); -if (x_76 == 0) +x_72 = !lean_is_exclusive(x_70); +if (x_72 == 0) { -lean_object* x_77; -x_77 = lean_ctor_get(x_74, 0); -lean_dec(x_77); -lean_ctor_set(x_74, 0, x_72); -return x_74; +lean_object* x_73; +x_73 = lean_ctor_get(x_70, 0); +lean_dec(x_73); +lean_ctor_set(x_70, 0, x_65); +return x_70; } else { -lean_object* x_78; lean_object* x_79; -x_78 = lean_ctor_get(x_74, 1); -lean_inc(x_78); -lean_dec(x_74); -x_79 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_79, 0, x_72); -lean_ctor_set(x_79, 1, x_78); -return x_79; +lean_object* x_74; lean_object* x_75; +x_74 = lean_ctor_get(x_70, 1); +lean_inc(x_74); +lean_dec(x_70); +x_75 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_75, 0, x_65); +lean_ctor_set(x_75, 1, x_74); +return x_75; } } else { -lean_object* x_80; lean_object* x_81; -lean_dec(x_72); -x_80 = lean_ctor_get(x_74, 1); -lean_inc(x_80); -lean_dec(x_74); -x_81 = lean_ctor_get(x_75, 0); -lean_inc(x_81); -lean_dec(x_75); -x_1 = x_81; -x_3 = x_80; +lean_object* x_76; lean_object* x_77; +lean_dec(x_65); +x_76 = lean_ctor_get(x_70, 1); +lean_inc(x_76); +lean_dec(x_70); +x_77 = lean_ctor_get(x_71, 0); +lean_inc(x_77); +lean_dec(x_71); +x_1 = x_77; +x_3 = x_76; goto _start; } } else { +uint8_t x_79; +lean_dec(x_65); +lean_dec(x_2); +x_79 = !lean_is_exclusive(x_70); +if (x_79 == 0) +{ +return x_70; +} +else +{ +lean_object* x_80; lean_object* x_81; lean_object* x_82; +x_80 = lean_ctor_get(x_70, 0); +x_81 = lean_ctor_get(x_70, 1); +lean_inc(x_81); +lean_inc(x_80); +lean_dec(x_70); +x_82 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_82, 0, x_80); +lean_ctor_set(x_82, 1, x_81); +return x_82; +} +} +} +else +{ uint8_t x_83; -lean_dec(x_72); +lean_dec(x_65); lean_dec(x_2); -x_83 = !lean_is_exclusive(x_74); +x_83 = !lean_is_exclusive(x_67); if (x_83 == 0) { -return x_74; -} -else -{ -lean_object* x_84; lean_object* x_85; lean_object* x_86; -x_84 = lean_ctor_get(x_74, 0); -x_85 = lean_ctor_get(x_74, 1); +lean_object* x_84; lean_object* x_85; +x_84 = lean_ctor_get(x_67, 0); +lean_dec(x_84); +x_85 = lean_ctor_get(x_68, 0); lean_inc(x_85); -lean_inc(x_84); -lean_dec(x_74); -x_86 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_86, 0, x_84); -lean_ctor_set(x_86, 1, x_85); -return x_86; +lean_dec(x_68); +lean_ctor_set(x_67, 0, x_85); +return x_67; +} +else +{ +lean_object* x_86; lean_object* x_87; lean_object* x_88; +x_86 = lean_ctor_get(x_67, 1); +lean_inc(x_86); +lean_dec(x_67); +x_87 = lean_ctor_get(x_68, 0); +lean_inc(x_87); +lean_dec(x_68); +x_88 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_88, 0, x_87); +lean_ctor_set(x_88, 1, x_86); +return x_88; } } } else { -uint8_t x_87; +uint8_t x_89; +lean_dec(x_65); lean_dec(x_2); -x_87 = !lean_is_exclusive(x_71); -if (x_87 == 0) +x_89 = !lean_is_exclusive(x_67); +if (x_89 == 0) { -return x_71; +return x_67; } else { -lean_object* x_88; lean_object* x_89; lean_object* x_90; -x_88 = lean_ctor_get(x_71, 0); -x_89 = lean_ctor_get(x_71, 1); -lean_inc(x_89); -lean_inc(x_88); -lean_dec(x_71); -x_90 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_90, 0, x_88); -lean_ctor_set(x_90, 1, x_89); -return x_90; +lean_object* x_90; lean_object* x_91; lean_object* x_92; +x_90 = lean_ctor_get(x_67, 0); +x_91 = lean_ctor_get(x_67, 1); +lean_inc(x_91); +lean_inc(x_90); +lean_dec(x_67); +x_92 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_92, 0, x_90); +lean_ctor_set(x_92, 1, x_91); +return x_92; +} +} +} +else +{ +uint8_t x_93; +lean_dec(x_2); +x_93 = !lean_is_exclusive(x_64); +if (x_93 == 0) +{ +return x_64; +} +else +{ +lean_object* x_94; lean_object* x_95; lean_object* x_96; +x_94 = lean_ctor_get(x_64, 0); +x_95 = lean_ctor_get(x_64, 1); +lean_inc(x_95); +lean_inc(x_94); +lean_dec(x_64); +x_96 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_96, 0, x_94); +lean_ctor_set(x_96, 1, x_95); +return x_96; +} +} +} +case 8: +{ +lean_object* x_97; +lean_inc(x_2); +x_97 = l_Lean_WHNF_whnfCore___main___at_Lean_Meta_whnfCore___spec__1(x_1, x_2, x_3); +if (lean_obj_tag(x_97) == 0) +{ +lean_object* x_98; lean_object* x_99; lean_object* x_100; +x_98 = lean_ctor_get(x_97, 0); +lean_inc(x_98); +x_99 = lean_ctor_get(x_97, 1); +lean_inc(x_99); +lean_dec(x_97); +lean_inc(x_98); +x_100 = l_Lean_Meta_reduceNative_x3f(x_98, x_2, x_99); +if (lean_obj_tag(x_100) == 0) +{ +lean_object* x_101; +x_101 = lean_ctor_get(x_100, 0); +lean_inc(x_101); +if (lean_obj_tag(x_101) == 0) +{ +lean_object* x_102; lean_object* x_103; +x_102 = lean_ctor_get(x_100, 1); +lean_inc(x_102); +lean_dec(x_100); +lean_inc(x_2); +lean_inc(x_98); +x_103 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_98, x_2, x_102); +if (lean_obj_tag(x_103) == 0) +{ +lean_object* x_104; +x_104 = lean_ctor_get(x_103, 0); +lean_inc(x_104); +if (lean_obj_tag(x_104) == 0) +{ +uint8_t x_105; +lean_dec(x_2); +x_105 = !lean_is_exclusive(x_103); +if (x_105 == 0) +{ +lean_object* x_106; +x_106 = lean_ctor_get(x_103, 0); +lean_dec(x_106); +lean_ctor_set(x_103, 0, x_98); +return x_103; +} +else +{ +lean_object* x_107; lean_object* x_108; +x_107 = lean_ctor_get(x_103, 1); +lean_inc(x_107); +lean_dec(x_103); +x_108 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_108, 0, x_98); +lean_ctor_set(x_108, 1, x_107); +return x_108; +} +} +else +{ +lean_object* x_109; lean_object* x_110; +lean_dec(x_98); +x_109 = lean_ctor_get(x_103, 1); +lean_inc(x_109); +lean_dec(x_103); +x_110 = lean_ctor_get(x_104, 0); +lean_inc(x_110); +lean_dec(x_104); +x_1 = x_110; +x_3 = x_109; +goto _start; +} +} +else +{ +uint8_t x_112; +lean_dec(x_98); +lean_dec(x_2); +x_112 = !lean_is_exclusive(x_103); +if (x_112 == 0) +{ +return x_103; +} +else +{ +lean_object* x_113; lean_object* x_114; lean_object* x_115; +x_113 = lean_ctor_get(x_103, 0); +x_114 = lean_ctor_get(x_103, 1); +lean_inc(x_114); +lean_inc(x_113); +lean_dec(x_103); +x_115 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_115, 0, x_113); +lean_ctor_set(x_115, 1, x_114); +return x_115; +} +} +} +else +{ +uint8_t x_116; +lean_dec(x_98); +lean_dec(x_2); +x_116 = !lean_is_exclusive(x_100); +if (x_116 == 0) +{ +lean_object* x_117; lean_object* x_118; +x_117 = lean_ctor_get(x_100, 0); +lean_dec(x_117); +x_118 = lean_ctor_get(x_101, 0); +lean_inc(x_118); +lean_dec(x_101); +lean_ctor_set(x_100, 0, x_118); +return x_100; +} +else +{ +lean_object* x_119; lean_object* x_120; lean_object* x_121; +x_119 = lean_ctor_get(x_100, 1); +lean_inc(x_119); +lean_dec(x_100); +x_120 = lean_ctor_get(x_101, 0); +lean_inc(x_120); +lean_dec(x_101); +x_121 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_121, 0, x_120); +lean_ctor_set(x_121, 1, x_119); +return x_121; +} +} +} +else +{ +uint8_t x_122; +lean_dec(x_98); +lean_dec(x_2); +x_122 = !lean_is_exclusive(x_100); +if (x_122 == 0) +{ +return x_100; +} +else +{ +lean_object* x_123; lean_object* x_124; lean_object* x_125; +x_123 = lean_ctor_get(x_100, 0); +x_124 = lean_ctor_get(x_100, 1); +lean_inc(x_124); +lean_inc(x_123); +lean_dec(x_100); +x_125 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_125, 0, x_123); +lean_ctor_set(x_125, 1, x_124); +return x_125; +} +} +} +else +{ +uint8_t x_126; +lean_dec(x_2); +x_126 = !lean_is_exclusive(x_97); +if (x_126 == 0) +{ +return x_97; +} +else +{ +lean_object* x_127; lean_object* x_128; lean_object* x_129; +x_127 = lean_ctor_get(x_97, 0); +x_128 = lean_ctor_get(x_97, 1); +lean_inc(x_128); +lean_inc(x_127); +lean_dec(x_97); +x_129 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_129, 0, x_127); +lean_ctor_set(x_129, 1, x_128); +return x_129; } } } case 10: { -lean_object* x_91; -x_91 = lean_ctor_get(x_1, 1); -lean_inc(x_91); +lean_object* x_130; +x_130 = lean_ctor_get(x_1, 1); +lean_inc(x_130); lean_dec(x_1); -x_1 = x_91; +x_1 = x_130; goto _start; } case 11: { -lean_object* x_93; +lean_object* x_132; lean_inc(x_2); -x_93 = l_Lean_WHNF_whnfCore___main___at_Lean_Meta_whnfCore___spec__1(x_1, x_2, x_3); -if (lean_obj_tag(x_93) == 0) +x_132 = l_Lean_WHNF_whnfCore___main___at_Lean_Meta_whnfCore___spec__1(x_1, x_2, x_3); +if (lean_obj_tag(x_132) == 0) { -lean_object* x_94; lean_object* x_95; lean_object* x_96; -x_94 = lean_ctor_get(x_93, 0); -lean_inc(x_94); -x_95 = lean_ctor_get(x_93, 1); -lean_inc(x_95); -lean_dec(x_93); +lean_object* x_133; lean_object* x_134; lean_object* x_135; +x_133 = lean_ctor_get(x_132, 0); +lean_inc(x_133); +x_134 = lean_ctor_get(x_132, 1); +lean_inc(x_134); +lean_dec(x_132); +lean_inc(x_133); +x_135 = l_Lean_Meta_reduceNative_x3f(x_133, x_2, x_134); +if (lean_obj_tag(x_135) == 0) +{ +lean_object* x_136; +x_136 = lean_ctor_get(x_135, 0); +lean_inc(x_136); +if (lean_obj_tag(x_136) == 0) +{ +lean_object* x_137; lean_object* x_138; +x_137 = lean_ctor_get(x_135, 1); +lean_inc(x_137); +lean_dec(x_135); lean_inc(x_2); -lean_inc(x_94); -x_96 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_94, x_2, x_95); -if (lean_obj_tag(x_96) == 0) +lean_inc(x_133); +x_138 = l_Lean_WHNF_unfoldDefinitionAux___at_Lean_Meta_unfoldDefinition_x3f___spec__1(x_133, x_2, x_137); +if (lean_obj_tag(x_138) == 0) { -lean_object* x_97; -x_97 = lean_ctor_get(x_96, 0); -lean_inc(x_97); -if (lean_obj_tag(x_97) == 0) +lean_object* x_139; +x_139 = lean_ctor_get(x_138, 0); +lean_inc(x_139); +if (lean_obj_tag(x_139) == 0) { -uint8_t x_98; +uint8_t x_140; lean_dec(x_2); -x_98 = !lean_is_exclusive(x_96); -if (x_98 == 0) +x_140 = !lean_is_exclusive(x_138); +if (x_140 == 0) { -lean_object* x_99; -x_99 = lean_ctor_get(x_96, 0); -lean_dec(x_99); -lean_ctor_set(x_96, 0, x_94); -return x_96; +lean_object* x_141; +x_141 = lean_ctor_get(x_138, 0); +lean_dec(x_141); +lean_ctor_set(x_138, 0, x_133); +return x_138; } else { -lean_object* x_100; lean_object* x_101; -x_100 = lean_ctor_get(x_96, 1); -lean_inc(x_100); -lean_dec(x_96); -x_101 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_101, 0, x_94); -lean_ctor_set(x_101, 1, x_100); -return x_101; +lean_object* x_142; lean_object* x_143; +x_142 = lean_ctor_get(x_138, 1); +lean_inc(x_142); +lean_dec(x_138); +x_143 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_143, 0, x_133); +lean_ctor_set(x_143, 1, x_142); +return x_143; } } else { -lean_object* x_102; lean_object* x_103; -lean_dec(x_94); -x_102 = lean_ctor_get(x_96, 1); -lean_inc(x_102); -lean_dec(x_96); -x_103 = lean_ctor_get(x_97, 0); -lean_inc(x_103); -lean_dec(x_97); -x_1 = x_103; -x_3 = x_102; +lean_object* x_144; lean_object* x_145; +lean_dec(x_133); +x_144 = lean_ctor_get(x_138, 1); +lean_inc(x_144); +lean_dec(x_138); +x_145 = lean_ctor_get(x_139, 0); +lean_inc(x_145); +lean_dec(x_139); +x_1 = x_145; +x_3 = x_144; goto _start; } } else { -uint8_t x_105; -lean_dec(x_94); +uint8_t x_147; +lean_dec(x_133); lean_dec(x_2); -x_105 = !lean_is_exclusive(x_96); -if (x_105 == 0) +x_147 = !lean_is_exclusive(x_138); +if (x_147 == 0) { -return x_96; +return x_138; } else { -lean_object* x_106; lean_object* x_107; lean_object* x_108; -x_106 = lean_ctor_get(x_96, 0); -x_107 = lean_ctor_get(x_96, 1); -lean_inc(x_107); -lean_inc(x_106); -lean_dec(x_96); -x_108 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_108, 0, x_106); -lean_ctor_set(x_108, 1, x_107); -return x_108; +lean_object* x_148; lean_object* x_149; lean_object* x_150; +x_148 = lean_ctor_get(x_138, 0); +x_149 = lean_ctor_get(x_138, 1); +lean_inc(x_149); +lean_inc(x_148); +lean_dec(x_138); +x_150 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_150, 0, x_148); +lean_ctor_set(x_150, 1, x_149); +return x_150; } } } else { -uint8_t x_109; +uint8_t x_151; +lean_dec(x_133); lean_dec(x_2); -x_109 = !lean_is_exclusive(x_93); -if (x_109 == 0) +x_151 = !lean_is_exclusive(x_135); +if (x_151 == 0) { -return x_93; +lean_object* x_152; lean_object* x_153; +x_152 = lean_ctor_get(x_135, 0); +lean_dec(x_152); +x_153 = lean_ctor_get(x_136, 0); +lean_inc(x_153); +lean_dec(x_136); +lean_ctor_set(x_135, 0, x_153); +return x_135; } else { -lean_object* x_110; lean_object* x_111; lean_object* x_112; -x_110 = lean_ctor_get(x_93, 0); -x_111 = lean_ctor_get(x_93, 1); -lean_inc(x_111); -lean_inc(x_110); -lean_dec(x_93); -x_112 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_112, 0, x_110); -lean_ctor_set(x_112, 1, x_111); -return x_112; +lean_object* x_154; lean_object* x_155; lean_object* x_156; +x_154 = lean_ctor_get(x_135, 1); +lean_inc(x_154); +lean_dec(x_135); +x_155 = lean_ctor_get(x_136, 0); +lean_inc(x_155); +lean_dec(x_136); +x_156 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_156, 0, x_155); +lean_ctor_set(x_156, 1, x_154); +return x_156; +} +} +} +else +{ +uint8_t x_157; +lean_dec(x_133); +lean_dec(x_2); +x_157 = !lean_is_exclusive(x_135); +if (x_157 == 0) +{ +return x_135; +} +else +{ +lean_object* x_158; lean_object* x_159; lean_object* x_160; +x_158 = lean_ctor_get(x_135, 0); +x_159 = lean_ctor_get(x_135, 1); +lean_inc(x_159); +lean_inc(x_158); +lean_dec(x_135); +x_160 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_160, 0, x_158); +lean_ctor_set(x_160, 1, x_159); +return x_160; +} +} +} +else +{ +uint8_t x_161; +lean_dec(x_2); +x_161 = !lean_is_exclusive(x_132); +if (x_161 == 0) +{ +return x_132; +} +else +{ +lean_object* x_162; lean_object* x_163; lean_object* x_164; +x_162 = lean_ctor_get(x_132, 0); +x_163 = lean_ctor_get(x_132, 1); +lean_inc(x_163); +lean_inc(x_162); +lean_dec(x_132); +x_164 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_164, 0, x_162); +lean_ctor_set(x_164, 1, x_163); +return x_164; } } } case 12: { -lean_object* x_113; lean_object* x_114; lean_object* x_115; +lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_dec(x_1); -x_113 = l_Lean_WHNF_whnfEasyCases___main___at_Lean_Meta_whnfImpl___main___spec__1___closed__1; -x_114 = l_unreachable_x21___rarg(x_113); -x_115 = lean_apply_2(x_114, x_2, x_3); -return x_115; +x_165 = l_Lean_WHNF_whnfEasyCases___main___at_Lean_Meta_whnfImpl___main___spec__1___closed__1; +x_166 = l_unreachable_x21___rarg(x_165); +x_167 = lean_apply_2(x_166, x_2, x_3); +return x_167; } default: { -lean_object* x_116; +lean_object* x_168; lean_dec(x_2); -x_116 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_116, 0, x_1); -lean_ctor_set(x_116, 1, x_3); -return x_116; +x_168 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_168, 0, x_1); +lean_ctor_set(x_168, 1, x_3); +return x_168; } } } @@ -13723,6 +14534,30 @@ if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); l___private_Init_Lean_Util_WHNF_5__toCtorWhenK___at_Lean_Meta_unfoldDefinition_x3f___spec__9___closed__1 = _init_l___private_Init_Lean_Util_WHNF_5__toCtorWhenK___at_Lean_Meta_unfoldDefinition_x3f___spec__9___closed__1(); lean_mark_persistent(l___private_Init_Lean_Util_WHNF_5__toCtorWhenK___at_Lean_Meta_unfoldDefinition_x3f___spec__9___closed__1); +l_Lean_Meta_reduceBoolNativeUnsafe___closed__1 = _init_l_Lean_Meta_reduceBoolNativeUnsafe___closed__1(); +lean_mark_persistent(l_Lean_Meta_reduceBoolNativeUnsafe___closed__1); +l_Lean_Meta_reduceBoolNativeUnsafe___closed__2 = _init_l_Lean_Meta_reduceBoolNativeUnsafe___closed__2(); +lean_mark_persistent(l_Lean_Meta_reduceBoolNativeUnsafe___closed__2); +l_Lean_Meta_reduceNative_x3f___closed__1 = _init_l_Lean_Meta_reduceNative_x3f___closed__1(); +lean_mark_persistent(l_Lean_Meta_reduceNative_x3f___closed__1); +l_Lean_Meta_reduceNative_x3f___closed__2 = _init_l_Lean_Meta_reduceNative_x3f___closed__2(); +lean_mark_persistent(l_Lean_Meta_reduceNative_x3f___closed__2); +l_Lean_Meta_reduceNative_x3f___closed__3 = _init_l_Lean_Meta_reduceNative_x3f___closed__3(); +lean_mark_persistent(l_Lean_Meta_reduceNative_x3f___closed__3); +l_Lean_Meta_reduceNative_x3f___closed__4 = _init_l_Lean_Meta_reduceNative_x3f___closed__4(); +lean_mark_persistent(l_Lean_Meta_reduceNative_x3f___closed__4); +l_Lean_Meta_reduceNative_x3f___closed__5 = _init_l_Lean_Meta_reduceNative_x3f___closed__5(); +lean_mark_persistent(l_Lean_Meta_reduceNative_x3f___closed__5); +l_Lean_Meta_reduceNative_x3f___closed__6 = _init_l_Lean_Meta_reduceNative_x3f___closed__6(); +lean_mark_persistent(l_Lean_Meta_reduceNative_x3f___closed__6); +l_Lean_Meta_reduceNative_x3f___closed__7 = _init_l_Lean_Meta_reduceNative_x3f___closed__7(); +lean_mark_persistent(l_Lean_Meta_reduceNative_x3f___closed__7); +l_Lean_Meta_reduceNative_x3f___closed__8 = _init_l_Lean_Meta_reduceNative_x3f___closed__8(); +lean_mark_persistent(l_Lean_Meta_reduceNative_x3f___closed__8); +l_Lean_Meta_reduceNative_x3f___closed__9 = _init_l_Lean_Meta_reduceNative_x3f___closed__9(); +lean_mark_persistent(l_Lean_Meta_reduceNative_x3f___closed__9); +l_Lean_Meta_reduceNative_x3f___closed__10 = _init_l_Lean_Meta_reduceNative_x3f___closed__10(); +lean_mark_persistent(l_Lean_Meta_reduceNative_x3f___closed__10); l_Lean_WHNF_whnfEasyCases___main___at_Lean_Meta_whnfImpl___main___spec__1___closed__1 = _init_l_Lean_WHNF_whnfEasyCases___main___at_Lean_Meta_whnfImpl___main___spec__1___closed__1(); lean_mark_persistent(l_Lean_WHNF_whnfEasyCases___main___at_Lean_Meta_whnfImpl___main___spec__1___closed__1); l_Lean_Meta_setWHNFRef___closed__1 = _init_l_Lean_Meta_setWHNFRef___closed__1(); diff --git a/stage0/stdlib/Init/Lean/Parser/Parser.c b/stage0/stdlib/Init/Lean/Parser/Parser.c index 1e4d6579ae..da5f3058f6 100644 --- a/stage0/stdlib/Init/Lean/Parser/Parser.c +++ b/stage0/stdlib/Init/Lean/Parser/Parser.c @@ -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: { diff --git a/stage0/stdlib/Init/Lean/Parser/Term.c b/stage0/stdlib/Init/Lean/Parser/Term.c index fc8d290bf5..5b6336ba91 100644 --- a/stage0/stdlib/Init/Lean/Parser/Term.c +++ b/stage0/stdlib/Init/Lean/Parser/Term.c @@ -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(); diff --git a/stage0/stdlib/Init/Lean/ProjFns.c b/stage0/stdlib/Init/Lean/ProjFns.c index d06bff8308..e3cbfa934f 100644 --- a/stage0/stdlib/Init/Lean/ProjFns.c +++ b/stage0/stdlib/Init/Lean/ProjFns.c @@ -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); diff --git a/stage0/stdlib/Init/Lean/ReducibilityAttrs.c b/stage0/stdlib/Init/Lean/ReducibilityAttrs.c index 21816bc810..b0e5bf7ded 100644 --- a/stage0/stdlib/Init/Lean/ReducibilityAttrs.c +++ b/stage0/stdlib/Init/Lean/ReducibilityAttrs.c @@ -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; diff --git a/stage0/stdlib/Init/Lean/Scopes.c b/stage0/stdlib/Init/Lean/Scopes.c index 4bab961fa9..f1a1a76d0b 100644 --- a/stage0/stdlib/Init/Lean/Scopes.c +++ b/stage0/stdlib/Init/Lean/Scopes.c @@ -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(); diff --git a/stage0/stdlib/Init/Lean/Util.c b/stage0/stdlib/Init/Lean/Util.c index caf45383df..57f3142ee8 100644 --- a/stage0/stdlib/Init/Lean/Util.c +++ b/stage0/stdlib/Init/Lean/Util.c @@ -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 diff --git a/stage0/stdlib/Init/Lean/Util/CollectFVars.c b/stage0/stdlib/Init/Lean/Util/CollectFVars.c index 2fc59c0b8b..46911212d1 100644 --- a/stage0/stdlib/Init/Lean/Util/CollectFVars.c +++ b/stage0/stdlib/Init/Lean/Util/CollectFVars.c @@ -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; } } diff --git a/stage0/stdlib/Init/Lean/Util/FoldConsts.c b/stage0/stdlib/Init/Lean/Util/FoldConsts.c new file mode 100644 index 0000000000..2a4794cfc2 --- /dev/null +++ b/stage0/stdlib/Init/Lean/Util/FoldConsts.c @@ -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