diff --git a/stage0/src/Init/Coe.lean b/stage0/src/Init/Coe.lean index 5ecf9f7cba..95b8f59ea9 100644 --- a/stage0/src/Init/Coe.lean +++ b/stage0/src/Init/Coe.lean @@ -1,195 +1,74 @@ /- -Copyright (c) 2016 Microsoft Corporation. All rights reserved. +Copyright (c) 2020 Microsoft Corporation. All rights reserved. Released under Apache 2.0 license as described in the file LICENSE. Authors: Leonardo de Moura -/ - -/- -The Elaborator tries to insert coercions automatically. -Only instances of HasCoe type class are considered in the process. - -Lean also provides a "lifting" operator: ↑a. -It uses all instances of HasLift type class. -Every HasCoe instance is also a HasLift instance. - -We recommend users only use HasCoe for coercions that do not produce a lot -of ambiguity. - -All coercions and lifts can be identified with the constant coe. - -We use the HasCoeToFun type class for encoding coercions from -a Type to a Function space. - -We use the HasCoeToSort type class for encoding coercions from -a Type to a sort. --/ prelude -import Init.Data.List.Basic -universes u v +import Init.HasCoe -- import legacy HasCoe +import Init.Core -class HasLift (a : Sort u) (b : Sort v) := -(lift : a → b) +universes u v w -/-- Auxiliary class that contains the transitive closure of HasLift. -/ -class HasLiftT (a : Sort u) (b : Sort v) := -(lift : a → b) +class Coe (α : Sort u) (β : Sort v) := +(coe : α → β) -class HasCoe (a : Sort u) (b : Sort v) := -(coe : a → b) +class CoeDep (α : Sort u) (a : α) (β : Sort v) := +(coe : β) -/-- Auxiliary class that contains the transitive closure of HasCoe. -/ -class HasCoeT (a : Sort u) (b : Sort v) := -(coe : a → b) +/-- Auxiliary class that contains the transitive closure of `Coe` and `CoeDep`. -/ +class CoeT (α : Sort u) (a : α) (β : Sort v) := +(coe : β) -class HasCoeToFun (a : Sort u) : Sort (max u (v+1)) := -(F : a → Sort v) (coe : ∀ x, F x) +class CoeFun (α : Sort u) (a : α) (γ : outParam (Sort v)) := +(coe : γ) -class HasCoeToSort (a : Sort u) : Type (max u (v+1)) := -(S : Sort v) (coe : a → S) +class CoeSort (α : Sort u) (a : α) (β : outParam (Sort v)) := +(coe : β) -@[inline] def lift {a : Sort u} {b : Sort v} [HasLift a b] : a → b := -@HasLift.lift a b _ +abbrev coeB {α : Sort u} {β : Sort v} (a : α) [Coe α β] : β := +@Coe.coe α β _ a -@[inline] def liftT {a : Sort u} {b : Sort v} [HasLiftT a b] : a → b := -@HasLiftT.lift a b _ +abbrev coeD {α : Sort u} {β : Sort v} (a : α) [CoeDep α a β] : β := +@CoeDep.coe α a β _ -@[inline] def oldCoeB {a : Sort u} {b : Sort v} [HasCoe a b] : a → b := -@HasCoe.coe a b _ +/-- Apply coercion manually. -/ +abbrev coe {α : Sort u} {β : Sort v} (a : α) [CoeT α a β] : β := +@CoeT.coe α a β _ -@[inline] def oldCoeT {a : Sort u} {b : Sort v} [HasCoeT a b] : a → b := -@HasCoeT.coe a b _ +abbrev coeFun {α : Sort u} {γ : Sort v} (a : α) [CoeFun α a γ] : γ := +@CoeFun.coe α a γ _ -@[inline] def oldCoeFnB {a : Sort u} [HasCoeToFun.{u, v} a] : ∀ (x : a), HasCoeToFun.F.{u, v} x := -HasCoeToFun.coe +abbrev coeSort {α : Sort u} {γ : Sort v} (a : α) [CoeSort α a γ] : γ := +@CoeSort.coe α a γ _ -/- User Level coercion operators -/ +instance coeDepTrans {α : Sort u} {β : Sort v} {δ : Sort w} (a : α) [CoeT α a β] [CoeDep β (coe a) δ] : CoeT α a δ := +{ coe := coeD (coe a : β) } -@[reducible, inline] def oldCoe {a : Sort u} {b : Sort v} [HasLiftT a b] : a → b := -liftT +instance coeTrans {α : Sort u} {β : Sort v} {δ : Sort w} (a : α) [CoeT α a β] [Coe β δ] : CoeT α a δ := +{ coe := coeB (coe a : β) } -@[reducible, inline] def oldCoeFn {a : Sort u} [HasCoeToFun.{u, v} a] : ∀ (x : a), HasCoeToFun.F.{u, v} x := -HasCoeToFun.coe +instance coeBase {α : Sort u} {β : Sort v} (a : α) [Coe α β] : CoeT α a β := +{ coe := coeB a } -@[reducible, inline] def oldCoeSort {a : Sort u} [HasCoeToSort.{u, v} a] : a → HasCoeToSort.S.{u, v} a := -HasCoeToSort.coe +instance coeDepBase {α : Sort u} {β : Sort v} (a : α) [CoeDep α a β] : CoeT α a β := +{ coe := coeD a } -@[reducible, inline] def coe {a : Sort u} {b : Sort v} [HasLiftT a b] : a → b := -liftT +instance coeFunTrans {α : Sort u} {β : Sort v} {γ : Sort w} (a : α) [CoeT α a β] [CoeFun β (coe a) γ] : CoeFun α a γ := +{ coe := coeFun (coe a : β) } -@[reducible, inline] def coeFn {a : Sort u} [HasCoeToFun.{u, v} a] : ∀ (x : a), HasCoeToFun.F.{u, v} x := -HasCoeToFun.coe +instance coeSortTrans {α : Sort u} {β : Sort v} {δ : Sort w} (a : α) [CoeT α a β] [CoeSort β (coe a) δ] : CoeFun α a δ := +{ coe := coeSort (coe a : β) } -@[reducible, inline] def coeSort {a : Sort u} [HasCoeToSort.{u, v} a] : a → HasCoeToSort.S.{u, v} a := -HasCoeToSort.coe +/- Basic instances -/ -/- Notation -/ +instance boolToProp : Coe Bool Prop := +{ coe := fun b => b = true } -universes u₁ u₂ u₃ +instance decPropToBool (p : Prop) [Decidable p] : CoeDep Prop p Bool := +{ coe := decide p } -/- Transitive closure for HasLift, HasCoe, HasCoeToFun -/ +instance optionCoe {α : Type u} : Coe α (Option α) := +{ coe := some } -instance liftTrans {a : Sort u₁} {b : Sort u₂} {c : Sort u₃} [HasLiftT b c] [HasLift a b] : HasLiftT a c := -⟨fun x => liftT (lift x : b)⟩ - -instance liftRefl {a : Sort u} : HasLiftT a a := -⟨id⟩ - -instance coeTrans {a : Sort u₁} {b : Sort u₂} {c : Sort u₃} [HasCoeT b c] [HasCoe a b] : HasCoeT a c := -⟨fun x => oldCoeT (oldCoeB x : b)⟩ - -instance coeBase {a : Sort u} {b : Sort v} [HasCoe a b] : HasCoeT a b := -⟨oldCoeB⟩ - -/- We add this instance directly into HasCoeT to avoid non-termination. - - Suppose coeOption had Type (HasCoe a (Option a)). - Then, we can loop when searching a coercion from α to β (HasCoeT α β) - 1- coeTrans at (HasCoeT α β) - (HasCoe α ?b₁) and (HasCoeT ?b₁ c) - 2- coeOption at (HasCoe α ?b₁) - ?b₁ := Option α - 3- coeTrans at (HasCoeT (Option α) β) - (HasCoe (Option α) ?b₂) and (HasCoeT ?b₂ β) - 4- coeOption at (HasCoe (Option α) ?b₂) - ?b₂ := Option (Option α)) - ... --/ -instance coeOption {a : Type u} : HasCoeT a (Option a) := -⟨fun x => some x⟩ - -/- Auxiliary transitive closure for HasCoe which does not contain - instances such as coeOption. - - They would produce non-termination when combined with coeFnTrans and coeSortTrans. --/ -class HasCoeTAux (a : Sort u) (b : Sort v) := -(coe : a → b) - -instance coeTransAux {a : Sort u₁} {b : Sort u₂} {c : Sort u₃} [HasCoeTAux b c] [HasCoe a b] : HasCoeTAux a c := -⟨fun x => @HasCoeTAux.coe b c _ (oldCoeB x)⟩ - -instance coeBaseAux {a : Sort u} {b : Sort v} [HasCoe a b] : HasCoeTAux a b := -⟨oldCoeB⟩ - -instance coeFnTrans {a : Sort u₁} {b : Sort u₂} [HasCoeToFun.{u₂, u₃} b] [HasCoeTAux a b] : HasCoeToFun.{u₁, u₃} a := -{ F := fun x => @HasCoeToFun.F.{u₂, u₃} b _ (@HasCoeTAux.coe a b _ x), - coe := fun x => oldCoeFn (@HasCoeTAux.coe a b _ x) } - -instance coeSortTrans {a : Sort u₁} {b : Sort u₂} [HasCoeToSort.{u₂, u₃} b] [HasCoeTAux a b] : HasCoeToSort.{u₁, u₃} a := -{ S := HasCoeToSort.S.{u₂, u₃} b, - coe := fun x => oldCoeSort (@HasCoeTAux.coe a b _ x) } - -/- Every coercion is also a lift -/ - -instance coeToLift {a : Sort u} {b : Sort v} [HasCoeT a b] : HasLiftT a b := -⟨oldCoeT⟩ - -instance oldCoeToLift {a : Sort u} {b : Sort v} [HasCoeT a b] : HasLiftT a b := -⟨oldCoeT⟩ - - -/- basic coercions -/ - -instance coeBoolToProp : HasCoe Bool Prop := -⟨fun y => y = true⟩ - -/- Tactics such as the simplifier only unfold reducible constants when checking whether two terms are definitionally - equal or a Term is a proposition. The motivation is performance. - In particular, when simplifying `p -> q`, the tactic `simp` only visits `p` if it can establish that it is a proposition. - Thus, we mark the following instance as @[reducible], otherwise `simp` will not visit `↑p` when simplifying `↑p -> q`. --/ -@[reducible] instance coeSortBool : HasCoeToSort Bool := -⟨Prop, fun y => y = true⟩ - -instance coeDecidableEq (x : Bool) : Decidable (oldCoe x) := -inferInstanceAs (Decidable (x = true)) - -instance coeSubtype {a : Sort u} {p : a → Prop} : HasCoe {x // p x} a := -⟨Subtype.val⟩ - -/- basic lifts -/ - -universes ua ua₁ ua₂ ub ub₁ ub₂ - -/- Remark: we can't use [HasLiftT a₂ a₁] since it will produce non-termination whenever a type class resolution - problem does not have a solution. -/ -instance liftFn {a₁ : Sort ua₁} {a₂ : Sort ua₂} {b₁ : Sort ub₁} {b₂ : Sort ub₂} [HasLiftT b₁ b₂] [HasLift a₂ a₁] : HasLift (a₁ → b₁) (a₂ → b₂) := -⟨fun f x => oldCoe (f (oldCoe x))⟩ - -instance liftFnRange {a : Sort ua} {b₁ : Sort ub₁} {b₂ : Sort ub₂} [HasLiftT b₁ b₂] : HasLift (a → b₁) (a → b₂) := -⟨fun f x => oldCoe (f x)⟩ - -instance liftFnDom {a₁ : Sort ua₁} {a₂ : Sort ua₂} {b : Sort ub} [HasLift a₂ a₁] : HasLift (a₁ → b) (a₂ → b) := -⟨fun f x => f (oldCoe x)⟩ - -instance liftPair {a₁ : Type ua₁} {a₂ : Type ub₂} {b₁ : Type ub₁} {b₂ : Type ub₂} [HasLiftT a₁ a₂] [HasLiftT b₁ b₂] : HasLift (a₁ × b₁) (a₂ × b₂) := -⟨fun p => Prod.casesOn p (fun x y => (oldCoe x, oldCoe y))⟩ - -instance liftPair₁ {a₁ : Type ua₁} {a₂ : Type ua₂} {b : Type ub} [HasLiftT a₁ a₂] : HasLift (a₁ × b) (a₂ × b) := -⟨fun p => Prod.casesOn p (fun x y => (oldCoe x, y))⟩ - -instance liftPair₂ {a : Type ua} {b₁ : Type ub₁} {b₂ : Type ub₂} [HasLiftT b₁ b₂] : HasLift (a × b₁) (a × b₂) := -⟨fun p => Prod.casesOn p (fun x y => (x, oldCoe y))⟩ - -instance liftList {a : Type u} {b : Type v} [HasLiftT a b] : HasLift (List a) (List b) := -⟨fun l => List.map (@oldCoe a b _) l⟩ +instance subtypeCoe {α : Sort u} {p : α → Prop} (v : { x // p x }) : CoeT { x // p x } v α := +{ coe := v.val } diff --git a/stage0/src/Init/Control/Lift.lean b/stage0/src/Init/Control/Lift.lean index 2611c7f8d1..3a2a0e35ec 100644 --- a/stage0/src/Init/Control/Lift.lean +++ b/stage0/src/Init/Control/Lift.lean @@ -9,7 +9,6 @@ This theory is roughly modeled after the Haskell 'layers' package https://hackag Please see https://hackage.haskell.org/package/layers-0.1/docs/Documentation-Layers-Overview.html for an exhaustive discussion of the different approaches to lift functions. -/ prelude -import Init.Coe import Init.Control.Monad universes u v w @@ -31,11 +30,6 @@ export HasMonadLiftT (monadLift) abbrev liftM := @monadLift -/-- A coercion that may reduce the need for explicit lifting. - Because of [limitations of the current coercion resolution](https://github.com/leanprover/Lean/issues/1402), this definition is not marked as a global instance and should be marked locally instead. -/ -@[reducible] def hasMonadLiftToHasCoe {m n} [HasMonadLiftT m n] {α} : HasCoe (m α) (n α) := -⟨monadLift⟩ - instance hasMonadLiftTTrans (m n o) [HasMonadLift n o] [HasMonadLiftT m n] : HasMonadLiftT m o := ⟨fun α ma => HasMonadLift.monadLift (monadLift ma : n α)⟩ diff --git a/stage0/src/Init/Data/BinomialHeap/Basic.lean b/stage0/src/Init/Data/BinomialHeap/Basic.lean index dd8b2305d8..48f9d9cd08 100644 --- a/stage0/src/Init/Data/BinomialHeap/Basic.lean +++ b/stage0/src/Init/Data/BinomialHeap/Basic.lean @@ -5,7 +5,6 @@ Authors: Leonardo de Moura -/ prelude import Init.Data.List -import Init.Coe universes u namespace BinomialHeapImp diff --git a/stage0/src/Init/Data/Int/Basic.lean b/stage0/src/Init/Data/Int/Basic.lean index bd7677c6ed..1da9c54831 100644 --- a/stage0/src/Init/Data/Int/Basic.lean +++ b/stage0/src/Init/Data/Int/Basic.lean @@ -8,7 +8,6 @@ The integers, with addition, multiplication, and subtraction. prelude import Init.Data.Nat.Basic import Init.Data.List -import Init.Coe import Init.Data.Repr import Init.Data.ToString open Nat diff --git a/stage0/src/Init/Default.lean b/stage0/src/Init/Default.lean index b6e97ddb17..8d425ad15e 100644 --- a/stage0/src/Init/Default.lean +++ b/stage0/src/Init/Default.lean @@ -7,7 +7,6 @@ prelude import Init.Core import Init.Control import Init.Data.Basic -import Init.Coe import Init.WF import Init.Data import Init.System diff --git a/stage0/src/Init/HasCoe.lean b/stage0/src/Init/HasCoe.lean new file mode 100644 index 0000000000..8818583b9f --- /dev/null +++ b/stage0/src/Init/HasCoe.lean @@ -0,0 +1,189 @@ +/- +Copyright (c) 2016 Microsoft Corporation. All rights reserved. +Released under Apache 2.0 license as described in the file LICENSE. +Authors: Leonardo de Moura +-/ + +/- +The Elaborator tries to insert coercions automatically. +Only instances of HasCoe type class are considered in the process. + +Lean also provides a "lifting" operator: ↑a. +It uses all instances of HasLift type class. +Every HasCoe instance is also a HasLift instance. + +We recommend users only use HasCoe for coercions that do not produce a lot +of ambiguity. + +All coercions and lifts can be identified with the constant coe. + +We use the HasCoeToFun type class for encoding coercions from +a Type to a Function space. + +We use the HasCoeToSort type class for encoding coercions from +a Type to a sort. +-/ +prelude +import Init.Data.List.Basic +universes u v + +class HasLift (a : Sort u) (b : Sort v) := +(lift : a → b) + +/-- Auxiliary class that contains the transitive closure of HasLift. -/ +class HasLiftT (a : Sort u) (b : Sort v) := +(lift : a → b) + +class HasCoe (a : Sort u) (b : Sort v) := +(coe : a → b) + +/-- Auxiliary class that contains the transitive closure of HasCoe. -/ +class HasCoeT (a : Sort u) (b : Sort v) := +(coe : a → b) + +class HasCoeToFun (a : Sort u) : Sort (max u (v+1)) := +(F : a → Sort v) (coe : ∀ x, F x) + +class HasCoeToSort (a : Sort u) : Type (max u (v+1)) := +(S : Sort v) (coe : a → S) + +@[inline] def lift {a : Sort u} {b : Sort v} [HasLift a b] : a → b := +@HasLift.lift a b _ + +@[inline] def liftT {a : Sort u} {b : Sort v} [HasLiftT a b] : a → b := +@HasLiftT.lift a b _ + +@[inline] def oldCoeB {a : Sort u} {b : Sort v} [HasCoe a b] : a → b := +@HasCoe.coe a b _ + +@[inline] def oldCoeT {a : Sort u} {b : Sort v} [HasCoeT a b] : a → b := +@HasCoeT.coe a b _ + +@[inline] def oldCoeFnB {a : Sort u} [HasCoeToFun.{u, v} a] : ∀ (x : a), HasCoeToFun.F.{u, v} x := +HasCoeToFun.coe + +/- User Level coercion operators -/ + +@[reducible, inline] def oldCoe {a : Sort u} {b : Sort v} [HasLiftT a b] : a → b := +liftT + +@[reducible, inline] def oldCoeFn {a : Sort u} [HasCoeToFun.{u, v} a] : ∀ (x : a), HasCoeToFun.F.{u, v} x := +HasCoeToFun.coe + +@[reducible, inline] def oldCoeSort {a : Sort u} [HasCoeToSort.{u, v} a] : a → HasCoeToSort.S.{u, v} a := +HasCoeToSort.coe + +/- Notation -/ + +universes u₁ u₂ u₃ + +/- Transitive closure for HasLift, HasCoe, HasCoeToFun -/ + +namespace Legacy + +instance liftTrans {a : Sort u₁} {b : Sort u₂} {c : Sort u₃} [HasLiftT b c] [HasLift a b] : HasLiftT a c := +⟨fun x => liftT (lift x : b)⟩ + +instance liftRefl {a : Sort u} : HasLiftT a a := +⟨id⟩ + +instance coeoeTrans {a : Sort u₁} {b : Sort u₂} {c : Sort u₃} [HasCoeT b c] [HasCoe a b] : HasCoeT a c := +⟨fun x => oldCoeT (oldCoeB x : b)⟩ + +instance coeBase {a : Sort u} {b : Sort v} [HasCoe a b] : HasCoeT a b := +⟨oldCoeB⟩ + +/- We add this instance directly into HasCoeT to avoid non-termination. + + Suppose coeOption had Type (HasCoe a (Option a)). + Then, we can loop when searching a coercion from α to β (HasCoeT α β) + 1- coeTrans at (HasCoeT α β) + (HasCoe α ?b₁) and (HasCoeT ?b₁ c) + 2- coeOption at (HasCoe α ?b₁) + ?b₁ := Option α + 3- coeTrans at (HasCoeT (Option α) β) + (HasCoe (Option α) ?b₂) and (HasCoeT ?b₂ β) + 4- coeOption at (HasCoe (Option α) ?b₂) + ?b₂ := Option (Option α)) + ... +-/ +instance oldCoeOption {a : Type u} : HasCoeT a (Option a) := +⟨fun x => some x⟩ + +/- Auxiliary transitive closure for HasCoe which does not contain + instances such as coeOption. + + They would produce non-termination when combined with coeFnTrans and coeSortTrans. +-/ +class HasCoeTAux (a : Sort u) (b : Sort v) := +(coe : a → b) + +instance coeTransAux {a : Sort u₁} {b : Sort u₂} {c : Sort u₃} [HasCoeTAux b c] [HasCoe a b] : HasCoeTAux a c := +⟨fun x => @HasCoeTAux.coe b c _ (oldCoeB x)⟩ + +instance coeBaseAux {a : Sort u} {b : Sort v} [HasCoe a b] : HasCoeTAux a b := +⟨oldCoeB⟩ + +instance coeFnTrans {a : Sort u₁} {b : Sort u₂} [HasCoeToFun.{u₂, u₃} b] [HasCoeTAux a b] : HasCoeToFun.{u₁, u₃} a := +{ F := fun x => @HasCoeToFun.F.{u₂, u₃} b _ (@HasCoeTAux.coe a b _ x), + coe := fun x => oldCoeFn (@HasCoeTAux.coe a b _ x) } + +instance coeSortTrans {a : Sort u₁} {b : Sort u₂} [HasCoeToSort.{u₂, u₃} b] [HasCoeTAux a b] : HasCoeToSort.{u₁, u₃} a := +{ S := HasCoeToSort.S.{u₂, u₃} b, + coe := fun x => oldCoeSort (@HasCoeTAux.coe a b _ x) } + +/- Every coercion is also a lift -/ + +instance coeToLift {a : Sort u} {b : Sort v} [HasCoeT a b] : HasLiftT a b := +⟨oldCoeT⟩ + +/- basic coercions -/ + +instance coeBoolToProp : HasCoe Bool Prop := +⟨fun y => y = true⟩ + +/- Tactics such as the simplifier only unfold reducible constants when checking whether two terms are definitionally + equal or a Term is a proposition. The motivation is performance. + In particular, when simplifying `p -> q`, the tactic `simp` only visits `p` if it can establish that it is a proposition. + Thus, we mark the following instance as @[reducible], otherwise `simp` will not visit `↑p` when simplifying `↑p -> q`. +-/ +@[reducible] instance coeSortBool : HasCoeToSort Bool := +⟨Prop, fun y => y = true⟩ + +instance coeDecidableEq (x : Bool) : Decidable (oldCoe x) := +inferInstanceAs (Decidable (x = true)) + +instance coeSubtype {a : Sort u} {p : a → Prop} : HasCoe {x // p x} a := +⟨Subtype.val⟩ + +/- basic lifts -/ + +universes ua ua₁ ua₂ ub ub₁ ub₂ + +/- Remark: we can't use [HasLiftT a₂ a₁] since it will produce non-termination whenever a type class resolution + problem does not have a solution. -/ +instance liftFn {a₁ : Sort ua₁} {a₂ : Sort ua₂} {b₁ : Sort ub₁} {b₂ : Sort ub₂} [HasLiftT b₁ b₂] [HasLift a₂ a₁] : HasLift (a₁ → b₁) (a₂ → b₂) := +⟨fun f x => oldCoe (f (oldCoe x))⟩ + +instance liftFnRange {a : Sort ua} {b₁ : Sort ub₁} {b₂ : Sort ub₂} [HasLiftT b₁ b₂] : HasLift (a → b₁) (a → b₂) := +⟨fun f x => oldCoe (f x)⟩ + +instance liftFnDom {a₁ : Sort ua₁} {a₂ : Sort ua₂} {b : Sort ub} [HasLift a₂ a₁] : HasLift (a₁ → b) (a₂ → b) := +⟨fun f x => f (oldCoe x)⟩ + +instance liftPair {a₁ : Type ua₁} {a₂ : Type ub₂} {b₁ : Type ub₁} {b₂ : Type ub₂} [HasLiftT a₁ a₂] [HasLiftT b₁ b₂] : HasLift (a₁ × b₁) (a₂ × b₂) := +⟨fun p => Prod.casesOn p (fun x y => (oldCoe x, oldCoe y))⟩ + +instance liftPair₁ {a₁ : Type ua₁} {a₂ : Type ua₂} {b : Type ub} [HasLiftT a₁ a₂] : HasLift (a₁ × b) (a₂ × b) := +⟨fun p => Prod.casesOn p (fun x y => (oldCoe x, y))⟩ + +instance liftPair₂ {a : Type ua} {b₁ : Type ub₁} {b₂ : Type ub₂} [HasLiftT b₁ b₂] : HasLift (a × b₁) (a × b₂) := +⟨fun p => Prod.casesOn p (fun x y => (x, oldCoe y))⟩ + +instance liftList {a : Type u} {b : Type v} [HasLiftT a b] : HasLift (List a) (List b) := +⟨fun l => List.map (@oldCoe a b _) l⟩ + +end Legacy + +instance oldCoeToLift {a : Sort u} {b : Sort v} [HasCoeT a b] : HasLiftT a b := +⟨oldCoeT⟩ diff --git a/stage0/src/Init/Lean/Data/Name.lean b/stage0/src/Init/Lean/Data/Name.lean index 5a67bfddc7..bbb9a47966 100644 --- a/stage0/src/Init/Lean/Data/Name.lean +++ b/stage0/src/Init/Lean/Data/Name.lean @@ -4,7 +4,6 @@ Released under Apache 2.0 license as described in the file LICENSE. Author: Leonardo de Moura -/ prelude -import Init.Coe import Init.LeanInit import Init.Data.UInt import Init.Data.ToString diff --git a/stage0/src/Init/Lean/Meta/Message.lean b/stage0/src/Init/Lean/Meta/Message.lean index bdaaf1f818..436f87aef9 100644 --- a/stage0/src/Init/Lean/Meta/Message.lean +++ b/stage0/src/Init/Lean/Meta/Message.lean @@ -71,8 +71,8 @@ def toMessageData : Exception → MessageData | invalidProjection s i e ctx => mkCtx ctx $ "invalid projection" ++ indentExpr (mkProj s i e) | revertFailure xs decl ctx => mkCtx ctx $ "revert failure" | readOnlyMVar mvarId ctx => mkCtx ctx $ "tried to update read only metavariable " ++ mkMVar mvarId -| isLevelDefEqStuck u v ctx => mkCtx ctx $ "stuck at " ++ u ++ " =?= " ++ v -| isExprDefEqStuck t s ctx => mkCtx ctx $ "stuck at " ++ t ++ " =?= " ++ s +| isLevelDefEqStuck u v ctx => mkCtx ctx $ "stuck at universe level constraint " ++ u ++ " =?= " ++ v +| isExprDefEqStuck t s ctx => mkCtx ctx $ "stuck at constraint " ++ t ++ " =?= " ++ s | letTypeMismatch fvarId ctx => mkLetTypeMismatchMessage fvarId ctx | appTypeMismatch f a ctx => mkAppTypeMismatchMessage f a ctx | notInstance i ctx => mkCtx ctx $ "not a type class instance " ++ i diff --git a/stage0/src/Init/Lean/Meta/SynthInstance.lean b/stage0/src/Init/Lean/Meta/SynthInstance.lean index fe6213328c..a9e1f4b43f 100644 --- a/stage0/src/Init/Lean/Meta/SynthInstance.lean +++ b/stage0/src/Init/Lean/Meta/SynthInstance.lean @@ -483,21 +483,18 @@ us ← us.foldlM []; pure $ us.reverse -private partial def preprocessArgs (ys : Array Expr) : Nat → Array Expr → MetaM (Array Expr) -| i, args => do - if h : i < ys.size then do - let y := ys.get ⟨i, h⟩; - yType ← inferType y; - if isOutParam yType then do - if h : i < args.size then do - let arg := args.get ⟨i, h⟩; - argType ← inferType arg; - arg' ← mkFreshExprMVar argType; - preprocessArgs (i+1) (args.set ⟨i, h⟩ arg') - else - throw $ Exception.other "type class resolution failed, insufficient number of arguments" -- TODO improve error message - else - preprocessArgs (i+1) args +private partial def preprocessArgs : Expr → Nat → Array Expr → MetaM (Array Expr) +| type, i, args => + if h : i < args.size then do + type ← whnf type; + match type with + | Expr.forallE _ d b _ => do + let arg := args.get ⟨i, h⟩; + arg ← if isOutParam d then mkFreshExprMVar d else pure arg; + let args := args.set ⟨i, h⟩ arg; + preprocessArgs (b.instantiate1 arg) (i+1) args + | _ => + throw $ Exception.other "type class resolution failed, insufficient number of arguments" -- TODO improve error message else pure args @@ -509,15 +506,13 @@ forallTelescope type $ fun xs typeBody => if !hasOutParams env constName then pure type else do let args := typeBody.getAppArgs; + us ← preprocessLevels us; + let c := mkConst constName us; cType ← inferType c; - forallTelescopeReducing cType $ fun ys _ => do - us ← preprocessLevels us; - args ← preprocessArgs ys 0 args; - type ← mkForall xs (mkAppN (mkConst constName us) args); - pure type + args ← preprocessArgs cType 0 args; + mkForall xs (mkAppN c args) | _ => pure type - @[init] def maxStepsOption : IO Unit := registerOption `synthInstance.maxSteps { defValue := (10000 : Nat), group := "", descr := "maximum steps for the type class instance synthesis procedure" } @@ -535,25 +530,34 @@ withConfig (fun config => { transparency := TransparencyMode.reducible, foApprox match s.cache.synthInstance.find? type with | some result => pure result | none => do - result ← withNewMCtxDepth $ do { + result? ← withNewMCtxDepth $ do { normType ← preprocessOutParam type; + trace! `Meta.synthInstance (type ++ " ==> " ++ normType); result? ← SynthInstance.main normType fuel; match result? with | none => pure none | some result => do + trace! `Meta.synthInstance ("FOUND result " ++ result); + result ← instantiateMVars result; + condM (hasAssignableMVar result) + (pure none) + (pure (some result)) + }; + result? ← match result? with + | none => pure none + | some result => do { + trace! `Meta.synthInstance ("result " ++ result); resultType ← inferType result; condM (withConfig (fun _ => inputConfig) $ isDefEq type resultType) (do result ← instantiateMVars result; - condM (hasAssignableMVar result) - (pure none) - (pure (some result))) + pure (some result)) (pure none) - }; + }; if type.hasMVar then - pure result + pure result? else do - modify $ fun s => { cache := { synthInstance := s.cache.synthInstance.insert type result, .. s.cache }, .. s }; - pure result + modify $ fun s => { cache := { synthInstance := s.cache.synthInstance.insert type result?, .. s.cache }, .. s }; + pure result? /-- Return `LOption.some r` if succeeded, `LOption.none` if it failed, and `LOption.undef` if diff --git a/stage0/stdlib/CMakeLists.txt b/stage0/stdlib/CMakeLists.txt index 73affd9279..e381f02883 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/MonadFail.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/./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/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/ElabStrategyAttrs.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/Quotation.c Init/./Lean/Elab/ResolveName.c Init/./Lean/Elab/Syntax.c Init/./Lean/Elab/SynthesizeSyntheticMVars.c Init/./Lean/Elab/Tactic.c Init/./Lean/Elab/Tactic/Basic.c Init/./Lean/Elab/Tactic/ElabTerm.c Init/./Lean/Elab/Term.c Init/./Lean/Elab/TermApp.c Init/./Lean/Elab/TermBinders.c Init/./Lean/Elab/Util.c Init/./Lean/Environment.c Init/./Lean/EqnCompiler.c Init/./Lean/EqnCompiler/MatchPattern.c Init/./Lean/Eval.c Init/./Lean/Expr.c Init/./Lean/HeadIndex.c Init/./Lean/Hygiene.c Init/./Lean/Level.c Init/./Lean/Linter.c Init/./Lean/LocalContext.c Init/./Lean/Message.c Init/./Lean/Meta.c Init/./Lean/Meta/AbstractMVars.c Init/./Lean/Meta/AppBuilder.c Init/./Lean/Meta/Basic.c Init/./Lean/Meta/Check.c Init/./Lean/Meta/DiscrTree.c Init/./Lean/Meta/DiscrTreeTypes.c Init/./Lean/Meta/Exception.c Init/./Lean/Meta/ExprDefEq.c Init/./Lean/Meta/FunInfo.c Init/./Lean/Meta/InferType.c Init/./Lean/Meta/Instances.c Init/./Lean/Meta/KAbstract.c Init/./Lean/Meta/LevelDefEq.c Init/./Lean/Meta/Message.c Init/./Lean/Meta/Offset.c Init/./Lean/Meta/Reduce.c Init/./Lean/Meta/SynthInstance.c Init/./Lean/Meta/Tactic.c Init/./Lean/Meta/Tactic/Apply.c Init/./Lean/Meta/Tactic/Assumption.c Init/./Lean/Meta/Tactic/Intro.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/CollectFVars.c Init/./Lean/Util/CollectLevelParams.c Init/./Lean/Util/CollectMVars.c Init/./Lean/Util/FindMVar.c Init/./Lean/Util/MonadCache.c Init/./Lean/Util/PPExt.c Init/./Lean/Util/PPGoal.c Init/./Lean/Util/Path.c Init/./Lean/Util/Profile.c Init/./Lean/Util/RecDepth.c Init/./Lean/Util/Sorry.c Init/./Lean/Util/Trace.c Init/./Lean/Util/WHNF.c Init/./LeanInit.c Init/./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/MonadFail.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/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/ElabStrategyAttrs.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/Quotation.c Init/./Lean/Elab/ResolveName.c Init/./Lean/Elab/Syntax.c Init/./Lean/Elab/SynthesizeSyntheticMVars.c Init/./Lean/Elab/Tactic.c Init/./Lean/Elab/Tactic/Basic.c Init/./Lean/Elab/Tactic/ElabTerm.c Init/./Lean/Elab/Term.c Init/./Lean/Elab/TermApp.c Init/./Lean/Elab/TermBinders.c Init/./Lean/Elab/Util.c Init/./Lean/Environment.c Init/./Lean/EqnCompiler.c Init/./Lean/EqnCompiler/MatchPattern.c Init/./Lean/Eval.c Init/./Lean/Expr.c Init/./Lean/HeadIndex.c Init/./Lean/Hygiene.c Init/./Lean/Level.c Init/./Lean/Linter.c Init/./Lean/LocalContext.c Init/./Lean/Message.c Init/./Lean/Meta.c Init/./Lean/Meta/AbstractMVars.c Init/./Lean/Meta/AppBuilder.c Init/./Lean/Meta/Basic.c Init/./Lean/Meta/Check.c Init/./Lean/Meta/DiscrTree.c Init/./Lean/Meta/DiscrTreeTypes.c Init/./Lean/Meta/Exception.c Init/./Lean/Meta/ExprDefEq.c Init/./Lean/Meta/FunInfo.c Init/./Lean/Meta/InferType.c Init/./Lean/Meta/Instances.c Init/./Lean/Meta/KAbstract.c Init/./Lean/Meta/LevelDefEq.c Init/./Lean/Meta/Message.c Init/./Lean/Meta/Offset.c Init/./Lean/Meta/Reduce.c Init/./Lean/Meta/SynthInstance.c Init/./Lean/Meta/Tactic.c Init/./Lean/Meta/Tactic/Apply.c Init/./Lean/Meta/Tactic/Assumption.c Init/./Lean/Meta/Tactic/Intro.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/CollectFVars.c Init/./Lean/Util/CollectLevelParams.c Init/./Lean/Util/CollectMVars.c Init/./Lean/Util/FindMVar.c Init/./Lean/Util/MonadCache.c Init/./Lean/Util/PPExt.c Init/./Lean/Util/PPGoal.c Init/./Lean/Util/Path.c Init/./Lean/Util/Profile.c Init/./Lean/Util/RecDepth.c Init/./Lean/Util/Sorry.c Init/./Lean/Util/Trace.c Init/./Lean/Util/WHNF.c Init/./LeanInit.c Init/./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/Coe.c b/stage0/stdlib/Init/Coe.c index 9810a4a3fa..aa3b2a199b 100644 --- a/stage0/stdlib/Init/Coe.c +++ b/stage0/stdlib/Init/Coe.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Coe -// Imports: Init.Data.List.Basic +// Imports: Init.HasCoe Init.Core #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -13,310 +13,411 @@ #ifdef __cplusplus extern "C" { #endif -lean_object* l_coeOption___rarg(lean_object*); -lean_object* l_coeBase___rarg(lean_object*); -lean_object* l_coeSubtype(lean_object*, lean_object*); -lean_object* l_liftPair_u2082(lean_object*, lean_object*, lean_object*); -lean_object* l_coeToLift___rarg(lean_object*); -lean_object* l_liftFn(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_List_map___main___at_liftList___spec__1___rarg(lean_object*, lean_object*); -lean_object* l_oldCoeSort___rarg(lean_object*, lean_object*); -lean_object* l_liftPair(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_coeSubtype___rarg(lean_object*); -lean_object* l_coeBoolToProp; +lean_object* l_coeBase___rarg(lean_object*, lean_object*); +lean_object* l_coeSort___rarg___boxed(lean_object*); +lean_object* l_coeD___rarg(lean_object*); +lean_object* l_coeSortTrans___rarg___boxed(lean_object*); +lean_object* l_coeFun(lean_object*, lean_object*, lean_object*); +uint8_t l_decPropToBool___rarg(uint8_t); lean_object* l_coeBase(lean_object*, lean_object*); -lean_object* l_oldCoeT___rarg(lean_object*, lean_object*); -lean_object* l_coeTrans(lean_object*, lean_object*, lean_object*); -lean_object* l_coeFnTrans___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l_liftList(lean_object*, lean_object*); -lean_object* l_lift(lean_object*, lean_object*); -lean_object* l_oldCoeFnB___rarg(lean_object*, lean_object*); -lean_object* l_liftRefl(lean_object*); -lean_object* l_liftPair_u2081(lean_object*, lean_object*, lean_object*); -lean_object* l_coeSortTrans(lean_object*, lean_object*); -lean_object* l_liftPair_u2082___rarg(lean_object*, lean_object*); -lean_object* l_oldCoeFn(lean_object*); -lean_object* l_coeSort___rarg(lean_object*, lean_object*); -lean_object* l_liftPair___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l_coeBaseAux(lean_object*, lean_object*); -lean_object* l_oldCoe(lean_object*, lean_object*); -lean_object* l_oldCoeFn___rarg(lean_object*, lean_object*); -lean_object* l_coeFn(lean_object*); -extern lean_object* l_Nat_HasOfNat___closed__1; -lean_object* l_oldCoe___rarg(lean_object*, lean_object*); -lean_object* l_List_map___main___at_liftList___spec__1(lean_object*, lean_object*); -lean_object* l_oldCoeToLift(lean_object*, lean_object*); -lean_object* l_liftT(lean_object*, lean_object*); -lean_object* l_coeOption(lean_object*); -lean_object* l_liftTrans___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l_oldCoeB___rarg(lean_object*, lean_object*); -lean_object* l_coeSubtype___boxed(lean_object*, lean_object*); -lean_object* l_liftFnRange(lean_object*, lean_object*, lean_object*); -lean_object* l_liftTrans(lean_object*, lean_object*, lean_object*); -lean_object* l_coeTransAux(lean_object*, lean_object*, lean_object*); -lean_object* l_liftFnDom___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l_oldCoeSort(lean_object*); -lean_object* l_coeFn___rarg(lean_object*, lean_object*); -uint8_t l_coeDecidableEq(uint8_t); -lean_object* l_coeSubtype___rarg___boxed(lean_object*); -lean_object* l_coe___rarg(lean_object*, lean_object*); -lean_object* l_liftFnDom(lean_object*, lean_object*, lean_object*); -lean_object* l_coeTransAux___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l_oldCoeFnB(lean_object*); -lean_object* l_coe(lean_object*, lean_object*); -lean_object* l_coeSortTrans___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l_coeDecidableEq___boxed(lean_object*); -lean_object* l_coeFnTrans(lean_object*, lean_object*); -lean_object* l_liftPair_u2081___rarg(lean_object*, lean_object*); -lean_object* l_coeTrans___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l_liftFn___rarg(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_oldCoeToLift___rarg(lean_object*); -lean_object* l_coeSort(lean_object*); -lean_object* l_coeSortBool; -lean_object* l_oldCoeT(lean_object*, lean_object*); -lean_object* l_oldCoeB(lean_object*, lean_object*); -lean_object* l_coeToLift(lean_object*, lean_object*); -lean_object* l_liftFnRange___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l_lift___rarg(lean_object*, lean_object*); -lean_object* l_liftList___rarg(lean_object*, lean_object*); -lean_object* l_liftT___rarg(lean_object*, lean_object*); -lean_object* l_coeBaseAux___rarg(lean_object*); -lean_object* l_lift___rarg(lean_object* x_1, lean_object* x_2) { +lean_object* l_coeDepTrans___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_coeTrans(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_coeSort___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_coeB___rarg(lean_object*, lean_object*); +lean_object* l_coeSortTrans(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_decPropToBool___rarg___boxed(lean_object*); +lean_object* l_coeSort___rarg(lean_object*); +lean_object* l_coeFun___rarg___boxed(lean_object*); +lean_object* l_coeFunTrans___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_coeFunTrans___rarg(lean_object*); +lean_object* l_coeDepTrans(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_coeDepBase___rarg___boxed(lean_object*); +lean_object* l_coe___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_subtypeCoe___rarg___boxed(lean_object*); +lean_object* l_optionCoe___rarg(lean_object*); +lean_object* l_coeFun___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_coeSortTrans___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_coeFunTrans(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_coeD___rarg___boxed(lean_object*); +lean_object* l_coeDepBase(lean_object*, lean_object*, lean_object*); +lean_object* l_coe___rarg(lean_object*); +lean_object* l_coeDepTrans___rarg___boxed(lean_object*); +lean_object* l_coe(lean_object*, lean_object*, lean_object*); +lean_object* l_coeSortTrans___rarg(lean_object*); +lean_object* l_coeTrans___rarg(lean_object*, lean_object*); +lean_object* l_optionCoe(lean_object*); +lean_object* l_coeDepTrans___rarg(lean_object*); +lean_object* l_subtypeCoe___rarg(lean_object*); +lean_object* l_coeFun___rarg(lean_object*); +lean_object* l_coeB(lean_object*, lean_object*); +lean_object* l_subtypeCoe(lean_object*, lean_object*); +lean_object* l_coeSort(lean_object*, lean_object*, lean_object*); +lean_object* l_coe___rarg___boxed(lean_object*); +lean_object* l_boolToProp; +lean_object* l_coeDepBase___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_subtypeCoe___boxed(lean_object*, lean_object*); +lean_object* l_coeFunTrans___rarg___boxed(lean_object*); +lean_object* l_coeD___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_coeTrans___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_decPropToBool(lean_object*); +lean_object* l_coeDepBase___rarg(lean_object*); +lean_object* l_coeD(lean_object*, lean_object*, lean_object*); +lean_object* l_coeB___rarg(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = lean_apply_1(x_1, x_2); +x_3 = lean_apply_1(x_2, x_1); return x_3; } } -lean_object* l_lift(lean_object* x_1, lean_object* x_2) { +lean_object* l_coeB(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_lift___rarg), 2, 0); +x_3 = lean_alloc_closure((void*)(l_coeB___rarg), 2, 0); return x_3; } } -lean_object* l_liftT___rarg(lean_object* x_1, lean_object* x_2) { +lean_object* l_coeD___rarg(lean_object* x_1) { _start: { -lean_object* x_3; -x_3 = lean_apply_1(x_1, x_2); -return x_3; +lean_inc(x_1); +return x_1; } } -lean_object* l_liftT(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_liftT___rarg), 2, 0); -return x_3; -} -} -lean_object* l_oldCoeB___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_apply_1(x_1, x_2); -return x_3; -} -} -lean_object* l_oldCoeB(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_oldCoeB___rarg), 2, 0); -return x_3; -} -} -lean_object* l_oldCoeT___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_apply_1(x_1, x_2); -return x_3; -} -} -lean_object* l_oldCoeT(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_oldCoeT___rarg), 2, 0); -return x_3; -} -} -lean_object* l_oldCoeFnB___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_apply_1(x_1, x_2); -return x_3; -} -} -lean_object* l_oldCoeFnB(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_oldCoeFnB___rarg), 2, 0); -return x_2; -} -} -lean_object* l_oldCoe___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_apply_1(x_1, x_2); -return x_3; -} -} -lean_object* l_oldCoe(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_oldCoe___rarg), 2, 0); -return x_3; -} -} -lean_object* l_oldCoeFn___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_apply_1(x_1, x_2); -return x_3; -} -} -lean_object* l_oldCoeFn(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_oldCoeFn___rarg), 2, 0); -return x_2; -} -} -lean_object* l_oldCoeSort___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_apply_1(x_1, x_2); -return x_3; -} -} -lean_object* l_oldCoeSort(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_oldCoeSort___rarg), 2, 0); -return x_2; -} -} -lean_object* l_coe___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_apply_1(x_1, x_2); -return x_3; -} -} -lean_object* l_coe(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_coe___rarg), 2, 0); -return x_3; -} -} -lean_object* l_coeFn___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_apply_1(x_1, x_2); -return x_3; -} -} -lean_object* l_coeFn(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_coeFn___rarg), 2, 0); -return x_2; -} -} -lean_object* l_coeSort___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_apply_1(x_1, x_2); -return x_3; -} -} -lean_object* l_coeSort(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_coeSort___rarg), 2, 0); -return x_2; -} -} -lean_object* l_liftTrans___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; lean_object* x_5; -x_4 = lean_apply_1(x_2, x_3); -x_5 = lean_apply_1(x_1, x_4); -return x_5; -} -} -lean_object* l_liftTrans(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_coeD(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = lean_alloc_closure((void*)(l_liftTrans___rarg), 3, 0); +x_4 = lean_alloc_closure((void*)(l_coeD___rarg___boxed), 1, 0); return x_4; } } -lean_object* l_liftRefl(lean_object* x_1) { +lean_object* l_coeD___rarg___boxed(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = l_Nat_HasOfNat___closed__1; +x_2 = l_coeD___rarg(x_1); +lean_dec(x_1); return x_2; } } -lean_object* l_coeTrans___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; lean_object* x_5; -x_4 = lean_apply_1(x_2, x_3); -x_5 = lean_apply_1(x_1, x_4); -return x_5; -} -} -lean_object* l_coeTrans(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_coeD___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = lean_alloc_closure((void*)(l_coeTrans___rarg), 3, 0); +x_4 = l_coeD(x_1, x_2, x_3); +lean_dec(x_3); return x_4; } } -lean_object* l_coeBase___rarg(lean_object* x_1) { +lean_object* l_coe___rarg(lean_object* x_1) { +_start: +{ +lean_inc(x_1); +return x_1; +} +} +lean_object* l_coe(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l_coe___rarg___boxed), 1, 0); +return x_4; +} +} +lean_object* l_coe___rarg___boxed(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_oldCoeB___rarg), 2, 1); -lean_closure_set(x_2, 0, x_1); +x_2 = l_coe___rarg(x_1); +lean_dec(x_1); return x_2; } } +lean_object* l_coe___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_coe(x_1, x_2, x_3); +lean_dec(x_3); +return x_4; +} +} +lean_object* l_coeFun___rarg(lean_object* x_1) { +_start: +{ +lean_inc(x_1); +return x_1; +} +} +lean_object* l_coeFun(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l_coeFun___rarg___boxed), 1, 0); +return x_4; +} +} +lean_object* l_coeFun___rarg___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_coeFun___rarg(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_coeFun___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_coeFun(x_1, x_2, x_3); +lean_dec(x_3); +return x_4; +} +} +lean_object* l_coeSort___rarg(lean_object* x_1) { +_start: +{ +lean_inc(x_1); +return x_1; +} +} +lean_object* l_coeSort(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l_coeSort___rarg___boxed), 1, 0); +return x_4; +} +} +lean_object* l_coeSort___rarg___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_coeSort___rarg(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_coeSort___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_coeSort(x_1, x_2, x_3); +lean_dec(x_3); +return x_4; +} +} +lean_object* l_coeDepTrans___rarg(lean_object* x_1) { +_start: +{ +lean_inc(x_1); +return x_1; +} +} +lean_object* l_coeDepTrans(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = lean_alloc_closure((void*)(l_coeDepTrans___rarg___boxed), 1, 0); +return x_6; +} +} +lean_object* l_coeDepTrans___rarg___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_coeDepTrans___rarg(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_coeDepTrans___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_coeDepTrans(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_5); +lean_dec(x_4); +return x_6; +} +} +lean_object* l_coeTrans___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_apply_1(x_2, x_1); +return x_3; +} +} +lean_object* l_coeTrans(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_closure((void*)(l_coeTrans___rarg), 2, 0); +return x_5; +} +} +lean_object* l_coeTrans___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_coeTrans(x_1, x_2, x_3, x_4); +lean_dec(x_4); +return x_5; +} +} +lean_object* l_coeBase___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_apply_1(x_2, x_1); +return x_3; +} +} lean_object* l_coeBase(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_coeBase___rarg), 1, 0); +x_3 = lean_alloc_closure((void*)(l_coeBase___rarg), 2, 0); return x_3; } } -lean_object* l_coeOption___rarg(lean_object* x_1) { +lean_object* l_coeDepBase___rarg(lean_object* x_1) { +_start: +{ +lean_inc(x_1); +return x_1; +} +} +lean_object* l_coeDepBase(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l_coeDepBase___rarg___boxed), 1, 0); +return x_4; +} +} +lean_object* l_coeDepBase___rarg___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_coeDepBase___rarg(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_coeDepBase___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_coeDepBase(x_1, x_2, x_3); +lean_dec(x_3); +return x_4; +} +} +lean_object* l_coeFunTrans___rarg(lean_object* x_1) { +_start: +{ +lean_inc(x_1); +return x_1; +} +} +lean_object* l_coeFunTrans(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = lean_alloc_closure((void*)(l_coeFunTrans___rarg___boxed), 1, 0); +return x_6; +} +} +lean_object* l_coeFunTrans___rarg___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_coeFunTrans___rarg(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_coeFunTrans___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_coeFunTrans(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_5); +lean_dec(x_4); +return x_6; +} +} +lean_object* l_coeSortTrans___rarg(lean_object* x_1) { +_start: +{ +lean_inc(x_1); +return x_1; +} +} +lean_object* l_coeSortTrans(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = lean_alloc_closure((void*)(l_coeSortTrans___rarg___boxed), 1, 0); +return x_6; +} +} +lean_object* l_coeSortTrans___rarg___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_coeSortTrans___rarg(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_coeSortTrans___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_coeSortTrans(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_5); +lean_dec(x_4); +return x_6; +} +} +lean_object* _init_l_boolToProp() { +_start: +{ +return lean_box(0); +} +} +uint8_t l_decPropToBool___rarg(uint8_t x_1) { +_start: +{ +return x_1; +} +} +lean_object* l_decPropToBool(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_decPropToBool___rarg___boxed), 1, 0); +return x_2; +} +} +lean_object* l_decPropToBool___rarg___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_decPropToBool___rarg(x_2); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* l_optionCoe___rarg(lean_object* x_1) { _start: { lean_object* x_2; @@ -325,436 +426,61 @@ lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* l_coeOption(lean_object* x_1) { +lean_object* l_optionCoe(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_coeOption___rarg), 1, 0); +x_2 = lean_alloc_closure((void*)(l_optionCoe___rarg), 1, 0); return x_2; } } -lean_object* l_coeTransAux___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; lean_object* x_5; -x_4 = lean_apply_1(x_2, x_3); -x_5 = lean_apply_1(x_1, x_4); -return x_5; -} -} -lean_object* l_coeTransAux(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = lean_alloc_closure((void*)(l_coeTransAux___rarg), 3, 0); -return x_4; -} -} -lean_object* l_coeBaseAux___rarg(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_oldCoeB___rarg), 2, 1); -lean_closure_set(x_2, 0, x_1); -return x_2; -} -} -lean_object* l_coeBaseAux(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_coeBaseAux___rarg), 1, 0); -return x_3; -} -} -lean_object* l_coeFnTrans___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; lean_object* x_5; -x_4 = lean_apply_1(x_2, x_3); -x_5 = lean_apply_1(x_1, x_4); -return x_5; -} -} -lean_object* l_coeFnTrans(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_coeFnTrans___rarg), 3, 0); -return x_3; -} -} -lean_object* l_coeSortTrans___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; lean_object* x_5; -x_4 = lean_apply_1(x_2, x_3); -x_5 = lean_apply_1(x_1, x_4); -return x_5; -} -} -lean_object* l_coeSortTrans(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_coeSortTrans___rarg), 3, 0); -return x_3; -} -} -lean_object* l_coeToLift___rarg(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_oldCoeT___rarg), 2, 1); -lean_closure_set(x_2, 0, x_1); -return x_2; -} -} -lean_object* l_coeToLift(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_coeToLift___rarg), 1, 0); -return x_3; -} -} -lean_object* l_oldCoeToLift___rarg(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_oldCoeT___rarg), 2, 1); -lean_closure_set(x_2, 0, x_1); -return x_2; -} -} -lean_object* l_oldCoeToLift(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_oldCoeToLift___rarg), 1, 0); -return x_3; -} -} -lean_object* _init_l_coeBoolToProp() { -_start: -{ -return lean_box(0); -} -} -lean_object* _init_l_coeSortBool() { -_start: -{ -return lean_box(0); -} -} -uint8_t l_coeDecidableEq(uint8_t x_1) { -_start: -{ -if (x_1 == 0) -{ -uint8_t x_2; -x_2 = 0; -return x_2; -} -else -{ -uint8_t x_3; -x_3 = 1; -return x_3; -} -} -} -lean_object* l_coeDecidableEq___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_coeDecidableEq(x_2); -x_4 = lean_box(x_3); -return x_4; -} -} -lean_object* l_coeSubtype___rarg(lean_object* x_1) { +lean_object* l_subtypeCoe___rarg(lean_object* x_1) { _start: { lean_inc(x_1); return x_1; } } -lean_object* l_coeSubtype(lean_object* x_1, lean_object* x_2) { +lean_object* l_subtypeCoe(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_coeSubtype___rarg___boxed), 1, 0); +x_3 = lean_alloc_closure((void*)(l_subtypeCoe___rarg___boxed), 1, 0); return x_3; } } -lean_object* l_coeSubtype___rarg___boxed(lean_object* x_1) { +lean_object* l_subtypeCoe___rarg___boxed(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = l_coeSubtype___rarg(x_1); +x_2 = l_subtypeCoe___rarg(x_1); lean_dec(x_1); return x_2; } } -lean_object* l_coeSubtype___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_subtypeCoe___boxed(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = l_coeSubtype(x_1, x_2); +x_3 = l_subtypeCoe(x_1, x_2); lean_dec(x_2); return x_3; } } -lean_object* l_liftFn___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; lean_object* x_7; -x_5 = lean_apply_1(x_2, x_4); -x_6 = lean_apply_1(x_3, x_5); -x_7 = lean_apply_1(x_1, x_6); -return x_7; -} -} -lean_object* l_liftFn(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_closure((void*)(l_liftFn___rarg), 4, 0); -return x_5; -} -} -lean_object* l_liftFnRange___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; lean_object* x_5; -x_4 = lean_apply_1(x_2, x_3); -x_5 = lean_apply_1(x_1, x_4); -return x_5; -} -} -lean_object* l_liftFnRange(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = lean_alloc_closure((void*)(l_liftFnRange___rarg), 3, 0); -return x_4; -} -} -lean_object* l_liftFnDom___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; lean_object* x_5; -x_4 = lean_apply_1(x_1, x_3); -x_5 = lean_apply_1(x_2, x_4); -return x_5; -} -} -lean_object* l_liftFnDom(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = lean_alloc_closure((void*)(l_liftFnDom___rarg), 3, 0); -return x_4; -} -} -lean_object* l_liftPair___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -uint8_t x_4; -x_4 = !lean_is_exclusive(x_3); -if (x_4 == 0) -{ -lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; -x_5 = lean_ctor_get(x_3, 0); -x_6 = lean_ctor_get(x_3, 1); -x_7 = lean_apply_1(x_1, x_5); -x_8 = lean_apply_1(x_2, x_6); -lean_ctor_set(x_3, 1, x_8); -lean_ctor_set(x_3, 0, x_7); -return x_3; -} -else -{ -lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; -x_9 = lean_ctor_get(x_3, 0); -x_10 = lean_ctor_get(x_3, 1); -lean_inc(x_10); -lean_inc(x_9); -lean_dec(x_3); -x_11 = lean_apply_1(x_1, x_9); -x_12 = lean_apply_1(x_2, x_10); -x_13 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_13, 0, x_11); -lean_ctor_set(x_13, 1, x_12); -return x_13; -} -} -} -lean_object* l_liftPair(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_closure((void*)(l_liftPair___rarg), 3, 0); -return x_5; -} -} -lean_object* l_liftPair_u2081___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -uint8_t x_3; -x_3 = !lean_is_exclusive(x_2); -if (x_3 == 0) -{ -lean_object* x_4; lean_object* x_5; -x_4 = lean_ctor_get(x_2, 0); -x_5 = lean_apply_1(x_1, x_4); -lean_ctor_set(x_2, 0, x_5); -return x_2; -} -else -{ -lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; -x_6 = lean_ctor_get(x_2, 0); -x_7 = lean_ctor_get(x_2, 1); -lean_inc(x_7); -lean_inc(x_6); -lean_dec(x_2); -x_8 = lean_apply_1(x_1, x_6); -x_9 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_9, 0, x_8); -lean_ctor_set(x_9, 1, x_7); -return x_9; -} -} -} -lean_object* l_liftPair_u2081(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = lean_alloc_closure((void*)(l_liftPair_u2081___rarg), 2, 0); -return x_4; -} -} -lean_object* l_liftPair_u2082___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -uint8_t x_3; -x_3 = !lean_is_exclusive(x_2); -if (x_3 == 0) -{ -lean_object* x_4; lean_object* x_5; -x_4 = lean_ctor_get(x_2, 1); -x_5 = lean_apply_1(x_1, x_4); -lean_ctor_set(x_2, 1, x_5); -return x_2; -} -else -{ -lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; -x_6 = lean_ctor_get(x_2, 0); -x_7 = lean_ctor_get(x_2, 1); -lean_inc(x_7); -lean_inc(x_6); -lean_dec(x_2); -x_8 = lean_apply_1(x_1, x_7); -x_9 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_9, 0, x_6); -lean_ctor_set(x_9, 1, x_8); -return x_9; -} -} -} -lean_object* l_liftPair_u2082(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = lean_alloc_closure((void*)(l_liftPair_u2082___rarg), 2, 0); -return x_4; -} -} -lean_object* l_List_map___main___at_liftList___spec__1___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -if (lean_obj_tag(x_2) == 0) -{ -lean_object* x_3; -lean_dec(x_1); -x_3 = lean_box(0); -return x_3; -} -else -{ -uint8_t x_4; -x_4 = !lean_is_exclusive(x_2); -if (x_4 == 0) -{ -lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; -x_5 = lean_ctor_get(x_2, 0); -x_6 = lean_ctor_get(x_2, 1); -lean_inc(x_1); -x_7 = lean_apply_1(x_1, x_5); -x_8 = l_List_map___main___at_liftList___spec__1___rarg(x_1, x_6); -lean_ctor_set(x_2, 1, x_8); -lean_ctor_set(x_2, 0, x_7); -return x_2; -} -else -{ -lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; -x_9 = lean_ctor_get(x_2, 0); -x_10 = lean_ctor_get(x_2, 1); -lean_inc(x_10); -lean_inc(x_9); -lean_dec(x_2); -lean_inc(x_1); -x_11 = lean_apply_1(x_1, x_9); -x_12 = l_List_map___main___at_liftList___spec__1___rarg(x_1, x_10); -x_13 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_13, 0, x_11); -lean_ctor_set(x_13, 1, x_12); -return x_13; -} -} -} -} -lean_object* l_List_map___main___at_liftList___spec__1(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_List_map___main___at_liftList___spec__1___rarg), 2, 0); -return x_3; -} -} -lean_object* l_liftList___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_List_map___main___at_liftList___spec__1___rarg(x_1, x_2); -return x_3; -} -} -lean_object* l_liftList(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_liftList___rarg), 2, 0); -return x_3; -} -} -lean_object* initialize_Init_Data_List_Basic(lean_object*); +lean_object* initialize_Init_HasCoe(lean_object*); +lean_object* initialize_Init_Core(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Coe(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; -res = initialize_Init_Data_List_Basic(lean_io_mk_world()); +res = initialize_Init_HasCoe(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -l_coeBoolToProp = _init_l_coeBoolToProp(); -l_coeSortBool = _init_l_coeSortBool(); +res = initialize_Init_Core(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_boolToProp = _init_l_boolToProp(); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Init/Control/Lift.c b/stage0/stdlib/Init/Control/Lift.c index e82eff28f4..c1747510d4 100644 --- a/stage0/stdlib/Init/Control/Lift.c +++ b/stage0/stdlib/Init/Control/Lift.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Control.Lift -// Imports: Init.Coe Init.Control.Monad +// Imports: Init.Control.Monad #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -20,22 +20,16 @@ lean_object* l_hasMonadLiftTTrans___rarg(lean_object*, lean_object*, lean_object lean_object* l_hasMonadLiftTRefl(lean_object*, lean_object*); lean_object* l_monadFunctorTRefl___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_liftM___boxed(lean_object*, lean_object*); -lean_object* l_hasMonadLiftToHasCoe___boxed(lean_object*, lean_object*); lean_object* l_monadFunctorTTrans___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_monadFunctorTTrans___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_hasMonadLiftToHasCoe___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_hasMonadLiftTTrans(lean_object*, lean_object*, lean_object*); lean_object* l_monadFunctorTRefl(lean_object*, lean_object*, lean_object*); lean_object* l_hasMonadLiftTTrans___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_hasMonadLiftToHasCoe___elambda__1___rarg(lean_object*, lean_object*); -lean_object* l_hasMonadLiftToHasCoe(lean_object*, lean_object*); lean_object* l_liftM(lean_object*, lean_object*); lean_object* l_hasMonadLiftTRefl___rarg___boxed(lean_object*); lean_object* l_monadFunctorTTrans___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_hasMonadLiftToHasCoe___elambda__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_monadFunctorTRefl___rarg(lean_object*, lean_object*); lean_object* l_liftM___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l_hasMonadLiftToHasCoe___rarg(lean_object*, lean_object*); lean_object* l_liftM___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -62,59 +56,6 @@ lean_dec(x_1); return x_3; } } -lean_object* l_hasMonadLiftToHasCoe___elambda__1___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_apply_2(x_1, lean_box(0), x_2); -return x_3; -} -} -lean_object* l_hasMonadLiftToHasCoe___elambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = lean_alloc_closure((void*)(l_hasMonadLiftToHasCoe___elambda__1___rarg), 2, 0); -return x_4; -} -} -lean_object* l_hasMonadLiftToHasCoe___rarg(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_hasMonadLiftToHasCoe___elambda__1___rarg), 2, 1); -lean_closure_set(x_3, 0, x_1); -return x_3; -} -} -lean_object* l_hasMonadLiftToHasCoe(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_hasMonadLiftToHasCoe___rarg), 2, 0); -return x_3; -} -} -lean_object* l_hasMonadLiftToHasCoe___elambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l_hasMonadLiftToHasCoe___elambda__1(x_1, x_2, x_3); -lean_dec(x_2); -lean_dec(x_1); -return x_4; -} -} -lean_object* l_hasMonadLiftToHasCoe___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_hasMonadLiftToHasCoe(x_1, x_2); -lean_dec(x_2); -lean_dec(x_1); -return x_3; -} -} lean_object* l_hasMonadLiftTTrans___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -243,16 +184,12 @@ lean_dec(x_1); return x_4; } } -lean_object* initialize_Init_Coe(lean_object*); lean_object* initialize_Init_Control_Monad(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Control_Lift(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; -res = initialize_Init_Coe(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); res = initialize_Init_Control_Monad(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); diff --git a/stage0/stdlib/Init/Data/BinomialHeap/Basic.c b/stage0/stdlib/Init/Data/BinomialHeap/Basic.c index bd9d56d78b..04a2a6a5f0 100644 --- a/stage0/stdlib/Init/Data/BinomialHeap/Basic.c +++ b/stage0/stdlib/Init/Data/BinomialHeap/Basic.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Data.BinomialHeap.Basic -// Imports: Init.Data.List Init.Coe +// Imports: Init.Data.List #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -1434,7 +1434,6 @@ return x_2; } } lean_object* initialize_Init_Data_List(lean_object*); -lean_object* initialize_Init_Coe(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Data_BinomialHeap_Basic(lean_object* w) { lean_object * res; @@ -1443,9 +1442,6 @@ _G_initialized = true; res = initialize_Init_Data_List(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Coe(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/Data/Int/Basic.c b/stage0/stdlib/Init/Data/Int/Basic.c index c105d277f8..7822669c79 100644 --- a/stage0/stdlib/Init/Data/Int/Basic.c +++ b/stage0/stdlib/Init/Data/Int/Basic.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Data.Int.Basic -// Imports: Init.Data.Nat.Basic Init.Data.List Init.Coe Init.Data.Repr Init.Data.ToString +// Imports: Init.Data.Nat.Basic Init.Data.List Init.Data.Repr Init.Data.ToString #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -744,7 +744,6 @@ return x_3; } lean_object* initialize_Init_Data_Nat_Basic(lean_object*); lean_object* initialize_Init_Data_List(lean_object*); -lean_object* initialize_Init_Coe(lean_object*); lean_object* initialize_Init_Data_Repr(lean_object*); lean_object* initialize_Init_Data_ToString(lean_object*); static bool _G_initialized = false; @@ -758,9 +757,6 @@ lean_dec_ref(res); res = initialize_Init_Data_List(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Coe(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); res = initialize_Init_Data_Repr(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); diff --git a/stage0/stdlib/Init/Default.c b/stage0/stdlib/Init/Default.c index a5020b32ca..8488d88e9d 100644 --- a/stage0/stdlib/Init/Default.c +++ b/stage0/stdlib/Init/Default.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Default -// Imports: Init.Core Init.Control Init.Data.Basic Init.Coe Init.WF Init.Data Init.System Init.Util Init.Fix Init.LeanInit +// Imports: Init.Core Init.Control Init.Data.Basic Init.WF Init.Data Init.System Init.Util Init.Fix Init.LeanInit #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -16,7 +16,6 @@ extern "C" { lean_object* initialize_Init_Core(lean_object*); lean_object* initialize_Init_Control(lean_object*); lean_object* initialize_Init_Data_Basic(lean_object*); -lean_object* initialize_Init_Coe(lean_object*); lean_object* initialize_Init_WF(lean_object*); lean_object* initialize_Init_Data(lean_object*); lean_object* initialize_Init_System(lean_object*); @@ -37,9 +36,6 @@ lean_dec_ref(res); res = initialize_Init_Data_Basic(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Coe(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); res = initialize_Init_WF(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); diff --git a/stage0/stdlib/Init/HasCoe.c b/stage0/stdlib/Init/HasCoe.c new file mode 100644 index 0000000000..2977201ae0 --- /dev/null +++ b/stage0/stdlib/Init/HasCoe.c @@ -0,0 +1,708 @@ +// Lean compiler output +// Module: Init.HasCoe +// Imports: Init.Data.List.Basic +#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_Legacy_coeSubtype(lean_object*, lean_object*); +lean_object* l_Legacy_liftPair_u2082(lean_object*, lean_object*, lean_object*); +lean_object* l_Legacy_coeoeTrans(lean_object*, lean_object*, lean_object*); +lean_object* l_oldCoeSort___rarg(lean_object*, lean_object*); +lean_object* l_Legacy_liftFnRange___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Legacy_coeSubtype___rarg(lean_object*); +lean_object* l_Legacy_liftTrans___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Legacy_coeToLift(lean_object*, lean_object*); +lean_object* l_oldCoeT___rarg(lean_object*, lean_object*); +lean_object* l_Legacy_liftFnDom(lean_object*, lean_object*, lean_object*); +lean_object* l_lift(lean_object*, lean_object*); +lean_object* l_oldCoeFnB___rarg(lean_object*, lean_object*); +lean_object* l_Legacy_coeBase___rarg(lean_object*); +lean_object* l_Legacy_coeBaseAux___rarg(lean_object*); +uint8_t l_Legacy_coeDecidableEq(uint8_t); +lean_object* l_oldCoeFn(lean_object*); +lean_object* l_Legacy_oldCoeOption___rarg(lean_object*); +lean_object* l_oldCoe(lean_object*, lean_object*); +lean_object* l_oldCoeFn___rarg(lean_object*, lean_object*); +extern lean_object* l_Nat_HasOfNat___closed__1; +lean_object* l_Legacy_liftFn___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_oldCoe___rarg(lean_object*, lean_object*); +lean_object* l_Legacy_coeBase(lean_object*, lean_object*); +lean_object* l_oldCoeToLift(lean_object*, lean_object*); +lean_object* l_Legacy_liftRefl(lean_object*); +lean_object* l_Legacy_coeBaseAux(lean_object*, lean_object*); +lean_object* l_Legacy_liftList___rarg(lean_object*, lean_object*); +lean_object* l_Legacy_coeSortTrans(lean_object*, lean_object*); +lean_object* l_liftT(lean_object*, lean_object*); +lean_object* l_Legacy_coeBoolToProp; +lean_object* l_Legacy_liftList(lean_object*, lean_object*); +lean_object* l_oldCoeB___rarg(lean_object*, lean_object*); +lean_object* l_oldCoeSort(lean_object*); +lean_object* l_Legacy_liftPair_u2081(lean_object*, lean_object*, lean_object*); +lean_object* l_Legacy_coeFnTrans___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Legacy_coeSortBool; +lean_object* l_Legacy_liftFnDom___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Legacy_coeSubtype___boxed(lean_object*, lean_object*); +lean_object* l_Legacy_coeTransAux(lean_object*, lean_object*, lean_object*); +lean_object* l_oldCoeFnB(lean_object*); +lean_object* l_Legacy_coeoeTrans___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Legacy_coeTransAux___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Legacy_liftPair_u2081___rarg(lean_object*, lean_object*); +lean_object* l_Legacy_liftFn(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Legacy_coeSubtype___rarg___boxed(lean_object*); +lean_object* l_Legacy_coeSortTrans___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Legacy_liftPair(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Legacy_oldCoeOption(lean_object*); +lean_object* l_Legacy_coeToLift___rarg(lean_object*); +lean_object* l_oldCoeToLift___rarg(lean_object*); +lean_object* l_Legacy_coeFnTrans(lean_object*, lean_object*); +lean_object* l_List_map___main___at_Legacy_liftList___spec__1(lean_object*, lean_object*); +lean_object* l_oldCoeT(lean_object*, lean_object*); +lean_object* l_List_map___main___at_Legacy_liftList___spec__1___rarg(lean_object*, lean_object*); +lean_object* l_oldCoeB(lean_object*, lean_object*); +lean_object* l_lift___rarg(lean_object*, lean_object*); +lean_object* l_Legacy_liftTrans(lean_object*, lean_object*, lean_object*); +lean_object* l_Legacy_liftPair___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Legacy_liftFnRange(lean_object*, lean_object*, lean_object*); +lean_object* l_Legacy_coeDecidableEq___boxed(lean_object*); +lean_object* l_Legacy_liftPair_u2082___rarg(lean_object*, lean_object*); +lean_object* l_liftT___rarg(lean_object*, lean_object*); +lean_object* l_lift___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_apply_1(x_1, x_2); +return x_3; +} +} +lean_object* l_lift(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_lift___rarg), 2, 0); +return x_3; +} +} +lean_object* l_liftT___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_apply_1(x_1, x_2); +return x_3; +} +} +lean_object* l_liftT(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_liftT___rarg), 2, 0); +return x_3; +} +} +lean_object* l_oldCoeB___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_apply_1(x_1, x_2); +return x_3; +} +} +lean_object* l_oldCoeB(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_oldCoeB___rarg), 2, 0); +return x_3; +} +} +lean_object* l_oldCoeT___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_apply_1(x_1, x_2); +return x_3; +} +} +lean_object* l_oldCoeT(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_oldCoeT___rarg), 2, 0); +return x_3; +} +} +lean_object* l_oldCoeFnB___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_apply_1(x_1, x_2); +return x_3; +} +} +lean_object* l_oldCoeFnB(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_oldCoeFnB___rarg), 2, 0); +return x_2; +} +} +lean_object* l_oldCoe___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_apply_1(x_1, x_2); +return x_3; +} +} +lean_object* l_oldCoe(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_oldCoe___rarg), 2, 0); +return x_3; +} +} +lean_object* l_oldCoeFn___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_apply_1(x_1, x_2); +return x_3; +} +} +lean_object* l_oldCoeFn(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_oldCoeFn___rarg), 2, 0); +return x_2; +} +} +lean_object* l_oldCoeSort___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_apply_1(x_1, x_2); +return x_3; +} +} +lean_object* l_oldCoeSort(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_oldCoeSort___rarg), 2, 0); +return x_2; +} +} +lean_object* l_Legacy_liftTrans___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_apply_1(x_2, x_3); +x_5 = lean_apply_1(x_1, x_4); +return x_5; +} +} +lean_object* l_Legacy_liftTrans(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l_Legacy_liftTrans___rarg), 3, 0); +return x_4; +} +} +lean_object* l_Legacy_liftRefl(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Nat_HasOfNat___closed__1; +return x_2; +} +} +lean_object* l_Legacy_coeoeTrans___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_apply_1(x_2, x_3); +x_5 = lean_apply_1(x_1, x_4); +return x_5; +} +} +lean_object* l_Legacy_coeoeTrans(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l_Legacy_coeoeTrans___rarg), 3, 0); +return x_4; +} +} +lean_object* l_Legacy_coeBase___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_oldCoeB___rarg), 2, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Legacy_coeBase(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Legacy_coeBase___rarg), 1, 0); +return x_3; +} +} +lean_object* l_Legacy_oldCoeOption___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Legacy_oldCoeOption(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Legacy_oldCoeOption___rarg), 1, 0); +return x_2; +} +} +lean_object* l_Legacy_coeTransAux___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_apply_1(x_2, x_3); +x_5 = lean_apply_1(x_1, x_4); +return x_5; +} +} +lean_object* l_Legacy_coeTransAux(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l_Legacy_coeTransAux___rarg), 3, 0); +return x_4; +} +} +lean_object* l_Legacy_coeBaseAux___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_oldCoeB___rarg), 2, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Legacy_coeBaseAux(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Legacy_coeBaseAux___rarg), 1, 0); +return x_3; +} +} +lean_object* l_Legacy_coeFnTrans___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_apply_1(x_2, x_3); +x_5 = lean_apply_1(x_1, x_4); +return x_5; +} +} +lean_object* l_Legacy_coeFnTrans(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Legacy_coeFnTrans___rarg), 3, 0); +return x_3; +} +} +lean_object* l_Legacy_coeSortTrans___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_apply_1(x_2, x_3); +x_5 = lean_apply_1(x_1, x_4); +return x_5; +} +} +lean_object* l_Legacy_coeSortTrans(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Legacy_coeSortTrans___rarg), 3, 0); +return x_3; +} +} +lean_object* l_Legacy_coeToLift___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_oldCoeT___rarg), 2, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Legacy_coeToLift(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Legacy_coeToLift___rarg), 1, 0); +return x_3; +} +} +lean_object* _init_l_Legacy_coeBoolToProp() { +_start: +{ +return lean_box(0); +} +} +lean_object* _init_l_Legacy_coeSortBool() { +_start: +{ +return lean_box(0); +} +} +uint8_t l_Legacy_coeDecidableEq(uint8_t x_1) { +_start: +{ +if (x_1 == 0) +{ +uint8_t x_2; +x_2 = 0; +return x_2; +} +else +{ +uint8_t x_3; +x_3 = 1; +return x_3; +} +} +} +lean_object* l_Legacy_coeDecidableEq___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_Legacy_coeDecidableEq(x_2); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* l_Legacy_coeSubtype___rarg(lean_object* x_1) { +_start: +{ +lean_inc(x_1); +return x_1; +} +} +lean_object* l_Legacy_coeSubtype(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Legacy_coeSubtype___rarg___boxed), 1, 0); +return x_3; +} +} +lean_object* l_Legacy_coeSubtype___rarg___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Legacy_coeSubtype___rarg(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Legacy_coeSubtype___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Legacy_coeSubtype(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} +lean_object* l_Legacy_liftFn___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; lean_object* x_7; +x_5 = lean_apply_1(x_2, x_4); +x_6 = lean_apply_1(x_3, x_5); +x_7 = lean_apply_1(x_1, x_6); +return x_7; +} +} +lean_object* l_Legacy_liftFn(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_closure((void*)(l_Legacy_liftFn___rarg), 4, 0); +return x_5; +} +} +lean_object* l_Legacy_liftFnRange___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_apply_1(x_2, x_3); +x_5 = lean_apply_1(x_1, x_4); +return x_5; +} +} +lean_object* l_Legacy_liftFnRange(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l_Legacy_liftFnRange___rarg), 3, 0); +return x_4; +} +} +lean_object* l_Legacy_liftFnDom___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_apply_1(x_1, x_3); +x_5 = lean_apply_1(x_2, x_4); +return x_5; +} +} +lean_object* l_Legacy_liftFnDom(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l_Legacy_liftFnDom___rarg), 3, 0); +return x_4; +} +} +lean_object* l_Legacy_liftPair___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_3); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_3, 0); +x_6 = lean_ctor_get(x_3, 1); +x_7 = lean_apply_1(x_1, x_5); +x_8 = lean_apply_1(x_2, x_6); +lean_ctor_set(x_3, 1, x_8); +lean_ctor_set(x_3, 0, x_7); +return x_3; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_3, 0); +x_10 = lean_ctor_get(x_3, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_3); +x_11 = lean_apply_1(x_1, x_9); +x_12 = lean_apply_1(x_2, x_10); +x_13 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_13, 0, x_11); +lean_ctor_set(x_13, 1, x_12); +return x_13; +} +} +} +lean_object* l_Legacy_liftPair(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_closure((void*)(l_Legacy_liftPair___rarg), 3, 0); +return x_5; +} +} +lean_object* l_Legacy_liftPair_u2081___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_2); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_ctor_get(x_2, 0); +x_5 = lean_apply_1(x_1, x_4); +lean_ctor_set(x_2, 0, x_5); +return x_2; +} +else +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_6 = lean_ctor_get(x_2, 0); +x_7 = lean_ctor_get(x_2, 1); +lean_inc(x_7); +lean_inc(x_6); +lean_dec(x_2); +x_8 = lean_apply_1(x_1, x_6); +x_9 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_9, 0, x_8); +lean_ctor_set(x_9, 1, x_7); +return x_9; +} +} +} +lean_object* l_Legacy_liftPair_u2081(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l_Legacy_liftPair_u2081___rarg), 2, 0); +return x_4; +} +} +lean_object* l_Legacy_liftPair_u2082___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_2); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_ctor_get(x_2, 1); +x_5 = lean_apply_1(x_1, x_4); +lean_ctor_set(x_2, 1, x_5); +return x_2; +} +else +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_6 = lean_ctor_get(x_2, 0); +x_7 = lean_ctor_get(x_2, 1); +lean_inc(x_7); +lean_inc(x_6); +lean_dec(x_2); +x_8 = lean_apply_1(x_1, x_7); +x_9 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_9, 0, x_6); +lean_ctor_set(x_9, 1, x_8); +return x_9; +} +} +} +lean_object* l_Legacy_liftPair_u2082(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l_Legacy_liftPair_u2082___rarg), 2, 0); +return x_4; +} +} +lean_object* l_List_map___main___at_Legacy_liftList___spec__1___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +lean_dec(x_1); +x_3 = lean_box(0); +return x_3; +} +else +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_2); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +lean_inc(x_1); +x_7 = lean_apply_1(x_1, x_5); +x_8 = l_List_map___main___at_Legacy_liftList___spec__1___rarg(x_1, x_6); +lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 0, x_7); +return x_2; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_2, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_2); +lean_inc(x_1); +x_11 = lean_apply_1(x_1, x_9); +x_12 = l_List_map___main___at_Legacy_liftList___spec__1___rarg(x_1, x_10); +x_13 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_13, 0, x_11); +lean_ctor_set(x_13, 1, x_12); +return x_13; +} +} +} +} +lean_object* l_List_map___main___at_Legacy_liftList___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_List_map___main___at_Legacy_liftList___spec__1___rarg), 2, 0); +return x_3; +} +} +lean_object* l_Legacy_liftList___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_map___main___at_Legacy_liftList___spec__1___rarg(x_1, x_2); +return x_3; +} +} +lean_object* l_Legacy_liftList(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Legacy_liftList___rarg), 2, 0); +return x_3; +} +} +lean_object* l_oldCoeToLift___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_oldCoeT___rarg), 2, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_oldCoeToLift(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_oldCoeToLift___rarg), 1, 0); +return x_3; +} +} +lean_object* initialize_Init_Data_List_Basic(lean_object*); +static bool _G_initialized = false; +lean_object* initialize_Init_HasCoe(lean_object* w) { +lean_object * res; +if (_G_initialized) return lean_mk_io_result(lean_box(0)); +_G_initialized = true; +res = initialize_Init_Data_List_Basic(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Legacy_coeBoolToProp = _init_l_Legacy_coeBoolToProp(); +l_Legacy_coeSortBool = _init_l_Legacy_coeSortBool(); +return lean_mk_io_result(lean_box(0)); +} +#ifdef __cplusplus +} +#endif diff --git a/stage0/stdlib/Init/Lean/Compiler/IR/ElimDeadBranches.c b/stage0/stdlib/Init/Lean/Compiler/IR/ElimDeadBranches.c index d70bc0cb0e..3e9e7c01cc 100644 --- a/stage0/stdlib/Init/Lean/Compiler/IR/ElimDeadBranches.c +++ b/stage0/stdlib/Init/Lean/Compiler/IR/ElimDeadBranches.c @@ -119,7 +119,6 @@ lean_object* l_Lean_IR_UnreachableBranches_Value_format___main___closed__2; uint8_t lean_nat_dec_eq(lean_object*, lean_object*); lean_object* l_Lean_IR_UnreachableBranches_Value_format(lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_IR_UnreachableBranches_elimDeadAux___main___spec__1___boxed(lean_object*, lean_object*, lean_object*); -extern lean_object* l_List_Monad; lean_object* l_Lean_IR_UnreachableBranches_Value_format___main___closed__1; lean_object* l_HashMapImp_insert___at_Lean_IR_UnreachableBranches_updateVarAssignment___spec__2(lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_IR_UnreachableBranches_mkFunctionSummariesExtension___spec__5(size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -291,7 +290,6 @@ lean_object* l_Lean_IR_UnreachableBranches_elimDeadAux___boxed(lean_object*, lea lean_object* l_Lean_IR_UnreachableBranches_Value_format___main___closed__5; extern lean_object* l_Lean_Format_paren___closed__3; lean_object* l_Lean_IR_UnreachableBranches_elimDeadAux(lean_object*, lean_object*); -lean_object* l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__4; lean_object* l_Lean_IR_UnreachableBranches_Value_Lean_HasFormat; lean_object* l_Array_findIdxAux___main___at_Lean_IR_UnreachableBranches_interpExpr___spec__2___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_PersistentArray_get_x21___at_Lean_IR_UnreachableBranches_interpExpr___spec__3(lean_object*, lean_object*); @@ -327,7 +325,6 @@ lean_object* l_Lean_IR_UnreachableBranches_functionSummariesExt___closed__9; lean_object* l_HashMapImp_find_x3f___at_Lean_IR_UnreachableBranches_getFunctionSummary_x3f___spec__5(lean_object*, lean_object*); lean_object* l_List_map___main___at_Lean_IR_UnreachableBranches_Value_truncate___main___spec__2(lean_object*, lean_object*, lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); -lean_object* l_monadInhabited___rarg(lean_object*, lean_object*); lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_IR_UnreachableBranches_mkFunctionSummariesExtension___spec__22(lean_object*, lean_object*); lean_object* _init_l_Lean_IR_UnreachableBranches_Value_Inhabited() { _start: @@ -715,22 +712,12 @@ return x_1; lean_object* _init_l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__1() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_List_Monad; -x_2 = l_Lean_IR_UnreachableBranches_Value_Inhabited; -x_3 = l_monadInhabited___rarg(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__2() { -_start: -{ lean_object* x_1; x_1 = lean_mk_string("Init.Lean.Compiler.IR.ElimDeadBranches"); return x_1; } } -lean_object* _init_l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__3() { +lean_object* _init_l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__2() { _start: { lean_object* x_1; @@ -738,14 +725,14 @@ x_1 = lean_mk_string("invalid addChoice"); return x_1; } } -lean_object* _init_l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__4() { +lean_object* _init_l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__3() { _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_IR_UnreachableBranches_Value_addChoice___main___closed__2; +x_1 = l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__1; x_2 = lean_unsigned_to_nat(46u); x_3 = lean_unsigned_to_nat(10u); -x_4 = l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__3; +x_4 = l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__2; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); return x_5; } @@ -841,8 +828,8 @@ lean_dec(x_5); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_22 = l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__1; -x_23 = l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__4; +x_22 = lean_box(0); +x_23 = l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__3; x_24 = lean_panic_fn(x_22, x_23); return x_24; } @@ -854,8 +841,8 @@ lean_dec(x_5); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_25 = l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__1; -x_26 = l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__4; +x_25 = lean_box(0); +x_26 = l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__3; x_27 = lean_panic_fn(x_25, x_26); return x_27; } @@ -7521,8 +7508,6 @@ l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__2 = _init_l_Lean_ lean_mark_persistent(l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__2); l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__3 = _init_l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__3(); lean_mark_persistent(l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__3); -l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__4 = _init_l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__4(); -lean_mark_persistent(l_Lean_IR_UnreachableBranches_Value_addChoice___main___closed__4); l_List_foldl___main___at_Lean_IR_UnreachableBranches_Value_merge___main___spec__2___closed__1 = _init_l_List_foldl___main___at_Lean_IR_UnreachableBranches_Value_merge___main___spec__2___closed__1(); lean_mark_persistent(l_List_foldl___main___at_Lean_IR_UnreachableBranches_Value_merge___main___spec__2___closed__1); l_Lean_IR_UnreachableBranches_Value_format___main___closed__1 = _init_l_Lean_IR_UnreachableBranches_Value_format___main___closed__1(); diff --git a/stage0/stdlib/Init/Lean/Data/Name.c b/stage0/stdlib/Init/Lean/Data/Name.c index b91d291e0c..f05afa17c4 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.Coe 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.RBMap Init.Data.RBTree #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -8868,7 +8868,6 @@ lean_dec(x_2); return x_3; } } -lean_object* initialize_Init_Coe(lean_object*); lean_object* initialize_Init_LeanInit(lean_object*); lean_object* initialize_Init_Data_UInt(lean_object*); lean_object* initialize_Init_Data_ToString(lean_object*); @@ -8880,9 +8879,6 @@ lean_object* initialize_Init_Lean_Data_Name(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; -res = initialize_Init_Coe(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); res = initialize_Init_LeanInit(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/BuiltinNotation.c b/stage0/stdlib/Init/Lean/Elab/BuiltinNotation.c index 2c88358283..eab4c8c59c 100644 --- a/stage0/stdlib/Init/Lean/Elab/BuiltinNotation.c +++ b/stage0/stdlib/Init/Lean/Elab/BuiltinNotation.c @@ -85,7 +85,6 @@ lean_object* l_Lean_Elab_Term_elabDollar___lambda__1___boxed(lean_object*, lean_ extern lean_object* l_Lean_Parser_Term_seqLeft___elambda__1___closed__1; extern lean_object* l_Lean_identKind___closed__2; lean_object* l_Lean_Elab_Term_elabseqLeft___closed__3; -extern uint8_t l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabAnd(lean_object*); extern lean_object* l_Lean_Parser_Term_where___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__11; @@ -342,7 +341,6 @@ extern lean_object* l_Lean_Parser_Term_beq___elambda__1___closed__1; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabTParserMacro___closed__3; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabAndThen___closed__1; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabDollar___closed__2; -uint8_t l_coeDecidableEq(uint8_t); extern lean_object* l___private_Init_Lean_Elab_Quotation_3__quoteOption___rarg___closed__5; lean_object* l_Lean_Elab_Term_elabAppend___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabSubtype___lambda__1___closed__7; @@ -681,33 +679,10 @@ return x_4; lean_object* l_Lean_Elab_Term_elabDo___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_156; uint8_t x_157; -x_156 = l_Lean_Parser_Term_do___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Term_do___elambda__1___closed__2; lean_inc(x_1); -x_157 = l_Lean_Syntax_isOfKind(x_1, x_156); -if (x_157 == 0) -{ -uint8_t x_158; -x_158 = 0; -x_4 = x_158; -goto block_155; -} -else -{ -lean_object* x_159; lean_object* x_160; lean_object* x_161; uint8_t x_162; -x_159 = l_Lean_Syntax_getArgs(x_1); -x_160 = lean_array_get_size(x_159); -lean_dec(x_159); -x_161 = lean_unsigned_to_nat(2u); -x_162 = lean_nat_dec_eq(x_160, x_161); -lean_dec(x_160); -x_4 = x_162; -goto block_155; -} -block_155: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; @@ -717,336 +692,323 @@ return x_6; } else { -lean_object* x_7; lean_object* x_8; uint8_t x_9; lean_object* x_148; uint8_t x_149; -x_7 = lean_unsigned_to_nat(1u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); -lean_dec(x_1); -x_148 = l_Lean_nullKind___closed__2; -lean_inc(x_8); -x_149 = l_Lean_Syntax_isOfKind(x_8, x_148); -if (x_149 == 0) -{ -uint8_t x_150; -x_150 = 0; -x_9 = x_150; -goto block_147; -} -else -{ -lean_object* x_151; lean_object* x_152; lean_object* x_153; uint8_t x_154; -x_151 = l_Lean_Syntax_getArgs(x_8); -x_152 = lean_array_get_size(x_151); -lean_dec(x_151); -x_153 = lean_unsigned_to_nat(3u); -x_154 = lean_nat_dec_eq(x_152, x_153); -lean_dec(x_152); -x_9 = x_154; -goto block_147; -} -block_147: -{ -uint8_t x_10; -x_10 = l_coeDecidableEq(x_9); +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(2u); +x_10 = lean_nat_dec_eq(x_8, x_9); +lean_dec(x_8); if (x_10 == 0) { lean_object* x_11; -lean_dec(x_8); +lean_dec(x_1); x_11 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); return x_11; } else { -lean_object* x_12; lean_object* x_13; uint8_t x_14; lean_object* x_140; uint8_t x_141; -x_12 = lean_unsigned_to_nat(0u); -x_13 = l_Lean_Syntax_getArg(x_8, x_12); -x_140 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15; +x_12 = lean_unsigned_to_nat(1u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); +lean_dec(x_1); +x_14 = l_Lean_nullKind___closed__2; lean_inc(x_13); -x_141 = l_Lean_Syntax_isOfKind(x_13, x_140); -if (x_141 == 0) -{ -uint8_t x_142; -x_142 = 0; -x_14 = x_142; -goto block_139; -} -else -{ -lean_object* x_143; lean_object* x_144; lean_object* x_145; uint8_t x_146; -x_143 = l_Lean_Syntax_getArgs(x_13); -x_144 = lean_array_get_size(x_143); -lean_dec(x_143); -x_145 = lean_unsigned_to_nat(4u); -x_146 = lean_nat_dec_eq(x_144, x_145); -lean_dec(x_144); -x_14 = x_146; -goto block_139; -} -block_139: -{ -uint8_t x_15; -x_15 = l_coeDecidableEq(x_14); +x_15 = l_Lean_Syntax_isOfKind(x_13, x_14); if (x_15 == 0) { lean_object* x_16; lean_dec(x_13); -lean_dec(x_8); x_16 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); return x_16; } else { -lean_object* x_17; lean_object* x_18; uint8_t x_19; uint8_t x_20; -x_17 = l_Lean_Syntax_getArg(x_13, x_12); -x_18 = l_Lean_identKind___closed__2; -lean_inc(x_17); -x_19 = l_Lean_Syntax_isOfKind(x_17, x_18); -x_20 = l_coeDecidableEq(x_19); +lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; +x_17 = l_Lean_Syntax_getArgs(x_13); +x_18 = lean_array_get_size(x_17); +lean_dec(x_17); +x_19 = lean_unsigned_to_nat(3u); +x_20 = lean_nat_dec_eq(x_18, x_19); +lean_dec(x_18); if (x_20 == 0) { lean_object* x_21; -lean_dec(x_17); lean_dec(x_13); -lean_dec(x_8); x_21 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); return x_21; } else { -lean_object* x_22; uint8_t x_23; lean_object* x_133; uint8_t x_134; -x_22 = l_Lean_Syntax_getArg(x_13, x_7); -x_133 = l_Lean_nullKind___closed__2; -lean_inc(x_22); -x_134 = l_Lean_Syntax_isOfKind(x_22, x_133); -if (x_134 == 0) +lean_object* x_22; lean_object* x_23; lean_object* x_24; uint8_t x_25; +x_22 = lean_unsigned_to_nat(0u); +x_23 = l_Lean_Syntax_getArg(x_13, x_22); +x_24 = l_Lean_Parser_Term_doId___elambda__1___closed__2; +lean_inc(x_23); +x_25 = l_Lean_Syntax_isOfKind(x_23, x_24); +if (x_25 == 0) { -uint8_t x_135; -lean_dec(x_22); -x_135 = 0; -x_23 = x_135; -goto block_132; -} -else -{ -lean_object* x_136; lean_object* x_137; uint8_t x_138; -x_136 = l_Lean_Syntax_getArgs(x_22); -lean_dec(x_22); -x_137 = lean_array_get_size(x_136); -lean_dec(x_136); -x_138 = lean_nat_dec_eq(x_137, x_12); -lean_dec(x_137); -x_23 = x_138; -goto block_132; -} -block_132: -{ -uint8_t x_24; -x_24 = l_coeDecidableEq(x_23); -if (x_24 == 0) -{ -lean_object* x_25; -lean_dec(x_17); +lean_object* x_26; +lean_dec(x_23); lean_dec(x_13); -lean_dec(x_8); -x_25 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); -return x_25; +x_26 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_26; } else { -lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; uint8_t x_30; lean_object* x_126; uint8_t x_127; -x_26 = lean_unsigned_to_nat(3u); -x_27 = l_Lean_Syntax_getArg(x_13, x_26); -lean_dec(x_13); -x_28 = lean_unsigned_to_nat(2u); -x_29 = l_Lean_Syntax_getArg(x_8, x_28); -lean_dec(x_8); -x_126 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; -lean_inc(x_29); -x_127 = l_Lean_Syntax_isOfKind(x_29, x_126); -if (x_127 == 0) -{ -uint8_t x_128; -x_128 = 0; -x_30 = x_128; -goto block_125; -} -else -{ -lean_object* x_129; lean_object* x_130; uint8_t x_131; -x_129 = l_Lean_Syntax_getArgs(x_29); -x_130 = lean_array_get_size(x_129); -lean_dec(x_129); -x_131 = lean_nat_dec_eq(x_130, x_7); -lean_dec(x_130); -x_30 = x_131; -goto block_125; -} -block_125: -{ -uint8_t x_31; -x_31 = l_coeDecidableEq(x_30); -if (x_31 == 0) -{ -lean_object* x_32; -lean_dec(x_29); +lean_object* x_27; lean_object* x_28; lean_object* x_29; uint8_t x_30; +x_27 = l_Lean_Syntax_getArgs(x_23); +x_28 = lean_array_get_size(x_27); lean_dec(x_27); -lean_dec(x_17); -x_32 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); -return x_32; +x_29 = lean_unsigned_to_nat(4u); +x_30 = lean_nat_dec_eq(x_28, x_29); +lean_dec(x_28); +if (x_30 == 0) +{ +lean_object* x_31; +lean_dec(x_23); +lean_dec(x_13); +x_31 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_31; } else { -lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; uint8_t x_38; -x_33 = l_Lean_Syntax_getArg(x_29, x_12); -lean_dec(x_29); -x_34 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); -x_35 = lean_ctor_get(x_34, 0); -lean_inc(x_35); -x_36 = lean_ctor_get(x_34, 1); +lean_object* x_32; lean_object* x_33; uint8_t x_34; +x_32 = l_Lean_Syntax_getArg(x_23, x_22); +x_33 = l_Lean_identKind___closed__2; +lean_inc(x_32); +x_34 = l_Lean_Syntax_isOfKind(x_32, x_33); +if (x_34 == 0) +{ +lean_object* x_35; +lean_dec(x_32); +lean_dec(x_23); +lean_dec(x_13); +x_35 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_35; +} +else +{ +lean_object* x_36; uint8_t x_37; +x_36 = l_Lean_Syntax_getArg(x_23, x_12); lean_inc(x_36); -lean_dec(x_34); -x_37 = l_Lean_Elab_Term_getMainModule___rarg(x_36); -x_38 = !lean_is_exclusive(x_37); -if (x_38 == 0) +x_37 = l_Lean_Syntax_isOfKind(x_36, x_14); +if (x_37 == 0) { -lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; -x_39 = lean_ctor_get(x_37, 0); -x_40 = lean_box(0); -x_41 = l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__7; -x_42 = l_Lean_addMacroScope(x_39, x_41, x_35); -x_43 = l_Lean_Elab_Term_elabDo___lambda__1___closed__3; -x_44 = l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__9; -x_45 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_45, 0, x_40); -lean_ctor_set(x_45, 1, x_43); -lean_ctor_set(x_45, 2, x_42); -lean_ctor_set(x_45, 3, x_44); -x_46 = l_Array_empty___closed__1; -x_47 = lean_array_push(x_46, x_45); -x_48 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_49 = lean_array_push(x_47, x_48); -x_50 = l_Lean_mkTermIdFromIdent___closed__2; -x_51 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_51, 0, x_50); -lean_ctor_set(x_51, 1, x_49); -x_52 = lean_array_push(x_46, x_51); -x_53 = lean_array_push(x_46, x_27); -x_54 = lean_array_push(x_46, x_17); -x_55 = lean_array_push(x_54, x_48); -x_56 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_56, 0, x_50); -lean_ctor_set(x_56, 1, x_55); -x_57 = lean_array_push(x_46, x_56); -x_58 = l_Lean_nullKind___closed__2; -x_59 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_59, 0, x_58); -lean_ctor_set(x_59, 1, x_57); -x_60 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_61 = lean_array_push(x_60, x_59); -x_62 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_63 = lean_array_push(x_61, x_62); -x_64 = lean_array_push(x_63, x_33); -x_65 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_66 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_66, 0, x_65); -lean_ctor_set(x_66, 1, x_64); -x_67 = lean_array_push(x_46, x_66); -x_68 = lean_array_push(x_67, x_48); -x_69 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_69, 0, x_58); -lean_ctor_set(x_69, 1, x_68); -x_70 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_71 = lean_array_push(x_70, x_69); -x_72 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_73 = lean_array_push(x_71, x_72); -x_74 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_75 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_75, 0, x_74); -lean_ctor_set(x_75, 1, x_73); -x_76 = lean_array_push(x_53, x_75); -x_77 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_77, 0, x_58); -lean_ctor_set(x_77, 1, x_76); -x_78 = lean_array_push(x_52, x_77); -x_79 = l_Lean_mkAppStx___closed__8; -x_80 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_80, 0, x_79); -lean_ctor_set(x_80, 1, x_78); -lean_ctor_set(x_37, 0, x_80); -return x_37; +lean_object* x_38; +lean_dec(x_36); +lean_dec(x_32); +lean_dec(x_23); +lean_dec(x_13); +x_38 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_38; } else { -lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; -x_81 = lean_ctor_get(x_37, 0); -x_82 = lean_ctor_get(x_37, 1); -lean_inc(x_82); -lean_inc(x_81); -lean_dec(x_37); -x_83 = lean_box(0); -x_84 = l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__7; -x_85 = l_Lean_addMacroScope(x_81, x_84, x_35); -x_86 = l_Lean_Elab_Term_elabDo___lambda__1___closed__3; -x_87 = l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__9; -x_88 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_88, 0, x_83); -lean_ctor_set(x_88, 1, x_86); -lean_ctor_set(x_88, 2, x_85); -lean_ctor_set(x_88, 3, x_87); -x_89 = l_Array_empty___closed__1; -x_90 = lean_array_push(x_89, x_88); -x_91 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_92 = lean_array_push(x_90, x_91); -x_93 = l_Lean_mkTermIdFromIdent___closed__2; -x_94 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_94, 0, x_93); -lean_ctor_set(x_94, 1, x_92); -x_95 = lean_array_push(x_89, x_94); -x_96 = lean_array_push(x_89, x_27); -x_97 = lean_array_push(x_89, x_17); -x_98 = lean_array_push(x_97, x_91); -x_99 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_99, 0, x_93); -lean_ctor_set(x_99, 1, x_98); -x_100 = lean_array_push(x_89, x_99); -x_101 = l_Lean_nullKind___closed__2; -x_102 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_102, 0, x_101); -lean_ctor_set(x_102, 1, x_100); -x_103 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_104 = lean_array_push(x_103, x_102); -x_105 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_106 = lean_array_push(x_104, x_105); -x_107 = lean_array_push(x_106, x_33); -x_108 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_109 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_109, 0, x_108); -lean_ctor_set(x_109, 1, x_107); -x_110 = lean_array_push(x_89, x_109); -x_111 = lean_array_push(x_110, x_91); +lean_object* x_39; lean_object* x_40; uint8_t x_41; +x_39 = l_Lean_Syntax_getArgs(x_36); +lean_dec(x_36); +x_40 = lean_array_get_size(x_39); +lean_dec(x_39); +x_41 = lean_nat_dec_eq(x_40, x_22); +lean_dec(x_40); +if (x_41 == 0) +{ +lean_object* x_42; +lean_dec(x_32); +lean_dec(x_23); +lean_dec(x_13); +x_42 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_42; +} +else +{ +lean_object* x_43; lean_object* x_44; lean_object* x_45; uint8_t x_46; +x_43 = l_Lean_Syntax_getArg(x_23, x_19); +lean_dec(x_23); +x_44 = l_Lean_Syntax_getArg(x_13, x_9); +lean_dec(x_13); +x_45 = l_Lean_Parser_Term_doExpr___elambda__1___closed__2; +lean_inc(x_44); +x_46 = l_Lean_Syntax_isOfKind(x_44, x_45); +if (x_46 == 0) +{ +lean_object* x_47; +lean_dec(x_44); +lean_dec(x_43); +lean_dec(x_32); +x_47 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_47; +} +else +{ +lean_object* x_48; lean_object* x_49; uint8_t x_50; +x_48 = l_Lean_Syntax_getArgs(x_44); +x_49 = lean_array_get_size(x_48); +lean_dec(x_48); +x_50 = lean_nat_dec_eq(x_49, x_12); +lean_dec(x_49); +if (x_50 == 0) +{ +lean_object* x_51; +lean_dec(x_44); +lean_dec(x_43); +lean_dec(x_32); +x_51 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_51; +} +else +{ +lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; uint8_t x_57; +x_52 = l_Lean_Syntax_getArg(x_44, x_22); +lean_dec(x_44); +x_53 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); +x_54 = lean_ctor_get(x_53, 0); +lean_inc(x_54); +x_55 = lean_ctor_get(x_53, 1); +lean_inc(x_55); +lean_dec(x_53); +x_56 = l_Lean_Elab_Term_getMainModule___rarg(x_55); +x_57 = !lean_is_exclusive(x_56); +if (x_57 == 0) +{ +lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; +x_58 = lean_ctor_get(x_56, 0); +x_59 = lean_box(0); +x_60 = l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__7; +x_61 = l_Lean_addMacroScope(x_58, x_60, x_54); +x_62 = l_Lean_Elab_Term_elabDo___lambda__1___closed__3; +x_63 = l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__9; +x_64 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_64, 0, x_59); +lean_ctor_set(x_64, 1, x_62); +lean_ctor_set(x_64, 2, x_61); +lean_ctor_set(x_64, 3, x_63); +x_65 = l_Array_empty___closed__1; +x_66 = lean_array_push(x_65, x_64); +x_67 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_68 = lean_array_push(x_66, x_67); +x_69 = l_Lean_mkTermIdFromIdent___closed__2; +x_70 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_70, 0, x_69); +lean_ctor_set(x_70, 1, x_68); +x_71 = lean_array_push(x_65, x_70); +x_72 = lean_array_push(x_65, x_43); +x_73 = lean_array_push(x_65, x_32); +x_74 = lean_array_push(x_73, x_67); +x_75 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_75, 0, x_69); +lean_ctor_set(x_75, 1, x_74); +x_76 = lean_array_push(x_65, x_75); +x_77 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_77, 0, x_14); +lean_ctor_set(x_77, 1, x_76); +x_78 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_79 = lean_array_push(x_78, x_77); +x_80 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_81 = lean_array_push(x_79, x_80); +x_82 = lean_array_push(x_81, x_52); +x_83 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_84 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_84, 0, x_83); +lean_ctor_set(x_84, 1, x_82); +x_85 = lean_array_push(x_65, x_84); +x_86 = lean_array_push(x_85, x_67); +x_87 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_87, 0, x_14); +lean_ctor_set(x_87, 1, x_86); +x_88 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_89 = lean_array_push(x_88, x_87); +x_90 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_91 = lean_array_push(x_89, x_90); +x_92 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_93 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_93, 0, x_92); +lean_ctor_set(x_93, 1, x_91); +x_94 = lean_array_push(x_72, x_93); +x_95 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_95, 0, x_14); +lean_ctor_set(x_95, 1, x_94); +x_96 = lean_array_push(x_71, x_95); +x_97 = l_Lean_mkAppStx___closed__8; +x_98 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_98, 0, x_97); +lean_ctor_set(x_98, 1, x_96); +lean_ctor_set(x_56, 0, x_98); +return x_56; +} +else +{ +lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; +x_99 = lean_ctor_get(x_56, 0); +x_100 = lean_ctor_get(x_56, 1); +lean_inc(x_100); +lean_inc(x_99); +lean_dec(x_56); +x_101 = lean_box(0); +x_102 = l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__7; +x_103 = l_Lean_addMacroScope(x_99, x_102, x_54); +x_104 = l_Lean_Elab_Term_elabDo___lambda__1___closed__3; +x_105 = l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__9; +x_106 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_106, 0, x_101); +lean_ctor_set(x_106, 1, x_104); +lean_ctor_set(x_106, 2, x_103); +lean_ctor_set(x_106, 3, x_105); +x_107 = l_Array_empty___closed__1; +x_108 = lean_array_push(x_107, x_106); +x_109 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_110 = lean_array_push(x_108, x_109); +x_111 = l_Lean_mkTermIdFromIdent___closed__2; x_112 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_112, 0, x_101); -lean_ctor_set(x_112, 1, x_111); -x_113 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_114 = lean_array_push(x_113, x_112); -x_115 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_116 = lean_array_push(x_114, x_115); -x_117 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_118 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_118, 0, x_117); -lean_ctor_set(x_118, 1, x_116); -x_119 = lean_array_push(x_96, x_118); -x_120 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_120, 0, x_101); -lean_ctor_set(x_120, 1, x_119); -x_121 = lean_array_push(x_95, x_120); -x_122 = l_Lean_mkAppStx___closed__8; -x_123 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_123, 0, x_122); -lean_ctor_set(x_123, 1, x_121); -x_124 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_124, 0, x_123); -lean_ctor_set(x_124, 1, x_82); -return x_124; +lean_ctor_set(x_112, 0, x_111); +lean_ctor_set(x_112, 1, x_110); +x_113 = lean_array_push(x_107, x_112); +x_114 = lean_array_push(x_107, x_43); +x_115 = lean_array_push(x_107, x_32); +x_116 = lean_array_push(x_115, x_109); +x_117 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_117, 0, x_111); +lean_ctor_set(x_117, 1, x_116); +x_118 = lean_array_push(x_107, x_117); +x_119 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_119, 0, x_14); +lean_ctor_set(x_119, 1, x_118); +x_120 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_121 = lean_array_push(x_120, x_119); +x_122 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_123 = lean_array_push(x_121, x_122); +x_124 = lean_array_push(x_123, x_52); +x_125 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_126 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_126, 0, x_125); +lean_ctor_set(x_126, 1, x_124); +x_127 = lean_array_push(x_107, x_126); +x_128 = lean_array_push(x_127, x_109); +x_129 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_129, 0, x_14); +lean_ctor_set(x_129, 1, x_128); +x_130 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_131 = lean_array_push(x_130, x_129); +x_132 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_133 = lean_array_push(x_131, x_132); +x_134 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_135 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_135, 0, x_134); +lean_ctor_set(x_135, 1, x_133); +x_136 = lean_array_push(x_114, x_135); +x_137 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_137, 0, x_14); +lean_ctor_set(x_137, 1, x_136); +x_138 = lean_array_push(x_113, x_137); +x_139 = l_Lean_mkAppStx___closed__8; +x_140 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_140, 0, x_139); +lean_ctor_set(x_140, 1, x_138); +x_141 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_141, 0, x_140); +lean_ctor_set(x_141, 1, x_100); +return x_141; } } } @@ -1127,33 +1089,10 @@ return x_5; lean_object* l_Lean_Elab_Term_elabDollar___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_75; uint8_t x_76; -x_75 = l_Lean_Parser_Term_dollar___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Term_dollar___elambda__1___closed__2; lean_inc(x_1); -x_76 = l_Lean_Syntax_isOfKind(x_1, x_75); -if (x_76 == 0) -{ -uint8_t x_77; -x_77 = 0; -x_4 = x_77; -goto block_74; -} -else -{ -lean_object* x_78; lean_object* x_79; lean_object* x_80; uint8_t x_81; -x_78 = l_Lean_Syntax_getArgs(x_1); -x_79 = lean_array_get_size(x_78); -lean_dec(x_78); -x_80 = lean_unsigned_to_nat(3u); -x_81 = lean_nat_dec_eq(x_79, x_80); -lean_dec(x_79); -x_4 = x_81; -goto block_74; -} -block_74: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; @@ -1163,154 +1102,204 @@ return x_6; } else { -lean_object* x_7; lean_object* x_8; uint8_t x_9; lean_object* x_67; uint8_t x_68; -x_7 = lean_unsigned_to_nat(0u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); -x_67 = l_Lean_mkAppStx___closed__8; -lean_inc(x_8); -x_68 = l_Lean_Syntax_isOfKind(x_8, x_67); -if (x_68 == 0) -{ -uint8_t x_69; -x_69 = 0; -x_9 = x_69; -goto block_66; -} -else -{ -lean_object* x_70; lean_object* x_71; lean_object* x_72; uint8_t x_73; -x_70 = l_Lean_Syntax_getArgs(x_8); -x_71 = lean_array_get_size(x_70); -lean_dec(x_70); -x_72 = lean_unsigned_to_nat(2u); -x_73 = lean_nat_dec_eq(x_71, x_72); -lean_dec(x_71); -x_9 = x_73; -goto block_66; -} -block_66: -{ -uint8_t x_10; -x_10 = l_coeDecidableEq(x_9); +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(3u); +x_10 = lean_nat_dec_eq(x_8, x_9); +lean_dec(x_8); if (x_10 == 0) { -lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; -x_11 = lean_unsigned_to_nat(2u); -x_12 = l_Lean_Syntax_getArg(x_1, x_11); +lean_object* x_11; lean_dec(x_1); -x_13 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); -x_14 = lean_ctor_get(x_13, 1); -lean_inc(x_14); -lean_dec(x_13); -x_15 = l_Lean_Elab_Term_getMainModule___rarg(x_14); -x_16 = !lean_is_exclusive(x_15); -if (x_16 == 0) -{ -lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; -x_17 = lean_ctor_get(x_15, 0); -lean_dec(x_17); -x_18 = l_Array_empty___closed__1; -x_19 = lean_array_push(x_18, x_8); -x_20 = lean_array_push(x_18, x_12); -x_21 = l_Lean_nullKind___closed__2; -x_22 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_22, 0, x_21); -lean_ctor_set(x_22, 1, x_20); -x_23 = lean_array_push(x_19, x_22); -x_24 = l_Lean_mkAppStx___closed__8; -x_25 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_25, 0, x_24); -lean_ctor_set(x_25, 1, x_23); -lean_ctor_set(x_15, 0, x_25); -return x_15; +x_11 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_11; } else { -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; -x_26 = lean_ctor_get(x_15, 1); -lean_inc(x_26); -lean_dec(x_15); -x_27 = l_Array_empty___closed__1; -x_28 = lean_array_push(x_27, x_8); -x_29 = lean_array_push(x_27, x_12); -x_30 = l_Lean_nullKind___closed__2; -x_31 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_31, 0, x_30); -lean_ctor_set(x_31, 1, x_29); -x_32 = lean_array_push(x_28, x_31); -x_33 = l_Lean_mkAppStx___closed__8; -x_34 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_34, 0, x_33); -lean_ctor_set(x_34, 1, x_32); -x_35 = lean_alloc_ctor(0, 2, 0); +lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15; +x_12 = lean_unsigned_to_nat(0u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); +x_14 = l_Lean_mkAppStx___closed__8; +lean_inc(x_13); +x_15 = l_Lean_Syntax_isOfKind(x_13, x_14); +if (x_15 == 0) +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21; +x_16 = lean_unsigned_to_nat(2u); +x_17 = l_Lean_Syntax_getArg(x_1, x_16); +lean_dec(x_1); +x_18 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); +x_19 = lean_ctor_get(x_18, 1); +lean_inc(x_19); +lean_dec(x_18); +x_20 = l_Lean_Elab_Term_getMainModule___rarg(x_19); +x_21 = !lean_is_exclusive(x_20); +if (x_21 == 0) +{ +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_29; +x_22 = lean_ctor_get(x_20, 0); +lean_dec(x_22); +x_23 = l_Array_empty___closed__1; +x_24 = lean_array_push(x_23, x_13); +x_25 = lean_array_push(x_23, x_17); +x_26 = l_Lean_nullKind___closed__2; +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_26); +lean_ctor_set(x_27, 1, x_25); +x_28 = lean_array_push(x_24, x_27); +x_29 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_29, 0, x_14); +lean_ctor_set(x_29, 1, x_28); +lean_ctor_set(x_20, 0, x_29); +return x_20; +} +else +{ +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; +x_30 = lean_ctor_get(x_20, 1); +lean_inc(x_30); +lean_dec(x_20); +x_31 = l_Array_empty___closed__1; +x_32 = lean_array_push(x_31, x_13); +x_33 = lean_array_push(x_31, x_17); +x_34 = l_Lean_nullKind___closed__2; +x_35 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_35, 0, x_34); -lean_ctor_set(x_35, 1, x_26); -return x_35; +lean_ctor_set(x_35, 1, x_33); +x_36 = lean_array_push(x_32, x_35); +x_37 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_37, 0, x_14); +lean_ctor_set(x_37, 1, x_36); +x_38 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_38, 0, x_37); +lean_ctor_set(x_38, 1, x_30); +return x_38; } } else { -lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; uint8_t x_46; -x_36 = l_Lean_Syntax_getArg(x_8, x_7); -x_37 = lean_unsigned_to_nat(1u); -x_38 = l_Lean_Syntax_getArg(x_8, x_37); -lean_dec(x_8); -x_39 = lean_unsigned_to_nat(2u); -x_40 = l_Lean_Syntax_getArg(x_1, x_39); +lean_object* x_39; lean_object* x_40; lean_object* x_41; uint8_t x_42; +x_39 = l_Lean_Syntax_getArgs(x_13); +x_40 = lean_array_get_size(x_39); +lean_dec(x_39); +x_41 = lean_unsigned_to_nat(2u); +x_42 = lean_nat_dec_eq(x_40, x_41); +lean_dec(x_40); +if (x_42 == 0) +{ +lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; uint8_t x_47; +x_43 = l_Lean_Syntax_getArg(x_1, x_41); lean_dec(x_1); -x_41 = l_Lean_Syntax_getArgs(x_38); -lean_dec(x_38); -x_42 = lean_array_push(x_41, x_40); -x_43 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); -x_44 = lean_ctor_get(x_43, 1); -lean_inc(x_44); -lean_dec(x_43); -x_45 = l_Lean_Elab_Term_getMainModule___rarg(x_44); -x_46 = !lean_is_exclusive(x_45); -if (x_46 == 0) +x_44 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); +x_45 = lean_ctor_get(x_44, 1); +lean_inc(x_45); +lean_dec(x_44); +x_46 = l_Lean_Elab_Term_getMainModule___rarg(x_45); +x_47 = !lean_is_exclusive(x_46); +if (x_47 == 0) { -lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; -x_47 = lean_ctor_get(x_45, 0); -lean_dec(x_47); -x_48 = l_Array_empty___closed__1; -x_49 = lean_array_push(x_48, x_36); -x_50 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_42, x_42, x_7, x_48); -lean_dec(x_42); -x_51 = l_Lean_nullKind___closed__2; -x_52 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_52, 0, x_51); -lean_ctor_set(x_52, 1, x_50); -x_53 = lean_array_push(x_49, x_52); -x_54 = l_Lean_mkAppStx___closed__8; +lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; +x_48 = lean_ctor_get(x_46, 0); +lean_dec(x_48); +x_49 = l_Array_empty___closed__1; +x_50 = lean_array_push(x_49, x_13); +x_51 = lean_array_push(x_49, x_43); +x_52 = l_Lean_nullKind___closed__2; +x_53 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_53, 0, x_52); +lean_ctor_set(x_53, 1, x_51); +x_54 = lean_array_push(x_50, x_53); x_55 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_55, 0, x_54); -lean_ctor_set(x_55, 1, x_53); -lean_ctor_set(x_45, 0, x_55); -return x_45; +lean_ctor_set(x_55, 0, x_14); +lean_ctor_set(x_55, 1, x_54); +lean_ctor_set(x_46, 0, x_55); +return x_46; } else { -lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; -x_56 = lean_ctor_get(x_45, 1); +lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; +x_56 = lean_ctor_get(x_46, 1); lean_inc(x_56); -lean_dec(x_45); +lean_dec(x_46); x_57 = l_Array_empty___closed__1; -x_58 = lean_array_push(x_57, x_36); -x_59 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_42, x_42, x_7, x_57); -lean_dec(x_42); +x_58 = lean_array_push(x_57, x_13); +x_59 = lean_array_push(x_57, x_43); x_60 = l_Lean_nullKind___closed__2; x_61 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_61, 0, x_60); lean_ctor_set(x_61, 1, x_59); x_62 = lean_array_push(x_58, x_61); -x_63 = l_Lean_mkAppStx___closed__8; -x_64 = lean_alloc_ctor(1, 2, 0); +x_63 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_63, 0, x_14); +lean_ctor_set(x_63, 1, x_62); +x_64 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_64, 0, x_63); -lean_ctor_set(x_64, 1, x_62); -x_65 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_65, 0, x_64); -lean_ctor_set(x_65, 1, x_56); -return x_65; +lean_ctor_set(x_64, 1, x_56); +return x_64; +} +} +else +{ +lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; uint8_t x_74; +x_65 = l_Lean_Syntax_getArg(x_13, x_12); +x_66 = lean_unsigned_to_nat(1u); +x_67 = l_Lean_Syntax_getArg(x_13, x_66); +lean_dec(x_13); +x_68 = l_Lean_Syntax_getArg(x_1, x_41); +lean_dec(x_1); +x_69 = l_Lean_Syntax_getArgs(x_67); +lean_dec(x_67); +x_70 = lean_array_push(x_69, x_68); +x_71 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); +x_72 = lean_ctor_get(x_71, 1); +lean_inc(x_72); +lean_dec(x_71); +x_73 = l_Lean_Elab_Term_getMainModule___rarg(x_72); +x_74 = !lean_is_exclusive(x_73); +if (x_74 == 0) +{ +lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; +x_75 = lean_ctor_get(x_73, 0); +lean_dec(x_75); +x_76 = l_Array_empty___closed__1; +x_77 = lean_array_push(x_76, x_65); +x_78 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_70, x_70, x_12, x_76); +lean_dec(x_70); +x_79 = l_Lean_nullKind___closed__2; +x_80 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_80, 0, x_79); +lean_ctor_set(x_80, 1, x_78); +x_81 = lean_array_push(x_77, x_80); +x_82 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_82, 0, x_14); +lean_ctor_set(x_82, 1, x_81); +lean_ctor_set(x_73, 0, x_82); +return x_73; +} +else +{ +lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; +x_83 = lean_ctor_get(x_73, 1); +lean_inc(x_83); +lean_dec(x_73); +x_84 = l_Array_empty___closed__1; +x_85 = lean_array_push(x_84, x_65); +x_86 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_70, x_70, x_12, x_84); +lean_dec(x_70); +x_87 = l_Lean_nullKind___closed__2; +x_88 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_88, 0, x_87); +lean_ctor_set(x_88, 1, x_86); +x_89 = lean_array_push(x_85, x_88); +x_90 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_90, 0, x_14); +lean_ctor_set(x_90, 1, x_89); +x_91 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_91, 0, x_90); +lean_ctor_set(x_91, 1, x_83); +return x_91; } } } @@ -1402,135 +1391,77 @@ lean_inc(x_1); x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { -uint8_t x_6; -x_6 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_6 == 0) -{ -lean_object* x_7; +lean_object* x_6; lean_dec(x_1); -x_7 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); -return x_7; +x_6 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_6; } else { -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; uint8_t x_15; -x_8 = lean_unsigned_to_nat(0u); -x_9 = l_Lean_Syntax_getArg(x_1, x_8); -x_10 = lean_unsigned_to_nat(2u); -x_11 = l_Lean_Syntax_getArg(x_1, x_10); -lean_dec(x_1); -x_12 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); -x_13 = lean_ctor_get(x_12, 1); -lean_inc(x_13); -lean_dec(x_12); -x_14 = l_Lean_Elab_Term_getMainModule___rarg(x_13); -x_15 = !lean_is_exclusive(x_14); -if (x_15 == 0) +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(3u); +x_10 = lean_nat_dec_eq(x_8, x_9); +lean_dec(x_8); +if (x_10 == 0) { -lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; -x_16 = lean_ctor_get(x_14, 0); +lean_object* x_11; +lean_dec(x_1); +x_11 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_11; +} +else +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; uint8_t x_19; +x_12 = lean_unsigned_to_nat(0u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); +x_14 = lean_unsigned_to_nat(2u); +x_15 = l_Lean_Syntax_getArg(x_1, x_14); +lean_dec(x_1); +x_16 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); +x_17 = lean_ctor_get(x_16, 1); +lean_inc(x_17); lean_dec(x_16); -x_17 = l_Array_empty___closed__1; -x_18 = lean_array_push(x_17, x_9); -x_19 = l_Lean_Elab_Term_elabDollarProj___lambda__1___closed__1; -x_20 = lean_array_push(x_18, x_19); -x_21 = lean_array_push(x_20, x_11); -x_22 = l_Lean_Parser_Term_proj___elambda__1___closed__2; -x_23 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_23, 0, x_22); -lean_ctor_set(x_23, 1, x_21); -lean_ctor_set(x_14, 0, x_23); -return x_14; +x_18 = l_Lean_Elab_Term_getMainModule___rarg(x_17); +x_19 = !lean_is_exclusive(x_18); +if (x_19 == 0) +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_20 = lean_ctor_get(x_18, 0); +lean_dec(x_20); +x_21 = l_Array_empty___closed__1; +x_22 = lean_array_push(x_21, x_13); +x_23 = l_Lean_Elab_Term_elabDollarProj___lambda__1___closed__1; +x_24 = lean_array_push(x_22, x_23); +x_25 = lean_array_push(x_24, x_15); +x_26 = l_Lean_Parser_Term_proj___elambda__1___closed__2; +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_26); +lean_ctor_set(x_27, 1, x_25); +lean_ctor_set(x_18, 0, x_27); +return x_18; } else { -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; -x_24 = lean_ctor_get(x_14, 1); -lean_inc(x_24); -lean_dec(x_14); -x_25 = l_Array_empty___closed__1; -x_26 = lean_array_push(x_25, x_9); -x_27 = l_Lean_Elab_Term_elabDollarProj___lambda__1___closed__1; -x_28 = lean_array_push(x_26, x_27); -x_29 = lean_array_push(x_28, x_11); -x_30 = l_Lean_Parser_Term_proj___elambda__1___closed__2; -x_31 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_31, 0, x_30); -lean_ctor_set(x_31, 1, x_29); -x_32 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_32, 0, x_31); -lean_ctor_set(x_32, 1, x_24); -return x_32; -} -} -} -else -{ -lean_object* x_33; lean_object* x_34; lean_object* x_35; uint8_t x_36; uint8_t x_37; -x_33 = l_Lean_Syntax_getArgs(x_1); -x_34 = lean_array_get_size(x_33); -lean_dec(x_33); -x_35 = lean_unsigned_to_nat(3u); -x_36 = lean_nat_dec_eq(x_34, x_35); -lean_dec(x_34); -x_37 = l_coeDecidableEq(x_36); -if (x_37 == 0) -{ -lean_object* x_38; -lean_dec(x_1); -x_38 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); -return x_38; -} -else -{ -lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; uint8_t x_46; -x_39 = lean_unsigned_to_nat(0u); -x_40 = l_Lean_Syntax_getArg(x_1, x_39); -x_41 = lean_unsigned_to_nat(2u); -x_42 = l_Lean_Syntax_getArg(x_1, x_41); -lean_dec(x_1); -x_43 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); -x_44 = lean_ctor_get(x_43, 1); -lean_inc(x_44); -lean_dec(x_43); -x_45 = l_Lean_Elab_Term_getMainModule___rarg(x_44); -x_46 = !lean_is_exclusive(x_45); -if (x_46 == 0) -{ -lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; -x_47 = lean_ctor_get(x_45, 0); -lean_dec(x_47); -x_48 = l_Array_empty___closed__1; -x_49 = lean_array_push(x_48, x_40); -x_50 = l_Lean_Elab_Term_elabDollarProj___lambda__1___closed__1; -x_51 = lean_array_push(x_49, x_50); -x_52 = lean_array_push(x_51, x_42); -x_53 = l_Lean_Parser_Term_proj___elambda__1___closed__2; -x_54 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_54, 0, x_53); -lean_ctor_set(x_54, 1, x_52); -lean_ctor_set(x_45, 0, x_54); -return x_45; -} -else -{ -lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; -x_55 = lean_ctor_get(x_45, 1); -lean_inc(x_55); -lean_dec(x_45); -x_56 = l_Array_empty___closed__1; -x_57 = lean_array_push(x_56, x_40); -x_58 = l_Lean_Elab_Term_elabDollarProj___lambda__1___closed__1; -x_59 = lean_array_push(x_57, x_58); -x_60 = lean_array_push(x_59, x_42); -x_61 = l_Lean_Parser_Term_proj___elambda__1___closed__2; -x_62 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_62, 0, x_61); -lean_ctor_set(x_62, 1, x_60); -x_63 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_63, 0, x_62); -lean_ctor_set(x_63, 1, x_55); -return x_63; +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; +x_28 = lean_ctor_get(x_18, 1); +lean_inc(x_28); +lean_dec(x_18); +x_29 = l_Array_empty___closed__1; +x_30 = lean_array_push(x_29, x_13); +x_31 = l_Lean_Elab_Term_elabDollarProj___lambda__1___closed__1; +x_32 = lean_array_push(x_30, x_31); +x_33 = lean_array_push(x_32, x_15); +x_34 = l_Lean_Parser_Term_proj___elambda__1___closed__2; +x_35 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_35, 0, x_34); +lean_ctor_set(x_35, 1, x_33); +x_36 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_36, 0, x_35); +lean_ctor_set(x_36, 1, x_28); +return x_36; } } } @@ -1701,33 +1632,10 @@ return x_3; lean_object* l_Lean_Elab_Term_elabIf___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_201; uint8_t x_202; -x_201 = l_Lean_Parser_Term_if___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Term_if___elambda__1___closed__2; lean_inc(x_1); -x_202 = l_Lean_Syntax_isOfKind(x_1, x_201); -if (x_202 == 0) -{ -uint8_t x_203; -x_203 = 0; -x_4 = x_203; -goto block_200; -} -else -{ -lean_object* x_204; lean_object* x_205; lean_object* x_206; uint8_t x_207; -x_204 = l_Lean_Syntax_getArgs(x_1); -x_205 = lean_array_get_size(x_204); -lean_dec(x_204); -x_206 = lean_unsigned_to_nat(7u); -x_207 = lean_nat_dec_eq(x_205, x_206); -lean_dec(x_205); -x_4 = x_207; -goto block_200; -} -block_200: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; @@ -1737,35 +1645,13 @@ return x_6; } else { -lean_object* x_7; lean_object* x_8; uint8_t x_9; lean_object* x_70; uint8_t x_71; uint8_t x_72; -x_7 = lean_unsigned_to_nat(1u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); -x_70 = l_Lean_nullKind___closed__2; -lean_inc(x_8); -x_71 = l_Lean_Syntax_isOfKind(x_8, x_70); -if (x_71 == 0) -{ -uint8_t x_195; -x_195 = 0; -x_72 = x_195; -goto block_194; -} -else -{ -lean_object* x_196; lean_object* x_197; lean_object* x_198; uint8_t x_199; -x_196 = l_Lean_Syntax_getArgs(x_8); -x_197 = lean_array_get_size(x_196); -lean_dec(x_196); -x_198 = lean_unsigned_to_nat(2u); -x_199 = lean_nat_dec_eq(x_197, x_198); -lean_dec(x_197); -x_72 = x_199; -goto block_194; -} -block_69: -{ -uint8_t x_10; -x_10 = l_coeDecidableEq(x_9); +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(7u); +x_10 = lean_nat_dec_eq(x_8, x_9); +lean_dec(x_8); if (x_10 == 0) { lean_object* x_11; @@ -1775,326 +1661,333 @@ return x_11; } else { -lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; uint8_t x_22; -x_12 = lean_unsigned_to_nat(2u); +lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15; +x_12 = lean_unsigned_to_nat(1u); x_13 = l_Lean_Syntax_getArg(x_1, x_12); -x_14 = lean_unsigned_to_nat(4u); -x_15 = l_Lean_Syntax_getArg(x_1, x_14); -x_16 = lean_unsigned_to_nat(6u); -x_17 = l_Lean_Syntax_getArg(x_1, x_16); +x_14 = l_Lean_nullKind___closed__2; +lean_inc(x_13); +x_15 = l_Lean_Syntax_isOfKind(x_13, x_14); +if (x_15 == 0) +{ +lean_object* x_16; +lean_dec(x_13); lean_dec(x_1); -x_18 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); -x_19 = lean_ctor_get(x_18, 0); -lean_inc(x_19); -x_20 = lean_ctor_get(x_18, 1); -lean_inc(x_20); +x_16 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_16; +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; +x_17 = l_Lean_Syntax_getArgs(x_13); +x_18 = lean_array_get_size(x_17); +lean_dec(x_17); +x_19 = lean_unsigned_to_nat(2u); +x_20 = lean_nat_dec_eq(x_18, x_19); +if (x_20 == 0) +{ +lean_object* x_21; uint8_t x_22; +lean_dec(x_13); +x_21 = lean_unsigned_to_nat(0u); +x_22 = lean_nat_dec_eq(x_18, x_21); lean_dec(x_18); -x_21 = l_Lean_Elab_Term_getMainModule___rarg(x_20); -x_22 = !lean_is_exclusive(x_21); if (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_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; -x_23 = lean_ctor_get(x_21, 0); -x_24 = lean_box(0); -x_25 = l_Lean_Elab_Term_elabIf___lambda__1___closed__1; -x_26 = l_Lean_addMacroScope(x_23, x_25, x_19); -x_27 = l___private_Init_Lean_Elab_Quotation_13__toPreterm___main___lambda__4___closed__3; -x_28 = l_Lean_Elab_Term_elabIf___lambda__1___closed__3; -x_29 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_29, 0, x_24); -lean_ctor_set(x_29, 1, x_27); -lean_ctor_set(x_29, 2, x_26); -lean_ctor_set(x_29, 3, x_28); -x_30 = l_Array_empty___closed__1; -x_31 = lean_array_push(x_30, x_29); -x_32 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_33 = lean_array_push(x_31, x_32); -x_34 = l_Lean_mkTermIdFromIdent___closed__2; -x_35 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_35, 0, x_34); -lean_ctor_set(x_35, 1, x_33); -x_36 = lean_array_push(x_30, x_35); -x_37 = lean_array_push(x_30, x_13); -x_38 = lean_array_push(x_37, x_15); -x_39 = lean_array_push(x_38, x_17); -x_40 = l_Lean_nullKind___closed__2; -x_41 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_41, 0, x_40); -lean_ctor_set(x_41, 1, x_39); -x_42 = lean_array_push(x_36, x_41); -x_43 = l_Lean_mkAppStx___closed__8; -x_44 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_44, 0, x_43); -lean_ctor_set(x_44, 1, x_42); -lean_ctor_set(x_21, 0, x_44); -return x_21; -} -else -{ -lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; -x_45 = lean_ctor_get(x_21, 0); -x_46 = lean_ctor_get(x_21, 1); -lean_inc(x_46); -lean_inc(x_45); -lean_dec(x_21); -x_47 = lean_box(0); -x_48 = l_Lean_Elab_Term_elabIf___lambda__1___closed__1; -x_49 = l_Lean_addMacroScope(x_45, x_48, x_19); -x_50 = l___private_Init_Lean_Elab_Quotation_13__toPreterm___main___lambda__4___closed__3; -x_51 = l_Lean_Elab_Term_elabIf___lambda__1___closed__3; -x_52 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_52, 0, x_47); -lean_ctor_set(x_52, 1, x_50); -lean_ctor_set(x_52, 2, x_49); -lean_ctor_set(x_52, 3, x_51); -x_53 = l_Array_empty___closed__1; -x_54 = lean_array_push(x_53, x_52); -x_55 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_56 = lean_array_push(x_54, x_55); -x_57 = l_Lean_mkTermIdFromIdent___closed__2; -x_58 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_58, 0, x_57); -lean_ctor_set(x_58, 1, x_56); -x_59 = lean_array_push(x_53, x_58); -x_60 = lean_array_push(x_53, x_13); -x_61 = lean_array_push(x_60, x_15); -x_62 = lean_array_push(x_61, x_17); -x_63 = l_Lean_nullKind___closed__2; -x_64 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_64, 0, x_63); -lean_ctor_set(x_64, 1, x_62); -x_65 = lean_array_push(x_59, x_64); -x_66 = l_Lean_mkAppStx___closed__8; -x_67 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_67, 0, x_66); -lean_ctor_set(x_67, 1, x_65); -x_68 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_68, 0, x_67); -lean_ctor_set(x_68, 1, x_46); -return x_68; -} -} -} -block_194: -{ -uint8_t x_73; -x_73 = l_coeDecidableEq(x_72); -if (x_73 == 0) -{ -if (x_71 == 0) -{ -uint8_t x_74; -lean_dec(x_8); -x_74 = 0; -x_9 = x_74; -goto block_69; -} -else -{ -lean_object* x_75; lean_object* x_76; lean_object* x_77; uint8_t x_78; -x_75 = l_Lean_Syntax_getArgs(x_8); -lean_dec(x_8); -x_76 = lean_array_get_size(x_75); -lean_dec(x_75); -x_77 = lean_unsigned_to_nat(0u); -x_78 = lean_nat_dec_eq(x_76, x_77); -lean_dec(x_76); -x_9 = x_78; -goto block_69; -} -} -else -{ -lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; uint8_t x_91; -x_79 = lean_unsigned_to_nat(0u); -x_80 = l_Lean_Syntax_getArg(x_8, x_79); -lean_dec(x_8); -x_81 = lean_unsigned_to_nat(2u); -x_82 = l_Lean_Syntax_getArg(x_1, x_81); -x_83 = lean_unsigned_to_nat(4u); -x_84 = l_Lean_Syntax_getArg(x_1, x_83); -x_85 = lean_unsigned_to_nat(6u); -x_86 = l_Lean_Syntax_getArg(x_1, x_85); +lean_object* x_23; lean_dec(x_1); -x_87 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); -x_88 = lean_ctor_get(x_87, 0); -lean_inc(x_88); -x_89 = lean_ctor_get(x_87, 1); -lean_inc(x_89); -lean_dec(x_87); -x_90 = l_Lean_Elab_Term_getMainModule___rarg(x_89); -x_91 = !lean_is_exclusive(x_90); -if (x_91 == 0) -{ -lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; -x_92 = lean_ctor_get(x_90, 0); -x_93 = lean_box(0); -x_94 = l_Lean_Elab_Term_elabIf___lambda__1___closed__7; -x_95 = l_Lean_addMacroScope(x_92, x_94, x_88); -x_96 = l_Lean_Elab_Term_elabIf___lambda__1___closed__6; -x_97 = l_Lean_Elab_Term_elabIf___lambda__1___closed__9; -x_98 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_98, 0, x_93); -lean_ctor_set(x_98, 1, x_96); -lean_ctor_set(x_98, 2, x_95); -lean_ctor_set(x_98, 3, x_97); -x_99 = l_Array_empty___closed__1; -x_100 = lean_array_push(x_99, x_98); -x_101 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_102 = lean_array_push(x_100, x_101); -x_103 = l_Lean_mkTermIdFromIdent___closed__2; -x_104 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_104, 0, x_103); -lean_ctor_set(x_104, 1, x_102); -x_105 = lean_array_push(x_99, x_104); -x_106 = lean_array_push(x_99, x_82); -x_107 = lean_array_push(x_99, x_80); -x_108 = lean_array_push(x_107, x_101); -x_109 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_109, 0, x_103); -lean_ctor_set(x_109, 1, x_108); -x_110 = lean_array_push(x_99, x_109); -x_111 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_111, 0, x_70); -lean_ctor_set(x_111, 1, x_110); -x_112 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_113 = lean_array_push(x_112, x_111); -x_114 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_115 = lean_array_push(x_113, x_114); -lean_inc(x_115); -x_116 = lean_array_push(x_115, x_84); -x_117 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_118 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_118, 0, x_117); -lean_ctor_set(x_118, 1, x_116); -x_119 = lean_array_push(x_99, x_118); -x_120 = lean_array_push(x_119, x_101); -x_121 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_121, 0, x_70); -lean_ctor_set(x_121, 1, x_120); -x_122 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_123 = lean_array_push(x_122, x_121); -x_124 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_125 = lean_array_push(x_123, x_124); -x_126 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_127 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_127, 0, x_126); -lean_ctor_set(x_127, 1, x_125); -x_128 = lean_array_push(x_106, x_127); -x_129 = lean_array_push(x_115, x_86); -x_130 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_130, 0, x_117); -lean_ctor_set(x_130, 1, x_129); -x_131 = lean_array_push(x_99, x_130); -x_132 = lean_array_push(x_131, x_101); -x_133 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_133, 0, x_70); -lean_ctor_set(x_133, 1, x_132); -x_134 = lean_array_push(x_122, x_133); -x_135 = lean_array_push(x_134, x_124); -x_136 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_136, 0, x_126); -lean_ctor_set(x_136, 1, x_135); -x_137 = lean_array_push(x_128, x_136); -x_138 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_138, 0, x_70); -lean_ctor_set(x_138, 1, x_137); -x_139 = lean_array_push(x_105, x_138); -x_140 = l_Lean_mkAppStx___closed__8; -x_141 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_141, 0, x_140); -lean_ctor_set(x_141, 1, x_139); -lean_ctor_set(x_90, 0, x_141); -return x_90; +x_23 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_23; } else { -lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; -x_142 = lean_ctor_get(x_90, 0); -x_143 = lean_ctor_get(x_90, 1); -lean_inc(x_143); -lean_inc(x_142); -lean_dec(x_90); -x_144 = lean_box(0); -x_145 = l_Lean_Elab_Term_elabIf___lambda__1___closed__7; -x_146 = l_Lean_addMacroScope(x_142, x_145, x_88); -x_147 = l_Lean_Elab_Term_elabIf___lambda__1___closed__6; -x_148 = l_Lean_Elab_Term_elabIf___lambda__1___closed__9; -x_149 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_149, 0, x_144); -lean_ctor_set(x_149, 1, x_147); -lean_ctor_set(x_149, 2, x_146); -lean_ctor_set(x_149, 3, x_148); -x_150 = l_Array_empty___closed__1; -x_151 = lean_array_push(x_150, x_149); -x_152 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_153 = lean_array_push(x_151, x_152); -x_154 = l_Lean_mkTermIdFromIdent___closed__2; -x_155 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_155, 0, x_154); -lean_ctor_set(x_155, 1, x_153); -x_156 = lean_array_push(x_150, x_155); -x_157 = lean_array_push(x_150, x_82); -x_158 = lean_array_push(x_150, x_80); -x_159 = lean_array_push(x_158, x_152); +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; uint8_t x_33; +x_24 = l_Lean_Syntax_getArg(x_1, x_19); +x_25 = lean_unsigned_to_nat(4u); +x_26 = l_Lean_Syntax_getArg(x_1, x_25); +x_27 = lean_unsigned_to_nat(6u); +x_28 = l_Lean_Syntax_getArg(x_1, x_27); +lean_dec(x_1); +x_29 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); +x_30 = lean_ctor_get(x_29, 0); +lean_inc(x_30); +x_31 = lean_ctor_get(x_29, 1); +lean_inc(x_31); +lean_dec(x_29); +x_32 = l_Lean_Elab_Term_getMainModule___rarg(x_31); +x_33 = !lean_is_exclusive(x_32); +if (x_33 == 0) +{ +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_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; +x_34 = lean_ctor_get(x_32, 0); +x_35 = lean_box(0); +x_36 = l_Lean_Elab_Term_elabIf___lambda__1___closed__1; +x_37 = l_Lean_addMacroScope(x_34, x_36, x_30); +x_38 = l___private_Init_Lean_Elab_Quotation_13__toPreterm___main___lambda__4___closed__3; +x_39 = l_Lean_Elab_Term_elabIf___lambda__1___closed__3; +x_40 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_40, 0, x_35); +lean_ctor_set(x_40, 1, x_38); +lean_ctor_set(x_40, 2, x_37); +lean_ctor_set(x_40, 3, x_39); +x_41 = l_Array_empty___closed__1; +x_42 = lean_array_push(x_41, x_40); +x_43 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_44 = lean_array_push(x_42, x_43); +x_45 = l_Lean_mkTermIdFromIdent___closed__2; +x_46 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_46, 0, x_45); +lean_ctor_set(x_46, 1, x_44); +x_47 = lean_array_push(x_41, x_46); +x_48 = lean_array_push(x_41, x_24); +x_49 = lean_array_push(x_48, x_26); +x_50 = lean_array_push(x_49, x_28); +x_51 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_51, 0, x_14); +lean_ctor_set(x_51, 1, x_50); +x_52 = lean_array_push(x_47, x_51); +x_53 = l_Lean_mkAppStx___closed__8; +x_54 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_54, 0, x_53); +lean_ctor_set(x_54, 1, x_52); +lean_ctor_set(x_32, 0, x_54); +return x_32; +} +else +{ +lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; +x_55 = lean_ctor_get(x_32, 0); +x_56 = lean_ctor_get(x_32, 1); +lean_inc(x_56); +lean_inc(x_55); +lean_dec(x_32); +x_57 = lean_box(0); +x_58 = l_Lean_Elab_Term_elabIf___lambda__1___closed__1; +x_59 = l_Lean_addMacroScope(x_55, x_58, x_30); +x_60 = l___private_Init_Lean_Elab_Quotation_13__toPreterm___main___lambda__4___closed__3; +x_61 = l_Lean_Elab_Term_elabIf___lambda__1___closed__3; +x_62 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_62, 0, x_57); +lean_ctor_set(x_62, 1, x_60); +lean_ctor_set(x_62, 2, x_59); +lean_ctor_set(x_62, 3, x_61); +x_63 = l_Array_empty___closed__1; +x_64 = lean_array_push(x_63, x_62); +x_65 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_66 = lean_array_push(x_64, x_65); +x_67 = l_Lean_mkTermIdFromIdent___closed__2; +x_68 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_68, 0, x_67); +lean_ctor_set(x_68, 1, x_66); +x_69 = lean_array_push(x_63, x_68); +x_70 = lean_array_push(x_63, x_24); +x_71 = lean_array_push(x_70, x_26); +x_72 = lean_array_push(x_71, x_28); +x_73 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_73, 0, x_14); +lean_ctor_set(x_73, 1, x_72); +x_74 = lean_array_push(x_69, x_73); +x_75 = l_Lean_mkAppStx___closed__8; +x_76 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_76, 0, x_75); +lean_ctor_set(x_76, 1, x_74); +x_77 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_77, 0, x_76); +lean_ctor_set(x_77, 1, x_56); +return x_77; +} +} +} +else +{ +lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; uint8_t x_89; +lean_dec(x_18); +x_78 = lean_unsigned_to_nat(0u); +x_79 = l_Lean_Syntax_getArg(x_13, x_78); +lean_dec(x_13); +x_80 = l_Lean_Syntax_getArg(x_1, x_19); +x_81 = lean_unsigned_to_nat(4u); +x_82 = l_Lean_Syntax_getArg(x_1, x_81); +x_83 = lean_unsigned_to_nat(6u); +x_84 = l_Lean_Syntax_getArg(x_1, x_83); +lean_dec(x_1); +x_85 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); +x_86 = lean_ctor_get(x_85, 0); +lean_inc(x_86); +x_87 = lean_ctor_get(x_85, 1); +lean_inc(x_87); +lean_dec(x_85); +x_88 = l_Lean_Elab_Term_getMainModule___rarg(x_87); +x_89 = !lean_is_exclusive(x_88); +if (x_89 == 0) +{ +lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; +x_90 = lean_ctor_get(x_88, 0); +x_91 = lean_box(0); +x_92 = l_Lean_Elab_Term_elabIf___lambda__1___closed__7; +x_93 = l_Lean_addMacroScope(x_90, x_92, x_86); +x_94 = l_Lean_Elab_Term_elabIf___lambda__1___closed__6; +x_95 = l_Lean_Elab_Term_elabIf___lambda__1___closed__9; +x_96 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_96, 0, x_91); +lean_ctor_set(x_96, 1, x_94); +lean_ctor_set(x_96, 2, x_93); +lean_ctor_set(x_96, 3, x_95); +x_97 = l_Array_empty___closed__1; +x_98 = lean_array_push(x_97, x_96); +x_99 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_100 = lean_array_push(x_98, x_99); +x_101 = l_Lean_mkTermIdFromIdent___closed__2; +x_102 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_102, 0, x_101); +lean_ctor_set(x_102, 1, x_100); +x_103 = lean_array_push(x_97, x_102); +x_104 = lean_array_push(x_97, x_80); +x_105 = lean_array_push(x_97, x_79); +x_106 = lean_array_push(x_105, x_99); +x_107 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_107, 0, x_101); +lean_ctor_set(x_107, 1, x_106); +x_108 = lean_array_push(x_97, x_107); +x_109 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_109, 0, x_14); +lean_ctor_set(x_109, 1, x_108); +x_110 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_111 = lean_array_push(x_110, x_109); +x_112 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_113 = lean_array_push(x_111, x_112); +lean_inc(x_113); +x_114 = lean_array_push(x_113, x_82); +x_115 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_116 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_116, 0, x_115); +lean_ctor_set(x_116, 1, x_114); +x_117 = lean_array_push(x_97, x_116); +x_118 = lean_array_push(x_117, x_99); +x_119 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_119, 0, x_14); +lean_ctor_set(x_119, 1, x_118); +x_120 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_121 = lean_array_push(x_120, x_119); +x_122 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_123 = lean_array_push(x_121, x_122); +x_124 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_125 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_125, 0, x_124); +lean_ctor_set(x_125, 1, x_123); +x_126 = lean_array_push(x_104, x_125); +x_127 = lean_array_push(x_113, x_84); +x_128 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_128, 0, x_115); +lean_ctor_set(x_128, 1, x_127); +x_129 = lean_array_push(x_97, x_128); +x_130 = lean_array_push(x_129, x_99); +x_131 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_131, 0, x_14); +lean_ctor_set(x_131, 1, x_130); +x_132 = lean_array_push(x_120, x_131); +x_133 = lean_array_push(x_132, x_122); +x_134 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_134, 0, x_124); +lean_ctor_set(x_134, 1, x_133); +x_135 = lean_array_push(x_126, x_134); +x_136 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_136, 0, x_14); +lean_ctor_set(x_136, 1, x_135); +x_137 = lean_array_push(x_103, x_136); +x_138 = l_Lean_mkAppStx___closed__8; +x_139 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_139, 0, x_138); +lean_ctor_set(x_139, 1, x_137); +lean_ctor_set(x_88, 0, x_139); +return x_88; +} +else +{ +lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; +x_140 = lean_ctor_get(x_88, 0); +x_141 = lean_ctor_get(x_88, 1); +lean_inc(x_141); +lean_inc(x_140); +lean_dec(x_88); +x_142 = lean_box(0); +x_143 = l_Lean_Elab_Term_elabIf___lambda__1___closed__7; +x_144 = l_Lean_addMacroScope(x_140, x_143, x_86); +x_145 = l_Lean_Elab_Term_elabIf___lambda__1___closed__6; +x_146 = l_Lean_Elab_Term_elabIf___lambda__1___closed__9; +x_147 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_147, 0, x_142); +lean_ctor_set(x_147, 1, x_145); +lean_ctor_set(x_147, 2, x_144); +lean_ctor_set(x_147, 3, x_146); +x_148 = l_Array_empty___closed__1; +x_149 = lean_array_push(x_148, x_147); +x_150 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_151 = lean_array_push(x_149, x_150); +x_152 = l_Lean_mkTermIdFromIdent___closed__2; +x_153 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_153, 0, x_152); +lean_ctor_set(x_153, 1, x_151); +x_154 = lean_array_push(x_148, x_153); +x_155 = lean_array_push(x_148, x_80); +x_156 = lean_array_push(x_148, x_79); +x_157 = lean_array_push(x_156, x_150); +x_158 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_158, 0, x_152); +lean_ctor_set(x_158, 1, x_157); +x_159 = lean_array_push(x_148, x_158); x_160 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_160, 0, x_154); +lean_ctor_set(x_160, 0, x_14); lean_ctor_set(x_160, 1, x_159); -x_161 = lean_array_push(x_150, x_160); -x_162 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_162, 0, x_70); -lean_ctor_set(x_162, 1, x_161); -x_163 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_164 = lean_array_push(x_163, x_162); -x_165 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_166 = lean_array_push(x_164, x_165); -lean_inc(x_166); -x_167 = lean_array_push(x_166, x_84); -x_168 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_169 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_169, 0, x_168); -lean_ctor_set(x_169, 1, x_167); -x_170 = lean_array_push(x_150, x_169); -x_171 = lean_array_push(x_170, x_152); -x_172 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_172, 0, x_70); -lean_ctor_set(x_172, 1, x_171); -x_173 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_174 = lean_array_push(x_173, x_172); -x_175 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_176 = lean_array_push(x_174, x_175); -x_177 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_178 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_178, 0, x_177); -lean_ctor_set(x_178, 1, x_176); -x_179 = lean_array_push(x_157, x_178); -x_180 = lean_array_push(x_166, x_86); -x_181 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_181, 0, x_168); -lean_ctor_set(x_181, 1, x_180); -x_182 = lean_array_push(x_150, x_181); -x_183 = lean_array_push(x_182, x_152); -x_184 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_184, 0, x_70); -lean_ctor_set(x_184, 1, x_183); -x_185 = lean_array_push(x_173, x_184); -x_186 = lean_array_push(x_185, x_175); +x_161 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_162 = lean_array_push(x_161, x_160); +x_163 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_164 = lean_array_push(x_162, x_163); +lean_inc(x_164); +x_165 = lean_array_push(x_164, x_82); +x_166 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_167 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_167, 0, x_166); +lean_ctor_set(x_167, 1, x_165); +x_168 = lean_array_push(x_148, x_167); +x_169 = lean_array_push(x_168, x_150); +x_170 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_170, 0, x_14); +lean_ctor_set(x_170, 1, x_169); +x_171 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_172 = lean_array_push(x_171, x_170); +x_173 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_174 = lean_array_push(x_172, x_173); +x_175 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_176 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_176, 0, x_175); +lean_ctor_set(x_176, 1, x_174); +x_177 = lean_array_push(x_155, x_176); +x_178 = lean_array_push(x_164, x_84); +x_179 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_179, 0, x_166); +lean_ctor_set(x_179, 1, x_178); +x_180 = lean_array_push(x_148, x_179); +x_181 = lean_array_push(x_180, x_150); +x_182 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_182, 0, x_14); +lean_ctor_set(x_182, 1, x_181); +x_183 = lean_array_push(x_171, x_182); +x_184 = lean_array_push(x_183, x_173); +x_185 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_185, 0, x_175); +lean_ctor_set(x_185, 1, x_184); +x_186 = lean_array_push(x_177, x_185); x_187 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_187, 0, x_177); +lean_ctor_set(x_187, 0, x_14); lean_ctor_set(x_187, 1, x_186); -x_188 = lean_array_push(x_179, x_187); -x_189 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_189, 0, x_70); -lean_ctor_set(x_189, 1, x_188); -x_190 = lean_array_push(x_156, x_189); -x_191 = l_Lean_mkAppStx___closed__8; -x_192 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_192, 0, x_191); -lean_ctor_set(x_192, 1, x_190); -x_193 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_193, 0, x_192); -lean_ctor_set(x_193, 1, x_143); -return x_193; +x_188 = lean_array_push(x_154, x_187); +x_189 = l_Lean_mkAppStx___closed__8; +x_190 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_190, 0, x_189); +lean_ctor_set(x_190, 1, x_188); +x_191 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_191, 0, x_190); +lean_ctor_set(x_191, 1, x_141); +return x_191; } } } @@ -2299,33 +2192,10 @@ return x_3; lean_object* l_Lean_Elab_Term_elabSubtype___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_261; uint8_t x_262; -x_261 = l_Lean_Parser_Term_subtype___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Term_subtype___elambda__1___closed__2; lean_inc(x_1); -x_262 = l_Lean_Syntax_isOfKind(x_1, x_261); -if (x_262 == 0) -{ -uint8_t x_263; -x_263 = 0; -x_4 = x_263; -goto block_260; -} -else -{ -lean_object* x_264; lean_object* x_265; lean_object* x_266; uint8_t x_267; -x_264 = l_Lean_Syntax_getArgs(x_1); -x_265 = lean_array_get_size(x_264); -lean_dec(x_264); -x_266 = lean_unsigned_to_nat(6u); -x_267 = lean_nat_dec_eq(x_265, x_266); -lean_dec(x_265); -x_4 = x_267; -goto block_260; -} -block_260: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; @@ -2335,483 +2205,466 @@ return x_6; } else { -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; lean_object* x_120; uint8_t x_121; uint8_t x_122; -x_7 = lean_unsigned_to_nat(1u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); -x_9 = lean_unsigned_to_nat(2u); -x_10 = l_Lean_Syntax_getArg(x_1, x_9); -x_120 = l_Lean_nullKind___closed__2; -lean_inc(x_10); -x_121 = l_Lean_Syntax_isOfKind(x_10, x_120); -if (x_121 == 0) -{ -uint8_t x_256; -x_256 = 0; -x_122 = x_256; -goto block_255; -} -else -{ -lean_object* x_257; lean_object* x_258; uint8_t x_259; -x_257 = l_Lean_Syntax_getArgs(x_10); -x_258 = lean_array_get_size(x_257); -lean_dec(x_257); -x_259 = lean_nat_dec_eq(x_258, x_7); -lean_dec(x_258); -x_122 = x_259; -goto block_255; -} -block_119: -{ -uint8_t x_12; -x_12 = l_coeDecidableEq(x_11); -if (x_12 == 0) -{ -lean_object* x_13; +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(6u); +x_10 = lean_nat_dec_eq(x_8, x_9); lean_dec(x_8); +if (x_10 == 0) +{ +lean_object* x_11; lean_dec(x_1); -x_13 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); -return x_13; +x_11 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_11; } else { -lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; -x_14 = lean_unsigned_to_nat(4u); +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; uint8_t x_17; +x_12 = lean_unsigned_to_nat(1u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); +x_14 = lean_unsigned_to_nat(2u); x_15 = l_Lean_Syntax_getArg(x_1, x_14); -lean_dec(x_1); -x_16 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); -x_17 = lean_ctor_get(x_16, 0); -lean_inc(x_17); -x_18 = lean_ctor_get(x_16, 1); -lean_inc(x_18); -lean_dec(x_16); -x_19 = l_Lean_Elab_Term_getMainModule___rarg(x_18); -x_20 = !lean_is_exclusive(x_19); -if (x_20 == 0) +x_16 = l_Lean_nullKind___closed__2; +lean_inc(x_15); +x_17 = l_Lean_Syntax_isOfKind(x_15, x_16); +if (x_17 == 0) { -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; 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_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; -x_21 = lean_ctor_get(x_19, 0); -x_22 = lean_box(0); -x_23 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__4; -x_24 = l_Lean_addMacroScope(x_21, x_23, x_17); -x_25 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__3; -x_26 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__6; -x_27 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_27, 0, x_22); -lean_ctor_set(x_27, 1, x_25); -lean_ctor_set(x_27, 2, x_24); -lean_ctor_set(x_27, 3, x_26); -x_28 = l_Array_empty___closed__1; -x_29 = lean_array_push(x_28, x_27); -x_30 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_31 = lean_array_push(x_29, x_30); -x_32 = l_Lean_mkTermIdFromIdent___closed__2; -x_33 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_33, 0, x_32); -lean_ctor_set(x_33, 1, x_31); -x_34 = lean_array_push(x_28, x_33); -x_35 = lean_array_push(x_28, x_8); -x_36 = lean_array_push(x_35, x_30); -x_37 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_37, 0, x_32); -lean_ctor_set(x_37, 1, x_36); -x_38 = lean_array_push(x_28, x_37); -x_39 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__12; -x_40 = lean_array_push(x_38, x_39); -x_41 = l_Lean_nullKind___closed__2; -x_42 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_42, 0, x_41); -lean_ctor_set(x_42, 1, x_40); -x_43 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_44 = lean_array_push(x_43, x_42); -x_45 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_46 = lean_array_push(x_44, x_45); -x_47 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_48 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_48, 0, x_47); -lean_ctor_set(x_48, 1, x_46); -x_49 = lean_array_push(x_28, x_48); -x_50 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_50, 0, x_41); -lean_ctor_set(x_50, 1, x_49); -x_51 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_52 = lean_array_push(x_51, x_50); -x_53 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_54 = lean_array_push(x_52, x_53); -x_55 = lean_array_push(x_54, x_15); -x_56 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_57 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_57, 0, x_56); -lean_ctor_set(x_57, 1, x_55); -x_58 = lean_array_push(x_28, x_57); -x_59 = lean_array_push(x_58, x_30); -x_60 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_60, 0, x_41); -lean_ctor_set(x_60, 1, x_59); -x_61 = lean_array_push(x_43, x_60); -x_62 = lean_array_push(x_61, x_45); -x_63 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_63, 0, x_47); -lean_ctor_set(x_63, 1, x_62); -x_64 = lean_array_push(x_28, x_63); -x_65 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_65, 0, x_41); -lean_ctor_set(x_65, 1, x_64); -x_66 = lean_array_push(x_34, x_65); -x_67 = l_Lean_mkAppStx___closed__8; -x_68 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_68, 0, x_67); -lean_ctor_set(x_68, 1, x_66); -lean_ctor_set(x_19, 0, x_68); -return x_19; +lean_object* x_18; +lean_dec(x_15); +lean_dec(x_13); +lean_dec(x_1); +x_18 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_18; } else { -lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; 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; -x_69 = lean_ctor_get(x_19, 0); -x_70 = lean_ctor_get(x_19, 1); -lean_inc(x_70); -lean_inc(x_69); +lean_object* x_19; lean_object* x_20; uint8_t x_21; +x_19 = l_Lean_Syntax_getArgs(x_15); +x_20 = lean_array_get_size(x_19); lean_dec(x_19); -x_71 = lean_box(0); -x_72 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__4; -x_73 = l_Lean_addMacroScope(x_69, x_72, x_17); -x_74 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__3; -x_75 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__6; -x_76 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_76, 0, x_71); -lean_ctor_set(x_76, 1, x_74); -lean_ctor_set(x_76, 2, x_73); -lean_ctor_set(x_76, 3, x_75); -x_77 = l_Array_empty___closed__1; -x_78 = lean_array_push(x_77, x_76); -x_79 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_80 = lean_array_push(x_78, x_79); -x_81 = l_Lean_mkTermIdFromIdent___closed__2; -x_82 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_82, 0, x_81); -lean_ctor_set(x_82, 1, x_80); -x_83 = lean_array_push(x_77, x_82); -x_84 = lean_array_push(x_77, x_8); -x_85 = lean_array_push(x_84, x_79); -x_86 = lean_alloc_ctor(1, 2, 0); +x_21 = lean_nat_dec_eq(x_20, x_12); +if (x_21 == 0) +{ +lean_object* x_22; uint8_t x_23; +lean_dec(x_15); +x_22 = lean_unsigned_to_nat(0u); +x_23 = lean_nat_dec_eq(x_20, x_22); +lean_dec(x_20); +if (x_23 == 0) +{ +lean_object* x_24; +lean_dec(x_13); +lean_dec(x_1); +x_24 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_24; +} +else +{ +lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; uint8_t x_31; +x_25 = lean_unsigned_to_nat(4u); +x_26 = l_Lean_Syntax_getArg(x_1, x_25); +lean_dec(x_1); +x_27 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); +x_28 = lean_ctor_get(x_27, 0); +lean_inc(x_28); +x_29 = lean_ctor_get(x_27, 1); +lean_inc(x_29); +lean_dec(x_27); +x_30 = l_Lean_Elab_Term_getMainModule___rarg(x_29); +x_31 = !lean_is_exclusive(x_30); +if (x_31 == 0) +{ +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_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; +x_32 = lean_ctor_get(x_30, 0); +x_33 = lean_box(0); +x_34 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__4; +x_35 = l_Lean_addMacroScope(x_32, x_34, x_28); +x_36 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__3; +x_37 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__6; +x_38 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_38, 0, x_33); +lean_ctor_set(x_38, 1, x_36); +lean_ctor_set(x_38, 2, x_35); +lean_ctor_set(x_38, 3, x_37); +x_39 = l_Array_empty___closed__1; +x_40 = lean_array_push(x_39, x_38); +x_41 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_42 = lean_array_push(x_40, x_41); +x_43 = l_Lean_mkTermIdFromIdent___closed__2; +x_44 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_44, 0, x_43); +lean_ctor_set(x_44, 1, x_42); +x_45 = lean_array_push(x_39, x_44); +x_46 = lean_array_push(x_39, x_13); +x_47 = lean_array_push(x_46, x_41); +x_48 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_48, 0, x_43); +lean_ctor_set(x_48, 1, x_47); +x_49 = lean_array_push(x_39, x_48); +x_50 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__12; +x_51 = lean_array_push(x_49, x_50); +x_52 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_52, 0, x_16); +lean_ctor_set(x_52, 1, x_51); +x_53 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_54 = lean_array_push(x_53, x_52); +x_55 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_56 = lean_array_push(x_54, x_55); +x_57 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_58 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_58, 0, x_57); +lean_ctor_set(x_58, 1, x_56); +x_59 = lean_array_push(x_39, x_58); +x_60 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_60, 0, x_16); +lean_ctor_set(x_60, 1, x_59); +x_61 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_62 = lean_array_push(x_61, x_60); +x_63 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_64 = lean_array_push(x_62, x_63); +x_65 = lean_array_push(x_64, x_26); +x_66 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_67 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_67, 0, x_66); +lean_ctor_set(x_67, 1, x_65); +x_68 = lean_array_push(x_39, x_67); +x_69 = lean_array_push(x_68, x_41); +x_70 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_70, 0, x_16); +lean_ctor_set(x_70, 1, x_69); +x_71 = lean_array_push(x_53, x_70); +x_72 = lean_array_push(x_71, x_55); +x_73 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_73, 0, x_57); +lean_ctor_set(x_73, 1, x_72); +x_74 = lean_array_push(x_39, x_73); +x_75 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_75, 0, x_16); +lean_ctor_set(x_75, 1, x_74); +x_76 = lean_array_push(x_45, x_75); +x_77 = l_Lean_mkAppStx___closed__8; +x_78 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_78, 0, x_77); +lean_ctor_set(x_78, 1, x_76); +lean_ctor_set(x_30, 0, x_78); +return x_30; +} +else +{ +lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; +x_79 = lean_ctor_get(x_30, 0); +x_80 = lean_ctor_get(x_30, 1); +lean_inc(x_80); +lean_inc(x_79); +lean_dec(x_30); +x_81 = lean_box(0); +x_82 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__4; +x_83 = l_Lean_addMacroScope(x_79, x_82, x_28); +x_84 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__3; +x_85 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__6; +x_86 = lean_alloc_ctor(3, 4, 0); lean_ctor_set(x_86, 0, x_81); -lean_ctor_set(x_86, 1, x_85); -x_87 = lean_array_push(x_77, x_86); -x_88 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__12; -x_89 = lean_array_push(x_87, x_88); -x_90 = l_Lean_nullKind___closed__2; -x_91 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_91, 0, x_90); -lean_ctor_set(x_91, 1, x_89); -x_92 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_93 = lean_array_push(x_92, x_91); -x_94 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_95 = lean_array_push(x_93, x_94); -x_96 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_97 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_97, 0, x_96); -lean_ctor_set(x_97, 1, x_95); -x_98 = lean_array_push(x_77, x_97); -x_99 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_99, 0, x_90); -lean_ctor_set(x_99, 1, x_98); -x_100 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_101 = lean_array_push(x_100, x_99); -x_102 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_103 = lean_array_push(x_101, x_102); -x_104 = lean_array_push(x_103, x_15); -x_105 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +lean_ctor_set(x_86, 1, x_84); +lean_ctor_set(x_86, 2, x_83); +lean_ctor_set(x_86, 3, x_85); +x_87 = l_Array_empty___closed__1; +x_88 = lean_array_push(x_87, x_86); +x_89 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_90 = lean_array_push(x_88, x_89); +x_91 = l_Lean_mkTermIdFromIdent___closed__2; +x_92 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_92, 0, x_91); +lean_ctor_set(x_92, 1, x_90); +x_93 = lean_array_push(x_87, x_92); +x_94 = lean_array_push(x_87, x_13); +x_95 = lean_array_push(x_94, x_89); +x_96 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_96, 0, x_91); +lean_ctor_set(x_96, 1, x_95); +x_97 = lean_array_push(x_87, x_96); +x_98 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__12; +x_99 = lean_array_push(x_97, x_98); +x_100 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_100, 0, x_16); +lean_ctor_set(x_100, 1, x_99); +x_101 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_102 = lean_array_push(x_101, x_100); +x_103 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_104 = lean_array_push(x_102, x_103); +x_105 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; x_106 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_106, 0, x_105); lean_ctor_set(x_106, 1, x_104); -x_107 = lean_array_push(x_77, x_106); -x_108 = lean_array_push(x_107, x_79); -x_109 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_109, 0, x_90); -lean_ctor_set(x_109, 1, x_108); -x_110 = lean_array_push(x_92, x_109); -x_111 = lean_array_push(x_110, x_94); -x_112 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_112, 0, x_96); -lean_ctor_set(x_112, 1, x_111); -x_113 = lean_array_push(x_77, x_112); -x_114 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_114, 0, x_90); -lean_ctor_set(x_114, 1, x_113); -x_115 = lean_array_push(x_83, x_114); -x_116 = l_Lean_mkAppStx___closed__8; -x_117 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_117, 0, x_116); -lean_ctor_set(x_117, 1, x_115); -x_118 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_118, 0, x_117); -lean_ctor_set(x_118, 1, x_70); -return x_118; +x_107 = lean_array_push(x_87, x_106); +x_108 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_108, 0, x_16); +lean_ctor_set(x_108, 1, x_107); +x_109 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_110 = lean_array_push(x_109, x_108); +x_111 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_112 = lean_array_push(x_110, x_111); +x_113 = lean_array_push(x_112, x_26); +x_114 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_115 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_115, 0, x_114); +lean_ctor_set(x_115, 1, x_113); +x_116 = lean_array_push(x_87, x_115); +x_117 = lean_array_push(x_116, x_89); +x_118 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_118, 0, x_16); +lean_ctor_set(x_118, 1, x_117); +x_119 = lean_array_push(x_101, x_118); +x_120 = lean_array_push(x_119, x_103); +x_121 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_121, 0, x_105); +lean_ctor_set(x_121, 1, x_120); +x_122 = lean_array_push(x_87, x_121); +x_123 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_123, 0, x_16); +lean_ctor_set(x_123, 1, x_122); +x_124 = lean_array_push(x_93, x_123); +x_125 = l_Lean_mkAppStx___closed__8; +x_126 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_126, 0, x_125); +lean_ctor_set(x_126, 1, x_124); +x_127 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_127, 0, x_126); +lean_ctor_set(x_127, 1, x_80); +return x_127; } } } -block_255: -{ -uint8_t x_123; -x_123 = l_coeDecidableEq(x_122); -if (x_123 == 0) -{ -if (x_121 == 0) -{ -uint8_t x_124; -lean_dec(x_10); -x_124 = 0; -x_11 = x_124; -goto block_119; -} -else -{ -lean_object* x_125; lean_object* x_126; lean_object* x_127; uint8_t x_128; -x_125 = l_Lean_Syntax_getArgs(x_10); -lean_dec(x_10); -x_126 = lean_array_get_size(x_125); -lean_dec(x_125); -x_127 = lean_unsigned_to_nat(0u); -x_128 = lean_nat_dec_eq(x_126, x_127); -lean_dec(x_126); -x_11 = x_128; -goto block_119; -} -} else { -lean_object* x_129; lean_object* x_130; uint8_t x_131; lean_object* x_249; uint8_t x_250; -x_129 = lean_unsigned_to_nat(0u); -x_130 = l_Lean_Syntax_getArg(x_10, x_129); -lean_dec(x_10); -x_249 = l_Lean_Parser_Term_typeSpec___elambda__1___closed__2; -lean_inc(x_130); -x_250 = l_Lean_Syntax_isOfKind(x_130, x_249); -if (x_250 == 0) +lean_object* x_128; lean_object* x_129; lean_object* x_130; uint8_t x_131; +lean_dec(x_20); +x_128 = lean_unsigned_to_nat(0u); +x_129 = l_Lean_Syntax_getArg(x_15, x_128); +lean_dec(x_15); +x_130 = l_Lean_Parser_Term_typeSpec___elambda__1___closed__2; +lean_inc(x_129); +x_131 = l_Lean_Syntax_isOfKind(x_129, x_130); +if (x_131 == 0) { -uint8_t x_251; -x_251 = 0; -x_131 = x_251; -goto block_248; -} -else -{ -lean_object* x_252; lean_object* x_253; uint8_t x_254; -x_252 = l_Lean_Syntax_getArgs(x_130); -x_253 = lean_array_get_size(x_252); -lean_dec(x_252); -x_254 = lean_nat_dec_eq(x_253, x_9); -lean_dec(x_253); -x_131 = x_254; -goto block_248; -} -block_248: -{ -uint8_t x_132; -x_132 = l_coeDecidableEq(x_131); -if (x_132 == 0) -{ -lean_object* x_133; -lean_dec(x_130); -lean_dec(x_8); +lean_object* x_132; +lean_dec(x_129); +lean_dec(x_13); lean_dec(x_1); -x_133 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); -return x_133; +x_132 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_132; } else { -lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; uint8_t x_141; -x_134 = l_Lean_Syntax_getArg(x_130, x_7); -lean_dec(x_130); -x_135 = lean_unsigned_to_nat(4u); -x_136 = l_Lean_Syntax_getArg(x_1, x_135); +lean_object* x_133; lean_object* x_134; uint8_t x_135; +x_133 = l_Lean_Syntax_getArgs(x_129); +x_134 = lean_array_get_size(x_133); +lean_dec(x_133); +x_135 = lean_nat_dec_eq(x_134, x_14); +lean_dec(x_134); +if (x_135 == 0) +{ +lean_object* x_136; +lean_dec(x_129); +lean_dec(x_13); lean_dec(x_1); -x_137 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); -x_138 = lean_ctor_get(x_137, 0); -lean_inc(x_138); -x_139 = lean_ctor_get(x_137, 1); -lean_inc(x_139); -lean_dec(x_137); -x_140 = l_Lean_Elab_Term_getMainModule___rarg(x_139); -x_141 = !lean_is_exclusive(x_140); -if (x_141 == 0) -{ -lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; -x_142 = lean_ctor_get(x_140, 0); -x_143 = lean_box(0); -x_144 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__4; -x_145 = l_Lean_addMacroScope(x_142, x_144, x_138); -x_146 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__3; -x_147 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__6; -x_148 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_148, 0, x_143); -lean_ctor_set(x_148, 1, x_146); -lean_ctor_set(x_148, 2, x_145); -lean_ctor_set(x_148, 3, x_147); -x_149 = l_Array_empty___closed__1; -x_150 = lean_array_push(x_149, x_148); -x_151 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_152 = lean_array_push(x_150, x_151); -x_153 = l_Lean_mkTermIdFromIdent___closed__2; -x_154 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_154, 0, x_153); -lean_ctor_set(x_154, 1, x_152); -x_155 = lean_array_push(x_149, x_154); -x_156 = lean_array_push(x_149, x_8); -x_157 = lean_array_push(x_156, x_151); -x_158 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_158, 0, x_153); -lean_ctor_set(x_158, 1, x_157); -x_159 = lean_array_push(x_149, x_158); -x_160 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; -x_161 = lean_array_push(x_160, x_134); -x_162 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; -x_163 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_163, 0, x_162); -lean_ctor_set(x_163, 1, x_161); -x_164 = lean_array_push(x_149, x_163); -x_165 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_165, 0, x_120); -lean_ctor_set(x_165, 1, x_164); -x_166 = lean_array_push(x_159, x_165); -x_167 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_167, 0, x_120); -lean_ctor_set(x_167, 1, x_166); -x_168 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_169 = lean_array_push(x_168, x_167); -x_170 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_171 = lean_array_push(x_169, x_170); -x_172 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_173 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_173, 0, x_172); -lean_ctor_set(x_173, 1, x_171); -x_174 = lean_array_push(x_149, x_173); -x_175 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_175, 0, x_120); -lean_ctor_set(x_175, 1, x_174); -x_176 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_177 = lean_array_push(x_176, x_175); -x_178 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_179 = lean_array_push(x_177, x_178); -x_180 = lean_array_push(x_179, x_136); -x_181 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_182 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_182, 0, x_181); -lean_ctor_set(x_182, 1, x_180); -x_183 = lean_array_push(x_149, x_182); -x_184 = lean_array_push(x_183, x_151); -x_185 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_185, 0, x_120); -lean_ctor_set(x_185, 1, x_184); -x_186 = lean_array_push(x_168, x_185); -x_187 = lean_array_push(x_186, x_170); -x_188 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_188, 0, x_172); -lean_ctor_set(x_188, 1, x_187); -x_189 = lean_array_push(x_149, x_188); -x_190 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_190, 0, x_120); -lean_ctor_set(x_190, 1, x_189); -x_191 = lean_array_push(x_155, x_190); -x_192 = l_Lean_mkAppStx___closed__8; -x_193 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_193, 0, x_192); -lean_ctor_set(x_193, 1, x_191); -lean_ctor_set(x_140, 0, x_193); -return x_140; +x_136 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_136; } else { -lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; lean_object* x_231; lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; lean_object* x_244; lean_object* x_245; lean_object* x_246; lean_object* x_247; -x_194 = lean_ctor_get(x_140, 0); -x_195 = lean_ctor_get(x_140, 1); -lean_inc(x_195); -lean_inc(x_194); +lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; uint8_t x_144; +x_137 = l_Lean_Syntax_getArg(x_129, x_12); +lean_dec(x_129); +x_138 = lean_unsigned_to_nat(4u); +x_139 = l_Lean_Syntax_getArg(x_1, x_138); +lean_dec(x_1); +x_140 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); +x_141 = lean_ctor_get(x_140, 0); +lean_inc(x_141); +x_142 = lean_ctor_get(x_140, 1); +lean_inc(x_142); lean_dec(x_140); -x_196 = lean_box(0); -x_197 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__4; -x_198 = l_Lean_addMacroScope(x_194, x_197, x_138); -x_199 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__3; -x_200 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__6; -x_201 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_201, 0, x_196); -lean_ctor_set(x_201, 1, x_199); -lean_ctor_set(x_201, 2, x_198); -lean_ctor_set(x_201, 3, x_200); -x_202 = l_Array_empty___closed__1; -x_203 = lean_array_push(x_202, x_201); -x_204 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_205 = lean_array_push(x_203, x_204); -x_206 = l_Lean_mkTermIdFromIdent___closed__2; -x_207 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_207, 0, x_206); -lean_ctor_set(x_207, 1, x_205); -x_208 = lean_array_push(x_202, x_207); -x_209 = lean_array_push(x_202, x_8); -x_210 = lean_array_push(x_209, x_204); -x_211 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_211, 0, x_206); -lean_ctor_set(x_211, 1, x_210); -x_212 = lean_array_push(x_202, x_211); -x_213 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; -x_214 = lean_array_push(x_213, x_134); -x_215 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; -x_216 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_216, 0, x_215); -lean_ctor_set(x_216, 1, x_214); -x_217 = lean_array_push(x_202, x_216); -x_218 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_218, 0, x_120); -lean_ctor_set(x_218, 1, x_217); -x_219 = lean_array_push(x_212, x_218); -x_220 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_220, 0, x_120); -lean_ctor_set(x_220, 1, x_219); -x_221 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_222 = lean_array_push(x_221, x_220); -x_223 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_224 = lean_array_push(x_222, x_223); -x_225 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_226 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_226, 0, x_225); -lean_ctor_set(x_226, 1, x_224); -x_227 = lean_array_push(x_202, x_226); -x_228 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_228, 0, x_120); -lean_ctor_set(x_228, 1, x_227); -x_229 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_230 = lean_array_push(x_229, x_228); -x_231 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_232 = lean_array_push(x_230, x_231); -x_233 = lean_array_push(x_232, x_136); -x_234 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_235 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_235, 0, x_234); -lean_ctor_set(x_235, 1, x_233); -x_236 = lean_array_push(x_202, x_235); -x_237 = lean_array_push(x_236, x_204); +x_143 = l_Lean_Elab_Term_getMainModule___rarg(x_142); +x_144 = !lean_is_exclusive(x_143); +if (x_144 == 0) +{ +lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; +x_145 = lean_ctor_get(x_143, 0); +x_146 = lean_box(0); +x_147 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__4; +x_148 = l_Lean_addMacroScope(x_145, x_147, x_141); +x_149 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__3; +x_150 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__6; +x_151 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_151, 0, x_146); +lean_ctor_set(x_151, 1, x_149); +lean_ctor_set(x_151, 2, x_148); +lean_ctor_set(x_151, 3, x_150); +x_152 = l_Array_empty___closed__1; +x_153 = lean_array_push(x_152, x_151); +x_154 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_155 = lean_array_push(x_153, x_154); +x_156 = l_Lean_mkTermIdFromIdent___closed__2; +x_157 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_157, 0, x_156); +lean_ctor_set(x_157, 1, x_155); +x_158 = lean_array_push(x_152, x_157); +x_159 = lean_array_push(x_152, x_13); +x_160 = lean_array_push(x_159, x_154); +x_161 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_161, 0, x_156); +lean_ctor_set(x_161, 1, x_160); +x_162 = lean_array_push(x_152, x_161); +x_163 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; +x_164 = lean_array_push(x_163, x_137); +x_165 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +x_166 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_166, 0, x_165); +lean_ctor_set(x_166, 1, x_164); +x_167 = lean_array_push(x_152, x_166); +x_168 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_168, 0, x_16); +lean_ctor_set(x_168, 1, x_167); +x_169 = lean_array_push(x_162, x_168); +x_170 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_170, 0, x_16); +lean_ctor_set(x_170, 1, x_169); +x_171 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_172 = lean_array_push(x_171, x_170); +x_173 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_174 = lean_array_push(x_172, x_173); +x_175 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_176 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_176, 0, x_175); +lean_ctor_set(x_176, 1, x_174); +x_177 = lean_array_push(x_152, x_176); +x_178 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_178, 0, x_16); +lean_ctor_set(x_178, 1, x_177); +x_179 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_180 = lean_array_push(x_179, x_178); +x_181 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_182 = lean_array_push(x_180, x_181); +x_183 = lean_array_push(x_182, x_139); +x_184 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_185 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_185, 0, x_184); +lean_ctor_set(x_185, 1, x_183); +x_186 = lean_array_push(x_152, x_185); +x_187 = lean_array_push(x_186, x_154); +x_188 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_188, 0, x_16); +lean_ctor_set(x_188, 1, x_187); +x_189 = lean_array_push(x_171, x_188); +x_190 = lean_array_push(x_189, x_173); +x_191 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_191, 0, x_175); +lean_ctor_set(x_191, 1, x_190); +x_192 = lean_array_push(x_152, x_191); +x_193 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_193, 0, x_16); +lean_ctor_set(x_193, 1, x_192); +x_194 = lean_array_push(x_158, x_193); +x_195 = l_Lean_mkAppStx___closed__8; +x_196 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_196, 0, x_195); +lean_ctor_set(x_196, 1, x_194); +lean_ctor_set(x_143, 0, x_196); +return x_143; +} +else +{ +lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; lean_object* x_231; lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; lean_object* x_244; lean_object* x_245; lean_object* x_246; lean_object* x_247; lean_object* x_248; lean_object* x_249; lean_object* x_250; +x_197 = lean_ctor_get(x_143, 0); +x_198 = lean_ctor_get(x_143, 1); +lean_inc(x_198); +lean_inc(x_197); +lean_dec(x_143); +x_199 = lean_box(0); +x_200 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__4; +x_201 = l_Lean_addMacroScope(x_197, x_200, x_141); +x_202 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__3; +x_203 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__6; +x_204 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_204, 0, x_199); +lean_ctor_set(x_204, 1, x_202); +lean_ctor_set(x_204, 2, x_201); +lean_ctor_set(x_204, 3, x_203); +x_205 = l_Array_empty___closed__1; +x_206 = lean_array_push(x_205, x_204); +x_207 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_208 = lean_array_push(x_206, x_207); +x_209 = l_Lean_mkTermIdFromIdent___closed__2; +x_210 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_210, 0, x_209); +lean_ctor_set(x_210, 1, x_208); +x_211 = lean_array_push(x_205, x_210); +x_212 = lean_array_push(x_205, x_13); +x_213 = lean_array_push(x_212, x_207); +x_214 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_214, 0, x_209); +lean_ctor_set(x_214, 1, x_213); +x_215 = lean_array_push(x_205, x_214); +x_216 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; +x_217 = lean_array_push(x_216, x_137); +x_218 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +x_219 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_219, 0, x_218); +lean_ctor_set(x_219, 1, x_217); +x_220 = lean_array_push(x_205, x_219); +x_221 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_221, 0, x_16); +lean_ctor_set(x_221, 1, x_220); +x_222 = lean_array_push(x_215, x_221); +x_223 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_223, 0, x_16); +lean_ctor_set(x_223, 1, x_222); +x_224 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_225 = lean_array_push(x_224, x_223); +x_226 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_227 = lean_array_push(x_225, x_226); +x_228 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_229 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_229, 0, x_228); +lean_ctor_set(x_229, 1, x_227); +x_230 = lean_array_push(x_205, x_229); +x_231 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_231, 0, x_16); +lean_ctor_set(x_231, 1, x_230); +x_232 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_233 = lean_array_push(x_232, x_231); +x_234 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_235 = lean_array_push(x_233, x_234); +x_236 = lean_array_push(x_235, x_139); +x_237 = l_Lean_Parser_Term_fun___elambda__1___closed__2; x_238 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_238, 0, x_120); -lean_ctor_set(x_238, 1, x_237); -x_239 = lean_array_push(x_221, x_238); -x_240 = lean_array_push(x_239, x_223); +lean_ctor_set(x_238, 0, x_237); +lean_ctor_set(x_238, 1, x_236); +x_239 = lean_array_push(x_205, x_238); +x_240 = lean_array_push(x_239, x_207); x_241 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_241, 0, x_225); +lean_ctor_set(x_241, 0, x_16); lean_ctor_set(x_241, 1, x_240); -x_242 = lean_array_push(x_202, x_241); -x_243 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_243, 0, x_120); -lean_ctor_set(x_243, 1, x_242); -x_244 = lean_array_push(x_208, x_243); -x_245 = l_Lean_mkAppStx___closed__8; +x_242 = lean_array_push(x_224, x_241); +x_243 = lean_array_push(x_242, x_226); +x_244 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_244, 0, x_228); +lean_ctor_set(x_244, 1, x_243); +x_245 = lean_array_push(x_205, x_244); x_246 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_246, 0, x_245); -lean_ctor_set(x_246, 1, x_244); -x_247 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_247, 0, x_246); -lean_ctor_set(x_247, 1, x_195); -return x_247; +lean_ctor_set(x_246, 0, x_16); +lean_ctor_set(x_246, 1, x_245); +x_247 = lean_array_push(x_211, x_246); +x_248 = l_Lean_mkAppStx___closed__8; +x_249 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_249, 0, x_248); +lean_ctor_set(x_249, 1, x_247); +x_250 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_250, 0, x_249); +lean_ctor_set(x_250, 1, x_198); +return x_250; } } } @@ -3027,33 +2880,10 @@ return x_2; lean_object* l_Lean_Elab_Term_elabAnonymousCtor(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -uint8_t x_5; lean_object* x_139; uint8_t x_140; -x_139 = l_Lean_Parser_Term_anonymousCtor___elambda__1___closed__2; +lean_object* x_5; uint8_t x_6; +x_5 = l_Lean_Parser_Term_anonymousCtor___elambda__1___closed__2; lean_inc(x_1); -x_140 = l_Lean_Syntax_isOfKind(x_1, x_139); -if (x_140 == 0) -{ -uint8_t x_141; -x_141 = 0; -x_5 = x_141; -goto block_138; -} -else -{ -lean_object* x_142; lean_object* x_143; lean_object* x_144; uint8_t x_145; -x_142 = l_Lean_Syntax_getArgs(x_1); -x_143 = lean_array_get_size(x_142); -lean_dec(x_142); -x_144 = lean_unsigned_to_nat(3u); -x_145 = lean_nat_dec_eq(x_143, x_144); -lean_dec(x_143); -x_5 = x_145; -goto block_138; -} -block_138: -{ -uint8_t x_6; -x_6 = l_coeDecidableEq(x_5); +x_6 = l_Lean_Syntax_isOfKind(x_1, x_5); if (x_6 == 0) { lean_object* x_7; @@ -3065,254 +2895,272 @@ return x_7; } else { -lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; -x_8 = lean_unsigned_to_nat(1u); -x_9 = l_Lean_Syntax_getArg(x_1, x_8); -x_10 = l_Lean_Syntax_getArgs(x_9); +lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; +x_8 = l_Lean_Syntax_getArgs(x_1); +x_9 = lean_array_get_size(x_8); +lean_dec(x_8); +x_10 = lean_unsigned_to_nat(3u); +x_11 = lean_nat_dec_eq(x_9, x_10); lean_dec(x_9); -x_11 = l_Lean_Elab_Term_tryPostponeIfNoneOrMVar(x_2, x_3, x_4); -if (lean_obj_tag(x_11) == 0) +if (x_11 == 0) +{ +lean_object* x_12; +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_12 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); +return x_12; +} +else +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_13 = lean_unsigned_to_nat(1u); +x_14 = l_Lean_Syntax_getArg(x_1, x_13); +x_15 = l_Lean_Syntax_getArgs(x_14); +lean_dec(x_14); +x_16 = l_Lean_Elab_Term_tryPostponeIfNoneOrMVar(x_2, x_3, x_4); +if (lean_obj_tag(x_16) == 0) { if (lean_obj_tag(x_2) == 0) { -lean_object* x_12; lean_object* x_13; lean_object* x_14; -lean_dec(x_10); -x_12 = lean_ctor_get(x_11, 1); -lean_inc(x_12); -lean_dec(x_11); -x_13 = l_Lean_Elab_Term_elabAnonymousCtor___closed__3; -x_14 = l_Lean_Elab_Term_throwError___rarg(x_1, x_13, x_3, x_12); +lean_object* x_17; lean_object* x_18; lean_object* x_19; +lean_dec(x_15); +x_17 = lean_ctor_get(x_16, 1); +lean_inc(x_17); +lean_dec(x_16); +x_18 = l_Lean_Elab_Term_elabAnonymousCtor___closed__3; +x_19 = l_Lean_Elab_Term_throwError___rarg(x_1, x_18, x_3, x_17); lean_dec(x_1); -return x_14; +return x_19; } else { -lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_28; -x_15 = lean_ctor_get(x_11, 1); -lean_inc(x_15); -lean_dec(x_11); -x_16 = lean_ctor_get(x_2, 0); -lean_inc(x_16); +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_33; +x_20 = lean_ctor_get(x_16, 1); +lean_inc(x_20); +lean_dec(x_16); +x_21 = lean_ctor_get(x_2, 0); +lean_inc(x_21); lean_inc(x_3); -x_17 = l_Lean_Elab_Term_instantiateMVars(x_1, x_16, x_3, x_15); -x_18 = lean_ctor_get(x_17, 0); -lean_inc(x_18); -x_19 = lean_ctor_get(x_17, 1); -lean_inc(x_19); -lean_dec(x_17); -x_20 = l_Lean_Expr_consumeMData___main(x_18); -lean_dec(x_18); -x_28 = l_Lean_Expr_getAppFn___main(x_20); -if (lean_obj_tag(x_28) == 4) +x_22 = l_Lean_Elab_Term_instantiateMVars(x_1, x_21, x_3, x_20); +x_23 = lean_ctor_get(x_22, 0); +lean_inc(x_23); +x_24 = lean_ctor_get(x_22, 1); +lean_inc(x_24); +lean_dec(x_22); +x_25 = l_Lean_Expr_consumeMData___main(x_23); +lean_dec(x_23); +x_33 = l_Lean_Expr_getAppFn___main(x_25); +if (lean_obj_tag(x_33) == 4) { -lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_41; lean_object* x_49; -lean_dec(x_20); -x_29 = lean_ctor_get(x_28, 0); -lean_inc(x_29); -lean_dec(x_28); -x_30 = l_Lean_Elab_Term_getEnv___rarg(x_19); -x_31 = lean_ctor_get(x_30, 0); -lean_inc(x_31); -x_32 = lean_ctor_get(x_30, 1); -lean_inc(x_32); -lean_dec(x_30); -lean_inc(x_29); -x_49 = lean_environment_find(x_31, x_29); -if (lean_obj_tag(x_49) == 0) -{ -lean_object* x_50; -lean_dec(x_10); -lean_dec(x_2); -x_50 = lean_box(0); -x_33 = x_50; -goto block_40; -} -else -{ -lean_object* x_51; -x_51 = lean_ctor_get(x_49, 0); -lean_inc(x_51); -lean_dec(x_49); -if (lean_obj_tag(x_51) == 5) -{ -lean_object* x_52; lean_object* x_53; -x_52 = lean_ctor_get(x_51, 0); -lean_inc(x_52); -lean_dec(x_51); -x_53 = lean_ctor_get(x_52, 4); -lean_inc(x_53); -lean_dec(x_52); -if (lean_obj_tag(x_53) == 0) -{ -lean_object* x_54; -lean_dec(x_10); -lean_dec(x_2); -x_54 = lean_box(0); -x_41 = x_54; -goto block_48; -} -else +lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_46; lean_object* x_54; +lean_dec(x_25); +x_34 = lean_ctor_get(x_33, 0); +lean_inc(x_34); +lean_dec(x_33); +x_35 = l_Lean_Elab_Term_getEnv___rarg(x_24); +x_36 = lean_ctor_get(x_35, 0); +lean_inc(x_36); +x_37 = lean_ctor_get(x_35, 1); +lean_inc(x_37); +lean_dec(x_35); +lean_inc(x_34); +x_54 = lean_environment_find(x_36, x_34); +if (lean_obj_tag(x_54) == 0) { lean_object* x_55; -x_55 = lean_ctor_get(x_53, 1); -lean_inc(x_55); -if (lean_obj_tag(x_55) == 0) -{ -uint8_t x_56; -lean_dec(x_29); -x_56 = !lean_is_exclusive(x_53); -if (x_56 == 0) -{ -lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; uint8_t x_75; -x_57 = lean_ctor_get(x_53, 0); -x_58 = lean_ctor_get(x_53, 1); -lean_dec(x_58); -x_59 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_32); -x_60 = lean_ctor_get(x_59, 1); -lean_inc(x_60); -lean_dec(x_59); -x_61 = l_Lean_Elab_Term_getMainModule___rarg(x_60); -x_62 = lean_ctor_get(x_61, 1); -lean_inc(x_62); -lean_dec(x_61); -x_63 = l_Lean_mkCTermIdFrom(x_1, x_57); -x_64 = l_Array_empty___closed__1; -x_65 = lean_array_push(x_64, x_63); -x_66 = lean_unsigned_to_nat(2u); -x_67 = lean_unsigned_to_nat(0u); -x_68 = l_Array_foldlStepMAux___main___at_Lean_Elab_Term_elabParen___spec__1(x_66, x_10, x_67, x_64); -lean_dec(x_10); -x_69 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_68, x_68, x_67, x_64); -lean_dec(x_68); -x_70 = l_Lean_nullKind___closed__2; -x_71 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_71, 0, x_70); -lean_ctor_set(x_71, 1, x_69); -x_72 = lean_array_push(x_65, x_71); -x_73 = l_Lean_mkAppStx___closed__8; -x_74 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_74, 0, x_73); -lean_ctor_set(x_74, 1, x_72); -x_75 = !lean_is_exclusive(x_3); -if (x_75 == 0) -{ -lean_object* x_76; lean_object* x_77; uint8_t x_78; lean_object* x_79; -x_76 = lean_ctor_get(x_3, 8); -lean_inc(x_74); -x_77 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_77, 0, x_1); -lean_ctor_set(x_77, 1, x_74); -lean_ctor_set(x_53, 1, x_76); -lean_ctor_set(x_53, 0, x_77); -lean_ctor_set(x_3, 8, x_53); -x_78 = 1; -x_79 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_78, x_74, x_3, x_62); -return x_79; +lean_dec(x_15); +lean_dec(x_2); +x_55 = lean_box(0); +x_38 = x_55; +goto block_45; } else { -lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; uint8_t x_90; uint8_t x_91; lean_object* x_92; lean_object* x_93; uint8_t x_94; lean_object* x_95; -x_80 = lean_ctor_get(x_3, 0); -x_81 = lean_ctor_get(x_3, 1); -x_82 = lean_ctor_get(x_3, 2); -x_83 = lean_ctor_get(x_3, 3); -x_84 = lean_ctor_get(x_3, 4); -x_85 = lean_ctor_get(x_3, 5); -x_86 = lean_ctor_get(x_3, 6); -x_87 = lean_ctor_get(x_3, 7); -x_88 = lean_ctor_get(x_3, 8); -x_89 = lean_ctor_get(x_3, 9); -x_90 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); -x_91 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); +lean_object* x_56; +x_56 = lean_ctor_get(x_54, 0); +lean_inc(x_56); +lean_dec(x_54); +if (lean_obj_tag(x_56) == 5) +{ +lean_object* x_57; lean_object* x_58; +x_57 = lean_ctor_get(x_56, 0); +lean_inc(x_57); +lean_dec(x_56); +x_58 = lean_ctor_get(x_57, 4); +lean_inc(x_58); +lean_dec(x_57); +if (lean_obj_tag(x_58) == 0) +{ +lean_object* x_59; +lean_dec(x_15); +lean_dec(x_2); +x_59 = lean_box(0); +x_46 = x_59; +goto block_53; +} +else +{ +lean_object* x_60; +x_60 = lean_ctor_get(x_58, 1); +lean_inc(x_60); +if (lean_obj_tag(x_60) == 0) +{ +uint8_t x_61; +lean_dec(x_34); +x_61 = !lean_is_exclusive(x_58); +if (x_61 == 0) +{ +lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; uint8_t x_80; +x_62 = lean_ctor_get(x_58, 0); +x_63 = lean_ctor_get(x_58, 1); +lean_dec(x_63); +x_64 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_37); +x_65 = lean_ctor_get(x_64, 1); +lean_inc(x_65); +lean_dec(x_64); +x_66 = l_Lean_Elab_Term_getMainModule___rarg(x_65); +x_67 = lean_ctor_get(x_66, 1); +lean_inc(x_67); +lean_dec(x_66); +x_68 = l_Lean_mkCTermIdFrom(x_1, x_62); +x_69 = l_Array_empty___closed__1; +x_70 = lean_array_push(x_69, x_68); +x_71 = lean_unsigned_to_nat(2u); +x_72 = lean_unsigned_to_nat(0u); +x_73 = l_Array_foldlStepMAux___main___at_Lean_Elab_Term_elabParen___spec__1(x_71, x_15, x_72, x_69); +lean_dec(x_15); +x_74 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_73, x_73, x_72, x_69); +lean_dec(x_73); +x_75 = l_Lean_nullKind___closed__2; +x_76 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_76, 0, x_75); +lean_ctor_set(x_76, 1, x_74); +x_77 = lean_array_push(x_70, x_76); +x_78 = l_Lean_mkAppStx___closed__8; +x_79 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_79, 0, x_78); +lean_ctor_set(x_79, 1, x_77); +x_80 = !lean_is_exclusive(x_3); +if (x_80 == 0) +{ +lean_object* x_81; lean_object* x_82; uint8_t x_83; lean_object* x_84; +x_81 = lean_ctor_get(x_3, 8); +lean_inc(x_79); +x_82 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_82, 0, x_1); +lean_ctor_set(x_82, 1, x_79); +lean_ctor_set(x_58, 1, x_81); +lean_ctor_set(x_58, 0, x_82); +lean_ctor_set(x_3, 8, x_58); +x_83 = 1; +x_84 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_83, x_79, x_3, x_67); +return x_84; +} +else +{ +lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; uint8_t x_95; uint8_t x_96; lean_object* x_97; lean_object* x_98; uint8_t x_99; lean_object* x_100; +x_85 = lean_ctor_get(x_3, 0); +x_86 = lean_ctor_get(x_3, 1); +x_87 = lean_ctor_get(x_3, 2); +x_88 = lean_ctor_get(x_3, 3); +x_89 = lean_ctor_get(x_3, 4); +x_90 = lean_ctor_get(x_3, 5); +x_91 = lean_ctor_get(x_3, 6); +x_92 = lean_ctor_get(x_3, 7); +x_93 = lean_ctor_get(x_3, 8); +x_94 = lean_ctor_get(x_3, 9); +x_95 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); +x_96 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); +lean_inc(x_94); +lean_inc(x_93); +lean_inc(x_92); +lean_inc(x_91); +lean_inc(x_90); lean_inc(x_89); lean_inc(x_88); lean_inc(x_87); lean_inc(x_86); lean_inc(x_85); -lean_inc(x_84); -lean_inc(x_83); -lean_inc(x_82); -lean_inc(x_81); -lean_inc(x_80); lean_dec(x_3); -lean_inc(x_74); -x_92 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_92, 0, x_1); -lean_ctor_set(x_92, 1, x_74); -lean_ctor_set(x_53, 1, x_88); -lean_ctor_set(x_53, 0, x_92); -x_93 = lean_alloc_ctor(0, 10, 2); -lean_ctor_set(x_93, 0, x_80); -lean_ctor_set(x_93, 1, x_81); -lean_ctor_set(x_93, 2, x_82); -lean_ctor_set(x_93, 3, x_83); -lean_ctor_set(x_93, 4, x_84); -lean_ctor_set(x_93, 5, x_85); -lean_ctor_set(x_93, 6, x_86); -lean_ctor_set(x_93, 7, x_87); -lean_ctor_set(x_93, 8, x_53); -lean_ctor_set(x_93, 9, x_89); -lean_ctor_set_uint8(x_93, sizeof(void*)*10, x_90); -lean_ctor_set_uint8(x_93, sizeof(void*)*10 + 1, x_91); -x_94 = 1; -x_95 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_94, x_74, x_93, x_62); -return x_95; +lean_inc(x_79); +x_97 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_97, 0, x_1); +lean_ctor_set(x_97, 1, x_79); +lean_ctor_set(x_58, 1, x_93); +lean_ctor_set(x_58, 0, x_97); +x_98 = lean_alloc_ctor(0, 10, 2); +lean_ctor_set(x_98, 0, x_85); +lean_ctor_set(x_98, 1, x_86); +lean_ctor_set(x_98, 2, x_87); +lean_ctor_set(x_98, 3, x_88); +lean_ctor_set(x_98, 4, x_89); +lean_ctor_set(x_98, 5, x_90); +lean_ctor_set(x_98, 6, x_91); +lean_ctor_set(x_98, 7, x_92); +lean_ctor_set(x_98, 8, x_58); +lean_ctor_set(x_98, 9, x_94); +lean_ctor_set_uint8(x_98, sizeof(void*)*10, x_95); +lean_ctor_set_uint8(x_98, sizeof(void*)*10 + 1, x_96); +x_99 = 1; +x_100 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_99, x_79, x_98, x_67); +return x_100; } } else { -lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; uint8_t x_123; uint8_t x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; uint8_t x_129; lean_object* x_130; -x_96 = lean_ctor_get(x_53, 0); -lean_inc(x_96); -lean_dec(x_53); -x_97 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_32); -x_98 = lean_ctor_get(x_97, 1); -lean_inc(x_98); -lean_dec(x_97); -x_99 = l_Lean_Elab_Term_getMainModule___rarg(x_98); -x_100 = lean_ctor_get(x_99, 1); -lean_inc(x_100); -lean_dec(x_99); -x_101 = l_Lean_mkCTermIdFrom(x_1, x_96); -x_102 = l_Array_empty___closed__1; -x_103 = lean_array_push(x_102, x_101); -x_104 = lean_unsigned_to_nat(2u); -x_105 = lean_unsigned_to_nat(0u); -x_106 = l_Array_foldlStepMAux___main___at_Lean_Elab_Term_elabParen___spec__1(x_104, x_10, x_105, x_102); -lean_dec(x_10); -x_107 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_106, x_106, x_105, x_102); -lean_dec(x_106); -x_108 = l_Lean_nullKind___closed__2; -x_109 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_109, 0, x_108); -lean_ctor_set(x_109, 1, x_107); -x_110 = lean_array_push(x_103, x_109); -x_111 = l_Lean_mkAppStx___closed__8; -x_112 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_112, 0, x_111); -lean_ctor_set(x_112, 1, x_110); -x_113 = lean_ctor_get(x_3, 0); -lean_inc(x_113); -x_114 = lean_ctor_get(x_3, 1); -lean_inc(x_114); -x_115 = lean_ctor_get(x_3, 2); -lean_inc(x_115); -x_116 = lean_ctor_get(x_3, 3); -lean_inc(x_116); -x_117 = lean_ctor_get(x_3, 4); -lean_inc(x_117); -x_118 = lean_ctor_get(x_3, 5); +lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; uint8_t x_128; uint8_t x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; uint8_t x_134; lean_object* x_135; +x_101 = lean_ctor_get(x_58, 0); +lean_inc(x_101); +lean_dec(x_58); +x_102 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_37); +x_103 = lean_ctor_get(x_102, 1); +lean_inc(x_103); +lean_dec(x_102); +x_104 = l_Lean_Elab_Term_getMainModule___rarg(x_103); +x_105 = lean_ctor_get(x_104, 1); +lean_inc(x_105); +lean_dec(x_104); +x_106 = l_Lean_mkCTermIdFrom(x_1, x_101); +x_107 = l_Array_empty___closed__1; +x_108 = lean_array_push(x_107, x_106); +x_109 = lean_unsigned_to_nat(2u); +x_110 = lean_unsigned_to_nat(0u); +x_111 = l_Array_foldlStepMAux___main___at_Lean_Elab_Term_elabParen___spec__1(x_109, x_15, x_110, x_107); +lean_dec(x_15); +x_112 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_111, x_111, x_110, x_107); +lean_dec(x_111); +x_113 = l_Lean_nullKind___closed__2; +x_114 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_114, 0, x_113); +lean_ctor_set(x_114, 1, x_112); +x_115 = lean_array_push(x_108, x_114); +x_116 = l_Lean_mkAppStx___closed__8; +x_117 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_117, 0, x_116); +lean_ctor_set(x_117, 1, x_115); +x_118 = lean_ctor_get(x_3, 0); lean_inc(x_118); -x_119 = lean_ctor_get(x_3, 6); +x_119 = lean_ctor_get(x_3, 1); lean_inc(x_119); -x_120 = lean_ctor_get(x_3, 7); +x_120 = lean_ctor_get(x_3, 2); lean_inc(x_120); -x_121 = lean_ctor_get(x_3, 8); +x_121 = lean_ctor_get(x_3, 3); lean_inc(x_121); -x_122 = lean_ctor_get(x_3, 9); +x_122 = lean_ctor_get(x_3, 4); lean_inc(x_122); -x_123 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); -x_124 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); +x_123 = lean_ctor_get(x_3, 5); +lean_inc(x_123); +x_124 = lean_ctor_get(x_3, 6); +lean_inc(x_124); +x_125 = lean_ctor_get(x_3, 7); +lean_inc(x_125); +x_126 = lean_ctor_get(x_3, 8); +lean_inc(x_126); +x_127 = lean_ctor_get(x_3, 9); +lean_inc(x_127); +x_128 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); +x_129 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); if (lean_is_exclusive(x_3)) { lean_ctor_release(x_3, 0); lean_ctor_release(x_3, 1); @@ -3324,152 +3172,152 @@ if (lean_is_exclusive(x_3)) { lean_ctor_release(x_3, 7); lean_ctor_release(x_3, 8); lean_ctor_release(x_3, 9); - x_125 = x_3; + x_130 = x_3; } else { lean_dec_ref(x_3); - x_125 = lean_box(0); + x_130 = lean_box(0); } -lean_inc(x_112); -x_126 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_126, 0, x_1); -lean_ctor_set(x_126, 1, x_112); -x_127 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_127, 0, x_126); -lean_ctor_set(x_127, 1, x_121); -if (lean_is_scalar(x_125)) { - x_128 = lean_alloc_ctor(0, 10, 2); +lean_inc(x_117); +x_131 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_131, 0, x_1); +lean_ctor_set(x_131, 1, x_117); +x_132 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_132, 0, x_131); +lean_ctor_set(x_132, 1, x_126); +if (lean_is_scalar(x_130)) { + x_133 = lean_alloc_ctor(0, 10, 2); } else { - x_128 = x_125; + x_133 = x_130; } -lean_ctor_set(x_128, 0, x_113); -lean_ctor_set(x_128, 1, x_114); -lean_ctor_set(x_128, 2, x_115); -lean_ctor_set(x_128, 3, x_116); -lean_ctor_set(x_128, 4, x_117); -lean_ctor_set(x_128, 5, x_118); -lean_ctor_set(x_128, 6, x_119); -lean_ctor_set(x_128, 7, x_120); -lean_ctor_set(x_128, 8, x_127); -lean_ctor_set(x_128, 9, x_122); -lean_ctor_set_uint8(x_128, sizeof(void*)*10, x_123); -lean_ctor_set_uint8(x_128, sizeof(void*)*10 + 1, x_124); -x_129 = 1; -x_130 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_129, x_112, x_128, x_100); -return x_130; +lean_ctor_set(x_133, 0, x_118); +lean_ctor_set(x_133, 1, x_119); +lean_ctor_set(x_133, 2, x_120); +lean_ctor_set(x_133, 3, x_121); +lean_ctor_set(x_133, 4, x_122); +lean_ctor_set(x_133, 5, x_123); +lean_ctor_set(x_133, 6, x_124); +lean_ctor_set(x_133, 7, x_125); +lean_ctor_set(x_133, 8, x_132); +lean_ctor_set(x_133, 9, x_127); +lean_ctor_set_uint8(x_133, sizeof(void*)*10, x_128); +lean_ctor_set_uint8(x_133, sizeof(void*)*10 + 1, x_129); +x_134 = 1; +x_135 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_134, x_117, x_133, x_105); +return x_135; } } else { -lean_object* x_131; -lean_dec(x_55); -lean_dec(x_53); -lean_dec(x_10); +lean_object* x_136; +lean_dec(x_60); +lean_dec(x_58); +lean_dec(x_15); lean_dec(x_2); -x_131 = lean_box(0); -x_41 = x_131; -goto block_48; +x_136 = lean_box(0); +x_46 = x_136; +goto block_53; } } } else { -lean_object* x_132; -lean_dec(x_51); -lean_dec(x_10); +lean_object* x_137; +lean_dec(x_56); +lean_dec(x_15); lean_dec(x_2); -x_132 = lean_box(0); -x_33 = x_132; -goto block_40; +x_137 = lean_box(0); +x_38 = x_137; +goto block_45; } } -block_40: +block_45: { -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_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; +lean_dec(x_38); +x_39 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_39, 0, x_34); +x_40 = l_Lean_Elab_Term_elabAnonymousCtor___closed__9; +x_41 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_41, 0, x_40); +lean_ctor_set(x_41, 1, x_39); +x_42 = l_Lean_Elab_Term_elabAnonymousCtor___closed__12; +x_43 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_43, 0, x_41); +lean_ctor_set(x_43, 1, x_42); +x_44 = l_Lean_Elab_Term_throwError___rarg(x_1, x_43, x_3, x_37); +lean_dec(x_1); +return x_44; +} +block_53: +{ +lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; +lean_dec(x_46); +x_47 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_47, 0, x_34); +x_48 = l_Lean_Elab_Term_elabAnonymousCtor___closed__9; +x_49 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_49, 0, x_48); +lean_ctor_set(x_49, 1, x_47); +x_50 = l_Lean_Elab_Term_elabAnonymousCtor___closed__15; +x_51 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_51, 0, x_49); +lean_ctor_set(x_51, 1, x_50); +x_52 = l_Lean_Elab_Term_throwError___rarg(x_1, x_51, x_3, x_37); +lean_dec(x_1); +return x_52; +} +} +else +{ +lean_object* x_138; lean_dec(x_33); -x_34 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_34, 0, x_29); -x_35 = l_Lean_Elab_Term_elabAnonymousCtor___closed__9; -x_36 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_36, 0, x_35); -lean_ctor_set(x_36, 1, x_34); -x_37 = l_Lean_Elab_Term_elabAnonymousCtor___closed__12; -x_38 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_38, 0, x_36); -lean_ctor_set(x_38, 1, x_37); -x_39 = l_Lean_Elab_Term_throwError___rarg(x_1, x_38, x_3, x_32); -lean_dec(x_1); -return x_39; -} -block_48: -{ -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_dec(x_41); -x_42 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_42, 0, x_29); -x_43 = l_Lean_Elab_Term_elabAnonymousCtor___closed__9; -x_44 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_44, 0, x_43); -lean_ctor_set(x_44, 1, x_42); -x_45 = l_Lean_Elab_Term_elabAnonymousCtor___closed__15; -x_46 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_46, 0, x_44); -lean_ctor_set(x_46, 1, x_45); -x_47 = l_Lean_Elab_Term_throwError___rarg(x_1, x_46, x_3, x_32); -lean_dec(x_1); -return x_47; -} -} -else -{ -lean_object* x_133; -lean_dec(x_28); -lean_dec(x_10); +lean_dec(x_15); lean_dec(x_2); -x_133 = lean_box(0); -x_21 = x_133; -goto block_27; +x_138 = lean_box(0); +x_26 = x_138; +goto block_32; } -block_27: +block_32: { -lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; -lean_dec(x_21); -x_22 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_22, 0, x_20); -x_23 = l_Lean_indentExpr(x_22); -x_24 = l_Lean_Elab_Term_elabAnonymousCtor___closed__6; -x_25 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_25, 0, x_24); -lean_ctor_set(x_25, 1, x_23); -x_26 = l_Lean_Elab_Term_throwError___rarg(x_1, x_25, x_3, x_19); +lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; +lean_dec(x_26); +x_27 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_27, 0, x_25); +x_28 = l_Lean_indentExpr(x_27); +x_29 = l_Lean_Elab_Term_elabAnonymousCtor___closed__6; +x_30 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_30, 0, x_29); +lean_ctor_set(x_30, 1, x_28); +x_31 = l_Lean_Elab_Term_throwError___rarg(x_1, x_30, x_3, x_24); lean_dec(x_1); -return x_26; +return x_31; } } } else { -uint8_t x_134; -lean_dec(x_10); +uint8_t x_139; +lean_dec(x_15); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_134 = !lean_is_exclusive(x_11); -if (x_134 == 0) +x_139 = !lean_is_exclusive(x_16); +if (x_139 == 0) { -return x_11; +return x_16; } else { -lean_object* x_135; lean_object* x_136; lean_object* x_137; -x_135 = lean_ctor_get(x_11, 0); -x_136 = lean_ctor_get(x_11, 1); -lean_inc(x_136); -lean_inc(x_135); -lean_dec(x_11); -x_137 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_137, 0, x_135); -lean_ctor_set(x_137, 1, x_136); -return x_137; +lean_object* x_140; lean_object* x_141; lean_object* x_142; +x_140 = lean_ctor_get(x_16, 0); +x_141 = lean_ctor_get(x_16, 1); +lean_inc(x_141); +lean_inc(x_140); +lean_dec(x_16); +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; } } } @@ -3534,33 +3382,10 @@ return x_3; lean_object* l_Lean_Elab_Term_elabShow___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_110; uint8_t x_111; -x_110 = l_Lean_Parser_Term_show___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Term_show___elambda__1___closed__2; lean_inc(x_1); -x_111 = l_Lean_Syntax_isOfKind(x_1, x_110); -if (x_111 == 0) -{ -uint8_t x_112; -x_112 = 0; -x_4 = x_112; -goto block_109; -} -else -{ -lean_object* x_113; lean_object* x_114; lean_object* x_115; uint8_t x_116; -x_113 = l_Lean_Syntax_getArgs(x_1); -x_114 = lean_array_get_size(x_113); -lean_dec(x_113); -x_115 = lean_unsigned_to_nat(3u); -x_116 = lean_nat_dec_eq(x_114, x_115); -lean_dec(x_114); -x_4 = x_116; -goto block_109; -} -block_109: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; @@ -3570,197 +3395,208 @@ return x_6; } else { -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; lean_object* x_103; uint8_t x_104; -x_7 = lean_unsigned_to_nat(1u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); -x_9 = lean_unsigned_to_nat(2u); -x_10 = l_Lean_Syntax_getArg(x_1, x_9); -x_103 = l_Lean_Parser_Term_fromTerm___elambda__1___closed__2; -lean_inc(x_10); -x_104 = l_Lean_Syntax_isOfKind(x_10, x_103); -if (x_104 == 0) -{ -uint8_t x_105; -x_105 = 0; -x_11 = x_105; -goto block_102; -} -else -{ -lean_object* x_106; lean_object* x_107; uint8_t x_108; -x_106 = l_Lean_Syntax_getArgs(x_10); -x_107 = lean_array_get_size(x_106); -lean_dec(x_106); -x_108 = lean_nat_dec_eq(x_107, x_9); -lean_dec(x_107); -x_11 = x_108; -goto block_102; -} -block_102: -{ -uint8_t x_12; -x_12 = l_coeDecidableEq(x_11); -if (x_12 == 0) -{ -lean_object* x_13; -lean_dec(x_10); +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(3u); +x_10 = lean_nat_dec_eq(x_8, x_9); lean_dec(x_8); +if (x_10 == 0) +{ +lean_object* x_11; lean_dec(x_1); -x_13 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); -return x_13; +x_11 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_11; } else { -lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; -x_14 = l_Lean_Syntax_getArg(x_10, x_7); -lean_dec(x_10); -x_15 = l_Lean_Elab_Term_elabShow___lambda__1___closed__2; -x_16 = l_Lean_mkTermIdFrom(x_1, x_15); -lean_dec(x_1); -x_17 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); -x_18 = lean_ctor_get(x_17, 1); -lean_inc(x_18); -lean_dec(x_17); -x_19 = l_Lean_Elab_Term_getMainModule___rarg(x_18); -x_20 = !lean_is_exclusive(x_19); -if (x_20 == 0) +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; uint8_t x_17; +x_12 = lean_unsigned_to_nat(1u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); +x_14 = lean_unsigned_to_nat(2u); +x_15 = l_Lean_Syntax_getArg(x_1, x_14); +x_16 = l_Lean_Parser_Term_fromTerm___elambda__1___closed__2; +lean_inc(x_15); +x_17 = l_Lean_Syntax_isOfKind(x_15, x_16); +if (x_17 == 0) { -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; 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_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; -x_21 = lean_ctor_get(x_19, 0); -lean_dec(x_21); -x_22 = l_Array_empty___closed__1; -lean_inc(x_16); -x_23 = lean_array_push(x_22, x_16); -x_24 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; -x_25 = lean_array_push(x_24, x_8); -x_26 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; -x_27 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_27, 0, x_26); -lean_ctor_set(x_27, 1, x_25); -x_28 = lean_array_push(x_22, x_27); -x_29 = l_Lean_nullKind___closed__2; -x_30 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_30, 0, x_29); -lean_ctor_set(x_30, 1, x_28); -x_31 = lean_array_push(x_23, x_30); -x_32 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_32, 0, x_29); -lean_ctor_set(x_32, 1, x_31); -x_33 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_34 = lean_array_push(x_33, x_32); -x_35 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_36 = lean_array_push(x_34, x_35); -x_37 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_38 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_38, 0, x_37); -lean_ctor_set(x_38, 1, x_36); -x_39 = lean_array_push(x_22, x_38); -x_40 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_40, 0, x_29); -lean_ctor_set(x_40, 1, x_39); -x_41 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_42 = lean_array_push(x_41, x_40); -x_43 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_44 = lean_array_push(x_42, x_43); -x_45 = lean_array_push(x_44, x_16); -x_46 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +lean_object* x_18; +lean_dec(x_15); +lean_dec(x_13); +lean_dec(x_1); +x_18 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_18; +} +else +{ +lean_object* x_19; lean_object* x_20; uint8_t x_21; +x_19 = l_Lean_Syntax_getArgs(x_15); +x_20 = lean_array_get_size(x_19); +lean_dec(x_19); +x_21 = lean_nat_dec_eq(x_20, x_14); +lean_dec(x_20); +if (x_21 == 0) +{ +lean_object* x_22; +lean_dec(x_15); +lean_dec(x_13); +lean_dec(x_1); +x_22 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_22; +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; uint8_t x_29; +x_23 = l_Lean_Syntax_getArg(x_15, x_12); +lean_dec(x_15); +x_24 = l_Lean_Elab_Term_elabShow___lambda__1___closed__2; +x_25 = l_Lean_mkTermIdFrom(x_1, x_24); +lean_dec(x_1); +x_26 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); +x_27 = lean_ctor_get(x_26, 1); +lean_inc(x_27); +lean_dec(x_26); +x_28 = l_Lean_Elab_Term_getMainModule___rarg(x_27); +x_29 = !lean_is_exclusive(x_28); +if (x_29 == 0) +{ +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_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; +x_30 = lean_ctor_get(x_28, 0); +lean_dec(x_30); +x_31 = l_Array_empty___closed__1; +lean_inc(x_25); +x_32 = lean_array_push(x_31, x_25); +x_33 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; +x_34 = lean_array_push(x_33, x_13); +x_35 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_35); +lean_ctor_set(x_36, 1, x_34); +x_37 = lean_array_push(x_31, x_36); +x_38 = l_Lean_nullKind___closed__2; +x_39 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_39, 0, x_38); +lean_ctor_set(x_39, 1, x_37); +x_40 = lean_array_push(x_32, x_39); +x_41 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_41, 0, x_38); +lean_ctor_set(x_41, 1, x_40); +x_42 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_43 = lean_array_push(x_42, x_41); +x_44 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_45 = lean_array_push(x_43, x_44); +x_46 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; x_47 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_47, 0, x_46); lean_ctor_set(x_47, 1, x_45); -x_48 = lean_array_push(x_22, x_47); -x_49 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_50 = lean_array_push(x_48, x_49); -x_51 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_51, 0, x_29); -lean_ctor_set(x_51, 1, x_50); -x_52 = lean_array_push(x_33, x_51); -x_53 = lean_array_push(x_52, x_35); -x_54 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_54, 0, x_37); -lean_ctor_set(x_54, 1, x_53); -x_55 = lean_array_push(x_22, x_54); -x_56 = lean_array_push(x_22, x_14); -x_57 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_57, 0, x_29); -lean_ctor_set(x_57, 1, x_56); -x_58 = lean_array_push(x_55, x_57); -x_59 = l_Lean_mkAppStx___closed__8; +x_48 = lean_array_push(x_31, x_47); +x_49 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_49, 0, x_38); +lean_ctor_set(x_49, 1, x_48); +x_50 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_51 = lean_array_push(x_50, x_49); +x_52 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_53 = lean_array_push(x_51, x_52); +x_54 = lean_array_push(x_53, x_25); +x_55 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_56 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_56, 0, x_55); +lean_ctor_set(x_56, 1, x_54); +x_57 = lean_array_push(x_31, x_56); +x_58 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_59 = lean_array_push(x_57, x_58); x_60 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_60, 0, x_59); -lean_ctor_set(x_60, 1, x_58); -lean_ctor_set(x_19, 0, x_60); -return x_19; +lean_ctor_set(x_60, 0, x_38); +lean_ctor_set(x_60, 1, x_59); +x_61 = lean_array_push(x_42, x_60); +x_62 = lean_array_push(x_61, x_44); +x_63 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_63, 0, x_46); +lean_ctor_set(x_63, 1, x_62); +x_64 = lean_array_push(x_31, x_63); +x_65 = lean_array_push(x_31, x_23); +x_66 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_66, 0, x_38); +lean_ctor_set(x_66, 1, x_65); +x_67 = lean_array_push(x_64, x_66); +x_68 = l_Lean_mkAppStx___closed__8; +x_69 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_69, 0, x_68); +lean_ctor_set(x_69, 1, x_67); +lean_ctor_set(x_28, 0, x_69); +return x_28; } else { -lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; -x_61 = lean_ctor_get(x_19, 1); -lean_inc(x_61); -lean_dec(x_19); -x_62 = l_Array_empty___closed__1; -lean_inc(x_16); -x_63 = lean_array_push(x_62, x_16); -x_64 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; -x_65 = lean_array_push(x_64, x_8); -x_66 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; -x_67 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_67, 0, x_66); -lean_ctor_set(x_67, 1, x_65); -x_68 = lean_array_push(x_62, x_67); -x_69 = l_Lean_nullKind___closed__2; -x_70 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_70, 0, x_69); -lean_ctor_set(x_70, 1, x_68); -x_71 = lean_array_push(x_63, x_70); -x_72 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_72, 0, x_69); -lean_ctor_set(x_72, 1, x_71); -x_73 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_74 = lean_array_push(x_73, x_72); -x_75 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_76 = lean_array_push(x_74, x_75); -x_77 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_78 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_78, 0, x_77); -lean_ctor_set(x_78, 1, x_76); -x_79 = lean_array_push(x_62, x_78); -x_80 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_80, 0, x_69); -lean_ctor_set(x_80, 1, x_79); -x_81 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_82 = lean_array_push(x_81, x_80); -x_83 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_84 = lean_array_push(x_82, x_83); -x_85 = lean_array_push(x_84, x_16); -x_86 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; +x_70 = lean_ctor_get(x_28, 1); +lean_inc(x_70); +lean_dec(x_28); +x_71 = l_Array_empty___closed__1; +lean_inc(x_25); +x_72 = lean_array_push(x_71, x_25); +x_73 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; +x_74 = lean_array_push(x_73, x_13); +x_75 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +x_76 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_76, 0, x_75); +lean_ctor_set(x_76, 1, x_74); +x_77 = lean_array_push(x_71, x_76); +x_78 = l_Lean_nullKind___closed__2; +x_79 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_79, 0, x_78); +lean_ctor_set(x_79, 1, x_77); +x_80 = lean_array_push(x_72, x_79); +x_81 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_81, 0, x_78); +lean_ctor_set(x_81, 1, x_80); +x_82 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_83 = lean_array_push(x_82, x_81); +x_84 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_85 = lean_array_push(x_83, x_84); +x_86 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; x_87 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_87, 0, x_86); lean_ctor_set(x_87, 1, x_85); -x_88 = lean_array_push(x_62, x_87); -x_89 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_90 = lean_array_push(x_88, x_89); -x_91 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_91, 0, x_69); -lean_ctor_set(x_91, 1, x_90); -x_92 = lean_array_push(x_73, x_91); -x_93 = lean_array_push(x_92, x_75); -x_94 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_94, 0, x_77); -lean_ctor_set(x_94, 1, x_93); -x_95 = lean_array_push(x_62, x_94); -x_96 = lean_array_push(x_62, x_14); -x_97 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_97, 0, x_69); -lean_ctor_set(x_97, 1, x_96); -x_98 = lean_array_push(x_95, x_97); -x_99 = l_Lean_mkAppStx___closed__8; +x_88 = lean_array_push(x_71, x_87); +x_89 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_89, 0, x_78); +lean_ctor_set(x_89, 1, x_88); +x_90 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_91 = lean_array_push(x_90, x_89); +x_92 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_93 = lean_array_push(x_91, x_92); +x_94 = lean_array_push(x_93, x_25); +x_95 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_96 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_96, 0, x_95); +lean_ctor_set(x_96, 1, x_94); +x_97 = lean_array_push(x_71, x_96); +x_98 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_99 = lean_array_push(x_97, x_98); x_100 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_100, 0, x_99); -lean_ctor_set(x_100, 1, x_98); -x_101 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_101, 0, x_100); -lean_ctor_set(x_101, 1, x_61); -return x_101; +lean_ctor_set(x_100, 0, x_78); +lean_ctor_set(x_100, 1, x_99); +x_101 = lean_array_push(x_82, x_100); +x_102 = lean_array_push(x_101, x_84); +x_103 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_103, 0, x_86); +lean_ctor_set(x_103, 1, x_102); +x_104 = lean_array_push(x_71, x_103); +x_105 = lean_array_push(x_71, x_23); +x_106 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_106, 0, x_78); +lean_ctor_set(x_106, 1, x_105); +x_107 = lean_array_push(x_104, x_106); +x_108 = l_Lean_mkAppStx___closed__8; +x_109 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_109, 0, x_108); +lean_ctor_set(x_109, 1, x_107); +x_110 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_110, 0, x_109); +lean_ctor_set(x_110, 1, x_70); +return x_110; } } } @@ -3834,33 +3670,10 @@ return x_5; lean_object* l_Lean_Elab_Term_elabHave___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_445; uint8_t x_446; -x_445 = l_Lean_Parser_Term_have___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Term_have___elambda__1___closed__2; lean_inc(x_1); -x_446 = l_Lean_Syntax_isOfKind(x_1, x_445); -if (x_446 == 0) -{ -uint8_t x_447; -x_447 = 0; -x_4 = x_447; -goto block_444; -} -else -{ -lean_object* x_448; lean_object* x_449; lean_object* x_450; uint8_t x_451; -x_448 = l_Lean_Syntax_getArgs(x_1); -x_449 = lean_array_get_size(x_448); -lean_dec(x_448); -x_450 = lean_unsigned_to_nat(6u); -x_451 = lean_nat_dec_eq(x_449, x_450); -lean_dec(x_449); -x_4 = x_451; -goto block_444; -} -block_444: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; @@ -3870,849 +3683,815 @@ return x_6; } else { -lean_object* x_7; lean_object* x_8; uint8_t x_9; lean_object* x_230; uint8_t x_231; uint8_t x_232; -x_7 = lean_unsigned_to_nat(1u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); -x_230 = l_Lean_nullKind___closed__2; -lean_inc(x_8); -x_231 = l_Lean_Syntax_isOfKind(x_8, x_230); -if (x_231 == 0) -{ -uint8_t x_439; -x_439 = 0; -x_232 = x_439; -goto block_438; -} -else -{ -lean_object* x_440; lean_object* x_441; lean_object* x_442; uint8_t x_443; -x_440 = l_Lean_Syntax_getArgs(x_8); -x_441 = lean_array_get_size(x_440); -lean_dec(x_440); -x_442 = lean_unsigned_to_nat(0u); -x_443 = lean_nat_dec_eq(x_441, x_442); -lean_dec(x_441); -x_232 = x_443; -goto block_438; -} -block_229: -{ -uint8_t x_10; -x_10 = l_coeDecidableEq(x_9); +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(6u); +x_10 = lean_nat_dec_eq(x_8, x_9); +lean_dec(x_8); if (x_10 == 0) { lean_object* x_11; -lean_dec(x_8); lean_dec(x_1); x_11 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); return x_11; } else { -lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; uint8_t x_18; uint8_t x_118; lean_object* x_223; uint8_t x_224; -x_12 = lean_unsigned_to_nat(0u); -x_13 = l_Lean_Syntax_getArg(x_8, x_12); -lean_dec(x_8); -x_14 = lean_unsigned_to_nat(2u); -x_15 = l_Lean_Syntax_getArg(x_1, x_14); -x_16 = lean_unsigned_to_nat(3u); -x_17 = l_Lean_Syntax_getArg(x_1, x_16); -x_223 = l_Lean_Parser_Term_fromTerm___elambda__1___closed__2; -lean_inc(x_17); -x_224 = l_Lean_Syntax_isOfKind(x_17, x_223); -if (x_224 == 0) +lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15; +x_12 = lean_unsigned_to_nat(1u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); +x_14 = l_Lean_nullKind___closed__2; +lean_inc(x_13); +x_15 = l_Lean_Syntax_isOfKind(x_13, x_14); +if (x_15 == 0) { -uint8_t x_225; -x_225 = 0; -x_118 = x_225; -goto block_222; -} -else -{ -lean_object* x_226; lean_object* x_227; uint8_t x_228; -x_226 = l_Lean_Syntax_getArgs(x_17); -x_227 = lean_array_get_size(x_226); -lean_dec(x_226); -x_228 = lean_nat_dec_eq(x_227, x_14); -lean_dec(x_227); -x_118 = x_228; -goto block_222; -} -block_117: -{ -uint8_t x_19; -x_19 = l_coeDecidableEq(x_18); -if (x_19 == 0) -{ -lean_object* x_20; -lean_dec(x_17); -lean_dec(x_15); +lean_object* x_16; lean_dec(x_13); lean_dec(x_1); -x_20 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); -return x_20; +x_16 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_16; } else { -lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; uint8_t x_27; -x_21 = l_Lean_Syntax_getArg(x_17, x_7); +lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; +x_17 = l_Lean_Syntax_getArgs(x_13); +x_18 = lean_array_get_size(x_17); lean_dec(x_17); -x_22 = lean_unsigned_to_nat(5u); -x_23 = l_Lean_Syntax_getArg(x_1, x_22); -lean_dec(x_1); -x_24 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); -x_25 = lean_ctor_get(x_24, 1); -lean_inc(x_25); -lean_dec(x_24); -x_26 = l_Lean_Elab_Term_getMainModule___rarg(x_25); -x_27 = !lean_is_exclusive(x_26); -if (x_27 == 0) +x_19 = lean_unsigned_to_nat(0u); +x_20 = lean_nat_dec_eq(x_18, x_19); +if (x_20 == 0) { -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_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; -x_28 = lean_ctor_get(x_26, 0); -lean_dec(x_28); -x_29 = l_Array_empty___closed__1; -x_30 = lean_array_push(x_29, x_13); -x_31 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_32 = lean_array_push(x_30, x_31); -x_33 = l_Lean_mkTermIdFromIdent___closed__2; -x_34 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_34, 0, x_33); -lean_ctor_set(x_34, 1, x_32); -x_35 = lean_array_push(x_29, x_34); -x_36 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; -x_37 = lean_array_push(x_36, x_15); -x_38 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; -x_39 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_39, 0, x_38); -lean_ctor_set(x_39, 1, x_37); -x_40 = lean_array_push(x_29, x_39); -x_41 = l_Lean_nullKind___closed__2; -x_42 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_42, 0, x_41); -lean_ctor_set(x_42, 1, x_40); -x_43 = lean_array_push(x_35, x_42); -x_44 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_44, 0, x_41); -lean_ctor_set(x_44, 1, x_43); -x_45 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_46 = lean_array_push(x_45, x_44); -x_47 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +lean_object* x_21; uint8_t x_22; +x_21 = lean_unsigned_to_nat(2u); +x_22 = lean_nat_dec_eq(x_18, x_21); +lean_dec(x_18); +if (x_22 == 0) +{ +lean_object* x_23; +lean_dec(x_13); +lean_dec(x_1); +x_23 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_23; +} +else +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; uint8_t x_29; +x_24 = l_Lean_Syntax_getArg(x_13, x_19); +lean_dec(x_13); +x_25 = l_Lean_Syntax_getArg(x_1, x_21); +x_26 = lean_unsigned_to_nat(3u); +x_27 = l_Lean_Syntax_getArg(x_1, x_26); +x_28 = l_Lean_Parser_Term_fromTerm___elambda__1___closed__2; +lean_inc(x_27); +x_29 = l_Lean_Syntax_isOfKind(x_27, x_28); +if (x_29 == 0) +{ +lean_object* x_30; uint8_t x_31; +x_30 = l_Lean_Parser_Term_haveAssign___elambda__1___closed__2; +lean_inc(x_27); +x_31 = l_Lean_Syntax_isOfKind(x_27, x_30); +if (x_31 == 0) +{ +lean_object* x_32; +lean_dec(x_27); +lean_dec(x_25); +lean_dec(x_24); +lean_dec(x_1); +x_32 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_32; +} +else +{ +lean_object* x_33; lean_object* x_34; uint8_t x_35; +x_33 = l_Lean_Syntax_getArgs(x_27); +x_34 = lean_array_get_size(x_33); +lean_dec(x_33); +x_35 = lean_nat_dec_eq(x_34, x_21); +lean_dec(x_34); +if (x_35 == 0) +{ +lean_object* x_36; +lean_dec(x_27); +lean_dec(x_25); +lean_dec(x_24); +lean_dec(x_1); +x_36 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_36; +} +else +{ +lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; uint8_t x_43; +x_37 = l_Lean_Syntax_getArg(x_27, x_12); +lean_dec(x_27); +x_38 = lean_unsigned_to_nat(5u); +x_39 = l_Lean_Syntax_getArg(x_1, x_38); +lean_dec(x_1); +x_40 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); +x_41 = lean_ctor_get(x_40, 1); +lean_inc(x_41); +lean_dec(x_40); +x_42 = l_Lean_Elab_Term_getMainModule___rarg(x_41); +x_43 = !lean_is_exclusive(x_42); +if (x_43 == 0) +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; +x_44 = lean_ctor_get(x_42, 0); +lean_dec(x_44); +x_45 = l_Array_empty___closed__1; +x_46 = lean_array_push(x_45, x_24); +x_47 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; x_48 = lean_array_push(x_46, x_47); -x_49 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_49 = l_Lean_mkTermIdFromIdent___closed__2; x_50 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_50, 0, x_49); lean_ctor_set(x_50, 1, x_48); -x_51 = lean_array_push(x_29, x_50); -x_52 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_52, 0, x_41); -lean_ctor_set(x_52, 1, x_51); -x_53 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_54 = lean_array_push(x_53, x_52); -x_55 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_56 = lean_array_push(x_54, x_55); -x_57 = lean_array_push(x_56, x_23); -x_58 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_51 = lean_array_push(x_45, x_50); +x_52 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; +x_53 = lean_array_push(x_52, x_25); +x_54 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +x_55 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_55, 0, x_54); +lean_ctor_set(x_55, 1, x_53); +x_56 = lean_array_push(x_45, x_55); +x_57 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_57, 0, x_14); +lean_ctor_set(x_57, 1, x_56); +x_58 = lean_array_push(x_51, x_57); x_59 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_59, 0, x_58); -lean_ctor_set(x_59, 1, x_57); -x_60 = lean_array_push(x_29, x_59); -x_61 = lean_array_push(x_60, x_31); -x_62 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_62, 0, x_41); -lean_ctor_set(x_62, 1, x_61); -x_63 = lean_array_push(x_45, x_62); -x_64 = lean_array_push(x_63, x_47); +lean_ctor_set(x_59, 0, x_14); +lean_ctor_set(x_59, 1, x_58); +x_60 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_61 = lean_array_push(x_60, x_59); +x_62 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_63 = lean_array_push(x_61, x_62); +x_64 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; x_65 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_65, 0, x_49); -lean_ctor_set(x_65, 1, x_64); -x_66 = lean_array_push(x_29, x_65); -x_67 = lean_array_push(x_29, x_21); -x_68 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_68, 0, x_41); -lean_ctor_set(x_68, 1, x_67); -x_69 = lean_array_push(x_66, x_68); -x_70 = l_Lean_mkAppStx___closed__8; -x_71 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_71, 0, x_70); -lean_ctor_set(x_71, 1, x_69); -lean_ctor_set(x_26, 0, x_71); -return x_26; -} -else -{ -lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; -x_72 = lean_ctor_get(x_26, 1); -lean_inc(x_72); -lean_dec(x_26); -x_73 = l_Array_empty___closed__1; -x_74 = lean_array_push(x_73, x_13); -x_75 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_76 = lean_array_push(x_74, x_75); -x_77 = l_Lean_mkTermIdFromIdent___closed__2; -x_78 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_78, 0, x_77); -lean_ctor_set(x_78, 1, x_76); -x_79 = lean_array_push(x_73, x_78); -x_80 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; -x_81 = lean_array_push(x_80, x_15); -x_82 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +lean_ctor_set(x_65, 0, x_64); +lean_ctor_set(x_65, 1, x_63); +x_66 = lean_array_push(x_45, x_65); +x_67 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_67, 0, x_14); +lean_ctor_set(x_67, 1, x_66); +x_68 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_69 = lean_array_push(x_68, x_67); +x_70 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_71 = lean_array_push(x_69, x_70); +x_72 = lean_array_push(x_71, x_39); +x_73 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_74 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_74, 0, x_73); +lean_ctor_set(x_74, 1, x_72); +x_75 = lean_array_push(x_45, x_74); +x_76 = lean_array_push(x_75, x_47); +x_77 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_77, 0, x_14); +lean_ctor_set(x_77, 1, x_76); +x_78 = lean_array_push(x_60, x_77); +x_79 = lean_array_push(x_78, x_62); +x_80 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_80, 0, x_64); +lean_ctor_set(x_80, 1, x_79); +x_81 = lean_array_push(x_45, x_80); +x_82 = lean_array_push(x_45, x_37); x_83 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_83, 0, x_82); -lean_ctor_set(x_83, 1, x_81); -x_84 = lean_array_push(x_73, x_83); -x_85 = l_Lean_nullKind___closed__2; +lean_ctor_set(x_83, 0, x_14); +lean_ctor_set(x_83, 1, x_82); +x_84 = lean_array_push(x_81, x_83); +x_85 = l_Lean_mkAppStx___closed__8; x_86 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_86, 0, x_85); lean_ctor_set(x_86, 1, x_84); -x_87 = lean_array_push(x_79, x_86); -x_88 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_88, 0, x_85); -lean_ctor_set(x_88, 1, x_87); -x_89 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_90 = lean_array_push(x_89, x_88); -x_91 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_92 = lean_array_push(x_90, x_91); -x_93 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_94 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_94, 0, x_93); -lean_ctor_set(x_94, 1, x_92); -x_95 = lean_array_push(x_73, x_94); -x_96 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_96, 0, x_85); -lean_ctor_set(x_96, 1, x_95); -x_97 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_98 = lean_array_push(x_97, x_96); -x_99 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_100 = lean_array_push(x_98, x_99); -x_101 = lean_array_push(x_100, x_23); -x_102 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_103 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_103, 0, x_102); -lean_ctor_set(x_103, 1, x_101); -x_104 = lean_array_push(x_73, x_103); -x_105 = lean_array_push(x_104, x_75); -x_106 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_106, 0, x_85); -lean_ctor_set(x_106, 1, x_105); -x_107 = lean_array_push(x_89, x_106); -x_108 = lean_array_push(x_107, x_91); -x_109 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_109, 0, x_93); -lean_ctor_set(x_109, 1, x_108); -x_110 = lean_array_push(x_73, x_109); -x_111 = lean_array_push(x_73, x_21); -x_112 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_112, 0, x_85); -lean_ctor_set(x_112, 1, x_111); -x_113 = lean_array_push(x_110, x_112); -x_114 = l_Lean_mkAppStx___closed__8; -x_115 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_115, 0, x_114); -lean_ctor_set(x_115, 1, x_113); -x_116 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_116, 0, x_115); -lean_ctor_set(x_116, 1, x_72); -return x_116; -} -} -} -block_222: -{ -uint8_t x_119; -x_119 = l_coeDecidableEq(x_118); -if (x_119 == 0) -{ -lean_object* x_120; uint8_t x_121; -x_120 = l_Lean_Parser_Term_haveAssign___elambda__1___closed__2; -lean_inc(x_17); -x_121 = l_Lean_Syntax_isOfKind(x_17, x_120); -if (x_121 == 0) -{ -uint8_t x_122; -x_122 = 0; -x_18 = x_122; -goto block_117; +lean_ctor_set(x_42, 0, x_86); +return x_42; } else { -lean_object* x_123; lean_object* x_124; uint8_t x_125; -x_123 = l_Lean_Syntax_getArgs(x_17); -x_124 = lean_array_get_size(x_123); -lean_dec(x_123); -x_125 = lean_nat_dec_eq(x_124, x_14); -lean_dec(x_124); -x_18 = x_125; -goto block_117; +lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; +x_87 = lean_ctor_get(x_42, 1); +lean_inc(x_87); +lean_dec(x_42); +x_88 = l_Array_empty___closed__1; +x_89 = lean_array_push(x_88, x_24); +x_90 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_91 = lean_array_push(x_89, x_90); +x_92 = l_Lean_mkTermIdFromIdent___closed__2; +x_93 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_93, 0, x_92); +lean_ctor_set(x_93, 1, x_91); +x_94 = lean_array_push(x_88, x_93); +x_95 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; +x_96 = lean_array_push(x_95, x_25); +x_97 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +x_98 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_98, 0, x_97); +lean_ctor_set(x_98, 1, x_96); +x_99 = lean_array_push(x_88, x_98); +x_100 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_100, 0, x_14); +lean_ctor_set(x_100, 1, x_99); +x_101 = lean_array_push(x_94, x_100); +x_102 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_102, 0, x_14); +lean_ctor_set(x_102, 1, x_101); +x_103 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_104 = lean_array_push(x_103, x_102); +x_105 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_106 = lean_array_push(x_104, x_105); +x_107 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_108 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_108, 0, x_107); +lean_ctor_set(x_108, 1, x_106); +x_109 = lean_array_push(x_88, x_108); +x_110 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_110, 0, x_14); +lean_ctor_set(x_110, 1, x_109); +x_111 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_112 = lean_array_push(x_111, x_110); +x_113 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_114 = lean_array_push(x_112, x_113); +x_115 = lean_array_push(x_114, x_39); +x_116 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_117 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_117, 0, x_116); +lean_ctor_set(x_117, 1, x_115); +x_118 = lean_array_push(x_88, x_117); +x_119 = lean_array_push(x_118, x_90); +x_120 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_120, 0, x_14); +lean_ctor_set(x_120, 1, x_119); +x_121 = lean_array_push(x_103, x_120); +x_122 = lean_array_push(x_121, x_105); +x_123 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_123, 0, x_107); +lean_ctor_set(x_123, 1, x_122); +x_124 = lean_array_push(x_88, x_123); +x_125 = lean_array_push(x_88, x_37); +x_126 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_126, 0, x_14); +lean_ctor_set(x_126, 1, x_125); +x_127 = lean_array_push(x_124, x_126); +x_128 = l_Lean_mkAppStx___closed__8; +x_129 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_129, 0, x_128); +lean_ctor_set(x_129, 1, x_127); +x_130 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_130, 0, x_129); +lean_ctor_set(x_130, 1, x_87); +return x_130; +} +} } } else { -lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; uint8_t x_132; -x_126 = l_Lean_Syntax_getArg(x_17, x_7); -lean_dec(x_17); -x_127 = lean_unsigned_to_nat(5u); -x_128 = l_Lean_Syntax_getArg(x_1, x_127); -lean_dec(x_1); -x_129 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); -x_130 = lean_ctor_get(x_129, 1); -lean_inc(x_130); -lean_dec(x_129); -x_131 = l_Lean_Elab_Term_getMainModule___rarg(x_130); -x_132 = !lean_is_exclusive(x_131); -if (x_132 == 0) -{ -lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; -x_133 = lean_ctor_get(x_131, 0); -lean_dec(x_133); -x_134 = l_Array_empty___closed__1; -x_135 = lean_array_push(x_134, x_13); -x_136 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_137 = lean_array_push(x_135, x_136); -x_138 = l_Lean_mkTermIdFromIdent___closed__2; -x_139 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_139, 0, x_138); -lean_ctor_set(x_139, 1, x_137); -x_140 = lean_array_push(x_134, x_139); -x_141 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; -x_142 = lean_array_push(x_141, x_15); -x_143 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; -x_144 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_144, 0, x_143); -lean_ctor_set(x_144, 1, x_142); -x_145 = lean_array_push(x_134, x_144); -x_146 = l_Lean_nullKind___closed__2; -x_147 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_147, 0, x_146); -lean_ctor_set(x_147, 1, x_145); -x_148 = lean_array_push(x_140, x_147); -x_149 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_149, 0, x_146); -lean_ctor_set(x_149, 1, x_148); -x_150 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_151 = lean_array_push(x_150, x_149); -x_152 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_153 = lean_array_push(x_151, x_152); -x_154 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_155 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_155, 0, x_154); -lean_ctor_set(x_155, 1, x_153); -x_156 = lean_array_push(x_134, x_155); -x_157 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_157, 0, x_146); -lean_ctor_set(x_157, 1, x_156); -x_158 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_159 = lean_array_push(x_158, x_157); -x_160 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_161 = lean_array_push(x_159, x_160); -x_162 = lean_array_push(x_161, x_128); -x_163 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_164 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_164, 0, x_163); -lean_ctor_set(x_164, 1, x_162); -x_165 = lean_array_push(x_134, x_164); -x_166 = lean_array_push(x_165, x_136); -x_167 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_167, 0, x_146); -lean_ctor_set(x_167, 1, x_166); -x_168 = lean_array_push(x_150, x_167); -x_169 = lean_array_push(x_168, x_152); -x_170 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_170, 0, x_154); -lean_ctor_set(x_170, 1, x_169); -x_171 = lean_array_push(x_134, x_170); -x_172 = lean_array_push(x_134, x_126); -x_173 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_173, 0, x_146); -lean_ctor_set(x_173, 1, x_172); -x_174 = lean_array_push(x_171, x_173); -x_175 = l_Lean_mkAppStx___closed__8; -x_176 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_176, 0, x_175); -lean_ctor_set(x_176, 1, x_174); -lean_ctor_set(x_131, 0, x_176); -return x_131; -} -else -{ -lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; -x_177 = lean_ctor_get(x_131, 1); -lean_inc(x_177); +lean_object* x_131; lean_object* x_132; uint8_t x_133; +x_131 = l_Lean_Syntax_getArgs(x_27); +x_132 = lean_array_get_size(x_131); lean_dec(x_131); -x_178 = l_Array_empty___closed__1; -x_179 = lean_array_push(x_178, x_13); -x_180 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_181 = lean_array_push(x_179, x_180); -x_182 = l_Lean_mkTermIdFromIdent___closed__2; -x_183 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_183, 0, x_182); -lean_ctor_set(x_183, 1, x_181); -x_184 = lean_array_push(x_178, x_183); -x_185 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; -x_186 = lean_array_push(x_185, x_15); -x_187 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; -x_188 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_188, 0, x_187); -lean_ctor_set(x_188, 1, x_186); -x_189 = lean_array_push(x_178, x_188); -x_190 = l_Lean_nullKind___closed__2; +x_133 = lean_nat_dec_eq(x_132, x_21); +lean_dec(x_132); +if (x_133 == 0) +{ +lean_object* x_134; +lean_dec(x_27); +lean_dec(x_25); +lean_dec(x_24); +lean_dec(x_1); +x_134 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_134; +} +else +{ +lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; uint8_t x_141; +x_135 = l_Lean_Syntax_getArg(x_27, x_12); +lean_dec(x_27); +x_136 = lean_unsigned_to_nat(5u); +x_137 = l_Lean_Syntax_getArg(x_1, x_136); +lean_dec(x_1); +x_138 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); +x_139 = lean_ctor_get(x_138, 1); +lean_inc(x_139); +lean_dec(x_138); +x_140 = l_Lean_Elab_Term_getMainModule___rarg(x_139); +x_141 = !lean_is_exclusive(x_140); +if (x_141 == 0) +{ +lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; +x_142 = lean_ctor_get(x_140, 0); +lean_dec(x_142); +x_143 = l_Array_empty___closed__1; +x_144 = lean_array_push(x_143, x_24); +x_145 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_146 = lean_array_push(x_144, x_145); +x_147 = l_Lean_mkTermIdFromIdent___closed__2; +x_148 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_148, 0, x_147); +lean_ctor_set(x_148, 1, x_146); +x_149 = lean_array_push(x_143, x_148); +x_150 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; +x_151 = lean_array_push(x_150, x_25); +x_152 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +x_153 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_153, 0, x_152); +lean_ctor_set(x_153, 1, x_151); +x_154 = lean_array_push(x_143, x_153); +x_155 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_155, 0, x_14); +lean_ctor_set(x_155, 1, x_154); +x_156 = lean_array_push(x_149, x_155); +x_157 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_157, 0, x_14); +lean_ctor_set(x_157, 1, x_156); +x_158 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_159 = lean_array_push(x_158, x_157); +x_160 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_161 = lean_array_push(x_159, x_160); +x_162 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_163 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_163, 0, x_162); +lean_ctor_set(x_163, 1, x_161); +x_164 = lean_array_push(x_143, x_163); +x_165 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_165, 0, x_14); +lean_ctor_set(x_165, 1, x_164); +x_166 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_167 = lean_array_push(x_166, x_165); +x_168 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_169 = lean_array_push(x_167, x_168); +x_170 = lean_array_push(x_169, x_137); +x_171 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_172 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_172, 0, x_171); +lean_ctor_set(x_172, 1, x_170); +x_173 = lean_array_push(x_143, x_172); +x_174 = lean_array_push(x_173, x_145); +x_175 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_175, 0, x_14); +lean_ctor_set(x_175, 1, x_174); +x_176 = lean_array_push(x_158, x_175); +x_177 = lean_array_push(x_176, x_160); +x_178 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_178, 0, x_162); +lean_ctor_set(x_178, 1, x_177); +x_179 = lean_array_push(x_143, x_178); +x_180 = lean_array_push(x_143, x_135); +x_181 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_181, 0, x_14); +lean_ctor_set(x_181, 1, x_180); +x_182 = lean_array_push(x_179, x_181); +x_183 = l_Lean_mkAppStx___closed__8; +x_184 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_184, 0, x_183); +lean_ctor_set(x_184, 1, x_182); +lean_ctor_set(x_140, 0, x_184); +return x_140; +} +else +{ +lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; +x_185 = lean_ctor_get(x_140, 1); +lean_inc(x_185); +lean_dec(x_140); +x_186 = l_Array_empty___closed__1; +x_187 = lean_array_push(x_186, x_24); +x_188 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_189 = lean_array_push(x_187, x_188); +x_190 = l_Lean_mkTermIdFromIdent___closed__2; x_191 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_191, 0, x_190); lean_ctor_set(x_191, 1, x_189); -x_192 = lean_array_push(x_184, x_191); -x_193 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_193, 0, x_190); -lean_ctor_set(x_193, 1, x_192); -x_194 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_195 = lean_array_push(x_194, x_193); -x_196 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_197 = lean_array_push(x_195, x_196); -x_198 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_199 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_199, 0, x_198); -lean_ctor_set(x_199, 1, x_197); -x_200 = lean_array_push(x_178, x_199); -x_201 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_201, 0, x_190); -lean_ctor_set(x_201, 1, x_200); -x_202 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_203 = lean_array_push(x_202, x_201); -x_204 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_205 = lean_array_push(x_203, x_204); -x_206 = lean_array_push(x_205, x_128); -x_207 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_192 = lean_array_push(x_186, x_191); +x_193 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; +x_194 = lean_array_push(x_193, x_25); +x_195 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +x_196 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_196, 0, x_195); +lean_ctor_set(x_196, 1, x_194); +x_197 = lean_array_push(x_186, x_196); +x_198 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_198, 0, x_14); +lean_ctor_set(x_198, 1, x_197); +x_199 = lean_array_push(x_192, x_198); +x_200 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_200, 0, x_14); +lean_ctor_set(x_200, 1, x_199); +x_201 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_202 = lean_array_push(x_201, x_200); +x_203 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_204 = lean_array_push(x_202, x_203); +x_205 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_206 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_206, 0, x_205); +lean_ctor_set(x_206, 1, x_204); +x_207 = lean_array_push(x_186, x_206); x_208 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_208, 0, x_207); -lean_ctor_set(x_208, 1, x_206); -x_209 = lean_array_push(x_178, x_208); -x_210 = lean_array_push(x_209, x_180); -x_211 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_211, 0, x_190); -lean_ctor_set(x_211, 1, x_210); -x_212 = lean_array_push(x_194, x_211); -x_213 = lean_array_push(x_212, x_196); -x_214 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_214, 0, x_198); -lean_ctor_set(x_214, 1, x_213); -x_215 = lean_array_push(x_178, x_214); -x_216 = lean_array_push(x_178, x_126); -x_217 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_217, 0, x_190); -lean_ctor_set(x_217, 1, x_216); -x_218 = lean_array_push(x_215, x_217); -x_219 = l_Lean_mkAppStx___closed__8; -x_220 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_220, 0, x_219); -lean_ctor_set(x_220, 1, x_218); -x_221 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_221, 0, x_220); -lean_ctor_set(x_221, 1, x_177); -return x_221; +lean_ctor_set(x_208, 0, x_14); +lean_ctor_set(x_208, 1, x_207); +x_209 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_210 = lean_array_push(x_209, x_208); +x_211 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_212 = lean_array_push(x_210, x_211); +x_213 = lean_array_push(x_212, x_137); +x_214 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_215 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_215, 0, x_214); +lean_ctor_set(x_215, 1, x_213); +x_216 = lean_array_push(x_186, x_215); +x_217 = lean_array_push(x_216, x_188); +x_218 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_218, 0, x_14); +lean_ctor_set(x_218, 1, x_217); +x_219 = lean_array_push(x_201, x_218); +x_220 = lean_array_push(x_219, x_203); +x_221 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_221, 0, x_205); +lean_ctor_set(x_221, 1, x_220); +x_222 = lean_array_push(x_186, x_221); +x_223 = lean_array_push(x_186, x_135); +x_224 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_224, 0, x_14); +lean_ctor_set(x_224, 1, x_223); +x_225 = lean_array_push(x_222, x_224); +x_226 = l_Lean_mkAppStx___closed__8; +x_227 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_227, 0, x_226); +lean_ctor_set(x_227, 1, x_225); +x_228 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_228, 0, x_227); +lean_ctor_set(x_228, 1, x_185); +return x_228; } } } } } -block_438: -{ -uint8_t x_233; -x_233 = l_coeDecidableEq(x_232); -if (x_233 == 0) -{ -if (x_231 == 0) -{ -uint8_t x_234; -x_234 = 0; -x_9 = x_234; -goto block_229; -} -else -{ -lean_object* x_235; lean_object* x_236; lean_object* x_237; uint8_t x_238; -x_235 = l_Lean_Syntax_getArgs(x_8); -x_236 = lean_array_get_size(x_235); -lean_dec(x_235); -x_237 = lean_unsigned_to_nat(2u); -x_238 = lean_nat_dec_eq(x_236, x_237); -lean_dec(x_236); -x_9 = x_238; -goto block_229; -} -} else { -lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; uint8_t x_243; uint8_t x_335; lean_object* x_432; uint8_t x_433; -lean_dec(x_8); -x_239 = lean_unsigned_to_nat(2u); -x_240 = l_Lean_Syntax_getArg(x_1, x_239); -x_241 = lean_unsigned_to_nat(3u); -x_242 = l_Lean_Syntax_getArg(x_1, x_241); -x_432 = l_Lean_Parser_Term_fromTerm___elambda__1___closed__2; -lean_inc(x_242); -x_433 = l_Lean_Syntax_isOfKind(x_242, x_432); -if (x_433 == 0) +lean_object* x_229; lean_object* x_230; lean_object* x_231; lean_object* x_232; lean_object* x_233; uint8_t x_234; +lean_dec(x_18); +lean_dec(x_13); +x_229 = lean_unsigned_to_nat(2u); +x_230 = l_Lean_Syntax_getArg(x_1, x_229); +x_231 = lean_unsigned_to_nat(3u); +x_232 = l_Lean_Syntax_getArg(x_1, x_231); +x_233 = l_Lean_Parser_Term_fromTerm___elambda__1___closed__2; +lean_inc(x_232); +x_234 = l_Lean_Syntax_isOfKind(x_232, x_233); +if (x_234 == 0) { -uint8_t x_434; -x_434 = 0; -x_335 = x_434; -goto block_431; -} -else +lean_object* x_235; uint8_t x_236; +x_235 = l_Lean_Parser_Term_haveAssign___elambda__1___closed__2; +lean_inc(x_232); +x_236 = l_Lean_Syntax_isOfKind(x_232, x_235); +if (x_236 == 0) { -lean_object* x_435; lean_object* x_436; uint8_t x_437; -x_435 = l_Lean_Syntax_getArgs(x_242); -x_436 = lean_array_get_size(x_435); -lean_dec(x_435); -x_437 = lean_nat_dec_eq(x_436, x_239); -lean_dec(x_436); -x_335 = x_437; -goto block_431; -} -block_334: -{ -uint8_t x_244; -x_244 = l_coeDecidableEq(x_243); -if (x_244 == 0) -{ -lean_object* x_245; -lean_dec(x_242); -lean_dec(x_240); +lean_object* x_237; +lean_dec(x_232); +lean_dec(x_230); lean_dec(x_1); -x_245 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); -return x_245; +x_237 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_237; } else { -lean_object* x_246; lean_object* x_247; lean_object* x_248; lean_object* x_249; lean_object* x_250; lean_object* x_251; lean_object* x_252; lean_object* x_253; uint8_t x_254; -x_246 = l_Lean_Syntax_getArg(x_242, x_7); -lean_dec(x_242); -x_247 = lean_unsigned_to_nat(5u); -x_248 = l_Lean_Syntax_getArg(x_1, x_247); -x_249 = l_Lean_Elab_Term_elabShow___lambda__1___closed__2; -x_250 = l_Lean_mkTermIdFrom(x_1, x_249); +lean_object* x_238; lean_object* x_239; uint8_t x_240; +x_238 = l_Lean_Syntax_getArgs(x_232); +x_239 = lean_array_get_size(x_238); +lean_dec(x_238); +x_240 = lean_nat_dec_eq(x_239, x_229); +lean_dec(x_239); +if (x_240 == 0) +{ +lean_object* x_241; +lean_dec(x_232); +lean_dec(x_230); lean_dec(x_1); -x_251 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); -x_252 = lean_ctor_get(x_251, 1); -lean_inc(x_252); +x_241 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_241; +} +else +{ +lean_object* x_242; lean_object* x_243; lean_object* x_244; lean_object* x_245; lean_object* x_246; lean_object* x_247; lean_object* x_248; lean_object* x_249; uint8_t x_250; +x_242 = l_Lean_Syntax_getArg(x_232, x_12); +lean_dec(x_232); +x_243 = lean_unsigned_to_nat(5u); +x_244 = l_Lean_Syntax_getArg(x_1, x_243); +x_245 = l_Lean_Elab_Term_elabShow___lambda__1___closed__2; +x_246 = l_Lean_mkTermIdFrom(x_1, x_245); +lean_dec(x_1); +x_247 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); +x_248 = lean_ctor_get(x_247, 1); +lean_inc(x_248); +lean_dec(x_247); +x_249 = l_Lean_Elab_Term_getMainModule___rarg(x_248); +x_250 = !lean_is_exclusive(x_249); +if (x_250 == 0) +{ +lean_object* x_251; lean_object* x_252; lean_object* x_253; lean_object* x_254; lean_object* x_255; lean_object* x_256; lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; lean_object* x_265; lean_object* x_266; lean_object* x_267; lean_object* x_268; lean_object* x_269; lean_object* x_270; lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; lean_object* x_275; lean_object* x_276; lean_object* x_277; lean_object* x_278; lean_object* x_279; lean_object* x_280; lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; lean_object* x_285; lean_object* x_286; lean_object* x_287; lean_object* x_288; lean_object* x_289; +x_251 = lean_ctor_get(x_249, 0); lean_dec(x_251); -x_253 = l_Lean_Elab_Term_getMainModule___rarg(x_252); -x_254 = !lean_is_exclusive(x_253); -if (x_254 == 0) -{ -lean_object* x_255; lean_object* x_256; lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; lean_object* x_265; lean_object* x_266; lean_object* x_267; lean_object* x_268; lean_object* x_269; lean_object* x_270; lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; lean_object* x_275; lean_object* x_276; lean_object* x_277; lean_object* x_278; lean_object* x_279; lean_object* x_280; lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; lean_object* x_285; lean_object* x_286; lean_object* x_287; lean_object* x_288; lean_object* x_289; lean_object* x_290; lean_object* x_291; lean_object* x_292; lean_object* x_293; -x_255 = lean_ctor_get(x_253, 0); -lean_dec(x_255); -x_256 = l_Array_empty___closed__1; -x_257 = lean_array_push(x_256, x_250); -x_258 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; -x_259 = lean_array_push(x_258, x_240); -x_260 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +x_252 = l_Array_empty___closed__1; +x_253 = lean_array_push(x_252, x_246); +x_254 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; +x_255 = lean_array_push(x_254, x_230); +x_256 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +x_257 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_257, 0, x_256); +lean_ctor_set(x_257, 1, x_255); +x_258 = lean_array_push(x_252, x_257); +x_259 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_259, 0, x_14); +lean_ctor_set(x_259, 1, x_258); +x_260 = lean_array_push(x_253, x_259); x_261 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_261, 0, x_260); -lean_ctor_set(x_261, 1, x_259); -x_262 = lean_array_push(x_256, x_261); -x_263 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_263, 0, x_230); -lean_ctor_set(x_263, 1, x_262); -x_264 = lean_array_push(x_257, x_263); -x_265 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_265, 0, x_230); -lean_ctor_set(x_265, 1, x_264); -x_266 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_267 = lean_array_push(x_266, x_265); -x_268 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_269 = lean_array_push(x_267, x_268); -x_270 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_271 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_271, 0, x_270); -lean_ctor_set(x_271, 1, x_269); -x_272 = lean_array_push(x_256, x_271); -x_273 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_273, 0, x_230); -lean_ctor_set(x_273, 1, x_272); -x_274 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_275 = lean_array_push(x_274, x_273); -x_276 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_277 = lean_array_push(x_275, x_276); -x_278 = lean_array_push(x_277, x_248); -x_279 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +lean_ctor_set(x_261, 0, x_14); +lean_ctor_set(x_261, 1, x_260); +x_262 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_263 = lean_array_push(x_262, x_261); +x_264 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_265 = lean_array_push(x_263, x_264); +x_266 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_267 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_267, 0, x_266); +lean_ctor_set(x_267, 1, x_265); +x_268 = lean_array_push(x_252, x_267); +x_269 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_269, 0, x_14); +lean_ctor_set(x_269, 1, x_268); +x_270 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_271 = lean_array_push(x_270, x_269); +x_272 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_273 = lean_array_push(x_271, x_272); +x_274 = lean_array_push(x_273, x_244); +x_275 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_276 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_276, 0, x_275); +lean_ctor_set(x_276, 1, x_274); +x_277 = lean_array_push(x_252, x_276); +x_278 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_279 = lean_array_push(x_277, x_278); x_280 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_280, 0, x_279); -lean_ctor_set(x_280, 1, x_278); -x_281 = lean_array_push(x_256, x_280); -x_282 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_283 = lean_array_push(x_281, x_282); -x_284 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_284, 0, x_230); -lean_ctor_set(x_284, 1, x_283); -x_285 = lean_array_push(x_266, x_284); -x_286 = lean_array_push(x_285, x_268); -x_287 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_287, 0, x_270); -lean_ctor_set(x_287, 1, x_286); -x_288 = lean_array_push(x_256, x_287); -x_289 = lean_array_push(x_256, x_246); -x_290 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_290, 0, x_230); -lean_ctor_set(x_290, 1, x_289); -x_291 = lean_array_push(x_288, x_290); -x_292 = l_Lean_mkAppStx___closed__8; -x_293 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_293, 0, x_292); -lean_ctor_set(x_293, 1, x_291); -lean_ctor_set(x_253, 0, x_293); -return x_253; +lean_ctor_set(x_280, 0, x_14); +lean_ctor_set(x_280, 1, x_279); +x_281 = lean_array_push(x_262, x_280); +x_282 = lean_array_push(x_281, x_264); +x_283 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_283, 0, x_266); +lean_ctor_set(x_283, 1, x_282); +x_284 = lean_array_push(x_252, x_283); +x_285 = lean_array_push(x_252, x_242); +x_286 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_286, 0, x_14); +lean_ctor_set(x_286, 1, x_285); +x_287 = lean_array_push(x_284, x_286); +x_288 = l_Lean_mkAppStx___closed__8; +x_289 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_289, 0, x_288); +lean_ctor_set(x_289, 1, x_287); +lean_ctor_set(x_249, 0, x_289); +return x_249; } else { -lean_object* x_294; lean_object* x_295; lean_object* x_296; lean_object* x_297; lean_object* x_298; lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; lean_object* x_306; lean_object* x_307; lean_object* x_308; lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_object* x_312; lean_object* x_313; lean_object* x_314; lean_object* x_315; lean_object* x_316; lean_object* x_317; lean_object* x_318; lean_object* x_319; lean_object* x_320; lean_object* x_321; lean_object* x_322; lean_object* x_323; lean_object* x_324; lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_328; lean_object* x_329; lean_object* x_330; lean_object* x_331; lean_object* x_332; lean_object* x_333; -x_294 = lean_ctor_get(x_253, 1); -lean_inc(x_294); -lean_dec(x_253); -x_295 = l_Array_empty___closed__1; -x_296 = lean_array_push(x_295, x_250); -x_297 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; -x_298 = lean_array_push(x_297, x_240); -x_299 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +lean_object* x_290; lean_object* x_291; lean_object* x_292; lean_object* x_293; lean_object* x_294; lean_object* x_295; lean_object* x_296; lean_object* x_297; lean_object* x_298; lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; lean_object* x_306; lean_object* x_307; lean_object* x_308; lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_object* x_312; lean_object* x_313; lean_object* x_314; lean_object* x_315; lean_object* x_316; lean_object* x_317; lean_object* x_318; lean_object* x_319; lean_object* x_320; lean_object* x_321; lean_object* x_322; lean_object* x_323; lean_object* x_324; lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_328; lean_object* x_329; +x_290 = lean_ctor_get(x_249, 1); +lean_inc(x_290); +lean_dec(x_249); +x_291 = l_Array_empty___closed__1; +x_292 = lean_array_push(x_291, x_246); +x_293 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; +x_294 = lean_array_push(x_293, x_230); +x_295 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +x_296 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_296, 0, x_295); +lean_ctor_set(x_296, 1, x_294); +x_297 = lean_array_push(x_291, x_296); +x_298 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_298, 0, x_14); +lean_ctor_set(x_298, 1, x_297); +x_299 = lean_array_push(x_292, x_298); x_300 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_300, 0, x_299); -lean_ctor_set(x_300, 1, x_298); -x_301 = lean_array_push(x_295, x_300); -x_302 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_302, 0, x_230); -lean_ctor_set(x_302, 1, x_301); -x_303 = lean_array_push(x_296, x_302); -x_304 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_304, 0, x_230); -lean_ctor_set(x_304, 1, x_303); -x_305 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_306 = lean_array_push(x_305, x_304); -x_307 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_308 = lean_array_push(x_306, x_307); -x_309 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_310 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_310, 0, x_309); -lean_ctor_set(x_310, 1, x_308); -x_311 = lean_array_push(x_295, x_310); -x_312 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_312, 0, x_230); -lean_ctor_set(x_312, 1, x_311); -x_313 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_314 = lean_array_push(x_313, x_312); -x_315 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_316 = lean_array_push(x_314, x_315); -x_317 = lean_array_push(x_316, x_248); -x_318 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +lean_ctor_set(x_300, 0, x_14); +lean_ctor_set(x_300, 1, x_299); +x_301 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_302 = lean_array_push(x_301, x_300); +x_303 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_304 = lean_array_push(x_302, x_303); +x_305 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_306 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_306, 0, x_305); +lean_ctor_set(x_306, 1, x_304); +x_307 = lean_array_push(x_291, x_306); +x_308 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_308, 0, x_14); +lean_ctor_set(x_308, 1, x_307); +x_309 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_310 = lean_array_push(x_309, x_308); +x_311 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_312 = lean_array_push(x_310, x_311); +x_313 = lean_array_push(x_312, x_244); +x_314 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_315 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_315, 0, x_314); +lean_ctor_set(x_315, 1, x_313); +x_316 = lean_array_push(x_291, x_315); +x_317 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_318 = lean_array_push(x_316, x_317); x_319 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_319, 0, x_318); -lean_ctor_set(x_319, 1, x_317); -x_320 = lean_array_push(x_295, x_319); -x_321 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_322 = lean_array_push(x_320, x_321); -x_323 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_323, 0, x_230); -lean_ctor_set(x_323, 1, x_322); -x_324 = lean_array_push(x_305, x_323); -x_325 = lean_array_push(x_324, x_307); -x_326 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_326, 0, x_309); -lean_ctor_set(x_326, 1, x_325); -x_327 = lean_array_push(x_295, x_326); -x_328 = lean_array_push(x_295, x_246); -x_329 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_329, 0, x_230); -lean_ctor_set(x_329, 1, x_328); -x_330 = lean_array_push(x_327, x_329); -x_331 = l_Lean_mkAppStx___closed__8; -x_332 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_332, 0, x_331); -lean_ctor_set(x_332, 1, x_330); -x_333 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_333, 0, x_332); -lean_ctor_set(x_333, 1, x_294); +lean_ctor_set(x_319, 0, x_14); +lean_ctor_set(x_319, 1, x_318); +x_320 = lean_array_push(x_301, x_319); +x_321 = lean_array_push(x_320, x_303); +x_322 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_322, 0, x_305); +lean_ctor_set(x_322, 1, x_321); +x_323 = lean_array_push(x_291, x_322); +x_324 = lean_array_push(x_291, x_242); +x_325 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_325, 0, x_14); +lean_ctor_set(x_325, 1, x_324); +x_326 = lean_array_push(x_323, x_325); +x_327 = l_Lean_mkAppStx___closed__8; +x_328 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_328, 0, x_327); +lean_ctor_set(x_328, 1, x_326); +x_329 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_329, 0, x_328); +lean_ctor_set(x_329, 1, x_290); +return x_329; +} +} +} +} +else +{ +lean_object* x_330; lean_object* x_331; uint8_t x_332; +x_330 = l_Lean_Syntax_getArgs(x_232); +x_331 = lean_array_get_size(x_330); +lean_dec(x_330); +x_332 = lean_nat_dec_eq(x_331, x_229); +lean_dec(x_331); +if (x_332 == 0) +{ +lean_object* x_333; +lean_dec(x_232); +lean_dec(x_230); +lean_dec(x_1); +x_333 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); return x_333; } -} -} -block_431: -{ -uint8_t x_336; -x_336 = l_coeDecidableEq(x_335); -if (x_336 == 0) -{ -lean_object* x_337; uint8_t x_338; -x_337 = l_Lean_Parser_Term_haveAssign___elambda__1___closed__2; -lean_inc(x_242); -x_338 = l_Lean_Syntax_isOfKind(x_242, x_337); -if (x_338 == 0) -{ -uint8_t x_339; -x_339 = 0; -x_243 = x_339; -goto block_334; -} else { -lean_object* x_340; lean_object* x_341; uint8_t x_342; -x_340 = l_Lean_Syntax_getArgs(x_242); -x_341 = lean_array_get_size(x_340); -lean_dec(x_340); -x_342 = lean_nat_dec_eq(x_341, x_239); -lean_dec(x_341); -x_243 = x_342; -goto block_334; -} -} -else -{ -lean_object* x_343; lean_object* x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; lean_object* x_348; lean_object* x_349; lean_object* x_350; uint8_t x_351; -x_343 = l_Lean_Syntax_getArg(x_242, x_7); -lean_dec(x_242); -x_344 = lean_unsigned_to_nat(5u); -x_345 = l_Lean_Syntax_getArg(x_1, x_344); -x_346 = l_Lean_Elab_Term_elabShow___lambda__1___closed__2; -x_347 = l_Lean_mkTermIdFrom(x_1, x_346); +lean_object* x_334; lean_object* x_335; lean_object* x_336; lean_object* x_337; lean_object* x_338; lean_object* x_339; lean_object* x_340; lean_object* x_341; uint8_t x_342; +x_334 = l_Lean_Syntax_getArg(x_232, x_12); +lean_dec(x_232); +x_335 = lean_unsigned_to_nat(5u); +x_336 = l_Lean_Syntax_getArg(x_1, x_335); +x_337 = l_Lean_Elab_Term_elabShow___lambda__1___closed__2; +x_338 = l_Lean_mkTermIdFrom(x_1, x_337); lean_dec(x_1); -x_348 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); -x_349 = lean_ctor_get(x_348, 1); -lean_inc(x_349); -lean_dec(x_348); -x_350 = l_Lean_Elab_Term_getMainModule___rarg(x_349); -x_351 = !lean_is_exclusive(x_350); -if (x_351 == 0) +x_339 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); +x_340 = lean_ctor_get(x_339, 1); +lean_inc(x_340); +lean_dec(x_339); +x_341 = l_Lean_Elab_Term_getMainModule___rarg(x_340); +x_342 = !lean_is_exclusive(x_341); +if (x_342 == 0) { -lean_object* x_352; lean_object* x_353; lean_object* x_354; lean_object* x_355; lean_object* x_356; lean_object* x_357; lean_object* x_358; lean_object* x_359; lean_object* x_360; lean_object* x_361; lean_object* x_362; lean_object* x_363; lean_object* x_364; lean_object* x_365; lean_object* x_366; lean_object* x_367; lean_object* x_368; lean_object* x_369; lean_object* x_370; lean_object* x_371; lean_object* x_372; lean_object* x_373; lean_object* x_374; lean_object* x_375; lean_object* x_376; lean_object* x_377; lean_object* x_378; lean_object* x_379; lean_object* x_380; lean_object* x_381; lean_object* x_382; lean_object* x_383; lean_object* x_384; lean_object* x_385; lean_object* x_386; lean_object* x_387; lean_object* x_388; lean_object* x_389; lean_object* x_390; -x_352 = lean_ctor_get(x_350, 0); -lean_dec(x_352); -x_353 = l_Array_empty___closed__1; -x_354 = lean_array_push(x_353, x_347); -x_355 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; -x_356 = lean_array_push(x_355, x_240); -x_357 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; -x_358 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_358, 0, x_357); -lean_ctor_set(x_358, 1, x_356); -x_359 = lean_array_push(x_353, x_358); -x_360 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_360, 0, x_230); -lean_ctor_set(x_360, 1, x_359); -x_361 = lean_array_push(x_354, x_360); -x_362 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_362, 0, x_230); -lean_ctor_set(x_362, 1, x_361); -x_363 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_364 = lean_array_push(x_363, x_362); -x_365 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_366 = lean_array_push(x_364, x_365); -x_367 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +lean_object* x_343; lean_object* x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; lean_object* x_348; lean_object* x_349; lean_object* x_350; lean_object* x_351; lean_object* x_352; lean_object* x_353; lean_object* x_354; lean_object* x_355; lean_object* x_356; lean_object* x_357; lean_object* x_358; lean_object* x_359; lean_object* x_360; lean_object* x_361; lean_object* x_362; lean_object* x_363; lean_object* x_364; lean_object* x_365; lean_object* x_366; lean_object* x_367; lean_object* x_368; lean_object* x_369; lean_object* x_370; lean_object* x_371; lean_object* x_372; lean_object* x_373; lean_object* x_374; lean_object* x_375; lean_object* x_376; lean_object* x_377; lean_object* x_378; lean_object* x_379; lean_object* x_380; lean_object* x_381; +x_343 = lean_ctor_get(x_341, 0); +lean_dec(x_343); +x_344 = l_Array_empty___closed__1; +x_345 = lean_array_push(x_344, x_338); +x_346 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; +x_347 = lean_array_push(x_346, x_230); +x_348 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +x_349 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_349, 0, x_348); +lean_ctor_set(x_349, 1, x_347); +x_350 = lean_array_push(x_344, x_349); +x_351 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_351, 0, x_14); +lean_ctor_set(x_351, 1, x_350); +x_352 = lean_array_push(x_345, x_351); +x_353 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_353, 0, x_14); +lean_ctor_set(x_353, 1, x_352); +x_354 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_355 = lean_array_push(x_354, x_353); +x_356 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_357 = lean_array_push(x_355, x_356); +x_358 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_359 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_359, 0, x_358); +lean_ctor_set(x_359, 1, x_357); +x_360 = lean_array_push(x_344, x_359); +x_361 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_361, 0, x_14); +lean_ctor_set(x_361, 1, x_360); +x_362 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_363 = lean_array_push(x_362, x_361); +x_364 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_365 = lean_array_push(x_363, x_364); +x_366 = lean_array_push(x_365, x_336); +x_367 = l_Lean_Parser_Term_fun___elambda__1___closed__2; x_368 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_368, 0, x_367); lean_ctor_set(x_368, 1, x_366); -x_369 = lean_array_push(x_353, x_368); -x_370 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_370, 0, x_230); -lean_ctor_set(x_370, 1, x_369); -x_371 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_372 = lean_array_push(x_371, x_370); -x_373 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_374 = lean_array_push(x_372, x_373); -x_375 = lean_array_push(x_374, x_345); -x_376 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_377 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_377, 0, x_376); -lean_ctor_set(x_377, 1, x_375); -x_378 = lean_array_push(x_353, x_377); -x_379 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_380 = lean_array_push(x_378, x_379); +x_369 = lean_array_push(x_344, x_368); +x_370 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_371 = lean_array_push(x_369, x_370); +x_372 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_372, 0, x_14); +lean_ctor_set(x_372, 1, x_371); +x_373 = lean_array_push(x_354, x_372); +x_374 = lean_array_push(x_373, x_356); +x_375 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_375, 0, x_358); +lean_ctor_set(x_375, 1, x_374); +x_376 = lean_array_push(x_344, x_375); +x_377 = lean_array_push(x_344, x_334); +x_378 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_378, 0, x_14); +lean_ctor_set(x_378, 1, x_377); +x_379 = lean_array_push(x_376, x_378); +x_380 = l_Lean_mkAppStx___closed__8; x_381 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_381, 0, x_230); -lean_ctor_set(x_381, 1, x_380); -x_382 = lean_array_push(x_363, x_381); -x_383 = lean_array_push(x_382, x_365); -x_384 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_384, 0, x_367); -lean_ctor_set(x_384, 1, x_383); -x_385 = lean_array_push(x_353, x_384); -x_386 = lean_array_push(x_353, x_343); -x_387 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_387, 0, x_230); -lean_ctor_set(x_387, 1, x_386); -x_388 = lean_array_push(x_385, x_387); -x_389 = l_Lean_mkAppStx___closed__8; -x_390 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_390, 0, x_389); -lean_ctor_set(x_390, 1, x_388); -lean_ctor_set(x_350, 0, x_390); -return x_350; +lean_ctor_set(x_381, 0, x_380); +lean_ctor_set(x_381, 1, x_379); +lean_ctor_set(x_341, 0, x_381); +return x_341; } else { -lean_object* x_391; lean_object* x_392; lean_object* x_393; lean_object* x_394; lean_object* x_395; lean_object* x_396; lean_object* x_397; lean_object* x_398; lean_object* x_399; lean_object* x_400; lean_object* x_401; lean_object* x_402; lean_object* x_403; lean_object* x_404; lean_object* x_405; lean_object* x_406; lean_object* x_407; lean_object* x_408; lean_object* x_409; lean_object* x_410; lean_object* x_411; lean_object* x_412; lean_object* x_413; lean_object* x_414; lean_object* x_415; lean_object* x_416; lean_object* x_417; lean_object* x_418; lean_object* x_419; lean_object* x_420; lean_object* x_421; lean_object* x_422; lean_object* x_423; lean_object* x_424; lean_object* x_425; lean_object* x_426; lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; -x_391 = lean_ctor_get(x_350, 1); -lean_inc(x_391); -lean_dec(x_350); -x_392 = l_Array_empty___closed__1; -x_393 = lean_array_push(x_392, x_347); -x_394 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; -x_395 = lean_array_push(x_394, x_240); -x_396 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; -x_397 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_397, 0, x_396); -lean_ctor_set(x_397, 1, x_395); -x_398 = lean_array_push(x_392, x_397); -x_399 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_399, 0, x_230); -lean_ctor_set(x_399, 1, x_398); -x_400 = lean_array_push(x_393, x_399); -x_401 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_401, 0, x_230); -lean_ctor_set(x_401, 1, x_400); -x_402 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_403 = lean_array_push(x_402, x_401); -x_404 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_405 = lean_array_push(x_403, x_404); -x_406 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +lean_object* x_382; lean_object* x_383; lean_object* x_384; lean_object* x_385; lean_object* x_386; lean_object* x_387; lean_object* x_388; lean_object* x_389; lean_object* x_390; lean_object* x_391; lean_object* x_392; lean_object* x_393; lean_object* x_394; lean_object* x_395; lean_object* x_396; lean_object* x_397; lean_object* x_398; lean_object* x_399; lean_object* x_400; lean_object* x_401; lean_object* x_402; lean_object* x_403; lean_object* x_404; lean_object* x_405; lean_object* x_406; lean_object* x_407; lean_object* x_408; lean_object* x_409; lean_object* x_410; lean_object* x_411; lean_object* x_412; lean_object* x_413; lean_object* x_414; lean_object* x_415; lean_object* x_416; lean_object* x_417; lean_object* x_418; lean_object* x_419; lean_object* x_420; lean_object* x_421; +x_382 = lean_ctor_get(x_341, 1); +lean_inc(x_382); +lean_dec(x_341); +x_383 = l_Array_empty___closed__1; +x_384 = lean_array_push(x_383, x_338); +x_385 = l_Lean_Elab_Term_elabSubtype___lambda__1___closed__8; +x_386 = lean_array_push(x_385, x_230); +x_387 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +x_388 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_388, 0, x_387); +lean_ctor_set(x_388, 1, x_386); +x_389 = lean_array_push(x_383, x_388); +x_390 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_390, 0, x_14); +lean_ctor_set(x_390, 1, x_389); +x_391 = lean_array_push(x_384, x_390); +x_392 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_392, 0, x_14); +lean_ctor_set(x_392, 1, x_391); +x_393 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_394 = lean_array_push(x_393, x_392); +x_395 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_396 = lean_array_push(x_394, x_395); +x_397 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_398 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_398, 0, x_397); +lean_ctor_set(x_398, 1, x_396); +x_399 = lean_array_push(x_383, x_398); +x_400 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_400, 0, x_14); +lean_ctor_set(x_400, 1, x_399); +x_401 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_402 = lean_array_push(x_401, x_400); +x_403 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_404 = lean_array_push(x_402, x_403); +x_405 = lean_array_push(x_404, x_336); +x_406 = l_Lean_Parser_Term_fun___elambda__1___closed__2; x_407 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_407, 0, x_406); lean_ctor_set(x_407, 1, x_405); -x_408 = lean_array_push(x_392, x_407); -x_409 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_409, 0, x_230); -lean_ctor_set(x_409, 1, x_408); -x_410 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_411 = lean_array_push(x_410, x_409); -x_412 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_413 = lean_array_push(x_411, x_412); -x_414 = lean_array_push(x_413, x_345); -x_415 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_416 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_416, 0, x_415); -lean_ctor_set(x_416, 1, x_414); -x_417 = lean_array_push(x_392, x_416); -x_418 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; -x_419 = lean_array_push(x_417, x_418); +x_408 = lean_array_push(x_383, x_407); +x_409 = l___private_Init_Lean_Elab_Quotation_11__letBindRhss___main___closed__17; +x_410 = lean_array_push(x_408, x_409); +x_411 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_411, 0, x_14); +lean_ctor_set(x_411, 1, x_410); +x_412 = lean_array_push(x_393, x_411); +x_413 = lean_array_push(x_412, x_395); +x_414 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_414, 0, x_397); +lean_ctor_set(x_414, 1, x_413); +x_415 = lean_array_push(x_383, x_414); +x_416 = lean_array_push(x_383, x_334); +x_417 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_417, 0, x_14); +lean_ctor_set(x_417, 1, x_416); +x_418 = lean_array_push(x_415, x_417); +x_419 = l_Lean_mkAppStx___closed__8; x_420 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_420, 0, x_230); -lean_ctor_set(x_420, 1, x_419); -x_421 = lean_array_push(x_402, x_420); -x_422 = lean_array_push(x_421, x_404); -x_423 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_423, 0, x_406); -lean_ctor_set(x_423, 1, x_422); -x_424 = lean_array_push(x_392, x_423); -x_425 = lean_array_push(x_392, x_343); -x_426 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_426, 0, x_230); -lean_ctor_set(x_426, 1, x_425); -x_427 = lean_array_push(x_424, x_426); -x_428 = l_Lean_mkAppStx___closed__8; -x_429 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_429, 0, x_428); -lean_ctor_set(x_429, 1, x_427); -x_430 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_430, 0, x_429); -lean_ctor_set(x_430, 1, x_391); -return x_430; +lean_ctor_set(x_420, 0, x_419); +lean_ctor_set(x_420, 1, x_418); +x_421 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_421, 0, x_420); +lean_ctor_set(x_421, 1, x_382); +return x_421; } } } @@ -4841,33 +4620,10 @@ return x_29; lean_object* l_Lean_Elab_Term_elabWhere___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_18; uint8_t x_19; -x_18 = l_Lean_Parser_Term_where___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Term_where___elambda__1___closed__2; lean_inc(x_1); -x_19 = l_Lean_Syntax_isOfKind(x_1, x_18); -if (x_19 == 0) -{ -uint8_t x_20; -x_20 = 0; -x_4 = x_20; -goto block_17; -} -else -{ -lean_object* x_21; lean_object* x_22; lean_object* x_23; uint8_t x_24; -x_21 = l_Lean_Syntax_getArgs(x_1); -x_22 = lean_array_get_size(x_21); -lean_dec(x_21); -x_23 = lean_unsigned_to_nat(3u); -x_24 = lean_nat_dec_eq(x_22, x_23); -lean_dec(x_22); -x_4 = x_24; -goto block_17; -} -block_17: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; @@ -4877,22 +4633,38 @@ return x_6; } else { -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; -x_7 = lean_unsigned_to_nat(0u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); -x_9 = lean_unsigned_to_nat(2u); -x_10 = l_Lean_Syntax_getArg(x_1, x_9); -x_11 = l_Lean_Syntax_getArgs(x_10); -lean_dec(x_10); -x_12 = l_Array_empty___closed__1; -x_13 = l_Array_foldlStepMAux___main___at_Lean_Elab_Term_elabParen___spec__1(x_9, x_11, x_7, x_12); -lean_dec(x_11); -x_14 = lean_array_get_size(x_13); -x_15 = l_Lean_mkAppStx___closed__6; -x_16 = l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Elab_Term_elabWhere___spec__1(x_1, x_15, x_12, x_13, x_14, lean_box(0), x_8, x_2, x_3); -lean_dec(x_13); +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(3u); +x_10 = lean_nat_dec_eq(x_8, x_9); +lean_dec(x_8); +if (x_10 == 0) +{ +lean_object* x_11; lean_dec(x_1); -return x_16; +x_11 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_11; +} +else +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_12 = lean_unsigned_to_nat(0u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); +x_14 = lean_unsigned_to_nat(2u); +x_15 = l_Lean_Syntax_getArg(x_1, x_14); +x_16 = l_Lean_Syntax_getArgs(x_15); +lean_dec(x_15); +x_17 = l_Array_empty___closed__1; +x_18 = l_Array_foldlStepMAux___main___at_Lean_Elab_Term_elabParen___spec__1(x_14, x_16, x_12, x_17); +lean_dec(x_16); +x_19 = lean_array_get_size(x_18); +x_20 = l_Lean_mkAppStx___closed__6; +x_21 = l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Elab_Term_elabWhere___spec__1(x_1, x_20, x_17, x_18, x_19, lean_box(0), x_13, x_2, x_3); +lean_dec(x_18); +lean_dec(x_1); +return x_21; } } } @@ -5366,33 +5138,10 @@ return x_3; lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_275; uint8_t x_276; -x_275 = l_Lean_Parser_Term_parser_x21___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Term_parser_x21___elambda__1___closed__2; lean_inc(x_1); -x_276 = l_Lean_Syntax_isOfKind(x_1, x_275); -if (x_276 == 0) -{ -uint8_t x_277; -x_277 = 0; -x_4 = x_277; -goto block_274; -} -else -{ -lean_object* x_278; lean_object* x_279; lean_object* x_280; uint8_t x_281; -x_278 = l_Lean_Syntax_getArgs(x_1); -x_279 = lean_array_get_size(x_278); -lean_dec(x_278); -x_280 = lean_unsigned_to_nat(2u); -x_281 = lean_nat_dec_eq(x_279, x_280); -lean_dec(x_279); -x_4 = x_281; -goto block_274; -} -block_274: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; @@ -5403,532 +5152,549 @@ return x_6; } else { -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; -x_7 = lean_unsigned_to_nat(1u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); -x_9 = l_Lean_Elab_Term_getDeclName_x3f(x_2, x_3); -x_10 = lean_ctor_get(x_9, 0); -lean_inc(x_10); -if (lean_obj_tag(x_10) == 0) -{ -lean_object* x_11; lean_object* x_12; lean_object* x_13; +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(2u); +x_10 = lean_nat_dec_eq(x_8, x_9); lean_dec(x_8); -x_11 = lean_ctor_get(x_9, 1); -lean_inc(x_11); -lean_dec(x_9); -x_12 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__3; -x_13 = l_Lean_Elab_Term_throwError___rarg(x_1, x_12, x_2, x_11); +if (x_10 == 0) +{ +lean_object* x_11; +lean_dec(x_2); lean_dec(x_1); -return x_13; +x_11 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_11; } else { -lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; -x_14 = lean_ctor_get(x_9, 1); -lean_inc(x_14); -lean_dec(x_9); -x_15 = lean_ctor_get(x_10, 0); +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_12 = lean_unsigned_to_nat(1u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); +x_14 = l_Lean_Elab_Term_getDeclName_x3f(x_2, x_3); +x_15 = lean_ctor_get(x_14, 0); lean_inc(x_15); -lean_dec(x_10); -lean_inc(x_15); -x_16 = l_Lean_extractMacroScopes(x_15); -x_17 = lean_ctor_get(x_16, 0); -lean_inc(x_17); -if (lean_obj_tag(x_17) == 1) +if (lean_obj_tag(x_15) == 0) { -lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; 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_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; uint8_t x_53; +lean_object* x_16; lean_object* x_17; lean_object* x_18; +lean_dec(x_13); +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +lean_dec(x_14); +x_17 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__3; +x_18 = l_Lean_Elab_Term_throwError___rarg(x_1, x_17, x_2, x_16); lean_dec(x_1); -x_18 = lean_ctor_get(x_16, 3); -lean_inc(x_18); -lean_dec(x_16); -x_19 = lean_ctor_get(x_17, 1); +return x_18; +} +else +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_19 = lean_ctor_get(x_14, 1); lean_inc(x_19); -lean_dec(x_17); -x_20 = l___private_Init_Lean_Elab_Quotation_1__quoteName___main(x_15); -x_21 = lean_box(0); -x_22 = l_Lean_mkStxStrLit(x_19, x_21); -x_23 = l_Lean_mkOptionalNode___closed__2; -x_24 = lean_array_push(x_23, x_22); -x_25 = l_Lean_Parser_Term_str___elambda__1___closed__2; -x_26 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_26, 0, x_25); -lean_ctor_set(x_26, 1, x_24); -x_27 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_14); -x_28 = lean_ctor_get(x_27, 0); -lean_inc(x_28); -x_29 = lean_ctor_get(x_27, 1); -lean_inc(x_29); -lean_dec(x_27); -x_30 = l_Lean_Elab_Term_getMainModule___rarg(x_29); -x_31 = lean_ctor_get(x_30, 0); -lean_inc(x_31); -x_32 = lean_ctor_get(x_30, 1); -lean_inc(x_32); -lean_dec(x_30); -x_33 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__11; -x_34 = l_Lean_addMacroScope(x_31, x_33, x_28); -x_35 = lean_box(0); -x_36 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__9; -x_37 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__13; -x_38 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_38, 0, x_21); -lean_ctor_set(x_38, 1, x_36); -lean_ctor_set(x_38, 2, x_34); -lean_ctor_set(x_38, 3, x_37); -x_39 = l_Array_empty___closed__1; -x_40 = lean_array_push(x_39, x_38); -x_41 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_42 = lean_array_push(x_40, x_41); -x_43 = l_Lean_mkTermIdFromIdent___closed__2; -x_44 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_44, 0, x_43); -lean_ctor_set(x_44, 1, x_42); -x_45 = lean_array_push(x_39, x_44); -x_46 = lean_array_push(x_39, x_20); -lean_inc(x_46); -x_47 = lean_array_push(x_46, x_8); -x_48 = l_Lean_nullKind___closed__2; +lean_dec(x_14); +x_20 = lean_ctor_get(x_15, 0); +lean_inc(x_20); +lean_dec(x_15); +lean_inc(x_20); +x_21 = l_Lean_extractMacroScopes(x_20); +x_22 = lean_ctor_get(x_21, 0); +lean_inc(x_22); +if (lean_obj_tag(x_22) == 1) +{ +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_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; uint8_t x_58; +lean_dec(x_1); +x_23 = lean_ctor_get(x_21, 3); +lean_inc(x_23); +lean_dec(x_21); +x_24 = lean_ctor_get(x_22, 1); +lean_inc(x_24); +lean_dec(x_22); +x_25 = l___private_Init_Lean_Elab_Quotation_1__quoteName___main(x_20); +x_26 = lean_box(0); +x_27 = l_Lean_mkStxStrLit(x_24, x_26); +x_28 = l_Lean_mkOptionalNode___closed__2; +x_29 = lean_array_push(x_28, x_27); +x_30 = l_Lean_Parser_Term_str___elambda__1___closed__2; +x_31 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_31, 0, x_30); +lean_ctor_set(x_31, 1, x_29); +x_32 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_19); +x_33 = lean_ctor_get(x_32, 0); +lean_inc(x_33); +x_34 = lean_ctor_get(x_32, 1); +lean_inc(x_34); +lean_dec(x_32); +x_35 = l_Lean_Elab_Term_getMainModule___rarg(x_34); +x_36 = lean_ctor_get(x_35, 0); +lean_inc(x_36); +x_37 = lean_ctor_get(x_35, 1); +lean_inc(x_37); +lean_dec(x_35); +x_38 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__11; +x_39 = l_Lean_addMacroScope(x_36, x_38, x_33); +x_40 = lean_box(0); +x_41 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__9; +x_42 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__13; +x_43 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_43, 0, x_26); +lean_ctor_set(x_43, 1, x_41); +lean_ctor_set(x_43, 2, x_39); +lean_ctor_set(x_43, 3, x_42); +x_44 = l_Array_empty___closed__1; +x_45 = lean_array_push(x_44, x_43); +x_46 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_47 = lean_array_push(x_45, x_46); +x_48 = l_Lean_mkTermIdFromIdent___closed__2; x_49 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_49, 0, x_48); lean_ctor_set(x_49, 1, x_47); -x_50 = lean_array_push(x_45, x_49); -x_51 = l_Lean_mkAppStx___closed__8; -x_52 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_52, 0, x_51); -lean_ctor_set(x_52, 1, x_50); -x_53 = l_List_beq___main___at_Lean_Elab_Term_elabParserMacro___spec__1(x_18, x_35); -lean_dec(x_18); -if (x_53 == 0) -{ -lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; uint8_t x_58; -lean_dec(x_46); -x_54 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_32); -lean_dec(x_2); -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 = l_Lean_Elab_Term_getMainModule___rarg(x_56); -x_58 = !lean_is_exclusive(x_57); +x_50 = lean_array_push(x_44, x_49); +x_51 = lean_array_push(x_44, x_25); +lean_inc(x_51); +x_52 = lean_array_push(x_51, x_13); +x_53 = l_Lean_nullKind___closed__2; +x_54 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_54, 0, x_53); +lean_ctor_set(x_54, 1, x_52); +x_55 = lean_array_push(x_50, x_54); +x_56 = l_Lean_mkAppStx___closed__8; +x_57 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_57, 0, x_56); +lean_ctor_set(x_57, 1, x_55); +x_58 = l_List_beq___main___at_Lean_Elab_Term_elabParserMacro___spec__1(x_23, x_40); +lean_dec(x_23); if (x_58 == 0) { -lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; -x_59 = lean_ctor_get(x_57, 0); -x_60 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__19; -lean_inc(x_55); -lean_inc(x_59); -x_61 = l_Lean_addMacroScope(x_59, x_60, x_55); -x_62 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__16; -x_63 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__21; -x_64 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_64, 0, x_21); -lean_ctor_set(x_64, 1, x_62); -lean_ctor_set(x_64, 2, x_61); -lean_ctor_set(x_64, 3, x_63); -x_65 = lean_array_push(x_39, x_64); -x_66 = lean_array_push(x_65, x_41); -x_67 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_67, 0, x_43); -lean_ctor_set(x_67, 1, x_66); -x_68 = lean_array_push(x_39, x_67); -x_69 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__26; -lean_inc(x_55); -lean_inc(x_59); -x_70 = l_Lean_addMacroScope(x_59, x_69, x_55); -x_71 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__24; -x_72 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__28; -x_73 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_73, 0, x_21); -lean_ctor_set(x_73, 1, x_71); -lean_ctor_set(x_73, 2, x_70); -lean_ctor_set(x_73, 3, x_72); -x_74 = lean_array_push(x_39, x_73); -x_75 = lean_array_push(x_74, x_41); -x_76 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_76, 0, x_43); -lean_ctor_set(x_76, 1, x_75); -x_77 = lean_array_push(x_39, x_76); -x_78 = lean_array_push(x_39, x_26); -x_79 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__32; -x_80 = l_Lean_addMacroScope(x_59, x_79, x_55); -x_81 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__31; -x_82 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__34; -x_83 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_83, 0, x_21); -lean_ctor_set(x_83, 1, x_81); -lean_ctor_set(x_83, 2, x_80); -lean_ctor_set(x_83, 3, x_82); -x_84 = lean_array_push(x_39, x_83); -x_85 = lean_array_push(x_84, x_41); -x_86 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_86, 0, x_43); -lean_ctor_set(x_86, 1, x_85); -x_87 = lean_array_push(x_78, x_86); -x_88 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_88, 0, x_48); -lean_ctor_set(x_88, 1, x_87); -x_89 = lean_array_push(x_77, x_88); -x_90 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_90, 0, x_51); -lean_ctor_set(x_90, 1, x_89); -x_91 = lean_array_push(x_39, x_90); -x_92 = lean_array_push(x_91, x_41); -x_93 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_93, 0, x_48); -lean_ctor_set(x_93, 1, x_92); -x_94 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_95 = lean_array_push(x_94, x_93); -x_96 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_97 = lean_array_push(x_95, x_96); -x_98 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_99 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_99, 0, x_98); -lean_ctor_set(x_99, 1, x_97); -x_100 = lean_array_push(x_39, x_99); -x_101 = lean_array_push(x_100, x_52); -x_102 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_102, 0, x_48); -lean_ctor_set(x_102, 1, x_101); -x_103 = lean_array_push(x_68, x_102); -x_104 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_104, 0, x_51); -lean_ctor_set(x_104, 1, x_103); -lean_ctor_set(x_57, 0, x_104); -return x_57; -} -else -{ -lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; -x_105 = lean_ctor_get(x_57, 0); -x_106 = lean_ctor_get(x_57, 1); -lean_inc(x_106); -lean_inc(x_105); -lean_dec(x_57); -x_107 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__19; -lean_inc(x_55); -lean_inc(x_105); -x_108 = l_Lean_addMacroScope(x_105, x_107, x_55); -x_109 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__16; -x_110 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__21; -x_111 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_111, 0, x_21); -lean_ctor_set(x_111, 1, x_109); -lean_ctor_set(x_111, 2, x_108); -lean_ctor_set(x_111, 3, x_110); -x_112 = lean_array_push(x_39, x_111); -x_113 = lean_array_push(x_112, x_41); -x_114 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_114, 0, x_43); -lean_ctor_set(x_114, 1, x_113); -x_115 = lean_array_push(x_39, x_114); -x_116 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__26; -lean_inc(x_55); -lean_inc(x_105); -x_117 = l_Lean_addMacroScope(x_105, x_116, x_55); -x_118 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__24; -x_119 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__28; -x_120 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_120, 0, x_21); -lean_ctor_set(x_120, 1, x_118); -lean_ctor_set(x_120, 2, x_117); -lean_ctor_set(x_120, 3, x_119); -x_121 = lean_array_push(x_39, x_120); -x_122 = lean_array_push(x_121, x_41); -x_123 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_123, 0, x_43); -lean_ctor_set(x_123, 1, x_122); -x_124 = lean_array_push(x_39, x_123); -x_125 = lean_array_push(x_39, x_26); -x_126 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__32; -x_127 = l_Lean_addMacroScope(x_105, x_126, x_55); -x_128 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__31; -x_129 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__34; -x_130 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_130, 0, x_21); -lean_ctor_set(x_130, 1, x_128); -lean_ctor_set(x_130, 2, x_127); -lean_ctor_set(x_130, 3, x_129); -x_131 = lean_array_push(x_39, x_130); -x_132 = lean_array_push(x_131, x_41); -x_133 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_133, 0, x_43); -lean_ctor_set(x_133, 1, x_132); -x_134 = lean_array_push(x_125, x_133); -x_135 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_135, 0, x_48); -lean_ctor_set(x_135, 1, x_134); -x_136 = lean_array_push(x_124, x_135); -x_137 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_137, 0, x_51); -lean_ctor_set(x_137, 1, x_136); -x_138 = lean_array_push(x_39, x_137); -x_139 = lean_array_push(x_138, x_41); -x_140 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_140, 0, x_48); -lean_ctor_set(x_140, 1, x_139); -x_141 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_142 = lean_array_push(x_141, x_140); -x_143 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_144 = lean_array_push(x_142, x_143); -x_145 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_146 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_146, 0, x_145); -lean_ctor_set(x_146, 1, x_144); -x_147 = lean_array_push(x_39, x_146); -x_148 = lean_array_push(x_147, x_52); -x_149 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_149, 0, x_48); -lean_ctor_set(x_149, 1, x_148); -x_150 = lean_array_push(x_115, x_149); -x_151 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_151, 0, x_51); -lean_ctor_set(x_151, 1, x_150); -x_152 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_152, 0, x_151); -lean_ctor_set(x_152, 1, x_106); -return x_152; -} -} -else -{ -lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; uint8_t x_157; -x_153 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_32); +lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; uint8_t x_63; +lean_dec(x_51); +x_59 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_37); lean_dec(x_2); -x_154 = lean_ctor_get(x_153, 0); -lean_inc(x_154); -x_155 = lean_ctor_get(x_153, 1); -lean_inc(x_155); -lean_dec(x_153); -x_156 = l_Lean_Elab_Term_getMainModule___rarg(x_155); -x_157 = !lean_is_exclusive(x_156); -if (x_157 == 0) +x_60 = lean_ctor_get(x_59, 0); +lean_inc(x_60); +x_61 = lean_ctor_get(x_59, 1); +lean_inc(x_61); +lean_dec(x_59); +x_62 = l_Lean_Elab_Term_getMainModule___rarg(x_61); +x_63 = !lean_is_exclusive(x_62); +if (x_63 == 0) { -lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; -x_158 = lean_ctor_get(x_156, 0); -x_159 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__19; -lean_inc(x_154); -lean_inc(x_158); -x_160 = l_Lean_addMacroScope(x_158, x_159, x_154); -x_161 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__16; -x_162 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__21; -x_163 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_163, 0, x_21); -lean_ctor_set(x_163, 1, x_161); -lean_ctor_set(x_163, 2, x_160); -lean_ctor_set(x_163, 3, x_162); -x_164 = lean_array_push(x_39, x_163); -x_165 = lean_array_push(x_164, x_41); -x_166 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_166, 0, x_43); -lean_ctor_set(x_166, 1, x_165); -x_167 = lean_array_push(x_39, x_166); -x_168 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__26; -lean_inc(x_154); -lean_inc(x_158); -x_169 = l_Lean_addMacroScope(x_158, x_168, x_154); -x_170 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__24; -x_171 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__28; -x_172 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_172, 0, x_21); -lean_ctor_set(x_172, 1, x_170); -lean_ctor_set(x_172, 2, x_169); -lean_ctor_set(x_172, 3, x_171); -x_173 = lean_array_push(x_39, x_172); -x_174 = lean_array_push(x_173, x_41); -x_175 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_175, 0, x_43); -lean_ctor_set(x_175, 1, x_174); -x_176 = lean_array_push(x_39, x_175); -x_177 = lean_array_push(x_39, x_26); -x_178 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__31; -x_179 = l_Lean_addMacroScope(x_158, x_178, x_154); -x_180 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__30; -x_181 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__33; -x_182 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_182, 0, x_21); -lean_ctor_set(x_182, 1, x_180); -lean_ctor_set(x_182, 2, x_179); -lean_ctor_set(x_182, 3, x_181); -x_183 = lean_array_push(x_39, x_182); -x_184 = lean_array_push(x_183, x_41); -x_185 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_185, 0, x_43); -lean_ctor_set(x_185, 1, x_184); -x_186 = lean_array_push(x_39, x_185); -x_187 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_187, 0, x_48); -lean_ctor_set(x_187, 1, x_46); -x_188 = lean_array_push(x_186, x_187); -x_189 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_189, 0, x_51); -lean_ctor_set(x_189, 1, x_188); -x_190 = lean_array_push(x_39, x_189); -x_191 = lean_array_push(x_190, x_41); +lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; +x_64 = lean_ctor_get(x_62, 0); +x_65 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__19; +lean_inc(x_60); +lean_inc(x_64); +x_66 = l_Lean_addMacroScope(x_64, x_65, x_60); +x_67 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__16; +x_68 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__21; +x_69 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_69, 0, x_26); +lean_ctor_set(x_69, 1, x_67); +lean_ctor_set(x_69, 2, x_66); +lean_ctor_set(x_69, 3, x_68); +x_70 = lean_array_push(x_44, x_69); +x_71 = lean_array_push(x_70, x_46); +x_72 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_72, 0, x_48); +lean_ctor_set(x_72, 1, x_71); +x_73 = lean_array_push(x_44, x_72); +x_74 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__26; +lean_inc(x_60); +lean_inc(x_64); +x_75 = l_Lean_addMacroScope(x_64, x_74, x_60); +x_76 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__24; +x_77 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__28; +x_78 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_78, 0, x_26); +lean_ctor_set(x_78, 1, x_76); +lean_ctor_set(x_78, 2, x_75); +lean_ctor_set(x_78, 3, x_77); +x_79 = lean_array_push(x_44, x_78); +x_80 = lean_array_push(x_79, x_46); +x_81 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_81, 0, x_48); +lean_ctor_set(x_81, 1, x_80); +x_82 = lean_array_push(x_44, x_81); +x_83 = lean_array_push(x_44, x_31); +x_84 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__32; +x_85 = l_Lean_addMacroScope(x_64, x_84, x_60); +x_86 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__31; +x_87 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__34; +x_88 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_88, 0, x_26); +lean_ctor_set(x_88, 1, x_86); +lean_ctor_set(x_88, 2, x_85); +lean_ctor_set(x_88, 3, x_87); +x_89 = lean_array_push(x_44, x_88); +x_90 = lean_array_push(x_89, x_46); +x_91 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_91, 0, x_48); +lean_ctor_set(x_91, 1, x_90); +x_92 = lean_array_push(x_83, x_91); +x_93 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_93, 0, x_53); +lean_ctor_set(x_93, 1, x_92); +x_94 = lean_array_push(x_82, x_93); +x_95 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_95, 0, x_56); +lean_ctor_set(x_95, 1, x_94); +x_96 = lean_array_push(x_44, x_95); +x_97 = lean_array_push(x_96, x_46); +x_98 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_98, 0, x_53); +lean_ctor_set(x_98, 1, x_97); +x_99 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_100 = lean_array_push(x_99, x_98); +x_101 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_102 = lean_array_push(x_100, x_101); +x_103 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_104 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_104, 0, x_103); +lean_ctor_set(x_104, 1, x_102); +x_105 = lean_array_push(x_44, x_104); +x_106 = lean_array_push(x_105, x_57); +x_107 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_107, 0, x_53); +lean_ctor_set(x_107, 1, x_106); +x_108 = lean_array_push(x_73, x_107); +x_109 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_109, 0, x_56); +lean_ctor_set(x_109, 1, x_108); +lean_ctor_set(x_62, 0, x_109); +return x_62; +} +else +{ +lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; +x_110 = lean_ctor_get(x_62, 0); +x_111 = lean_ctor_get(x_62, 1); +lean_inc(x_111); +lean_inc(x_110); +lean_dec(x_62); +x_112 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__19; +lean_inc(x_60); +lean_inc(x_110); +x_113 = l_Lean_addMacroScope(x_110, x_112, x_60); +x_114 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__16; +x_115 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__21; +x_116 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_116, 0, x_26); +lean_ctor_set(x_116, 1, x_114); +lean_ctor_set(x_116, 2, x_113); +lean_ctor_set(x_116, 3, x_115); +x_117 = lean_array_push(x_44, x_116); +x_118 = lean_array_push(x_117, x_46); +x_119 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_119, 0, x_48); +lean_ctor_set(x_119, 1, x_118); +x_120 = lean_array_push(x_44, x_119); +x_121 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__26; +lean_inc(x_60); +lean_inc(x_110); +x_122 = l_Lean_addMacroScope(x_110, x_121, x_60); +x_123 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__24; +x_124 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__28; +x_125 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_125, 0, x_26); +lean_ctor_set(x_125, 1, x_123); +lean_ctor_set(x_125, 2, x_122); +lean_ctor_set(x_125, 3, x_124); +x_126 = lean_array_push(x_44, x_125); +x_127 = lean_array_push(x_126, x_46); +x_128 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_128, 0, x_48); +lean_ctor_set(x_128, 1, x_127); +x_129 = lean_array_push(x_44, x_128); +x_130 = lean_array_push(x_44, x_31); +x_131 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__32; +x_132 = l_Lean_addMacroScope(x_110, x_131, x_60); +x_133 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__31; +x_134 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__34; +x_135 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_135, 0, x_26); +lean_ctor_set(x_135, 1, x_133); +lean_ctor_set(x_135, 2, x_132); +lean_ctor_set(x_135, 3, x_134); +x_136 = lean_array_push(x_44, x_135); +x_137 = lean_array_push(x_136, x_46); +x_138 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_138, 0, x_48); +lean_ctor_set(x_138, 1, x_137); +x_139 = lean_array_push(x_130, x_138); +x_140 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_140, 0, x_53); +lean_ctor_set(x_140, 1, x_139); +x_141 = lean_array_push(x_129, x_140); +x_142 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_142, 0, x_56); +lean_ctor_set(x_142, 1, x_141); +x_143 = lean_array_push(x_44, x_142); +x_144 = lean_array_push(x_143, x_46); +x_145 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_145, 0, x_53); +lean_ctor_set(x_145, 1, x_144); +x_146 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_147 = lean_array_push(x_146, x_145); +x_148 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_149 = lean_array_push(x_147, x_148); +x_150 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_151 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_151, 0, x_150); +lean_ctor_set(x_151, 1, x_149); +x_152 = lean_array_push(x_44, x_151); +x_153 = lean_array_push(x_152, x_57); +x_154 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_154, 0, x_53); +lean_ctor_set(x_154, 1, x_153); +x_155 = lean_array_push(x_120, x_154); +x_156 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_156, 0, x_56); +lean_ctor_set(x_156, 1, x_155); +x_157 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_157, 0, x_156); +lean_ctor_set(x_157, 1, x_111); +return x_157; +} +} +else +{ +lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; uint8_t x_162; +x_158 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_37); +lean_dec(x_2); +x_159 = lean_ctor_get(x_158, 0); +lean_inc(x_159); +x_160 = lean_ctor_get(x_158, 1); +lean_inc(x_160); +lean_dec(x_158); +x_161 = l_Lean_Elab_Term_getMainModule___rarg(x_160); +x_162 = !lean_is_exclusive(x_161); +if (x_162 == 0) +{ +lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; +x_163 = lean_ctor_get(x_161, 0); +x_164 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__19; +lean_inc(x_159); +lean_inc(x_163); +x_165 = l_Lean_addMacroScope(x_163, x_164, x_159); +x_166 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__16; +x_167 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__21; +x_168 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_168, 0, x_26); +lean_ctor_set(x_168, 1, x_166); +lean_ctor_set(x_168, 2, x_165); +lean_ctor_set(x_168, 3, x_167); +x_169 = lean_array_push(x_44, x_168); +x_170 = lean_array_push(x_169, x_46); +x_171 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_171, 0, x_48); +lean_ctor_set(x_171, 1, x_170); +x_172 = lean_array_push(x_44, x_171); +x_173 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__26; +lean_inc(x_159); +lean_inc(x_163); +x_174 = l_Lean_addMacroScope(x_163, x_173, x_159); +x_175 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__24; +x_176 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__28; +x_177 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_177, 0, x_26); +lean_ctor_set(x_177, 1, x_175); +lean_ctor_set(x_177, 2, x_174); +lean_ctor_set(x_177, 3, x_176); +x_178 = lean_array_push(x_44, x_177); +x_179 = lean_array_push(x_178, x_46); +x_180 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_180, 0, x_48); +lean_ctor_set(x_180, 1, x_179); +x_181 = lean_array_push(x_44, x_180); +x_182 = lean_array_push(x_44, x_31); +x_183 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__31; +x_184 = l_Lean_addMacroScope(x_163, x_183, x_159); +x_185 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__30; +x_186 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__33; +x_187 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_187, 0, x_26); +lean_ctor_set(x_187, 1, x_185); +lean_ctor_set(x_187, 2, x_184); +lean_ctor_set(x_187, 3, x_186); +x_188 = lean_array_push(x_44, x_187); +x_189 = lean_array_push(x_188, x_46); +x_190 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_190, 0, x_48); +lean_ctor_set(x_190, 1, x_189); +x_191 = lean_array_push(x_44, x_190); x_192 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_192, 0, x_48); -lean_ctor_set(x_192, 1, x_191); -x_193 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_194 = lean_array_push(x_193, x_192); -x_195 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_196 = lean_array_push(x_194, x_195); -x_197 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_198 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_198, 0, x_197); -lean_ctor_set(x_198, 1, x_196); -x_199 = lean_array_push(x_177, x_198); -x_200 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_200, 0, x_48); -lean_ctor_set(x_200, 1, x_199); -x_201 = lean_array_push(x_176, x_200); -x_202 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_202, 0, x_51); -lean_ctor_set(x_202, 1, x_201); -x_203 = lean_array_push(x_39, x_202); -x_204 = lean_array_push(x_203, x_41); +lean_ctor_set(x_192, 0, x_53); +lean_ctor_set(x_192, 1, x_51); +x_193 = lean_array_push(x_191, x_192); +x_194 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_194, 0, x_56); +lean_ctor_set(x_194, 1, x_193); +x_195 = lean_array_push(x_44, x_194); +x_196 = lean_array_push(x_195, x_46); +x_197 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_197, 0, x_53); +lean_ctor_set(x_197, 1, x_196); +x_198 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_199 = lean_array_push(x_198, x_197); +x_200 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_201 = lean_array_push(x_199, x_200); +x_202 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_203 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_203, 0, x_202); +lean_ctor_set(x_203, 1, x_201); +x_204 = lean_array_push(x_182, x_203); x_205 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_205, 0, x_48); +lean_ctor_set(x_205, 0, x_53); lean_ctor_set(x_205, 1, x_204); -x_206 = lean_array_push(x_193, x_205); -x_207 = lean_array_push(x_206, x_195); -x_208 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_208, 0, x_197); -lean_ctor_set(x_208, 1, x_207); -x_209 = lean_array_push(x_39, x_208); -x_210 = lean_array_push(x_209, x_52); -x_211 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_211, 0, x_48); -lean_ctor_set(x_211, 1, x_210); -x_212 = lean_array_push(x_167, x_211); +x_206 = lean_array_push(x_181, x_205); +x_207 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_207, 0, x_56); +lean_ctor_set(x_207, 1, x_206); +x_208 = lean_array_push(x_44, x_207); +x_209 = lean_array_push(x_208, x_46); +x_210 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_210, 0, x_53); +lean_ctor_set(x_210, 1, x_209); +x_211 = lean_array_push(x_198, x_210); +x_212 = lean_array_push(x_211, x_200); x_213 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_213, 0, x_51); +lean_ctor_set(x_213, 0, x_202); lean_ctor_set(x_213, 1, x_212); -lean_ctor_set(x_156, 0, x_213); -return x_156; +x_214 = lean_array_push(x_44, x_213); +x_215 = lean_array_push(x_214, x_57); +x_216 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_216, 0, x_53); +lean_ctor_set(x_216, 1, x_215); +x_217 = lean_array_push(x_172, x_216); +x_218 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_218, 0, x_56); +lean_ctor_set(x_218, 1, x_217); +lean_ctor_set(x_161, 0, x_218); +return x_161; } else { -lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; lean_object* x_231; lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; lean_object* x_244; lean_object* x_245; lean_object* x_246; lean_object* x_247; lean_object* x_248; lean_object* x_249; lean_object* x_250; lean_object* x_251; lean_object* x_252; lean_object* x_253; lean_object* x_254; lean_object* x_255; lean_object* x_256; lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; lean_object* x_265; lean_object* x_266; lean_object* x_267; lean_object* x_268; lean_object* x_269; lean_object* x_270; lean_object* x_271; -x_214 = lean_ctor_get(x_156, 0); -x_215 = lean_ctor_get(x_156, 1); -lean_inc(x_215); -lean_inc(x_214); -lean_dec(x_156); -x_216 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__19; -lean_inc(x_154); -lean_inc(x_214); -x_217 = l_Lean_addMacroScope(x_214, x_216, x_154); -x_218 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__16; -x_219 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__21; -x_220 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_220, 0, x_21); -lean_ctor_set(x_220, 1, x_218); -lean_ctor_set(x_220, 2, x_217); -lean_ctor_set(x_220, 3, x_219); -x_221 = lean_array_push(x_39, x_220); -x_222 = lean_array_push(x_221, x_41); -x_223 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_223, 0, x_43); -lean_ctor_set(x_223, 1, x_222); -x_224 = lean_array_push(x_39, x_223); -x_225 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__26; -lean_inc(x_154); -lean_inc(x_214); -x_226 = l_Lean_addMacroScope(x_214, x_225, x_154); -x_227 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__24; -x_228 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__28; -x_229 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_229, 0, x_21); -lean_ctor_set(x_229, 1, x_227); -lean_ctor_set(x_229, 2, x_226); -lean_ctor_set(x_229, 3, x_228); -x_230 = lean_array_push(x_39, x_229); -x_231 = lean_array_push(x_230, x_41); -x_232 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_232, 0, x_43); -lean_ctor_set(x_232, 1, x_231); -x_233 = lean_array_push(x_39, x_232); -x_234 = lean_array_push(x_39, x_26); -x_235 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__31; -x_236 = l_Lean_addMacroScope(x_214, x_235, x_154); -x_237 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__30; -x_238 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__33; -x_239 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_239, 0, x_21); -lean_ctor_set(x_239, 1, x_237); -lean_ctor_set(x_239, 2, x_236); -lean_ctor_set(x_239, 3, x_238); -x_240 = lean_array_push(x_39, x_239); -x_241 = lean_array_push(x_240, x_41); -x_242 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_242, 0, x_43); -lean_ctor_set(x_242, 1, x_241); -x_243 = lean_array_push(x_39, x_242); -x_244 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_244, 0, x_48); -lean_ctor_set(x_244, 1, x_46); -x_245 = lean_array_push(x_243, x_244); -x_246 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_246, 0, x_51); -lean_ctor_set(x_246, 1, x_245); -x_247 = lean_array_push(x_39, x_246); -x_248 = lean_array_push(x_247, x_41); +lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; lean_object* x_231; lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; lean_object* x_244; lean_object* x_245; lean_object* x_246; lean_object* x_247; lean_object* x_248; lean_object* x_249; lean_object* x_250; lean_object* x_251; lean_object* x_252; lean_object* x_253; lean_object* x_254; lean_object* x_255; lean_object* x_256; lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; lean_object* x_265; lean_object* x_266; lean_object* x_267; lean_object* x_268; lean_object* x_269; lean_object* x_270; lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; lean_object* x_275; lean_object* x_276; +x_219 = lean_ctor_get(x_161, 0); +x_220 = lean_ctor_get(x_161, 1); +lean_inc(x_220); +lean_inc(x_219); +lean_dec(x_161); +x_221 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__19; +lean_inc(x_159); +lean_inc(x_219); +x_222 = l_Lean_addMacroScope(x_219, x_221, x_159); +x_223 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__16; +x_224 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__21; +x_225 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_225, 0, x_26); +lean_ctor_set(x_225, 1, x_223); +lean_ctor_set(x_225, 2, x_222); +lean_ctor_set(x_225, 3, x_224); +x_226 = lean_array_push(x_44, x_225); +x_227 = lean_array_push(x_226, x_46); +x_228 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_228, 0, x_48); +lean_ctor_set(x_228, 1, x_227); +x_229 = lean_array_push(x_44, x_228); +x_230 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__26; +lean_inc(x_159); +lean_inc(x_219); +x_231 = l_Lean_addMacroScope(x_219, x_230, x_159); +x_232 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__24; +x_233 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__28; +x_234 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_234, 0, x_26); +lean_ctor_set(x_234, 1, x_232); +lean_ctor_set(x_234, 2, x_231); +lean_ctor_set(x_234, 3, x_233); +x_235 = lean_array_push(x_44, x_234); +x_236 = lean_array_push(x_235, x_46); +x_237 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_237, 0, x_48); +lean_ctor_set(x_237, 1, x_236); +x_238 = lean_array_push(x_44, x_237); +x_239 = lean_array_push(x_44, x_31); +x_240 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__31; +x_241 = l_Lean_addMacroScope(x_219, x_240, x_159); +x_242 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__30; +x_243 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__33; +x_244 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_244, 0, x_26); +lean_ctor_set(x_244, 1, x_242); +lean_ctor_set(x_244, 2, x_241); +lean_ctor_set(x_244, 3, x_243); +x_245 = lean_array_push(x_44, x_244); +x_246 = lean_array_push(x_245, x_46); +x_247 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_247, 0, x_48); +lean_ctor_set(x_247, 1, x_246); +x_248 = lean_array_push(x_44, x_247); x_249 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_249, 0, x_48); -lean_ctor_set(x_249, 1, x_248); -x_250 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; -x_251 = lean_array_push(x_250, x_249); -x_252 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_253 = lean_array_push(x_251, x_252); -x_254 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; -x_255 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_255, 0, x_254); -lean_ctor_set(x_255, 1, x_253); -x_256 = lean_array_push(x_234, x_255); -x_257 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_257, 0, x_48); -lean_ctor_set(x_257, 1, x_256); -x_258 = lean_array_push(x_233, x_257); -x_259 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_259, 0, x_51); -lean_ctor_set(x_259, 1, x_258); -x_260 = lean_array_push(x_39, x_259); -x_261 = lean_array_push(x_260, x_41); +lean_ctor_set(x_249, 0, x_53); +lean_ctor_set(x_249, 1, x_51); +x_250 = lean_array_push(x_248, x_249); +x_251 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_251, 0, x_56); +lean_ctor_set(x_251, 1, x_250); +x_252 = lean_array_push(x_44, x_251); +x_253 = lean_array_push(x_252, x_46); +x_254 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_254, 0, x_53); +lean_ctor_set(x_254, 1, x_253); +x_255 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__43; +x_256 = lean_array_push(x_255, x_254); +x_257 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_258 = lean_array_push(x_256, x_257); +x_259 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +x_260 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_260, 0, x_259); +lean_ctor_set(x_260, 1, x_258); +x_261 = lean_array_push(x_239, x_260); x_262 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_262, 0, x_48); +lean_ctor_set(x_262, 0, x_53); lean_ctor_set(x_262, 1, x_261); -x_263 = lean_array_push(x_250, x_262); -x_264 = lean_array_push(x_263, x_252); -x_265 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_265, 0, x_254); -lean_ctor_set(x_265, 1, x_264); -x_266 = lean_array_push(x_39, x_265); -x_267 = lean_array_push(x_266, x_52); -x_268 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_268, 0, x_48); -lean_ctor_set(x_268, 1, x_267); -x_269 = lean_array_push(x_224, x_268); +x_263 = lean_array_push(x_238, x_262); +x_264 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_264, 0, x_56); +lean_ctor_set(x_264, 1, x_263); +x_265 = lean_array_push(x_44, x_264); +x_266 = lean_array_push(x_265, x_46); +x_267 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_267, 0, x_53); +lean_ctor_set(x_267, 1, x_266); +x_268 = lean_array_push(x_255, x_267); +x_269 = lean_array_push(x_268, x_257); x_270 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_270, 0, x_51); +lean_ctor_set(x_270, 0, x_259); lean_ctor_set(x_270, 1, x_269); -x_271 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_271, 0, x_270); -lean_ctor_set(x_271, 1, x_215); -return x_271; +x_271 = lean_array_push(x_44, x_270); +x_272 = lean_array_push(x_271, x_57); +x_273 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_273, 0, x_53); +lean_ctor_set(x_273, 1, x_272); +x_274 = lean_array_push(x_229, x_273); +x_275 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_275, 0, x_56); +lean_ctor_set(x_275, 1, x_274); +x_276 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_276, 0, x_275); +lean_ctor_set(x_276, 1, x_220); +return x_276; } } } else { -lean_object* x_272; lean_object* x_273; -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_8); -x_272 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__6; -x_273 = l_Lean_Elab_Term_throwError___rarg(x_1, x_272, x_2, x_14); +lean_object* x_277; lean_object* x_278; +lean_dec(x_22); +lean_dec(x_21); +lean_dec(x_20); +lean_dec(x_13); +x_277 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__6; +x_278 = l_Lean_Elab_Term_throwError___rarg(x_1, x_277, x_2, x_19); lean_dec(x_1); -return x_273; +return x_278; } } } @@ -6104,33 +5870,10 @@ return x_3; lean_object* l_Lean_Elab_Term_elabTParserMacro___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_67; uint8_t x_68; -x_67 = l_Lean_Parser_Term_tparser_x21___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Term_tparser_x21___elambda__1___closed__2; lean_inc(x_1); -x_68 = l_Lean_Syntax_isOfKind(x_1, x_67); -if (x_68 == 0) -{ -uint8_t x_69; -x_69 = 0; -x_4 = x_69; -goto block_66; -} -else -{ -lean_object* x_70; lean_object* x_71; lean_object* x_72; uint8_t x_73; -x_70 = l_Lean_Syntax_getArgs(x_1); -x_71 = lean_array_get_size(x_70); -lean_dec(x_70); -x_72 = lean_unsigned_to_nat(2u); -x_73 = lean_nat_dec_eq(x_71, x_72); -lean_dec(x_71); -x_4 = x_73; -goto block_66; -} -block_66: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; @@ -6141,123 +5884,140 @@ return x_6; } else { -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; -x_7 = lean_unsigned_to_nat(1u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); -x_9 = l_Lean_Elab_Term_getDeclName_x3f(x_2, x_3); -x_10 = lean_ctor_get(x_9, 0); -lean_inc(x_10); -if (lean_obj_tag(x_10) == 0) -{ -lean_object* x_11; lean_object* x_12; lean_object* x_13; +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(2u); +x_10 = lean_nat_dec_eq(x_8, x_9); lean_dec(x_8); -x_11 = lean_ctor_get(x_9, 1); -lean_inc(x_11); -lean_dec(x_9); -x_12 = l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__3; -x_13 = l_Lean_Elab_Term_throwError___rarg(x_1, x_12, x_2, x_11); +if (x_10 == 0) +{ +lean_object* x_11; +lean_dec(x_2); lean_dec(x_1); -return x_13; +x_11 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_11; } else { -lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21; -lean_dec(x_1); -x_14 = lean_ctor_get(x_9, 1); -lean_inc(x_14); -lean_dec(x_9); -x_15 = lean_ctor_get(x_10, 0); +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_12 = lean_unsigned_to_nat(1u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); +x_14 = l_Lean_Elab_Term_getDeclName_x3f(x_2, x_3); +x_15 = lean_ctor_get(x_14, 0); lean_inc(x_15); -lean_dec(x_10); -x_16 = l___private_Init_Lean_Elab_Quotation_1__quoteName___main(x_15); -x_17 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_14); -lean_dec(x_2); -x_18 = lean_ctor_get(x_17, 0); -lean_inc(x_18); -x_19 = lean_ctor_get(x_17, 1); -lean_inc(x_19); -lean_dec(x_17); -x_20 = l_Lean_Elab_Term_getMainModule___rarg(x_19); -x_21 = !lean_is_exclusive(x_20); -if (x_21 == 0) +if (lean_obj_tag(x_15) == 0) { -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_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; -x_22 = lean_ctor_get(x_20, 0); -x_23 = lean_box(0); -x_24 = l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__8; -x_25 = l_Lean_addMacroScope(x_22, x_24, x_18); -x_26 = l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__6; -x_27 = l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__10; -x_28 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_28, 0, x_23); -lean_ctor_set(x_28, 1, x_26); -lean_ctor_set(x_28, 2, x_25); -lean_ctor_set(x_28, 3, x_27); -x_29 = l_Array_empty___closed__1; -x_30 = lean_array_push(x_29, x_28); -x_31 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_32 = lean_array_push(x_30, x_31); -x_33 = l_Lean_mkTermIdFromIdent___closed__2; -x_34 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_34, 0, x_33); -lean_ctor_set(x_34, 1, x_32); -x_35 = lean_array_push(x_29, x_34); -x_36 = lean_array_push(x_29, x_16); -x_37 = lean_array_push(x_36, x_8); -x_38 = l_Lean_nullKind___closed__2; +lean_object* x_16; lean_object* x_17; lean_object* x_18; +lean_dec(x_13); +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +lean_dec(x_14); +x_17 = l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__3; +x_18 = l_Lean_Elab_Term_throwError___rarg(x_1, x_17, x_2, x_16); +lean_dec(x_1); +return x_18; +} +else +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; uint8_t x_26; +lean_dec(x_1); +x_19 = lean_ctor_get(x_14, 1); +lean_inc(x_19); +lean_dec(x_14); +x_20 = lean_ctor_get(x_15, 0); +lean_inc(x_20); +lean_dec(x_15); +x_21 = l___private_Init_Lean_Elab_Quotation_1__quoteName___main(x_20); +x_22 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_19); +lean_dec(x_2); +x_23 = lean_ctor_get(x_22, 0); +lean_inc(x_23); +x_24 = lean_ctor_get(x_22, 1); +lean_inc(x_24); +lean_dec(x_22); +x_25 = l_Lean_Elab_Term_getMainModule___rarg(x_24); +x_26 = !lean_is_exclusive(x_25); +if (x_26 == 0) +{ +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_45; lean_object* x_46; lean_object* x_47; +x_27 = lean_ctor_get(x_25, 0); +x_28 = lean_box(0); +x_29 = l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__8; +x_30 = l_Lean_addMacroScope(x_27, x_29, x_23); +x_31 = l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__6; +x_32 = l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__10; +x_33 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_33, 0, x_28); +lean_ctor_set(x_33, 1, x_31); +lean_ctor_set(x_33, 2, x_30); +lean_ctor_set(x_33, 3, x_32); +x_34 = l_Array_empty___closed__1; +x_35 = lean_array_push(x_34, x_33); +x_36 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_37 = lean_array_push(x_35, x_36); +x_38 = l_Lean_mkTermIdFromIdent___closed__2; x_39 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_39, 0, x_38); lean_ctor_set(x_39, 1, x_37); -x_40 = lean_array_push(x_35, x_39); -x_41 = l_Lean_mkAppStx___closed__8; -x_42 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_42, 0, x_41); -lean_ctor_set(x_42, 1, x_40); -lean_ctor_set(x_20, 0, x_42); -return x_20; +x_40 = lean_array_push(x_34, x_39); +x_41 = lean_array_push(x_34, x_21); +x_42 = lean_array_push(x_41, x_13); +x_43 = l_Lean_nullKind___closed__2; +x_44 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_44, 0, x_43); +lean_ctor_set(x_44, 1, x_42); +x_45 = lean_array_push(x_40, x_44); +x_46 = l_Lean_mkAppStx___closed__8; +x_47 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_47, 0, x_46); +lean_ctor_set(x_47, 1, x_45); +lean_ctor_set(x_25, 0, x_47); +return x_25; } else { -lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; -x_43 = lean_ctor_get(x_20, 0); -x_44 = lean_ctor_get(x_20, 1); -lean_inc(x_44); -lean_inc(x_43); -lean_dec(x_20); -x_45 = lean_box(0); -x_46 = l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__8; -x_47 = l_Lean_addMacroScope(x_43, x_46, x_18); -x_48 = l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__6; -x_49 = l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__10; -x_50 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_50, 0, x_45); -lean_ctor_set(x_50, 1, x_48); -lean_ctor_set(x_50, 2, x_47); -lean_ctor_set(x_50, 3, x_49); -x_51 = l_Array_empty___closed__1; -x_52 = lean_array_push(x_51, x_50); -x_53 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_54 = lean_array_push(x_52, x_53); -x_55 = l_Lean_mkTermIdFromIdent___closed__2; -x_56 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_56, 0, x_55); -lean_ctor_set(x_56, 1, x_54); -x_57 = lean_array_push(x_51, x_56); -x_58 = lean_array_push(x_51, x_16); -x_59 = lean_array_push(x_58, x_8); -x_60 = l_Lean_nullKind___closed__2; +lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; +x_48 = lean_ctor_get(x_25, 0); +x_49 = lean_ctor_get(x_25, 1); +lean_inc(x_49); +lean_inc(x_48); +lean_dec(x_25); +x_50 = lean_box(0); +x_51 = l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__8; +x_52 = l_Lean_addMacroScope(x_48, x_51, x_23); +x_53 = l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__6; +x_54 = l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__10; +x_55 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_55, 0, x_50); +lean_ctor_set(x_55, 1, x_53); +lean_ctor_set(x_55, 2, x_52); +lean_ctor_set(x_55, 3, x_54); +x_56 = l_Array_empty___closed__1; +x_57 = lean_array_push(x_56, x_55); +x_58 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_59 = lean_array_push(x_57, x_58); +x_60 = l_Lean_mkTermIdFromIdent___closed__2; x_61 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_61, 0, x_60); lean_ctor_set(x_61, 1, x_59); -x_62 = lean_array_push(x_57, x_61); -x_63 = l_Lean_mkAppStx___closed__8; -x_64 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_64, 0, x_63); -lean_ctor_set(x_64, 1, x_62); -x_65 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_65, 0, x_64); -lean_ctor_set(x_65, 1, x_44); -return x_65; +x_62 = lean_array_push(x_56, x_61); +x_63 = lean_array_push(x_56, x_21); +x_64 = lean_array_push(x_63, x_13); +x_65 = l_Lean_nullKind___closed__2; +x_66 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_66, 0, x_65); +lean_ctor_set(x_66, 1, x_64); +x_67 = lean_array_push(x_62, x_66); +x_68 = l_Lean_mkAppStx___closed__8; +x_69 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_69, 0, x_68); +lean_ctor_set(x_69, 1, x_67); +x_70 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_70, 0, x_69); +lean_ctor_set(x_70, 1, x_49); +return x_70; } } } diff --git a/stage0/stdlib/Init/Lean/Elab/Command.c b/stage0/stdlib/Init/Lean/Elab/Command.c index 0c840c8212..d84d380ae2 100644 --- a/stage0/stdlib/Init/Lean/Elab/Command.c +++ b/stage0/stdlib/Init/Lean/Elab/Command.c @@ -76,7 +76,6 @@ lean_object* l_Lean_Elab_Command_elabUniverse(lean_object*, lean_object*, lean_o lean_object* lean_array_fswap(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_identKind___closed__2; lean_object* l_Lean_Elab_Command_withNamespace___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -extern uint8_t l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; lean_object* l___private_Init_Lean_Elab_Command_10__toCommandResult(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_runTermElabM___rarg___closed__1; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabSetOption___closed__2; @@ -208,7 +207,6 @@ lean_object* l_List_foldl___main___at_Lean_Elab_Command_sortDeclLevelParams___sp uint8_t lean_nat_dec_eq(lean_object*, lean_object*); extern lean_object* l_Lean_Elab_Term_termElabAttribute___closed__4; lean_object* l_Lean_Elab_Command_modifyScope___at_Lean_Elab_Command_withDeclId___spec__2(lean_object*, lean_object*, lean_object*); -extern lean_object* l_List_Monad; lean_object* l_Lean_Elab_Command_CommandElabM_monadLog___closed__1; lean_object* l_Lean_Elab_Command_CommandElabM_monadLog___closed__3; lean_object* l_Lean_Elab_Command_CommandElabM_monadLog___lambda__3___boxed(lean_object*, lean_object*, lean_object*); @@ -301,7 +299,6 @@ extern lean_object* l_Lean_Options_empty; extern lean_object* l_Lean_Parser_Command_variable___elambda__1___closed__2; lean_object* l_Array_iterateMAux___main___at_Lean_Elab_Command_elabOpenSimple___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_ReaderT_read___at_Lean_Elab_Command_CommandElabM_monadLog___spec__1(lean_object*, lean_object*); -uint8_t l_coeDecidableEq(uint8_t); lean_object* l_Lean_Elab_Command_addUnivLevel___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabExport___closed__1; size_t lean_usize_modn(size_t, lean_object*); @@ -339,7 +336,6 @@ lean_object* l_mkHashMapImp___rarg(lean_object*); lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabOpen(lean_object*); lean_object* l_Lean_Elab_Command_elabEnd(lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_Command_modifyScope___closed__1; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabCheck(lean_object*); lean_object* l_Array_filterAux___main___at_Lean_Elab_Command_sortDeclLevelParams___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_registerAttributeImplBuilder___closed__2; @@ -582,7 +578,6 @@ uint8_t lean_string_dec_eq(lean_object*, lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); lean_object* l_HashMapImp_contains___at_Lean_Elab_Command_addBuiltinCommandElab___spec__2___boxed(lean_object*, lean_object*); lean_object* l_Lean_Elab_log___at_Lean_Elab_Command_logTrace___spec__1(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); -lean_object* l_monadInhabited___rarg(lean_object*, lean_object*); lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabEnd___closed__2; lean_object* lean_add_decl(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_logTrace(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -9000,66 +8995,47 @@ lean_inc(x_1); x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { -uint8_t x_6; -x_6 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_6 == 0) -{ -lean_object* x_7; lean_object* x_8; +lean_object* x_6; lean_object* x_7; lean_dec(x_2); lean_dec(x_1); -x_7 = lean_box(1); -x_8 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_8, 0, x_7); -lean_ctor_set(x_8, 1, x_3); -return x_8; +x_6 = lean_box(1); +x_7 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_3); +return x_7; } else { -lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; uint8_t x_13; lean_object* x_14; -x_9 = lean_unsigned_to_nat(1u); -x_10 = l_Lean_Syntax_getArg(x_1, x_9); -x_11 = l_Lean_Syntax_getId(x_10); -lean_dec(x_10); -x_12 = l_Lean_Parser_Command_namespace___elambda__1___closed__1; -x_13 = 1; -x_14 = l___private_Init_Lean_Elab_Command_12__addScopes___main(x_1, x_12, x_13, x_11, x_2, x_3); +lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; +x_8 = l_Lean_Syntax_getArgs(x_1); +x_9 = lean_array_get_size(x_8); +lean_dec(x_8); +x_10 = lean_unsigned_to_nat(2u); +x_11 = lean_nat_dec_eq(x_9, x_10); +lean_dec(x_9); +if (x_11 == 0) +{ +lean_object* x_12; lean_object* x_13; +lean_dec(x_2); lean_dec(x_1); -return x_14; -} +x_12 = lean_box(1); +x_13 = lean_alloc_ctor(1, 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_15; lean_object* x_16; lean_object* x_17; uint8_t x_18; uint8_t x_19; -x_15 = l_Lean_Syntax_getArgs(x_1); -x_16 = lean_array_get_size(x_15); +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; uint8_t x_18; lean_object* x_19; +x_14 = lean_unsigned_to_nat(1u); +x_15 = l_Lean_Syntax_getArg(x_1, x_14); +x_16 = l_Lean_Syntax_getId(x_15); lean_dec(x_15); -x_17 = lean_unsigned_to_nat(2u); -x_18 = lean_nat_dec_eq(x_16, x_17); -lean_dec(x_16); -x_19 = l_coeDecidableEq(x_18); -if (x_19 == 0) -{ -lean_object* x_20; lean_object* x_21; -lean_dec(x_2); +x_17 = l_Lean_Parser_Command_namespace___elambda__1___closed__1; +x_18 = 1; +x_19 = l___private_Init_Lean_Elab_Command_12__addScopes___main(x_1, x_17, x_18, x_16, x_2, x_3); lean_dec(x_1); -x_20 = lean_box(1); -x_21 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_21, 0, x_20); -lean_ctor_set(x_21, 1, x_3); -return x_21; -} -else -{ -lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; uint8_t x_26; lean_object* x_27; -x_22 = lean_unsigned_to_nat(1u); -x_23 = l_Lean_Syntax_getArg(x_1, x_22); -x_24 = l_Lean_Syntax_getId(x_23); -lean_dec(x_23); -x_25 = l_Lean_Parser_Command_namespace___elambda__1___closed__1; -x_26 = 1; -x_27 = l___private_Init_Lean_Elab_Command_12__addScopes___main(x_1, x_25, x_26, x_24, x_2, x_3); -lean_dec(x_1); -return x_27; +return x_19; } } } @@ -9104,33 +9080,10 @@ return x_5; lean_object* l_Lean_Elab_Command_elabSection(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_61; uint8_t x_62; -x_61 = l_Lean_Parser_Command_section___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Command_section___elambda__1___closed__2; lean_inc(x_1); -x_62 = l_Lean_Syntax_isOfKind(x_1, x_61); -if (x_62 == 0) -{ -uint8_t x_63; -x_63 = 0; -x_4 = x_63; -goto block_60; -} -else -{ -lean_object* x_64; lean_object* x_65; lean_object* x_66; uint8_t x_67; -x_64 = l_Lean_Syntax_getArgs(x_1); -x_65 = lean_array_get_size(x_64); -lean_dec(x_64); -x_66 = lean_unsigned_to_nat(2u); -x_67 = lean_nat_dec_eq(x_65, x_66); -lean_dec(x_65); -x_4 = x_67; -goto block_60; -} -block_60: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; lean_object* x_7; @@ -9144,192 +9097,144 @@ return x_7; } else { -lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; uint8_t x_12; -x_8 = lean_unsigned_to_nat(1u); -x_9 = l_Lean_Syntax_getArg(x_1, x_8); -x_10 = l_Lean_nullKind___closed__2; -lean_inc(x_9); -x_11 = l_Lean_Syntax_isOfKind(x_9, x_10); -if (x_11 == 0) -{ -uint8_t x_56; -x_56 = 0; -x_12 = x_56; -goto block_55; -} -else -{ -lean_object* x_57; lean_object* x_58; uint8_t x_59; -x_57 = l_Lean_Syntax_getArgs(x_9); -x_58 = lean_array_get_size(x_57); -lean_dec(x_57); -x_59 = lean_nat_dec_eq(x_58, x_8); -lean_dec(x_58); -x_12 = x_59; -goto block_55; -} -block_55: -{ -uint8_t x_13; -x_13 = l_coeDecidableEq(x_12); -if (x_13 == 0) -{ -lean_dec(x_1); -if (x_11 == 0) -{ -uint8_t x_14; +lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; +x_8 = l_Lean_Syntax_getArgs(x_1); +x_9 = lean_array_get_size(x_8); +lean_dec(x_8); +x_10 = lean_unsigned_to_nat(2u); +x_11 = lean_nat_dec_eq(x_9, x_10); lean_dec(x_9); -x_14 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_14 == 0) +if (x_11 == 0) { -lean_object* x_15; lean_object* x_16; +lean_object* x_12; lean_object* x_13; lean_dec(x_2); -x_15 = lean_box(1); -x_16 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_16, 0, x_15); -lean_ctor_set(x_16, 1, x_3); -return x_16; +lean_dec(x_1); +x_12 = lean_box(1); +x_13 = lean_alloc_ctor(1, 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_17; -lean_inc(x_2); -x_17 = l_Lean_Elab_Command_getCurrNamespace(x_2, x_3); -if (lean_obj_tag(x_17) == 0) +lean_object* x_14; lean_object* x_15; lean_object* x_16; uint8_t x_17; +x_14 = lean_unsigned_to_nat(1u); +x_15 = l_Lean_Syntax_getArg(x_1, x_14); +x_16 = l_Lean_nullKind___closed__2; +lean_inc(x_15); +x_17 = l_Lean_Syntax_isOfKind(x_15, x_16); +if (x_17 == 0) { -lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; -x_18 = lean_ctor_get(x_17, 0); -lean_inc(x_18); -x_19 = lean_ctor_get(x_17, 1); -lean_inc(x_19); -lean_dec(x_17); -x_20 = l_Lean_Parser_Command_section___elambda__1___closed__1; -x_21 = l_String_splitAux___main___closed__1; -x_22 = l___private_Init_Lean_Elab_Command_11__addScope(x_20, x_21, x_18, x_2, x_19); -return x_22; -} -else -{ -uint8_t x_23; +lean_object* x_18; lean_object* x_19; +lean_dec(x_15); lean_dec(x_2); -x_23 = !lean_is_exclusive(x_17); -if (x_23 == 0) -{ -return x_17; +lean_dec(x_1); +x_18 = lean_box(1); +x_19 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_3); +return x_19; } else { -lean_object* x_24; lean_object* x_25; lean_object* x_26; -x_24 = lean_ctor_get(x_17, 0); -x_25 = lean_ctor_get(x_17, 1); -lean_inc(x_25); -lean_inc(x_24); -lean_dec(x_17); +lean_object* x_20; lean_object* x_21; uint8_t x_22; +x_20 = l_Lean_Syntax_getArgs(x_15); +x_21 = lean_array_get_size(x_20); +lean_dec(x_20); +x_22 = lean_nat_dec_eq(x_21, x_14); +if (x_22 == 0) +{ +lean_object* x_23; uint8_t x_24; +lean_dec(x_15); +lean_dec(x_1); +x_23 = lean_unsigned_to_nat(0u); +x_24 = lean_nat_dec_eq(x_21, x_23); +lean_dec(x_21); +if (x_24 == 0) +{ +lean_object* x_25; lean_object* x_26; +lean_dec(x_2); +x_25 = lean_box(1); x_26 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_26, 0, x_24); -lean_ctor_set(x_26, 1, x_25); +lean_ctor_set(x_26, 0, x_25); +lean_ctor_set(x_26, 1, x_3); return x_26; } -} -} -} else { -lean_object* x_27; lean_object* x_28; lean_object* x_29; uint8_t x_30; uint8_t x_31; -x_27 = l_Lean_Syntax_getArgs(x_9); -lean_dec(x_9); -x_28 = lean_array_get_size(x_27); -lean_dec(x_27); -x_29 = lean_unsigned_to_nat(0u); -x_30 = lean_nat_dec_eq(x_28, x_29); -lean_dec(x_28); -x_31 = l_coeDecidableEq(x_30); -if (x_31 == 0) -{ -lean_object* x_32; lean_object* x_33; -lean_dec(x_2); -x_32 = lean_box(1); -x_33 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_33, 0, x_32); -lean_ctor_set(x_33, 1, x_3); -return x_33; -} -else -{ -lean_object* x_34; +lean_object* x_27; lean_inc(x_2); -x_34 = l_Lean_Elab_Command_getCurrNamespace(x_2, x_3); -if (lean_obj_tag(x_34) == 0) +x_27 = l_Lean_Elab_Command_getCurrNamespace(x_2, x_3); +if (lean_obj_tag(x_27) == 0) { -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_34, 0); -lean_inc(x_35); -x_36 = lean_ctor_get(x_34, 1); -lean_inc(x_36); -lean_dec(x_34); -x_37 = l_Lean_Parser_Command_section___elambda__1___closed__1; -x_38 = l_String_splitAux___main___closed__1; -x_39 = l___private_Init_Lean_Elab_Command_11__addScope(x_37, x_38, x_35, x_2, x_36); -return x_39; +lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_28 = lean_ctor_get(x_27, 0); +lean_inc(x_28); +x_29 = lean_ctor_get(x_27, 1); +lean_inc(x_29); +lean_dec(x_27); +x_30 = l_Lean_Parser_Command_section___elambda__1___closed__1; +x_31 = l_String_splitAux___main___closed__1; +x_32 = l___private_Init_Lean_Elab_Command_11__addScope(x_30, x_31, x_28, x_2, x_29); +return x_32; } else { -uint8_t x_40; +uint8_t x_33; lean_dec(x_2); -x_40 = !lean_is_exclusive(x_34); +x_33 = !lean_is_exclusive(x_27); +if (x_33 == 0) +{ +return x_27; +} +else +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; +x_34 = lean_ctor_get(x_27, 0); +x_35 = lean_ctor_get(x_27, 1); +lean_inc(x_35); +lean_inc(x_34); +lean_dec(x_27); +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_34); +lean_ctor_set(x_36, 1, x_35); +return x_36; +} +} +} +} +else +{ +lean_object* x_37; lean_object* x_38; lean_object* x_39; uint8_t x_40; +lean_dec(x_21); +x_37 = lean_unsigned_to_nat(0u); +x_38 = l_Lean_Syntax_getArg(x_15, x_37); +lean_dec(x_15); +x_39 = l_Lean_identKind___closed__2; +lean_inc(x_38); +x_40 = l_Lean_Syntax_isOfKind(x_38, x_39); if (x_40 == 0) { -return x_34; -} -else -{ -lean_object* x_41; lean_object* x_42; lean_object* x_43; -x_41 = lean_ctor_get(x_34, 0); -x_42 = lean_ctor_get(x_34, 1); -lean_inc(x_42); -lean_inc(x_41); -lean_dec(x_34); -x_43 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_43, 0, x_41); -lean_ctor_set(x_43, 1, x_42); -return x_43; -} -} -} -} -} -else -{ -lean_object* x_44; lean_object* x_45; lean_object* x_46; uint8_t x_47; uint8_t x_48; -x_44 = lean_unsigned_to_nat(0u); -x_45 = l_Lean_Syntax_getArg(x_9, x_44); -lean_dec(x_9); -x_46 = l_Lean_identKind___closed__2; -lean_inc(x_45); -x_47 = l_Lean_Syntax_isOfKind(x_45, x_46); -x_48 = l_coeDecidableEq(x_47); -if (x_48 == 0) -{ -lean_object* x_49; lean_object* x_50; -lean_dec(x_45); +lean_object* x_41; lean_object* x_42; +lean_dec(x_38); lean_dec(x_2); lean_dec(x_1); -x_49 = lean_box(1); -x_50 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_50, 0, x_49); -lean_ctor_set(x_50, 1, x_3); -return x_50; +x_41 = lean_box(1); +x_42 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_42, 0, x_41); +lean_ctor_set(x_42, 1, x_3); +return x_42; } else { -lean_object* x_51; lean_object* x_52; uint8_t x_53; lean_object* x_54; -x_51 = l_Lean_Syntax_getId(x_45); -lean_dec(x_45); -x_52 = l_Lean_Parser_Command_section___elambda__1___closed__1; -x_53 = 0; -x_54 = l___private_Init_Lean_Elab_Command_12__addScopes___main(x_1, x_52, x_53, x_51, x_2, x_3); +lean_object* x_43; lean_object* x_44; uint8_t x_45; lean_object* x_46; +x_43 = l_Lean_Syntax_getId(x_38); +lean_dec(x_38); +x_44 = l_Lean_Parser_Command_section___elambda__1___closed__1; +x_45 = 0; +x_46 = l___private_Init_Lean_Elab_Command_12__addScopes___main(x_1, x_44, x_45, x_43, x_2, x_3); lean_dec(x_1); -return x_54; +return x_46; } } } @@ -10438,16 +10343,6 @@ lean_dec(x_1); return x_6; } } -lean_object* _init_l_Lean_Elab_Command_modifyScope___closed__1() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_List_Monad; -x_2 = l_Lean_Elab_Command_Scope_inhabited; -x_3 = l_monadInhabited___rarg(x_1, x_2); -return x_3; -} -} lean_object* l_Lean_Elab_Command_modifyScope(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -10474,7 +10369,7 @@ if (x_8 == 0) lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; x_9 = lean_ctor_get(x_5, 2); lean_dec(x_9); -x_10 = l_Lean_Elab_Command_modifyScope___closed__1; +x_10 = lean_box(0); x_11 = l_unreachable_x21___rarg(x_10); lean_ctor_set(x_5, 2, x_11); x_12 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_7); @@ -10539,7 +10434,7 @@ lean_inc(x_25); lean_inc(x_24); lean_inc(x_23); lean_dec(x_5); -x_27 = l_Lean_Elab_Command_modifyScope___closed__1; +x_27 = lean_box(0); x_28 = l_unreachable_x21___rarg(x_27); x_29 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_29, 0, x_23); @@ -11017,7 +10912,7 @@ if (x_8 == 0) lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; x_9 = lean_ctor_get(x_5, 2); lean_dec(x_9); -x_10 = l_Lean_Elab_Command_modifyScope___closed__1; +x_10 = lean_box(0); x_11 = l_unreachable_x21___rarg(x_10); lean_ctor_set(x_5, 2, x_11); x_12 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_7); @@ -11082,7 +10977,7 @@ lean_inc(x_25); lean_inc(x_24); lean_inc(x_23); lean_dec(x_5); -x_27 = l_Lean_Elab_Command_modifyScope___closed__1; +x_27 = lean_box(0); x_28 = l_unreachable_x21___rarg(x_27); x_29 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_29, 0, x_23); @@ -12828,7 +12723,7 @@ if (x_8 == 0) lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; x_9 = lean_ctor_get(x_5, 2); lean_dec(x_9); -x_10 = l_Lean_Elab_Command_modifyScope___closed__1; +x_10 = lean_box(0); x_11 = l_unreachable_x21___rarg(x_10); lean_ctor_set(x_5, 2, x_11); x_12 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_7); @@ -12893,7 +12788,7 @@ lean_inc(x_25); lean_inc(x_24); lean_inc(x_23); lean_dec(x_5); -x_27 = l_Lean_Elab_Command_modifyScope___closed__1; +x_27 = lean_box(0); x_28 = l_unreachable_x21___rarg(x_27); x_29 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_29, 0, x_23); @@ -14365,7 +14260,7 @@ if (x_8 == 0) lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; x_9 = lean_ctor_get(x_5, 2); lean_dec(x_9); -x_10 = l_Lean_Elab_Command_modifyScope___closed__1; +x_10 = lean_box(0); x_11 = l_unreachable_x21___rarg(x_10); lean_ctor_set(x_5, 2, x_11); x_12 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_7); @@ -14430,7 +14325,7 @@ lean_inc(x_25); lean_inc(x_24); lean_inc(x_23); lean_dec(x_5); -x_27 = l_Lean_Elab_Command_modifyScope___closed__1; +x_27 = lean_box(0); x_28 = l_unreachable_x21___rarg(x_27); x_29 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_29, 0, x_23); @@ -15421,7 +15316,7 @@ if (x_8 == 0) lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; x_9 = lean_ctor_get(x_5, 2); lean_dec(x_9); -x_10 = l_Lean_Elab_Command_modifyScope___closed__1; +x_10 = lean_box(0); x_11 = l_unreachable_x21___rarg(x_10); lean_ctor_set(x_5, 2, x_11); x_12 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_7); @@ -15486,7 +15381,7 @@ lean_inc(x_25); lean_inc(x_24); lean_inc(x_23); lean_dec(x_5); -x_27 = l_Lean_Elab_Command_modifyScope___closed__1; +x_27 = lean_box(0); x_28 = l_unreachable_x21___rarg(x_27); x_29 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_29, 0, x_23); @@ -17878,7 +17773,7 @@ if (x_9 == 0) lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; x_10 = lean_ctor_get(x_6, 2); lean_dec(x_10); -x_11 = l_Lean_Elab_Command_modifyScope___closed__1; +x_11 = lean_box(0); x_12 = l_unreachable_x21___rarg(x_11); lean_ctor_set(x_6, 2, x_12); x_13 = l___private_Init_Lean_Elab_Command_3__setState(x_6, x_3, x_8); @@ -17943,7 +17838,7 @@ lean_inc(x_26); lean_inc(x_25); lean_inc(x_24); lean_dec(x_6); -x_28 = l_Lean_Elab_Command_modifyScope___closed__1; +x_28 = lean_box(0); x_29 = l_unreachable_x21___rarg(x_28); x_30 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_30, 0, x_24); @@ -19213,7 +19108,7 @@ if (x_8 == 0) lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; x_9 = lean_ctor_get(x_5, 2); lean_dec(x_9); -x_10 = l_Lean_Elab_Command_modifyScope___closed__1; +x_10 = lean_box(0); x_11 = l_unreachable_x21___rarg(x_10); lean_ctor_set(x_5, 2, x_11); x_12 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_7); @@ -19278,7 +19173,7 @@ lean_inc(x_25); lean_inc(x_24); lean_inc(x_23); lean_dec(x_5); -x_27 = l_Lean_Elab_Command_modifyScope___closed__1; +x_27 = lean_box(0); x_28 = l_unreachable_x21___rarg(x_27); x_29 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_29, 0, x_23); @@ -19760,7 +19655,7 @@ if (x_8 == 0) lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; x_9 = lean_ctor_get(x_5, 2); lean_dec(x_9); -x_10 = l_Lean_Elab_Command_modifyScope___closed__1; +x_10 = lean_box(0); x_11 = l_unreachable_x21___rarg(x_10); lean_ctor_set(x_5, 2, x_11); x_12 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_7); @@ -19825,7 +19720,7 @@ lean_inc(x_25); lean_inc(x_24); lean_inc(x_23); lean_dec(x_5); -x_27 = l_Lean_Elab_Command_modifyScope___closed__1; +x_27 = lean_box(0); x_28 = l_unreachable_x21___rarg(x_27); x_29 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_29, 0, x_23); @@ -20307,7 +20202,7 @@ if (x_8 == 0) lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; x_9 = lean_ctor_get(x_5, 2); lean_dec(x_9); -x_10 = l_Lean_Elab_Command_modifyScope___closed__1; +x_10 = lean_box(0); x_11 = l_unreachable_x21___rarg(x_10); lean_ctor_set(x_5, 2, x_11); x_12 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_7); @@ -20372,7 +20267,7 @@ lean_inc(x_25); lean_inc(x_24); lean_inc(x_23); lean_dec(x_5); -x_27 = l_Lean_Elab_Command_modifyScope___closed__1; +x_27 = lean_box(0); x_28 = l_unreachable_x21___rarg(x_27); x_29 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_29, 0, x_23); @@ -20854,7 +20749,7 @@ if (x_8 == 0) lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; x_9 = lean_ctor_get(x_5, 2); lean_dec(x_9); -x_10 = l_Lean_Elab_Command_modifyScope___closed__1; +x_10 = lean_box(0); x_11 = l_unreachable_x21___rarg(x_10); lean_ctor_set(x_5, 2, x_11); x_12 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_7); @@ -20919,7 +20814,7 @@ lean_inc(x_25); lean_inc(x_24); lean_inc(x_23); lean_dec(x_5); -x_27 = l_Lean_Elab_Command_modifyScope___closed__1; +x_27 = lean_box(0); x_28 = l_unreachable_x21___rarg(x_27); x_29 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_29, 0, x_23); @@ -23199,8 +23094,6 @@ lean_mark_persistent(l___regBuiltinCommandElab_Lean_Elab_Command_elabEnd___close res = l___regBuiltinCommandElab_Lean_Elab_Command_elabEnd(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -l_Lean_Elab_Command_modifyScope___closed__1 = _init_l_Lean_Elab_Command_modifyScope___closed__1(); -lean_mark_persistent(l_Lean_Elab_Command_modifyScope___closed__1); l_Lean_Elab_Command_throwAlreadyDeclaredUniverseLevel___rarg___closed__1 = _init_l_Lean_Elab_Command_throwAlreadyDeclaredUniverseLevel___rarg___closed__1(); lean_mark_persistent(l_Lean_Elab_Command_throwAlreadyDeclaredUniverseLevel___rarg___closed__1); l_Lean_Elab_Command_throwAlreadyDeclaredUniverseLevel___rarg___closed__2 = _init_l_Lean_Elab_Command_throwAlreadyDeclaredUniverseLevel___rarg___closed__2(); diff --git a/stage0/stdlib/Init/Lean/Elab/Declaration.c b/stage0/stdlib/Init/Lean/Elab/Declaration.c index 8ee84d300f..db3978c5a7 100644 --- a/stage0/stdlib/Init/Lean/Elab/Declaration.c +++ b/stage0/stdlib/Init/Lean/Elab/Declaration.c @@ -89,7 +89,6 @@ lean_object* l___private_Init_Lean_Elab_Command_6__mkTermContext(lean_object*, l lean_object* l_Lean_Elab_Command_elabConstant___closed__7; lean_object* l_Lean_Elab_Command_modifyScope___at_Lean_Elab_Command_elabAxiom___spec__3(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabTheorem(lean_object*, lean_object*, lean_object*, lean_object*); -extern lean_object* l_Lean_Elab_Command_modifyScope___closed__1; lean_object* l_Lean_Elab_Command_elabDef(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Elab_Command_withDeclId___closed__3; lean_object* l_Lean_Elab_Command_elabAxiom___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -839,7 +838,7 @@ if (x_8 == 0) lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; x_9 = lean_ctor_get(x_5, 2); lean_dec(x_9); -x_10 = l_Lean_Elab_Command_modifyScope___closed__1; +x_10 = lean_box(0); x_11 = l_unreachable_x21___rarg(x_10); lean_ctor_set(x_5, 2, x_11); x_12 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_7); @@ -904,7 +903,7 @@ lean_inc(x_25); lean_inc(x_24); lean_inc(x_23); lean_dec(x_5); -x_27 = l_Lean_Elab_Command_modifyScope___closed__1; +x_27 = lean_box(0); x_28 = l_unreachable_x21___rarg(x_27); x_29 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_29, 0, x_23); @@ -1386,7 +1385,7 @@ if (x_8 == 0) lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; x_9 = lean_ctor_get(x_5, 2); lean_dec(x_9); -x_10 = l_Lean_Elab_Command_modifyScope___closed__1; +x_10 = lean_box(0); x_11 = l_unreachable_x21___rarg(x_10); lean_ctor_set(x_5, 2, x_11); x_12 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_7); @@ -1451,7 +1450,7 @@ lean_inc(x_25); lean_inc(x_24); lean_inc(x_23); lean_dec(x_5); -x_27 = l_Lean_Elab_Command_modifyScope___closed__1; +x_27 = lean_box(0); x_28 = l_unreachable_x21___rarg(x_27); x_29 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_29, 0, x_23); @@ -1933,7 +1932,7 @@ if (x_8 == 0) lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; x_9 = lean_ctor_get(x_5, 2); lean_dec(x_9); -x_10 = l_Lean_Elab_Command_modifyScope___closed__1; +x_10 = lean_box(0); x_11 = l_unreachable_x21___rarg(x_10); lean_ctor_set(x_5, 2, x_11); x_12 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_7); @@ -1998,7 +1997,7 @@ lean_inc(x_25); lean_inc(x_24); lean_inc(x_23); lean_dec(x_5); -x_27 = l_Lean_Elab_Command_modifyScope___closed__1; +x_27 = lean_box(0); x_28 = l_unreachable_x21___rarg(x_27); x_29 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_29, 0, x_23); @@ -2480,7 +2479,7 @@ if (x_8 == 0) lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; x_9 = lean_ctor_get(x_5, 2); lean_dec(x_9); -x_10 = l_Lean_Elab_Command_modifyScope___closed__1; +x_10 = lean_box(0); x_11 = l_unreachable_x21___rarg(x_10); lean_ctor_set(x_5, 2, x_11); x_12 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_7); @@ -2545,7 +2544,7 @@ lean_inc(x_25); lean_inc(x_24); lean_inc(x_23); lean_dec(x_5); -x_27 = l_Lean_Elab_Command_modifyScope___closed__1; +x_27 = lean_box(0); x_28 = l_unreachable_x21___rarg(x_27); x_29 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_29, 0, x_23); diff --git a/stage0/stdlib/Init/Lean/Elab/Definition.c b/stage0/stdlib/Init/Lean/Elab/Definition.c index b8d9db1b4f..aa1535f6a7 100644 --- a/stage0/stdlib/Init/Lean/Elab/Definition.c +++ b/stage0/stdlib/Init/Lean/Elab/Definition.c @@ -90,7 +90,6 @@ 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_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; @@ -2051,7 +2050,7 @@ if (x_8 == 0) lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; x_9 = lean_ctor_get(x_5, 2); lean_dec(x_9); -x_10 = l_Lean_Elab_Command_modifyScope___closed__1; +x_10 = lean_box(0); x_11 = l_unreachable_x21___rarg(x_10); lean_ctor_set(x_5, 2, x_11); x_12 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_7); @@ -2116,7 +2115,7 @@ lean_inc(x_25); lean_inc(x_24); lean_inc(x_23); lean_dec(x_5); -x_27 = l_Lean_Elab_Command_modifyScope___closed__1; +x_27 = lean_box(0); x_28 = l_unreachable_x21___rarg(x_27); x_29 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_29, 0, x_23); @@ -2598,7 +2597,7 @@ if (x_8 == 0) lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; x_9 = lean_ctor_get(x_5, 2); lean_dec(x_9); -x_10 = l_Lean_Elab_Command_modifyScope___closed__1; +x_10 = lean_box(0); x_11 = l_unreachable_x21___rarg(x_10); lean_ctor_set(x_5, 2, x_11); x_12 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_7); @@ -2663,7 +2662,7 @@ lean_inc(x_25); lean_inc(x_24); lean_inc(x_23); lean_dec(x_5); -x_27 = l_Lean_Elab_Command_modifyScope___closed__1; +x_27 = lean_box(0); x_28 = l_unreachable_x21___rarg(x_27); x_29 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_29, 0, x_23); @@ -3145,7 +3144,7 @@ if (x_8 == 0) lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; x_9 = lean_ctor_get(x_5, 2); lean_dec(x_9); -x_10 = l_Lean_Elab_Command_modifyScope___closed__1; +x_10 = lean_box(0); x_11 = l_unreachable_x21___rarg(x_10); lean_ctor_set(x_5, 2, x_11); x_12 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_7); @@ -3210,7 +3209,7 @@ lean_inc(x_25); lean_inc(x_24); lean_inc(x_23); lean_dec(x_5); -x_27 = l_Lean_Elab_Command_modifyScope___closed__1; +x_27 = lean_box(0); x_28 = l_unreachable_x21___rarg(x_27); x_29 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_29, 0, x_23); @@ -3692,7 +3691,7 @@ if (x_8 == 0) lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; x_9 = lean_ctor_get(x_5, 2); lean_dec(x_9); -x_10 = l_Lean_Elab_Command_modifyScope___closed__1; +x_10 = lean_box(0); x_11 = l_unreachable_x21___rarg(x_10); lean_ctor_set(x_5, 2, x_11); x_12 = l___private_Init_Lean_Elab_Command_3__setState(x_5, x_2, x_7); @@ -3757,7 +3756,7 @@ lean_inc(x_25); lean_inc(x_24); lean_inc(x_23); lean_dec(x_5); -x_27 = l_Lean_Elab_Command_modifyScope___closed__1; +x_27 = lean_box(0); x_28 = l_unreachable_x21___rarg(x_27); x_29 = lean_alloc_ctor(0, 5, 0); lean_ctor_set(x_29, 0, x_23); diff --git a/stage0/stdlib/Init/Lean/Elab/Quotation.c b/stage0/stdlib/Init/Lean/Elab/Quotation.c index 9fdcd37d16..0c6c91659d 100644 --- a/stage0/stdlib/Init/Lean/Elab/Quotation.c +++ b/stage0/stdlib/Init/Lean/Elab/Quotation.c @@ -86,7 +86,6 @@ lean_object* l___private_Init_Lean_Elab_Quotation_9__compileStxMatch___main___cl extern lean_object* l_Lean_nameToExprAux___main___closed__4; lean_object* l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___lambda__3(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__50; -extern uint8_t l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; extern lean_object* l_Prod_HasRepr___rarg___closed__1; lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Quotation_7__getHeadInfo___spec__2___closed__1; lean_object* l___private_Init_Lean_Elab_Quotation_9__compileStxMatch___main___closed__21; @@ -344,7 +343,6 @@ extern lean_object* l_Lean_Options_empty; lean_object* l_List_map___main___at_Lean_Elab_Term_Quotation_oldExpandMatchSyntax___spec__2(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_beq___elambda__1___closed__1; lean_object* l_List_mapM___main___at___private_Init_Lean_Elab_Quotation_9__compileStxMatch___main___spec__10___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -uint8_t l_coeDecidableEq(uint8_t); lean_object* l___private_Init_Lean_Elab_Quotation_3__quoteOption___rarg___closed__5; lean_object* l_Lean_Array_hasQuote___rarg___boxed(lean_object*, lean_object*); extern lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__2; @@ -5746,37 +5744,107 @@ x_50 = l_Lean_Elab_Term_Quotation_isAntiquotSplice(x_14); if (x_46 == 0) { x_51 = x_16; -goto block_98; +goto block_82; } else { -lean_object* x_99; +lean_object* x_83; lean_dec(x_16); -x_99 = lean_box(0); -x_51 = x_99; -goto block_98; +x_83 = lean_box(0); +x_51 = x_83; +goto block_82; } -block_98: +block_82: { -lean_object* x_52; uint8_t x_64; +lean_object* x_52; if (x_49 == 0) { -uint8_t x_93; -x_93 = 0; -x_64 = x_93; -goto block_92; +x_52 = x_47; +goto block_63; } else { -lean_object* x_94; lean_object* x_95; lean_object* x_96; uint8_t x_97; -x_94 = l_Lean_Syntax_getArgs(x_47); -x_95 = lean_array_get_size(x_94); -lean_dec(x_94); -x_96 = lean_unsigned_to_nat(3u); -x_97 = lean_nat_dec_eq(x_95, x_96); -lean_dec(x_95); -x_64 = x_97; -goto block_92; +lean_object* x_64; lean_object* x_65; lean_object* x_66; uint8_t x_67; +x_64 = l_Lean_Syntax_getArgs(x_47); +x_65 = lean_array_get_size(x_64); +lean_dec(x_64); +x_66 = lean_unsigned_to_nat(3u); +x_67 = lean_nat_dec_eq(x_65, x_66); +lean_dec(x_65); +if (x_67 == 0) +{ +x_52 = x_47; +goto block_63; +} +else +{ +lean_object* x_68; lean_object* x_69; uint8_t x_70; +x_68 = l_Lean_Syntax_getArg(x_47, x_13); +x_69 = l_Lean_nullKind___closed__2; +lean_inc(x_68); +x_70 = l_Lean_Syntax_isOfKind(x_68, x_69); +if (x_70 == 0) +{ +lean_dec(x_68); +x_52 = x_47; +goto block_63; +} +else +{ +lean_object* x_71; lean_object* x_72; lean_object* x_73; uint8_t x_74; +x_71 = l_Lean_Syntax_getArgs(x_68); +x_72 = lean_array_get_size(x_71); +lean_dec(x_71); +x_73 = lean_unsigned_to_nat(2u); +x_74 = lean_nat_dec_eq(x_72, x_73); +lean_dec(x_72); +if (x_74 == 0) +{ +lean_dec(x_68); +x_52 = x_47; +goto block_63; +} +else +{ +lean_object* x_75; lean_object* x_76; lean_object* x_77; uint8_t x_78; +x_75 = lean_unsigned_to_nat(0u); +x_76 = l_Lean_Syntax_getArg(x_68, x_75); +x_77 = l_Lean_Syntax_getArg(x_68, x_13); +lean_dec(x_68); +lean_inc(x_77); +x_78 = l_Lean_Syntax_isOfKind(x_77, x_69); +if (x_78 == 0) +{ +lean_dec(x_77); +lean_dec(x_76); +x_52 = x_47; +goto block_63; +} +else +{ +lean_object* x_79; lean_object* x_80; uint8_t x_81; +x_79 = l_Lean_Syntax_getArgs(x_77); +lean_dec(x_77); +x_80 = lean_array_get_size(x_79); +lean_dec(x_79); +x_81 = lean_nat_dec_eq(x_80, x_75); +lean_dec(x_80); +if (x_81 == 0) +{ +lean_dec(x_76); +x_52 = x_47; +goto block_63; +} +else +{ +lean_dec(x_47); +x_52 = x_76; +goto block_63; +} +} +} +} +} } block_63: { @@ -5827,177 +5895,40 @@ lean_ctor_set(x_62, 2, x_60); return x_62; } } -block_92: -{ -uint8_t x_65; -x_65 = l_coeDecidableEq(x_64); -if (x_65 == 0) -{ -x_52 = x_47; -goto block_63; -} -else -{ -lean_object* x_66; lean_object* x_67; uint8_t x_68; -x_66 = l_Lean_Syntax_getArg(x_47, x_13); -x_67 = l_Lean_nullKind___closed__2; -lean_inc(x_66); -x_68 = l_Lean_Syntax_isOfKind(x_66, x_67); -if (x_68 == 0) -{ -uint8_t x_69; -x_69 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_69 == 0) -{ -lean_dec(x_66); -x_52 = x_47; -goto block_63; -} -else -{ -lean_object* x_70; lean_object* x_71; lean_object* x_72; uint8_t x_73; -x_70 = lean_unsigned_to_nat(0u); -x_71 = l_Lean_Syntax_getArg(x_66, x_70); -x_72 = l_Lean_Syntax_getArg(x_66, x_13); -lean_dec(x_66); -lean_inc(x_72); -x_73 = l_Lean_Syntax_isOfKind(x_72, x_67); -if (x_73 == 0) -{ -lean_dec(x_72); -lean_dec(x_47); -x_52 = x_71; -goto block_63; -} -else -{ -lean_object* x_74; lean_object* x_75; uint8_t x_76; uint8_t x_77; -x_74 = l_Lean_Syntax_getArgs(x_72); -lean_dec(x_72); -x_75 = lean_array_get_size(x_74); -lean_dec(x_74); -x_76 = lean_nat_dec_eq(x_75, x_70); -lean_dec(x_75); -x_77 = l_coeDecidableEq(x_76); -if (x_77 == 0) -{ -lean_dec(x_71); -x_52 = x_47; -goto block_63; -} -else -{ -lean_dec(x_47); -x_52 = x_71; -goto block_63; -} -} -} -} -else -{ -lean_object* x_78; lean_object* x_79; lean_object* x_80; uint8_t x_81; uint8_t x_82; -x_78 = l_Lean_Syntax_getArgs(x_66); -x_79 = lean_array_get_size(x_78); -lean_dec(x_78); -x_80 = lean_unsigned_to_nat(2u); -x_81 = lean_nat_dec_eq(x_79, x_80); -lean_dec(x_79); -x_82 = l_coeDecidableEq(x_81); -if (x_82 == 0) -{ -lean_dec(x_66); -x_52 = x_47; -goto block_63; -} -else -{ -lean_object* x_83; lean_object* x_84; lean_object* x_85; uint8_t x_86; -x_83 = lean_unsigned_to_nat(0u); -x_84 = l_Lean_Syntax_getArg(x_66, x_83); -x_85 = l_Lean_Syntax_getArg(x_66, x_13); -lean_dec(x_66); -lean_inc(x_85); -x_86 = l_Lean_Syntax_isOfKind(x_85, x_67); -if (x_86 == 0) -{ -uint8_t x_87; -lean_dec(x_85); -x_87 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_87 == 0) -{ -lean_dec(x_84); -x_52 = x_47; -goto block_63; -} -else -{ -lean_dec(x_47); -x_52 = x_84; -goto block_63; -} -} -else -{ -lean_object* x_88; lean_object* x_89; uint8_t x_90; uint8_t x_91; -x_88 = l_Lean_Syntax_getArgs(x_85); -lean_dec(x_85); -x_89 = lean_array_get_size(x_88); -lean_dec(x_88); -x_90 = lean_nat_dec_eq(x_89, x_83); -lean_dec(x_89); -x_91 = l_coeDecidableEq(x_90); -if (x_91 == 0) -{ -lean_dec(x_84); -x_52 = x_47; -goto block_63; -} -else -{ -lean_dec(x_47); -x_52 = x_84; -goto block_63; -} -} -} -} -} -} } } } else { -lean_object* x_100; +lean_object* x_84; lean_dec(x_14); -x_100 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___closed__4; -return x_100; +x_84 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___closed__4; +return x_84; } } } else { -lean_object* x_101; +lean_object* x_85; lean_dec(x_3); -x_101 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___closed__4; -return x_101; +x_85 = l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___closed__4; +return x_85; } } else { -lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; -x_102 = l_Lean_mkAppStx___closed__6; -x_103 = lean_alloc_closure((void*)(l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___lambda__5___boxed), 6, 3); -lean_closure_set(x_103, 0, x_102); -lean_closure_set(x_103, 1, x_3); -lean_closure_set(x_103, 2, x_4); -x_104 = lean_box(0); -x_105 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_105, 0, x_104); -lean_ctor_set(x_105, 1, x_104); -lean_ctor_set(x_105, 2, x_103); -return x_105; +lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; +x_86 = l_Lean_mkAppStx___closed__6; +x_87 = lean_alloc_closure((void*)(l___private_Init_Lean_Elab_Quotation_7__getHeadInfo___lambda__5___boxed), 6, 3); +lean_closure_set(x_87, 0, x_86); +lean_closure_set(x_87, 1, x_3); +lean_closure_set(x_87, 2, x_4); +x_88 = lean_box(0); +x_89 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_89, 0, x_88); +lean_ctor_set(x_89, 1, x_88); +lean_ctor_set(x_89, 2, x_87); +return x_89; } } } @@ -11060,7 +10991,7 @@ return x_6; } else { -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; uint8_t x_12; +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; x_7 = l_Lean_Syntax_inhabited; x_8 = lean_unsigned_to_nat(1u); x_9 = lean_array_get(x_7, x_2, x_8); @@ -11069,154 +11000,110 @@ lean_inc(x_9); x_11 = l_Lean_Syntax_isOfKind(x_9, x_10); if (x_11 == 0) { -uint8_t x_66; -x_66 = 0; -x_12 = x_66; -goto block_65; -} -else -{ -lean_object* x_67; lean_object* x_68; lean_object* x_69; uint8_t x_70; -x_67 = l_Lean_Syntax_getArgs(x_9); -x_68 = lean_array_get_size(x_67); -lean_dec(x_67); -x_69 = lean_unsigned_to_nat(3u); -x_70 = lean_nat_dec_eq(x_68, x_69); -lean_dec(x_68); -x_12 = x_70; -goto block_65; -} -block_65: -{ -uint8_t x_13; -x_13 = l_coeDecidableEq(x_12); +lean_object* x_12; uint8_t x_13; +x_12 = l_Lean_mkTermIdFromIdent___closed__2; +lean_inc(x_9); +x_13 = l_Lean_Syntax_isOfKind(x_9, x_12); if (x_13 == 0) { -lean_object* x_14; uint8_t x_15; -x_14 = l_Lean_mkTermIdFromIdent___closed__2; -lean_inc(x_9); -x_15 = l_Lean_Syntax_isOfKind(x_9, x_14); -if (x_15 == 0) -{ -lean_object* x_16; +lean_object* x_14; lean_dec(x_9); -x_16 = lean_box(0); +x_14 = lean_box(0); +return x_14; +} +else +{ +lean_object* x_15; lean_object* x_16; +x_15 = lean_box(0); +x_16 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_16, 0, x_9); +lean_ctor_set(x_16, 1, x_15); return x_16; } -else -{ -lean_object* x_17; lean_object* x_18; -x_17 = lean_box(0); -x_18 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_18, 0, x_9); -lean_ctor_set(x_18, 1, x_17); -return x_18; -} } else { -lean_object* x_19; uint8_t x_20; lean_object* x_58; uint8_t x_59; -x_19 = l_Lean_Syntax_getArg(x_9, x_8); -x_58 = l_Lean_nullKind___closed__2; -lean_inc(x_19); -x_59 = l_Lean_Syntax_isOfKind(x_19, x_58); -if (x_59 == 0) +lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; +x_17 = l_Lean_Syntax_getArgs(x_9); +x_18 = lean_array_get_size(x_17); +lean_dec(x_17); +x_19 = lean_unsigned_to_nat(3u); +x_20 = lean_nat_dec_eq(x_18, x_19); +lean_dec(x_18); +if (x_20 == 0) { -uint8_t x_60; -x_60 = 0; -x_20 = x_60; -goto block_57; -} -else -{ -lean_object* x_61; lean_object* x_62; lean_object* x_63; uint8_t x_64; -x_61 = l_Lean_Syntax_getArgs(x_19); -x_62 = lean_array_get_size(x_61); -lean_dec(x_61); -x_63 = lean_unsigned_to_nat(2u); -x_64 = lean_nat_dec_eq(x_62, x_63); -lean_dec(x_62); -x_20 = x_64; -goto block_57; -} -block_57: -{ -uint8_t x_21; -x_21 = l_coeDecidableEq(x_20); -if (x_21 == 0) -{ -lean_object* x_22; uint8_t x_23; -lean_dec(x_19); -x_22 = l_Lean_mkTermIdFromIdent___closed__2; +lean_object* x_21; uint8_t x_22; +x_21 = l_Lean_mkTermIdFromIdent___closed__2; lean_inc(x_9); -x_23 = l_Lean_Syntax_isOfKind(x_9, x_22); -if (x_23 == 0) +x_22 = l_Lean_Syntax_isOfKind(x_9, x_21); +if (x_22 == 0) { -lean_object* x_24; +lean_object* x_23; lean_dec(x_9); +x_23 = lean_box(0); +return x_23; +} +else +{ +lean_object* x_24; lean_object* x_25; x_24 = lean_box(0); -return x_24; -} -else -{ -lean_object* x_25; lean_object* x_26; -x_25 = lean_box(0); -x_26 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_26, 0, x_9); -lean_ctor_set(x_26, 1, x_25); -return x_26; +x_25 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_25, 0, x_9); +lean_ctor_set(x_25, 1, x_24); +return x_25; } } else { -lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; uint8_t x_31; -x_27 = lean_unsigned_to_nat(0u); -x_28 = l_Lean_Syntax_getArg(x_19, x_27); -x_29 = l_Lean_Syntax_getArg(x_19, x_8); -lean_dec(x_19); -x_30 = l_Lean_nullKind___closed__2; -lean_inc(x_29); -x_31 = l_Lean_Syntax_isOfKind(x_29, x_30); -if (x_31 == 0) +lean_object* x_26; lean_object* x_27; uint8_t x_28; +x_26 = l_Lean_Syntax_getArg(x_9, x_8); +x_27 = l_Lean_nullKind___closed__2; +lean_inc(x_26); +x_28 = l_Lean_Syntax_isOfKind(x_26, x_27); +if (x_28 == 0) { -uint8_t x_32; -lean_dec(x_29); -x_32 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_32 == 0) -{ -lean_object* x_33; uint8_t x_34; -lean_dec(x_28); -x_33 = l_Lean_mkTermIdFromIdent___closed__2; +lean_object* x_29; uint8_t x_30; +lean_dec(x_26); +x_29 = l_Lean_mkTermIdFromIdent___closed__2; lean_inc(x_9); -x_34 = l_Lean_Syntax_isOfKind(x_9, x_33); -if (x_34 == 0) +x_30 = l_Lean_Syntax_isOfKind(x_9, x_29); +if (x_30 == 0) { -lean_object* x_35; +lean_object* x_31; lean_dec(x_9); -x_35 = lean_box(0); -return x_35; +x_31 = lean_box(0); +return x_31; } else { -lean_object* x_36; lean_object* x_37; -x_36 = lean_box(0); -x_37 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_37, 0, x_9); -lean_ctor_set(x_37, 1, x_36); -return x_37; +lean_object* x_32; lean_object* x_33; +x_32 = lean_box(0); +x_33 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_33, 0, x_9); +lean_ctor_set(x_33, 1, x_32); +return x_33; } } else { +lean_object* x_34; lean_object* x_35; lean_object* x_36; uint8_t x_37; +x_34 = l_Lean_Syntax_getArgs(x_26); +x_35 = lean_array_get_size(x_34); +lean_dec(x_34); +x_36 = lean_unsigned_to_nat(2u); +x_37 = lean_nat_dec_eq(x_35, x_36); +lean_dec(x_35); +if (x_37 == 0) +{ lean_object* x_38; uint8_t x_39; -lean_dec(x_9); +lean_dec(x_26); x_38 = l_Lean_mkTermIdFromIdent___closed__2; -lean_inc(x_28); -x_39 = l_Lean_Syntax_isOfKind(x_28, x_38); +lean_inc(x_9); +x_39 = l_Lean_Syntax_isOfKind(x_9, x_38); if (x_39 == 0) { lean_object* x_40; -lean_dec(x_28); +lean_dec(x_9); x_40 = lean_box(0); return x_40; } @@ -11225,26 +11112,25 @@ else lean_object* x_41; lean_object* x_42; x_41 = lean_box(0); x_42 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_42, 0, x_28); +lean_ctor_set(x_42, 0, x_9); lean_ctor_set(x_42, 1, x_41); return x_42; } } -} else { -lean_object* x_43; lean_object* x_44; uint8_t x_45; uint8_t x_46; -x_43 = l_Lean_Syntax_getArgs(x_29); -lean_dec(x_29); -x_44 = lean_array_get_size(x_43); -lean_dec(x_43); -x_45 = lean_nat_dec_eq(x_44, x_27); -lean_dec(x_44); -x_46 = l_coeDecidableEq(x_45); +lean_object* x_43; lean_object* x_44; lean_object* x_45; uint8_t x_46; +x_43 = lean_unsigned_to_nat(0u); +x_44 = l_Lean_Syntax_getArg(x_26, x_43); +x_45 = l_Lean_Syntax_getArg(x_26, x_8); +lean_dec(x_26); +lean_inc(x_45); +x_46 = l_Lean_Syntax_isOfKind(x_45, x_27); if (x_46 == 0) { lean_object* x_47; uint8_t x_48; -lean_dec(x_28); +lean_dec(x_45); +lean_dec(x_44); x_47 = l_Lean_mkTermIdFromIdent___closed__2; lean_inc(x_9); x_48 = l_Lean_Syntax_isOfKind(x_9, x_47); @@ -11267,26 +11153,59 @@ return x_51; } else { -lean_object* x_52; uint8_t x_53; +lean_object* x_52; lean_object* x_53; uint8_t x_54; +x_52 = l_Lean_Syntax_getArgs(x_45); +lean_dec(x_45); +x_53 = lean_array_get_size(x_52); +lean_dec(x_52); +x_54 = lean_nat_dec_eq(x_53, x_43); +lean_dec(x_53); +if (x_54 == 0) +{ +lean_object* x_55; uint8_t x_56; +lean_dec(x_44); +x_55 = l_Lean_mkTermIdFromIdent___closed__2; +lean_inc(x_9); +x_56 = l_Lean_Syntax_isOfKind(x_9, x_55); +if (x_56 == 0) +{ +lean_object* x_57; lean_dec(x_9); -x_52 = l_Lean_mkTermIdFromIdent___closed__2; -lean_inc(x_28); -x_53 = l_Lean_Syntax_isOfKind(x_28, x_52); -if (x_53 == 0) -{ -lean_object* x_54; -lean_dec(x_28); -x_54 = lean_box(0); -return x_54; +x_57 = lean_box(0); +return x_57; } else { -lean_object* x_55; lean_object* x_56; -x_55 = lean_box(0); -x_56 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_56, 0, x_28); -lean_ctor_set(x_56, 1, x_55); -return x_56; +lean_object* x_58; lean_object* x_59; +x_58 = lean_box(0); +x_59 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_59, 0, x_9); +lean_ctor_set(x_59, 1, x_58); +return x_59; +} +} +else +{ +lean_object* x_60; uint8_t x_61; +lean_dec(x_9); +x_60 = l_Lean_mkTermIdFromIdent___closed__2; +lean_inc(x_44); +x_61 = l_Lean_Syntax_isOfKind(x_44, x_60); +if (x_61 == 0) +{ +lean_object* x_62; +lean_dec(x_44); +x_62 = lean_box(0); +return x_62; +} +else +{ +lean_object* x_63; lean_object* x_64; +x_63 = lean_box(0); +x_64 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_64, 0, x_44); +lean_ctor_set(x_64, 1, x_63); +return x_64; } } } @@ -11298,9 +11217,9 @@ return x_56; } else { -lean_object* x_71; -x_71 = lean_box(0); -return x_71; +lean_object* x_65; +x_65 = lean_box(0); +return x_65; } } } diff --git a/stage0/stdlib/Init/Lean/Elab/Syntax.c b/stage0/stdlib/Init/Lean/Elab/Syntax.c index c94a1491bb..36e2433e8b 100644 --- a/stage0/stdlib/Init/Lean/Elab/Syntax.c +++ b/stage0/stdlib/Init/Lean/Elab/Syntax.c @@ -25,7 +25,6 @@ lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__6; lean_object* l___private_Init_Lean_Elab_Syntax_4__withFirst(lean_object*); lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabSyntax___closed__2; lean_object* l_Lean_Elab_Command_elabNoKindMacroRulesAux(lean_object*, lean_object*, lean_object*); -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__79; lean_object* l___private_Init_LeanInit_15__mapSepElemsMAux___main___at_Lean_Elab_Command_elabMacroRulesAux___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -86,7 +85,6 @@ extern lean_object* l_Lean_Parser_Syntax_paren___elambda__1___closed__3; lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__33; lean_object* lean_array_fswap(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_identKind___closed__2; -extern uint8_t l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__13; extern lean_object* l_Lean_Elab_Command_runTermElabM___rarg___closed__1; lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__23; @@ -312,7 +310,6 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main(lean_object*, lean_object* lean_object* l_Lean_Elab_Command_elabSyntax___closed__5; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabSyntax___closed__3; extern lean_object* l_Lean_Parser_Command_identPrec___elambda__1___closed__1; -uint8_t l_coeDecidableEq(uint8_t); lean_object* l_Lean_Elab_Command_elabSyntax___closed__14; lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__6___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Nat_pred(lean_object*); @@ -511,6 +508,7 @@ lean_object* l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__2; lean_object* l___private_Init_LeanInit_14__filterSepElemsMAux___main___at_Lean_Elab_Command_elabNoKindMacroRulesAux___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__11; extern lean_object* l_Lean_Meta_DiscrTree_Trie_format___main___rarg___closed__1; +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_mkFreshKind(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabMixfix(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_mkKindName(lean_object*); @@ -532,7 +530,6 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__88; extern lean_object* l_Lean_Parser_Syntax_sepBy___elambda__1___closed__2; lean_object* l_Lean_Elab_Command_elabSyntax___closed__26; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__107; -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_expandMacroHeadIntoPattern___boxed(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__72; extern lean_object* l_Lean_Parser_Term_stxQuot___elambda__1___closed__5; @@ -553,6 +550,7 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__35; extern lean_object* l_Lean_Parser_Term_orelse___elambda__1___closed__1; lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__12; lean_object* l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem___boxed(lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabDeclareSyntaxCat(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Syntax_try___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__70; @@ -9519,36 +9517,13 @@ return x_3; lean_object* l_Lean_Elab_Command_elabMacroRulesAux___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; lean_object* x_62; uint8_t x_63; +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; uint8_t x_9; x_5 = lean_unsigned_to_nat(0u); x_6 = l_Lean_Syntax_getArg(x_2, x_5); x_7 = l_Lean_Syntax_getArg(x_6, x_5); -x_62 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; +x_8 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; lean_inc(x_7); -x_63 = l_Lean_Syntax_isOfKind(x_7, x_62); -if (x_63 == 0) -{ -uint8_t x_64; -x_64 = 0; -x_8 = x_64; -goto block_61; -} -else -{ -lean_object* x_65; lean_object* x_66; lean_object* x_67; uint8_t x_68; -x_65 = l_Lean_Syntax_getArgs(x_7); -x_66 = lean_array_get_size(x_65); -lean_dec(x_65); -x_67 = lean_unsigned_to_nat(3u); -x_68 = lean_nat_dec_eq(x_66, x_67); -lean_dec(x_66); -x_8 = x_68; -goto block_61; -} -block_61: -{ -uint8_t x_9; -x_9 = l_coeDecidableEq(x_8); +x_9 = l_Lean_Syntax_isOfKind(x_7, x_8); if (x_9 == 0) { lean_object* x_10; lean_object* x_11; @@ -9566,159 +9541,180 @@ return x_11; else { lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15; -x_12 = lean_unsigned_to_nat(1u); -x_13 = l_Lean_Syntax_getArg(x_7, x_12); -lean_dec(x_7); -lean_inc(x_13); -x_14 = l_Lean_Syntax_getKind(x_13); -x_15 = lean_name_eq(x_14, x_1); +x_12 = l_Lean_Syntax_getArgs(x_7); +x_13 = lean_array_get_size(x_12); +lean_dec(x_12); +x_14 = lean_unsigned_to_nat(3u); +x_15 = lean_nat_dec_eq(x_13, x_14); +lean_dec(x_13); if (x_15 == 0) { -lean_object* x_16; uint8_t x_17; -x_16 = l_Lean_choiceKind; -x_17 = lean_name_eq(x_14, x_16); -if (x_17 == 0) -{ -lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; -lean_dec(x_13); +lean_object* x_16; lean_object* x_17; +lean_dec(x_7); lean_dec(x_6); -lean_dec(x_1); -x_18 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_18, 0, x_14); -x_19 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__3; -x_20 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_20, 0, x_19); -lean_ctor_set(x_20, 1, x_18); -x_21 = l_Lean_Elab_Term_mkConst___closed__4; -x_22 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_22, 0, x_20); -lean_ctor_set(x_22, 1, x_21); -x_23 = l_Lean_Elab_Command_throwError___rarg(x_2, x_22, x_3, x_4); +lean_dec(x_3); lean_dec(x_2); -return x_23; +lean_dec(x_1); +x_16 = lean_box(1); +x_17 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_17, 0, x_16); +lean_ctor_set(x_17, 1, x_4); +return x_17; } else { -lean_object* x_24; lean_object* x_25; -lean_dec(x_14); -x_24 = l_Lean_Syntax_getArgs(x_13); -lean_dec(x_13); -x_25 = l_Array_findMAux___main___at_Lean_Elab_Command_elabMacroRulesAux___spec__1(x_1, x_24, x_5); -lean_dec(x_24); -if (lean_obj_tag(x_25) == 0) +lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21; +x_18 = lean_unsigned_to_nat(1u); +x_19 = l_Lean_Syntax_getArg(x_7, x_18); +lean_dec(x_7); +lean_inc(x_19); +x_20 = l_Lean_Syntax_getKind(x_19); +x_21 = lean_name_eq(x_20, x_1); +if (x_21 == 0) { -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_22; uint8_t x_23; +x_22 = l_Lean_choiceKind; +x_23 = lean_name_eq(x_20, x_22); +if (x_23 == 0) +{ +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_dec(x_19); lean_dec(x_6); -x_26 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_26, 0, x_1); -x_27 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__6; +lean_dec(x_1); +x_24 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_24, 0, x_20); +x_25 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__3; +x_26 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_26, 0, x_25); +lean_ctor_set(x_26, 1, x_24); +x_27 = l_Lean_Elab_Term_mkConst___closed__4; x_28 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_28, 0, x_27); -lean_ctor_set(x_28, 1, x_26); -x_29 = l_Lean_Elab_Term_mkConst___closed__4; -x_30 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_30, 0, x_28); -lean_ctor_set(x_30, 1, x_29); -x_31 = l_Lean_Elab_Command_throwError___rarg(x_2, x_30, x_3, x_4); +lean_ctor_set(x_28, 0, x_26); +lean_ctor_set(x_28, 1, x_27); +x_29 = l_Lean_Elab_Command_throwError___rarg(x_2, x_28, x_3, x_4); lean_dec(x_2); -return x_31; +return x_29; } else { -lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; -lean_dec(x_1); -x_32 = lean_ctor_get(x_25, 0); -lean_inc(x_32); -lean_dec(x_25); -x_33 = l_Lean_Elab_Command_getCurrMacroScope(x_3, x_4); -x_34 = lean_ctor_get(x_33, 1); -lean_inc(x_34); -lean_dec(x_33); -x_35 = l_Lean_Elab_Command_getMainModule(x_3, x_34); -if (lean_obj_tag(x_35) == 0) +lean_object* x_30; lean_object* x_31; +lean_dec(x_20); +x_30 = l_Lean_Syntax_getArgs(x_19); +lean_dec(x_19); +x_31 = l_Array_findMAux___main___at_Lean_Elab_Command_elabMacroRulesAux___spec__1(x_1, x_30, x_5); +lean_dec(x_30); +if (lean_obj_tag(x_31) == 0) { -uint8_t x_36; -x_36 = !lean_is_exclusive(x_35); -if (x_36 == 0) -{ -lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; -x_37 = lean_ctor_get(x_35, 0); -lean_dec(x_37); -x_38 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; -x_39 = lean_array_push(x_38, x_32); -x_40 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_41 = lean_array_push(x_39, x_40); -x_42 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; -x_43 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_43, 0, x_42); -lean_ctor_set(x_43, 1, x_41); -x_44 = l_Lean_Syntax_setArg(x_6, x_5, x_43); -x_45 = l_Lean_Syntax_setArg(x_2, x_5, x_44); -lean_ctor_set(x_35, 0, x_45); -return x_35; -} -else -{ -lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; -x_46 = lean_ctor_get(x_35, 1); -lean_inc(x_46); -lean_dec(x_35); -x_47 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; -x_48 = lean_array_push(x_47, x_32); -x_49 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_50 = lean_array_push(x_48, x_49); -x_51 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; -x_52 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_52, 0, x_51); -lean_ctor_set(x_52, 1, x_50); -x_53 = l_Lean_Syntax_setArg(x_6, x_5, x_52); -x_54 = l_Lean_Syntax_setArg(x_2, x_5, 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_46); -return x_55; -} -} -else -{ -uint8_t x_56; -lean_dec(x_32); +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_dec(x_6); +x_32 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_32, 0, x_1); +x_33 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__6; +x_34 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_34, 0, x_33); +lean_ctor_set(x_34, 1, x_32); +x_35 = l_Lean_Elab_Term_mkConst___closed__4; +x_36 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_36, 0, x_34); +lean_ctor_set(x_36, 1, x_35); +x_37 = l_Lean_Elab_Command_throwError___rarg(x_2, x_36, x_3, x_4); lean_dec(x_2); -x_56 = !lean_is_exclusive(x_35); -if (x_56 == 0) -{ -return x_35; +return x_37; } else { -lean_object* x_57; lean_object* x_58; lean_object* x_59; -x_57 = lean_ctor_get(x_35, 0); -x_58 = lean_ctor_get(x_35, 1); -lean_inc(x_58); -lean_inc(x_57); -lean_dec(x_35); -x_59 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_59, 0, x_57); -lean_ctor_set(x_59, 1, x_58); +lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; +lean_dec(x_1); +x_38 = lean_ctor_get(x_31, 0); +lean_inc(x_38); +lean_dec(x_31); +x_39 = l_Lean_Elab_Command_getCurrMacroScope(x_3, x_4); +x_40 = lean_ctor_get(x_39, 1); +lean_inc(x_40); +lean_dec(x_39); +x_41 = l_Lean_Elab_Command_getMainModule(x_3, x_40); +if (lean_obj_tag(x_41) == 0) +{ +uint8_t x_42; +x_42 = !lean_is_exclusive(x_41); +if (x_42 == 0) +{ +lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; +x_43 = lean_ctor_get(x_41, 0); +lean_dec(x_43); +x_44 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; +x_45 = lean_array_push(x_44, x_38); +x_46 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_47 = lean_array_push(x_45, x_46); +x_48 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_48, 0, x_8); +lean_ctor_set(x_48, 1, x_47); +x_49 = l_Lean_Syntax_setArg(x_6, x_5, x_48); +x_50 = l_Lean_Syntax_setArg(x_2, x_5, x_49); +lean_ctor_set(x_41, 0, x_50); +return x_41; +} +else +{ +lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; +x_51 = lean_ctor_get(x_41, 1); +lean_inc(x_51); +lean_dec(x_41); +x_52 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; +x_53 = lean_array_push(x_52, x_38); +x_54 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_55 = lean_array_push(x_53, x_54); +x_56 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_56, 0, x_8); +lean_ctor_set(x_56, 1, x_55); +x_57 = l_Lean_Syntax_setArg(x_6, x_5, x_56); +x_58 = l_Lean_Syntax_setArg(x_2, x_5, 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_51); return x_59; } } +else +{ +uint8_t x_60; +lean_dec(x_38); +lean_dec(x_6); +lean_dec(x_2); +x_60 = !lean_is_exclusive(x_41); +if (x_60 == 0) +{ +return x_41; +} +else +{ +lean_object* x_61; lean_object* x_62; lean_object* x_63; +x_61 = lean_ctor_get(x_41, 0); +x_62 = lean_ctor_get(x_41, 1); +lean_inc(x_62); +lean_inc(x_61); +lean_dec(x_41); +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; +} +} } } } else { -lean_object* x_60; -lean_dec(x_14); -lean_dec(x_13); +lean_object* x_64; +lean_dec(x_20); +lean_dec(x_19); lean_dec(x_6); lean_dec(x_3); lean_dec(x_1); -x_60 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_60, 0, x_2); -lean_ctor_set(x_60, 1, x_4); -return x_60; +x_64 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_64, 0, x_2); +lean_ctor_set(x_64, 1, x_4); +return x_64; } } } @@ -10691,62 +10687,44 @@ lean_inc(x_6); x_8 = l_Lean_Syntax_isOfKind(x_6, x_7); if (x_8 == 0) { -uint8_t x_9; -x_9 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_9 == 0) -{ -lean_object* x_10; lean_object* x_11; +lean_object* x_9; lean_object* x_10; lean_dec(x_6); -x_10 = lean_box(1); -x_11 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_11, 0, x_10); -lean_ctor_set(x_11, 1, x_3); -return x_11; +x_9 = lean_box(1); +x_10 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_10, 0, x_9); +lean_ctor_set(x_10, 1, x_3); +return x_10; } else { -lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; -x_12 = lean_unsigned_to_nat(1u); -x_13 = l_Lean_Syntax_getArg(x_6, x_12); +lean_object* x_11; lean_object* x_12; lean_object* x_13; uint8_t x_14; +x_11 = l_Lean_Syntax_getArgs(x_6); +x_12 = lean_array_get_size(x_11); +lean_dec(x_11); +x_13 = lean_unsigned_to_nat(3u); +x_14 = lean_nat_dec_eq(x_12, x_13); +lean_dec(x_12); +if (x_14 == 0) +{ +lean_object* x_15; lean_object* x_16; lean_dec(x_6); -x_14 = l_Lean_Syntax_getKind(x_13); -x_15 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_15, 0, x_14); -lean_ctor_set(x_15, 1, x_3); -return x_15; -} +x_15 = lean_box(1); +x_16 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_16, 0, x_15); +lean_ctor_set(x_16, 1, x_3); +return x_16; } else { -lean_object* x_16; lean_object* x_17; lean_object* x_18; uint8_t x_19; uint8_t x_20; -x_16 = l_Lean_Syntax_getArgs(x_6); -x_17 = lean_array_get_size(x_16); -lean_dec(x_16); -x_18 = lean_unsigned_to_nat(3u); -x_19 = lean_nat_dec_eq(x_17, x_18); -lean_dec(x_17); -x_20 = l_coeDecidableEq(x_19); -if (x_20 == 0) -{ -lean_object* x_21; lean_object* x_22; +lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_17 = lean_unsigned_to_nat(1u); +x_18 = l_Lean_Syntax_getArg(x_6, x_17); lean_dec(x_6); -x_21 = lean_box(1); -x_22 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_22, 0, x_21); -lean_ctor_set(x_22, 1, x_3); -return x_22; -} -else -{ -lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; -x_23 = lean_unsigned_to_nat(1u); -x_24 = l_Lean_Syntax_getArg(x_6, x_23); -lean_dec(x_6); -x_25 = l_Lean_Syntax_getKind(x_24); -x_26 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_26, 0, x_25); -lean_ctor_set(x_26, 1, x_3); -return x_26; +x_19 = l_Lean_Syntax_getKind(x_18); +x_20 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_20, 0, x_19); +lean_ctor_set(x_20, 1, x_3); +return x_20; } } } @@ -11544,33 +11522,10 @@ return x_4; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_100; uint8_t x_101; -x_100 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; lean_inc(x_1); -x_101 = l_Lean_Syntax_isOfKind(x_1, x_100); -if (x_101 == 0) -{ -uint8_t x_102; -x_102 = 0; -x_4 = x_102; -goto block_99; -} -else -{ -lean_object* x_103; lean_object* x_104; lean_object* x_105; uint8_t x_106; -x_103 = l_Lean_Syntax_getArgs(x_1); -x_104 = lean_array_get_size(x_103); -lean_dec(x_103); -x_105 = lean_unsigned_to_nat(4u); -x_106 = lean_nat_dec_eq(x_104, x_105); -lean_dec(x_104); -x_4 = x_106; -goto block_99; -} -block_99: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; lean_object* x_7; @@ -11584,39 +11539,16 @@ return x_7; } else { -lean_object* x_8; lean_object* x_9; uint8_t x_10; lean_object* x_52; uint8_t x_53; uint8_t x_54; -x_8 = lean_unsigned_to_nat(1u); -x_9 = l_Lean_Syntax_getArg(x_1, x_8); -x_52 = l_Lean_nullKind___closed__2; -lean_inc(x_9); -x_53 = l_Lean_Syntax_isOfKind(x_9, x_52); -if (x_53 == 0) -{ -uint8_t x_94; -x_94 = 0; -x_54 = x_94; -goto block_93; -} -else -{ -lean_object* x_95; lean_object* x_96; lean_object* x_97; uint8_t x_98; -x_95 = l_Lean_Syntax_getArgs(x_9); -x_96 = lean_array_get_size(x_95); -lean_dec(x_95); -x_97 = lean_unsigned_to_nat(0u); -x_98 = lean_nat_dec_eq(x_96, x_97); -lean_dec(x_96); -x_54 = x_98; -goto block_93; -} -block_51: -{ -uint8_t x_11; -x_11 = l_coeDecidableEq(x_10); +lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; +x_8 = l_Lean_Syntax_getArgs(x_1); +x_9 = lean_array_get_size(x_8); +lean_dec(x_8); +x_10 = lean_unsigned_to_nat(4u); +x_11 = lean_nat_dec_eq(x_9, x_10); +lean_dec(x_9); if (x_11 == 0) { lean_object* x_12; lean_object* x_13; -lean_dec(x_9); lean_dec(x_2); lean_dec(x_1); x_12 = lean_box(1); @@ -11627,262 +11559,198 @@ return x_13; } else { -lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; uint8_t x_18; uint8_t x_19; -x_14 = l_Lean_Syntax_getArg(x_9, x_8); -lean_dec(x_9); -x_15 = lean_unsigned_to_nat(2u); -x_16 = l_Lean_Syntax_getArg(x_1, x_15); -x_17 = l_Lean_nullKind___closed__2; -lean_inc(x_16); -x_18 = l_Lean_Syntax_isOfKind(x_16, x_17); -if (x_18 == 0) +lean_object* x_14; lean_object* x_15; lean_object* x_16; uint8_t x_17; +x_14 = lean_unsigned_to_nat(1u); +x_15 = l_Lean_Syntax_getArg(x_1, x_14); +x_16 = l_Lean_nullKind___closed__2; +lean_inc(x_15); +x_17 = l_Lean_Syntax_isOfKind(x_15, x_16); +if (x_17 == 0) { -uint8_t x_46; -x_46 = 0; -x_19 = x_46; -goto block_45; -} -else -{ -lean_object* x_47; lean_object* x_48; lean_object* x_49; uint8_t x_50; -x_47 = l_Lean_Syntax_getArgs(x_16); -x_48 = lean_array_get_size(x_47); -lean_dec(x_47); -x_49 = lean_unsigned_to_nat(0u); -x_50 = lean_nat_dec_eq(x_48, x_49); -lean_dec(x_48); -x_19 = x_50; -goto block_45; -} -block_45: -{ -uint8_t x_20; -x_20 = l_coeDecidableEq(x_19); -if (x_20 == 0) -{ -if (x_18 == 0) -{ -uint8_t x_21; -lean_dec(x_16); -x_21 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_21 == 0) -{ -lean_object* x_22; lean_object* x_23; -lean_dec(x_14); +lean_object* x_18; lean_object* x_19; +lean_dec(x_15); lean_dec(x_2); lean_dec(x_1); -x_22 = lean_box(1); -x_23 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_23, 0, x_22); -lean_ctor_set(x_23, 1, x_3); -return x_23; +x_18 = lean_box(1); +x_19 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_3); +return x_19; } else { -lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; +lean_object* x_20; lean_object* x_21; lean_object* x_22; uint8_t x_23; +x_20 = l_Lean_Syntax_getArgs(x_15); +x_21 = lean_array_get_size(x_20); +lean_dec(x_20); +x_22 = lean_unsigned_to_nat(0u); +x_23 = lean_nat_dec_eq(x_21, x_22); +if (x_23 == 0) +{ +lean_object* x_24; uint8_t x_25; x_24 = lean_unsigned_to_nat(3u); -x_25 = l_Lean_Syntax_getArg(x_1, x_24); -lean_dec(x_1); -x_26 = l_Lean_Syntax_getArgs(x_25); -lean_dec(x_25); -x_27 = l_Lean_Syntax_getId(x_14); -lean_dec(x_14); -x_28 = l_Lean_Elab_Command_elabMacroRulesAux(x_27, x_26, x_2, x_3); -lean_dec(x_26); -return x_28; -} -} -else +x_25 = lean_nat_dec_eq(x_21, x_24); +lean_dec(x_21); +if (x_25 == 0) { -lean_object* x_29; lean_object* x_30; uint8_t x_31; uint8_t x_32; -x_29 = l_Lean_Syntax_getArgs(x_16); -lean_dec(x_16); -x_30 = lean_array_get_size(x_29); -lean_dec(x_29); -x_31 = lean_nat_dec_eq(x_30, x_8); -lean_dec(x_30); -x_32 = l_coeDecidableEq(x_31); -if (x_32 == 0) -{ -lean_object* x_33; lean_object* x_34; -lean_dec(x_14); +lean_object* x_26; lean_object* x_27; +lean_dec(x_15); lean_dec(x_2); lean_dec(x_1); -x_33 = lean_box(1); -x_34 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_34, 0, x_33); -lean_ctor_set(x_34, 1, x_3); -return x_34; +x_26 = lean_box(1); +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_26); +lean_ctor_set(x_27, 1, x_3); +return x_27; } else { -lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; -x_35 = lean_unsigned_to_nat(3u); -x_36 = l_Lean_Syntax_getArg(x_1, x_35); +lean_object* x_28; lean_object* x_29; lean_object* x_30; uint8_t x_31; +x_28 = l_Lean_Syntax_getArg(x_15, x_14); +lean_dec(x_15); +x_29 = lean_unsigned_to_nat(2u); +x_30 = l_Lean_Syntax_getArg(x_1, x_29); +lean_inc(x_30); +x_31 = l_Lean_Syntax_isOfKind(x_30, x_16); +if (x_31 == 0) +{ +lean_object* x_32; lean_object* x_33; +lean_dec(x_30); +lean_dec(x_28); +lean_dec(x_2); lean_dec(x_1); -x_37 = l_Lean_Syntax_getArgs(x_36); -lean_dec(x_36); -x_38 = l_Lean_Syntax_getId(x_14); -lean_dec(x_14); -x_39 = l_Lean_Elab_Command_elabMacroRulesAux(x_38, x_37, x_2, x_3); -lean_dec(x_37); +x_32 = lean_box(1); +x_33 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_33, 0, x_32); +lean_ctor_set(x_33, 1, x_3); +return x_33; +} +else +{ +lean_object* x_34; lean_object* x_35; uint8_t x_36; +x_34 = l_Lean_Syntax_getArgs(x_30); +lean_dec(x_30); +x_35 = lean_array_get_size(x_34); +lean_dec(x_34); +x_36 = lean_nat_dec_eq(x_35, x_22); +if (x_36 == 0) +{ +uint8_t x_37; +x_37 = lean_nat_dec_eq(x_35, x_14); +lean_dec(x_35); +if (x_37 == 0) +{ +lean_object* x_38; lean_object* x_39; +lean_dec(x_28); +lean_dec(x_2); +lean_dec(x_1); +x_38 = lean_box(1); +x_39 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_39, 0, x_38); +lean_ctor_set(x_39, 1, x_3); return x_39; } +else +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_40 = l_Lean_Syntax_getArg(x_1, x_24); +lean_dec(x_1); +x_41 = l_Lean_Syntax_getArgs(x_40); +lean_dec(x_40); +x_42 = l_Lean_Syntax_getId(x_28); +lean_dec(x_28); +x_43 = l_Lean_Elab_Command_elabMacroRulesAux(x_42, x_41, x_2, x_3); +lean_dec(x_41); +return x_43; } } else { -lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; -lean_dec(x_16); -x_40 = lean_unsigned_to_nat(3u); -x_41 = l_Lean_Syntax_getArg(x_1, x_40); +lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; +lean_dec(x_35); +x_44 = l_Lean_Syntax_getArg(x_1, x_24); lean_dec(x_1); -x_42 = l_Lean_Syntax_getArgs(x_41); -lean_dec(x_41); -x_43 = l_Lean_Syntax_getId(x_14); -lean_dec(x_14); -x_44 = l_Lean_Elab_Command_elabMacroRulesAux(x_43, x_42, x_2, x_3); -lean_dec(x_42); -return x_44; +x_45 = l_Lean_Syntax_getArgs(x_44); +lean_dec(x_44); +x_46 = l_Lean_Syntax_getId(x_28); +lean_dec(x_28); +x_47 = l_Lean_Elab_Command_elabMacroRulesAux(x_46, x_45, x_2, x_3); +lean_dec(x_45); +return x_47; } } } } -block_93: +else { -uint8_t x_55; -x_55 = l_coeDecidableEq(x_54); +lean_object* x_48; lean_object* x_49; uint8_t x_50; +lean_dec(x_21); +lean_dec(x_15); +x_48 = lean_unsigned_to_nat(2u); +x_49 = l_Lean_Syntax_getArg(x_1, x_48); +lean_inc(x_49); +x_50 = l_Lean_Syntax_isOfKind(x_49, x_16); +if (x_50 == 0) +{ +lean_object* x_51; lean_object* x_52; +lean_dec(x_49); +lean_dec(x_2); +lean_dec(x_1); +x_51 = lean_box(1); +x_52 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_52, 0, x_51); +lean_ctor_set(x_52, 1, x_3); +return x_52; +} +else +{ +lean_object* x_53; lean_object* x_54; uint8_t x_55; +x_53 = l_Lean_Syntax_getArgs(x_49); +lean_dec(x_49); +x_54 = lean_array_get_size(x_53); +lean_dec(x_53); +x_55 = lean_nat_dec_eq(x_54, x_22); if (x_55 == 0) { -if (x_53 == 0) -{ uint8_t x_56; -x_56 = 0; -x_10 = x_56; -goto block_51; +x_56 = lean_nat_dec_eq(x_54, x_14); +lean_dec(x_54); +if (x_56 == 0) +{ +lean_object* x_57; lean_object* x_58; +lean_dec(x_2); +lean_dec(x_1); +x_57 = lean_box(1); +x_58 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_58, 0, x_57); +lean_ctor_set(x_58, 1, x_3); +return x_58; } else { -lean_object* x_57; lean_object* x_58; lean_object* x_59; uint8_t x_60; -x_57 = l_Lean_Syntax_getArgs(x_9); -x_58 = lean_array_get_size(x_57); -lean_dec(x_57); +lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; x_59 = lean_unsigned_to_nat(3u); -x_60 = lean_nat_dec_eq(x_58, x_59); -lean_dec(x_58); -x_10 = x_60; -goto block_51; -} -} -else -{ -lean_object* x_61; lean_object* x_62; uint8_t x_63; uint8_t x_64; -lean_dec(x_9); -x_61 = lean_unsigned_to_nat(2u); -x_62 = l_Lean_Syntax_getArg(x_1, x_61); -lean_inc(x_62); -x_63 = l_Lean_Syntax_isOfKind(x_62, x_52); -if (x_63 == 0) -{ -uint8_t x_88; -x_88 = 0; -x_64 = x_88; -goto block_87; -} -else -{ -lean_object* x_89; lean_object* x_90; lean_object* x_91; uint8_t x_92; -x_89 = l_Lean_Syntax_getArgs(x_62); -x_90 = lean_array_get_size(x_89); -lean_dec(x_89); -x_91 = lean_unsigned_to_nat(0u); -x_92 = lean_nat_dec_eq(x_90, x_91); -lean_dec(x_90); -x_64 = x_92; -goto block_87; -} -block_87: -{ -uint8_t x_65; -x_65 = l_coeDecidableEq(x_64); -if (x_65 == 0) -{ -if (x_63 == 0) -{ -uint8_t x_66; -lean_dec(x_62); -x_66 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_66 == 0) -{ -lean_object* x_67; lean_object* x_68; -lean_dec(x_2); +x_60 = l_Lean_Syntax_getArg(x_1, x_59); lean_dec(x_1); -x_67 = lean_box(1); -x_68 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_68, 0, x_67); -lean_ctor_set(x_68, 1, x_3); -return x_68; -} -else -{ -lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; -x_69 = lean_unsigned_to_nat(3u); -x_70 = l_Lean_Syntax_getArg(x_1, x_69); -lean_dec(x_1); -x_71 = l_Lean_Syntax_getArgs(x_70); -lean_dec(x_70); -x_72 = l_Lean_Elab_Command_elabNoKindMacroRulesAux(x_71, x_2, x_3); -lean_dec(x_71); -return x_72; +x_61 = l_Lean_Syntax_getArgs(x_60); +lean_dec(x_60); +x_62 = l_Lean_Elab_Command_elabNoKindMacroRulesAux(x_61, x_2, x_3); +lean_dec(x_61); +return x_62; } } else { -lean_object* x_73; lean_object* x_74; uint8_t x_75; uint8_t x_76; -x_73 = l_Lean_Syntax_getArgs(x_62); -lean_dec(x_62); -x_74 = lean_array_get_size(x_73); -lean_dec(x_73); -x_75 = lean_nat_dec_eq(x_74, x_8); -lean_dec(x_74); -x_76 = l_coeDecidableEq(x_75); -if (x_76 == 0) -{ -lean_object* x_77; lean_object* x_78; -lean_dec(x_2); +lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; +lean_dec(x_54); +x_63 = lean_unsigned_to_nat(3u); +x_64 = l_Lean_Syntax_getArg(x_1, x_63); lean_dec(x_1); -x_77 = lean_box(1); -x_78 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_78, 0, x_77); -lean_ctor_set(x_78, 1, x_3); -return x_78; -} -else -{ -lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; -x_79 = lean_unsigned_to_nat(3u); -x_80 = l_Lean_Syntax_getArg(x_1, x_79); -lean_dec(x_1); -x_81 = l_Lean_Syntax_getArgs(x_80); -lean_dec(x_80); -x_82 = l_Lean_Elab_Command_elabNoKindMacroRulesAux(x_81, x_2, x_3); -lean_dec(x_81); -return x_82; -} -} -} -else -{ -lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; -lean_dec(x_62); -x_83 = lean_unsigned_to_nat(3u); -x_84 = l_Lean_Syntax_getArg(x_1, x_83); -lean_dec(x_1); -x_85 = l_Lean_Syntax_getArgs(x_84); -lean_dec(x_84); -x_86 = l_Lean_Elab_Command_elabNoKindMacroRulesAux(x_85, x_2, x_3); -lean_dec(x_85); -return x_86; +x_65 = l_Lean_Syntax_getArgs(x_64); +lean_dec(x_64); +x_66 = l_Lean_Elab_Command_elabNoKindMacroRulesAux(x_65, x_2, x_3); +lean_dec(x_65); +return x_66; } } } @@ -12185,47 +12053,40 @@ goto _start; } } } -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___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_3, x_4); +x_4 = lean_array_get_size(x_3); +x_5 = lean_nat_dec_lt(x_2, x_4); lean_dec(x_4); if (x_5 == 0) { -lean_object* x_6; -lean_dec(x_3); -x_6 = lean_box(0); -return x_6; +lean_object* x_6; lean_object* x_7; +lean_dec(x_2); +x_6 = l_Array_empty___closed__1; +x_7 = x_3; +return x_7; } else { -lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; -x_7 = lean_array_fget(x_2, x_3); -x_8 = l_Lean_Syntax_getId(x_7); -lean_dec(x_7); -x_9 = l_Lean_Syntax_getId(x_1); -x_10 = lean_name_eq(x_8, x_9); -lean_dec(x_9); +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_8 = lean_array_fget(x_3, x_2); +x_9 = lean_box(0); +x_10 = x_9; +x_11 = lean_array_fset(x_3, x_2, x_10); +lean_inc(x_8); +x_12 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main(x_1, x_8); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_nat_add(x_2, x_13); +x_15 = x_12; lean_dec(x_8); -if (x_10 == 0) -{ -lean_object* x_11; lean_object* x_12; -x_11 = lean_unsigned_to_nat(1u); -x_12 = lean_nat_add(x_3, x_11); -lean_dec(x_3); -x_3 = x_12; +x_16 = lean_array_fset(x_11, x_2, x_15); +lean_dec(x_2); +x_2 = x_14; +x_3 = x_16; goto _start; } -else -{ -lean_object* x_14; -x_14 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_14, 0, x_3); -return x_14; -} -} } } lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3) { @@ -12348,33 +12209,10 @@ return x_3; lean_object* l___private_Init_Lean_Elab_Syntax_7__antiquote___main(lean_object* x_1, lean_object* x_2) { _start: { -uint8_t x_3; lean_object* x_69; uint8_t x_70; -x_69 = l_Lean_mkTermIdFromIdent___closed__2; +lean_object* x_3; uint8_t x_4; +x_3 = l_Lean_mkTermIdFromIdent___closed__2; lean_inc(x_2); -x_70 = l_Lean_Syntax_isOfKind(x_2, x_69); -if (x_70 == 0) -{ -uint8_t x_71; -x_71 = 0; -x_3 = x_71; -goto block_68; -} -else -{ -lean_object* x_72; lean_object* x_73; lean_object* x_74; uint8_t x_75; -x_72 = l_Lean_Syntax_getArgs(x_2); -x_73 = lean_array_get_size(x_72); -lean_dec(x_72); -x_74 = lean_unsigned_to_nat(2u); -x_75 = lean_nat_dec_eq(x_73, x_74); -lean_dec(x_73); -x_3 = x_75; -goto block_68; -} -block_68: -{ -uint8_t x_4; -x_4 = l_coeDecidableEq(x_3); +x_4 = l_Lean_Syntax_isOfKind(x_2, x_3); if (x_4 == 0) { if (lean_obj_tag(x_2) == 1) @@ -12413,41 +12251,42 @@ return x_2; } else { -lean_object* x_14; lean_object* x_15; lean_object* x_16; uint8_t x_17; uint8_t x_18; -x_14 = lean_unsigned_to_nat(0u); -x_15 = l_Lean_Syntax_getArg(x_2, x_14); -x_16 = l_Lean_identKind___closed__2; -lean_inc(x_15); -x_17 = l_Lean_Syntax_isOfKind(x_15, x_16); -x_18 = l_coeDecidableEq(x_17); -if (x_18 == 0) -{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; uint8_t x_17; +x_14 = l_Lean_Syntax_getArgs(x_2); +x_15 = lean_array_get_size(x_14); +lean_dec(x_14); +x_16 = lean_unsigned_to_nat(2u); +x_17 = lean_nat_dec_eq(x_15, x_16); lean_dec(x_15); +if (x_17 == 0) +{ if (lean_obj_tag(x_2) == 1) { -uint8_t x_19; -x_19 = !lean_is_exclusive(x_2); -if (x_19 == 0) +uint8_t x_18; +x_18 = !lean_is_exclusive(x_2); +if (x_18 == 0) { -lean_object* x_20; lean_object* x_21; -x_20 = lean_ctor_get(x_2, 1); -x_21 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__2(x_1, x_14, x_20); +lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_19 = lean_ctor_get(x_2, 1); +x_20 = lean_unsigned_to_nat(0u); +x_21 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__2(x_1, x_20, x_19); lean_ctor_set(x_2, 1, x_21); return x_2; } else { -lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; +lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; x_22 = lean_ctor_get(x_2, 0); x_23 = lean_ctor_get(x_2, 1); lean_inc(x_23); lean_inc(x_22); lean_dec(x_2); -x_24 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__2(x_1, x_14, x_23); -x_25 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_25, 0, x_22); -lean_ctor_set(x_25, 1, x_24); -return x_25; +x_24 = lean_unsigned_to_nat(0u); +x_25 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__2(x_1, x_24, x_23); +x_26 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_26, 0, x_22); +lean_ctor_set(x_26, 1, x_25); +return x_26; } } else @@ -12457,162 +12296,170 @@ return x_2; } else { -lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_43; uint8_t x_44; -x_26 = lean_unsigned_to_nat(1u); -x_27 = l_Lean_Syntax_getArg(x_2, x_26); -x_43 = l_Lean_nullKind___closed__2; -lean_inc(x_27); -x_44 = l_Lean_Syntax_isOfKind(x_27, x_43); -if (x_44 == 0) +lean_object* x_27; lean_object* x_28; lean_object* x_29; uint8_t x_30; +x_27 = lean_unsigned_to_nat(0u); +x_28 = l_Lean_Syntax_getArg(x_2, x_27); +x_29 = l_Lean_identKind___closed__2; +lean_inc(x_28); +x_30 = l_Lean_Syntax_isOfKind(x_28, x_29); +if (x_30 == 0) { -uint8_t x_45; -lean_dec(x_27); -x_45 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_45 == 0) -{ -lean_dec(x_15); -if (lean_obj_tag(x_2) == 1) -{ -uint8_t x_46; -x_46 = !lean_is_exclusive(x_2); -if (x_46 == 0) -{ -lean_object* x_47; lean_object* x_48; -x_47 = lean_ctor_get(x_2, 1); -x_48 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__3(x_1, x_14, x_47); -lean_ctor_set(x_2, 1, x_48); -return x_2; -} -else -{ -lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; -x_49 = lean_ctor_get(x_2, 0); -x_50 = lean_ctor_get(x_2, 1); -lean_inc(x_50); -lean_inc(x_49); -lean_dec(x_2); -x_51 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__3(x_1, x_14, x_50); -x_52 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_52, 0, x_49); -lean_ctor_set(x_52, 1, x_51); -return x_52; -} -} -else -{ -return x_2; -} -} -else -{ -lean_object* x_53; -x_53 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4(x_15, x_1, x_14); -if (lean_obj_tag(x_53) == 0) -{ -lean_dec(x_15); -return x_2; -} -else -{ -lean_object* x_54; -lean_dec(x_53); -lean_dec(x_2); -x_54 = lean_box(0); -x_28 = x_54; -goto block_42; -} -} -} -else -{ -lean_object* x_55; lean_object* x_56; uint8_t x_57; uint8_t x_58; -x_55 = l_Lean_Syntax_getArgs(x_27); -lean_dec(x_27); -x_56 = lean_array_get_size(x_55); -lean_dec(x_55); -x_57 = lean_nat_dec_eq(x_56, x_14); -lean_dec(x_56); -x_58 = l_coeDecidableEq(x_57); -if (x_58 == 0) -{ -lean_dec(x_15); -if (lean_obj_tag(x_2) == 1) -{ -uint8_t x_59; -x_59 = !lean_is_exclusive(x_2); -if (x_59 == 0) -{ -lean_object* x_60; lean_object* x_61; -x_60 = lean_ctor_get(x_2, 1); -x_61 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__5(x_1, x_14, x_60); -lean_ctor_set(x_2, 1, x_61); -return x_2; -} -else -{ -lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; -x_62 = lean_ctor_get(x_2, 0); -x_63 = lean_ctor_get(x_2, 1); -lean_inc(x_63); -lean_inc(x_62); -lean_dec(x_2); -x_64 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__5(x_1, x_14, x_63); -x_65 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_65, 0, x_62); -lean_ctor_set(x_65, 1, x_64); -return x_65; -} -} -else -{ -return x_2; -} -} -else -{ -lean_object* x_66; -x_66 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__6(x_15, x_1, x_14); -if (lean_obj_tag(x_66) == 0) -{ -lean_dec(x_15); -return x_2; -} -else -{ -lean_object* x_67; -lean_dec(x_66); -lean_dec(x_2); -x_67 = lean_box(0); -x_28 = x_67; -goto block_42; -} -} -} -block_42: -{ -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_dec(x_28); -x_29 = l_Lean_nullKind___closed__2; -x_30 = l_Lean_mkTermIdFromIdent___closed__2; -x_31 = lean_alloc_closure((void*)(l___private_Init_Lean_Elab_Syntax_7__antiquote___main___lambda__1___boxed), 6, 3); -lean_closure_set(x_31, 0, x_15); -lean_closure_set(x_31, 1, x_29); -lean_closure_set(x_31, 2, x_30); -x_32 = l_Lean_Unhygienic_MonadQuotation___closed__4; -x_33 = lean_alloc_closure((void*)(l_ReaderT_bind___at___private_Init_Lean_Elab_Quotation_8__explodeHeadPat___spec__1___rarg), 4, 2); -lean_closure_set(x_33, 0, x_32); -lean_closure_set(x_33, 1, x_31); -x_34 = l_Lean_Unhygienic_run___rarg(x_33); -x_35 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__2; -x_36 = lean_array_push(x_35, x_34); -x_37 = l_Lean_mkOptionalNode___closed__1; -x_38 = lean_array_push(x_36, x_37); -x_39 = lean_array_push(x_38, x_37); -x_40 = l_Lean_Parser_mkAntiquot___closed__1; -x_41 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_41, 0, x_40); -lean_ctor_set(x_41, 1, x_39); -return x_41; +if (lean_obj_tag(x_2) == 1) +{ +uint8_t x_31; +x_31 = !lean_is_exclusive(x_2); +if (x_31 == 0) +{ +lean_object* x_32; lean_object* x_33; +x_32 = lean_ctor_get(x_2, 1); +x_33 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__3(x_1, x_27, x_32); +lean_ctor_set(x_2, 1, x_33); +return x_2; +} +else +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; +x_34 = lean_ctor_get(x_2, 0); +x_35 = lean_ctor_get(x_2, 1); +lean_inc(x_35); +lean_inc(x_34); +lean_dec(x_2); +x_36 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__3(x_1, x_27, x_35); +x_37 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_37, 0, x_34); +lean_ctor_set(x_37, 1, x_36); +return x_37; +} +} +else +{ +return x_2; +} +} +else +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; uint8_t x_41; +x_38 = lean_unsigned_to_nat(1u); +x_39 = l_Lean_Syntax_getArg(x_2, x_38); +x_40 = l_Lean_nullKind___closed__2; +lean_inc(x_39); +x_41 = l_Lean_Syntax_isOfKind(x_39, x_40); +if (x_41 == 0) +{ +lean_dec(x_39); +lean_dec(x_28); +if (lean_obj_tag(x_2) == 1) +{ +uint8_t x_42; +x_42 = !lean_is_exclusive(x_2); +if (x_42 == 0) +{ +lean_object* x_43; lean_object* x_44; +x_43 = lean_ctor_get(x_2, 1); +x_44 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4(x_1, x_27, x_43); +lean_ctor_set(x_2, 1, x_44); +return x_2; +} +else +{ +lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; +x_45 = lean_ctor_get(x_2, 0); +x_46 = lean_ctor_get(x_2, 1); +lean_inc(x_46); +lean_inc(x_45); +lean_dec(x_2); +x_47 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4(x_1, x_27, x_46); +x_48 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_48, 0, x_45); +lean_ctor_set(x_48, 1, x_47); +return x_48; +} +} +else +{ +return x_2; +} +} +else +{ +lean_object* x_49; lean_object* x_50; uint8_t x_51; +x_49 = l_Lean_Syntax_getArgs(x_39); +lean_dec(x_39); +x_50 = lean_array_get_size(x_49); +lean_dec(x_49); +x_51 = lean_nat_dec_eq(x_50, x_27); +lean_dec(x_50); +if (x_51 == 0) +{ +lean_dec(x_28); +if (lean_obj_tag(x_2) == 1) +{ +uint8_t x_52; +x_52 = !lean_is_exclusive(x_2); +if (x_52 == 0) +{ +lean_object* x_53; lean_object* x_54; +x_53 = lean_ctor_get(x_2, 1); +x_54 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__5(x_1, x_27, x_53); +lean_ctor_set(x_2, 1, x_54); +return x_2; +} +else +{ +lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; +x_55 = lean_ctor_get(x_2, 0); +x_56 = lean_ctor_get(x_2, 1); +lean_inc(x_56); +lean_inc(x_55); +lean_dec(x_2); +x_57 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__5(x_1, x_27, x_56); +x_58 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_58, 0, x_55); +lean_ctor_set(x_58, 1, x_57); +return x_58; +} +} +else +{ +return x_2; +} +} +else +{ +lean_object* x_59; +x_59 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__6(x_28, x_1, x_27); +if (lean_obj_tag(x_59) == 0) +{ +lean_dec(x_28); +return x_2; +} +else +{ +lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; +lean_dec(x_59); +lean_dec(x_2); +x_60 = lean_alloc_closure((void*)(l___private_Init_Lean_Elab_Syntax_7__antiquote___main___lambda__1___boxed), 6, 3); +lean_closure_set(x_60, 0, x_28); +lean_closure_set(x_60, 1, x_40); +lean_closure_set(x_60, 2, x_3); +x_61 = l_Lean_Unhygienic_MonadQuotation___closed__4; +x_62 = lean_alloc_closure((void*)(l_ReaderT_bind___at___private_Init_Lean_Elab_Quotation_8__explodeHeadPat___spec__1___rarg), 4, 2); +lean_closure_set(x_62, 0, x_61); +lean_closure_set(x_62, 1, x_60); +x_63 = l_Lean_Unhygienic_run___rarg(x_62); +x_64 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__2; +x_65 = lean_array_push(x_64, x_63); +x_66 = l_Lean_mkOptionalNode___closed__1; +x_67 = lean_array_push(x_65, x_66); +x_68 = lean_array_push(x_67, x_66); +x_69 = l_Lean_Parser_mkAntiquot___closed__1; +x_70 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_70, 0, x_69); +lean_ctor_set(x_70, 1, x_68); +return x_70; +} +} } } } @@ -12646,12 +12493,11 @@ lean_dec(x_1); return x_4; } } -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4(x_1, x_2, x_3); -lean_dec(x_2); +x_4 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4(x_1, x_2, x_3); lean_dec(x_1); return x_4; } @@ -13240,33 +13086,10 @@ return x_3; lean_object* l_Lean_Elab_Command_expandNotation(lean_object* x_1, lean_object* x_2) { _start: { -uint8_t x_3; lean_object* x_124; uint8_t x_125; -x_124 = l_Lean_Parser_Command_notation___elambda__1___closed__2; +lean_object* x_3; uint8_t x_4; +x_3 = l_Lean_Parser_Command_notation___elambda__1___closed__2; lean_inc(x_1); -x_125 = l_Lean_Syntax_isOfKind(x_1, x_124); -if (x_125 == 0) -{ -uint8_t x_126; -x_126 = 0; -x_3 = x_126; -goto block_123; -} -else -{ -lean_object* x_127; lean_object* x_128; lean_object* x_129; uint8_t x_130; -x_127 = l_Lean_Syntax_getArgs(x_1); -x_128 = lean_array_get_size(x_127); -lean_dec(x_127); -x_129 = lean_unsigned_to_nat(4u); -x_130 = lean_nat_dec_eq(x_128, x_129); -lean_dec(x_128); -x_3 = x_130; -goto block_123; -} -block_123: -{ -uint8_t x_4; -x_4 = l_coeDecidableEq(x_3); +x_4 = l_Lean_Syntax_isOfKind(x_1, x_3); if (x_4 == 0) { lean_object* x_5; @@ -13277,245 +13100,262 @@ return x_5; } else { -lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; -x_6 = lean_unsigned_to_nat(1u); -x_7 = l_Lean_Syntax_getArg(x_1, x_6); -x_8 = lean_unsigned_to_nat(3u); -x_9 = l_Lean_Syntax_getArg(x_1, x_8); -x_10 = l_Lean_Syntax_getArgs(x_7); +lean_object* x_6; lean_object* x_7; lean_object* x_8; uint8_t x_9; +x_6 = l_Lean_Syntax_getArgs(x_1); +x_7 = lean_array_get_size(x_6); +lean_dec(x_6); +x_8 = lean_unsigned_to_nat(4u); +x_9 = lean_nat_dec_eq(x_7, x_8); lean_dec(x_7); -x_11 = l_Lean_Parser_termParser___closed__2; -lean_inc(x_2); -x_12 = l_Lean_Elab_Command_Macro_mkFreshKind(x_11, x_2); -x_13 = lean_ctor_get(x_12, 0); -lean_inc(x_13); +if (x_9 == 0) +{ +lean_object* x_10; +lean_dec(x_2); +lean_dec(x_1); +x_10 = l_Lean_Macro_throwUnsupported___closed__1; +return x_10; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_11 = lean_unsigned_to_nat(1u); +x_12 = l_Lean_Syntax_getArg(x_1, x_11); +x_13 = lean_unsigned_to_nat(3u); +x_14 = l_Lean_Syntax_getArg(x_1, x_13); +x_15 = l_Lean_Syntax_getArgs(x_12); lean_dec(x_12); -x_14 = lean_unsigned_to_nat(0u); -lean_inc(x_10); -x_15 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__1(x_14, x_10, x_2); -if (lean_obj_tag(x_15) == 0) +x_16 = l_Lean_Parser_termParser___closed__2; +lean_inc(x_2); +x_17 = l_Lean_Elab_Command_Macro_mkFreshKind(x_16, x_2); +x_18 = lean_ctor_get(x_17, 0); +lean_inc(x_18); +lean_dec(x_17); +x_19 = lean_unsigned_to_nat(0u); +lean_inc(x_15); +x_20 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__1(x_19, x_15, x_2); +if (lean_obj_tag(x_20) == 0) { -uint8_t x_16; -lean_dec(x_13); -lean_dec(x_10); -lean_dec(x_9); +uint8_t x_21; +lean_dec(x_18); +lean_dec(x_15); +lean_dec(x_14); lean_dec(x_2); lean_dec(x_1); -x_16 = !lean_is_exclusive(x_15); -if (x_16 == 0) +x_21 = !lean_is_exclusive(x_20); +if (x_21 == 0) { -return x_15; +return x_20; } else { -lean_object* x_17; lean_object* x_18; -x_17 = lean_ctor_get(x_15, 0); -lean_inc(x_17); -lean_dec(x_15); -x_18 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_18, 0, x_17); -return x_18; -} -} -else -{ -lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; -x_19 = lean_ctor_get(x_15, 0); -lean_inc(x_19); -lean_dec(x_15); -x_20 = l_Lean_mkIdentFrom(x_1, x_11); -x_21 = l___regBuiltinParser_Lean_Parser_Command_antiquot___closed__2; -lean_inc(x_10); -x_22 = l_Array_filterAux___main___at_Lean_Elab_Command_expandNotation___spec__2(x_21, x_10, x_14, x_14); -x_23 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__3(x_14, x_22); -x_24 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main(x_23, x_9); -lean_dec(x_23); -x_25 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__4(x_14, x_10, x_2); -lean_dec(x_2); -if (lean_obj_tag(x_25) == 0) -{ -uint8_t x_26; -lean_dec(x_24); +lean_object* x_22; lean_object* x_23; +x_22 = lean_ctor_get(x_20, 0); +lean_inc(x_22); lean_dec(x_20); -lean_dec(x_19); -lean_dec(x_13); -lean_dec(x_1); -x_26 = !lean_is_exclusive(x_25); -if (x_26 == 0) -{ -return x_25; +x_23 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_23, 0, x_22); +return x_23; +} } else { -lean_object* x_27; lean_object* x_28; -x_27 = lean_ctor_get(x_25, 0); -lean_inc(x_27); +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; +x_24 = lean_ctor_get(x_20, 0); +lean_inc(x_24); +lean_dec(x_20); +x_25 = l_Lean_mkIdentFrom(x_1, x_16); +x_26 = l___regBuiltinParser_Lean_Parser_Command_antiquot___closed__2; +lean_inc(x_15); +x_27 = l_Array_filterAux___main___at_Lean_Elab_Command_expandNotation___spec__2(x_26, x_15, x_19, x_19); +x_28 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__3(x_19, x_27); +x_29 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main(x_28, x_14); +lean_dec(x_28); +x_30 = l_Array_umapMAux___main___at_Lean_Elab_Command_expandNotation___spec__4(x_19, x_15, x_2); +lean_dec(x_2); +if (lean_obj_tag(x_30) == 0) +{ +uint8_t x_31; +lean_dec(x_29); lean_dec(x_25); -x_28 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_28, 0, x_27); -return x_28; +lean_dec(x_24); +lean_dec(x_18); +lean_dec(x_1); +x_31 = !lean_is_exclusive(x_30); +if (x_31 == 0) +{ +return x_30; +} +else +{ +lean_object* x_32; lean_object* x_33; +x_32 = lean_ctor_get(x_30, 0); +lean_inc(x_32); +lean_dec(x_30); +x_33 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_33, 0, x_32); +return x_33; } } else { -uint8_t x_29; -x_29 = !lean_is_exclusive(x_25); -if (x_29 == 0) +uint8_t x_34; +x_34 = !lean_is_exclusive(x_30); +if (x_34 == 0) { -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_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; -x_30 = lean_ctor_get(x_25, 0); -lean_inc(x_13); -x_31 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_31, 0, x_13); -lean_ctor_set(x_31, 1, x_30); -x_32 = l_Lean_mkIdentFrom(x_1, x_13); +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_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; +x_35 = lean_ctor_get(x_30, 0); +lean_inc(x_18); +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_18); +lean_ctor_set(x_36, 1, x_35); +x_37 = l_Lean_mkIdentFrom(x_1, x_18); lean_dec(x_1); -x_33 = l_Lean_Elab_Term_elabArrayLit___closed__12; -x_34 = lean_array_push(x_33, x_32); -x_35 = l_Lean_Elab_Term_elabArrayLit___closed__13; -x_36 = lean_array_push(x_34, x_35); -x_37 = l_Lean_nullKind___closed__2; -x_38 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_38, 0, x_37); -lean_ctor_set(x_38, 1, x_36); -x_39 = l_Lean_Elab_Command_expandNotation___closed__2; -x_40 = lean_array_push(x_39, x_38); -x_41 = l_Array_empty___closed__1; -x_42 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_19, x_19, x_14, x_41); -lean_dec(x_19); +x_38 = l_Lean_Elab_Term_elabArrayLit___closed__12; +x_39 = lean_array_push(x_38, x_37); +x_40 = l_Lean_Elab_Term_elabArrayLit___closed__13; +x_41 = lean_array_push(x_39, x_40); +x_42 = l_Lean_nullKind___closed__2; x_43 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_43, 0, x_37); -lean_ctor_set(x_43, 1, x_42); -x_44 = lean_array_push(x_40, x_43); -x_45 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__5; -x_46 = lean_array_push(x_44, x_45); -x_47 = lean_array_push(x_46, x_20); -x_48 = l_Lean_Parser_Command_syntax___elambda__1___closed__1; -x_49 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_49, 0, x_48); -lean_ctor_set(x_49, 1, x_47); -x_50 = lean_array_push(x_41, x_49); -x_51 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; -x_52 = lean_array_push(x_51, x_31); -x_53 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_54 = lean_array_push(x_52, x_53); -x_55 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; -x_56 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_56, 0, x_55); -lean_ctor_set(x_56, 1, x_54); -x_57 = lean_array_push(x_41, x_56); -x_58 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_58, 0, x_37); -lean_ctor_set(x_58, 1, x_57); -x_59 = lean_array_push(x_41, x_58); -x_60 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_61 = lean_array_push(x_59, x_60); -x_62 = lean_array_push(x_51, x_24); -x_63 = lean_array_push(x_62, x_53); -x_64 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_64, 0, x_55); -lean_ctor_set(x_64, 1, x_63); -x_65 = lean_array_push(x_61, x_64); -x_66 = l_Lean_Parser_Term_matchAlt___closed__2; -x_67 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_67, 0, x_66); -lean_ctor_set(x_67, 1, x_65); -x_68 = lean_array_push(x_41, x_67); +lean_ctor_set(x_43, 0, x_42); +lean_ctor_set(x_43, 1, x_41); +x_44 = l_Lean_Elab_Command_expandNotation___closed__2; +x_45 = lean_array_push(x_44, x_43); +x_46 = l_Array_empty___closed__1; +x_47 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_24, x_24, x_19, x_46); +lean_dec(x_24); +x_48 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_48, 0, x_42); +lean_ctor_set(x_48, 1, x_47); +x_49 = lean_array_push(x_45, x_48); +x_50 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__5; +x_51 = lean_array_push(x_49, x_50); +x_52 = lean_array_push(x_51, x_25); +x_53 = l_Lean_Parser_Command_syntax___elambda__1___closed__1; +x_54 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_54, 0, x_53); +lean_ctor_set(x_54, 1, x_52); +x_55 = lean_array_push(x_46, x_54); +x_56 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; +x_57 = lean_array_push(x_56, x_36); +x_58 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_59 = lean_array_push(x_57, x_58); +x_60 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; +x_61 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_61, 0, x_60); +lean_ctor_set(x_61, 1, x_59); +x_62 = lean_array_push(x_46, x_61); +x_63 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_63, 0, x_42); +lean_ctor_set(x_63, 1, x_62); +x_64 = lean_array_push(x_46, x_63); +x_65 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_66 = lean_array_push(x_64, x_65); +x_67 = lean_array_push(x_56, x_29); +x_68 = lean_array_push(x_67, x_58); x_69 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_69, 0, x_37); +lean_ctor_set(x_69, 0, x_60); lean_ctor_set(x_69, 1, x_68); -x_70 = l_Lean_Elab_Command_expandNotation___closed__3; -x_71 = lean_array_push(x_70, x_69); -x_72 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; -x_73 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_73, 0, x_72); -lean_ctor_set(x_73, 1, x_71); -x_74 = lean_array_push(x_50, x_73); -x_75 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_75, 0, x_37); -lean_ctor_set(x_75, 1, x_74); -lean_ctor_set(x_25, 0, x_75); -return x_25; +x_70 = lean_array_push(x_66, x_69); +x_71 = l_Lean_Parser_Term_matchAlt___closed__2; +x_72 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_72, 0, x_71); +lean_ctor_set(x_72, 1, x_70); +x_73 = lean_array_push(x_46, x_72); +x_74 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_74, 0, x_42); +lean_ctor_set(x_74, 1, x_73); +x_75 = l_Lean_Elab_Command_expandNotation___closed__3; +x_76 = lean_array_push(x_75, x_74); +x_77 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; +x_78 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_78, 0, x_77); +lean_ctor_set(x_78, 1, x_76); +x_79 = lean_array_push(x_55, x_78); +x_80 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_80, 0, x_42); +lean_ctor_set(x_80, 1, x_79); +lean_ctor_set(x_30, 0, x_80); +return x_30; } else { -lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; -x_76 = lean_ctor_get(x_25, 0); -lean_inc(x_76); -lean_dec(x_25); -lean_inc(x_13); -x_77 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_77, 0, x_13); -lean_ctor_set(x_77, 1, x_76); -x_78 = l_Lean_mkIdentFrom(x_1, x_13); +lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; +x_81 = lean_ctor_get(x_30, 0); +lean_inc(x_81); +lean_dec(x_30); +lean_inc(x_18); +x_82 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_82, 0, x_18); +lean_ctor_set(x_82, 1, x_81); +x_83 = l_Lean_mkIdentFrom(x_1, x_18); lean_dec(x_1); -x_79 = l_Lean_Elab_Term_elabArrayLit___closed__12; -x_80 = lean_array_push(x_79, x_78); -x_81 = l_Lean_Elab_Term_elabArrayLit___closed__13; -x_82 = lean_array_push(x_80, x_81); -x_83 = l_Lean_nullKind___closed__2; -x_84 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_84, 0, x_83); -lean_ctor_set(x_84, 1, x_82); -x_85 = l_Lean_Elab_Command_expandNotation___closed__2; -x_86 = lean_array_push(x_85, x_84); -x_87 = l_Array_empty___closed__1; -x_88 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_19, x_19, x_14, x_87); -lean_dec(x_19); +x_84 = l_Lean_Elab_Term_elabArrayLit___closed__12; +x_85 = lean_array_push(x_84, x_83); +x_86 = l_Lean_Elab_Term_elabArrayLit___closed__13; +x_87 = lean_array_push(x_85, x_86); +x_88 = l_Lean_nullKind___closed__2; x_89 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_89, 0, x_83); -lean_ctor_set(x_89, 1, x_88); -x_90 = lean_array_push(x_86, x_89); -x_91 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__5; -x_92 = lean_array_push(x_90, x_91); -x_93 = lean_array_push(x_92, x_20); -x_94 = l_Lean_Parser_Command_syntax___elambda__1___closed__1; -x_95 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_95, 0, x_94); -lean_ctor_set(x_95, 1, x_93); -x_96 = lean_array_push(x_87, x_95); -x_97 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; -x_98 = lean_array_push(x_97, x_77); -x_99 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; -x_100 = lean_array_push(x_98, x_99); -x_101 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; -x_102 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_102, 0, x_101); -lean_ctor_set(x_102, 1, x_100); -x_103 = lean_array_push(x_87, x_102); -x_104 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_104, 0, x_83); -lean_ctor_set(x_104, 1, x_103); -x_105 = lean_array_push(x_87, x_104); -x_106 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_107 = lean_array_push(x_105, x_106); -x_108 = lean_array_push(x_97, x_24); -x_109 = lean_array_push(x_108, x_99); -x_110 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_110, 0, x_101); -lean_ctor_set(x_110, 1, x_109); -x_111 = lean_array_push(x_107, x_110); -x_112 = l_Lean_Parser_Term_matchAlt___closed__2; -x_113 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_113, 0, x_112); -lean_ctor_set(x_113, 1, x_111); -x_114 = lean_array_push(x_87, x_113); +lean_ctor_set(x_89, 0, x_88); +lean_ctor_set(x_89, 1, x_87); +x_90 = l_Lean_Elab_Command_expandNotation___closed__2; +x_91 = lean_array_push(x_90, x_89); +x_92 = l_Array_empty___closed__1; +x_93 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_24, x_24, x_19, x_92); +lean_dec(x_24); +x_94 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_94, 0, x_88); +lean_ctor_set(x_94, 1, x_93); +x_95 = lean_array_push(x_91, x_94); +x_96 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__5; +x_97 = lean_array_push(x_95, x_96); +x_98 = lean_array_push(x_97, x_25); +x_99 = l_Lean_Parser_Command_syntax___elambda__1___closed__1; +x_100 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_100, 0, x_99); +lean_ctor_set(x_100, 1, x_98); +x_101 = lean_array_push(x_92, x_100); +x_102 = l_Lean_Elab_Command_elabMacroRulesAux___lambda__1___closed__8; +x_103 = lean_array_push(x_102, x_82); +x_104 = l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__59; +x_105 = lean_array_push(x_103, x_104); +x_106 = l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; +x_107 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_107, 0, x_106); +lean_ctor_set(x_107, 1, x_105); +x_108 = lean_array_push(x_92, x_107); +x_109 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_109, 0, x_88); +lean_ctor_set(x_109, 1, x_108); +x_110 = lean_array_push(x_92, x_109); +x_111 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_112 = lean_array_push(x_110, x_111); +x_113 = lean_array_push(x_102, x_29); +x_114 = lean_array_push(x_113, x_104); x_115 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_115, 0, x_83); +lean_ctor_set(x_115, 0, x_106); lean_ctor_set(x_115, 1, x_114); -x_116 = l_Lean_Elab_Command_expandNotation___closed__3; -x_117 = lean_array_push(x_116, x_115); -x_118 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; -x_119 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_119, 0, x_118); -lean_ctor_set(x_119, 1, x_117); -x_120 = lean_array_push(x_96, x_119); -x_121 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_121, 0, x_83); -lean_ctor_set(x_121, 1, x_120); -x_122 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_122, 0, x_121); -return x_122; +x_116 = lean_array_push(x_112, x_115); +x_117 = l_Lean_Parser_Term_matchAlt___closed__2; +x_118 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_118, 0, x_117); +lean_ctor_set(x_118, 1, x_116); +x_119 = lean_array_push(x_92, x_118); +x_120 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_120, 0, x_88); +lean_ctor_set(x_120, 1, x_119); +x_121 = l_Lean_Elab_Command_expandNotation___closed__3; +x_122 = lean_array_push(x_121, x_120); +x_123 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; +x_124 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_124, 0, x_123); +lean_ctor_set(x_124, 1, x_122); +x_125 = lean_array_push(x_101, x_124); +x_126 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_126, 0, x_88); +lean_ctor_set(x_126, 1, x_125); +x_127 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_127, 0, x_126); +return x_127; } } } diff --git a/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c b/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c index 16fcfdecd4..6e13eb0c27 100644 --- a/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c +++ b/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c @@ -58,7 +58,6 @@ lean_object* l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing(lean_obj lean_object* l_Lean_Elab_Tactic_focus(lean_object*); lean_object* l_Lean_Elab_Tactic_getLCtx___boxed(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_monadQuotation___closed__2; -extern uint8_t l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; lean_object* l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalIntro___lambda__2___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_liftMetaM___rarg(lean_object*, lean_object*, lean_object*, lean_object*); @@ -131,7 +130,6 @@ lean_object* l_Lean_Elab_Tactic_monadLog___closed__3; extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__1; lean_object* l_Lean_Meta_intro(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_tagUntaggedGoals___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -extern lean_object* l_Lean_Meta_Exception_toMessageData___closed__45; lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalCase___closed__2; lean_object* l_Lean_Syntax_getTailWithInfo___main(lean_object*); lean_object* l_List_findM_x3f___main___at_Lean_Elab_Tactic_evalCase___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -155,6 +153,7 @@ lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalParen(lean_object*); lean_object* l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_EnvExtension_Inhabited___rarg___closed__1; lean_object* l_Lean_Elab_Tactic_declareBuiltinTactic___closed__3; +extern lean_object* l_Lean_Meta_Exception_toMessageData___closed__48; extern lean_object* l_Lean_Parser_Tactic_nestedTacticBlockCurly___elambda__1___closed__2; lean_object* l_Lean_Elab_Tactic_focus___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_SMap_find_x3f___at_Lean_Elab_getMacros___spec__1(lean_object*, lean_object*); @@ -224,7 +223,6 @@ lean_object* l_Lean_Elab_Tactic_Lean_Elab_MonadMacroAdapter___closed__4; lean_object* l_Lean_Elab_Tactic_getMainModule___rarg(lean_object*); lean_object* l_Lean_Elab_Tactic_withLCtx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalTraceState(lean_object*, lean_object*, lean_object*); -uint8_t l_coeDecidableEq(uint8_t); lean_object* l_ReaderT_read___at_Lean_Elab_Tactic_monadLog___spec__1(lean_object*, lean_object*); size_t lean_usize_modn(size_t, lean_object*); lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalNestedTacticBlockCurly(lean_object*); @@ -4403,7 +4401,7 @@ x_9 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_9, 0, x_8); x_10 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_10, 0, x_9); -x_11 = l_Lean_Meta_Exception_toMessageData___closed__45; +x_11 = l_Lean_Meta_Exception_toMessageData___closed__48; x_12 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_12, 0, x_11); lean_ctor_set(x_12, 1, x_10); @@ -4980,7 +4978,7 @@ x_8 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_8, 0, x_7); x_9 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_9, 0, x_8); -x_10 = l_Lean_Meta_Exception_toMessageData___closed__45; +x_10 = l_Lean_Meta_Exception_toMessageData___closed__48; x_11 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_11, 0, x_10); lean_ctor_set(x_11, 1, x_9); @@ -13422,33 +13420,10 @@ return x_19; lean_object* l_Lean_Elab_Tactic_evalIntro(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_73; uint8_t x_74; -x_73 = l_Lean_Parser_Tactic_intro___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Tactic_intro___elambda__1___closed__2; lean_inc(x_1); -x_74 = l_Lean_Syntax_isOfKind(x_1, x_73); -if (x_74 == 0) -{ -uint8_t x_75; -x_75 = 0; -x_4 = x_75; -goto block_72; -} -else -{ -lean_object* x_76; lean_object* x_77; lean_object* x_78; uint8_t x_79; -x_76 = l_Lean_Syntax_getArgs(x_1); -x_77 = lean_array_get_size(x_76); -lean_dec(x_76); -x_78 = lean_unsigned_to_nat(2u); -x_79 = lean_nat_dec_eq(x_77, x_78); -lean_dec(x_77); -x_4 = x_79; -goto block_72; -} -block_72: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; @@ -13458,254 +13433,201 @@ return x_6; } else { -lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; uint8_t x_11; -x_7 = lean_unsigned_to_nat(1u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); -x_9 = l_Lean_nullKind___closed__2; -lean_inc(x_8); -x_10 = l_Lean_Syntax_isOfKind(x_8, x_9); -if (x_10 == 0) -{ -uint8_t x_67; -x_67 = 0; -x_11 = x_67; -goto block_66; -} -else -{ -lean_object* x_68; lean_object* x_69; lean_object* x_70; uint8_t x_71; -x_68 = l_Lean_Syntax_getArgs(x_8); -x_69 = lean_array_get_size(x_68); -lean_dec(x_68); -x_70 = lean_unsigned_to_nat(0u); -x_71 = lean_nat_dec_eq(x_69, x_70); -lean_dec(x_69); -x_11 = x_71; -goto block_66; -} -block_66: -{ -uint8_t x_12; -x_12 = l_coeDecidableEq(x_11); -if (x_12 == 0) -{ -if (x_10 == 0) -{ -uint8_t x_13; -x_13 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_13 == 0) -{ -lean_object* x_14; +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(2u); +x_10 = lean_nat_dec_eq(x_8, x_9); lean_dec(x_8); +if (x_10 == 0) +{ +lean_object* x_11; lean_dec(x_1); -x_14 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_2, x_3); -return x_14; +x_11 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_2, x_3); +return x_11; } else { -lean_object* x_15; lean_object* x_16; lean_object* x_17; -x_15 = lean_unsigned_to_nat(0u); -x_16 = l_Lean_Syntax_getArg(x_8, x_15); -lean_dec(x_8); +lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15; lean_object* x_16; +x_12 = lean_unsigned_to_nat(1u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); +x_14 = l_Lean_nullKind___closed__2; +lean_inc(x_13); +x_15 = l_Lean_Syntax_isOfKind(x_13, x_14); +if (x_15 == 0) +{ +lean_object* x_39; +x_39 = lean_box(0); +x_16 = x_39; +goto block_38; +} +else +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; uint8_t x_43; +x_40 = l_Lean_Syntax_getArgs(x_13); +x_41 = lean_array_get_size(x_40); +lean_dec(x_40); +x_42 = lean_unsigned_to_nat(0u); +x_43 = lean_nat_dec_eq(x_41, x_42); +lean_dec(x_41); +if (x_43 == 0) +{ +lean_object* x_44; +x_44 = lean_box(0); +x_16 = x_44; +goto block_38; +} +else +{ +lean_object* x_45; +lean_dec(x_13); lean_inc(x_2); lean_inc(x_1); -x_17 = l_Lean_Elab_Tactic_getMainGoal(x_1, x_2, x_3); -if (lean_obj_tag(x_17) == 0) +x_45 = l_Lean_Elab_Tactic_getMainGoal(x_1, x_2, x_3); +if (lean_obj_tag(x_45) == 0) { -lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; -x_18 = lean_ctor_get(x_17, 0); -lean_inc(x_18); -x_19 = lean_ctor_get(x_17, 1); -lean_inc(x_19); -lean_dec(x_17); -x_20 = lean_ctor_get(x_18, 0); -lean_inc(x_20); -x_21 = lean_ctor_get(x_18, 1); -lean_inc(x_21); -lean_dec(x_18); -lean_inc(x_20); -x_22 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalIntro___lambda__1___boxed), 4, 2); -lean_closure_set(x_22, 0, x_16); -lean_closure_set(x_22, 1, x_20); -x_23 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaM___rarg), 4, 2); -lean_closure_set(x_23, 0, x_1); -lean_closure_set(x_23, 1, x_22); -x_24 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaTactic___lambda__1___boxed), 4, 1); -lean_closure_set(x_24, 0, x_21); -x_25 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); -lean_closure_set(x_25, 0, x_23); -lean_closure_set(x_25, 1, x_24); -x_26 = l_Lean_Elab_Tactic_withMVarContext___rarg(x_20, x_25, x_2, x_19); -lean_dec(x_20); -return x_26; +lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; +x_46 = lean_ctor_get(x_45, 0); +lean_inc(x_46); +x_47 = lean_ctor_get(x_45, 1); +lean_inc(x_47); +lean_dec(x_45); +x_48 = lean_ctor_get(x_46, 0); +lean_inc(x_48); +x_49 = lean_ctor_get(x_46, 1); +lean_inc(x_49); +lean_dec(x_46); +lean_inc(x_48); +x_50 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalIntro___lambda__2___boxed), 3, 1); +lean_closure_set(x_50, 0, x_48); +x_51 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaM___rarg), 4, 2); +lean_closure_set(x_51, 0, x_1); +lean_closure_set(x_51, 1, x_50); +x_52 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaTactic___lambda__1___boxed), 4, 1); +lean_closure_set(x_52, 0, x_49); +x_53 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); +lean_closure_set(x_53, 0, x_51); +lean_closure_set(x_53, 1, x_52); +x_54 = l_Lean_Elab_Tactic_withMVarContext___rarg(x_48, x_53, x_2, x_47); +lean_dec(x_48); +return x_54; } else { -uint8_t x_27; -lean_dec(x_16); +uint8_t x_55; lean_dec(x_2); lean_dec(x_1); -x_27 = !lean_is_exclusive(x_17); -if (x_27 == 0) +x_55 = !lean_is_exclusive(x_45); +if (x_55 == 0) { +return x_45; +} +else +{ +lean_object* x_56; lean_object* x_57; lean_object* x_58; +x_56 = lean_ctor_get(x_45, 0); +x_57 = lean_ctor_get(x_45, 1); +lean_inc(x_57); +lean_inc(x_56); +lean_dec(x_45); +x_58 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_58, 0, x_56); +lean_ctor_set(x_58, 1, x_57); +return x_58; +} +} +} +} +block_38: +{ +lean_dec(x_16); +if (x_15 == 0) +{ +lean_object* x_17; +lean_dec(x_13); +lean_dec(x_1); +x_17 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_2, x_3); return x_17; } else { -lean_object* x_28; lean_object* x_29; lean_object* x_30; -x_28 = lean_ctor_get(x_17, 0); -x_29 = lean_ctor_get(x_17, 1); -lean_inc(x_29); -lean_inc(x_28); -lean_dec(x_17); -x_30 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_30, 0, x_28); -lean_ctor_set(x_30, 1, x_29); -return x_30; -} -} -} +lean_object* x_18; lean_object* x_19; uint8_t x_20; +x_18 = l_Lean_Syntax_getArgs(x_13); +x_19 = lean_array_get_size(x_18); +lean_dec(x_18); +x_20 = lean_nat_dec_eq(x_19, x_12); +lean_dec(x_19); +if (x_20 == 0) +{ +lean_object* x_21; +lean_dec(x_13); +lean_dec(x_1); +x_21 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_2, x_3); +return x_21; } else { -lean_object* x_31; lean_object* x_32; uint8_t x_33; uint8_t x_34; -x_31 = l_Lean_Syntax_getArgs(x_8); -x_32 = lean_array_get_size(x_31); -lean_dec(x_31); -x_33 = lean_nat_dec_eq(x_32, x_7); -lean_dec(x_32); -x_34 = l_coeDecidableEq(x_33); +lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_22 = lean_unsigned_to_nat(0u); +x_23 = l_Lean_Syntax_getArg(x_13, x_22); +lean_dec(x_13); +lean_inc(x_2); +lean_inc(x_1); +x_24 = l_Lean_Elab_Tactic_getMainGoal(x_1, x_2, x_3); +if (lean_obj_tag(x_24) == 0) +{ +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; +x_25 = lean_ctor_get(x_24, 0); +lean_inc(x_25); +x_26 = lean_ctor_get(x_24, 1); +lean_inc(x_26); +lean_dec(x_24); +x_27 = lean_ctor_get(x_25, 0); +lean_inc(x_27); +x_28 = lean_ctor_get(x_25, 1); +lean_inc(x_28); +lean_dec(x_25); +lean_inc(x_27); +x_29 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalIntro___lambda__1___boxed), 4, 2); +lean_closure_set(x_29, 0, x_23); +lean_closure_set(x_29, 1, x_27); +x_30 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaM___rarg), 4, 2); +lean_closure_set(x_30, 0, x_1); +lean_closure_set(x_30, 1, x_29); +x_31 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaTactic___lambda__1___boxed), 4, 1); +lean_closure_set(x_31, 0, x_28); +x_32 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); +lean_closure_set(x_32, 0, x_30); +lean_closure_set(x_32, 1, x_31); +x_33 = l_Lean_Elab_Tactic_withMVarContext___rarg(x_27, x_32, x_2, x_26); +lean_dec(x_27); +return x_33; +} +else +{ +uint8_t x_34; +lean_dec(x_23); +lean_dec(x_2); +lean_dec(x_1); +x_34 = !lean_is_exclusive(x_24); if (x_34 == 0) { -lean_object* x_35; -lean_dec(x_8); -lean_dec(x_1); -x_35 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_2, x_3); -return x_35; +return x_24; } else { -lean_object* x_36; lean_object* x_37; lean_object* x_38; -x_36 = lean_unsigned_to_nat(0u); -x_37 = l_Lean_Syntax_getArg(x_8, x_36); -lean_dec(x_8); -lean_inc(x_2); -lean_inc(x_1); -x_38 = l_Lean_Elab_Tactic_getMainGoal(x_1, x_2, x_3); -if (lean_obj_tag(x_38) == 0) -{ -lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; -x_39 = lean_ctor_get(x_38, 0); -lean_inc(x_39); -x_40 = lean_ctor_get(x_38, 1); -lean_inc(x_40); -lean_dec(x_38); -x_41 = lean_ctor_get(x_39, 0); -lean_inc(x_41); -x_42 = lean_ctor_get(x_39, 1); -lean_inc(x_42); -lean_dec(x_39); -lean_inc(x_41); -x_43 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalIntro___lambda__1___boxed), 4, 2); -lean_closure_set(x_43, 0, x_37); -lean_closure_set(x_43, 1, x_41); -x_44 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaM___rarg), 4, 2); -lean_closure_set(x_44, 0, x_1); -lean_closure_set(x_44, 1, x_43); -x_45 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaTactic___lambda__1___boxed), 4, 1); -lean_closure_set(x_45, 0, x_42); -x_46 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); -lean_closure_set(x_46, 0, x_44); -lean_closure_set(x_46, 1, x_45); -x_47 = l_Lean_Elab_Tactic_withMVarContext___rarg(x_41, x_46, x_2, x_40); -lean_dec(x_41); -return x_47; +lean_object* x_35; lean_object* x_36; lean_object* x_37; +x_35 = lean_ctor_get(x_24, 0); +x_36 = lean_ctor_get(x_24, 1); +lean_inc(x_36); +lean_inc(x_35); +lean_dec(x_24); +x_37 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_37, 0, x_35); +lean_ctor_set(x_37, 1, x_36); +return x_37; } -else -{ -uint8_t x_48; -lean_dec(x_37); -lean_dec(x_2); -lean_dec(x_1); -x_48 = !lean_is_exclusive(x_38); -if (x_48 == 0) -{ -return x_38; -} -else -{ -lean_object* x_49; lean_object* x_50; lean_object* x_51; -x_49 = lean_ctor_get(x_38, 0); -x_50 = lean_ctor_get(x_38, 1); -lean_inc(x_50); -lean_inc(x_49); -lean_dec(x_38); -x_51 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_51, 0, x_49); -lean_ctor_set(x_51, 1, x_50); -return x_51; -} -} -} -} -} -else -{ -lean_object* x_52; -lean_dec(x_8); -lean_inc(x_2); -lean_inc(x_1); -x_52 = l_Lean_Elab_Tactic_getMainGoal(x_1, x_2, x_3); -if (lean_obj_tag(x_52) == 0) -{ -lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; -x_53 = lean_ctor_get(x_52, 0); -lean_inc(x_53); -x_54 = lean_ctor_get(x_52, 1); -lean_inc(x_54); -lean_dec(x_52); -x_55 = lean_ctor_get(x_53, 0); -lean_inc(x_55); -x_56 = lean_ctor_get(x_53, 1); -lean_inc(x_56); -lean_dec(x_53); -lean_inc(x_55); -x_57 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalIntro___lambda__2___boxed), 3, 1); -lean_closure_set(x_57, 0, x_55); -x_58 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaM___rarg), 4, 2); -lean_closure_set(x_58, 0, x_1); -lean_closure_set(x_58, 1, x_57); -x_59 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaTactic___lambda__1___boxed), 4, 1); -lean_closure_set(x_59, 0, x_56); -x_60 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); -lean_closure_set(x_60, 0, x_58); -lean_closure_set(x_60, 1, x_59); -x_61 = l_Lean_Elab_Tactic_withMVarContext___rarg(x_55, x_60, x_2, x_54); -lean_dec(x_55); -return x_61; -} -else -{ -uint8_t x_62; -lean_dec(x_2); -lean_dec(x_1); -x_62 = !lean_is_exclusive(x_52); -if (x_62 == 0) -{ -return x_52; -} -else -{ -lean_object* x_63; lean_object* x_64; lean_object* x_65; -x_63 = lean_ctor_get(x_52, 0); -x_64 = lean_ctor_get(x_52, 1); -lean_inc(x_64); -lean_inc(x_63); -lean_dec(x_52); -x_65 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_65, 0, x_63); -lean_ctor_set(x_65, 1, x_64); -return x_65; } } } @@ -14049,33 +13971,10 @@ return x_29; lean_object* l_Lean_Elab_Tactic_evalIntros(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_49; uint8_t x_50; -x_49 = l_Lean_Parser_Tactic_intros___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Tactic_intros___elambda__1___closed__2; lean_inc(x_1); -x_50 = l_Lean_Syntax_isOfKind(x_1, x_49); -if (x_50 == 0) -{ -uint8_t x_51; -x_51 = 0; -x_4 = x_51; -goto block_48; -} -else -{ -lean_object* x_52; lean_object* x_53; lean_object* x_54; uint8_t x_55; -x_52 = l_Lean_Syntax_getArgs(x_1); -x_53 = lean_array_get_size(x_52); -lean_dec(x_52); -x_54 = lean_unsigned_to_nat(2u); -x_55 = lean_nat_dec_eq(x_53, x_54); -lean_dec(x_53); -x_4 = x_55; -goto block_48; -} -block_48: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; @@ -14085,156 +13984,173 @@ return x_6; } else { -lean_object* x_7; lean_object* x_8; uint8_t x_9; lean_object* x_41; uint8_t x_42; -x_7 = lean_unsigned_to_nat(1u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); -x_41 = l_Lean_nullKind___closed__2; -lean_inc(x_8); -x_42 = l_Lean_Syntax_isOfKind(x_8, x_41); -if (x_42 == 0) -{ -uint8_t x_43; -x_43 = 0; -x_9 = x_43; -goto block_40; -} -else -{ -lean_object* x_44; lean_object* x_45; lean_object* x_46; uint8_t x_47; -x_44 = l_Lean_Syntax_getArgs(x_8); -x_45 = lean_array_get_size(x_44); -lean_dec(x_44); -x_46 = lean_unsigned_to_nat(0u); -x_47 = lean_nat_dec_eq(x_45, x_46); -lean_dec(x_45); -x_9 = x_47; -goto block_40; -} -block_40: -{ -uint8_t x_10; -x_10 = l_coeDecidableEq(x_9); +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(2u); +x_10 = lean_nat_dec_eq(x_8, x_9); +lean_dec(x_8); if (x_10 == 0) { -lean_object* x_11; lean_object* x_12; -x_11 = l_Lean_Syntax_getArgs(x_8); -lean_dec(x_8); -lean_inc(x_2); -lean_inc(x_1); -x_12 = l_Lean_Elab_Tactic_getMainGoal(x_1, x_2, x_3); -if (lean_obj_tag(x_12) == 0) +lean_object* x_11; +lean_dec(x_1); +x_11 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_2, x_3); +return x_11; +} +else { -lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; -x_13 = lean_ctor_get(x_12, 0); +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_31; uint8_t x_32; +x_12 = lean_unsigned_to_nat(1u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); +x_31 = l_Lean_nullKind___closed__2; lean_inc(x_13); -x_14 = lean_ctor_get(x_12, 1); -lean_inc(x_14); -lean_dec(x_12); -x_15 = lean_ctor_get(x_13, 0); -lean_inc(x_15); -x_16 = lean_ctor_get(x_13, 1); -lean_inc(x_16); +x_32 = l_Lean_Syntax_isOfKind(x_13, x_31); +if (x_32 == 0) +{ +lean_object* x_33; +x_33 = lean_box(0); +x_14 = x_33; +goto block_30; +} +else +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; uint8_t x_37; +x_34 = l_Lean_Syntax_getArgs(x_13); +x_35 = lean_array_get_size(x_34); +lean_dec(x_34); +x_36 = lean_unsigned_to_nat(0u); +x_37 = lean_nat_dec_eq(x_35, x_36); +lean_dec(x_35); +if (x_37 == 0) +{ +lean_object* x_38; +x_38 = lean_box(0); +x_14 = x_38; +goto block_30; +} +else +{ +lean_object* x_39; lean_dec(x_13); -lean_inc(x_15); -x_17 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalIntros___lambda__1___boxed), 4, 2); -lean_closure_set(x_17, 0, x_11); -lean_closure_set(x_17, 1, x_15); -x_18 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaM___rarg), 4, 2); -lean_closure_set(x_18, 0, x_1); -lean_closure_set(x_18, 1, x_17); -x_19 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaTactic___lambda__1___boxed), 4, 1); -lean_closure_set(x_19, 0, x_16); -x_20 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); -lean_closure_set(x_20, 0, x_18); -lean_closure_set(x_20, 1, x_19); -x_21 = l_Lean_Elab_Tactic_withMVarContext___rarg(x_15, x_20, x_2, x_14); -lean_dec(x_15); -return x_21; -} -else -{ -uint8_t x_22; -lean_dec(x_11); -lean_dec(x_2); -lean_dec(x_1); -x_22 = !lean_is_exclusive(x_12); -if (x_22 == 0) -{ -return x_12; -} -else -{ -lean_object* x_23; lean_object* x_24; lean_object* x_25; -x_23 = lean_ctor_get(x_12, 0); -x_24 = lean_ctor_get(x_12, 1); -lean_inc(x_24); -lean_inc(x_23); -lean_dec(x_12); -x_25 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_25, 0, x_23); -lean_ctor_set(x_25, 1, x_24); -return x_25; -} -} -} -else -{ -lean_object* x_26; -lean_dec(x_8); lean_inc(x_2); lean_inc(x_1); -x_26 = l_Lean_Elab_Tactic_getMainGoal(x_1, x_2, x_3); -if (lean_obj_tag(x_26) == 0) +x_39 = l_Lean_Elab_Tactic_getMainGoal(x_1, x_2, x_3); +if (lean_obj_tag(x_39) == 0) { -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; -x_27 = lean_ctor_get(x_26, 0); -lean_inc(x_27); -x_28 = lean_ctor_get(x_26, 1); -lean_inc(x_28); -lean_dec(x_26); -x_29 = lean_ctor_get(x_27, 0); -lean_inc(x_29); -x_30 = lean_ctor_get(x_27, 1); -lean_inc(x_30); -lean_dec(x_27); -lean_inc(x_29); -x_31 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalIntros___lambda__2___boxed), 3, 1); -lean_closure_set(x_31, 0, x_29); -x_32 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaM___rarg), 4, 2); -lean_closure_set(x_32, 0, x_1); -lean_closure_set(x_32, 1, x_31); -x_33 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaTactic___lambda__1___boxed), 4, 1); -lean_closure_set(x_33, 0, x_30); -x_34 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); -lean_closure_set(x_34, 0, x_32); -lean_closure_set(x_34, 1, x_33); -x_35 = l_Lean_Elab_Tactic_withMVarContext___rarg(x_29, x_34, x_2, x_28); -lean_dec(x_29); -return x_35; +lean_object* x_40; 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; +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_ctor_get(x_40, 0); +lean_inc(x_42); +x_43 = lean_ctor_get(x_40, 1); +lean_inc(x_43); +lean_dec(x_40); +lean_inc(x_42); +x_44 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalIntros___lambda__2___boxed), 3, 1); +lean_closure_set(x_44, 0, x_42); +x_45 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaM___rarg), 4, 2); +lean_closure_set(x_45, 0, x_1); +lean_closure_set(x_45, 1, x_44); +x_46 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaTactic___lambda__1___boxed), 4, 1); +lean_closure_set(x_46, 0, x_43); +x_47 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); +lean_closure_set(x_47, 0, x_45); +lean_closure_set(x_47, 1, x_46); +x_48 = l_Lean_Elab_Tactic_withMVarContext___rarg(x_42, x_47, x_2, x_41); +lean_dec(x_42); +return x_48; } else { -uint8_t x_36; +uint8_t x_49; lean_dec(x_2); lean_dec(x_1); -x_36 = !lean_is_exclusive(x_26); -if (x_36 == 0) +x_49 = !lean_is_exclusive(x_39); +if (x_49 == 0) { -return x_26; -} -else -{ -lean_object* x_37; lean_object* x_38; lean_object* x_39; -x_37 = lean_ctor_get(x_26, 0); -x_38 = lean_ctor_get(x_26, 1); -lean_inc(x_38); -lean_inc(x_37); -lean_dec(x_26); -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_50; lean_object* x_51; lean_object* x_52; +x_50 = lean_ctor_get(x_39, 0); +x_51 = lean_ctor_get(x_39, 1); +lean_inc(x_51); +lean_inc(x_50); +lean_dec(x_39); +x_52 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_52, 0, x_50); +lean_ctor_set(x_52, 1, x_51); +return x_52; +} +} +} +} +block_30: +{ +lean_object* x_15; lean_object* x_16; +lean_dec(x_14); +x_15 = l_Lean_Syntax_getArgs(x_13); +lean_dec(x_13); +lean_inc(x_2); +lean_inc(x_1); +x_16 = l_Lean_Elab_Tactic_getMainGoal(x_1, x_2, x_3); +if (lean_obj_tag(x_16) == 0) +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_17 = lean_ctor_get(x_16, 0); +lean_inc(x_17); +x_18 = lean_ctor_get(x_16, 1); +lean_inc(x_18); +lean_dec(x_16); +x_19 = lean_ctor_get(x_17, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_17, 1); +lean_inc(x_20); +lean_dec(x_17); +lean_inc(x_19); +x_21 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalIntros___lambda__1___boxed), 4, 2); +lean_closure_set(x_21, 0, x_15); +lean_closure_set(x_21, 1, x_19); +x_22 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaM___rarg), 4, 2); +lean_closure_set(x_22, 0, x_1); +lean_closure_set(x_22, 1, x_21); +x_23 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaTactic___lambda__1___boxed), 4, 1); +lean_closure_set(x_23, 0, x_20); +x_24 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); +lean_closure_set(x_24, 0, x_22); +lean_closure_set(x_24, 1, x_23); +x_25 = l_Lean_Elab_Tactic_withMVarContext___rarg(x_19, x_24, x_2, x_18); +lean_dec(x_19); +return x_25; +} +else +{ +uint8_t x_26; +lean_dec(x_15); +lean_dec(x_2); +lean_dec(x_1); +x_26 = !lean_is_exclusive(x_16); +if (x_26 == 0) +{ +return x_16; +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_27 = lean_ctor_get(x_16, 0); +x_28 = lean_ctor_get(x_16, 1); +lean_inc(x_28); +lean_inc(x_27); +lean_dec(x_16); +x_29 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_29, 0, x_27); +lean_ctor_set(x_29, 1, x_28); +return x_29; } } } @@ -14616,33 +14532,10 @@ return x_2; lean_object* l_Lean_Elab_Tactic_evalCase(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_45; uint8_t x_46; -x_45 = l_Lean_Parser_Tactic_case___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Tactic_case___elambda__1___closed__2; lean_inc(x_1); -x_46 = l_Lean_Syntax_isOfKind(x_1, x_45); -if (x_46 == 0) -{ -uint8_t x_47; -x_47 = 0; -x_4 = x_47; -goto block_44; -} -else -{ -lean_object* x_48; lean_object* x_49; lean_object* x_50; uint8_t x_51; -x_48 = l_Lean_Syntax_getArgs(x_1); -x_49 = lean_array_get_size(x_48); -lean_dec(x_48); -x_50 = lean_unsigned_to_nat(3u); -x_51 = lean_nat_dec_eq(x_49, x_50); -lean_dec(x_49); -x_4 = x_51; -goto block_44; -} -block_44: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; @@ -14652,153 +14545,169 @@ return x_6; } else { -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_7 = lean_unsigned_to_nat(1u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); -x_9 = lean_unsigned_to_nat(2u); -x_10 = l_Lean_Syntax_getArg(x_1, x_9); -x_11 = l_Lean_Syntax_getId(x_8); +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(3u); +x_10 = lean_nat_dec_eq(x_8, x_9); lean_dec(x_8); -lean_inc(x_2); -x_12 = l_Lean_Elab_Tactic_getUnsolvedGoals(x_2, x_3); -if (lean_obj_tag(x_12) == 0) +if (x_10 == 0) { -lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; -x_13 = lean_ctor_get(x_12, 0); -lean_inc(x_13); -x_14 = lean_ctor_get(x_12, 1); -lean_inc(x_14); -lean_dec(x_12); -x_15 = l_List_findM_x3f___main___at_Lean_Elab_Tactic_evalCase___spec__1(x_11, x_13, x_2, x_14); -lean_dec(x_11); -x_16 = lean_ctor_get(x_15, 0); -lean_inc(x_16); -if (lean_obj_tag(x_16) == 0) +lean_object* x_11; +lean_dec(x_1); +x_11 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_2, x_3); +return x_11; +} +else { -lean_object* x_17; lean_object* x_18; lean_object* x_19; +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_12 = lean_unsigned_to_nat(1u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); +x_14 = lean_unsigned_to_nat(2u); +x_15 = l_Lean_Syntax_getArg(x_1, x_14); +x_16 = l_Lean_Syntax_getId(x_13); lean_dec(x_13); -lean_dec(x_10); -x_17 = lean_ctor_get(x_15, 1); -lean_inc(x_17); -lean_dec(x_15); -x_18 = l_Lean_Elab_Tactic_evalCase___closed__3; -x_19 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_18, x_2, x_17); -return x_19; -} -else +lean_inc(x_2); +x_17 = l_Lean_Elab_Tactic_getUnsolvedGoals(x_2, x_3); +if (lean_obj_tag(x_17) == 0) { -lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; -x_20 = lean_ctor_get(x_15, 1); -lean_inc(x_20); -lean_dec(x_15); -x_21 = lean_ctor_get(x_16, 0); -lean_inc(x_21); +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_18 = lean_ctor_get(x_17, 0); +lean_inc(x_18); +x_19 = lean_ctor_get(x_17, 1); +lean_inc(x_19); +lean_dec(x_17); +x_20 = l_List_findM_x3f___main___at_Lean_Elab_Tactic_evalCase___spec__1(x_16, x_18, x_2, x_19); lean_dec(x_16); -x_22 = l_List_erase___main___at_Lean_Elab_Tactic_evalCase___spec__2(x_13, x_21); -x_23 = lean_box(0); -x_24 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_24, 0, x_21); -lean_ctor_set(x_24, 1, x_23); -x_25 = l_Lean_Elab_Tactic_setGoals(x_24, x_2, x_20); -x_26 = lean_ctor_get(x_25, 1); +x_21 = lean_ctor_get(x_20, 0); +lean_inc(x_21); +if (lean_obj_tag(x_21) == 0) +{ +lean_object* x_22; lean_object* x_23; lean_object* x_24; +lean_dec(x_18); +lean_dec(x_15); +x_22 = lean_ctor_get(x_20, 1); +lean_inc(x_22); +lean_dec(x_20); +x_23 = l_Lean_Elab_Tactic_evalCase___closed__3; +x_24 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_23, x_2, x_22); +return x_24; +} +else +{ +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; +x_25 = lean_ctor_get(x_20, 1); +lean_inc(x_25); +lean_dec(x_20); +x_26 = lean_ctor_get(x_21, 0); lean_inc(x_26); -lean_dec(x_25); +lean_dec(x_21); +x_27 = l_List_erase___main___at_Lean_Elab_Tactic_evalCase___spec__2(x_18, x_26); +x_28 = lean_box(0); +x_29 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_29, 0, x_26); +lean_ctor_set(x_29, 1, x_28); +x_30 = l_Lean_Elab_Tactic_setGoals(x_29, x_2, x_25); +x_31 = lean_ctor_get(x_30, 1); +lean_inc(x_31); +lean_dec(x_30); lean_inc(x_2); -x_27 = l_Lean_Elab_Tactic_evalTactic___main(x_10, x_2, x_26); -if (lean_obj_tag(x_27) == 0) +x_32 = l_Lean_Elab_Tactic_evalTactic___main(x_15, x_2, x_31); +if (lean_obj_tag(x_32) == 0) { -lean_object* x_28; lean_object* x_29; -x_28 = lean_ctor_get(x_27, 1); -lean_inc(x_28); -lean_dec(x_27); -lean_inc(x_2); -x_29 = l_Lean_Elab_Tactic_done(x_1, x_2, x_28); -if (lean_obj_tag(x_29) == 0) -{ -lean_object* x_30; lean_object* x_31; -x_30 = lean_ctor_get(x_29, 1); -lean_inc(x_30); -lean_dec(x_29); -x_31 = l_Lean_Elab_Tactic_setGoals(x_22, x_2, x_30); -lean_dec(x_2); -return x_31; -} -else -{ -uint8_t x_32; -lean_dec(x_22); -lean_dec(x_2); -x_32 = !lean_is_exclusive(x_29); -if (x_32 == 0) -{ -return x_29; -} -else -{ -lean_object* x_33; lean_object* x_34; lean_object* x_35; -x_33 = lean_ctor_get(x_29, 0); -x_34 = lean_ctor_get(x_29, 1); -lean_inc(x_34); +lean_object* x_33; lean_object* x_34; +x_33 = lean_ctor_get(x_32, 1); lean_inc(x_33); -lean_dec(x_29); -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 +lean_dec(x_32); +lean_inc(x_2); +x_34 = l_Lean_Elab_Tactic_done(x_1, x_2, x_33); +if (lean_obj_tag(x_34) == 0) { -uint8_t x_36; -lean_dec(x_22); +lean_object* x_35; lean_object* x_36; +x_35 = lean_ctor_get(x_34, 1); +lean_inc(x_35); +lean_dec(x_34); +x_36 = l_Lean_Elab_Tactic_setGoals(x_27, x_2, x_35); lean_dec(x_2); -lean_dec(x_1); -x_36 = !lean_is_exclusive(x_27); -if (x_36 == 0) -{ -return x_27; +return x_36; } else { -lean_object* x_37; lean_object* x_38; lean_object* x_39; -x_37 = lean_ctor_get(x_27, 0); -x_38 = lean_ctor_get(x_27, 1); -lean_inc(x_38); -lean_inc(x_37); +uint8_t x_37; lean_dec(x_27); -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; +lean_dec(x_2); +x_37 = !lean_is_exclusive(x_34); +if (x_37 == 0) +{ +return x_34; } +else +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_38 = lean_ctor_get(x_34, 0); +x_39 = lean_ctor_get(x_34, 1); +lean_inc(x_39); +lean_inc(x_38); +lean_dec(x_34); +x_40 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_40, 0, x_38); +lean_ctor_set(x_40, 1, x_39); +return x_40; } } } else { -uint8_t x_40; -lean_dec(x_11); -lean_dec(x_10); +uint8_t x_41; +lean_dec(x_27); lean_dec(x_2); lean_dec(x_1); -x_40 = !lean_is_exclusive(x_12); -if (x_40 == 0) +x_41 = !lean_is_exclusive(x_32); +if (x_41 == 0) { -return x_12; +return x_32; } else { -lean_object* x_41; lean_object* x_42; lean_object* x_43; -x_41 = lean_ctor_get(x_12, 0); -x_42 = lean_ctor_get(x_12, 1); +lean_object* x_42; lean_object* x_43; lean_object* x_44; +x_42 = lean_ctor_get(x_32, 0); +x_43 = lean_ctor_get(x_32, 1); +lean_inc(x_43); lean_inc(x_42); -lean_inc(x_41); -lean_dec(x_12); -x_43 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_43, 0, x_41); -lean_ctor_set(x_43, 1, x_42); -return x_43; +lean_dec(x_32); +x_44 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_44, 0, x_42); +lean_ctor_set(x_44, 1, x_43); +return x_44; +} +} +} +} +else +{ +uint8_t x_45; +lean_dec(x_16); +lean_dec(x_15); +lean_dec(x_2); +lean_dec(x_1); +x_45 = !lean_is_exclusive(x_17); +if (x_45 == 0) +{ +return x_17; +} +else +{ +lean_object* x_46; lean_object* x_47; lean_object* x_48; +x_46 = lean_ctor_get(x_17, 0); +x_47 = lean_ctor_get(x_17, 1); +lean_inc(x_47); +lean_inc(x_46); +lean_dec(x_17); +x_48 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_48, 0, x_46); +lean_ctor_set(x_48, 1, x_47); +return x_48; } } } @@ -14871,91 +14780,55 @@ lean_inc(x_1); x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { -uint8_t x_6; -x_6 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_6 == 0) -{ -lean_object* x_7; +lean_object* x_6; lean_dec(x_1); -x_7 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_2, x_3); -return x_7; +x_6 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_2, x_3); +return x_6; } else { -lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; -x_8 = lean_unsigned_to_nat(0u); -x_9 = l_Lean_Syntax_getArg(x_1, x_8); -x_10 = lean_unsigned_to_nat(2u); -x_11 = l_Lean_Syntax_getArg(x_1, x_10); +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(3u); +x_10 = lean_nat_dec_eq(x_8, x_9); +lean_dec(x_8); +if (x_10 == 0) +{ +lean_object* x_11; lean_dec(x_1); -x_12 = l_Lean_Elab_Tactic_save(x_3); +x_11 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_2, x_3); +return x_11; +} +else +{ +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_12 = lean_unsigned_to_nat(0u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); +x_14 = lean_unsigned_to_nat(2u); +x_15 = l_Lean_Syntax_getArg(x_1, x_14); +lean_dec(x_1); +x_16 = l_Lean_Elab_Tactic_save(x_3); lean_inc(x_2); -x_13 = l_Lean_Elab_Tactic_evalTactic___main(x_9, x_2, x_3); -if (lean_obj_tag(x_13) == 0) +x_17 = l_Lean_Elab_Tactic_evalTactic___main(x_13, x_2, x_3); +if (lean_obj_tag(x_17) == 0) { -lean_dec(x_12); -lean_dec(x_11); +lean_dec(x_16); +lean_dec(x_15); lean_dec(x_2); -return x_13; +return x_17; } else { -lean_object* x_14; lean_object* x_15; lean_object* x_16; -x_14 = lean_ctor_get(x_13, 1); -lean_inc(x_14); -lean_dec(x_13); -x_15 = l_Lean_Elab_Tactic_restore(x_14, x_12); -lean_dec(x_12); -x_16 = l_Lean_Elab_Tactic_evalTactic___main(x_11, x_2, x_15); -return x_16; -} -} -} -else -{ -lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; uint8_t x_21; -x_17 = l_Lean_Syntax_getArgs(x_1); -x_18 = lean_array_get_size(x_17); +lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_18 = lean_ctor_get(x_17, 1); +lean_inc(x_18); lean_dec(x_17); -x_19 = lean_unsigned_to_nat(3u); -x_20 = lean_nat_dec_eq(x_18, x_19); -lean_dec(x_18); -x_21 = l_coeDecidableEq(x_20); -if (x_21 == 0) -{ -lean_object* x_22; -lean_dec(x_1); -x_22 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_2, x_3); -return x_22; -} -else -{ -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_23 = lean_unsigned_to_nat(0u); -x_24 = l_Lean_Syntax_getArg(x_1, x_23); -x_25 = lean_unsigned_to_nat(2u); -x_26 = l_Lean_Syntax_getArg(x_1, x_25); -lean_dec(x_1); -x_27 = l_Lean_Elab_Tactic_save(x_3); -lean_inc(x_2); -x_28 = l_Lean_Elab_Tactic_evalTactic___main(x_24, x_2, x_3); -if (lean_obj_tag(x_28) == 0) -{ -lean_dec(x_27); -lean_dec(x_26); -lean_dec(x_2); -return x_28; -} -else -{ -lean_object* x_29; lean_object* x_30; lean_object* x_31; -x_29 = lean_ctor_get(x_28, 1); -lean_inc(x_29); -lean_dec(x_28); -x_30 = l_Lean_Elab_Tactic_restore(x_29, x_27); -lean_dec(x_27); -x_31 = l_Lean_Elab_Tactic_evalTactic___main(x_26, x_2, x_30); -return x_31; +x_19 = l_Lean_Elab_Tactic_restore(x_18, x_16); +lean_dec(x_16); +x_20 = l_Lean_Elab_Tactic_evalTactic___main(x_15, x_2, x_19); +return x_20; } } } diff --git a/stage0/stdlib/Init/Lean/Elab/Tactic/ElabTerm.c b/stage0/stdlib/Init/Lean/Elab/Tactic/ElabTerm.c index 1a29a2eaca..064f98dcf0 100644 --- a/stage0/stdlib/Init/Lean/Elab/Tactic/ElabTerm.c +++ b/stage0/stdlib/Init/Lean/Elab/Tactic/ElabTerm.c @@ -38,7 +38,6 @@ lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalApply(lean_object*); lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_synthesizeSyntheticMVars___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getMainGoal(lean_object*, lean_object*, lean_object*); -uint8_t l_coeDecidableEq(uint8_t); lean_object* l_Lean_Elab_Tactic_evalApply___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalExact___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalExact___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -437,33 +436,10 @@ return x_30; lean_object* l_Lean_Elab_Tactic_evalExact(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_29; uint8_t x_30; -x_29 = l_Lean_Parser_Tactic_exact___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Tactic_exact___elambda__1___closed__2; lean_inc(x_1); -x_30 = l_Lean_Syntax_isOfKind(x_1, x_29); -if (x_30 == 0) -{ -uint8_t x_31; -x_31 = 0; -x_4 = x_31; -goto block_28; -} -else -{ -lean_object* x_32; lean_object* x_33; lean_object* x_34; uint8_t x_35; -x_32 = l_Lean_Syntax_getArgs(x_1); -x_33 = lean_array_get_size(x_32); -lean_dec(x_32); -x_34 = lean_unsigned_to_nat(2u); -x_35 = lean_nat_dec_eq(x_33, x_34); -lean_dec(x_33); -x_4 = x_35; -goto block_28; -} -block_28: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; @@ -473,97 +449,113 @@ return x_6; } else { -lean_object* x_7; lean_object* x_8; lean_object* x_9; -x_7 = lean_unsigned_to_nat(1u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(2u); +x_10 = lean_nat_dec_eq(x_8, x_9); +lean_dec(x_8); +if (x_10 == 0) +{ +lean_object* x_11; +lean_dec(x_1); +x_11 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_2, x_3); +return x_11; +} +else +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_12 = lean_unsigned_to_nat(1u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); lean_inc(x_2); lean_inc(x_1); -x_9 = l_Lean_Elab_Tactic_getMainGoal(x_1, x_2, x_3); -if (lean_obj_tag(x_9) == 0) +x_14 = l_Lean_Elab_Tactic_getMainGoal(x_1, x_2, x_3); +if (lean_obj_tag(x_14) == 0) { -lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; -x_10 = lean_ctor_get(x_9, 0); -lean_inc(x_10); -x_11 = lean_ctor_get(x_9, 1); -lean_inc(x_11); -lean_dec(x_9); -x_12 = lean_ctor_get(x_10, 0); -lean_inc(x_12); -x_13 = lean_ctor_get(x_10, 1); -lean_inc(x_13); -lean_dec(x_10); -lean_inc(x_12); -x_14 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_getMVarDecl___boxed), 3, 1); -lean_closure_set(x_14, 0, x_12); -lean_inc(x_12); -x_15 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalExact___lambda__1___boxed), 6, 3); -lean_closure_set(x_15, 0, x_8); -lean_closure_set(x_15, 1, x_1); -lean_closure_set(x_15, 2, x_12); -x_16 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); -lean_closure_set(x_16, 0, x_14); -lean_closure_set(x_16, 1, x_15); -lean_inc(x_2); -x_17 = l_Lean_Elab_Tactic_withMVarContext___rarg(x_12, x_16, x_2, x_11); -lean_dec(x_12); -if (lean_obj_tag(x_17) == 0) -{ -lean_object* x_18; lean_object* x_19; -x_18 = lean_ctor_get(x_17, 1); +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +lean_dec(x_14); +x_17 = lean_ctor_get(x_15, 0); +lean_inc(x_17); +x_18 = lean_ctor_get(x_15, 1); lean_inc(x_18); +lean_dec(x_15); +lean_inc(x_17); +x_19 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_getMVarDecl___boxed), 3, 1); +lean_closure_set(x_19, 0, x_17); +lean_inc(x_17); +x_20 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalExact___lambda__1___boxed), 6, 3); +lean_closure_set(x_20, 0, x_13); +lean_closure_set(x_20, 1, x_1); +lean_closure_set(x_20, 2, x_17); +x_21 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); +lean_closure_set(x_21, 0, x_19); +lean_closure_set(x_21, 1, x_20); +lean_inc(x_2); +x_22 = l_Lean_Elab_Tactic_withMVarContext___rarg(x_17, x_21, x_2, x_16); lean_dec(x_17); -x_19 = l_Lean_Elab_Tactic_setGoals(x_13, x_2, x_18); +if (lean_obj_tag(x_22) == 0) +{ +lean_object* x_23; lean_object* x_24; +x_23 = lean_ctor_get(x_22, 1); +lean_inc(x_23); +lean_dec(x_22); +x_24 = l_Lean_Elab_Tactic_setGoals(x_18, x_2, x_23); lean_dec(x_2); -return x_19; +return x_24; } else { -uint8_t x_20; +uint8_t x_25; +lean_dec(x_18); +lean_dec(x_2); +x_25 = !lean_is_exclusive(x_22); +if (x_25 == 0) +{ +return x_22; +} +else +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_26 = lean_ctor_get(x_22, 0); +x_27 = lean_ctor_get(x_22, 1); +lean_inc(x_27); +lean_inc(x_26); +lean_dec(x_22); +x_28 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_28, 0, x_26); +lean_ctor_set(x_28, 1, x_27); +return x_28; +} +} +} +else +{ +uint8_t x_29; lean_dec(x_13); lean_dec(x_2); -x_20 = !lean_is_exclusive(x_17); -if (x_20 == 0) -{ -return x_17; -} -else -{ -lean_object* x_21; lean_object* x_22; lean_object* x_23; -x_21 = lean_ctor_get(x_17, 0); -x_22 = lean_ctor_get(x_17, 1); -lean_inc(x_22); -lean_inc(x_21); -lean_dec(x_17); -x_23 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_23, 0, x_21); -lean_ctor_set(x_23, 1, x_22); -return x_23; -} -} -} -else -{ -uint8_t x_24; -lean_dec(x_8); -lean_dec(x_2); lean_dec(x_1); -x_24 = !lean_is_exclusive(x_9); -if (x_24 == 0) +x_29 = !lean_is_exclusive(x_14); +if (x_29 == 0) { -return x_9; +return x_14; } else { -lean_object* x_25; lean_object* x_26; lean_object* x_27; -x_25 = lean_ctor_get(x_9, 0); -x_26 = lean_ctor_get(x_9, 1); -lean_inc(x_26); -lean_inc(x_25); -lean_dec(x_9); -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; +lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_30 = lean_ctor_get(x_14, 0); +x_31 = lean_ctor_get(x_14, 1); +lean_inc(x_31); +lean_inc(x_30); +lean_dec(x_14); +x_32 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_32, 0, x_30); +lean_ctor_set(x_32, 1, x_31); +return x_32; } } } @@ -815,33 +807,10 @@ return x_43; lean_object* l_Lean_Elab_Tactic_evalRefine(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_31; uint8_t x_32; -x_31 = l_Lean_Parser_Tactic_refine___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Tactic_refine___elambda__1___closed__2; lean_inc(x_1); -x_32 = l_Lean_Syntax_isOfKind(x_1, x_31); -if (x_32 == 0) -{ -uint8_t x_33; -x_33 = 0; -x_4 = x_33; -goto block_30; -} -else -{ -lean_object* x_34; lean_object* x_35; lean_object* x_36; uint8_t x_37; -x_34 = l_Lean_Syntax_getArgs(x_1); -x_35 = lean_array_get_size(x_34); -lean_dec(x_34); -x_36 = lean_unsigned_to_nat(2u); -x_37 = lean_nat_dec_eq(x_35, x_36); -lean_dec(x_35); -x_4 = x_37; -goto block_30; -} -block_30: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; @@ -851,100 +820,116 @@ return x_6; } else { -lean_object* x_7; lean_object* x_8; lean_object* x_9; -x_7 = lean_unsigned_to_nat(1u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(2u); +x_10 = lean_nat_dec_eq(x_8, x_9); +lean_dec(x_8); +if (x_10 == 0) +{ +lean_object* x_11; +lean_dec(x_1); +x_11 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_2, x_3); +return x_11; +} +else +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_12 = lean_unsigned_to_nat(1u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); lean_inc(x_2); lean_inc(x_1); -x_9 = l_Lean_Elab_Tactic_getMainGoal(x_1, x_2, x_3); -if (lean_obj_tag(x_9) == 0) +x_14 = l_Lean_Elab_Tactic_getMainGoal(x_1, x_2, x_3); +if (lean_obj_tag(x_14) == 0) { -lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; -x_10 = lean_ctor_get(x_9, 0); -lean_inc(x_10); -x_11 = lean_ctor_get(x_9, 1); -lean_inc(x_11); -lean_dec(x_9); -x_12 = lean_ctor_get(x_10, 0); -lean_inc(x_12); -x_13 = lean_ctor_get(x_10, 1); -lean_inc(x_13); -lean_dec(x_10); -lean_inc(x_12); -x_14 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_getMVarDecl___boxed), 3, 1); -lean_closure_set(x_14, 0, x_12); -lean_inc(x_12); -x_15 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalRefine___lambda__1), 6, 3); -lean_closure_set(x_15, 0, x_8); -lean_closure_set(x_15, 1, x_1); -lean_closure_set(x_15, 2, x_12); -x_16 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); -lean_closure_set(x_16, 0, x_14); -lean_closure_set(x_16, 1, x_15); -lean_inc(x_2); -x_17 = l_Lean_Elab_Tactic_withMVarContext___rarg(x_12, x_16, x_2, x_11); -lean_dec(x_12); -if (lean_obj_tag(x_17) == 0) -{ -lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; -x_18 = lean_ctor_get(x_17, 0); +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +lean_dec(x_14); +x_17 = lean_ctor_get(x_15, 0); +lean_inc(x_17); +x_18 = lean_ctor_get(x_15, 1); lean_inc(x_18); -x_19 = lean_ctor_get(x_17, 1); -lean_inc(x_19); +lean_dec(x_15); +lean_inc(x_17); +x_19 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_getMVarDecl___boxed), 3, 1); +lean_closure_set(x_19, 0, x_17); +lean_inc(x_17); +x_20 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalRefine___lambda__1), 6, 3); +lean_closure_set(x_20, 0, x_13); +lean_closure_set(x_20, 1, x_1); +lean_closure_set(x_20, 2, x_17); +x_21 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); +lean_closure_set(x_21, 0, x_19); +lean_closure_set(x_21, 1, x_20); +lean_inc(x_2); +x_22 = l_Lean_Elab_Tactic_withMVarContext___rarg(x_17, x_21, x_2, x_16); lean_dec(x_17); -x_20 = l_List_append___rarg(x_18, x_13); -x_21 = l_Lean_Elab_Tactic_setGoals(x_20, x_2, x_19); +if (lean_obj_tag(x_22) == 0) +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_23 = lean_ctor_get(x_22, 0); +lean_inc(x_23); +x_24 = lean_ctor_get(x_22, 1); +lean_inc(x_24); +lean_dec(x_22); +x_25 = l_List_append___rarg(x_23, x_18); +x_26 = l_Lean_Elab_Tactic_setGoals(x_25, x_2, x_24); lean_dec(x_2); -return x_21; +return x_26; } else { -uint8_t x_22; +uint8_t x_27; +lean_dec(x_18); +lean_dec(x_2); +x_27 = !lean_is_exclusive(x_22); +if (x_27 == 0) +{ +return x_22; +} +else +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_28 = lean_ctor_get(x_22, 0); +x_29 = lean_ctor_get(x_22, 1); +lean_inc(x_29); +lean_inc(x_28); +lean_dec(x_22); +x_30 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_30, 0, x_28); +lean_ctor_set(x_30, 1, x_29); +return x_30; +} +} +} +else +{ +uint8_t x_31; lean_dec(x_13); lean_dec(x_2); -x_22 = !lean_is_exclusive(x_17); -if (x_22 == 0) -{ -return x_17; -} -else -{ -lean_object* x_23; lean_object* x_24; lean_object* x_25; -x_23 = lean_ctor_get(x_17, 0); -x_24 = lean_ctor_get(x_17, 1); -lean_inc(x_24); -lean_inc(x_23); -lean_dec(x_17); -x_25 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_25, 0, x_23); -lean_ctor_set(x_25, 1, x_24); -return x_25; -} -} -} -else -{ -uint8_t x_26; -lean_dec(x_8); -lean_dec(x_2); lean_dec(x_1); -x_26 = !lean_is_exclusive(x_9); -if (x_26 == 0) +x_31 = !lean_is_exclusive(x_14); +if (x_31 == 0) { -return x_9; +return x_14; } else { -lean_object* x_27; lean_object* x_28; lean_object* x_29; -x_27 = lean_ctor_get(x_9, 0); -x_28 = lean_ctor_get(x_9, 1); -lean_inc(x_28); -lean_inc(x_27); -lean_dec(x_9); -x_29 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_29, 0, x_27); -lean_ctor_set(x_29, 1, x_28); -return x_29; +lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_32 = lean_ctor_get(x_14, 0); +x_33 = lean_ctor_get(x_14, 1); +lean_inc(x_33); +lean_inc(x_32); +lean_dec(x_14); +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_32); +lean_ctor_set(x_34, 1, x_33); +return x_34; } } } @@ -1132,33 +1117,10 @@ return x_33; lean_object* l_Lean_Elab_Tactic_evalApply(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_31; uint8_t x_32; -x_31 = l_Lean_Parser_Tactic_apply___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Tactic_apply___elambda__1___closed__2; lean_inc(x_1); -x_32 = l_Lean_Syntax_isOfKind(x_1, x_31); -if (x_32 == 0) -{ -uint8_t x_33; -x_33 = 0; -x_4 = x_33; -goto block_30; -} -else -{ -lean_object* x_34; lean_object* x_35; lean_object* x_36; uint8_t x_37; -x_34 = l_Lean_Syntax_getArgs(x_1); -x_35 = lean_array_get_size(x_34); -lean_dec(x_34); -x_36 = lean_unsigned_to_nat(2u); -x_37 = lean_nat_dec_eq(x_35, x_36); -lean_dec(x_35); -x_4 = x_37; -goto block_30; -} -block_30: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; @@ -1168,100 +1130,116 @@ return x_6; } else { -lean_object* x_7; lean_object* x_8; lean_object* x_9; -x_7 = lean_unsigned_to_nat(1u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(2u); +x_10 = lean_nat_dec_eq(x_8, x_9); +lean_dec(x_8); +if (x_10 == 0) +{ +lean_object* x_11; +lean_dec(x_1); +x_11 = l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(x_2, x_3); +return x_11; +} +else +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_12 = lean_unsigned_to_nat(1u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); lean_inc(x_2); lean_inc(x_1); -x_9 = l_Lean_Elab_Tactic_getMainGoal(x_1, x_2, x_3); -if (lean_obj_tag(x_9) == 0) +x_14 = l_Lean_Elab_Tactic_getMainGoal(x_1, x_2, x_3); +if (lean_obj_tag(x_14) == 0) { -lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; -x_10 = lean_ctor_get(x_9, 0); -lean_inc(x_10); -x_11 = lean_ctor_get(x_9, 1); -lean_inc(x_11); -lean_dec(x_9); -x_12 = lean_ctor_get(x_10, 0); -lean_inc(x_12); -x_13 = lean_ctor_get(x_10, 1); -lean_inc(x_13); -lean_dec(x_10); -lean_inc(x_12); -x_14 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_getMVarDecl___boxed), 3, 1); -lean_closure_set(x_14, 0, x_12); -lean_inc(x_12); -x_15 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalApply___lambda__1___boxed), 6, 3); -lean_closure_set(x_15, 0, x_8); -lean_closure_set(x_15, 1, x_12); -lean_closure_set(x_15, 2, x_1); -x_16 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); -lean_closure_set(x_16, 0, x_14); -lean_closure_set(x_16, 1, x_15); -lean_inc(x_2); -x_17 = l_Lean_Elab_Tactic_withMVarContext___rarg(x_12, x_16, x_2, x_11); -lean_dec(x_12); -if (lean_obj_tag(x_17) == 0) -{ -lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; -x_18 = lean_ctor_get(x_17, 0); +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +lean_dec(x_14); +x_17 = lean_ctor_get(x_15, 0); +lean_inc(x_17); +x_18 = lean_ctor_get(x_15, 1); lean_inc(x_18); -x_19 = lean_ctor_get(x_17, 1); -lean_inc(x_19); +lean_dec(x_15); +lean_inc(x_17); +x_19 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_getMVarDecl___boxed), 3, 1); +lean_closure_set(x_19, 0, x_17); +lean_inc(x_17); +x_20 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalApply___lambda__1___boxed), 6, 3); +lean_closure_set(x_20, 0, x_13); +lean_closure_set(x_20, 1, x_17); +lean_closure_set(x_20, 2, x_1); +x_21 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Elab_Tactic_monadLog___spec__2___rarg), 4, 2); +lean_closure_set(x_21, 0, x_19); +lean_closure_set(x_21, 1, x_20); +lean_inc(x_2); +x_22 = l_Lean_Elab_Tactic_withMVarContext___rarg(x_17, x_21, x_2, x_16); lean_dec(x_17); -x_20 = l_List_append___rarg(x_18, x_13); -x_21 = l_Lean_Elab_Tactic_setGoals(x_20, x_2, x_19); +if (lean_obj_tag(x_22) == 0) +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_23 = lean_ctor_get(x_22, 0); +lean_inc(x_23); +x_24 = lean_ctor_get(x_22, 1); +lean_inc(x_24); +lean_dec(x_22); +x_25 = l_List_append___rarg(x_23, x_18); +x_26 = l_Lean_Elab_Tactic_setGoals(x_25, x_2, x_24); lean_dec(x_2); -return x_21; +return x_26; } else { -uint8_t x_22; +uint8_t x_27; +lean_dec(x_18); +lean_dec(x_2); +x_27 = !lean_is_exclusive(x_22); +if (x_27 == 0) +{ +return x_22; +} +else +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_28 = lean_ctor_get(x_22, 0); +x_29 = lean_ctor_get(x_22, 1); +lean_inc(x_29); +lean_inc(x_28); +lean_dec(x_22); +x_30 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_30, 0, x_28); +lean_ctor_set(x_30, 1, x_29); +return x_30; +} +} +} +else +{ +uint8_t x_31; lean_dec(x_13); lean_dec(x_2); -x_22 = !lean_is_exclusive(x_17); -if (x_22 == 0) -{ -return x_17; -} -else -{ -lean_object* x_23; lean_object* x_24; lean_object* x_25; -x_23 = lean_ctor_get(x_17, 0); -x_24 = lean_ctor_get(x_17, 1); -lean_inc(x_24); -lean_inc(x_23); -lean_dec(x_17); -x_25 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_25, 0, x_23); -lean_ctor_set(x_25, 1, x_24); -return x_25; -} -} -} -else -{ -uint8_t x_26; -lean_dec(x_8); -lean_dec(x_2); lean_dec(x_1); -x_26 = !lean_is_exclusive(x_9); -if (x_26 == 0) +x_31 = !lean_is_exclusive(x_14); +if (x_31 == 0) { -return x_9; +return x_14; } else { -lean_object* x_27; lean_object* x_28; lean_object* x_29; -x_27 = lean_ctor_get(x_9, 0); -x_28 = lean_ctor_get(x_9, 1); -lean_inc(x_28); -lean_inc(x_27); -lean_dec(x_9); -x_29 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_29, 0, x_27); -lean_ctor_set(x_29, 1, x_28); -return x_29; +lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_32 = lean_ctor_get(x_14, 0); +x_33 = lean_ctor_get(x_14, 1); +lean_inc(x_33); +lean_inc(x_32); +lean_dec(x_14); +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_32); +lean_ctor_set(x_34, 1, x_33); +return x_34; } } } diff --git a/stage0/stdlib/Init/Lean/Elab/Term.c b/stage0/stdlib/Init/Lean/Elab/Term.c index 1102c783f1..d4db93a8ee 100644 --- a/stage0/stdlib/Init/Lean/Elab/Term.c +++ b/stage0/stdlib/Init/Lean/Elab/Term.c @@ -30,7 +30,6 @@ lean_object* l_Lean_Elab_Term_monadQuotation; lean_object* l_Lean_Elab_Term_elabRawNumLit___closed__1; lean_object* l_Lean_extractMacroScopes(lean_object*); lean_object* l_Lean_Elab_Term_synthesizeInstMVarCore___closed__8; -uint8_t l___private_Init_Lean_Elab_Term_4__isCDot___closed__2; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabNum(lean_object*); uint8_t l_Lean_MessageData_hasSyntheticSorry___main(lean_object*); lean_object* l_Lean_Elab_Term_elabArrayLit___closed__1; @@ -101,7 +100,6 @@ lean_object* l___private_Init_Lean_Elab_Term_9__mkPairsAux___main(lean_object*, lean_object* l___private_Init_Lean_Elab_Term_6__exceptionToSorry(lean_object*, lean_object*, lean_object*, 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; -uint8_t l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; 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; @@ -428,7 +426,6 @@ lean_object* l_Array_anyRangeMAux___main___at_Lean_Elab_Term_expandCDot_x3f___sp lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabTypeStx___closed__3; lean_object* l_Lean_Elab_Term_elabTermAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabLevel___boxed(lean_object*, lean_object*, lean_object*); -uint8_t l_coeDecidableEq(uint8_t); lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabSort(lean_object*); uint8_t l_PersistentHashMap_containsAux___main___at_Lean_Elab_Term_addBuiltinTermElab___spec__5(lean_object*, size_t, lean_object*); lean_object* l___private_Init_Lean_Elab_Term_15__regTraceClasses(lean_object*); @@ -9516,34 +9513,6 @@ lean_dec(x_1); return x_2; } } -uint8_t _init_l___private_Init_Lean_Elab_Term_4__isCDot___closed__1() { -_start: -{ -uint8_t x_1; uint8_t x_2; -x_1 = 0; -x_2 = l_coeDecidableEq(x_1); -return x_2; -} -} -uint8_t _init_l___private_Init_Lean_Elab_Term_4__isCDot___closed__2() { -_start: -{ -uint8_t x_1; -x_1 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_1 == 0) -{ -uint8_t x_2; -x_2 = 0; -return x_2; -} -else -{ -uint8_t x_3; -x_3 = 1; -return x_3; -} -} -} uint8_t l___private_Init_Lean_Elab_Term_4__isCDot(lean_object* x_1) { _start: { @@ -9555,12 +9524,12 @@ if (x_3 == 0) { uint8_t x_4; lean_dec(x_1); -x_4 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__2; +x_4 = 0; return x_4; } else { -lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; uint8_t x_9; +lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; x_5 = l_Lean_Syntax_getArgs(x_1); lean_dec(x_1); x_6 = lean_array_get_size(x_5); @@ -9568,18 +9537,17 @@ lean_dec(x_5); x_7 = lean_unsigned_to_nat(1u); x_8 = lean_nat_dec_eq(x_6, x_7); lean_dec(x_6); -x_9 = l_coeDecidableEq(x_8); -if (x_9 == 0) +if (x_8 == 0) { -uint8_t x_10; -x_10 = 0; -return x_10; +uint8_t x_9; +x_9 = 0; +return x_9; } else { -uint8_t x_11; -x_11 = 1; -return x_11; +uint8_t x_10; +x_10 = 1; +return x_10; } } } @@ -9648,447 +9616,306 @@ x_6 = l_Lean_Syntax_isOfKind(x_1, x_5); x_7 = !lean_is_exclusive(x_4); if (x_7 == 0) { -lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; +lean_object* x_8; lean_object* x_9; lean_object* x_10; x_8 = lean_ctor_get(x_4, 5); x_9 = lean_unsigned_to_nat(1u); x_10 = lean_nat_add(x_8, x_9); lean_ctor_set(x_4, 5, x_10); -x_11 = !lean_is_exclusive(x_3); -if (x_11 == 0) -{ -lean_object* x_12; lean_object* x_13; lean_object* x_14; -x_12 = lean_ctor_get(x_3, 9); -lean_dec(x_12); -lean_ctor_set(x_3, 9, x_8); if (x_6 == 0) { -uint8_t x_72; -x_72 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_72 == 0) -{ -lean_object* x_73; lean_object* x_74; +lean_object* x_11; lean_object* x_12; +lean_dec(x_8); lean_dec(x_3); -x_73 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_73, 0, x_1); -lean_ctor_set(x_73, 1, x_2); -x_74 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_74, 0, x_73); -lean_ctor_set(x_74, 1, x_4); -return x_74; +x_11 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_11, 0, x_1); +lean_ctor_set(x_11, 1, x_2); +x_12 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_12, 0, x_11); +lean_ctor_set(x_12, 1, x_4); +return x_12; } else { -lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; +uint8_t x_13; +x_13 = !lean_is_exclusive(x_3); +if (x_13 == 0) +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; uint8_t x_17; +x_14 = lean_ctor_get(x_3, 9); +lean_dec(x_14); +lean_ctor_set(x_3, 9, x_8); +x_15 = l_Lean_Syntax_getArgs(x_1); +x_16 = lean_array_get_size(x_15); +lean_dec(x_15); +x_17 = lean_nat_dec_eq(x_16, x_9); +lean_dec(x_16); +if (x_17 == 0) +{ +lean_object* x_18; lean_object* x_19; +lean_dec(x_3); +x_18 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_18, 0, x_1); +lean_ctor_set(x_18, 1, x_2); +x_19 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_4); +return x_19; +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; uint8_t x_24; lean_dec(x_1); -x_75 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4); +x_20 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4); lean_dec(x_3); -x_76 = lean_ctor_get(x_75, 0); -lean_inc(x_76); -x_77 = lean_ctor_get(x_75, 1); -lean_inc(x_77); -lean_dec(x_75); -x_78 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_78, 0, x_76); -lean_ctor_set(x_78, 1, x_2); -x_13 = x_78; -x_14 = x_77; -goto block_71; -} +x_21 = lean_ctor_get(x_20, 0); +lean_inc(x_21); +x_22 = lean_ctor_get(x_20, 1); +lean_inc(x_22); +lean_dec(x_20); +x_23 = l_Lean_Elab_Term_getMainModule___rarg(x_22); +x_24 = !lean_is_exclusive(x_23); +if (x_24 == 0) +{ +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; +x_25 = lean_ctor_get(x_23, 0); +x_26 = lean_box(0); +x_27 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__3; +x_28 = l_Lean_addMacroScope(x_25, x_27, x_21); +x_29 = lean_box(0); +x_30 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__2; +x_31 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_31, 0, x_26); +lean_ctor_set(x_31, 1, x_30); +lean_ctor_set(x_31, 2, x_28); +lean_ctor_set(x_31, 3, x_29); +x_32 = l_Array_empty___closed__1; +x_33 = lean_array_push(x_32, x_31); +x_34 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_35 = lean_array_push(x_33, x_34); +x_36 = l_Lean_mkTermIdFromIdent___closed__2; +x_37 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_37, 0, x_36); +lean_ctor_set(x_37, 1, x_35); +lean_inc(x_37); +x_38 = lean_array_push(x_2, x_37); +x_39 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_39, 0, x_37); +lean_ctor_set(x_39, 1, x_38); +lean_ctor_set(x_23, 0, x_39); +return x_23; } else { -lean_object* x_79; lean_object* x_80; uint8_t x_81; uint8_t x_82; -x_79 = l_Lean_Syntax_getArgs(x_1); -x_80 = lean_array_get_size(x_79); -lean_dec(x_79); -x_81 = lean_nat_dec_eq(x_80, x_9); -lean_dec(x_80); -x_82 = l_coeDecidableEq(x_81); -if (x_82 == 0) -{ -lean_object* x_83; lean_object* x_84; -lean_dec(x_3); -x_83 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_83, 0, x_1); -lean_ctor_set(x_83, 1, x_2); -x_84 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_84, 0, x_83); -lean_ctor_set(x_84, 1, x_4); -return x_84; -} -else -{ -lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; -lean_dec(x_1); -x_85 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4); -lean_dec(x_3); -x_86 = lean_ctor_get(x_85, 0); -lean_inc(x_86); -x_87 = lean_ctor_get(x_85, 1); -lean_inc(x_87); -lean_dec(x_85); -x_88 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_88, 0, x_86); -lean_ctor_set(x_88, 1, x_2); -x_13 = x_88; -x_14 = x_87; -goto block_71; -} -} -block_71: -{ -uint8_t x_15; -x_15 = !lean_is_exclusive(x_13); -if (x_15 == 0) -{ -lean_object* x_16; lean_object* x_17; lean_object* x_18; uint8_t x_19; -x_16 = lean_ctor_get(x_13, 0); -x_17 = lean_ctor_get(x_13, 1); -x_18 = l_Lean_Elab_Term_getMainModule___rarg(x_14); -x_19 = !lean_is_exclusive(x_18); -if (x_19 == 0) -{ -lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; 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; -x_20 = lean_ctor_get(x_18, 0); -x_21 = lean_box(0); -x_22 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__3; -x_23 = l_Lean_addMacroScope(x_20, x_22, x_16); -x_24 = lean_box(0); -x_25 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__2; -x_26 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_26, 0, x_21); -lean_ctor_set(x_26, 1, x_25); -lean_ctor_set(x_26, 2, x_23); -lean_ctor_set(x_26, 3, x_24); -x_27 = l_Array_empty___closed__1; -x_28 = lean_array_push(x_27, x_26); -x_29 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_30 = lean_array_push(x_28, x_29); -x_31 = l_Lean_mkTermIdFromIdent___closed__2; -x_32 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_32, 0, x_31); -lean_ctor_set(x_32, 1, x_30); -lean_inc(x_32); -x_33 = lean_array_push(x_17, x_32); -lean_ctor_set(x_13, 1, x_33); -lean_ctor_set(x_13, 0, x_32); -lean_ctor_set(x_18, 0, x_13); -return x_18; -} -else -{ -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_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; -x_34 = lean_ctor_get(x_18, 0); -x_35 = lean_ctor_get(x_18, 1); -lean_inc(x_35); -lean_inc(x_34); -lean_dec(x_18); -x_36 = lean_box(0); -x_37 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__3; -x_38 = l_Lean_addMacroScope(x_34, x_37, x_16); -x_39 = lean_box(0); -x_40 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__2; -x_41 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_41, 0, x_36); -lean_ctor_set(x_41, 1, x_40); -lean_ctor_set(x_41, 2, x_38); -lean_ctor_set(x_41, 3, x_39); -x_42 = l_Array_empty___closed__1; -x_43 = lean_array_push(x_42, x_41); -x_44 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_45 = lean_array_push(x_43, x_44); -x_46 = l_Lean_mkTermIdFromIdent___closed__2; -x_47 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_47, 0, x_46); -lean_ctor_set(x_47, 1, x_45); -lean_inc(x_47); -x_48 = lean_array_push(x_17, x_47); -lean_ctor_set(x_13, 1, x_48); -lean_ctor_set(x_13, 0, x_47); -x_49 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_49, 0, x_13); -lean_ctor_set(x_49, 1, x_35); -return x_49; -} -} -else -{ -lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; -x_50 = lean_ctor_get(x_13, 0); -x_51 = lean_ctor_get(x_13, 1); -lean_inc(x_51); -lean_inc(x_50); -lean_dec(x_13); -x_52 = l_Lean_Elab_Term_getMainModule___rarg(x_14); -x_53 = lean_ctor_get(x_52, 0); +lean_object* x_40; 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; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; +x_40 = lean_ctor_get(x_23, 0); +x_41 = lean_ctor_get(x_23, 1); +lean_inc(x_41); +lean_inc(x_40); +lean_dec(x_23); +x_42 = lean_box(0); +x_43 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__3; +x_44 = l_Lean_addMacroScope(x_40, x_43, x_21); +x_45 = lean_box(0); +x_46 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__2; +x_47 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_47, 0, x_42); +lean_ctor_set(x_47, 1, x_46); +lean_ctor_set(x_47, 2, x_44); +lean_ctor_set(x_47, 3, x_45); +x_48 = l_Array_empty___closed__1; +x_49 = lean_array_push(x_48, x_47); +x_50 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_51 = lean_array_push(x_49, x_50); +x_52 = l_Lean_mkTermIdFromIdent___closed__2; +x_53 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_53, 0, x_52); +lean_ctor_set(x_53, 1, x_51); lean_inc(x_53); -x_54 = lean_ctor_get(x_52, 1); -lean_inc(x_54); -if (lean_is_exclusive(x_52)) { - lean_ctor_release(x_52, 0); - lean_ctor_release(x_52, 1); - x_55 = x_52; -} else { - lean_dec_ref(x_52); - x_55 = lean_box(0); -} -x_56 = lean_box(0); -x_57 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__3; -x_58 = l_Lean_addMacroScope(x_53, x_57, x_50); -x_59 = lean_box(0); -x_60 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__2; -x_61 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_61, 0, x_56); -lean_ctor_set(x_61, 1, x_60); -lean_ctor_set(x_61, 2, x_58); -lean_ctor_set(x_61, 3, x_59); -x_62 = l_Array_empty___closed__1; -x_63 = lean_array_push(x_62, x_61); -x_64 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_65 = lean_array_push(x_63, x_64); -x_66 = l_Lean_mkTermIdFromIdent___closed__2; -x_67 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_67, 0, x_66); -lean_ctor_set(x_67, 1, x_65); -lean_inc(x_67); -x_68 = lean_array_push(x_51, x_67); -x_69 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_69, 0, x_67); -lean_ctor_set(x_69, 1, x_68); -if (lean_is_scalar(x_55)) { - x_70 = lean_alloc_ctor(0, 2, 0); -} else { - x_70 = x_55; -} -lean_ctor_set(x_70, 0, x_69); -lean_ctor_set(x_70, 1, x_54); -return x_70; +x_54 = lean_array_push(x_2, x_53); +x_55 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_55, 0, x_53); +lean_ctor_set(x_55, 1, x_54); +x_56 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_56, 0, x_55); +lean_ctor_set(x_56, 1, x_41); +return x_56; } } } else { -lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; uint8_t x_98; uint8_t x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; -x_89 = lean_ctor_get(x_3, 0); -x_90 = lean_ctor_get(x_3, 1); -x_91 = lean_ctor_get(x_3, 2); -x_92 = lean_ctor_get(x_3, 3); -x_93 = lean_ctor_get(x_3, 4); -x_94 = lean_ctor_get(x_3, 5); -x_95 = lean_ctor_get(x_3, 6); -x_96 = lean_ctor_get(x_3, 7); -x_97 = lean_ctor_get(x_3, 8); -x_98 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); -x_99 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); +lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; uint8_t x_66; uint8_t x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; uint8_t x_71; +x_57 = lean_ctor_get(x_3, 0); +x_58 = lean_ctor_get(x_3, 1); +x_59 = lean_ctor_get(x_3, 2); +x_60 = lean_ctor_get(x_3, 3); +x_61 = lean_ctor_get(x_3, 4); +x_62 = lean_ctor_get(x_3, 5); +x_63 = lean_ctor_get(x_3, 6); +x_64 = lean_ctor_get(x_3, 7); +x_65 = lean_ctor_get(x_3, 8); +x_66 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); +x_67 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); +lean_inc(x_65); +lean_inc(x_64); +lean_inc(x_63); +lean_inc(x_62); +lean_inc(x_61); +lean_inc(x_60); +lean_inc(x_59); +lean_inc(x_58); +lean_inc(x_57); +lean_dec(x_3); +x_68 = lean_alloc_ctor(0, 10, 2); +lean_ctor_set(x_68, 0, x_57); +lean_ctor_set(x_68, 1, x_58); +lean_ctor_set(x_68, 2, x_59); +lean_ctor_set(x_68, 3, x_60); +lean_ctor_set(x_68, 4, x_61); +lean_ctor_set(x_68, 5, x_62); +lean_ctor_set(x_68, 6, x_63); +lean_ctor_set(x_68, 7, x_64); +lean_ctor_set(x_68, 8, x_65); +lean_ctor_set(x_68, 9, x_8); +lean_ctor_set_uint8(x_68, sizeof(void*)*10, x_66); +lean_ctor_set_uint8(x_68, sizeof(void*)*10 + 1, x_67); +x_69 = l_Lean_Syntax_getArgs(x_1); +x_70 = lean_array_get_size(x_69); +lean_dec(x_69); +x_71 = lean_nat_dec_eq(x_70, x_9); +lean_dec(x_70); +if (x_71 == 0) +{ +lean_object* x_72; lean_object* x_73; +lean_dec(x_68); +x_72 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_72, 0, x_1); +lean_ctor_set(x_72, 1, x_2); +x_73 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_73, 0, x_72); +lean_ctor_set(x_73, 1, x_4); +return x_73; +} +else +{ +lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; +lean_dec(x_1); +x_74 = l_Lean_Elab_Term_getCurrMacroScope(x_68, x_4); +lean_dec(x_68); +x_75 = lean_ctor_get(x_74, 0); +lean_inc(x_75); +x_76 = lean_ctor_get(x_74, 1); +lean_inc(x_76); +lean_dec(x_74); +x_77 = l_Lean_Elab_Term_getMainModule___rarg(x_76); +x_78 = lean_ctor_get(x_77, 0); +lean_inc(x_78); +x_79 = lean_ctor_get(x_77, 1); +lean_inc(x_79); +if (lean_is_exclusive(x_77)) { + lean_ctor_release(x_77, 0); + lean_ctor_release(x_77, 1); + x_80 = x_77; +} else { + lean_dec_ref(x_77); + x_80 = lean_box(0); +} +x_81 = lean_box(0); +x_82 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__3; +x_83 = l_Lean_addMacroScope(x_78, x_82, x_75); +x_84 = lean_box(0); +x_85 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__2; +x_86 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_86, 0, x_81); +lean_ctor_set(x_86, 1, x_85); +lean_ctor_set(x_86, 2, x_83); +lean_ctor_set(x_86, 3, x_84); +x_87 = l_Array_empty___closed__1; +x_88 = lean_array_push(x_87, x_86); +x_89 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_90 = lean_array_push(x_88, x_89); +x_91 = l_Lean_mkTermIdFromIdent___closed__2; +x_92 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_92, 0, x_91); +lean_ctor_set(x_92, 1, x_90); +lean_inc(x_92); +x_93 = lean_array_push(x_2, x_92); +x_94 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_94, 0, x_92); +lean_ctor_set(x_94, 1, x_93); +if (lean_is_scalar(x_80)) { + x_95 = lean_alloc_ctor(0, 2, 0); +} else { + x_95 = x_80; +} +lean_ctor_set(x_95, 0, x_94); +lean_ctor_set(x_95, 1, x_79); +return x_95; +} +} +} +} +else +{ +lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; +x_96 = lean_ctor_get(x_4, 0); +x_97 = lean_ctor_get(x_4, 1); +x_98 = lean_ctor_get(x_4, 2); +x_99 = lean_ctor_get(x_4, 3); +x_100 = lean_ctor_get(x_4, 4); +x_101 = lean_ctor_get(x_4, 5); +lean_inc(x_101); +lean_inc(x_100); +lean_inc(x_99); +lean_inc(x_98); lean_inc(x_97); lean_inc(x_96); -lean_inc(x_95); -lean_inc(x_94); -lean_inc(x_93); -lean_inc(x_92); -lean_inc(x_91); -lean_inc(x_90); -lean_inc(x_89); -lean_dec(x_3); -x_100 = lean_alloc_ctor(0, 10, 2); -lean_ctor_set(x_100, 0, x_89); -lean_ctor_set(x_100, 1, x_90); -lean_ctor_set(x_100, 2, x_91); -lean_ctor_set(x_100, 3, x_92); -lean_ctor_set(x_100, 4, x_93); -lean_ctor_set(x_100, 5, x_94); -lean_ctor_set(x_100, 6, x_95); -lean_ctor_set(x_100, 7, x_96); -lean_ctor_set(x_100, 8, x_97); -lean_ctor_set(x_100, 9, x_8); -lean_ctor_set_uint8(x_100, sizeof(void*)*10, x_98); -lean_ctor_set_uint8(x_100, sizeof(void*)*10 + 1, x_99); +lean_dec(x_4); +x_102 = lean_unsigned_to_nat(1u); +x_103 = lean_nat_add(x_101, x_102); +x_104 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_104, 0, x_96); +lean_ctor_set(x_104, 1, x_97); +lean_ctor_set(x_104, 2, x_98); +lean_ctor_set(x_104, 3, x_99); +lean_ctor_set(x_104, 4, x_100); +lean_ctor_set(x_104, 5, x_103); if (x_6 == 0) { -uint8_t x_126; -x_126 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_126 == 0) -{ -lean_object* x_127; lean_object* x_128; -lean_dec(x_100); -x_127 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_127, 0, x_1); -lean_ctor_set(x_127, 1, x_2); -x_128 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_128, 0, x_127); -lean_ctor_set(x_128, 1, x_4); -return x_128; +lean_object* x_105; lean_object* x_106; +lean_dec(x_101); +lean_dec(x_3); +x_105 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_105, 0, x_1); +lean_ctor_set(x_105, 1, x_2); +x_106 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_106, 0, x_105); +lean_ctor_set(x_106, 1, x_104); +return x_106; } else { -lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; -lean_dec(x_1); -x_129 = l_Lean_Elab_Term_getCurrMacroScope(x_100, x_4); -lean_dec(x_100); -x_130 = lean_ctor_get(x_129, 0); -lean_inc(x_130); -x_131 = lean_ctor_get(x_129, 1); -lean_inc(x_131); -lean_dec(x_129); -x_132 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_132, 0, x_130); -lean_ctor_set(x_132, 1, x_2); -x_101 = x_132; -x_102 = x_131; -goto block_125; -} -} -else -{ -lean_object* x_133; lean_object* x_134; uint8_t x_135; uint8_t x_136; -x_133 = l_Lean_Syntax_getArgs(x_1); -x_134 = lean_array_get_size(x_133); -lean_dec(x_133); -x_135 = lean_nat_dec_eq(x_134, x_9); -lean_dec(x_134); -x_136 = l_coeDecidableEq(x_135); -if (x_136 == 0) -{ -lean_object* x_137; lean_object* x_138; -lean_dec(x_100); -x_137 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_137, 0, x_1); -lean_ctor_set(x_137, 1, x_2); -x_138 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_138, 0, x_137); -lean_ctor_set(x_138, 1, x_4); -return x_138; -} -else -{ -lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; -lean_dec(x_1); -x_139 = l_Lean_Elab_Term_getCurrMacroScope(x_100, x_4); -lean_dec(x_100); -x_140 = lean_ctor_get(x_139, 0); -lean_inc(x_140); -x_141 = lean_ctor_get(x_139, 1); -lean_inc(x_141); -lean_dec(x_139); -x_142 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_142, 0, x_140); -lean_ctor_set(x_142, 1, x_2); -x_101 = x_142; -x_102 = x_141; -goto block_125; -} -} -block_125: -{ -lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; -x_103 = lean_ctor_get(x_101, 0); -lean_inc(x_103); -x_104 = lean_ctor_get(x_101, 1); -lean_inc(x_104); -if (lean_is_exclusive(x_101)) { - lean_ctor_release(x_101, 0); - lean_ctor_release(x_101, 1); - x_105 = x_101; -} else { - lean_dec_ref(x_101); - x_105 = lean_box(0); -} -x_106 = l_Lean_Elab_Term_getMainModule___rarg(x_102); -x_107 = lean_ctor_get(x_106, 0); +lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; uint8_t x_116; uint8_t x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; uint8_t x_122; +x_107 = lean_ctor_get(x_3, 0); lean_inc(x_107); -x_108 = lean_ctor_get(x_106, 1); +x_108 = lean_ctor_get(x_3, 1); lean_inc(x_108); -if (lean_is_exclusive(x_106)) { - lean_ctor_release(x_106, 0); - lean_ctor_release(x_106, 1); - x_109 = x_106; -} else { - lean_dec_ref(x_106); - x_109 = lean_box(0); -} -x_110 = lean_box(0); -x_111 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__3; -x_112 = l_Lean_addMacroScope(x_107, x_111, x_103); -x_113 = lean_box(0); -x_114 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__2; -x_115 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_115, 0, x_110); -lean_ctor_set(x_115, 1, x_114); -lean_ctor_set(x_115, 2, x_112); -lean_ctor_set(x_115, 3, x_113); -x_116 = l_Array_empty___closed__1; -x_117 = lean_array_push(x_116, x_115); -x_118 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_119 = lean_array_push(x_117, x_118); -x_120 = l_Lean_mkTermIdFromIdent___closed__2; -x_121 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_121, 0, x_120); -lean_ctor_set(x_121, 1, x_119); -lean_inc(x_121); -x_122 = lean_array_push(x_104, x_121); -if (lean_is_scalar(x_105)) { - x_123 = lean_alloc_ctor(0, 2, 0); -} else { - x_123 = x_105; -} -lean_ctor_set(x_123, 0, x_121); -lean_ctor_set(x_123, 1, x_122); -if (lean_is_scalar(x_109)) { - x_124 = lean_alloc_ctor(0, 2, 0); -} else { - x_124 = x_109; -} -lean_ctor_set(x_124, 0, x_123); -lean_ctor_set(x_124, 1, x_108); -return x_124; -} -} -} -else -{ -lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; uint8_t x_161; uint8_t x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; -x_143 = lean_ctor_get(x_4, 0); -x_144 = lean_ctor_get(x_4, 1); -x_145 = lean_ctor_get(x_4, 2); -x_146 = lean_ctor_get(x_4, 3); -x_147 = lean_ctor_get(x_4, 4); -x_148 = lean_ctor_get(x_4, 5); -lean_inc(x_148); -lean_inc(x_147); -lean_inc(x_146); -lean_inc(x_145); -lean_inc(x_144); -lean_inc(x_143); -lean_dec(x_4); -x_149 = lean_unsigned_to_nat(1u); -x_150 = lean_nat_add(x_148, x_149); -x_151 = lean_alloc_ctor(0, 6, 0); -lean_ctor_set(x_151, 0, x_143); -lean_ctor_set(x_151, 1, x_144); -lean_ctor_set(x_151, 2, x_145); -lean_ctor_set(x_151, 3, x_146); -lean_ctor_set(x_151, 4, x_147); -lean_ctor_set(x_151, 5, x_150); -x_152 = lean_ctor_get(x_3, 0); -lean_inc(x_152); -x_153 = lean_ctor_get(x_3, 1); -lean_inc(x_153); -x_154 = lean_ctor_get(x_3, 2); -lean_inc(x_154); -x_155 = lean_ctor_get(x_3, 3); -lean_inc(x_155); -x_156 = lean_ctor_get(x_3, 4); -lean_inc(x_156); -x_157 = lean_ctor_get(x_3, 5); -lean_inc(x_157); -x_158 = lean_ctor_get(x_3, 6); -lean_inc(x_158); -x_159 = lean_ctor_get(x_3, 7); -lean_inc(x_159); -x_160 = lean_ctor_get(x_3, 8); -lean_inc(x_160); -x_161 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); -x_162 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); +x_109 = lean_ctor_get(x_3, 2); +lean_inc(x_109); +x_110 = lean_ctor_get(x_3, 3); +lean_inc(x_110); +x_111 = lean_ctor_get(x_3, 4); +lean_inc(x_111); +x_112 = lean_ctor_get(x_3, 5); +lean_inc(x_112); +x_113 = lean_ctor_get(x_3, 6); +lean_inc(x_113); +x_114 = lean_ctor_get(x_3, 7); +lean_inc(x_114); +x_115 = lean_ctor_get(x_3, 8); +lean_inc(x_115); +x_116 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); +x_117 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); if (lean_is_exclusive(x_3)) { lean_ctor_release(x_3, 0); lean_ctor_release(x_3, 1); @@ -10100,166 +9927,101 @@ if (lean_is_exclusive(x_3)) { lean_ctor_release(x_3, 7); lean_ctor_release(x_3, 8); lean_ctor_release(x_3, 9); - x_163 = x_3; + x_118 = x_3; } else { lean_dec_ref(x_3); - x_163 = lean_box(0); + x_118 = lean_box(0); } -if (lean_is_scalar(x_163)) { - x_164 = lean_alloc_ctor(0, 10, 2); +if (lean_is_scalar(x_118)) { + x_119 = lean_alloc_ctor(0, 10, 2); } else { - x_164 = x_163; + x_119 = x_118; } -lean_ctor_set(x_164, 0, x_152); -lean_ctor_set(x_164, 1, x_153); -lean_ctor_set(x_164, 2, x_154); -lean_ctor_set(x_164, 3, x_155); -lean_ctor_set(x_164, 4, x_156); -lean_ctor_set(x_164, 5, x_157); -lean_ctor_set(x_164, 6, x_158); -lean_ctor_set(x_164, 7, x_159); -lean_ctor_set(x_164, 8, x_160); -lean_ctor_set(x_164, 9, x_148); -lean_ctor_set_uint8(x_164, sizeof(void*)*10, x_161); -lean_ctor_set_uint8(x_164, sizeof(void*)*10 + 1, x_162); -if (x_6 == 0) +lean_ctor_set(x_119, 0, x_107); +lean_ctor_set(x_119, 1, x_108); +lean_ctor_set(x_119, 2, x_109); +lean_ctor_set(x_119, 3, x_110); +lean_ctor_set(x_119, 4, x_111); +lean_ctor_set(x_119, 5, x_112); +lean_ctor_set(x_119, 6, x_113); +lean_ctor_set(x_119, 7, x_114); +lean_ctor_set(x_119, 8, x_115); +lean_ctor_set(x_119, 9, x_101); +lean_ctor_set_uint8(x_119, sizeof(void*)*10, x_116); +lean_ctor_set_uint8(x_119, sizeof(void*)*10 + 1, x_117); +x_120 = l_Lean_Syntax_getArgs(x_1); +x_121 = lean_array_get_size(x_120); +lean_dec(x_120); +x_122 = lean_nat_dec_eq(x_121, x_102); +lean_dec(x_121); +if (x_122 == 0) { -uint8_t x_190; -x_190 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_190 == 0) -{ -lean_object* x_191; lean_object* x_192; -lean_dec(x_164); -x_191 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_191, 0, x_1); -lean_ctor_set(x_191, 1, x_2); -x_192 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_192, 0, x_191); -lean_ctor_set(x_192, 1, x_151); -return x_192; +lean_object* x_123; lean_object* x_124; +lean_dec(x_119); +x_123 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_123, 0, x_1); +lean_ctor_set(x_123, 1, x_2); +x_124 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_124, 0, x_123); +lean_ctor_set(x_124, 1, x_104); +return x_124; } else { -lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; +lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_dec(x_1); -x_193 = l_Lean_Elab_Term_getCurrMacroScope(x_164, x_151); -lean_dec(x_164); -x_194 = lean_ctor_get(x_193, 0); -lean_inc(x_194); -x_195 = lean_ctor_get(x_193, 1); -lean_inc(x_195); -lean_dec(x_193); -x_196 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_196, 0, x_194); -lean_ctor_set(x_196, 1, x_2); -x_165 = x_196; -x_166 = x_195; -goto block_189; -} -} -else -{ -lean_object* x_197; lean_object* x_198; uint8_t x_199; uint8_t x_200; -x_197 = l_Lean_Syntax_getArgs(x_1); -x_198 = lean_array_get_size(x_197); -lean_dec(x_197); -x_199 = lean_nat_dec_eq(x_198, x_149); -lean_dec(x_198); -x_200 = l_coeDecidableEq(x_199); -if (x_200 == 0) -{ -lean_object* x_201; lean_object* x_202; -lean_dec(x_164); -x_201 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_201, 0, x_1); -lean_ctor_set(x_201, 1, x_2); -x_202 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_202, 0, x_201); -lean_ctor_set(x_202, 1, x_151); -return x_202; -} -else -{ -lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; -lean_dec(x_1); -x_203 = l_Lean_Elab_Term_getCurrMacroScope(x_164, x_151); -lean_dec(x_164); -x_204 = lean_ctor_get(x_203, 0); -lean_inc(x_204); -x_205 = lean_ctor_get(x_203, 1); -lean_inc(x_205); -lean_dec(x_203); -x_206 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_206, 0, x_204); -lean_ctor_set(x_206, 1, x_2); -x_165 = x_206; -x_166 = x_205; -goto block_189; -} -} -block_189: -{ -lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; -x_167 = lean_ctor_get(x_165, 0); -lean_inc(x_167); -x_168 = lean_ctor_get(x_165, 1); -lean_inc(x_168); -if (lean_is_exclusive(x_165)) { - lean_ctor_release(x_165, 0); - lean_ctor_release(x_165, 1); - x_169 = x_165; +x_125 = l_Lean_Elab_Term_getCurrMacroScope(x_119, x_104); +lean_dec(x_119); +x_126 = lean_ctor_get(x_125, 0); +lean_inc(x_126); +x_127 = lean_ctor_get(x_125, 1); +lean_inc(x_127); +lean_dec(x_125); +x_128 = l_Lean_Elab_Term_getMainModule___rarg(x_127); +x_129 = lean_ctor_get(x_128, 0); +lean_inc(x_129); +x_130 = lean_ctor_get(x_128, 1); +lean_inc(x_130); +if (lean_is_exclusive(x_128)) { + lean_ctor_release(x_128, 0); + lean_ctor_release(x_128, 1); + x_131 = x_128; } else { - lean_dec_ref(x_165); - x_169 = lean_box(0); + lean_dec_ref(x_128); + x_131 = lean_box(0); } -x_170 = l_Lean_Elab_Term_getMainModule___rarg(x_166); -x_171 = lean_ctor_get(x_170, 0); -lean_inc(x_171); -x_172 = lean_ctor_get(x_170, 1); -lean_inc(x_172); -if (lean_is_exclusive(x_170)) { - lean_ctor_release(x_170, 0); - lean_ctor_release(x_170, 1); - x_173 = x_170; +x_132 = lean_box(0); +x_133 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__3; +x_134 = l_Lean_addMacroScope(x_129, x_133, x_126); +x_135 = lean_box(0); +x_136 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__2; +x_137 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_137, 0, x_132); +lean_ctor_set(x_137, 1, x_136); +lean_ctor_set(x_137, 2, x_134); +lean_ctor_set(x_137, 3, x_135); +x_138 = l_Array_empty___closed__1; +x_139 = lean_array_push(x_138, x_137); +x_140 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_141 = lean_array_push(x_139, x_140); +x_142 = l_Lean_mkTermIdFromIdent___closed__2; +x_143 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_143, 0, x_142); +lean_ctor_set(x_143, 1, x_141); +lean_inc(x_143); +x_144 = lean_array_push(x_2, x_143); +x_145 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_145, 0, x_143); +lean_ctor_set(x_145, 1, x_144); +if (lean_is_scalar(x_131)) { + x_146 = lean_alloc_ctor(0, 2, 0); } else { - lean_dec_ref(x_170); - x_173 = lean_box(0); + x_146 = x_131; } -x_174 = lean_box(0); -x_175 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__3; -x_176 = l_Lean_addMacroScope(x_171, x_175, x_167); -x_177 = lean_box(0); -x_178 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__2; -x_179 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_179, 0, x_174); -lean_ctor_set(x_179, 1, x_178); -lean_ctor_set(x_179, 2, x_176); -lean_ctor_set(x_179, 3, x_177); -x_180 = l_Array_empty___closed__1; -x_181 = lean_array_push(x_180, x_179); -x_182 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_183 = lean_array_push(x_181, x_182); -x_184 = l_Lean_mkTermIdFromIdent___closed__2; -x_185 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_185, 0, x_184); -lean_ctor_set(x_185, 1, x_183); -lean_inc(x_185); -x_186 = lean_array_push(x_168, x_185); -if (lean_is_scalar(x_169)) { - x_187 = lean_alloc_ctor(0, 2, 0); -} else { - x_187 = x_169; +lean_ctor_set(x_146, 0, x_145); +lean_ctor_set(x_146, 1, x_130); +return x_146; } -lean_ctor_set(x_187, 0, x_185); -lean_ctor_set(x_187, 1, x_186); -if (lean_is_scalar(x_173)) { - x_188 = lean_alloc_ctor(0, 2, 0); -} else { - x_188 = x_173; -} -lean_ctor_set(x_188, 0, x_187); -lean_ctor_set(x_188, 1, x_172); -return x_188; } } } @@ -10425,365 +10187,364 @@ return x_3; lean_object* l_Lean_Elab_Term_expandCDot_x3f(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_139; uint8_t x_140; -x_139 = l_Lean_mkAppStx___closed__8; +lean_object* x_4; lean_object* x_82; uint8_t x_83; +x_82 = l_Lean_mkAppStx___closed__8; lean_inc(x_1); -x_140 = l_Lean_Syntax_isOfKind(x_1, x_139); -if (x_140 == 0) +x_83 = l_Lean_Syntax_isOfKind(x_1, x_82); +if (x_83 == 0) { -uint8_t x_141; -x_141 = 0; -x_4 = x_141; -goto block_138; +lean_object* x_84; +x_84 = lean_box(0); +x_4 = x_84; +goto block_81; } else { -lean_object* x_142; lean_object* x_143; lean_object* x_144; uint8_t x_145; -x_142 = l_Lean_Syntax_getArgs(x_1); -x_143 = lean_array_get_size(x_142); -lean_dec(x_142); -x_144 = lean_unsigned_to_nat(2u); -x_145 = lean_nat_dec_eq(x_143, x_144); -lean_dec(x_143); -x_4 = x_145; -goto block_138; -} -block_138: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); -if (x_5 == 0) -{ -if (lean_obj_tag(x_1) == 1) -{ -uint8_t x_6; -x_6 = !lean_is_exclusive(x_1); -if (x_6 == 0) -{ -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; -x_7 = lean_ctor_get(x_1, 0); -x_8 = lean_ctor_get(x_1, 1); -x_9 = lean_array_get_size(x_8); -x_10 = lean_unsigned_to_nat(0u); -x_11 = l_Array_anyRangeMAux___main___at_Lean_Elab_Term_expandCDot_x3f___spec__1(x_8, x_8, x_9, x_10); -lean_dec(x_9); -if (x_11 == 0) -{ -lean_object* x_12; lean_object* x_13; -lean_free_object(x_1); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_2); -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; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; uint8_t x_23; -x_14 = l_Array_empty___closed__1; -lean_inc(x_2); -x_15 = l_Array_umapMAux___main___at_Lean_Elab_Term_expandCDot_x3f___spec__2(x_10, x_8, x_14, x_2, x_3); -x_16 = lean_ctor_get(x_15, 0); -lean_inc(x_16); -x_17 = lean_ctor_get(x_15, 1); -lean_inc(x_17); -lean_dec(x_15); -x_18 = lean_ctor_get(x_16, 0); -lean_inc(x_18); -x_19 = lean_ctor_get(x_16, 1); -lean_inc(x_19); -lean_dec(x_16); -lean_ctor_set(x_1, 1, x_18); -x_20 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_17); -lean_dec(x_2); -x_21 = lean_ctor_get(x_20, 1); -lean_inc(x_21); -lean_dec(x_20); -x_22 = l_Lean_Elab_Term_getMainModule___rarg(x_21); -x_23 = !lean_is_exclusive(x_22); -if (x_23 == 0) -{ -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; -x_24 = lean_ctor_get(x_22, 0); -lean_dec(x_24); -x_25 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_19, x_19, x_10, x_14); -lean_dec(x_19); -x_26 = l_Lean_nullKind___closed__2; -x_27 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_27, 0, x_26); -lean_ctor_set(x_27, 1, x_25); -x_28 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_29 = lean_array_push(x_28, x_27); -x_30 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_31 = lean_array_push(x_29, x_30); -x_32 = lean_array_push(x_31, x_1); -x_33 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_34 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_34, 0, x_33); -lean_ctor_set(x_34, 1, x_32); -x_35 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_35, 0, x_34); -lean_ctor_set(x_22, 0, x_35); -return x_22; -} -else -{ -lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; -x_36 = lean_ctor_get(x_22, 1); -lean_inc(x_36); -lean_dec(x_22); -x_37 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_19, x_19, x_10, x_14); -lean_dec(x_19); -x_38 = l_Lean_nullKind___closed__2; -x_39 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_39, 0, x_38); -lean_ctor_set(x_39, 1, x_37); -x_40 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_41 = lean_array_push(x_40, x_39); -x_42 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_43 = lean_array_push(x_41, x_42); -x_44 = lean_array_push(x_43, x_1); -x_45 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_46 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_46, 0, x_45); -lean_ctor_set(x_46, 1, x_44); -x_47 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_47, 0, x_46); -x_48 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_48, 0, x_47); -lean_ctor_set(x_48, 1, x_36); -return x_48; -} -} -} -else -{ -lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; uint8_t x_53; -x_49 = lean_ctor_get(x_1, 0); -x_50 = lean_ctor_get(x_1, 1); -lean_inc(x_50); -lean_inc(x_49); -lean_dec(x_1); -x_51 = lean_array_get_size(x_50); -x_52 = lean_unsigned_to_nat(0u); -x_53 = l_Array_anyRangeMAux___main___at_Lean_Elab_Term_expandCDot_x3f___spec__1(x_50, x_50, x_51, x_52); -lean_dec(x_51); -if (x_53 == 0) -{ -lean_object* x_54; lean_object* x_55; -lean_dec(x_50); -lean_dec(x_49); -lean_dec(x_2); -x_54 = lean_box(0); -x_55 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_55, 0, x_54); -lean_ctor_set(x_55, 1, x_3); -return x_55; -} -else -{ -lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; -x_56 = l_Array_empty___closed__1; -lean_inc(x_2); -x_57 = l_Array_umapMAux___main___at_Lean_Elab_Term_expandCDot_x3f___spec__2(x_52, x_50, x_56, x_2, x_3); -x_58 = lean_ctor_get(x_57, 0); -lean_inc(x_58); -x_59 = lean_ctor_get(x_57, 1); -lean_inc(x_59); -lean_dec(x_57); -x_60 = lean_ctor_get(x_58, 0); -lean_inc(x_60); -x_61 = lean_ctor_get(x_58, 1); -lean_inc(x_61); -lean_dec(x_58); -x_62 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_62, 0, x_49); -lean_ctor_set(x_62, 1, x_60); -x_63 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_59); -lean_dec(x_2); -x_64 = lean_ctor_get(x_63, 1); -lean_inc(x_64); -lean_dec(x_63); -x_65 = l_Lean_Elab_Term_getMainModule___rarg(x_64); -x_66 = lean_ctor_get(x_65, 1); -lean_inc(x_66); -if (lean_is_exclusive(x_65)) { - lean_ctor_release(x_65, 0); - lean_ctor_release(x_65, 1); - x_67 = x_65; -} else { - lean_dec_ref(x_65); - x_67 = lean_box(0); -} -x_68 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_61, x_61, x_52, x_56); -lean_dec(x_61); -x_69 = l_Lean_nullKind___closed__2; -x_70 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_70, 0, x_69); -lean_ctor_set(x_70, 1, x_68); -x_71 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_72 = lean_array_push(x_71, x_70); -x_73 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_74 = lean_array_push(x_72, x_73); -x_75 = lean_array_push(x_74, x_62); -x_76 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_77 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_77, 0, x_76); -lean_ctor_set(x_77, 1, x_75); -x_78 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_78, 0, x_77); -if (lean_is_scalar(x_67)) { - x_79 = lean_alloc_ctor(0, 2, 0); -} else { - x_79 = x_67; -} -lean_ctor_set(x_79, 0, x_78); -lean_ctor_set(x_79, 1, x_66); -return x_79; -} -} -} -else -{ -lean_object* x_80; lean_object* x_81; -lean_dec(x_2); -lean_dec(x_1); -x_80 = lean_box(0); -x_81 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_81, 0, x_80); -lean_ctor_set(x_81, 1, x_3); -return x_81; -} -} -else -{ -lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; uint8_t x_88; -x_82 = lean_unsigned_to_nat(0u); -x_83 = l_Lean_Syntax_getArg(x_1, x_82); -x_84 = lean_unsigned_to_nat(1u); -x_85 = l_Lean_Syntax_getArg(x_1, x_84); -x_86 = l_Lean_Syntax_getArgs(x_85); +lean_object* x_85; lean_object* x_86; lean_object* x_87; uint8_t x_88; +x_85 = l_Lean_Syntax_getArgs(x_1); +x_86 = lean_array_get_size(x_85); lean_dec(x_85); -x_87 = lean_array_get_size(x_86); -x_88 = l_Array_anyRangeMAux___main___at_Lean_Elab_Term_expandCDot_x3f___spec__3(x_1, x_86, x_87, x_82); -lean_dec(x_87); -lean_dec(x_1); +x_87 = lean_unsigned_to_nat(2u); +x_88 = lean_nat_dec_eq(x_86, x_87); +lean_dec(x_86); if (x_88 == 0) { -lean_object* x_89; lean_object* x_90; -lean_dec(x_86); -lean_dec(x_83); -lean_dec(x_2); +lean_object* x_89; x_89 = lean_box(0); -x_90 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_90, 0, x_89); -lean_ctor_set(x_90, 1, x_3); -return x_90; +x_4 = x_89; +goto block_81; } else { -lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; uint8_t x_100; -x_91 = l_Array_empty___closed__1; -lean_inc(x_2); -x_92 = l_Array_umapMAux___main___at_Lean_Elab_Term_expandCDot_x3f___spec__2(x_82, x_86, x_91, x_2, x_3); -x_93 = lean_ctor_get(x_92, 0); -lean_inc(x_93); -x_94 = lean_ctor_get(x_92, 1); -lean_inc(x_94); -lean_dec(x_92); -x_95 = lean_ctor_get(x_93, 0); -lean_inc(x_95); -x_96 = lean_ctor_get(x_93, 1); -lean_inc(x_96); +lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; uint8_t x_96; +x_90 = lean_unsigned_to_nat(0u); +x_91 = l_Lean_Syntax_getArg(x_1, x_90); +x_92 = lean_unsigned_to_nat(1u); +x_93 = l_Lean_Syntax_getArg(x_1, x_92); +x_94 = l_Lean_Syntax_getArgs(x_93); lean_dec(x_93); -x_97 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_94); -lean_dec(x_2); -x_98 = lean_ctor_get(x_97, 1); -lean_inc(x_98); -lean_dec(x_97); -x_99 = l_Lean_Elab_Term_getMainModule___rarg(x_98); -x_100 = !lean_is_exclusive(x_99); -if (x_100 == 0) -{ -lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; -x_101 = lean_ctor_get(x_99, 0); -lean_dec(x_101); -x_102 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_96, x_96, x_82, x_91); -lean_dec(x_96); -x_103 = l_Lean_nullKind___closed__2; -x_104 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_104, 0, x_103); -lean_ctor_set(x_104, 1, x_102); -x_105 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_106 = lean_array_push(x_105, x_104); -x_107 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_108 = lean_array_push(x_106, x_107); -x_109 = lean_array_push(x_91, x_83); -x_110 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_95, x_95, x_82, x_91); +x_95 = lean_array_get_size(x_94); +x_96 = l_Array_anyRangeMAux___main___at_Lean_Elab_Term_expandCDot_x3f___spec__3(x_1, x_94, x_95, x_90); lean_dec(x_95); -x_111 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_111, 0, x_103); -lean_ctor_set(x_111, 1, x_110); -x_112 = lean_array_push(x_109, x_111); -x_113 = l_Lean_mkAppStx___closed__8; -x_114 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_114, 0, x_113); -lean_ctor_set(x_114, 1, x_112); -x_115 = lean_array_push(x_108, x_114); -x_116 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_117 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_117, 0, x_116); -lean_ctor_set(x_117, 1, x_115); -x_118 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_118, 0, x_117); -lean_ctor_set(x_99, 0, x_118); -return x_99; +lean_dec(x_1); +if (x_96 == 0) +{ +lean_object* x_97; lean_object* x_98; +lean_dec(x_94); +lean_dec(x_91); +lean_dec(x_2); +x_97 = lean_box(0); +x_98 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_98, 0, x_97); +lean_ctor_set(x_98, 1, x_3); +return x_98; } else { -lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; -x_119 = lean_ctor_get(x_99, 1); -lean_inc(x_119); -lean_dec(x_99); -x_120 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_96, x_96, x_82, x_91); -lean_dec(x_96); -x_121 = l_Lean_nullKind___closed__2; -x_122 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_122, 0, x_121); -lean_ctor_set(x_122, 1, x_120); -x_123 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; -x_124 = lean_array_push(x_123, x_122); -x_125 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; -x_126 = lean_array_push(x_124, x_125); -x_127 = lean_array_push(x_91, x_83); -x_128 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_95, x_95, x_82, x_91); -lean_dec(x_95); +lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; uint8_t x_108; +x_99 = l_Array_empty___closed__1; +lean_inc(x_2); +x_100 = l_Array_umapMAux___main___at_Lean_Elab_Term_expandCDot_x3f___spec__2(x_90, x_94, x_99, x_2, x_3); +x_101 = lean_ctor_get(x_100, 0); +lean_inc(x_101); +x_102 = lean_ctor_get(x_100, 1); +lean_inc(x_102); +lean_dec(x_100); +x_103 = lean_ctor_get(x_101, 0); +lean_inc(x_103); +x_104 = lean_ctor_get(x_101, 1); +lean_inc(x_104); +lean_dec(x_101); +x_105 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_102); +lean_dec(x_2); +x_106 = lean_ctor_get(x_105, 1); +lean_inc(x_106); +lean_dec(x_105); +x_107 = l_Lean_Elab_Term_getMainModule___rarg(x_106); +x_108 = !lean_is_exclusive(x_107); +if (x_108 == 0) +{ +lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; +x_109 = lean_ctor_get(x_107, 0); +lean_dec(x_109); +x_110 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_104, x_104, x_90, x_99); +lean_dec(x_104); +x_111 = l_Lean_nullKind___closed__2; +x_112 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_112, 0, x_111); +lean_ctor_set(x_112, 1, x_110); +x_113 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_114 = lean_array_push(x_113, x_112); +x_115 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_116 = lean_array_push(x_114, x_115); +x_117 = lean_array_push(x_99, x_91); +x_118 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_103, x_103, x_90, x_99); +lean_dec(x_103); +x_119 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_119, 0, x_111); +lean_ctor_set(x_119, 1, x_118); +x_120 = lean_array_push(x_117, x_119); +x_121 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_121, 0, x_82); +lean_ctor_set(x_121, 1, x_120); +x_122 = lean_array_push(x_116, x_121); +x_123 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_124 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_124, 0, x_123); +lean_ctor_set(x_124, 1, x_122); +x_125 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_125, 0, x_124); +lean_ctor_set(x_107, 0, x_125); +return x_107; +} +else +{ +lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; +x_126 = lean_ctor_get(x_107, 1); +lean_inc(x_126); +lean_dec(x_107); +x_127 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_104, x_104, x_90, x_99); +lean_dec(x_104); +x_128 = l_Lean_nullKind___closed__2; x_129 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_129, 0, x_121); -lean_ctor_set(x_129, 1, x_128); -x_130 = lean_array_push(x_127, x_129); -x_131 = l_Lean_mkAppStx___closed__8; -x_132 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_132, 0, x_131); -lean_ctor_set(x_132, 1, x_130); -x_133 = lean_array_push(x_126, x_132); -x_134 = l_Lean_Parser_Term_fun___elambda__1___closed__2; -x_135 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_135, 0, x_134); -lean_ctor_set(x_135, 1, x_133); -x_136 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_136, 0, x_135); -x_137 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_137, 0, x_136); -lean_ctor_set(x_137, 1, x_119); -return x_137; +lean_ctor_set(x_129, 0, x_128); +lean_ctor_set(x_129, 1, x_127); +x_130 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_131 = lean_array_push(x_130, x_129); +x_132 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_133 = lean_array_push(x_131, x_132); +x_134 = lean_array_push(x_99, x_91); +x_135 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_103, x_103, x_90, x_99); +lean_dec(x_103); +x_136 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_136, 0, x_128); +lean_ctor_set(x_136, 1, x_135); +x_137 = lean_array_push(x_134, x_136); +x_138 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_138, 0, x_82); +lean_ctor_set(x_138, 1, x_137); +x_139 = lean_array_push(x_133, x_138); +x_140 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_141 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_141, 0, x_140); +lean_ctor_set(x_141, 1, x_139); +x_142 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_142, 0, x_141); +x_143 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_143, 0, x_142); +lean_ctor_set(x_143, 1, x_126); +return x_143; } } } } +block_81: +{ +lean_dec(x_4); +if (lean_obj_tag(x_1) == 1) +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_1); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_6 = lean_ctor_get(x_1, 0); +x_7 = lean_ctor_get(x_1, 1); +x_8 = lean_array_get_size(x_7); +x_9 = lean_unsigned_to_nat(0u); +x_10 = l_Array_anyRangeMAux___main___at_Lean_Elab_Term_expandCDot_x3f___spec__1(x_7, x_7, x_8, x_9); +lean_dec(x_8); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; +lean_free_object(x_1); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_2); +x_11 = lean_box(0); +x_12 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_12, 0, x_11); +lean_ctor_set(x_12, 1, x_3); +return x_12; +} +else +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; uint8_t x_22; +x_13 = l_Array_empty___closed__1; +lean_inc(x_2); +x_14 = l_Array_umapMAux___main___at_Lean_Elab_Term_expandCDot_x3f___spec__2(x_9, x_7, x_13, x_2, x_3); +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +lean_dec(x_14); +x_17 = lean_ctor_get(x_15, 0); +lean_inc(x_17); +x_18 = lean_ctor_get(x_15, 1); +lean_inc(x_18); +lean_dec(x_15); +lean_ctor_set(x_1, 1, x_17); +x_19 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_16); +lean_dec(x_2); +x_20 = lean_ctor_get(x_19, 1); +lean_inc(x_20); +lean_dec(x_19); +x_21 = l_Lean_Elab_Term_getMainModule___rarg(x_20); +x_22 = !lean_is_exclusive(x_21); +if (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; +x_23 = lean_ctor_get(x_21, 0); +lean_dec(x_23); +x_24 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_18, x_18, x_9, x_13); +lean_dec(x_18); +x_25 = l_Lean_nullKind___closed__2; +x_26 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_26, 0, x_25); +lean_ctor_set(x_26, 1, x_24); +x_27 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_28 = lean_array_push(x_27, x_26); +x_29 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_30 = lean_array_push(x_28, x_29); +x_31 = lean_array_push(x_30, x_1); +x_32 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_33 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_33, 0, x_32); +lean_ctor_set(x_33, 1, x_31); +x_34 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_34, 0, x_33); +lean_ctor_set(x_21, 0, x_34); +return x_21; +} +else +{ +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_45; lean_object* x_46; lean_object* x_47; +x_35 = lean_ctor_get(x_21, 1); +lean_inc(x_35); +lean_dec(x_21); +x_36 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_18, x_18, x_9, x_13); +lean_dec(x_18); +x_37 = l_Lean_nullKind___closed__2; +x_38 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_38, 0, x_37); +lean_ctor_set(x_38, 1, x_36); +x_39 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_40 = lean_array_push(x_39, x_38); +x_41 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_42 = lean_array_push(x_40, x_41); +x_43 = lean_array_push(x_42, x_1); +x_44 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_45 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_45, 0, x_44); +lean_ctor_set(x_45, 1, x_43); +x_46 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_46, 0, 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_35); +return x_47; +} +} +} +else +{ +lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; uint8_t x_52; +x_48 = lean_ctor_get(x_1, 0); +x_49 = lean_ctor_get(x_1, 1); +lean_inc(x_49); +lean_inc(x_48); +lean_dec(x_1); +x_50 = lean_array_get_size(x_49); +x_51 = lean_unsigned_to_nat(0u); +x_52 = l_Array_anyRangeMAux___main___at_Lean_Elab_Term_expandCDot_x3f___spec__1(x_49, x_49, x_50, x_51); +lean_dec(x_50); +if (x_52 == 0) +{ +lean_object* x_53; lean_object* x_54; +lean_dec(x_49); +lean_dec(x_48); +lean_dec(x_2); +x_53 = lean_box(0); +x_54 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_54, 0, x_53); +lean_ctor_set(x_54, 1, x_3); +return x_54; +} +else +{ +lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; +x_55 = l_Array_empty___closed__1; +lean_inc(x_2); +x_56 = l_Array_umapMAux___main___at_Lean_Elab_Term_expandCDot_x3f___spec__2(x_51, x_49, x_55, x_2, x_3); +x_57 = lean_ctor_get(x_56, 0); +lean_inc(x_57); +x_58 = lean_ctor_get(x_56, 1); +lean_inc(x_58); +lean_dec(x_56); +x_59 = lean_ctor_get(x_57, 0); +lean_inc(x_59); +x_60 = lean_ctor_get(x_57, 1); +lean_inc(x_60); +lean_dec(x_57); +x_61 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_61, 0, x_48); +lean_ctor_set(x_61, 1, x_59); +x_62 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_58); +lean_dec(x_2); +x_63 = lean_ctor_get(x_62, 1); +lean_inc(x_63); +lean_dec(x_62); +x_64 = l_Lean_Elab_Term_getMainModule___rarg(x_63); +x_65 = lean_ctor_get(x_64, 1); +lean_inc(x_65); +if (lean_is_exclusive(x_64)) { + lean_ctor_release(x_64, 0); + lean_ctor_release(x_64, 1); + x_66 = x_64; +} else { + lean_dec_ref(x_64); + x_66 = lean_box(0); +} +x_67 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_60, x_60, x_51, x_55); +lean_dec(x_60); +x_68 = l_Lean_nullKind___closed__2; +x_69 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_69, 0, x_68); +lean_ctor_set(x_69, 1, x_67); +x_70 = l_Lean_Elab_Term_expandCDot_x3f___closed__2; +x_71 = lean_array_push(x_70, x_69); +x_72 = l_Lean_Elab_Term_expandCDot_x3f___closed__3; +x_73 = lean_array_push(x_71, x_72); +x_74 = lean_array_push(x_73, x_61); +x_75 = l_Lean_Parser_Term_fun___elambda__1___closed__2; +x_76 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_76, 0, x_75); +lean_ctor_set(x_76, 1, x_74); +x_77 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_77, 0, x_76); +if (lean_is_scalar(x_66)) { + x_78 = lean_alloc_ctor(0, 2, 0); +} else { + x_78 = x_66; +} +lean_ctor_set(x_78, 0, x_77); +lean_ctor_set(x_78, 1, x_65); +return x_78; +} +} +} +else +{ +lean_object* x_79; lean_object* x_80; +lean_dec(x_2); +lean_dec(x_1); +x_79 = lean_box(0); +x_80 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_80, 0, x_79); +lean_ctor_set(x_80, 1, x_3); +return x_80; +} +} } } lean_object* l_Array_anyRangeMAux___main___at_Lean_Elab_Term_expandCDot_x3f___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { @@ -18383,33 +18144,10 @@ return x_3; lean_object* l_Lean_Elab_Term_elabParen(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -uint8_t x_5; lean_object* x_147; uint8_t x_148; -x_147 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; +lean_object* x_5; uint8_t x_6; +x_5 = l___private_Init_Lean_Parser_Parser_13__antiquotNestedExpr___elambda__1___rarg___closed__2; lean_inc(x_1); -x_148 = l_Lean_Syntax_isOfKind(x_1, x_147); -if (x_148 == 0) -{ -uint8_t x_149; -x_149 = 0; -x_5 = x_149; -goto block_146; -} -else -{ -lean_object* x_150; lean_object* x_151; lean_object* x_152; uint8_t x_153; -x_150 = l_Lean_Syntax_getArgs(x_1); -x_151 = lean_array_get_size(x_150); -lean_dec(x_150); -x_152 = lean_unsigned_to_nat(3u); -x_153 = lean_nat_dec_eq(x_151, x_152); -lean_dec(x_151); -x_5 = x_153; -goto block_146; -} -block_146: -{ -uint8_t x_6; -x_6 = l_coeDecidableEq(x_5); +x_6 = l_Lean_Syntax_isOfKind(x_1, x_5); if (x_6 == 0) { lean_object* x_7; lean_object* x_8; @@ -18421,78 +18159,16 @@ return x_8; } else { -lean_object* x_9; lean_object* x_10; uint8_t x_11; lean_object* x_131; uint8_t x_132; -x_9 = lean_unsigned_to_nat(1u); -x_10 = l_Lean_Syntax_getArg(x_1, x_9); -x_131 = l_Lean_nullKind___closed__2; -lean_inc(x_10); -x_132 = l_Lean_Syntax_isOfKind(x_10, x_131); -if (x_132 == 0) -{ -uint8_t x_133; -x_133 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_133 == 0) -{ -uint8_t x_134; -x_134 = 0; -x_11 = x_134; -goto block_130; -} -else -{ -lean_object* x_135; lean_object* x_136; +lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; +x_9 = l_Lean_Syntax_getArgs(x_1); +x_10 = lean_array_get_size(x_9); +lean_dec(x_9); +x_11 = lean_unsigned_to_nat(3u); +x_12 = lean_nat_dec_eq(x_10, x_11); lean_dec(x_10); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_135 = l_Lean_Elab_Term_elabParen___closed__6; -x_136 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_136, 0, x_135); -lean_ctor_set(x_136, 1, x_4); -return x_136; -} -} -else -{ -lean_object* x_137; lean_object* x_138; lean_object* x_139; uint8_t x_140; uint8_t x_141; -x_137 = l_Lean_Syntax_getArgs(x_10); -x_138 = lean_array_get_size(x_137); -lean_dec(x_137); -x_139 = lean_unsigned_to_nat(0u); -x_140 = lean_nat_dec_eq(x_138, x_139); -x_141 = l_coeDecidableEq(x_140); -if (x_141 == 0) -{ -lean_object* x_142; uint8_t x_143; -x_142 = lean_unsigned_to_nat(2u); -x_143 = lean_nat_dec_eq(x_138, x_142); -lean_dec(x_138); -x_11 = x_143; -goto block_130; -} -else -{ -lean_object* x_144; lean_object* x_145; -lean_dec(x_138); -lean_dec(x_10); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_144 = l_Lean_Elab_Term_elabParen___closed__6; -x_145 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_145, 0, x_144); -lean_ctor_set(x_145, 1, x_4); -return x_145; -} -} -block_130: -{ -uint8_t x_12; -x_12 = l_coeDecidableEq(x_11); if (x_12 == 0) { lean_object* x_13; lean_object* x_14; -lean_dec(x_10); lean_dec(x_2); x_13 = l_Lean_Elab_Term_elabParen___closed__3; x_14 = l_Lean_Elab_Term_throwError___rarg(x_1, x_13, x_3, x_4); @@ -18501,438 +18177,354 @@ return x_14; } else { -lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; uint8_t x_19; uint8_t x_20; -x_15 = lean_unsigned_to_nat(0u); -x_16 = l_Lean_Syntax_getArg(x_10, x_15); -x_17 = l_Lean_Syntax_getArg(x_10, x_9); -lean_dec(x_10); -x_18 = l_Lean_nullKind___closed__2; -lean_inc(x_17); -x_19 = l_Lean_Syntax_isOfKind(x_17, x_18); -if (x_19 == 0) +lean_object* x_15; lean_object* x_16; lean_object* x_17; uint8_t x_18; +x_15 = lean_unsigned_to_nat(1u); +x_16 = l_Lean_Syntax_getArg(x_1, x_15); +x_17 = l_Lean_nullKind___closed__2; +lean_inc(x_16); +x_18 = l_Lean_Syntax_isOfKind(x_16, x_17); +if (x_18 == 0) { -uint8_t x_126; -x_126 = 0; -x_20 = x_126; -goto block_125; -} -else -{ -lean_object* x_127; lean_object* x_128; uint8_t x_129; -x_127 = l_Lean_Syntax_getArgs(x_17); -x_128 = lean_array_get_size(x_127); -lean_dec(x_127); -x_129 = lean_nat_dec_eq(x_128, x_9); -lean_dec(x_128); -x_20 = x_129; -goto block_125; -} -block_125: -{ -uint8_t x_21; -x_21 = l_coeDecidableEq(x_20); -if (x_21 == 0) -{ -if (x_19 == 0) -{ -uint8_t x_22; -lean_dec(x_17); -x_22 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_22 == 0) -{ -lean_object* x_23; lean_object* x_24; +lean_object* x_19; lean_object* x_20; lean_dec(x_16); lean_dec(x_2); -x_23 = l_Lean_Elab_Term_elabParen___closed__3; -x_24 = l_Lean_Elab_Term_throwError___rarg(x_1, x_23, x_3, x_4); +x_19 = l_Lean_Elab_Term_elabParen___closed__3; +x_20 = l_Lean_Elab_Term_throwError___rarg(x_1, x_19, x_3, x_4); lean_dec(x_1); -return x_24; +return x_20; } else { -lean_object* x_25; -lean_dec(x_1); -x_25 = l___private_Init_Lean_Elab_Term_10__elabCDot(x_16, x_2, x_3, x_4); -return x_25; -} -} -else +lean_object* x_21; lean_object* x_22; lean_object* x_23; uint8_t x_24; +x_21 = l_Lean_Syntax_getArgs(x_16); +x_22 = lean_array_get_size(x_21); +lean_dec(x_21); +x_23 = lean_unsigned_to_nat(0u); +x_24 = lean_nat_dec_eq(x_22, x_23); +if (x_24 == 0) { -lean_object* x_26; lean_object* x_27; uint8_t x_28; uint8_t x_29; -x_26 = l_Lean_Syntax_getArgs(x_17); -lean_dec(x_17); -x_27 = lean_array_get_size(x_26); -lean_dec(x_26); -x_28 = lean_nat_dec_eq(x_27, x_15); -lean_dec(x_27); -x_29 = l_coeDecidableEq(x_28); -if (x_29 == 0) +lean_object* x_25; uint8_t x_26; +x_25 = lean_unsigned_to_nat(2u); +x_26 = lean_nat_dec_eq(x_22, x_25); +lean_dec(x_22); +if (x_26 == 0) { -lean_object* x_30; lean_object* x_31; +lean_object* x_27; lean_object* x_28; lean_dec(x_16); lean_dec(x_2); -x_30 = l_Lean_Elab_Term_elabParen___closed__3; -x_31 = l_Lean_Elab_Term_throwError___rarg(x_1, x_30, x_3, x_4); +x_27 = l_Lean_Elab_Term_elabParen___closed__3; +x_28 = l_Lean_Elab_Term_throwError___rarg(x_1, x_27, x_3, x_4); lean_dec(x_1); -return x_31; +return x_28; } else { -lean_object* x_32; -lean_dec(x_1); -x_32 = l___private_Init_Lean_Elab_Term_10__elabCDot(x_16, x_2, x_3, x_4); -return x_32; -} -} -} -else +lean_object* x_29; lean_object* x_30; uint8_t x_31; +x_29 = l_Lean_Syntax_getArg(x_16, x_23); +x_30 = l_Lean_Syntax_getArg(x_16, x_15); +lean_dec(x_16); +lean_inc(x_30); +x_31 = l_Lean_Syntax_isOfKind(x_30, x_17); +if (x_31 == 0) { -lean_object* x_33; uint8_t x_34; lean_object* x_73; uint8_t x_74; -x_33 = l_Lean_Syntax_getArg(x_17, x_15); -lean_dec(x_17); -x_73 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; -lean_inc(x_33); -x_74 = l_Lean_Syntax_isOfKind(x_33, x_73); -if (x_74 == 0) -{ -uint8_t x_75; -x_75 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_75 == 0) -{ -lean_object* x_76; uint8_t x_77; -x_76 = l_Lean_Parser_Term_tupleTail___elambda__1___closed__2; -lean_inc(x_33); -x_77 = l_Lean_Syntax_isOfKind(x_33, x_76); -if (x_77 == 0) -{ -uint8_t x_78; -x_78 = 0; -x_34 = x_78; -goto block_72; -} -else -{ -lean_object* x_79; lean_object* x_80; lean_object* x_81; uint8_t x_82; -x_79 = l_Lean_Syntax_getArgs(x_33); -x_80 = lean_array_get_size(x_79); -lean_dec(x_79); -x_81 = lean_unsigned_to_nat(2u); -x_82 = lean_nat_dec_eq(x_80, x_81); -lean_dec(x_80); -x_34 = x_82; -goto block_72; -} -} -else -{ -lean_object* x_83; lean_object* x_84; +lean_object* x_32; lean_object* x_33; +lean_dec(x_30); +lean_dec(x_29); lean_dec(x_2); -x_83 = l_Lean_Syntax_getArg(x_33, x_9); -lean_dec(x_33); -lean_inc(x_3); -x_84 = l_Lean_Elab_Term_elabType(x_83, x_3, x_4); -if (lean_obj_tag(x_84) == 0) -{ -lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; -x_85 = lean_ctor_get(x_84, 0); -lean_inc(x_85); -x_86 = lean_ctor_get(x_84, 1); -lean_inc(x_86); -lean_dec(x_84); -x_87 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_87, 0, x_85); -lean_inc(x_3); -lean_inc(x_87); -x_88 = l___private_Init_Lean_Elab_Term_10__elabCDot(x_16, x_87, x_3, x_86); -if (lean_obj_tag(x_88) == 0) -{ -lean_object* x_89; lean_object* x_90; lean_object* x_91; -x_89 = lean_ctor_get(x_88, 0); -lean_inc(x_89); -x_90 = lean_ctor_get(x_88, 1); -lean_inc(x_90); -lean_dec(x_88); -x_91 = l_Lean_Elab_Term_ensureHasType(x_1, x_87, x_89, x_3, x_90); +x_32 = l_Lean_Elab_Term_elabParen___closed__3; +x_33 = l_Lean_Elab_Term_throwError___rarg(x_1, x_32, x_3, x_4); lean_dec(x_1); -return x_91; +return x_33; } else { -uint8_t x_92; +lean_object* x_34; lean_object* x_35; uint8_t x_36; +x_34 = l_Lean_Syntax_getArgs(x_30); +x_35 = lean_array_get_size(x_34); +lean_dec(x_34); +x_36 = lean_nat_dec_eq(x_35, x_15); +if (x_36 == 0) +{ +uint8_t x_37; +lean_dec(x_30); +x_37 = lean_nat_dec_eq(x_35, x_23); +lean_dec(x_35); +if (x_37 == 0) +{ +lean_object* x_38; lean_object* x_39; +lean_dec(x_29); +lean_dec(x_2); +x_38 = l_Lean_Elab_Term_elabParen___closed__3; +x_39 = l_Lean_Elab_Term_throwError___rarg(x_1, x_38, x_3, x_4); +lean_dec(x_1); +return x_39; +} +else +{ +lean_object* x_40; +lean_dec(x_1); +x_40 = l___private_Init_Lean_Elab_Term_10__elabCDot(x_29, x_2, x_3, x_4); +return x_40; +} +} +else +{ +lean_object* x_41; lean_object* x_42; uint8_t x_43; +lean_dec(x_35); +x_41 = l_Lean_Syntax_getArg(x_30, x_23); +lean_dec(x_30); +x_42 = l_Lean_Parser_Term_typeAscription___elambda__1___closed__2; +lean_inc(x_41); +x_43 = l_Lean_Syntax_isOfKind(x_41, x_42); +if (x_43 == 0) +{ +lean_object* x_44; uint8_t x_45; +x_44 = l_Lean_Parser_Term_tupleTail___elambda__1___closed__2; +lean_inc(x_41); +x_45 = l_Lean_Syntax_isOfKind(x_41, x_44); +if (x_45 == 0) +{ +lean_object* x_46; lean_object* x_47; +lean_dec(x_41); +lean_dec(x_29); +lean_dec(x_2); +x_46 = l_Lean_Elab_Term_elabParen___closed__3; +x_47 = l_Lean_Elab_Term_throwError___rarg(x_1, x_46, x_3, x_4); +lean_dec(x_1); +return x_47; +} +else +{ +lean_object* x_48; lean_object* x_49; uint8_t x_50; +x_48 = l_Lean_Syntax_getArgs(x_41); +x_49 = lean_array_get_size(x_48); +lean_dec(x_48); +x_50 = lean_nat_dec_eq(x_49, x_25); +lean_dec(x_49); +if (x_50 == 0) +{ +lean_object* x_51; lean_object* x_52; +lean_dec(x_41); +lean_dec(x_29); +lean_dec(x_2); +x_51 = l_Lean_Elab_Term_elabParen___closed__3; +x_52 = l_Lean_Elab_Term_throwError___rarg(x_1, x_51, x_3, x_4); +lean_dec(x_1); +return x_52; +} +else +{ +lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; uint8_t x_63; +x_53 = l_Lean_Syntax_getArg(x_41, x_15); +lean_dec(x_41); +x_54 = l_Lean_Syntax_getArgs(x_53); +lean_dec(x_53); +x_55 = l_Lean_mkOptionalNode___closed__2; +x_56 = lean_array_push(x_55, x_29); +x_57 = l_Array_empty___closed__1; +x_58 = l_Array_foldlStepMAux___main___at_Lean_Elab_Term_elabParen___spec__1(x_25, x_54, x_23, x_57); +lean_dec(x_54); +x_59 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_58, x_58, x_23, x_56); +lean_dec(x_58); +x_60 = l_Lean_Elab_Term_mkPairs(x_59, x_3, x_4); +lean_dec(x_59); +x_61 = lean_ctor_get(x_60, 0); +lean_inc(x_61); +x_62 = lean_ctor_get(x_60, 1); +lean_inc(x_62); +lean_dec(x_60); +x_63 = !lean_is_exclusive(x_3); +if (x_63 == 0) +{ +lean_object* x_64; lean_object* x_65; lean_object* x_66; uint8_t x_67; lean_object* x_68; +x_64 = lean_ctor_get(x_3, 8); +lean_inc(x_61); +x_65 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_65, 0, x_1); +lean_ctor_set(x_65, 1, x_61); +x_66 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_66, 0, x_65); +lean_ctor_set(x_66, 1, x_64); +lean_ctor_set(x_3, 8, x_66); +x_67 = 1; +x_68 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_67, x_61, x_3, x_62); +return x_68; +} +else +{ +lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; uint8_t x_79; uint8_t x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; uint8_t x_84; lean_object* x_85; +x_69 = lean_ctor_get(x_3, 0); +x_70 = lean_ctor_get(x_3, 1); +x_71 = lean_ctor_get(x_3, 2); +x_72 = lean_ctor_get(x_3, 3); +x_73 = lean_ctor_get(x_3, 4); +x_74 = lean_ctor_get(x_3, 5); +x_75 = lean_ctor_get(x_3, 6); +x_76 = lean_ctor_get(x_3, 7); +x_77 = lean_ctor_get(x_3, 8); +x_78 = lean_ctor_get(x_3, 9); +x_79 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); +x_80 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); +lean_inc(x_78); +lean_inc(x_77); +lean_inc(x_76); +lean_inc(x_75); +lean_inc(x_74); +lean_inc(x_73); +lean_inc(x_72); +lean_inc(x_71); +lean_inc(x_70); +lean_inc(x_69); +lean_dec(x_3); +lean_inc(x_61); +x_81 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_81, 0, x_1); +lean_ctor_set(x_81, 1, x_61); +x_82 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_82, 0, x_81); +lean_ctor_set(x_82, 1, x_77); +x_83 = lean_alloc_ctor(0, 10, 2); +lean_ctor_set(x_83, 0, x_69); +lean_ctor_set(x_83, 1, x_70); +lean_ctor_set(x_83, 2, x_71); +lean_ctor_set(x_83, 3, x_72); +lean_ctor_set(x_83, 4, x_73); +lean_ctor_set(x_83, 5, x_74); +lean_ctor_set(x_83, 6, x_75); +lean_ctor_set(x_83, 7, x_76); +lean_ctor_set(x_83, 8, x_82); +lean_ctor_set(x_83, 9, x_78); +lean_ctor_set_uint8(x_83, sizeof(void*)*10, x_79); +lean_ctor_set_uint8(x_83, sizeof(void*)*10 + 1, x_80); +x_84 = 1; +x_85 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_84, x_61, x_83, x_62); +return x_85; +} +} +} +} +else +{ +lean_object* x_86; lean_object* x_87; uint8_t x_88; +lean_dec(x_2); +x_86 = l_Lean_Syntax_getArgs(x_41); +x_87 = lean_array_get_size(x_86); +lean_dec(x_86); +x_88 = lean_nat_dec_eq(x_87, x_25); lean_dec(x_87); -lean_dec(x_3); -lean_dec(x_1); -x_92 = !lean_is_exclusive(x_88); -if (x_92 == 0) +if (x_88 == 0) { -return x_88; +lean_object* x_89; lean_object* x_90; +lean_dec(x_41); +lean_dec(x_29); +x_89 = l_Lean_Elab_Term_elabParen___closed__3; +x_90 = l_Lean_Elab_Term_throwError___rarg(x_1, x_89, x_3, x_4); +lean_dec(x_1); +return x_90; } else { -lean_object* x_93; lean_object* x_94; lean_object* x_95; -x_93 = lean_ctor_get(x_88, 0); -x_94 = lean_ctor_get(x_88, 1); -lean_inc(x_94); +lean_object* x_91; lean_object* x_92; +x_91 = l_Lean_Syntax_getArg(x_41, x_15); +lean_dec(x_41); +lean_inc(x_3); +x_92 = l_Lean_Elab_Term_elabType(x_91, x_3, x_4); +if (lean_obj_tag(x_92) == 0) +{ +lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; +x_93 = lean_ctor_get(x_92, 0); lean_inc(x_93); -lean_dec(x_88); -x_95 = lean_alloc_ctor(1, 2, 0); +x_94 = lean_ctor_get(x_92, 1); +lean_inc(x_94); +lean_dec(x_92); +x_95 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_95, 0, x_93); -lean_ctor_set(x_95, 1, x_94); -return x_95; -} -} -} -else -{ -uint8_t x_96; -lean_dec(x_16); -lean_dec(x_3); -lean_dec(x_1); -x_96 = !lean_is_exclusive(x_84); -if (x_96 == 0) -{ -return x_84; -} -else +lean_inc(x_3); +lean_inc(x_95); +x_96 = l___private_Init_Lean_Elab_Term_10__elabCDot(x_29, x_95, x_3, x_94); +if (lean_obj_tag(x_96) == 0) { lean_object* x_97; lean_object* x_98; lean_object* x_99; -x_97 = lean_ctor_get(x_84, 0); -x_98 = lean_ctor_get(x_84, 1); -lean_inc(x_98); +x_97 = lean_ctor_get(x_96, 0); lean_inc(x_97); -lean_dec(x_84); -x_99 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_99, 0, x_97); -lean_ctor_set(x_99, 1, x_98); +x_98 = lean_ctor_get(x_96, 1); +lean_inc(x_98); +lean_dec(x_96); +x_99 = l_Lean_Elab_Term_ensureHasType(x_1, x_95, x_97, x_3, x_98); +lean_dec(x_1); return x_99; } +else +{ +uint8_t x_100; +lean_dec(x_95); +lean_dec(x_3); +lean_dec(x_1); +x_100 = !lean_is_exclusive(x_96); +if (x_100 == 0) +{ +return x_96; +} +else +{ +lean_object* x_101; lean_object* x_102; lean_object* x_103; +x_101 = lean_ctor_get(x_96, 0); +x_102 = lean_ctor_get(x_96, 1); +lean_inc(x_102); +lean_inc(x_101); +lean_dec(x_96); +x_103 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_103, 0, x_101); +lean_ctor_set(x_103, 1, x_102); +return x_103; } } } else { -lean_object* x_100; lean_object* x_101; lean_object* x_102; uint8_t x_103; uint8_t x_104; -x_100 = l_Lean_Syntax_getArgs(x_33); -x_101 = lean_array_get_size(x_100); -lean_dec(x_100); -x_102 = lean_unsigned_to_nat(2u); -x_103 = lean_nat_dec_eq(x_101, x_102); -lean_dec(x_101); -x_104 = l_coeDecidableEq(x_103); +uint8_t x_104; +lean_dec(x_29); +lean_dec(x_3); +lean_dec(x_1); +x_104 = !lean_is_exclusive(x_92); if (x_104 == 0) { -lean_object* x_105; uint8_t x_106; -x_105 = l_Lean_Parser_Term_tupleTail___elambda__1___closed__2; -lean_inc(x_33); -x_106 = l_Lean_Syntax_isOfKind(x_33, x_105); -if (x_106 == 0) -{ -uint8_t x_107; -x_107 = 0; -x_34 = x_107; -goto block_72; +return x_92; } else { -x_34 = x_103; -goto block_72; +lean_object* x_105; lean_object* x_106; lean_object* x_107; +x_105 = lean_ctor_get(x_92, 0); +x_106 = lean_ctor_get(x_92, 1); +lean_inc(x_106); +lean_inc(x_105); +lean_dec(x_92); +x_107 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_107, 0, x_105); +lean_ctor_set(x_107, 1, x_106); +return x_107; +} +} +} +} +} +} } } else { lean_object* x_108; lean_object* x_109; -lean_dec(x_2); -x_108 = l_Lean_Syntax_getArg(x_33, x_9); -lean_dec(x_33); -lean_inc(x_3); -x_109 = l_Lean_Elab_Term_elabType(x_108, x_3, x_4); -if (lean_obj_tag(x_109) == 0) -{ -lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; -x_110 = lean_ctor_get(x_109, 0); -lean_inc(x_110); -x_111 = lean_ctor_get(x_109, 1); -lean_inc(x_111); -lean_dec(x_109); -x_112 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_112, 0, x_110); -lean_inc(x_3); -lean_inc(x_112); -x_113 = l___private_Init_Lean_Elab_Term_10__elabCDot(x_16, x_112, x_3, x_111); -if (lean_obj_tag(x_113) == 0) -{ -lean_object* x_114; lean_object* x_115; lean_object* x_116; -x_114 = lean_ctor_get(x_113, 0); -lean_inc(x_114); -x_115 = lean_ctor_get(x_113, 1); -lean_inc(x_115); -lean_dec(x_113); -x_116 = l_Lean_Elab_Term_ensureHasType(x_1, x_112, x_114, x_3, x_115); -lean_dec(x_1); -return x_116; -} -else -{ -uint8_t x_117; -lean_dec(x_112); -lean_dec(x_3); -lean_dec(x_1); -x_117 = !lean_is_exclusive(x_113); -if (x_117 == 0) -{ -return x_113; -} -else -{ -lean_object* x_118; lean_object* x_119; lean_object* x_120; -x_118 = lean_ctor_get(x_113, 0); -x_119 = lean_ctor_get(x_113, 1); -lean_inc(x_119); -lean_inc(x_118); -lean_dec(x_113); -x_120 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_120, 0, x_118); -lean_ctor_set(x_120, 1, x_119); -return x_120; -} -} -} -else -{ -uint8_t x_121; +lean_dec(x_22); lean_dec(x_16); lean_dec(x_3); +lean_dec(x_2); lean_dec(x_1); -x_121 = !lean_is_exclusive(x_109); -if (x_121 == 0) -{ +x_108 = l_Lean_Elab_Term_elabParen___closed__6; +x_109 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_109, 0, x_108); +lean_ctor_set(x_109, 1, x_4); return x_109; } -else -{ -lean_object* x_122; lean_object* x_123; lean_object* x_124; -x_122 = lean_ctor_get(x_109, 0); -x_123 = lean_ctor_get(x_109, 1); -lean_inc(x_123); -lean_inc(x_122); -lean_dec(x_109); -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; -} -} -} -} -block_72: -{ -uint8_t x_35; -x_35 = l_coeDecidableEq(x_34); -if (x_35 == 0) -{ -lean_object* x_36; lean_object* x_37; -lean_dec(x_33); -lean_dec(x_16); -lean_dec(x_2); -x_36 = l_Lean_Elab_Term_elabParen___closed__3; -x_37 = l_Lean_Elab_Term_throwError___rarg(x_1, x_36, x_3, x_4); -lean_dec(x_1); -return x_37; -} -else -{ -lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; uint8_t x_49; -x_38 = l_Lean_Syntax_getArg(x_33, x_9); -lean_dec(x_33); -x_39 = l_Lean_Syntax_getArgs(x_38); -lean_dec(x_38); -x_40 = l_Lean_mkOptionalNode___closed__2; -x_41 = lean_array_push(x_40, x_16); -x_42 = lean_unsigned_to_nat(2u); -x_43 = l_Array_empty___closed__1; -x_44 = l_Array_foldlStepMAux___main___at_Lean_Elab_Term_elabParen___spec__1(x_42, x_39, x_15, x_43); -lean_dec(x_39); -x_45 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_44, x_44, x_15, x_41); -lean_dec(x_44); -x_46 = l_Lean_Elab_Term_mkPairs(x_45, x_3, x_4); -lean_dec(x_45); -x_47 = lean_ctor_get(x_46, 0); -lean_inc(x_47); -x_48 = lean_ctor_get(x_46, 1); -lean_inc(x_48); -lean_dec(x_46); -x_49 = !lean_is_exclusive(x_3); -if (x_49 == 0) -{ -lean_object* x_50; lean_object* x_51; lean_object* x_52; uint8_t x_53; lean_object* x_54; -x_50 = lean_ctor_get(x_3, 8); -lean_inc(x_47); -x_51 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_51, 0, x_1); -lean_ctor_set(x_51, 1, x_47); -x_52 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_52, 0, x_51); -lean_ctor_set(x_52, 1, x_50); -lean_ctor_set(x_3, 8, x_52); -x_53 = 1; -x_54 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_53, x_47, x_3, x_48); -return x_54; -} -else -{ -lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; uint8_t x_65; uint8_t x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; uint8_t x_70; lean_object* x_71; -x_55 = lean_ctor_get(x_3, 0); -x_56 = lean_ctor_get(x_3, 1); -x_57 = lean_ctor_get(x_3, 2); -x_58 = lean_ctor_get(x_3, 3); -x_59 = lean_ctor_get(x_3, 4); -x_60 = lean_ctor_get(x_3, 5); -x_61 = lean_ctor_get(x_3, 6); -x_62 = lean_ctor_get(x_3, 7); -x_63 = lean_ctor_get(x_3, 8); -x_64 = lean_ctor_get(x_3, 9); -x_65 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); -x_66 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); -lean_inc(x_64); -lean_inc(x_63); -lean_inc(x_62); -lean_inc(x_61); -lean_inc(x_60); -lean_inc(x_59); -lean_inc(x_58); -lean_inc(x_57); -lean_inc(x_56); -lean_inc(x_55); -lean_dec(x_3); -lean_inc(x_47); -x_67 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_67, 0, x_1); -lean_ctor_set(x_67, 1, x_47); -x_68 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_68, 0, x_67); -lean_ctor_set(x_68, 1, x_63); -x_69 = lean_alloc_ctor(0, 10, 2); -lean_ctor_set(x_69, 0, x_55); -lean_ctor_set(x_69, 1, x_56); -lean_ctor_set(x_69, 2, x_57); -lean_ctor_set(x_69, 3, x_58); -lean_ctor_set(x_69, 4, x_59); -lean_ctor_set(x_69, 5, x_60); -lean_ctor_set(x_69, 6, x_61); -lean_ctor_set(x_69, 7, x_62); -lean_ctor_set(x_69, 8, x_68); -lean_ctor_set(x_69, 9, x_64); -lean_ctor_set_uint8(x_69, sizeof(void*)*10, x_65); -lean_ctor_set_uint8(x_69, sizeof(void*)*10 + 1, x_66); -x_70 = 1; -x_71 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_70, x_47, x_69, x_48); -return x_71; -} -} -} -} -} -} } } } @@ -19285,33 +18877,10 @@ return x_3; lean_object* l_Lean_Elab_Term_elabArrayLit(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -uint8_t x_5; lean_object* x_70; uint8_t x_71; -x_70 = l_Lean_Parser_Term_arrayLit___elambda__1___closed__2; +lean_object* x_5; uint8_t x_6; +x_5 = l_Lean_Parser_Term_arrayLit___elambda__1___closed__2; lean_inc(x_1); -x_71 = l_Lean_Syntax_isOfKind(x_1, x_70); -if (x_71 == 0) -{ -uint8_t x_72; -x_72 = 0; -x_5 = x_72; -goto block_69; -} -else -{ -lean_object* x_73; lean_object* x_74; lean_object* x_75; uint8_t x_76; -x_73 = l_Lean_Syntax_getArgs(x_1); -x_74 = lean_array_get_size(x_73); -lean_dec(x_73); -x_75 = lean_unsigned_to_nat(3u); -x_76 = lean_nat_dec_eq(x_74, x_75); -lean_dec(x_74); -x_5 = x_76; -goto block_69; -} -block_69: -{ -uint8_t x_6; -x_6 = l_coeDecidableEq(x_5); +x_6 = l_Lean_Syntax_isOfKind(x_1, x_5); if (x_6 == 0) { lean_object* x_7; lean_object* x_8; @@ -19323,132 +18892,150 @@ return x_8; } else { -lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; 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_45; uint8_t x_46; -x_9 = lean_unsigned_to_nat(1u); -x_10 = l_Lean_Syntax_getArg(x_1, x_9); -x_11 = l_Lean_Syntax_getArgs(x_10); +lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; +x_9 = l_Lean_Syntax_getArgs(x_1); +x_10 = lean_array_get_size(x_9); +lean_dec(x_9); +x_11 = lean_unsigned_to_nat(3u); +x_12 = lean_nat_dec_eq(x_10, x_11); lean_dec(x_10); -x_12 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4); -x_13 = lean_ctor_get(x_12, 0); -lean_inc(x_13); -x_14 = lean_ctor_get(x_12, 1); -lean_inc(x_14); -lean_dec(x_12); -x_15 = l_Lean_Elab_Term_getMainModule___rarg(x_14); -x_16 = lean_ctor_get(x_15, 0); -lean_inc(x_16); -x_17 = lean_ctor_get(x_15, 1); -lean_inc(x_17); -lean_dec(x_15); -x_18 = lean_box(0); -x_19 = l_Lean_Elab_Term_elabArrayLit___closed__8; -x_20 = l_Lean_addMacroScope(x_16, x_19, x_13); -x_21 = l_Lean_Elab_Term_elabArrayLit___closed__6; -x_22 = l_Lean_Elab_Term_elabArrayLit___closed__10; -x_23 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_23, 0, x_18); -lean_ctor_set(x_23, 1, x_21); -lean_ctor_set(x_23, 2, x_20); -lean_ctor_set(x_23, 3, x_22); -x_24 = l_Array_empty___closed__1; -x_25 = lean_array_push(x_24, x_23); -x_26 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_27 = lean_array_push(x_25, x_26); -x_28 = l_Lean_mkTermIdFromIdent___closed__2; -x_29 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_29, 0, x_28); -lean_ctor_set(x_29, 1, x_27); -x_30 = lean_array_push(x_24, x_29); -x_31 = lean_unsigned_to_nat(0u); -x_32 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_11, x_11, x_31, x_24); -lean_dec(x_11); -x_33 = l_Lean_nullKind___closed__2; -x_34 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_34, 0, x_33); -lean_ctor_set(x_34, 1, x_32); -x_35 = l_Lean_Elab_Term_elabArrayLit___closed__12; -x_36 = lean_array_push(x_35, x_34); -x_37 = l_Lean_Elab_Term_elabArrayLit___closed__13; -x_38 = lean_array_push(x_36, x_37); -x_39 = l_Lean_Parser_Term_listLit___elambda__1___closed__2; -x_40 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_40, 0, x_39); -lean_ctor_set(x_40, 1, x_38); -x_41 = lean_array_push(x_24, x_40); -x_42 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_42, 0, x_33); -lean_ctor_set(x_42, 1, x_41); -x_43 = lean_array_push(x_30, x_42); -x_44 = l_Lean_mkAppStx___closed__8; -x_45 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_45, 0, x_44); -lean_ctor_set(x_45, 1, x_43); -x_46 = !lean_is_exclusive(x_3); -if (x_46 == 0) +if (x_12 == 0) { -lean_object* x_47; lean_object* x_48; lean_object* x_49; uint8_t x_50; lean_object* x_51; -x_47 = lean_ctor_get(x_3, 8); -lean_inc(x_45); -x_48 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_48, 0, x_1); -lean_ctor_set(x_48, 1, x_45); -x_49 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_49, 0, x_48); -lean_ctor_set(x_49, 1, x_47); -lean_ctor_set(x_3, 8, x_49); -x_50 = 1; -x_51 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_50, x_45, x_3, x_17); -return x_51; +lean_object* x_13; lean_object* x_14; +lean_dec(x_2); +x_13 = l_Lean_Elab_Term_elabArrayLit___closed__3; +x_14 = l_Lean_Elab_Term_throwError___rarg(x_1, x_13, x_3, x_4); +lean_dec(x_1); +return x_14; } else { -lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; uint8_t x_62; uint8_t x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; uint8_t x_67; lean_object* x_68; -x_52 = lean_ctor_get(x_3, 0); -x_53 = lean_ctor_get(x_3, 1); -x_54 = lean_ctor_get(x_3, 2); -x_55 = lean_ctor_get(x_3, 3); -x_56 = lean_ctor_get(x_3, 4); -x_57 = lean_ctor_get(x_3, 5); -x_58 = lean_ctor_get(x_3, 6); -x_59 = lean_ctor_get(x_3, 7); -x_60 = lean_ctor_get(x_3, 8); -x_61 = lean_ctor_get(x_3, 9); -x_62 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); -x_63 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; 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_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; uint8_t x_52; +x_15 = lean_unsigned_to_nat(1u); +x_16 = l_Lean_Syntax_getArg(x_1, x_15); +x_17 = l_Lean_Syntax_getArgs(x_16); +lean_dec(x_16); +x_18 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4); +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_18, 1); +lean_inc(x_20); +lean_dec(x_18); +x_21 = l_Lean_Elab_Term_getMainModule___rarg(x_20); +x_22 = lean_ctor_get(x_21, 0); +lean_inc(x_22); +x_23 = lean_ctor_get(x_21, 1); +lean_inc(x_23); +lean_dec(x_21); +x_24 = lean_box(0); +x_25 = l_Lean_Elab_Term_elabArrayLit___closed__8; +x_26 = l_Lean_addMacroScope(x_22, x_25, x_19); +x_27 = l_Lean_Elab_Term_elabArrayLit___closed__6; +x_28 = l_Lean_Elab_Term_elabArrayLit___closed__10; +x_29 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_29, 0, x_24); +lean_ctor_set(x_29, 1, x_27); +lean_ctor_set(x_29, 2, x_26); +lean_ctor_set(x_29, 3, x_28); +x_30 = l_Array_empty___closed__1; +x_31 = lean_array_push(x_30, x_29); +x_32 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_33 = lean_array_push(x_31, x_32); +x_34 = l_Lean_mkTermIdFromIdent___closed__2; +x_35 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_35, 0, x_34); +lean_ctor_set(x_35, 1, x_33); +x_36 = lean_array_push(x_30, x_35); +x_37 = lean_unsigned_to_nat(0u); +x_38 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_17, x_17, x_37, x_30); +lean_dec(x_17); +x_39 = l_Lean_nullKind___closed__2; +x_40 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_40, 0, x_39); +lean_ctor_set(x_40, 1, x_38); +x_41 = l_Lean_Elab_Term_elabArrayLit___closed__12; +x_42 = lean_array_push(x_41, x_40); +x_43 = l_Lean_Elab_Term_elabArrayLit___closed__13; +x_44 = lean_array_push(x_42, x_43); +x_45 = l_Lean_Parser_Term_listLit___elambda__1___closed__2; +x_46 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_46, 0, x_45); +lean_ctor_set(x_46, 1, x_44); +x_47 = lean_array_push(x_30, x_46); +x_48 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_48, 0, x_39); +lean_ctor_set(x_48, 1, x_47); +x_49 = lean_array_push(x_36, x_48); +x_50 = l_Lean_mkAppStx___closed__8; +x_51 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_51, 0, x_50); +lean_ctor_set(x_51, 1, x_49); +x_52 = !lean_is_exclusive(x_3); +if (x_52 == 0) +{ +lean_object* x_53; lean_object* x_54; lean_object* x_55; uint8_t x_56; lean_object* x_57; +x_53 = lean_ctor_get(x_3, 8); +lean_inc(x_51); +x_54 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_54, 0, x_1); +lean_ctor_set(x_54, 1, x_51); +x_55 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_55, 0, x_54); +lean_ctor_set(x_55, 1, x_53); +lean_ctor_set(x_3, 8, x_55); +x_56 = 1; +x_57 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_56, x_51, x_3, x_23); +return x_57; +} +else +{ +lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; uint8_t x_68; uint8_t x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; uint8_t x_73; lean_object* x_74; +x_58 = lean_ctor_get(x_3, 0); +x_59 = lean_ctor_get(x_3, 1); +x_60 = lean_ctor_get(x_3, 2); +x_61 = lean_ctor_get(x_3, 3); +x_62 = lean_ctor_get(x_3, 4); +x_63 = lean_ctor_get(x_3, 5); +x_64 = lean_ctor_get(x_3, 6); +x_65 = lean_ctor_get(x_3, 7); +x_66 = lean_ctor_get(x_3, 8); +x_67 = lean_ctor_get(x_3, 9); +x_68 = lean_ctor_get_uint8(x_3, sizeof(void*)*10); +x_69 = lean_ctor_get_uint8(x_3, sizeof(void*)*10 + 1); +lean_inc(x_67); +lean_inc(x_66); +lean_inc(x_65); +lean_inc(x_64); +lean_inc(x_63); +lean_inc(x_62); lean_inc(x_61); lean_inc(x_60); lean_inc(x_59); lean_inc(x_58); -lean_inc(x_57); -lean_inc(x_56); -lean_inc(x_55); -lean_inc(x_54); -lean_inc(x_53); -lean_inc(x_52); lean_dec(x_3); -lean_inc(x_45); -x_64 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_64, 0, x_1); -lean_ctor_set(x_64, 1, x_45); -x_65 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_65, 0, x_64); -lean_ctor_set(x_65, 1, x_60); -x_66 = lean_alloc_ctor(0, 10, 2); -lean_ctor_set(x_66, 0, x_52); -lean_ctor_set(x_66, 1, x_53); -lean_ctor_set(x_66, 2, x_54); -lean_ctor_set(x_66, 3, x_55); -lean_ctor_set(x_66, 4, x_56); -lean_ctor_set(x_66, 5, x_57); -lean_ctor_set(x_66, 6, x_58); -lean_ctor_set(x_66, 7, x_59); -lean_ctor_set(x_66, 8, x_65); -lean_ctor_set(x_66, 9, x_61); -lean_ctor_set_uint8(x_66, sizeof(void*)*10, x_62); -lean_ctor_set_uint8(x_66, sizeof(void*)*10 + 1, x_63); -x_67 = 1; -x_68 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_67, x_45, x_66, x_17); -return x_68; +lean_inc(x_51); +x_70 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_70, 0, x_1); +lean_ctor_set(x_70, 1, x_51); +x_71 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_71, 0, x_70); +lean_ctor_set(x_71, 1, x_66); +x_72 = lean_alloc_ctor(0, 10, 2); +lean_ctor_set(x_72, 0, x_58); +lean_ctor_set(x_72, 1, x_59); +lean_ctor_set(x_72, 2, x_60); +lean_ctor_set(x_72, 3, x_61); +lean_ctor_set(x_72, 4, x_62); +lean_ctor_set(x_72, 5, x_63); +lean_ctor_set(x_72, 6, x_64); +lean_ctor_set(x_72, 7, x_65); +lean_ctor_set(x_72, 8, x_71); +lean_ctor_set(x_72, 9, x_67); +lean_ctor_set_uint8(x_72, sizeof(void*)*10, x_68); +lean_ctor_set_uint8(x_72, sizeof(void*)*10 + 1, x_69); +x_73 = 1; +x_74 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_73, x_51, x_72, x_23); +return x_74; } } } @@ -21552,8 +21139,6 @@ l_Lean_Elab_Term_mkFreshInstanceName___rarg___closed__1 = _init_l_Lean_Elab_Term lean_mark_persistent(l_Lean_Elab_Term_mkFreshInstanceName___rarg___closed__1); l_Lean_Elab_Term_mkFreshInstanceName___rarg___closed__2 = _init_l_Lean_Elab_Term_mkFreshInstanceName___rarg___closed__2(); lean_mark_persistent(l_Lean_Elab_Term_mkFreshInstanceName___rarg___closed__2); -l___private_Init_Lean_Elab_Term_4__isCDot___closed__1 = _init_l___private_Init_Lean_Elab_Term_4__isCDot___closed__1(); -l___private_Init_Lean_Elab_Term_4__isCDot___closed__2 = _init_l___private_Init_Lean_Elab_Term_4__isCDot___closed__2(); l___private_Init_Lean_Elab_Term_5__expandCDot___closed__1 = _init_l___private_Init_Lean_Elab_Term_5__expandCDot___closed__1(); lean_mark_persistent(l___private_Init_Lean_Elab_Term_5__expandCDot___closed__1); l___private_Init_Lean_Elab_Term_5__expandCDot___closed__2 = _init_l___private_Init_Lean_Elab_Term_5__expandCDot___closed__2(); diff --git a/stage0/stdlib/Init/Lean/Elab/TermApp.c b/stage0/stdlib/Init/Lean/Elab/TermApp.c index 30bfa885f3..5a575f394f 100644 --- a/stage0/stdlib/Init/Lean/Elab/TermApp.c +++ b/stage0/stdlib/Init/Lean/Elab/TermApp.c @@ -52,7 +52,6 @@ lean_object* l___private_Init_Lean_Elab_TermApp_17__toMessageData___closed__2; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabId___closed__2; lean_object* lean_array_fswap(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_identKind___closed__2; -extern uint8_t l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; lean_object* l___private_Init_Lean_Elab_TermApp_15__elabAppFn___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Prod_HasRepr___rarg___closed__1; lean_object* l___private_Init_Lean_Elab_TermApp_7__resolveLValAux___closed__7; @@ -193,7 +192,6 @@ lean_object* l___private_Init_Lean_Elab_TermApp_17__toMessageData___boxed(lean_o lean_object* l_Lean_Elab_Term_elabApp(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_getPathToBaseStructure_x3f(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_TermApp_7__resolveLValAux___closed__23; -uint8_t l_coeDecidableEq(uint8_t); lean_object* l_Lean_FileMap_toPosition(lean_object*, lean_object*); uint8_t l_Array_isEmpty___rarg(lean_object*); lean_object* l___private_Init_Lean_Elab_TermApp_7__resolveLValAux___closed__21; @@ -6219,1875 +6217,1654 @@ return x_26; lean_object* l___private_Init_Lean_Elab_TermApp_15__elabAppFn___main(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) { _start: { -uint8_t x_11; uint8_t x_181; -x_181 = l_Lean_Syntax_isIdent(x_2); -if (x_181 == 0) +uint8_t x_11; +x_11 = l_Lean_Syntax_isIdent(x_2); +if (x_11 == 0) { -lean_object* x_182; lean_object* x_183; uint8_t x_184; +lean_object* x_12; lean_object* x_13; uint8_t x_14; lean_inc(x_2); -x_182 = l_Lean_Syntax_getKind(x_2); -x_183 = l_Lean_choiceKind; -x_184 = lean_name_eq(x_182, x_183); -lean_dec(x_182); -if (x_184 == 0) +x_12 = l_Lean_Syntax_getKind(x_2); +x_13 = l_Lean_choiceKind; +x_14 = lean_name_eq(x_12, x_13); +lean_dec(x_12); +if (x_14 == 0) { -uint8_t x_185; uint8_t x_324; lean_object* x_414; uint8_t x_415; -x_414 = l_Lean_Parser_Term_explicit___elambda__1___closed__2; +lean_object* x_15; lean_object* x_262; lean_object* x_398; uint8_t x_399; +x_398 = l_Lean_Parser_Term_explicit___elambda__1___closed__2; lean_inc(x_2); -x_415 = l_Lean_Syntax_isOfKind(x_2, x_414); -if (x_415 == 0) +x_399 = l_Lean_Syntax_isOfKind(x_2, x_398); +if (x_399 == 0) { -uint8_t x_416; -x_416 = 0; -x_324 = x_416; -goto block_413; +lean_object* x_400; +x_400 = lean_box(0); +x_262 = x_400; +goto block_397; } else { -lean_object* x_417; lean_object* x_418; lean_object* x_419; uint8_t x_420; -x_417 = l_Lean_Syntax_getArgs(x_2); -x_418 = lean_array_get_size(x_417); -lean_dec(x_417); -x_419 = lean_unsigned_to_nat(2u); -x_420 = lean_nat_dec_eq(x_418, x_419); -lean_dec(x_418); -x_324 = x_420; -goto block_413; -} -block_323: +lean_object* x_401; lean_object* x_402; lean_object* x_403; uint8_t x_404; +x_401 = l_Lean_Syntax_getArgs(x_2); +x_402 = lean_array_get_size(x_401); +lean_dec(x_401); +x_403 = lean_unsigned_to_nat(2u); +x_404 = lean_nat_dec_eq(x_402, x_403); +lean_dec(x_402); +if (x_404 == 0) { -uint8_t x_186; -x_186 = l_coeDecidableEq(x_185); -if (x_186 == 0) -{ -lean_object* x_187; uint8_t x_188; -x_187 = l_Lean_Parser_Term_arrayRef___elambda__1___closed__2; -lean_inc(x_2); -x_188 = l_Lean_Syntax_isOfKind(x_2, x_187); -if (x_188 == 0) -{ -uint8_t x_189; -x_189 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_189 == 0) -{ -lean_object* x_190; uint8_t x_191; -x_190 = l_Lean_mkTermIdFromIdent___closed__2; -lean_inc(x_2); -x_191 = l_Lean_Syntax_isOfKind(x_2, x_190); -if (x_191 == 0) -{ -uint8_t x_192; -x_192 = 0; -x_11 = x_192; -goto block_180; +lean_object* x_405; +x_405 = lean_box(0); +x_262 = x_405; +goto block_397; } else { -lean_object* x_193; lean_object* x_194; lean_object* x_195; uint8_t x_196; -x_193 = l_Lean_Syntax_getArgs(x_2); -x_194 = lean_array_get_size(x_193); -lean_dec(x_193); -x_195 = lean_unsigned_to_nat(2u); -x_196 = lean_nat_dec_eq(x_194, x_195); -lean_dec(x_194); -x_11 = x_196; -goto block_180; -} -} -else -{ -lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; -x_197 = lean_unsigned_to_nat(0u); -x_198 = l_Lean_Syntax_getArg(x_2, x_197); -x_199 = lean_unsigned_to_nat(2u); -x_200 = l_Lean_Syntax_getArg(x_2, x_199); -lean_dec(x_2); -x_201 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_201, 0, x_200); -x_202 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_202, 0, x_201); -lean_ctor_set(x_202, 1, x_3); -x_2 = x_198; -x_3 = x_202; -goto _start; -} -} -else -{ -lean_object* x_204; lean_object* x_205; lean_object* x_206; uint8_t x_207; uint8_t x_208; -x_204 = l_Lean_Syntax_getArgs(x_2); -x_205 = lean_array_get_size(x_204); -lean_dec(x_204); -x_206 = lean_unsigned_to_nat(4u); -x_207 = lean_nat_dec_eq(x_205, x_206); -x_208 = l_coeDecidableEq(x_207); -if (x_208 == 0) -{ -lean_object* x_209; uint8_t x_210; -x_209 = l_Lean_mkTermIdFromIdent___closed__2; -lean_inc(x_2); -x_210 = l_Lean_Syntax_isOfKind(x_2, x_209); -if (x_210 == 0) -{ -uint8_t x_211; -lean_dec(x_205); -x_211 = 0; -x_11 = x_211; -goto block_180; -} -else -{ -lean_object* x_212; uint8_t x_213; -x_212 = lean_unsigned_to_nat(2u); -x_213 = lean_nat_dec_eq(x_205, x_212); -lean_dec(x_205); -x_11 = x_213; -goto block_180; -} -} -else -{ -lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; -lean_dec(x_205); -x_214 = lean_unsigned_to_nat(0u); -x_215 = l_Lean_Syntax_getArg(x_2, x_214); -x_216 = lean_unsigned_to_nat(2u); -x_217 = l_Lean_Syntax_getArg(x_2, x_216); -lean_dec(x_2); -x_218 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_218, 0, x_217); -x_219 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_219, 0, x_218); -lean_ctor_set(x_219, 1, x_3); -x_2 = x_215; -x_3 = x_219; -goto _start; -} -} -} -else -{ -lean_object* x_221; lean_object* x_222; lean_object* x_223; uint8_t x_224; uint8_t x_225; -x_221 = lean_unsigned_to_nat(2u); -x_222 = l_Lean_Syntax_getArg(x_2, x_221); -x_223 = l_Lean_fieldIdxKind___closed__2; -lean_inc(x_222); -x_224 = l_Lean_Syntax_isOfKind(x_222, x_223); -x_225 = l_coeDecidableEq(x_224); -if (x_225 == 0) -{ -lean_object* x_226; uint8_t x_227; uint8_t x_228; -x_226 = l_Lean_identKind___closed__2; -lean_inc(x_222); -x_227 = l_Lean_Syntax_isOfKind(x_222, x_226); -x_228 = l_coeDecidableEq(x_227); -if (x_228 == 0) -{ -lean_object* x_229; uint8_t x_230; lean_object* x_231; -lean_dec(x_222); -x_229 = lean_box(0); -x_230 = 1; -lean_inc(x_10); -lean_inc(x_9); -x_231 = l_Lean_Elab_Term_elabTermAux___main(x_229, x_230, x_2, x_9, x_10); -if (lean_obj_tag(x_231) == 0) -{ -uint8_t x_232; -x_232 = !lean_is_exclusive(x_231); -if (x_232 == 0) -{ -lean_object* x_233; lean_object* x_234; lean_object* x_235; -x_233 = lean_ctor_get(x_231, 0); -x_234 = lean_ctor_get(x_231, 1); -x_235 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_233, x_3, x_4, x_5, x_6, x_7, x_9, x_234); -if (lean_obj_tag(x_235) == 0) -{ -uint8_t x_236; -x_236 = !lean_is_exclusive(x_235); -if (x_236 == 0) -{ -lean_object* x_237; -x_237 = lean_array_push(x_8, x_235); -lean_ctor_set(x_231, 1, x_10); -lean_ctor_set(x_231, 0, x_237); -return x_231; -} -else -{ -lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; -x_238 = lean_ctor_get(x_235, 0); -x_239 = lean_ctor_get(x_235, 1); -lean_inc(x_239); -lean_inc(x_238); -lean_dec(x_235); -x_240 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_240, 0, x_238); -lean_ctor_set(x_240, 1, x_239); -x_241 = lean_array_push(x_8, x_240); -lean_ctor_set(x_231, 1, x_10); -lean_ctor_set(x_231, 0, x_241); -return x_231; -} -} -else -{ -lean_object* x_242; -x_242 = lean_ctor_get(x_235, 0); -lean_inc(x_242); -if (lean_obj_tag(x_242) == 0) -{ -lean_object* x_243; -x_243 = lean_ctor_get(x_242, 0); -lean_inc(x_243); -if (lean_obj_tag(x_243) == 0) -{ -uint8_t x_244; -lean_dec(x_242); -x_244 = !lean_is_exclusive(x_235); -if (x_244 == 0) -{ -lean_object* x_245; lean_object* x_246; lean_object* x_247; -x_245 = lean_ctor_get(x_235, 0); -lean_dec(x_245); -x_246 = lean_ctor_get(x_243, 0); -lean_inc(x_246); -lean_dec(x_243); -lean_ctor_set(x_235, 0, x_246); -x_247 = lean_array_push(x_8, x_235); -lean_ctor_set(x_231, 1, x_10); -lean_ctor_set(x_231, 0, x_247); -return x_231; -} -else -{ -lean_object* x_248; lean_object* x_249; lean_object* x_250; lean_object* x_251; -x_248 = lean_ctor_get(x_235, 1); -lean_inc(x_248); -lean_dec(x_235); -x_249 = lean_ctor_get(x_243, 0); -lean_inc(x_249); -lean_dec(x_243); -x_250 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_250, 0, x_249); -lean_ctor_set(x_250, 1, x_248); -x_251 = lean_array_push(x_8, x_250); -lean_ctor_set(x_231, 1, x_10); -lean_ctor_set(x_231, 0, x_251); -return x_231; -} -} -else -{ -uint8_t x_252; -lean_free_object(x_231); -lean_dec(x_10); -lean_dec(x_8); -x_252 = !lean_is_exclusive(x_235); -if (x_252 == 0) -{ -lean_object* x_253; -x_253 = lean_ctor_get(x_235, 0); -lean_dec(x_253); -return x_235; -} -else -{ -lean_object* x_254; lean_object* x_255; -x_254 = lean_ctor_get(x_235, 1); -lean_inc(x_254); -lean_dec(x_235); -x_255 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_255, 0, x_242); -lean_ctor_set(x_255, 1, x_254); -return x_255; -} -} -} -else -{ -uint8_t x_256; -lean_free_object(x_231); -lean_dec(x_8); -x_256 = !lean_is_exclusive(x_235); -if (x_256 == 0) -{ -lean_object* x_257; lean_object* x_258; -x_257 = lean_ctor_get(x_235, 1); -lean_dec(x_257); -x_258 = lean_ctor_get(x_235, 0); -lean_dec(x_258); -lean_ctor_set(x_235, 1, x_10); -return x_235; -} -else -{ -lean_object* x_259; -lean_dec(x_235); -x_259 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_259, 0, x_242); -lean_ctor_set(x_259, 1, x_10); -return x_259; -} -} -} -} -else -{ -lean_object* x_260; lean_object* x_261; lean_object* x_262; -x_260 = lean_ctor_get(x_231, 0); -x_261 = lean_ctor_get(x_231, 1); -lean_inc(x_261); -lean_inc(x_260); -lean_dec(x_231); -x_262 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_260, x_3, x_4, x_5, x_6, x_7, x_9, x_261); -if (lean_obj_tag(x_262) == 0) -{ -lean_object* x_263; lean_object* x_264; lean_object* x_265; lean_object* x_266; lean_object* x_267; lean_object* x_268; -x_263 = lean_ctor_get(x_262, 0); -lean_inc(x_263); -x_264 = lean_ctor_get(x_262, 1); -lean_inc(x_264); -if (lean_is_exclusive(x_262)) { - lean_ctor_release(x_262, 0); - lean_ctor_release(x_262, 1); - x_265 = x_262; -} else { - lean_dec_ref(x_262); - x_265 = lean_box(0); -} -if (lean_is_scalar(x_265)) { - x_266 = lean_alloc_ctor(0, 2, 0); -} else { - x_266 = x_265; -} -lean_ctor_set(x_266, 0, x_263); -lean_ctor_set(x_266, 1, x_264); -x_267 = lean_array_push(x_8, x_266); -x_268 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_268, 0, x_267); -lean_ctor_set(x_268, 1, x_10); -return x_268; -} -else -{ -lean_object* x_269; -x_269 = lean_ctor_get(x_262, 0); -lean_inc(x_269); -if (lean_obj_tag(x_269) == 0) -{ -lean_object* x_270; -x_270 = lean_ctor_get(x_269, 0); -lean_inc(x_270); -if (lean_obj_tag(x_270) == 0) -{ -lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; lean_object* x_275; lean_object* x_276; -lean_dec(x_269); -x_271 = lean_ctor_get(x_262, 1); -lean_inc(x_271); -if (lean_is_exclusive(x_262)) { - lean_ctor_release(x_262, 0); - lean_ctor_release(x_262, 1); - x_272 = x_262; -} else { - lean_dec_ref(x_262); - x_272 = lean_box(0); -} -x_273 = lean_ctor_get(x_270, 0); -lean_inc(x_273); -lean_dec(x_270); -if (lean_is_scalar(x_272)) { - x_274 = lean_alloc_ctor(1, 2, 0); -} else { - x_274 = x_272; -} -lean_ctor_set(x_274, 0, x_273); -lean_ctor_set(x_274, 1, x_271); -x_275 = lean_array_push(x_8, x_274); -x_276 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_276, 0, x_275); -lean_ctor_set(x_276, 1, x_10); -return x_276; -} -else -{ -lean_object* x_277; lean_object* x_278; lean_object* x_279; -lean_dec(x_10); -lean_dec(x_8); -x_277 = lean_ctor_get(x_262, 1); -lean_inc(x_277); -if (lean_is_exclusive(x_262)) { - lean_ctor_release(x_262, 0); - lean_ctor_release(x_262, 1); - x_278 = x_262; -} else { - lean_dec_ref(x_262); - x_278 = lean_box(0); -} -if (lean_is_scalar(x_278)) { - x_279 = lean_alloc_ctor(1, 2, 0); -} else { - x_279 = x_278; -} -lean_ctor_set(x_279, 0, x_269); -lean_ctor_set(x_279, 1, x_277); -return x_279; -} -} -else -{ -lean_object* x_280; lean_object* x_281; -lean_dec(x_8); -if (lean_is_exclusive(x_262)) { - lean_ctor_release(x_262, 0); - lean_ctor_release(x_262, 1); - x_280 = x_262; -} else { - lean_dec_ref(x_262); - x_280 = lean_box(0); -} -if (lean_is_scalar(x_280)) { - x_281 = lean_alloc_ctor(1, 2, 0); -} else { - x_281 = x_280; -} -lean_ctor_set(x_281, 0, x_269); -lean_ctor_set(x_281, 1, x_10); -return x_281; -} -} -} -} -else -{ -lean_object* x_282; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_1); -x_282 = lean_ctor_get(x_231, 0); -lean_inc(x_282); -if (lean_obj_tag(x_282) == 0) -{ -lean_object* x_283; -x_283 = lean_ctor_get(x_282, 0); -lean_inc(x_283); -if (lean_obj_tag(x_283) == 0) -{ -uint8_t x_284; -lean_dec(x_282); -x_284 = !lean_is_exclusive(x_231); -if (x_284 == 0) -{ -lean_object* x_285; lean_object* x_286; lean_object* x_287; lean_object* x_288; -x_285 = lean_ctor_get(x_231, 0); -lean_dec(x_285); -x_286 = lean_ctor_get(x_283, 0); -lean_inc(x_286); -lean_dec(x_283); -lean_ctor_set(x_231, 0, x_286); -x_287 = lean_array_push(x_8, x_231); -x_288 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_288, 0, x_287); -lean_ctor_set(x_288, 1, x_10); -return x_288; -} -else -{ -lean_object* x_289; lean_object* x_290; lean_object* x_291; lean_object* x_292; lean_object* x_293; -x_289 = lean_ctor_get(x_231, 1); -lean_inc(x_289); -lean_dec(x_231); -x_290 = lean_ctor_get(x_283, 0); -lean_inc(x_290); -lean_dec(x_283); -x_291 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_291, 0, x_290); -lean_ctor_set(x_291, 1, x_289); -x_292 = lean_array_push(x_8, x_291); -x_293 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_293, 0, x_292); -lean_ctor_set(x_293, 1, x_10); -return x_293; -} -} -else -{ -uint8_t x_294; -lean_dec(x_10); -lean_dec(x_8); -x_294 = !lean_is_exclusive(x_231); -if (x_294 == 0) -{ -lean_object* x_295; -x_295 = lean_ctor_get(x_231, 0); -lean_dec(x_295); -return x_231; -} -else -{ -lean_object* x_296; lean_object* x_297; -x_296 = lean_ctor_get(x_231, 1); -lean_inc(x_296); -lean_dec(x_231); -x_297 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_297, 0, x_282); -lean_ctor_set(x_297, 1, x_296); -return x_297; -} -} -} -else -{ -uint8_t x_298; -lean_dec(x_8); -x_298 = !lean_is_exclusive(x_231); -if (x_298 == 0) -{ -lean_object* x_299; lean_object* x_300; -x_299 = lean_ctor_get(x_231, 1); -lean_dec(x_299); -x_300 = lean_ctor_get(x_231, 0); -lean_dec(x_300); -lean_ctor_set(x_231, 1, x_10); -return x_231; -} -else -{ -lean_object* x_301; -lean_dec(x_231); -x_301 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_301, 0, x_282); -lean_ctor_set(x_301, 1, x_10); -return x_301; -} -} -} -} -else -{ -lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; lean_object* x_306; lean_object* x_307; -x_302 = l_Lean_Syntax_getId(x_222); -lean_dec(x_222); -x_303 = l_Lean_Name_components(x_302); -x_304 = l_List_map___main___at___private_Init_Lean_Elab_TermApp_15__elabAppFn___main___spec__1(x_303); -x_305 = lean_unsigned_to_nat(0u); -x_306 = l_Lean_Syntax_getArg(x_2, x_305); -lean_dec(x_2); -x_307 = l_List_append___rarg(x_304, x_3); -x_2 = x_306; -x_3 = x_307; -goto _start; -} -} -else -{ -lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_object* x_312; -x_309 = l_Lean_fieldIdxKind; -x_310 = l_Lean_Syntax_isNatLitAux(x_309, x_222); -lean_dec(x_222); -x_311 = lean_unsigned_to_nat(0u); -x_312 = l_Lean_Syntax_getArg(x_2, x_311); -lean_dec(x_2); -if (lean_obj_tag(x_310) == 0) -{ -lean_object* x_313; lean_object* x_314; lean_object* x_315; lean_object* x_316; lean_object* x_317; -x_313 = l_Nat_Inhabited; -x_314 = l_Option_get_x21___rarg___closed__3; -x_315 = lean_panic_fn(x_313, x_314); -x_316 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_316, 0, x_315); -x_317 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_317, 0, x_316); -lean_ctor_set(x_317, 1, x_3); -x_2 = x_312; -x_3 = x_317; -goto _start; -} -else -{ -lean_object* x_319; lean_object* x_320; lean_object* x_321; -x_319 = lean_ctor_get(x_310, 0); -lean_inc(x_319); -lean_dec(x_310); -x_320 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_320, 0, x_319); -x_321 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_321, 0, x_320); -lean_ctor_set(x_321, 1, x_3); -x_2 = x_312; -x_3 = x_321; -goto _start; -} -} -} -} -block_413: -{ -uint8_t x_325; -x_325 = l_coeDecidableEq(x_324); -if (x_325 == 0) -{ -lean_object* x_326; uint8_t x_327; -x_326 = l_Lean_Parser_Term_proj___elambda__1___closed__2; -lean_inc(x_2); -x_327 = l_Lean_Syntax_isOfKind(x_2, x_326); -if (x_327 == 0) -{ -uint8_t x_328; -x_328 = 0; -x_185 = x_328; -goto block_323; -} -else -{ -lean_object* x_329; lean_object* x_330; lean_object* x_331; uint8_t x_332; -x_329 = l_Lean_Syntax_getArgs(x_2); -x_330 = lean_array_get_size(x_329); -lean_dec(x_329); -x_331 = lean_unsigned_to_nat(3u); -x_332 = lean_nat_dec_eq(x_330, x_331); -lean_dec(x_330); -x_185 = x_332; -goto block_323; -} -} -else -{ -lean_object* x_333; lean_object* x_334; lean_object* x_335; uint8_t x_336; uint8_t x_337; -x_333 = lean_unsigned_to_nat(1u); -x_334 = l_Lean_Syntax_getArg(x_2, x_333); -x_335 = l_Lean_mkTermIdFromIdent___closed__2; -lean_inc(x_334); -x_336 = l_Lean_Syntax_isOfKind(x_334, x_335); -x_337 = l_coeDecidableEq(x_336); -if (x_337 == 0) -{ -lean_object* x_338; uint8_t x_339; lean_object* x_340; -lean_dec(x_334); -x_338 = lean_box(0); -x_339 = 1; -lean_inc(x_10); -lean_inc(x_9); -x_340 = l_Lean_Elab_Term_elabTermAux___main(x_338, x_339, x_2, x_9, x_10); -if (lean_obj_tag(x_340) == 0) -{ -uint8_t x_341; -x_341 = !lean_is_exclusive(x_340); -if (x_341 == 0) -{ -lean_object* x_342; lean_object* x_343; lean_object* x_344; -x_342 = lean_ctor_get(x_340, 0); -x_343 = lean_ctor_get(x_340, 1); -x_344 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_342, x_3, x_4, x_5, x_6, x_7, x_9, x_343); -if (lean_obj_tag(x_344) == 0) -{ -uint8_t x_345; -x_345 = !lean_is_exclusive(x_344); -if (x_345 == 0) -{ -lean_object* x_346; -x_346 = lean_array_push(x_8, x_344); -lean_ctor_set(x_340, 1, x_10); -lean_ctor_set(x_340, 0, x_346); -return x_340; -} -else -{ -lean_object* x_347; lean_object* x_348; lean_object* x_349; lean_object* x_350; -x_347 = lean_ctor_get(x_344, 0); -x_348 = lean_ctor_get(x_344, 1); -lean_inc(x_348); -lean_inc(x_347); -lean_dec(x_344); -x_349 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_349, 0, x_347); -lean_ctor_set(x_349, 1, x_348); -x_350 = lean_array_push(x_8, x_349); -lean_ctor_set(x_340, 1, x_10); -lean_ctor_set(x_340, 0, x_350); -return x_340; -} -} -else -{ -lean_object* x_351; -x_351 = lean_ctor_get(x_344, 0); -lean_inc(x_351); -if (lean_obj_tag(x_351) == 0) -{ -lean_object* x_352; -x_352 = lean_ctor_get(x_351, 0); -lean_inc(x_352); -if (lean_obj_tag(x_352) == 0) -{ -uint8_t x_353; -lean_dec(x_351); -x_353 = !lean_is_exclusive(x_344); -if (x_353 == 0) -{ -lean_object* x_354; lean_object* x_355; lean_object* x_356; -x_354 = lean_ctor_get(x_344, 0); -lean_dec(x_354); -x_355 = lean_ctor_get(x_352, 0); -lean_inc(x_355); -lean_dec(x_352); -lean_ctor_set(x_344, 0, x_355); -x_356 = lean_array_push(x_8, x_344); -lean_ctor_set(x_340, 1, x_10); -lean_ctor_set(x_340, 0, x_356); -return x_340; -} -else -{ -lean_object* x_357; lean_object* x_358; lean_object* x_359; lean_object* x_360; -x_357 = lean_ctor_get(x_344, 1); -lean_inc(x_357); -lean_dec(x_344); -x_358 = lean_ctor_get(x_352, 0); -lean_inc(x_358); -lean_dec(x_352); -x_359 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_359, 0, x_358); -lean_ctor_set(x_359, 1, x_357); -x_360 = lean_array_push(x_8, x_359); -lean_ctor_set(x_340, 1, x_10); -lean_ctor_set(x_340, 0, x_360); -return x_340; -} -} -else -{ -uint8_t x_361; -lean_free_object(x_340); -lean_dec(x_10); -lean_dec(x_8); -x_361 = !lean_is_exclusive(x_344); -if (x_361 == 0) -{ -lean_object* x_362; -x_362 = lean_ctor_get(x_344, 0); -lean_dec(x_362); -return x_344; -} -else -{ -lean_object* x_363; lean_object* x_364; -x_363 = lean_ctor_get(x_344, 1); -lean_inc(x_363); -lean_dec(x_344); -x_364 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_364, 0, x_351); -lean_ctor_set(x_364, 1, x_363); -return x_364; -} -} -} -else -{ -uint8_t x_365; -lean_free_object(x_340); -lean_dec(x_8); -x_365 = !lean_is_exclusive(x_344); -if (x_365 == 0) -{ -lean_object* x_366; lean_object* x_367; -x_366 = lean_ctor_get(x_344, 1); -lean_dec(x_366); -x_367 = lean_ctor_get(x_344, 0); -lean_dec(x_367); -lean_ctor_set(x_344, 1, x_10); -return x_344; -} -else -{ -lean_object* x_368; -lean_dec(x_344); -x_368 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_368, 0, x_351); -lean_ctor_set(x_368, 1, x_10); -return x_368; -} -} -} -} -else -{ -lean_object* x_369; lean_object* x_370; lean_object* x_371; -x_369 = lean_ctor_get(x_340, 0); -x_370 = lean_ctor_get(x_340, 1); -lean_inc(x_370); -lean_inc(x_369); -lean_dec(x_340); -x_371 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_369, x_3, x_4, x_5, x_6, x_7, x_9, x_370); -if (lean_obj_tag(x_371) == 0) -{ -lean_object* x_372; lean_object* x_373; lean_object* x_374; lean_object* x_375; lean_object* x_376; lean_object* x_377; -x_372 = lean_ctor_get(x_371, 0); -lean_inc(x_372); -x_373 = lean_ctor_get(x_371, 1); -lean_inc(x_373); -if (lean_is_exclusive(x_371)) { - lean_ctor_release(x_371, 0); - lean_ctor_release(x_371, 1); - x_374 = x_371; -} else { - lean_dec_ref(x_371); - x_374 = lean_box(0); -} -if (lean_is_scalar(x_374)) { - x_375 = lean_alloc_ctor(0, 2, 0); -} else { - x_375 = x_374; -} -lean_ctor_set(x_375, 0, x_372); -lean_ctor_set(x_375, 1, x_373); -x_376 = lean_array_push(x_8, x_375); -x_377 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_377, 0, x_376); -lean_ctor_set(x_377, 1, x_10); -return x_377; -} -else -{ -lean_object* x_378; -x_378 = lean_ctor_get(x_371, 0); -lean_inc(x_378); -if (lean_obj_tag(x_378) == 0) -{ -lean_object* x_379; -x_379 = lean_ctor_get(x_378, 0); -lean_inc(x_379); -if (lean_obj_tag(x_379) == 0) -{ -lean_object* x_380; lean_object* x_381; lean_object* x_382; lean_object* x_383; lean_object* x_384; lean_object* x_385; -lean_dec(x_378); -x_380 = lean_ctor_get(x_371, 1); -lean_inc(x_380); -if (lean_is_exclusive(x_371)) { - lean_ctor_release(x_371, 0); - lean_ctor_release(x_371, 1); - x_381 = x_371; -} else { - lean_dec_ref(x_371); - x_381 = lean_box(0); -} -x_382 = lean_ctor_get(x_379, 0); -lean_inc(x_382); -lean_dec(x_379); -if (lean_is_scalar(x_381)) { - x_383 = lean_alloc_ctor(1, 2, 0); -} else { - x_383 = x_381; -} -lean_ctor_set(x_383, 0, x_382); -lean_ctor_set(x_383, 1, x_380); -x_384 = lean_array_push(x_8, x_383); -x_385 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_385, 0, x_384); -lean_ctor_set(x_385, 1, x_10); -return x_385; -} -else -{ -lean_object* x_386; lean_object* x_387; lean_object* x_388; -lean_dec(x_10); -lean_dec(x_8); -x_386 = lean_ctor_get(x_371, 1); -lean_inc(x_386); -if (lean_is_exclusive(x_371)) { - lean_ctor_release(x_371, 0); - lean_ctor_release(x_371, 1); - x_387 = x_371; -} else { - lean_dec_ref(x_371); - x_387 = lean_box(0); -} -if (lean_is_scalar(x_387)) { - x_388 = lean_alloc_ctor(1, 2, 0); -} else { - x_388 = x_387; -} -lean_ctor_set(x_388, 0, x_378); -lean_ctor_set(x_388, 1, x_386); -return x_388; -} -} -else -{ -lean_object* x_389; lean_object* x_390; -lean_dec(x_8); -if (lean_is_exclusive(x_371)) { - lean_ctor_release(x_371, 0); - lean_ctor_release(x_371, 1); - x_389 = x_371; -} else { - lean_dec_ref(x_371); - x_389 = lean_box(0); -} -if (lean_is_scalar(x_389)) { - x_390 = lean_alloc_ctor(1, 2, 0); -} else { - x_390 = x_389; -} -lean_ctor_set(x_390, 0, x_378); -lean_ctor_set(x_390, 1, x_10); -return x_390; -} -} -} -} -else -{ -lean_object* x_391; -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_1); -x_391 = lean_ctor_get(x_340, 0); -lean_inc(x_391); -if (lean_obj_tag(x_391) == 0) -{ -lean_object* x_392; -x_392 = lean_ctor_get(x_391, 0); -lean_inc(x_392); -if (lean_obj_tag(x_392) == 0) -{ -uint8_t x_393; -lean_dec(x_391); -x_393 = !lean_is_exclusive(x_340); -if (x_393 == 0) -{ -lean_object* x_394; lean_object* x_395; lean_object* x_396; lean_object* x_397; -x_394 = lean_ctor_get(x_340, 0); -lean_dec(x_394); -x_395 = lean_ctor_get(x_392, 0); -lean_inc(x_395); -lean_dec(x_392); -lean_ctor_set(x_340, 0, x_395); -x_396 = lean_array_push(x_8, x_340); -x_397 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_397, 0, x_396); -lean_ctor_set(x_397, 1, x_10); -return x_397; -} -else -{ -lean_object* x_398; lean_object* x_399; lean_object* x_400; lean_object* x_401; lean_object* x_402; -x_398 = lean_ctor_get(x_340, 1); -lean_inc(x_398); -lean_dec(x_340); -x_399 = lean_ctor_get(x_392, 0); -lean_inc(x_399); -lean_dec(x_392); -x_400 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_400, 0, x_399); -lean_ctor_set(x_400, 1, x_398); -x_401 = lean_array_push(x_8, x_400); -x_402 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_402, 0, x_401); -lean_ctor_set(x_402, 1, x_10); -return x_402; -} -} -else -{ -uint8_t x_403; -lean_dec(x_10); -lean_dec(x_8); -x_403 = !lean_is_exclusive(x_340); -if (x_403 == 0) -{ -lean_object* x_404; -x_404 = lean_ctor_get(x_340, 0); -lean_dec(x_404); -return x_340; -} -else -{ -lean_object* x_405; lean_object* x_406; -x_405 = lean_ctor_get(x_340, 1); -lean_inc(x_405); -lean_dec(x_340); -x_406 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_406, 0, x_391); -lean_ctor_set(x_406, 1, x_405); -return x_406; -} -} -} -else -{ -uint8_t x_407; -lean_dec(x_8); -x_407 = !lean_is_exclusive(x_340); -if (x_407 == 0) -{ -lean_object* x_408; lean_object* x_409; -x_408 = lean_ctor_get(x_340, 1); -lean_dec(x_408); -x_409 = lean_ctor_get(x_340, 0); -lean_dec(x_409); -lean_ctor_set(x_340, 1, x_10); -return x_340; -} -else -{ -lean_object* x_410; -lean_dec(x_340); -x_410 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_410, 0, x_391); -lean_ctor_set(x_410, 1, x_10); -return x_410; -} -} -} -} -else -{ -uint8_t x_411; -lean_dec(x_2); +lean_object* x_406; lean_object* x_407; lean_object* x_408; uint8_t x_409; +x_406 = lean_unsigned_to_nat(1u); +x_407 = l_Lean_Syntax_getArg(x_2, x_406); +x_408 = l_Lean_mkTermIdFromIdent___closed__2; +lean_inc(x_407); +x_409 = l_Lean_Syntax_isOfKind(x_407, x_408); +if (x_409 == 0) +{ +lean_object* x_410; uint8_t x_411; lean_object* x_412; +lean_dec(x_407); +x_410 = lean_box(0); x_411 = 1; -x_2 = x_334; -x_7 = x_411; +lean_inc(x_10); +lean_inc(x_9); +x_412 = l_Lean_Elab_Term_elabTermAux___main(x_410, x_411, x_2, x_9, x_10); +if (lean_obj_tag(x_412) == 0) +{ +uint8_t x_413; +x_413 = !lean_is_exclusive(x_412); +if (x_413 == 0) +{ +lean_object* x_414; lean_object* x_415; lean_object* x_416; +x_414 = lean_ctor_get(x_412, 0); +x_415 = lean_ctor_get(x_412, 1); +x_416 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_414, x_3, x_4, x_5, x_6, x_7, x_9, x_415); +if (lean_obj_tag(x_416) == 0) +{ +uint8_t x_417; +x_417 = !lean_is_exclusive(x_416); +if (x_417 == 0) +{ +lean_object* x_418; +x_418 = lean_array_push(x_8, x_416); +lean_ctor_set(x_412, 1, x_10); +lean_ctor_set(x_412, 0, x_418); +return x_412; +} +else +{ +lean_object* x_419; lean_object* x_420; lean_object* x_421; lean_object* x_422; +x_419 = lean_ctor_get(x_416, 0); +x_420 = lean_ctor_get(x_416, 1); +lean_inc(x_420); +lean_inc(x_419); +lean_dec(x_416); +x_421 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_421, 0, x_419); +lean_ctor_set(x_421, 1, x_420); +x_422 = lean_array_push(x_8, x_421); +lean_ctor_set(x_412, 1, x_10); +lean_ctor_set(x_412, 0, x_422); +return x_412; +} +} +else +{ +lean_object* x_423; +x_423 = lean_ctor_get(x_416, 0); +lean_inc(x_423); +if (lean_obj_tag(x_423) == 0) +{ +lean_object* x_424; +x_424 = lean_ctor_get(x_423, 0); +lean_inc(x_424); +if (lean_obj_tag(x_424) == 0) +{ +uint8_t x_425; +lean_dec(x_423); +x_425 = !lean_is_exclusive(x_416); +if (x_425 == 0) +{ +lean_object* x_426; lean_object* x_427; lean_object* x_428; +x_426 = lean_ctor_get(x_416, 0); +lean_dec(x_426); +x_427 = lean_ctor_get(x_424, 0); +lean_inc(x_427); +lean_dec(x_424); +lean_ctor_set(x_416, 0, x_427); +x_428 = lean_array_push(x_8, x_416); +lean_ctor_set(x_412, 1, x_10); +lean_ctor_set(x_412, 0, x_428); +return x_412; +} +else +{ +lean_object* x_429; lean_object* x_430; lean_object* x_431; lean_object* x_432; +x_429 = lean_ctor_get(x_416, 1); +lean_inc(x_429); +lean_dec(x_416); +x_430 = lean_ctor_get(x_424, 0); +lean_inc(x_430); +lean_dec(x_424); +x_431 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_431, 0, x_430); +lean_ctor_set(x_431, 1, x_429); +x_432 = lean_array_push(x_8, x_431); +lean_ctor_set(x_412, 1, x_10); +lean_ctor_set(x_412, 0, x_432); +return x_412; +} +} +else +{ +uint8_t x_433; +lean_free_object(x_412); +lean_dec(x_10); +lean_dec(x_8); +x_433 = !lean_is_exclusive(x_416); +if (x_433 == 0) +{ +lean_object* x_434; +x_434 = lean_ctor_get(x_416, 0); +lean_dec(x_434); +return x_416; +} +else +{ +lean_object* x_435; lean_object* x_436; +x_435 = lean_ctor_get(x_416, 1); +lean_inc(x_435); +lean_dec(x_416); +x_436 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_436, 0, x_423); +lean_ctor_set(x_436, 1, x_435); +return x_436; +} +} +} +else +{ +uint8_t x_437; +lean_free_object(x_412); +lean_dec(x_8); +x_437 = !lean_is_exclusive(x_416); +if (x_437 == 0) +{ +lean_object* x_438; lean_object* x_439; +x_438 = lean_ctor_get(x_416, 1); +lean_dec(x_438); +x_439 = lean_ctor_get(x_416, 0); +lean_dec(x_439); +lean_ctor_set(x_416, 1, x_10); +return x_416; +} +else +{ +lean_object* x_440; +lean_dec(x_416); +x_440 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_440, 0, x_423); +lean_ctor_set(x_440, 1, x_10); +return x_440; +} +} +} +} +else +{ +lean_object* x_441; lean_object* x_442; lean_object* x_443; +x_441 = lean_ctor_get(x_412, 0); +x_442 = lean_ctor_get(x_412, 1); +lean_inc(x_442); +lean_inc(x_441); +lean_dec(x_412); +x_443 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_441, x_3, x_4, x_5, x_6, x_7, x_9, x_442); +if (lean_obj_tag(x_443) == 0) +{ +lean_object* x_444; lean_object* x_445; lean_object* x_446; lean_object* x_447; lean_object* x_448; lean_object* x_449; +x_444 = lean_ctor_get(x_443, 0); +lean_inc(x_444); +x_445 = lean_ctor_get(x_443, 1); +lean_inc(x_445); +if (lean_is_exclusive(x_443)) { + lean_ctor_release(x_443, 0); + lean_ctor_release(x_443, 1); + x_446 = x_443; +} else { + lean_dec_ref(x_443); + x_446 = lean_box(0); +} +if (lean_is_scalar(x_446)) { + x_447 = lean_alloc_ctor(0, 2, 0); +} else { + x_447 = x_446; +} +lean_ctor_set(x_447, 0, x_444); +lean_ctor_set(x_447, 1, x_445); +x_448 = lean_array_push(x_8, x_447); +x_449 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_449, 0, x_448); +lean_ctor_set(x_449, 1, x_10); +return x_449; +} +else +{ +lean_object* x_450; +x_450 = lean_ctor_get(x_443, 0); +lean_inc(x_450); +if (lean_obj_tag(x_450) == 0) +{ +lean_object* x_451; +x_451 = lean_ctor_get(x_450, 0); +lean_inc(x_451); +if (lean_obj_tag(x_451) == 0) +{ +lean_object* x_452; lean_object* x_453; lean_object* x_454; lean_object* x_455; lean_object* x_456; lean_object* x_457; +lean_dec(x_450); +x_452 = lean_ctor_get(x_443, 1); +lean_inc(x_452); +if (lean_is_exclusive(x_443)) { + lean_ctor_release(x_443, 0); + lean_ctor_release(x_443, 1); + x_453 = x_443; +} else { + lean_dec_ref(x_443); + x_453 = lean_box(0); +} +x_454 = lean_ctor_get(x_451, 0); +lean_inc(x_454); +lean_dec(x_451); +if (lean_is_scalar(x_453)) { + x_455 = lean_alloc_ctor(1, 2, 0); +} else { + x_455 = x_453; +} +lean_ctor_set(x_455, 0, x_454); +lean_ctor_set(x_455, 1, x_452); +x_456 = lean_array_push(x_8, x_455); +x_457 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_457, 0, x_456); +lean_ctor_set(x_457, 1, x_10); +return x_457; +} +else +{ +lean_object* x_458; lean_object* x_459; lean_object* x_460; +lean_dec(x_10); +lean_dec(x_8); +x_458 = lean_ctor_get(x_443, 1); +lean_inc(x_458); +if (lean_is_exclusive(x_443)) { + lean_ctor_release(x_443, 0); + lean_ctor_release(x_443, 1); + x_459 = x_443; +} else { + lean_dec_ref(x_443); + x_459 = lean_box(0); +} +if (lean_is_scalar(x_459)) { + x_460 = lean_alloc_ctor(1, 2, 0); +} else { + x_460 = x_459; +} +lean_ctor_set(x_460, 0, x_450); +lean_ctor_set(x_460, 1, x_458); +return x_460; +} +} +else +{ +lean_object* x_461; lean_object* x_462; +lean_dec(x_8); +if (lean_is_exclusive(x_443)) { + lean_ctor_release(x_443, 0); + lean_ctor_release(x_443, 1); + x_461 = x_443; +} else { + lean_dec_ref(x_443); + x_461 = lean_box(0); +} +if (lean_is_scalar(x_461)) { + x_462 = lean_alloc_ctor(1, 2, 0); +} else { + x_462 = x_461; +} +lean_ctor_set(x_462, 0, x_450); +lean_ctor_set(x_462, 1, x_10); +return x_462; +} +} +} +} +else +{ +lean_object* x_463; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_463 = lean_ctor_get(x_412, 0); +lean_inc(x_463); +if (lean_obj_tag(x_463) == 0) +{ +lean_object* x_464; +x_464 = lean_ctor_get(x_463, 0); +lean_inc(x_464); +if (lean_obj_tag(x_464) == 0) +{ +uint8_t x_465; +lean_dec(x_463); +x_465 = !lean_is_exclusive(x_412); +if (x_465 == 0) +{ +lean_object* x_466; lean_object* x_467; lean_object* x_468; lean_object* x_469; +x_466 = lean_ctor_get(x_412, 0); +lean_dec(x_466); +x_467 = lean_ctor_get(x_464, 0); +lean_inc(x_467); +lean_dec(x_464); +lean_ctor_set(x_412, 0, x_467); +x_468 = lean_array_push(x_8, x_412); +x_469 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_469, 0, x_468); +lean_ctor_set(x_469, 1, x_10); +return x_469; +} +else +{ +lean_object* x_470; lean_object* x_471; lean_object* x_472; lean_object* x_473; lean_object* x_474; +x_470 = lean_ctor_get(x_412, 1); +lean_inc(x_470); +lean_dec(x_412); +x_471 = lean_ctor_get(x_464, 0); +lean_inc(x_471); +lean_dec(x_464); +x_472 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_472, 0, x_471); +lean_ctor_set(x_472, 1, x_470); +x_473 = lean_array_push(x_8, x_472); +x_474 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_474, 0, x_473); +lean_ctor_set(x_474, 1, x_10); +return x_474; +} +} +else +{ +uint8_t x_475; +lean_dec(x_10); +lean_dec(x_8); +x_475 = !lean_is_exclusive(x_412); +if (x_475 == 0) +{ +lean_object* x_476; +x_476 = lean_ctor_get(x_412, 0); +lean_dec(x_476); +return x_412; +} +else +{ +lean_object* x_477; lean_object* x_478; +x_477 = lean_ctor_get(x_412, 1); +lean_inc(x_477); +lean_dec(x_412); +x_478 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_478, 0, x_463); +lean_ctor_set(x_478, 1, x_477); +return x_478; +} +} +} +else +{ +uint8_t x_479; +lean_dec(x_8); +x_479 = !lean_is_exclusive(x_412); +if (x_479 == 0) +{ +lean_object* x_480; lean_object* x_481; +x_480 = lean_ctor_get(x_412, 1); +lean_dec(x_480); +x_481 = lean_ctor_get(x_412, 0); +lean_dec(x_481); +lean_ctor_set(x_412, 1, x_10); +return x_412; +} +else +{ +lean_object* x_482; +lean_dec(x_412); +x_482 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_482, 0, x_463); +lean_ctor_set(x_482, 1, x_10); +return x_482; +} +} +} +} +else +{ +uint8_t x_483; +lean_dec(x_2); +x_483 = 1; +x_2 = x_407; +x_7 = x_483; goto _start; } } } -} -else +block_261: { -lean_object* x_421; lean_object* x_422; lean_object* x_423; -x_421 = l_Lean_Syntax_getArgs(x_2); -x_422 = lean_unsigned_to_nat(0u); -x_423 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_TermApp_15__elabAppFn___main___spec__2(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_421, x_422, x_8, x_9, x_10); -lean_dec(x_421); -lean_dec(x_2); -return x_423; -} -} -else +lean_object* x_16; uint8_t x_17; +lean_dec(x_15); +x_16 = l_Lean_mkTermIdFromIdent___closed__2; +lean_inc(x_2); +x_17 = l_Lean_Syntax_isOfKind(x_2, x_16); +if (x_17 == 0) { -lean_object* x_424; lean_object* x_425; -x_424 = lean_box(0); -x_425 = l___private_Init_Lean_Elab_TermApp_14__elabAppFnId(x_1, x_2, x_424, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10); -return x_425; -} -block_180: -{ -uint8_t x_12; -x_12 = l_coeDecidableEq(x_11); -if (x_12 == 0) -{ -lean_object* x_13; uint8_t x_14; lean_object* x_15; -x_13 = lean_box(0); -x_14 = 1; +lean_object* x_18; uint8_t x_19; lean_object* x_20; +x_18 = lean_box(0); +x_19 = 1; lean_inc(x_10); lean_inc(x_9); -x_15 = l_Lean_Elab_Term_elabTermAux___main(x_13, x_14, x_2, x_9, x_10); -if (lean_obj_tag(x_15) == 0) +x_20 = l_Lean_Elab_Term_elabTermAux___main(x_18, x_19, x_2, x_9, x_10); +if (lean_obj_tag(x_20) == 0) { -uint8_t x_16; -x_16 = !lean_is_exclusive(x_15); -if (x_16 == 0) +uint8_t x_21; +x_21 = !lean_is_exclusive(x_20); +if (x_21 == 0) { -lean_object* x_17; lean_object* x_18; lean_object* x_19; -x_17 = lean_ctor_get(x_15, 0); -x_18 = lean_ctor_get(x_15, 1); -x_19 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_17, x_3, x_4, x_5, x_6, x_7, x_9, x_18); -if (lean_obj_tag(x_19) == 0) +lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_22 = lean_ctor_get(x_20, 0); +x_23 = lean_ctor_get(x_20, 1); +x_24 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_22, x_3, x_4, x_5, x_6, x_7, x_9, x_23); +if (lean_obj_tag(x_24) == 0) { -uint8_t x_20; -x_20 = !lean_is_exclusive(x_19); -if (x_20 == 0) -{ -lean_object* x_21; -x_21 = lean_array_push(x_8, x_19); -lean_ctor_set(x_15, 1, x_10); -lean_ctor_set(x_15, 0, x_21); -return x_15; -} -else -{ -lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; -x_22 = lean_ctor_get(x_19, 0); -x_23 = lean_ctor_get(x_19, 1); -lean_inc(x_23); -lean_inc(x_22); -lean_dec(x_19); -x_24 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_24, 0, x_22); -lean_ctor_set(x_24, 1, x_23); -x_25 = lean_array_push(x_8, x_24); -lean_ctor_set(x_15, 1, x_10); -lean_ctor_set(x_15, 0, x_25); -return x_15; -} -} -else +uint8_t x_25; +x_25 = !lean_is_exclusive(x_24); +if (x_25 == 0) { lean_object* x_26; -x_26 = lean_ctor_get(x_19, 0); -lean_inc(x_26); -if (lean_obj_tag(x_26) == 0) +x_26 = lean_array_push(x_8, x_24); +lean_ctor_set(x_20, 1, x_10); +lean_ctor_set(x_20, 0, x_26); +return x_20; +} +else { -lean_object* x_27; -x_27 = lean_ctor_get(x_26, 0); +lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_27 = lean_ctor_get(x_24, 0); +x_28 = lean_ctor_get(x_24, 1); +lean_inc(x_28); lean_inc(x_27); -if (lean_obj_tag(x_27) == 0) -{ -uint8_t x_28; -lean_dec(x_26); -x_28 = !lean_is_exclusive(x_19); -if (x_28 == 0) -{ -lean_object* x_29; lean_object* x_30; lean_object* x_31; -x_29 = lean_ctor_get(x_19, 0); -lean_dec(x_29); -x_30 = lean_ctor_get(x_27, 0); -lean_inc(x_30); -lean_dec(x_27); -lean_ctor_set(x_19, 0, x_30); -x_31 = lean_array_push(x_8, x_19); -lean_ctor_set(x_15, 1, x_10); -lean_ctor_set(x_15, 0, x_31); -return x_15; +lean_dec(x_24); +x_29 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_29, 0, x_27); +lean_ctor_set(x_29, 1, x_28); +x_30 = lean_array_push(x_8, x_29); +lean_ctor_set(x_20, 1, x_10); +lean_ctor_set(x_20, 0, x_30); +return x_20; +} } else { -lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; -x_32 = lean_ctor_get(x_19, 1); +lean_object* x_31; +x_31 = lean_ctor_get(x_24, 0); +lean_inc(x_31); +if (lean_obj_tag(x_31) == 0) +{ +lean_object* x_32; +x_32 = lean_ctor_get(x_31, 0); lean_inc(x_32); -lean_dec(x_19); -x_33 = lean_ctor_get(x_27, 0); -lean_inc(x_33); -lean_dec(x_27); -x_34 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_34, 0, x_33); -lean_ctor_set(x_34, 1, x_32); -x_35 = lean_array_push(x_8, x_34); -lean_ctor_set(x_15, 1, x_10); -lean_ctor_set(x_15, 0, x_35); -return x_15; -} +if (lean_obj_tag(x_32) == 0) +{ +uint8_t x_33; +lean_dec(x_31); +x_33 = !lean_is_exclusive(x_24); +if (x_33 == 0) +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; +x_34 = lean_ctor_get(x_24, 0); +lean_dec(x_34); +x_35 = lean_ctor_get(x_32, 0); +lean_inc(x_35); +lean_dec(x_32); +lean_ctor_set(x_24, 0, x_35); +x_36 = lean_array_push(x_8, x_24); +lean_ctor_set(x_20, 1, x_10); +lean_ctor_set(x_20, 0, x_36); +return x_20; } else { -uint8_t x_36; -lean_free_object(x_15); -lean_dec(x_10); -lean_dec(x_8); -x_36 = !lean_is_exclusive(x_19); -if (x_36 == 0) -{ -lean_object* x_37; -x_37 = lean_ctor_get(x_19, 0); -lean_dec(x_37); -return x_19; -} -else -{ -lean_object* x_38; lean_object* x_39; -x_38 = lean_ctor_get(x_19, 1); +lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_37 = lean_ctor_get(x_24, 1); +lean_inc(x_37); +lean_dec(x_24); +x_38 = lean_ctor_get(x_32, 0); lean_inc(x_38); -lean_dec(x_19); +lean_dec(x_32); x_39 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_39, 0, x_26); -lean_ctor_set(x_39, 1, x_38); -return x_39; -} -} -} -else -{ -uint8_t x_40; -lean_free_object(x_15); -lean_dec(x_8); -x_40 = !lean_is_exclusive(x_19); -if (x_40 == 0) -{ -lean_object* x_41; lean_object* x_42; -x_41 = lean_ctor_get(x_19, 1); -lean_dec(x_41); -x_42 = lean_ctor_get(x_19, 0); -lean_dec(x_42); -lean_ctor_set(x_19, 1, x_10); -return x_19; -} -else -{ -lean_object* x_43; -lean_dec(x_19); -x_43 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_43, 0, x_26); -lean_ctor_set(x_43, 1, x_10); -return x_43; -} -} +lean_ctor_set(x_39, 0, x_38); +lean_ctor_set(x_39, 1, x_37); +x_40 = lean_array_push(x_8, x_39); +lean_ctor_set(x_20, 1, x_10); +lean_ctor_set(x_20, 0, x_40); +return x_20; } } else { -lean_object* x_44; lean_object* x_45; lean_object* x_46; -x_44 = lean_ctor_get(x_15, 0); -x_45 = lean_ctor_get(x_15, 1); -lean_inc(x_45); -lean_inc(x_44); -lean_dec(x_15); -x_46 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_44, x_3, x_4, x_5, x_6, x_7, x_9, x_45); -if (lean_obj_tag(x_46) == 0) -{ -lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; -x_47 = lean_ctor_get(x_46, 0); -lean_inc(x_47); -x_48 = lean_ctor_get(x_46, 1); -lean_inc(x_48); -if (lean_is_exclusive(x_46)) { - lean_ctor_release(x_46, 0); - lean_ctor_release(x_46, 1); - x_49 = x_46; -} else { - lean_dec_ref(x_46); - x_49 = lean_box(0); -} -if (lean_is_scalar(x_49)) { - x_50 = lean_alloc_ctor(0, 2, 0); -} else { - x_50 = x_49; -} -lean_ctor_set(x_50, 0, x_47); -lean_ctor_set(x_50, 1, x_48); -x_51 = lean_array_push(x_8, x_50); -x_52 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_52, 0, x_51); -lean_ctor_set(x_52, 1, x_10); -return x_52; -} -else -{ -lean_object* x_53; -x_53 = lean_ctor_get(x_46, 0); -lean_inc(x_53); -if (lean_obj_tag(x_53) == 0) -{ -lean_object* x_54; -x_54 = lean_ctor_get(x_53, 0); -lean_inc(x_54); -if (lean_obj_tag(x_54) == 0) -{ -lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; -lean_dec(x_53); -x_55 = lean_ctor_get(x_46, 1); -lean_inc(x_55); -if (lean_is_exclusive(x_46)) { - lean_ctor_release(x_46, 0); - lean_ctor_release(x_46, 1); - x_56 = x_46; -} else { - lean_dec_ref(x_46); - x_56 = lean_box(0); -} -x_57 = lean_ctor_get(x_54, 0); -lean_inc(x_57); -lean_dec(x_54); -if (lean_is_scalar(x_56)) { - x_58 = lean_alloc_ctor(1, 2, 0); -} else { - x_58 = x_56; -} -lean_ctor_set(x_58, 0, x_57); -lean_ctor_set(x_58, 1, x_55); -x_59 = lean_array_push(x_8, x_58); -x_60 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_60, 0, x_59); -lean_ctor_set(x_60, 1, x_10); -return x_60; -} -else -{ -lean_object* x_61; lean_object* x_62; lean_object* x_63; +uint8_t x_41; +lean_free_object(x_20); lean_dec(x_10); lean_dec(x_8); -x_61 = lean_ctor_get(x_46, 1); -lean_inc(x_61); -if (lean_is_exclusive(x_46)) { - lean_ctor_release(x_46, 0); - lean_ctor_release(x_46, 1); - x_62 = x_46; -} else { - lean_dec_ref(x_46); - x_62 = lean_box(0); +x_41 = !lean_is_exclusive(x_24); +if (x_41 == 0) +{ +lean_object* x_42; +x_42 = lean_ctor_get(x_24, 0); +lean_dec(x_42); +return x_24; } -if (lean_is_scalar(x_62)) { +else +{ +lean_object* x_43; lean_object* x_44; +x_43 = lean_ctor_get(x_24, 1); +lean_inc(x_43); +lean_dec(x_24); +x_44 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_44, 0, x_31); +lean_ctor_set(x_44, 1, x_43); +return x_44; +} +} +} +else +{ +uint8_t x_45; +lean_free_object(x_20); +lean_dec(x_8); +x_45 = !lean_is_exclusive(x_24); +if (x_45 == 0) +{ +lean_object* x_46; lean_object* x_47; +x_46 = lean_ctor_get(x_24, 1); +lean_dec(x_46); +x_47 = lean_ctor_get(x_24, 0); +lean_dec(x_47); +lean_ctor_set(x_24, 1, x_10); +return x_24; +} +else +{ +lean_object* x_48; +lean_dec(x_24); +x_48 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_48, 0, x_31); +lean_ctor_set(x_48, 1, x_10); +return x_48; +} +} +} +} +else +{ +lean_object* x_49; lean_object* x_50; lean_object* x_51; +x_49 = lean_ctor_get(x_20, 0); +x_50 = lean_ctor_get(x_20, 1); +lean_inc(x_50); +lean_inc(x_49); +lean_dec(x_20); +x_51 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_49, x_3, x_4, x_5, x_6, x_7, x_9, x_50); +if (lean_obj_tag(x_51) == 0) +{ +lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; +x_52 = lean_ctor_get(x_51, 0); +lean_inc(x_52); +x_53 = lean_ctor_get(x_51, 1); +lean_inc(x_53); +if (lean_is_exclusive(x_51)) { + lean_ctor_release(x_51, 0); + lean_ctor_release(x_51, 1); + x_54 = x_51; +} else { + lean_dec_ref(x_51); + x_54 = lean_box(0); +} +if (lean_is_scalar(x_54)) { + x_55 = lean_alloc_ctor(0, 2, 0); +} else { + x_55 = x_54; +} +lean_ctor_set(x_55, 0, x_52); +lean_ctor_set(x_55, 1, x_53); +x_56 = lean_array_push(x_8, x_55); +x_57 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_57, 0, x_56); +lean_ctor_set(x_57, 1, x_10); +return x_57; +} +else +{ +lean_object* x_58; +x_58 = lean_ctor_get(x_51, 0); +lean_inc(x_58); +if (lean_obj_tag(x_58) == 0) +{ +lean_object* x_59; +x_59 = lean_ctor_get(x_58, 0); +lean_inc(x_59); +if (lean_obj_tag(x_59) == 0) +{ +lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; +lean_dec(x_58); +x_60 = lean_ctor_get(x_51, 1); +lean_inc(x_60); +if (lean_is_exclusive(x_51)) { + lean_ctor_release(x_51, 0); + lean_ctor_release(x_51, 1); + x_61 = x_51; +} else { + lean_dec_ref(x_51); + x_61 = lean_box(0); +} +x_62 = lean_ctor_get(x_59, 0); +lean_inc(x_62); +lean_dec(x_59); +if (lean_is_scalar(x_61)) { x_63 = lean_alloc_ctor(1, 2, 0); } else { - x_63 = x_62; + x_63 = x_61; } -lean_ctor_set(x_63, 0, x_53); -lean_ctor_set(x_63, 1, x_61); -return x_63; -} -} -else -{ -lean_object* x_64; lean_object* x_65; -lean_dec(x_8); -if (lean_is_exclusive(x_46)) { - lean_ctor_release(x_46, 0); - lean_ctor_release(x_46, 1); - x_64 = x_46; -} else { - lean_dec_ref(x_46); - x_64 = lean_box(0); -} -if (lean_is_scalar(x_64)) { - x_65 = lean_alloc_ctor(1, 2, 0); -} else { - x_65 = x_64; -} -lean_ctor_set(x_65, 0, x_53); +lean_ctor_set(x_63, 0, x_62); +lean_ctor_set(x_63, 1, x_60); +x_64 = lean_array_push(x_8, x_63); +x_65 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_65, 0, x_64); lean_ctor_set(x_65, 1, x_10); return x_65; } +else +{ +lean_object* x_66; lean_object* x_67; lean_object* x_68; +lean_dec(x_10); +lean_dec(x_8); +x_66 = lean_ctor_get(x_51, 1); +lean_inc(x_66); +if (lean_is_exclusive(x_51)) { + lean_ctor_release(x_51, 0); + lean_ctor_release(x_51, 1); + x_67 = x_51; +} else { + lean_dec_ref(x_51); + x_67 = lean_box(0); +} +if (lean_is_scalar(x_67)) { + x_68 = lean_alloc_ctor(1, 2, 0); +} else { + x_68 = x_67; +} +lean_ctor_set(x_68, 0, x_58); +lean_ctor_set(x_68, 1, x_66); +return x_68; +} +} +else +{ +lean_object* x_69; lean_object* x_70; +lean_dec(x_8); +if (lean_is_exclusive(x_51)) { + lean_ctor_release(x_51, 0); + lean_ctor_release(x_51, 1); + x_69 = x_51; +} else { + lean_dec_ref(x_51); + x_69 = lean_box(0); +} +if (lean_is_scalar(x_69)) { + x_70 = lean_alloc_ctor(1, 2, 0); +} else { + x_70 = x_69; +} +lean_ctor_set(x_70, 0, x_58); +lean_ctor_set(x_70, 1, x_10); +return x_70; +} } } } else { -lean_object* x_66; +lean_object* x_71; lean_dec(x_9); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); lean_dec(x_1); -x_66 = lean_ctor_get(x_15, 0); -lean_inc(x_66); -if (lean_obj_tag(x_66) == 0) +x_71 = lean_ctor_get(x_20, 0); +lean_inc(x_71); +if (lean_obj_tag(x_71) == 0) { -lean_object* x_67; -x_67 = lean_ctor_get(x_66, 0); -lean_inc(x_67); -if (lean_obj_tag(x_67) == 0) +lean_object* x_72; +x_72 = lean_ctor_get(x_71, 0); +lean_inc(x_72); +if (lean_obj_tag(x_72) == 0) { -uint8_t x_68; -lean_dec(x_66); -x_68 = !lean_is_exclusive(x_15); -if (x_68 == 0) +uint8_t x_73; +lean_dec(x_71); +x_73 = !lean_is_exclusive(x_20); +if (x_73 == 0) { -lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; -x_69 = lean_ctor_get(x_15, 0); -lean_dec(x_69); -x_70 = lean_ctor_get(x_67, 0); -lean_inc(x_70); -lean_dec(x_67); -lean_ctor_set(x_15, 0, x_70); -x_71 = lean_array_push(x_8, x_15); -x_72 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_72, 0, x_71); -lean_ctor_set(x_72, 1, x_10); -return x_72; -} -else -{ -lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; -x_73 = lean_ctor_get(x_15, 1); -lean_inc(x_73); -lean_dec(x_15); -x_74 = lean_ctor_get(x_67, 0); -lean_inc(x_74); -lean_dec(x_67); -x_75 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_75, 0, x_74); -lean_ctor_set(x_75, 1, x_73); -x_76 = lean_array_push(x_8, x_75); +lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; +x_74 = lean_ctor_get(x_20, 0); +lean_dec(x_74); +x_75 = lean_ctor_get(x_72, 0); +lean_inc(x_75); +lean_dec(x_72); +lean_ctor_set(x_20, 0, x_75); +x_76 = lean_array_push(x_8, x_20); x_77 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_77, 0, x_76); lean_ctor_set(x_77, 1, x_10); return x_77; } +else +{ +lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; +x_78 = lean_ctor_get(x_20, 1); +lean_inc(x_78); +lean_dec(x_20); +x_79 = lean_ctor_get(x_72, 0); +lean_inc(x_79); +lean_dec(x_72); +x_80 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_80, 0, x_79); +lean_ctor_set(x_80, 1, x_78); +x_81 = lean_array_push(x_8, x_80); +x_82 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_82, 0, x_81); +lean_ctor_set(x_82, 1, x_10); +return x_82; +} } else { -uint8_t x_78; +uint8_t x_83; lean_dec(x_10); lean_dec(x_8); -x_78 = !lean_is_exclusive(x_15); -if (x_78 == 0) +x_83 = !lean_is_exclusive(x_20); +if (x_83 == 0) { -lean_object* x_79; -x_79 = lean_ctor_get(x_15, 0); -lean_dec(x_79); -return x_15; -} -else -{ -lean_object* x_80; lean_object* x_81; -x_80 = lean_ctor_get(x_15, 1); -lean_inc(x_80); -lean_dec(x_15); -x_81 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_81, 0, x_66); -lean_ctor_set(x_81, 1, x_80); -return x_81; -} -} -} -else -{ -uint8_t x_82; -lean_dec(x_8); -x_82 = !lean_is_exclusive(x_15); -if (x_82 == 0) -{ -lean_object* x_83; lean_object* x_84; -x_83 = lean_ctor_get(x_15, 1); -lean_dec(x_83); -x_84 = lean_ctor_get(x_15, 0); +lean_object* x_84; +x_84 = lean_ctor_get(x_20, 0); lean_dec(x_84); -lean_ctor_set(x_15, 1, x_10); -return x_15; +return x_20; } else { -lean_object* x_85; -lean_dec(x_15); -x_85 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_85, 0, x_66); -lean_ctor_set(x_85, 1, x_10); -return x_85; +lean_object* x_85; lean_object* x_86; +x_85 = lean_ctor_get(x_20, 1); +lean_inc(x_85); +lean_dec(x_20); +x_86 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_86, 0, x_71); +lean_ctor_set(x_86, 1, x_85); +return x_86; +} +} +} +else +{ +uint8_t x_87; +lean_dec(x_8); +x_87 = !lean_is_exclusive(x_20); +if (x_87 == 0) +{ +lean_object* x_88; lean_object* x_89; +x_88 = lean_ctor_get(x_20, 1); +lean_dec(x_88); +x_89 = lean_ctor_get(x_20, 0); +lean_dec(x_89); +lean_ctor_set(x_20, 1, x_10); +return x_20; +} +else +{ +lean_object* x_90; +lean_dec(x_20); +x_90 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_90, 0, x_71); +lean_ctor_set(x_90, 1, x_10); +return x_90; } } } } else { -lean_object* x_86; lean_object* x_87; lean_object* x_88; uint8_t x_89; uint8_t x_90; -x_86 = lean_unsigned_to_nat(0u); -x_87 = l_Lean_Syntax_getArg(x_2, x_86); -x_88 = l_Lean_identKind___closed__2; -lean_inc(x_87); -x_89 = l_Lean_Syntax_isOfKind(x_87, x_88); -x_90 = l_coeDecidableEq(x_89); -if (x_90 == 0) -{ -lean_object* x_91; uint8_t x_92; lean_object* x_93; -lean_dec(x_87); -x_91 = lean_box(0); -x_92 = 1; -lean_inc(x_10); -lean_inc(x_9); -x_93 = l_Lean_Elab_Term_elabTermAux___main(x_91, x_92, x_2, x_9, x_10); -if (lean_obj_tag(x_93) == 0) -{ -uint8_t x_94; -x_94 = !lean_is_exclusive(x_93); +lean_object* x_91; lean_object* x_92; lean_object* x_93; uint8_t x_94; +x_91 = l_Lean_Syntax_getArgs(x_2); +x_92 = lean_array_get_size(x_91); +lean_dec(x_91); +x_93 = lean_unsigned_to_nat(2u); +x_94 = lean_nat_dec_eq(x_92, x_93); +lean_dec(x_92); if (x_94 == 0) { -lean_object* x_95; lean_object* x_96; lean_object* x_97; -x_95 = lean_ctor_get(x_93, 0); -x_96 = lean_ctor_get(x_93, 1); -x_97 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_95, x_3, x_4, x_5, x_6, x_7, x_9, x_96); +lean_object* x_95; uint8_t x_96; lean_object* x_97; +x_95 = lean_box(0); +x_96 = 1; +lean_inc(x_10); +lean_inc(x_9); +x_97 = l_Lean_Elab_Term_elabTermAux___main(x_95, x_96, x_2, x_9, x_10); if (lean_obj_tag(x_97) == 0) { uint8_t x_98; x_98 = !lean_is_exclusive(x_97); if (x_98 == 0) { -lean_object* x_99; -x_99 = lean_array_push(x_8, x_97); -lean_ctor_set(x_93, 1, x_10); -lean_ctor_set(x_93, 0, x_99); -return x_93; -} -else +lean_object* x_99; lean_object* x_100; lean_object* x_101; +x_99 = lean_ctor_get(x_97, 0); +x_100 = lean_ctor_get(x_97, 1); +x_101 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_99, x_3, x_4, x_5, x_6, x_7, x_9, x_100); +if (lean_obj_tag(x_101) == 0) { -lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; -x_100 = lean_ctor_get(x_97, 0); -x_101 = lean_ctor_get(x_97, 1); -lean_inc(x_101); -lean_inc(x_100); -lean_dec(x_97); -x_102 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_102, 0, x_100); -lean_ctor_set(x_102, 1, x_101); -x_103 = lean_array_push(x_8, x_102); -lean_ctor_set(x_93, 1, x_10); -lean_ctor_set(x_93, 0, x_103); -return x_93; -} -} -else +uint8_t x_102; +x_102 = !lean_is_exclusive(x_101); +if (x_102 == 0) { -lean_object* x_104; -x_104 = lean_ctor_get(x_97, 0); -lean_inc(x_104); -if (lean_obj_tag(x_104) == 0) -{ -lean_object* x_105; -x_105 = lean_ctor_get(x_104, 0); -lean_inc(x_105); -if (lean_obj_tag(x_105) == 0) -{ -uint8_t x_106; -lean_dec(x_104); -x_106 = !lean_is_exclusive(x_97); -if (x_106 == 0) -{ -lean_object* x_107; lean_object* x_108; lean_object* x_109; -x_107 = lean_ctor_get(x_97, 0); -lean_dec(x_107); -x_108 = lean_ctor_get(x_105, 0); -lean_inc(x_108); -lean_dec(x_105); -lean_ctor_set(x_97, 0, x_108); -x_109 = lean_array_push(x_8, x_97); -lean_ctor_set(x_93, 1, x_10); -lean_ctor_set(x_93, 0, x_109); -return x_93; -} -else -{ -lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; -x_110 = lean_ctor_get(x_97, 1); -lean_inc(x_110); -lean_dec(x_97); -x_111 = lean_ctor_get(x_105, 0); -lean_inc(x_111); -lean_dec(x_105); -x_112 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_112, 0, x_111); -lean_ctor_set(x_112, 1, x_110); -x_113 = lean_array_push(x_8, x_112); -lean_ctor_set(x_93, 1, x_10); -lean_ctor_set(x_93, 0, x_113); -return x_93; -} -} -else -{ -uint8_t x_114; -lean_free_object(x_93); -lean_dec(x_10); -lean_dec(x_8); -x_114 = !lean_is_exclusive(x_97); -if (x_114 == 0) -{ -lean_object* x_115; -x_115 = lean_ctor_get(x_97, 0); -lean_dec(x_115); +lean_object* x_103; +x_103 = lean_array_push(x_8, x_101); +lean_ctor_set(x_97, 1, x_10); +lean_ctor_set(x_97, 0, x_103); return x_97; } else { -lean_object* x_116; lean_object* x_117; -x_116 = lean_ctor_get(x_97, 1); -lean_inc(x_116); -lean_dec(x_97); -x_117 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_117, 0, x_104); -lean_ctor_set(x_117, 1, x_116); -return x_117; +lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; +x_104 = lean_ctor_get(x_101, 0); +x_105 = lean_ctor_get(x_101, 1); +lean_inc(x_105); +lean_inc(x_104); +lean_dec(x_101); +x_106 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_106, 0, x_104); +lean_ctor_set(x_106, 1, x_105); +x_107 = lean_array_push(x_8, x_106); +lean_ctor_set(x_97, 1, x_10); +lean_ctor_set(x_97, 0, x_107); +return x_97; } } +else +{ +lean_object* x_108; +x_108 = lean_ctor_get(x_101, 0); +lean_inc(x_108); +if (lean_obj_tag(x_108) == 0) +{ +lean_object* x_109; +x_109 = lean_ctor_get(x_108, 0); +lean_inc(x_109); +if (lean_obj_tag(x_109) == 0) +{ +uint8_t x_110; +lean_dec(x_108); +x_110 = !lean_is_exclusive(x_101); +if (x_110 == 0) +{ +lean_object* x_111; lean_object* x_112; lean_object* x_113; +x_111 = lean_ctor_get(x_101, 0); +lean_dec(x_111); +x_112 = lean_ctor_get(x_109, 0); +lean_inc(x_112); +lean_dec(x_109); +lean_ctor_set(x_101, 0, x_112); +x_113 = lean_array_push(x_8, x_101); +lean_ctor_set(x_97, 1, x_10); +lean_ctor_set(x_97, 0, x_113); +return x_97; +} +else +{ +lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; +x_114 = lean_ctor_get(x_101, 1); +lean_inc(x_114); +lean_dec(x_101); +x_115 = lean_ctor_get(x_109, 0); +lean_inc(x_115); +lean_dec(x_109); +x_116 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_116, 0, x_115); +lean_ctor_set(x_116, 1, x_114); +x_117 = lean_array_push(x_8, x_116); +lean_ctor_set(x_97, 1, x_10); +lean_ctor_set(x_97, 0, x_117); +return x_97; +} } else { uint8_t x_118; -lean_free_object(x_93); +lean_free_object(x_97); +lean_dec(x_10); lean_dec(x_8); -x_118 = !lean_is_exclusive(x_97); +x_118 = !lean_is_exclusive(x_101); if (x_118 == 0) { -lean_object* x_119; lean_object* x_120; -x_119 = lean_ctor_get(x_97, 1); +lean_object* x_119; +x_119 = lean_ctor_get(x_101, 0); lean_dec(x_119); -x_120 = lean_ctor_get(x_97, 0); -lean_dec(x_120); -lean_ctor_set(x_97, 1, x_10); -return x_97; +return x_101; } else { -lean_object* x_121; -lean_dec(x_97); +lean_object* x_120; lean_object* x_121; +x_120 = lean_ctor_get(x_101, 1); +lean_inc(x_120); +lean_dec(x_101); x_121 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_121, 0, x_104); -lean_ctor_set(x_121, 1, x_10); +lean_ctor_set(x_121, 0, x_108); +lean_ctor_set(x_121, 1, x_120); return x_121; } } } +else +{ +uint8_t x_122; +lean_free_object(x_97); +lean_dec(x_8); +x_122 = !lean_is_exclusive(x_101); +if (x_122 == 0) +{ +lean_object* x_123; lean_object* x_124; +x_123 = lean_ctor_get(x_101, 1); +lean_dec(x_123); +x_124 = lean_ctor_get(x_101, 0); +lean_dec(x_124); +lean_ctor_set(x_101, 1, x_10); +return x_101; } else { -lean_object* x_122; lean_object* x_123; lean_object* x_124; -x_122 = lean_ctor_get(x_93, 0); -x_123 = lean_ctor_get(x_93, 1); -lean_inc(x_123); -lean_inc(x_122); -lean_dec(x_93); -x_124 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_122, x_3, x_4, x_5, x_6, x_7, x_9, x_123); -if (lean_obj_tag(x_124) == 0) +lean_object* x_125; +lean_dec(x_101); +x_125 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_125, 0, x_108); +lean_ctor_set(x_125, 1, x_10); +return x_125; +} +} +} +} +else { -lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; -x_125 = lean_ctor_get(x_124, 0); -lean_inc(x_125); -x_126 = lean_ctor_get(x_124, 1); +lean_object* x_126; lean_object* x_127; lean_object* x_128; +x_126 = lean_ctor_get(x_97, 0); +x_127 = lean_ctor_get(x_97, 1); +lean_inc(x_127); lean_inc(x_126); -if (lean_is_exclusive(x_124)) { - lean_ctor_release(x_124, 0); - lean_ctor_release(x_124, 1); - x_127 = x_124; +lean_dec(x_97); +x_128 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_126, x_3, x_4, x_5, x_6, x_7, x_9, x_127); +if (lean_obj_tag(x_128) == 0) +{ +lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; +x_129 = lean_ctor_get(x_128, 0); +lean_inc(x_129); +x_130 = lean_ctor_get(x_128, 1); +lean_inc(x_130); +if (lean_is_exclusive(x_128)) { + lean_ctor_release(x_128, 0); + lean_ctor_release(x_128, 1); + x_131 = x_128; } else { - lean_dec_ref(x_124); - x_127 = lean_box(0); + lean_dec_ref(x_128); + x_131 = lean_box(0); } -if (lean_is_scalar(x_127)) { - x_128 = lean_alloc_ctor(0, 2, 0); +if (lean_is_scalar(x_131)) { + x_132 = lean_alloc_ctor(0, 2, 0); } else { - x_128 = x_127; + x_132 = x_131; } -lean_ctor_set(x_128, 0, x_125); -lean_ctor_set(x_128, 1, x_126); -x_129 = lean_array_push(x_8, x_128); -x_130 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_130, 0, x_129); -lean_ctor_set(x_130, 1, x_10); -return x_130; +lean_ctor_set(x_132, 0, x_129); +lean_ctor_set(x_132, 1, x_130); +x_133 = lean_array_push(x_8, x_132); +x_134 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_134, 0, x_133); +lean_ctor_set(x_134, 1, x_10); +return x_134; } else { -lean_object* x_131; -x_131 = lean_ctor_get(x_124, 0); -lean_inc(x_131); -if (lean_obj_tag(x_131) == 0) -{ -lean_object* x_132; -x_132 = lean_ctor_get(x_131, 0); -lean_inc(x_132); -if (lean_obj_tag(x_132) == 0) -{ -lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; -lean_dec(x_131); -x_133 = lean_ctor_get(x_124, 1); -lean_inc(x_133); -if (lean_is_exclusive(x_124)) { - lean_ctor_release(x_124, 0); - lean_ctor_release(x_124, 1); - x_134 = x_124; -} else { - lean_dec_ref(x_124); - x_134 = lean_box(0); -} -x_135 = lean_ctor_get(x_132, 0); +lean_object* x_135; +x_135 = lean_ctor_get(x_128, 0); lean_inc(x_135); -lean_dec(x_132); -if (lean_is_scalar(x_134)) { - x_136 = lean_alloc_ctor(1, 2, 0); +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; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; +lean_dec(x_135); +x_137 = lean_ctor_get(x_128, 1); +lean_inc(x_137); +if (lean_is_exclusive(x_128)) { + lean_ctor_release(x_128, 0); + lean_ctor_release(x_128, 1); + x_138 = x_128; } else { - x_136 = x_134; + lean_dec_ref(x_128); + x_138 = lean_box(0); } -lean_ctor_set(x_136, 0, x_135); -lean_ctor_set(x_136, 1, x_133); -x_137 = lean_array_push(x_8, x_136); -x_138 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_138, 0, x_137); -lean_ctor_set(x_138, 1, x_10); -return x_138; +x_139 = lean_ctor_get(x_136, 0); +lean_inc(x_139); +lean_dec(x_136); +if (lean_is_scalar(x_138)) { + x_140 = lean_alloc_ctor(1, 2, 0); +} else { + x_140 = x_138; +} +lean_ctor_set(x_140, 0, x_139); +lean_ctor_set(x_140, 1, x_137); +x_141 = lean_array_push(x_8, x_140); +x_142 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_142, 0, x_141); +lean_ctor_set(x_142, 1, x_10); +return x_142; } else { -lean_object* x_139; lean_object* x_140; lean_object* x_141; +lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_dec(x_10); lean_dec(x_8); -x_139 = lean_ctor_get(x_124, 1); -lean_inc(x_139); -if (lean_is_exclusive(x_124)) { - lean_ctor_release(x_124, 0); - lean_ctor_release(x_124, 1); - x_140 = x_124; +x_143 = lean_ctor_get(x_128, 1); +lean_inc(x_143); +if (lean_is_exclusive(x_128)) { + lean_ctor_release(x_128, 0); + lean_ctor_release(x_128, 1); + x_144 = x_128; } else { - lean_dec_ref(x_124); - x_140 = lean_box(0); + lean_dec_ref(x_128); + x_144 = lean_box(0); } -if (lean_is_scalar(x_140)) { - x_141 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_144)) { + x_145 = lean_alloc_ctor(1, 2, 0); } else { - x_141 = x_140; + x_145 = x_144; } -lean_ctor_set(x_141, 0, x_131); -lean_ctor_set(x_141, 1, x_139); -return x_141; +lean_ctor_set(x_145, 0, x_135); +lean_ctor_set(x_145, 1, x_143); +return x_145; } } else { -lean_object* x_142; lean_object* x_143; +lean_object* x_146; lean_object* x_147; lean_dec(x_8); -if (lean_is_exclusive(x_124)) { - lean_ctor_release(x_124, 0); - lean_ctor_release(x_124, 1); - x_142 = x_124; +if (lean_is_exclusive(x_128)) { + lean_ctor_release(x_128, 0); + lean_ctor_release(x_128, 1); + x_146 = x_128; } else { - lean_dec_ref(x_124); - x_142 = lean_box(0); + lean_dec_ref(x_128); + x_146 = lean_box(0); } -if (lean_is_scalar(x_142)) { - x_143 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_146)) { + x_147 = lean_alloc_ctor(1, 2, 0); } else { - x_143 = x_142; + x_147 = x_146; } -lean_ctor_set(x_143, 0, x_131); -lean_ctor_set(x_143, 1, x_10); -return x_143; +lean_ctor_set(x_147, 0, x_135); +lean_ctor_set(x_147, 1, x_10); +return x_147; } } } } else { -lean_object* x_144; +lean_object* x_148; lean_dec(x_9); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); lean_dec(x_1); -x_144 = lean_ctor_get(x_93, 0); -lean_inc(x_144); -if (lean_obj_tag(x_144) == 0) -{ -lean_object* x_145; -x_145 = lean_ctor_get(x_144, 0); -lean_inc(x_145); -if (lean_obj_tag(x_145) == 0) -{ -uint8_t x_146; -lean_dec(x_144); -x_146 = !lean_is_exclusive(x_93); -if (x_146 == 0) -{ -lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; -x_147 = lean_ctor_get(x_93, 0); -lean_dec(x_147); -x_148 = lean_ctor_get(x_145, 0); +x_148 = lean_ctor_get(x_97, 0); lean_inc(x_148); -lean_dec(x_145); -lean_ctor_set(x_93, 0, x_148); -x_149 = lean_array_push(x_8, x_93); -x_150 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_150, 0, x_149); -lean_ctor_set(x_150, 1, x_10); -return x_150; -} -else +if (lean_obj_tag(x_148) == 0) { -lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; -x_151 = lean_ctor_get(x_93, 1); -lean_inc(x_151); -lean_dec(x_93); -x_152 = lean_ctor_get(x_145, 0); +lean_object* x_149; +x_149 = lean_ctor_get(x_148, 0); +lean_inc(x_149); +if (lean_obj_tag(x_149) == 0) +{ +uint8_t x_150; +lean_dec(x_148); +x_150 = !lean_is_exclusive(x_97); +if (x_150 == 0) +{ +lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; +x_151 = lean_ctor_get(x_97, 0); +lean_dec(x_151); +x_152 = lean_ctor_get(x_149, 0); lean_inc(x_152); -lean_dec(x_145); -x_153 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_153, 0, x_152); -lean_ctor_set(x_153, 1, x_151); -x_154 = lean_array_push(x_8, x_153); -x_155 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_155, 0, x_154); -lean_ctor_set(x_155, 1, x_10); -return x_155; -} +lean_dec(x_149); +lean_ctor_set(x_97, 0, x_152); +x_153 = lean_array_push(x_8, x_97); +x_154 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_154, 0, x_153); +lean_ctor_set(x_154, 1, x_10); +return x_154; } else { -uint8_t x_156; -lean_dec(x_10); -lean_dec(x_8); -x_156 = !lean_is_exclusive(x_93); -if (x_156 == 0) -{ -lean_object* x_157; -x_157 = lean_ctor_get(x_93, 0); -lean_dec(x_157); -return x_93; -} -else -{ -lean_object* x_158; lean_object* x_159; -x_158 = lean_ctor_get(x_93, 1); -lean_inc(x_158); -lean_dec(x_93); -x_159 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_159, 0, x_144); -lean_ctor_set(x_159, 1, x_158); +lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; +x_155 = lean_ctor_get(x_97, 1); +lean_inc(x_155); +lean_dec(x_97); +x_156 = lean_ctor_get(x_149, 0); +lean_inc(x_156); +lean_dec(x_149); +x_157 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_157, 0, x_156); +lean_ctor_set(x_157, 1, x_155); +x_158 = lean_array_push(x_8, x_157); +x_159 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_159, 0, x_158); +lean_ctor_set(x_159, 1, x_10); return x_159; } } -} else { uint8_t x_160; +lean_dec(x_10); lean_dec(x_8); -x_160 = !lean_is_exclusive(x_93); +x_160 = !lean_is_exclusive(x_97); if (x_160 == 0) { -lean_object* x_161; lean_object* x_162; -x_161 = lean_ctor_get(x_93, 1); +lean_object* x_161; +x_161 = lean_ctor_get(x_97, 0); lean_dec(x_161); -x_162 = lean_ctor_get(x_93, 0); -lean_dec(x_162); -lean_ctor_set(x_93, 1, x_10); -return x_93; +return x_97; } else { -lean_object* x_163; -lean_dec(x_93); +lean_object* x_162; lean_object* x_163; +x_162 = lean_ctor_get(x_97, 1); +lean_inc(x_162); +lean_dec(x_97); x_163 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_163, 0, x_144); -lean_ctor_set(x_163, 1, x_10); +lean_ctor_set(x_163, 0, x_148); +lean_ctor_set(x_163, 1, x_162); return x_163; } } } -} else { -lean_object* x_164; lean_object* x_165; lean_object* x_166; uint8_t x_167; -x_164 = lean_unsigned_to_nat(1u); -x_165 = l_Lean_Syntax_getArg(x_2, x_164); -lean_dec(x_2); -x_166 = l_Lean_Syntax_getArgs(x_165); +uint8_t x_164; +lean_dec(x_8); +x_164 = !lean_is_exclusive(x_97); +if (x_164 == 0) +{ +lean_object* x_165; lean_object* x_166; +x_165 = lean_ctor_get(x_97, 1); lean_dec(x_165); -x_167 = l_Array_isEmpty___rarg(x_166); -if (x_167 == 0) -{ -lean_object* x_168; lean_object* x_169; lean_object* x_170; -x_168 = l_Lean_Syntax_inhabited; -x_169 = lean_array_get(x_168, x_166, x_86); +x_166 = lean_ctor_get(x_97, 0); lean_dec(x_166); -x_170 = l_Lean_Elab_Term_elabExplicitUniv(x_169, x_9, x_10); -lean_dec(x_169); -if (lean_obj_tag(x_170) == 0) -{ -lean_object* x_171; lean_object* x_172; lean_object* x_173; -x_171 = lean_ctor_get(x_170, 0); -lean_inc(x_171); -x_172 = lean_ctor_get(x_170, 1); -lean_inc(x_172); -lean_dec(x_170); -x_173 = l___private_Init_Lean_Elab_TermApp_14__elabAppFnId(x_1, x_87, x_171, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_172); -return x_173; +lean_ctor_set(x_97, 1, x_10); +return x_97; } else { -uint8_t x_174; -lean_dec(x_87); +lean_object* x_167; +lean_dec(x_97); +x_167 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_167, 0, x_148); +lean_ctor_set(x_167, 1, x_10); +return x_167; +} +} +} +} +else +{ +lean_object* x_168; lean_object* x_169; lean_object* x_170; uint8_t x_171; +x_168 = lean_unsigned_to_nat(0u); +x_169 = l_Lean_Syntax_getArg(x_2, x_168); +x_170 = l_Lean_identKind___closed__2; +lean_inc(x_169); +x_171 = l_Lean_Syntax_isOfKind(x_169, x_170); +if (x_171 == 0) +{ +lean_object* x_172; uint8_t x_173; lean_object* x_174; +lean_dec(x_169); +x_172 = lean_box(0); +x_173 = 1; +lean_inc(x_10); +lean_inc(x_9); +x_174 = l_Lean_Elab_Term_elabTermAux___main(x_172, x_173, x_2, x_9, x_10); +if (lean_obj_tag(x_174) == 0) +{ +uint8_t x_175; +x_175 = !lean_is_exclusive(x_174); +if (x_175 == 0) +{ +lean_object* x_176; lean_object* x_177; lean_object* x_178; +x_176 = lean_ctor_get(x_174, 0); +x_177 = lean_ctor_get(x_174, 1); +x_178 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_176, x_3, x_4, x_5, x_6, x_7, x_9, x_177); +if (lean_obj_tag(x_178) == 0) +{ +uint8_t x_179; +x_179 = !lean_is_exclusive(x_178); +if (x_179 == 0) +{ +lean_object* x_180; +x_180 = lean_array_push(x_8, x_178); +lean_ctor_set(x_174, 1, x_10); +lean_ctor_set(x_174, 0, x_180); +return x_174; +} +else +{ +lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; +x_181 = lean_ctor_get(x_178, 0); +x_182 = lean_ctor_get(x_178, 1); +lean_inc(x_182); +lean_inc(x_181); +lean_dec(x_178); +x_183 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_183, 0, x_181); +lean_ctor_set(x_183, 1, x_182); +x_184 = lean_array_push(x_8, x_183); +lean_ctor_set(x_174, 1, x_10); +lean_ctor_set(x_174, 0, x_184); +return x_174; +} +} +else +{ +lean_object* x_185; +x_185 = lean_ctor_get(x_178, 0); +lean_inc(x_185); +if (lean_obj_tag(x_185) == 0) +{ +lean_object* x_186; +x_186 = lean_ctor_get(x_185, 0); +lean_inc(x_186); +if (lean_obj_tag(x_186) == 0) +{ +uint8_t x_187; +lean_dec(x_185); +x_187 = !lean_is_exclusive(x_178); +if (x_187 == 0) +{ +lean_object* x_188; lean_object* x_189; lean_object* x_190; +x_188 = lean_ctor_get(x_178, 0); +lean_dec(x_188); +x_189 = lean_ctor_get(x_186, 0); +lean_inc(x_189); +lean_dec(x_186); +lean_ctor_set(x_178, 0, x_189); +x_190 = lean_array_push(x_8, x_178); +lean_ctor_set(x_174, 1, x_10); +lean_ctor_set(x_174, 0, x_190); +return x_174; +} +else +{ +lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; +x_191 = lean_ctor_get(x_178, 1); +lean_inc(x_191); +lean_dec(x_178); +x_192 = lean_ctor_get(x_186, 0); +lean_inc(x_192); +lean_dec(x_186); +x_193 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_193, 0, x_192); +lean_ctor_set(x_193, 1, x_191); +x_194 = lean_array_push(x_8, x_193); +lean_ctor_set(x_174, 1, x_10); +lean_ctor_set(x_174, 0, x_194); +return x_174; +} +} +else +{ +uint8_t x_195; +lean_free_object(x_174); +lean_dec(x_10); +lean_dec(x_8); +x_195 = !lean_is_exclusive(x_178); +if (x_195 == 0) +{ +lean_object* x_196; +x_196 = lean_ctor_get(x_178, 0); +lean_dec(x_196); +return x_178; +} +else +{ +lean_object* x_197; lean_object* x_198; +x_197 = lean_ctor_get(x_178, 1); +lean_inc(x_197); +lean_dec(x_178); +x_198 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_198, 0, x_185); +lean_ctor_set(x_198, 1, x_197); +return x_198; +} +} +} +else +{ +uint8_t x_199; +lean_free_object(x_174); +lean_dec(x_8); +x_199 = !lean_is_exclusive(x_178); +if (x_199 == 0) +{ +lean_object* x_200; lean_object* x_201; +x_200 = lean_ctor_get(x_178, 1); +lean_dec(x_200); +x_201 = lean_ctor_get(x_178, 0); +lean_dec(x_201); +lean_ctor_set(x_178, 1, x_10); +return x_178; +} +else +{ +lean_object* x_202; +lean_dec(x_178); +x_202 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_202, 0, x_185); +lean_ctor_set(x_202, 1, x_10); +return x_202; +} +} +} +} +else +{ +lean_object* x_203; lean_object* x_204; lean_object* x_205; +x_203 = lean_ctor_get(x_174, 0); +x_204 = lean_ctor_get(x_174, 1); +lean_inc(x_204); +lean_inc(x_203); +lean_dec(x_174); +x_205 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_203, x_3, x_4, x_5, x_6, x_7, x_9, x_204); +if (lean_obj_tag(x_205) == 0) +{ +lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; +x_206 = lean_ctor_get(x_205, 0); +lean_inc(x_206); +x_207 = lean_ctor_get(x_205, 1); +lean_inc(x_207); +if (lean_is_exclusive(x_205)) { + lean_ctor_release(x_205, 0); + lean_ctor_release(x_205, 1); + x_208 = x_205; +} else { + lean_dec_ref(x_205); + x_208 = lean_box(0); +} +if (lean_is_scalar(x_208)) { + x_209 = lean_alloc_ctor(0, 2, 0); +} else { + x_209 = x_208; +} +lean_ctor_set(x_209, 0, x_206); +lean_ctor_set(x_209, 1, x_207); +x_210 = lean_array_push(x_8, 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_10); +return x_211; +} +else +{ +lean_object* x_212; +x_212 = lean_ctor_get(x_205, 0); +lean_inc(x_212); +if (lean_obj_tag(x_212) == 0) +{ +lean_object* x_213; +x_213 = lean_ctor_get(x_212, 0); +lean_inc(x_213); +if (lean_obj_tag(x_213) == 0) +{ +lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; +lean_dec(x_212); +x_214 = lean_ctor_get(x_205, 1); +lean_inc(x_214); +if (lean_is_exclusive(x_205)) { + lean_ctor_release(x_205, 0); + lean_ctor_release(x_205, 1); + x_215 = x_205; +} else { + lean_dec_ref(x_205); + x_215 = lean_box(0); +} +x_216 = lean_ctor_get(x_213, 0); +lean_inc(x_216); +lean_dec(x_213); +if (lean_is_scalar(x_215)) { + x_217 = lean_alloc_ctor(1, 2, 0); +} else { + x_217 = x_215; +} +lean_ctor_set(x_217, 0, x_216); +lean_ctor_set(x_217, 1, x_214); +x_218 = lean_array_push(x_8, x_217); +x_219 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_219, 0, x_218); +lean_ctor_set(x_219, 1, x_10); +return x_219; +} +else +{ +lean_object* x_220; lean_object* x_221; lean_object* x_222; +lean_dec(x_10); +lean_dec(x_8); +x_220 = lean_ctor_get(x_205, 1); +lean_inc(x_220); +if (lean_is_exclusive(x_205)) { + lean_ctor_release(x_205, 0); + lean_ctor_release(x_205, 1); + x_221 = x_205; +} else { + lean_dec_ref(x_205); + x_221 = lean_box(0); +} +if (lean_is_scalar(x_221)) { + x_222 = lean_alloc_ctor(1, 2, 0); +} else { + x_222 = x_221; +} +lean_ctor_set(x_222, 0, x_212); +lean_ctor_set(x_222, 1, x_220); +return x_222; +} +} +else +{ +lean_object* x_223; lean_object* x_224; +lean_dec(x_8); +if (lean_is_exclusive(x_205)) { + lean_ctor_release(x_205, 0); + lean_ctor_release(x_205, 1); + x_223 = x_205; +} else { + lean_dec_ref(x_205); + x_223 = lean_box(0); +} +if (lean_is_scalar(x_223)) { + x_224 = lean_alloc_ctor(1, 2, 0); +} else { + x_224 = x_223; +} +lean_ctor_set(x_224, 0, x_212); +lean_ctor_set(x_224, 1, x_10); +return x_224; +} +} +} +} +else +{ +lean_object* x_225; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_225 = lean_ctor_get(x_174, 0); +lean_inc(x_225); +if (lean_obj_tag(x_225) == 0) +{ +lean_object* x_226; +x_226 = lean_ctor_get(x_225, 0); +lean_inc(x_226); +if (lean_obj_tag(x_226) == 0) +{ +uint8_t x_227; +lean_dec(x_225); +x_227 = !lean_is_exclusive(x_174); +if (x_227 == 0) +{ +lean_object* x_228; lean_object* x_229; lean_object* x_230; lean_object* x_231; +x_228 = lean_ctor_get(x_174, 0); +lean_dec(x_228); +x_229 = lean_ctor_get(x_226, 0); +lean_inc(x_229); +lean_dec(x_226); +lean_ctor_set(x_174, 0, x_229); +x_230 = lean_array_push(x_8, x_174); +x_231 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_231, 0, x_230); +lean_ctor_set(x_231, 1, x_10); +return x_231; +} +else +{ +lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; +x_232 = lean_ctor_get(x_174, 1); +lean_inc(x_232); +lean_dec(x_174); +x_233 = lean_ctor_get(x_226, 0); +lean_inc(x_233); +lean_dec(x_226); +x_234 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_234, 0, x_233); +lean_ctor_set(x_234, 1, x_232); +x_235 = lean_array_push(x_8, x_234); +x_236 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_236, 0, x_235); +lean_ctor_set(x_236, 1, x_10); +return x_236; +} +} +else +{ +uint8_t x_237; +lean_dec(x_10); +lean_dec(x_8); +x_237 = !lean_is_exclusive(x_174); +if (x_237 == 0) +{ +lean_object* x_238; +x_238 = lean_ctor_get(x_174, 0); +lean_dec(x_238); +return x_174; +} +else +{ +lean_object* x_239; lean_object* x_240; +x_239 = lean_ctor_get(x_174, 1); +lean_inc(x_239); +lean_dec(x_174); +x_240 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_240, 0, x_225); +lean_ctor_set(x_240, 1, x_239); +return x_240; +} +} +} +else +{ +uint8_t x_241; +lean_dec(x_8); +x_241 = !lean_is_exclusive(x_174); +if (x_241 == 0) +{ +lean_object* x_242; lean_object* x_243; +x_242 = lean_ctor_get(x_174, 1); +lean_dec(x_242); +x_243 = lean_ctor_get(x_174, 0); +lean_dec(x_243); +lean_ctor_set(x_174, 1, x_10); +return x_174; +} +else +{ +lean_object* x_244; +lean_dec(x_174); +x_244 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_244, 0, x_225); +lean_ctor_set(x_244, 1, x_10); +return x_244; +} +} +} +} +else +{ +lean_object* x_245; lean_object* x_246; lean_object* x_247; uint8_t x_248; +x_245 = lean_unsigned_to_nat(1u); +x_246 = l_Lean_Syntax_getArg(x_2, x_245); +lean_dec(x_2); +x_247 = l_Lean_Syntax_getArgs(x_246); +lean_dec(x_246); +x_248 = l_Array_isEmpty___rarg(x_247); +if (x_248 == 0) +{ +lean_object* x_249; lean_object* x_250; lean_object* x_251; +x_249 = l_Lean_Syntax_inhabited; +x_250 = lean_array_get(x_249, x_247, x_168); +lean_dec(x_247); +x_251 = l_Lean_Elab_Term_elabExplicitUniv(x_250, x_9, x_10); +lean_dec(x_250); +if (lean_obj_tag(x_251) == 0) +{ +lean_object* x_252; lean_object* x_253; lean_object* x_254; +x_252 = lean_ctor_get(x_251, 0); +lean_inc(x_252); +x_253 = lean_ctor_get(x_251, 1); +lean_inc(x_253); +lean_dec(x_251); +x_254 = l___private_Init_Lean_Elab_TermApp_14__elabAppFnId(x_1, x_169, x_252, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_253); +return x_254; +} +else +{ +uint8_t x_255; +lean_dec(x_169); lean_dec(x_9); lean_dec(x_8); lean_dec(x_6); @@ -8095,38 +7872,625 @@ lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); lean_dec(x_1); -x_174 = !lean_is_exclusive(x_170); -if (x_174 == 0) +x_255 = !lean_is_exclusive(x_251); +if (x_255 == 0) { -return x_170; +return x_251; } else { -lean_object* x_175; lean_object* x_176; lean_object* x_177; -x_175 = lean_ctor_get(x_170, 0); -x_176 = lean_ctor_get(x_170, 1); -lean_inc(x_176); -lean_inc(x_175); -lean_dec(x_170); -x_177 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_177, 0, x_175); -lean_ctor_set(x_177, 1, x_176); -return x_177; +lean_object* x_256; lean_object* x_257; lean_object* x_258; +x_256 = lean_ctor_get(x_251, 0); +x_257 = lean_ctor_get(x_251, 1); +lean_inc(x_257); +lean_inc(x_256); +lean_dec(x_251); +x_258 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_258, 0, x_256); +lean_ctor_set(x_258, 1, x_257); +return x_258; } } } else { -lean_object* x_178; lean_object* x_179; -lean_dec(x_166); -x_178 = lean_box(0); -x_179 = l___private_Init_Lean_Elab_TermApp_14__elabAppFnId(x_1, x_87, x_178, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10); -return x_179; +lean_object* x_259; lean_object* x_260; +lean_dec(x_247); +x_259 = lean_box(0); +x_260 = l___private_Init_Lean_Elab_TermApp_14__elabAppFnId(x_1, x_169, x_259, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10); +return x_260; } } } } } +block_397: +{ +lean_object* x_263; uint8_t x_264; +lean_dec(x_262); +x_263 = l_Lean_Parser_Term_proj___elambda__1___closed__2; +lean_inc(x_2); +x_264 = l_Lean_Syntax_isOfKind(x_2, x_263); +if (x_264 == 0) +{ +lean_object* x_265; uint8_t x_266; +x_265 = l_Lean_Parser_Term_arrayRef___elambda__1___closed__2; +lean_inc(x_2); +x_266 = l_Lean_Syntax_isOfKind(x_2, x_265); +if (x_266 == 0) +{ +lean_object* x_267; +x_267 = lean_box(0); +x_15 = x_267; +goto block_261; +} +else +{ +lean_object* x_268; lean_object* x_269; lean_object* x_270; uint8_t x_271; +x_268 = l_Lean_Syntax_getArgs(x_2); +x_269 = lean_array_get_size(x_268); +lean_dec(x_268); +x_270 = lean_unsigned_to_nat(4u); +x_271 = lean_nat_dec_eq(x_269, x_270); +lean_dec(x_269); +if (x_271 == 0) +{ +lean_object* x_272; +x_272 = lean_box(0); +x_15 = x_272; +goto block_261; +} +else +{ +lean_object* x_273; lean_object* x_274; lean_object* x_275; lean_object* x_276; lean_object* x_277; lean_object* x_278; +x_273 = lean_unsigned_to_nat(0u); +x_274 = l_Lean_Syntax_getArg(x_2, x_273); +x_275 = lean_unsigned_to_nat(2u); +x_276 = l_Lean_Syntax_getArg(x_2, x_275); +lean_dec(x_2); +x_277 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_277, 0, x_276); +x_278 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_278, 0, x_277); +lean_ctor_set(x_278, 1, x_3); +x_2 = x_274; +x_3 = x_278; +goto _start; +} +} +} +else +{ +lean_object* x_280; lean_object* x_281; lean_object* x_282; uint8_t x_283; +x_280 = l_Lean_Syntax_getArgs(x_2); +x_281 = lean_array_get_size(x_280); +lean_dec(x_280); +x_282 = lean_unsigned_to_nat(3u); +x_283 = lean_nat_dec_eq(x_281, x_282); +if (x_283 == 0) +{ +lean_object* x_284; uint8_t x_285; +x_284 = l_Lean_Parser_Term_arrayRef___elambda__1___closed__2; +lean_inc(x_2); +x_285 = l_Lean_Syntax_isOfKind(x_2, x_284); +if (x_285 == 0) +{ +lean_object* x_286; +lean_dec(x_281); +x_286 = lean_box(0); +x_15 = x_286; +goto block_261; +} +else +{ +lean_object* x_287; uint8_t x_288; +x_287 = lean_unsigned_to_nat(4u); +x_288 = lean_nat_dec_eq(x_281, x_287); +lean_dec(x_281); +if (x_288 == 0) +{ +lean_object* x_289; +x_289 = lean_box(0); +x_15 = x_289; +goto block_261; +} +else +{ +lean_object* x_290; lean_object* x_291; lean_object* x_292; lean_object* x_293; lean_object* x_294; lean_object* x_295; +x_290 = lean_unsigned_to_nat(0u); +x_291 = l_Lean_Syntax_getArg(x_2, x_290); +x_292 = lean_unsigned_to_nat(2u); +x_293 = l_Lean_Syntax_getArg(x_2, x_292); +lean_dec(x_2); +x_294 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_294, 0, x_293); +x_295 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_295, 0, x_294); +lean_ctor_set(x_295, 1, x_3); +x_2 = x_291; +x_3 = x_295; +goto _start; +} +} +} +else +{ +lean_object* x_297; lean_object* x_298; lean_object* x_299; uint8_t x_300; +lean_dec(x_281); +x_297 = lean_unsigned_to_nat(2u); +x_298 = l_Lean_Syntax_getArg(x_2, x_297); +x_299 = l_Lean_fieldIdxKind___closed__2; +lean_inc(x_298); +x_300 = l_Lean_Syntax_isOfKind(x_298, x_299); +if (x_300 == 0) +{ +lean_object* x_301; uint8_t x_302; +x_301 = l_Lean_identKind___closed__2; +lean_inc(x_298); +x_302 = l_Lean_Syntax_isOfKind(x_298, x_301); +if (x_302 == 0) +{ +lean_object* x_303; uint8_t x_304; lean_object* x_305; +lean_dec(x_298); +x_303 = lean_box(0); +x_304 = 1; +lean_inc(x_10); +lean_inc(x_9); +x_305 = l_Lean_Elab_Term_elabTermAux___main(x_303, x_304, x_2, x_9, x_10); +if (lean_obj_tag(x_305) == 0) +{ +uint8_t x_306; +x_306 = !lean_is_exclusive(x_305); +if (x_306 == 0) +{ +lean_object* x_307; lean_object* x_308; lean_object* x_309; +x_307 = lean_ctor_get(x_305, 0); +x_308 = lean_ctor_get(x_305, 1); +x_309 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_307, x_3, x_4, x_5, x_6, x_7, x_9, x_308); +if (lean_obj_tag(x_309) == 0) +{ +uint8_t x_310; +x_310 = !lean_is_exclusive(x_309); +if (x_310 == 0) +{ +lean_object* x_311; +x_311 = lean_array_push(x_8, x_309); +lean_ctor_set(x_305, 1, x_10); +lean_ctor_set(x_305, 0, x_311); +return x_305; +} +else +{ +lean_object* x_312; lean_object* x_313; lean_object* x_314; lean_object* x_315; +x_312 = lean_ctor_get(x_309, 0); +x_313 = lean_ctor_get(x_309, 1); +lean_inc(x_313); +lean_inc(x_312); +lean_dec(x_309); +x_314 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_314, 0, x_312); +lean_ctor_set(x_314, 1, x_313); +x_315 = lean_array_push(x_8, x_314); +lean_ctor_set(x_305, 1, x_10); +lean_ctor_set(x_305, 0, x_315); +return x_305; +} +} +else +{ +lean_object* x_316; +x_316 = lean_ctor_get(x_309, 0); +lean_inc(x_316); +if (lean_obj_tag(x_316) == 0) +{ +lean_object* x_317; +x_317 = lean_ctor_get(x_316, 0); +lean_inc(x_317); +if (lean_obj_tag(x_317) == 0) +{ +uint8_t x_318; +lean_dec(x_316); +x_318 = !lean_is_exclusive(x_309); +if (x_318 == 0) +{ +lean_object* x_319; lean_object* x_320; lean_object* x_321; +x_319 = lean_ctor_get(x_309, 0); +lean_dec(x_319); +x_320 = lean_ctor_get(x_317, 0); +lean_inc(x_320); +lean_dec(x_317); +lean_ctor_set(x_309, 0, x_320); +x_321 = lean_array_push(x_8, x_309); +lean_ctor_set(x_305, 1, x_10); +lean_ctor_set(x_305, 0, x_321); +return x_305; +} +else +{ +lean_object* x_322; lean_object* x_323; lean_object* x_324; lean_object* x_325; +x_322 = lean_ctor_get(x_309, 1); +lean_inc(x_322); +lean_dec(x_309); +x_323 = lean_ctor_get(x_317, 0); +lean_inc(x_323); +lean_dec(x_317); +x_324 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_324, 0, x_323); +lean_ctor_set(x_324, 1, x_322); +x_325 = lean_array_push(x_8, x_324); +lean_ctor_set(x_305, 1, x_10); +lean_ctor_set(x_305, 0, x_325); +return x_305; +} +} +else +{ +uint8_t x_326; +lean_free_object(x_305); +lean_dec(x_10); +lean_dec(x_8); +x_326 = !lean_is_exclusive(x_309); +if (x_326 == 0) +{ +lean_object* x_327; +x_327 = lean_ctor_get(x_309, 0); +lean_dec(x_327); +return x_309; +} +else +{ +lean_object* x_328; lean_object* x_329; +x_328 = lean_ctor_get(x_309, 1); +lean_inc(x_328); +lean_dec(x_309); +x_329 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_329, 0, x_316); +lean_ctor_set(x_329, 1, x_328); +return x_329; +} +} +} +else +{ +uint8_t x_330; +lean_free_object(x_305); +lean_dec(x_8); +x_330 = !lean_is_exclusive(x_309); +if (x_330 == 0) +{ +lean_object* x_331; lean_object* x_332; +x_331 = lean_ctor_get(x_309, 1); +lean_dec(x_331); +x_332 = lean_ctor_get(x_309, 0); +lean_dec(x_332); +lean_ctor_set(x_309, 1, x_10); +return x_309; +} +else +{ +lean_object* x_333; +lean_dec(x_309); +x_333 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_333, 0, x_316); +lean_ctor_set(x_333, 1, x_10); +return x_333; +} +} +} +} +else +{ +lean_object* x_334; lean_object* x_335; lean_object* x_336; +x_334 = lean_ctor_get(x_305, 0); +x_335 = lean_ctor_get(x_305, 1); +lean_inc(x_335); +lean_inc(x_334); +lean_dec(x_305); +x_336 = l___private_Init_Lean_Elab_TermApp_13__elabAppLVals(x_1, x_334, x_3, x_4, x_5, x_6, x_7, x_9, x_335); +if (lean_obj_tag(x_336) == 0) +{ +lean_object* x_337; lean_object* x_338; lean_object* x_339; lean_object* x_340; lean_object* x_341; lean_object* x_342; +x_337 = lean_ctor_get(x_336, 0); +lean_inc(x_337); +x_338 = lean_ctor_get(x_336, 1); +lean_inc(x_338); +if (lean_is_exclusive(x_336)) { + lean_ctor_release(x_336, 0); + lean_ctor_release(x_336, 1); + x_339 = x_336; +} else { + lean_dec_ref(x_336); + x_339 = lean_box(0); +} +if (lean_is_scalar(x_339)) { + x_340 = lean_alloc_ctor(0, 2, 0); +} else { + x_340 = x_339; +} +lean_ctor_set(x_340, 0, x_337); +lean_ctor_set(x_340, 1, x_338); +x_341 = lean_array_push(x_8, x_340); +x_342 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_342, 0, x_341); +lean_ctor_set(x_342, 1, x_10); +return x_342; +} +else +{ +lean_object* x_343; +x_343 = lean_ctor_get(x_336, 0); +lean_inc(x_343); +if (lean_obj_tag(x_343) == 0) +{ +lean_object* x_344; +x_344 = lean_ctor_get(x_343, 0); +lean_inc(x_344); +if (lean_obj_tag(x_344) == 0) +{ +lean_object* x_345; lean_object* x_346; lean_object* x_347; lean_object* x_348; lean_object* x_349; lean_object* x_350; +lean_dec(x_343); +x_345 = lean_ctor_get(x_336, 1); +lean_inc(x_345); +if (lean_is_exclusive(x_336)) { + lean_ctor_release(x_336, 0); + lean_ctor_release(x_336, 1); + x_346 = x_336; +} else { + lean_dec_ref(x_336); + x_346 = lean_box(0); +} +x_347 = lean_ctor_get(x_344, 0); +lean_inc(x_347); +lean_dec(x_344); +if (lean_is_scalar(x_346)) { + x_348 = lean_alloc_ctor(1, 2, 0); +} else { + x_348 = x_346; +} +lean_ctor_set(x_348, 0, x_347); +lean_ctor_set(x_348, 1, x_345); +x_349 = lean_array_push(x_8, x_348); +x_350 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_350, 0, x_349); +lean_ctor_set(x_350, 1, x_10); +return x_350; +} +else +{ +lean_object* x_351; lean_object* x_352; lean_object* x_353; +lean_dec(x_10); +lean_dec(x_8); +x_351 = lean_ctor_get(x_336, 1); +lean_inc(x_351); +if (lean_is_exclusive(x_336)) { + lean_ctor_release(x_336, 0); + lean_ctor_release(x_336, 1); + x_352 = x_336; +} else { + lean_dec_ref(x_336); + x_352 = lean_box(0); +} +if (lean_is_scalar(x_352)) { + x_353 = lean_alloc_ctor(1, 2, 0); +} else { + x_353 = x_352; +} +lean_ctor_set(x_353, 0, x_343); +lean_ctor_set(x_353, 1, x_351); +return x_353; +} +} +else +{ +lean_object* x_354; lean_object* x_355; +lean_dec(x_8); +if (lean_is_exclusive(x_336)) { + lean_ctor_release(x_336, 0); + lean_ctor_release(x_336, 1); + x_354 = x_336; +} else { + lean_dec_ref(x_336); + x_354 = lean_box(0); +} +if (lean_is_scalar(x_354)) { + x_355 = lean_alloc_ctor(1, 2, 0); +} else { + x_355 = x_354; +} +lean_ctor_set(x_355, 0, x_343); +lean_ctor_set(x_355, 1, x_10); +return x_355; +} +} +} +} +else +{ +lean_object* x_356; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_356 = lean_ctor_get(x_305, 0); +lean_inc(x_356); +if (lean_obj_tag(x_356) == 0) +{ +lean_object* x_357; +x_357 = lean_ctor_get(x_356, 0); +lean_inc(x_357); +if (lean_obj_tag(x_357) == 0) +{ +uint8_t x_358; +lean_dec(x_356); +x_358 = !lean_is_exclusive(x_305); +if (x_358 == 0) +{ +lean_object* x_359; lean_object* x_360; lean_object* x_361; lean_object* x_362; +x_359 = lean_ctor_get(x_305, 0); +lean_dec(x_359); +x_360 = lean_ctor_get(x_357, 0); +lean_inc(x_360); +lean_dec(x_357); +lean_ctor_set(x_305, 0, x_360); +x_361 = lean_array_push(x_8, x_305); +x_362 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_362, 0, x_361); +lean_ctor_set(x_362, 1, x_10); +return x_362; +} +else +{ +lean_object* x_363; lean_object* x_364; lean_object* x_365; lean_object* x_366; lean_object* x_367; +x_363 = lean_ctor_get(x_305, 1); +lean_inc(x_363); +lean_dec(x_305); +x_364 = lean_ctor_get(x_357, 0); +lean_inc(x_364); +lean_dec(x_357); +x_365 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_365, 0, x_364); +lean_ctor_set(x_365, 1, x_363); +x_366 = lean_array_push(x_8, x_365); +x_367 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_367, 0, x_366); +lean_ctor_set(x_367, 1, x_10); +return x_367; +} +} +else +{ +uint8_t x_368; +lean_dec(x_10); +lean_dec(x_8); +x_368 = !lean_is_exclusive(x_305); +if (x_368 == 0) +{ +lean_object* x_369; +x_369 = lean_ctor_get(x_305, 0); +lean_dec(x_369); +return x_305; +} +else +{ +lean_object* x_370; lean_object* x_371; +x_370 = lean_ctor_get(x_305, 1); +lean_inc(x_370); +lean_dec(x_305); +x_371 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_371, 0, x_356); +lean_ctor_set(x_371, 1, x_370); +return x_371; +} +} +} +else +{ +uint8_t x_372; +lean_dec(x_8); +x_372 = !lean_is_exclusive(x_305); +if (x_372 == 0) +{ +lean_object* x_373; lean_object* x_374; +x_373 = lean_ctor_get(x_305, 1); +lean_dec(x_373); +x_374 = lean_ctor_get(x_305, 0); +lean_dec(x_374); +lean_ctor_set(x_305, 1, x_10); +return x_305; +} +else +{ +lean_object* x_375; +lean_dec(x_305); +x_375 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_375, 0, x_356); +lean_ctor_set(x_375, 1, x_10); +return x_375; +} +} +} +} +else +{ +lean_object* x_376; lean_object* x_377; lean_object* x_378; lean_object* x_379; lean_object* x_380; lean_object* x_381; +x_376 = l_Lean_Syntax_getId(x_298); +lean_dec(x_298); +x_377 = l_Lean_Name_components(x_376); +x_378 = l_List_map___main___at___private_Init_Lean_Elab_TermApp_15__elabAppFn___main___spec__1(x_377); +x_379 = lean_unsigned_to_nat(0u); +x_380 = l_Lean_Syntax_getArg(x_2, x_379); +lean_dec(x_2); +x_381 = l_List_append___rarg(x_378, x_3); +x_2 = x_380; +x_3 = x_381; +goto _start; +} +} +else +{ +lean_object* x_383; lean_object* x_384; lean_object* x_385; lean_object* x_386; +x_383 = l_Lean_fieldIdxKind; +x_384 = l_Lean_Syntax_isNatLitAux(x_383, x_298); +lean_dec(x_298); +x_385 = lean_unsigned_to_nat(0u); +x_386 = l_Lean_Syntax_getArg(x_2, x_385); +lean_dec(x_2); +if (lean_obj_tag(x_384) == 0) +{ +lean_object* x_387; lean_object* x_388; lean_object* x_389; lean_object* x_390; lean_object* x_391; +x_387 = l_Nat_Inhabited; +x_388 = l_Option_get_x21___rarg___closed__3; +x_389 = lean_panic_fn(x_387, x_388); +x_390 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_390, 0, x_389); +x_391 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_391, 0, x_390); +lean_ctor_set(x_391, 1, x_3); +x_2 = x_386; +x_3 = x_391; +goto _start; +} +else +{ +lean_object* x_393; lean_object* x_394; lean_object* x_395; +x_393 = lean_ctor_get(x_384, 0); +lean_inc(x_393); +lean_dec(x_384); +x_394 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_394, 0, x_393); +x_395 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_395, 0, x_394); +lean_ctor_set(x_395, 1, x_3); +x_2 = x_386; +x_3 = x_395; +goto _start; +} +} +} +} +} +} +else +{ +lean_object* x_485; lean_object* x_486; lean_object* x_487; +x_485 = l_Lean_Syntax_getArgs(x_2); +x_486 = lean_unsigned_to_nat(0u); +x_487 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_TermApp_15__elabAppFn___main___spec__2(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_485, x_486, x_8, x_9, x_10); +lean_dec(x_485); +lean_dec(x_2); +return x_487; +} +} +else +{ +lean_object* x_488; lean_object* x_489; +x_488 = lean_box(0); +x_489 = l___private_Init_Lean_Elab_TermApp_14__elabAppFnId(x_1, x_2, x_488, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10); +return x_489; +} +} } lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_TermApp_15__elabAppFn___main___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11, lean_object* x_12) { _start: diff --git a/stage0/stdlib/Init/Lean/Elab/TermBinders.c b/stage0/stdlib/Init/Lean/Elab/TermBinders.c index 3fd2b05a39..f958ef930c 100644 --- a/stage0/stdlib/Init/Lean/Elab/TermBinders.c +++ b/stage0/stdlib/Init/Lean/Elab/TermBinders.c @@ -41,7 +41,6 @@ lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabFun___closed__2; lean_object* l_Lean_Elab_Term_elabForall___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_typeAscription___elambda__1___closed__1; extern lean_object* l_Lean_Parser_Term_match___elambda__1___closed__1; -extern uint8_t l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; extern lean_object* l_Prod_HasRepr___rarg___closed__1; lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_TermBinders_8__getFunBinderIdsAux_x3f___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -138,7 +137,6 @@ lean_object* l_Lean_Elab_Term_elabArrow___lambda__1___closed__2; lean_object* l_Lean_Elab_Term_expandOptType(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabArrow___lambda__1___closed__6; lean_object* l_Lean_Elab_Term_mkFreshFVarId(lean_object*); -uint8_t l_coeDecidableEq(uint8_t); lean_object* l___private_Init_Lean_Elab_TermBinders_1__expandBinderType(lean_object*); uint8_t l_Array_isEmpty___rarg(lean_object*); extern lean_object* l_Lean_Parser_Term_arrow___elambda__1___closed__2; @@ -290,48 +288,35 @@ lean_inc(x_1); x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { -uint8_t x_6; -x_6 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_6 == 0) -{ -lean_object* x_7; -x_7 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_7, 0, x_1); -lean_ctor_set(x_7, 1, x_3); -return x_7; +lean_object* x_6; +x_6 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_6, 0, x_1); +lean_ctor_set(x_6, 1, x_3); +return x_6; } else { -lean_object* x_8; -x_8 = l_Lean_Elab_Term_mkFreshAnonymousIdent(x_1, x_2, x_3); +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_dec_eq(x_8, x_9); +lean_dec(x_8); +if (x_10 == 0) +{ +lean_object* x_11; +x_11 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_11, 0, x_1); +lean_ctor_set(x_11, 1, x_3); +return x_11; +} +else +{ +lean_object* x_12; +x_12 = l_Lean_Elab_Term_mkFreshAnonymousIdent(x_1, x_2, x_3); lean_dec(x_1); -return x_8; -} -} -else -{ -lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; uint8_t x_13; -x_9 = l_Lean_Syntax_getArgs(x_1); -x_10 = lean_array_get_size(x_9); -lean_dec(x_9); -x_11 = lean_unsigned_to_nat(1u); -x_12 = lean_nat_dec_eq(x_10, x_11); -lean_dec(x_10); -x_13 = l_coeDecidableEq(x_12); -if (x_13 == 0) -{ -lean_object* x_14; -x_14 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_14, 0, x_1); -lean_ctor_set(x_14, 1, x_3); -return x_14; -} -else -{ -lean_object* x_15; -x_15 = l_Lean_Elab_Term_mkFreshAnonymousIdent(x_1, x_2, x_3); -lean_dec(x_1); -return x_15; +return x_12; } } } @@ -3408,66 +3393,44 @@ lean_inc(x_1); x_6 = l_Lean_Syntax_isOfKind(x_1, x_5); if (x_6 == 0) { -uint8_t x_7; -x_7 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_7 == 0) -{ -lean_object* x_8; +lean_object* x_7; lean_dec(x_3); lean_dec(x_1); -x_8 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); -return x_8; +x_7 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); +return x_7; } else { -lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; -x_9 = lean_unsigned_to_nat(1u); -x_10 = l_Lean_Syntax_getArg(x_1, x_9); -x_11 = lean_unsigned_to_nat(3u); -x_12 = l_Lean_Syntax_getArg(x_1, x_11); -x_13 = l_Lean_Syntax_getArgs(x_10); -lean_dec(x_10); -x_14 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabForall___lambda__1___boxed), 5, 2); -lean_closure_set(x_14, 0, x_12); -lean_closure_set(x_14, 1, x_1); -x_15 = l_Lean_Elab_Term_elabBinders___rarg(x_13, x_14, x_3, x_4); -lean_dec(x_13); -return x_15; -} +lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; +x_8 = l_Lean_Syntax_getArgs(x_1); +x_9 = lean_array_get_size(x_8); +lean_dec(x_8); +x_10 = lean_unsigned_to_nat(4u); +x_11 = lean_nat_dec_eq(x_9, x_10); +lean_dec(x_9); +if (x_11 == 0) +{ +lean_object* x_12; +lean_dec(x_3); +lean_dec(x_1); +x_12 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); +return x_12; } else { -lean_object* x_16; lean_object* x_17; lean_object* x_18; uint8_t x_19; uint8_t x_20; -x_16 = l_Lean_Syntax_getArgs(x_1); -x_17 = lean_array_get_size(x_16); -lean_dec(x_16); -x_18 = lean_unsigned_to_nat(4u); -x_19 = lean_nat_dec_eq(x_17, x_18); +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_13 = lean_unsigned_to_nat(1u); +x_14 = l_Lean_Syntax_getArg(x_1, x_13); +x_15 = lean_unsigned_to_nat(3u); +x_16 = l_Lean_Syntax_getArg(x_1, x_15); +x_17 = l_Lean_Syntax_getArgs(x_14); +lean_dec(x_14); +x_18 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabForall___lambda__1___boxed), 5, 2); +lean_closure_set(x_18, 0, x_16); +lean_closure_set(x_18, 1, x_1); +x_19 = l_Lean_Elab_Term_elabBinders___rarg(x_17, x_18, x_3, x_4); lean_dec(x_17); -x_20 = l_coeDecidableEq(x_19); -if (x_20 == 0) -{ -lean_object* x_21; -lean_dec(x_3); -lean_dec(x_1); -x_21 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); -return x_21; -} -else -{ -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_22 = lean_unsigned_to_nat(1u); -x_23 = l_Lean_Syntax_getArg(x_1, x_22); -x_24 = lean_unsigned_to_nat(3u); -x_25 = l_Lean_Syntax_getArg(x_1, x_24); -x_26 = l_Lean_Syntax_getArgs(x_23); -lean_dec(x_23); -x_27 = lean_alloc_closure((void*)(l_Lean_Elab_Term_elabForall___lambda__1___boxed), 5, 2); -lean_closure_set(x_27, 0, x_25); -lean_closure_set(x_27, 1, x_1); -x_28 = l_Lean_Elab_Term_elabBinders___rarg(x_26, x_27, x_3, x_4); -lean_dec(x_26); -return x_28; +return x_19; } } } @@ -3620,33 +3583,10 @@ return x_3; lean_object* l_Lean_Elab_Term_elabArrow___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -uint8_t x_4; lean_object* x_83; uint8_t x_84; -x_83 = l_Lean_Parser_Term_arrow___elambda__1___closed__2; +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Parser_Term_arrow___elambda__1___closed__2; lean_inc(x_1); -x_84 = l_Lean_Syntax_isOfKind(x_1, x_83); -if (x_84 == 0) -{ -uint8_t x_85; -x_85 = 0; -x_4 = x_85; -goto block_82; -} -else -{ -lean_object* x_86; lean_object* x_87; lean_object* x_88; uint8_t x_89; -x_86 = l_Lean_Syntax_getArgs(x_1); -x_87 = lean_array_get_size(x_86); -lean_dec(x_86); -x_88 = lean_unsigned_to_nat(3u); -x_89 = lean_nat_dec_eq(x_87, x_88); -lean_dec(x_87); -x_4 = x_89; -goto block_82; -} -block_82: -{ -uint8_t x_5; -x_5 = l_coeDecidableEq(x_4); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) { lean_object* x_6; @@ -3656,129 +3596,145 @@ return x_6; } else { -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15; -x_7 = lean_unsigned_to_nat(0u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); -x_9 = lean_unsigned_to_nat(2u); -x_10 = l_Lean_Syntax_getArg(x_1, x_9); -lean_dec(x_1); -x_11 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); -x_12 = lean_ctor_get(x_11, 0); -lean_inc(x_12); -x_13 = lean_ctor_get(x_11, 1); -lean_inc(x_13); -lean_dec(x_11); -x_14 = l_Lean_Elab_Term_getMainModule___rarg(x_13); -x_15 = !lean_is_exclusive(x_14); -if (x_15 == 0) +lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; +x_7 = l_Lean_Syntax_getArgs(x_1); +x_8 = lean_array_get_size(x_7); +lean_dec(x_7); +x_9 = lean_unsigned_to_nat(3u); +x_10 = lean_nat_dec_eq(x_8, x_9); +lean_dec(x_8); +if (x_10 == 0) { -lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; 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_45; lean_object* x_46; lean_object* x_47; -x_16 = lean_ctor_get(x_14, 0); -x_17 = lean_box(0); -x_18 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__3; -x_19 = l_Lean_addMacroScope(x_16, x_18, x_12); -x_20 = lean_box(0); -x_21 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__2; -x_22 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_22, 0, x_17); -lean_ctor_set(x_22, 1, x_21); -lean_ctor_set(x_22, 2, x_19); -lean_ctor_set(x_22, 3, x_20); -x_23 = l_Array_empty___closed__1; -x_24 = lean_array_push(x_23, x_22); -x_25 = l_Lean_nullKind___closed__2; -x_26 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_26, 0, x_25); -lean_ctor_set(x_26, 1, x_24); -x_27 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__4; -x_28 = lean_array_push(x_27, x_26); -x_29 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__6; -x_30 = lean_array_push(x_29, x_8); -x_31 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_31, 0, x_25); -lean_ctor_set(x_31, 1, x_30); -x_32 = lean_array_push(x_28, x_31); -x_33 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_34 = lean_array_push(x_32, x_33); -x_35 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__7; -x_36 = lean_array_push(x_34, x_35); -x_37 = l_Lean_Parser_Term_explicitBinder___elambda__1___closed__2; -x_38 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_38, 0, x_37); -lean_ctor_set(x_38, 1, x_36); -x_39 = lean_array_push(x_23, x_38); -x_40 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_40, 0, x_25); -lean_ctor_set(x_40, 1, x_39); -x_41 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__2; -x_42 = lean_array_push(x_41, x_40); -x_43 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__8; -x_44 = lean_array_push(x_42, x_43); -x_45 = lean_array_push(x_44, x_10); -x_46 = l_Lean_Parser_Term_forall___elambda__1___closed__2; -x_47 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_47, 0, x_46); -lean_ctor_set(x_47, 1, x_45); -lean_ctor_set(x_14, 0, x_47); -return x_14; +lean_object* x_11; +lean_dec(x_1); +x_11 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_3); +return x_11; } else { -lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; -x_48 = lean_ctor_get(x_14, 0); -x_49 = lean_ctor_get(x_14, 1); -lean_inc(x_49); -lean_inc(x_48); -lean_dec(x_14); -x_50 = lean_box(0); -x_51 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__3; -x_52 = l_Lean_addMacroScope(x_48, x_51, x_12); -x_53 = lean_box(0); -x_54 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__2; -x_55 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_55, 0, x_50); -lean_ctor_set(x_55, 1, x_54); -lean_ctor_set(x_55, 2, x_52); -lean_ctor_set(x_55, 3, x_53); -x_56 = l_Array_empty___closed__1; -x_57 = lean_array_push(x_56, x_55); -x_58 = l_Lean_nullKind___closed__2; -x_59 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_59, 0, x_58); -lean_ctor_set(x_59, 1, x_57); -x_60 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__4; -x_61 = lean_array_push(x_60, x_59); -x_62 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__6; -x_63 = lean_array_push(x_62, x_8); +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; +x_12 = lean_unsigned_to_nat(0u); +x_13 = l_Lean_Syntax_getArg(x_1, x_12); +x_14 = lean_unsigned_to_nat(2u); +x_15 = l_Lean_Syntax_getArg(x_1, x_14); +lean_dec(x_1); +x_16 = l_Lean_Elab_Term_getCurrMacroScope(x_2, x_3); +x_17 = lean_ctor_get(x_16, 0); +lean_inc(x_17); +x_18 = lean_ctor_get(x_16, 1); +lean_inc(x_18); +lean_dec(x_16); +x_19 = l_Lean_Elab_Term_getMainModule___rarg(x_18); +x_20 = !lean_is_exclusive(x_19); +if (x_20 == 0) +{ +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; 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_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; +x_21 = lean_ctor_get(x_19, 0); +x_22 = lean_box(0); +x_23 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__3; +x_24 = l_Lean_addMacroScope(x_21, x_23, x_17); +x_25 = lean_box(0); +x_26 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__2; +x_27 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_27, 0, x_22); +lean_ctor_set(x_27, 1, x_26); +lean_ctor_set(x_27, 2, x_24); +lean_ctor_set(x_27, 3, x_25); +x_28 = l_Array_empty___closed__1; +x_29 = lean_array_push(x_28, x_27); +x_30 = l_Lean_nullKind___closed__2; +x_31 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_31, 0, x_30); +lean_ctor_set(x_31, 1, x_29); +x_32 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__4; +x_33 = lean_array_push(x_32, x_31); +x_34 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__6; +x_35 = lean_array_push(x_34, x_13); +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_30); +lean_ctor_set(x_36, 1, x_35); +x_37 = lean_array_push(x_33, x_36); +x_38 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_39 = lean_array_push(x_37, x_38); +x_40 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__7; +x_41 = lean_array_push(x_39, x_40); +x_42 = l_Lean_Parser_Term_explicitBinder___elambda__1___closed__2; +x_43 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_43, 0, x_42); +lean_ctor_set(x_43, 1, x_41); +x_44 = lean_array_push(x_28, x_43); +x_45 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_45, 0, x_30); +lean_ctor_set(x_45, 1, x_44); +x_46 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__2; +x_47 = lean_array_push(x_46, x_45); +x_48 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__8; +x_49 = lean_array_push(x_47, x_48); +x_50 = lean_array_push(x_49, x_15); +x_51 = l_Lean_Parser_Term_forall___elambda__1___closed__2; +x_52 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_52, 0, x_51); +lean_ctor_set(x_52, 1, x_50); +lean_ctor_set(x_19, 0, x_52); +return x_19; +} +else +{ +lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; +x_53 = lean_ctor_get(x_19, 0); +x_54 = lean_ctor_get(x_19, 1); +lean_inc(x_54); +lean_inc(x_53); +lean_dec(x_19); +x_55 = lean_box(0); +x_56 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__3; +x_57 = l_Lean_addMacroScope(x_53, x_56, x_17); +x_58 = lean_box(0); +x_59 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__2; +x_60 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_60, 0, x_55); +lean_ctor_set(x_60, 1, x_59); +lean_ctor_set(x_60, 2, x_57); +lean_ctor_set(x_60, 3, x_58); +x_61 = l_Array_empty___closed__1; +x_62 = lean_array_push(x_61, x_60); +x_63 = l_Lean_nullKind___closed__2; x_64 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_64, 0, x_58); -lean_ctor_set(x_64, 1, x_63); -x_65 = lean_array_push(x_61, x_64); -x_66 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_67 = lean_array_push(x_65, x_66); -x_68 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__7; -x_69 = lean_array_push(x_67, x_68); -x_70 = l_Lean_Parser_Term_explicitBinder___elambda__1___closed__2; -x_71 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_71, 0, x_70); -lean_ctor_set(x_71, 1, x_69); -x_72 = lean_array_push(x_56, x_71); -x_73 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_73, 0, x_58); -lean_ctor_set(x_73, 1, x_72); -x_74 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__2; -x_75 = lean_array_push(x_74, x_73); -x_76 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__8; -x_77 = lean_array_push(x_75, x_76); -x_78 = lean_array_push(x_77, x_10); -x_79 = l_Lean_Parser_Term_forall___elambda__1___closed__2; -x_80 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_80, 0, x_79); -lean_ctor_set(x_80, 1, x_78); -x_81 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_81, 0, x_80); -lean_ctor_set(x_81, 1, x_49); -return x_81; +lean_ctor_set(x_64, 0, x_63); +lean_ctor_set(x_64, 1, x_62); +x_65 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__4; +x_66 = lean_array_push(x_65, x_64); +x_67 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__6; +x_68 = lean_array_push(x_67, x_13); +x_69 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_69, 0, x_63); +lean_ctor_set(x_69, 1, x_68); +x_70 = lean_array_push(x_66, x_69); +x_71 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_72 = lean_array_push(x_70, x_71); +x_73 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__7; +x_74 = lean_array_push(x_72, x_73); +x_75 = l_Lean_Parser_Term_explicitBinder___elambda__1___closed__2; +x_76 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_76, 0, x_75); +lean_ctor_set(x_76, 1, x_74); +x_77 = lean_array_push(x_61, x_76); +x_78 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_78, 0, x_63); +lean_ctor_set(x_78, 1, x_77); +x_79 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__2; +x_80 = lean_array_push(x_79, x_78); +x_81 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__8; +x_82 = lean_array_push(x_80, x_81); +x_83 = lean_array_push(x_82, x_15); +x_84 = l_Lean_Parser_Term_forall___elambda__1___closed__2; +x_85 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_85, 0, x_84); +lean_ctor_set(x_85, 1, x_83); +x_86 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_86, 0, x_85); +lean_ctor_set(x_86, 1, x_54); +return x_86; } } } @@ -3914,397 +3870,144 @@ return x_5; lean_object* l___private_Init_Lean_Elab_TermBinders_8__getFunBinderIdsAux_x3f___main(uint8_t 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_124; uint8_t x_125; -x_124 = l_Lean_mkAppStx___closed__8; +lean_object* x_6; lean_object* x_48; uint8_t x_49; +x_48 = l_Lean_mkAppStx___closed__8; lean_inc(x_2); -x_125 = l_Lean_Syntax_isOfKind(x_2, x_124); -if (x_125 == 0) +x_49 = l_Lean_Syntax_isOfKind(x_2, x_48); +if (x_49 == 0) { -uint8_t x_126; -x_126 = 0; -x_6 = x_126; -goto block_123; +lean_object* x_50; +x_50 = lean_box(0); +x_6 = x_50; +goto block_47; } else { -lean_object* x_127; lean_object* x_128; lean_object* x_129; uint8_t x_130; -x_127 = l_Lean_Syntax_getArgs(x_2); -x_128 = lean_array_get_size(x_127); -lean_dec(x_127); -x_129 = lean_unsigned_to_nat(2u); -x_130 = lean_nat_dec_eq(x_128, x_129); -lean_dec(x_128); -x_6 = x_130; -goto block_123; +lean_object* x_51; lean_object* x_52; lean_object* x_53; uint8_t x_54; +x_51 = l_Lean_Syntax_getArgs(x_2); +x_52 = lean_array_get_size(x_51); +lean_dec(x_51); +x_53 = lean_unsigned_to_nat(2u); +x_54 = lean_nat_dec_eq(x_52, x_53); +lean_dec(x_52); +if (x_54 == 0) +{ +lean_object* x_55; +x_55 = lean_box(0); +x_6 = x_55; +goto block_47; } -block_123: +else { -uint8_t x_7; -x_7 = l_coeDecidableEq(x_6); -if (x_7 == 0) +lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; uint8_t x_61; +x_56 = lean_unsigned_to_nat(0u); +x_57 = l_Lean_Syntax_getArg(x_2, x_56); +x_58 = lean_unsigned_to_nat(1u); +x_59 = l_Lean_Syntax_getArg(x_2, x_58); +x_60 = l_Lean_nullKind___closed__2; +lean_inc(x_59); +x_61 = l_Lean_Syntax_isOfKind(x_59, x_60); +if (x_61 == 0) { -lean_object* x_8; uint8_t x_9; -x_8 = l_Lean_mkHole___closed__2; -lean_inc(x_2); -x_9 = l_Lean_Syntax_isOfKind(x_2, x_8); -if (x_9 == 0) +uint8_t x_62; lean_object* x_63; +lean_dec(x_59); +lean_dec(x_57); +x_62 = 1; +x_63 = l_Lean_Syntax_isSimpleTermId_x3f(x_2, x_62); +if (lean_obj_tag(x_63) == 0) { -uint8_t x_10; -x_10 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_10 == 0) -{ -uint8_t x_11; lean_object* x_12; -x_11 = 1; -x_12 = l_Lean_Syntax_isSimpleTermId_x3f(x_2, x_11); -if (lean_obj_tag(x_12) == 0) -{ -lean_object* x_13; lean_object* x_14; +lean_object* x_64; lean_object* x_65; lean_dec(x_3); -x_13 = lean_box(0); -x_14 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_14, 0, x_13); -lean_ctor_set(x_14, 1, x_5); -return x_14; +x_64 = lean_box(0); +x_65 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_65, 0, x_64); +lean_ctor_set(x_65, 1, x_5); +return x_65; } else { -uint8_t x_15; -x_15 = !lean_is_exclusive(x_12); -if (x_15 == 0) -{ -lean_object* x_16; lean_object* x_17; lean_object* x_18; -x_16 = lean_ctor_get(x_12, 0); -x_17 = lean_array_push(x_3, x_16); -lean_ctor_set(x_12, 0, x_17); -x_18 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_18, 0, x_12); -lean_ctor_set(x_18, 1, x_5); -return x_18; -} -else -{ -lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; -x_19 = lean_ctor_get(x_12, 0); -lean_inc(x_19); -lean_dec(x_12); -x_20 = lean_array_push(x_3, x_19); -x_21 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_21, 0, 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_5); -return x_22; -} -} -} -else -{ -lean_object* x_23; uint8_t x_24; -x_23 = l_Lean_Elab_Term_mkFreshAnonymousIdent(x_2, x_4, x_5); -lean_dec(x_2); -x_24 = !lean_is_exclusive(x_23); -if (x_24 == 0) -{ -lean_object* x_25; lean_object* x_26; lean_object* x_27; -x_25 = lean_ctor_get(x_23, 0); -x_26 = lean_array_push(x_3, x_25); -x_27 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_27, 0, x_26); -lean_ctor_set(x_23, 0, x_27); -return x_23; -} -else -{ -lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; -x_28 = lean_ctor_get(x_23, 0); -x_29 = lean_ctor_get(x_23, 1); -lean_inc(x_29); -lean_inc(x_28); -lean_dec(x_23); -x_30 = lean_array_push(x_3, x_28); -x_31 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_31, 0, x_30); -x_32 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_32, 0, x_31); -lean_ctor_set(x_32, 1, x_29); -return x_32; -} -} -} -else -{ -lean_object* x_33; lean_object* x_34; lean_object* x_35; uint8_t x_36; uint8_t x_37; -x_33 = l_Lean_Syntax_getArgs(x_2); -x_34 = lean_array_get_size(x_33); -lean_dec(x_33); -x_35 = lean_unsigned_to_nat(1u); -x_36 = lean_nat_dec_eq(x_34, x_35); -lean_dec(x_34); -x_37 = l_coeDecidableEq(x_36); -if (x_37 == 0) -{ -uint8_t x_38; lean_object* x_39; -x_38 = 1; -x_39 = l_Lean_Syntax_isSimpleTermId_x3f(x_2, x_38); -if (lean_obj_tag(x_39) == 0) -{ -lean_object* x_40; lean_object* x_41; -lean_dec(x_3); -x_40 = lean_box(0); -x_41 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_41, 0, x_40); -lean_ctor_set(x_41, 1, x_5); -return x_41; -} -else -{ -uint8_t x_42; -x_42 = !lean_is_exclusive(x_39); -if (x_42 == 0) -{ -lean_object* x_43; lean_object* x_44; lean_object* x_45; -x_43 = lean_ctor_get(x_39, 0); -x_44 = lean_array_push(x_3, x_43); -lean_ctor_set(x_39, 0, x_44); -x_45 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_45, 0, x_39); -lean_ctor_set(x_45, 1, x_5); -return x_45; -} -else -{ -lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; -x_46 = lean_ctor_get(x_39, 0); -lean_inc(x_46); -lean_dec(x_39); -x_47 = lean_array_push(x_3, x_46); -x_48 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_48, 0, x_47); -x_49 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_49, 0, x_48); -lean_ctor_set(x_49, 1, x_5); -return x_49; -} -} -} -else -{ -lean_object* x_50; uint8_t x_51; -x_50 = l_Lean_Elab_Term_mkFreshAnonymousIdent(x_2, x_4, x_5); -lean_dec(x_2); -x_51 = !lean_is_exclusive(x_50); -if (x_51 == 0) -{ -lean_object* x_52; lean_object* x_53; lean_object* x_54; -x_52 = lean_ctor_get(x_50, 0); -x_53 = lean_array_push(x_3, x_52); -x_54 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_54, 0, x_53); -lean_ctor_set(x_50, 0, x_54); -return x_50; -} -else -{ -lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; -x_55 = lean_ctor_get(x_50, 0); -x_56 = lean_ctor_get(x_50, 1); -lean_inc(x_56); -lean_inc(x_55); -lean_dec(x_50); -x_57 = lean_array_push(x_3, x_55); -x_58 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_58, 0, 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; -} -} -} -} -else -{ -lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; uint8_t x_65; -x_60 = lean_unsigned_to_nat(0u); -x_61 = l_Lean_Syntax_getArg(x_2, x_60); -x_62 = lean_unsigned_to_nat(1u); -x_63 = l_Lean_Syntax_getArg(x_2, x_62); -x_64 = l_Lean_nullKind___closed__2; -lean_inc(x_63); -x_65 = l_Lean_Syntax_isOfKind(x_63, x_64); -if (x_65 == 0) -{ uint8_t x_66; -x_66 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; +x_66 = !lean_is_exclusive(x_63); if (x_66 == 0) { -uint8_t x_67; lean_object* x_68; -lean_dec(x_63); -lean_dec(x_61); -x_67 = 1; -x_68 = l_Lean_Syntax_isSimpleTermId_x3f(x_2, x_67); -if (lean_obj_tag(x_68) == 0) +lean_object* x_67; lean_object* x_68; lean_object* x_69; +x_67 = lean_ctor_get(x_63, 0); +x_68 = lean_array_push(x_3, x_67); +lean_ctor_set(x_63, 0, x_68); +x_69 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_69, 0, x_63); +lean_ctor_set(x_69, 1, x_5); +return x_69; +} +else { -lean_object* x_69; lean_object* x_70; +lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; +x_70 = lean_ctor_get(x_63, 0); +lean_inc(x_70); +lean_dec(x_63); +x_71 = lean_array_push(x_3, x_70); +x_72 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_72, 0, x_71); +x_73 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_73, 0, x_72); +lean_ctor_set(x_73, 1, x_5); +return x_73; +} +} +} +else +{ +lean_object* x_74; lean_object* x_75; uint8_t x_76; +x_74 = l_Lean_Syntax_getArgs(x_59); +x_75 = lean_array_get_size(x_74); +lean_dec(x_74); +x_76 = lean_nat_dec_eq(x_75, x_58); +lean_dec(x_75); +if (x_76 == 0) +{ +uint8_t x_77; lean_object* x_78; +lean_dec(x_59); +lean_dec(x_57); +x_77 = 1; +x_78 = l_Lean_Syntax_isSimpleTermId_x3f(x_2, x_77); +if (lean_obj_tag(x_78) == 0) +{ +lean_object* x_79; lean_object* x_80; lean_dec(x_3); -x_69 = lean_box(0); -x_70 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_70, 0, x_69); -lean_ctor_set(x_70, 1, x_5); -return x_70; +x_79 = lean_box(0); +x_80 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_80, 0, x_79); +lean_ctor_set(x_80, 1, x_5); +return x_80; } else { -uint8_t x_71; -x_71 = !lean_is_exclusive(x_68); -if (x_71 == 0) +uint8_t x_81; +x_81 = !lean_is_exclusive(x_78); +if (x_81 == 0) { -lean_object* x_72; lean_object* x_73; lean_object* x_74; -x_72 = lean_ctor_get(x_68, 0); -x_73 = lean_array_push(x_3, x_72); -lean_ctor_set(x_68, 0, x_73); -x_74 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_74, 0, x_68); -lean_ctor_set(x_74, 1, x_5); -return x_74; +lean_object* x_82; lean_object* x_83; lean_object* x_84; +x_82 = lean_ctor_get(x_78, 0); +x_83 = lean_array_push(x_3, x_82); +lean_ctor_set(x_78, 0, x_83); +x_84 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_84, 0, x_78); +lean_ctor_set(x_84, 1, x_5); +return x_84; } else { -lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; -x_75 = lean_ctor_get(x_68, 0); -lean_inc(x_75); -lean_dec(x_68); -x_76 = lean_array_push(x_3, x_75); -x_77 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_77, 0, x_76); -x_78 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_78, 0, x_77); -lean_ctor_set(x_78, 1, x_5); -return x_78; -} -} -} -else -{ -lean_dec(x_2); -if (x_1 == 0) -{ -lean_object* x_79; uint8_t x_80; lean_object* x_81; lean_object* x_82; -x_79 = l_Lean_Syntax_getArg(x_63, x_60); -lean_dec(x_63); -x_80 = 0; -x_81 = l___private_Init_Lean_Elab_TermBinders_8__getFunBinderIdsAux_x3f___main(x_80, x_61, x_3, x_4, x_5); -x_82 = lean_ctor_get(x_81, 0); -lean_inc(x_82); -if (lean_obj_tag(x_82) == 0) -{ -uint8_t x_83; -lean_dec(x_79); -x_83 = !lean_is_exclusive(x_81); -if (x_83 == 0) -{ -lean_object* x_84; -x_84 = lean_ctor_get(x_81, 0); -lean_dec(x_84); -return x_81; -} -else -{ -lean_object* x_85; lean_object* x_86; -x_85 = lean_ctor_get(x_81, 1); +lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; +x_85 = lean_ctor_get(x_78, 0); lean_inc(x_85); -lean_dec(x_81); -x_86 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_86, 0, x_82); -lean_ctor_set(x_86, 1, x_85); -return x_86; -} -} -else -{ -lean_object* x_87; lean_object* x_88; uint8_t x_89; -x_87 = lean_ctor_get(x_81, 1); -lean_inc(x_87); -lean_dec(x_81); -x_88 = lean_ctor_get(x_82, 0); -lean_inc(x_88); -lean_dec(x_82); -x_89 = 1; -x_1 = x_89; -x_2 = x_79; -x_3 = x_88; -x_5 = x_87; -goto _start; -} -} -else -{ -lean_object* x_91; lean_object* x_92; -lean_dec(x_63); -lean_dec(x_61); -lean_dec(x_3); -x_91 = lean_box(0); -x_92 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_92, 0, x_91); -lean_ctor_set(x_92, 1, x_5); -return x_92; -} -} -} -else -{ -lean_object* x_93; lean_object* x_94; uint8_t x_95; uint8_t x_96; -x_93 = l_Lean_Syntax_getArgs(x_63); -x_94 = lean_array_get_size(x_93); -lean_dec(x_93); -x_95 = lean_nat_dec_eq(x_94, x_62); -lean_dec(x_94); -x_96 = l_coeDecidableEq(x_95); -if (x_96 == 0) -{ -uint8_t x_97; lean_object* x_98; -lean_dec(x_63); -lean_dec(x_61); -x_97 = 1; -x_98 = l_Lean_Syntax_isSimpleTermId_x3f(x_2, x_97); -if (lean_obj_tag(x_98) == 0) -{ -lean_object* x_99; lean_object* x_100; -lean_dec(x_3); -x_99 = lean_box(0); -x_100 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_100, 0, x_99); -lean_ctor_set(x_100, 1, x_5); -return x_100; -} -else -{ -uint8_t x_101; -x_101 = !lean_is_exclusive(x_98); -if (x_101 == 0) -{ -lean_object* x_102; lean_object* x_103; lean_object* x_104; -x_102 = lean_ctor_get(x_98, 0); -x_103 = lean_array_push(x_3, x_102); -lean_ctor_set(x_98, 0, x_103); -x_104 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_104, 0, x_98); -lean_ctor_set(x_104, 1, x_5); -return x_104; -} -else -{ -lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; -x_105 = lean_ctor_get(x_98, 0); -lean_inc(x_105); -lean_dec(x_98); -x_106 = lean_array_push(x_3, x_105); -x_107 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_107, 0, x_106); -x_108 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_108, 0, x_107); -lean_ctor_set(x_108, 1, x_5); -return x_108; +lean_dec(x_78); +x_86 = lean_array_push(x_3, x_85); +x_87 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_87, 0, x_86); +x_88 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_88, 0, x_87); +lean_ctor_set(x_88, 1, x_5); +return x_88; } } } @@ -4313,70 +4016,213 @@ else lean_dec(x_2); if (x_1 == 0) { -lean_object* x_109; uint8_t x_110; lean_object* x_111; lean_object* x_112; -x_109 = l_Lean_Syntax_getArg(x_63, x_60); -lean_dec(x_63); -x_110 = 0; -x_111 = l___private_Init_Lean_Elab_TermBinders_8__getFunBinderIdsAux_x3f___main(x_110, x_61, x_3, x_4, x_5); -x_112 = lean_ctor_get(x_111, 0); -lean_inc(x_112); -if (lean_obj_tag(x_112) == 0) +lean_object* x_89; uint8_t x_90; lean_object* x_91; lean_object* x_92; +x_89 = l_Lean_Syntax_getArg(x_59, x_56); +lean_dec(x_59); +x_90 = 0; +x_91 = l___private_Init_Lean_Elab_TermBinders_8__getFunBinderIdsAux_x3f___main(x_90, x_57, x_3, x_4, x_5); +x_92 = lean_ctor_get(x_91, 0); +lean_inc(x_92); +if (lean_obj_tag(x_92) == 0) { -uint8_t x_113; -lean_dec(x_109); -x_113 = !lean_is_exclusive(x_111); -if (x_113 == 0) +uint8_t x_93; +lean_dec(x_89); +x_93 = !lean_is_exclusive(x_91); +if (x_93 == 0) { -lean_object* x_114; -x_114 = lean_ctor_get(x_111, 0); -lean_dec(x_114); -return x_111; +lean_object* x_94; +x_94 = lean_ctor_get(x_91, 0); +lean_dec(x_94); +return x_91; } else { -lean_object* x_115; lean_object* x_116; -x_115 = lean_ctor_get(x_111, 1); -lean_inc(x_115); -lean_dec(x_111); -x_116 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_116, 0, x_112); -lean_ctor_set(x_116, 1, x_115); -return x_116; +lean_object* x_95; lean_object* x_96; +x_95 = lean_ctor_get(x_91, 1); +lean_inc(x_95); +lean_dec(x_91); +x_96 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_96, 0, x_92); +lean_ctor_set(x_96, 1, x_95); +return x_96; } } else { -lean_object* x_117; lean_object* x_118; uint8_t x_119; -x_117 = lean_ctor_get(x_111, 1); -lean_inc(x_117); -lean_dec(x_111); -x_118 = lean_ctor_get(x_112, 0); -lean_inc(x_118); -lean_dec(x_112); -x_119 = 1; -x_1 = x_119; -x_2 = x_109; -x_3 = x_118; -x_5 = x_117; +lean_object* x_97; lean_object* x_98; uint8_t x_99; +x_97 = lean_ctor_get(x_91, 1); +lean_inc(x_97); +lean_dec(x_91); +x_98 = lean_ctor_get(x_92, 0); +lean_inc(x_98); +lean_dec(x_92); +x_99 = 1; +x_1 = x_99; +x_2 = x_89; +x_3 = x_98; +x_5 = x_97; goto _start; } } else { -lean_object* x_121; lean_object* x_122; -lean_dec(x_63); -lean_dec(x_61); +lean_object* x_101; lean_object* x_102; +lean_dec(x_59); +lean_dec(x_57); lean_dec(x_3); -x_121 = lean_box(0); -x_122 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_122, 0, x_121); -lean_ctor_set(x_122, 1, x_5); -return x_122; +x_101 = lean_box(0); +x_102 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_102, 0, x_101); +lean_ctor_set(x_102, 1, x_5); +return x_102; } } } } } +block_47: +{ +lean_object* x_7; uint8_t x_8; +lean_dec(x_6); +x_7 = l_Lean_mkHole___closed__2; +lean_inc(x_2); +x_8 = l_Lean_Syntax_isOfKind(x_2, x_7); +if (x_8 == 0) +{ +uint8_t x_9; lean_object* x_10; +x_9 = 1; +x_10 = l_Lean_Syntax_isSimpleTermId_x3f(x_2, x_9); +if (lean_obj_tag(x_10) == 0) +{ +lean_object* x_11; lean_object* x_12; +lean_dec(x_3); +x_11 = lean_box(0); +x_12 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_12, 0, x_11); +lean_ctor_set(x_12, 1, x_5); +return x_12; +} +else +{ +uint8_t x_13; +x_13 = !lean_is_exclusive(x_10); +if (x_13 == 0) +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_14 = lean_ctor_get(x_10, 0); +x_15 = lean_array_push(x_3, x_14); +lean_ctor_set(x_10, 0, x_15); +x_16 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_16, 0, x_10); +lean_ctor_set(x_16, 1, x_5); +return x_16; +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_17 = lean_ctor_get(x_10, 0); +lean_inc(x_17); +lean_dec(x_10); +x_18 = lean_array_push(x_3, x_17); +x_19 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_19, 0, x_18); +x_20 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_20, 0, x_19); +lean_ctor_set(x_20, 1, x_5); +return x_20; +} +} +} +else +{ +lean_object* x_21; lean_object* x_22; lean_object* x_23; uint8_t x_24; +x_21 = l_Lean_Syntax_getArgs(x_2); +x_22 = lean_array_get_size(x_21); +lean_dec(x_21); +x_23 = lean_unsigned_to_nat(1u); +x_24 = lean_nat_dec_eq(x_22, x_23); +lean_dec(x_22); +if (x_24 == 0) +{ +uint8_t x_25; lean_object* x_26; +x_25 = 1; +x_26 = l_Lean_Syntax_isSimpleTermId_x3f(x_2, x_25); +if (lean_obj_tag(x_26) == 0) +{ +lean_object* x_27; lean_object* x_28; +lean_dec(x_3); +x_27 = lean_box(0); +x_28 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_28, 0, x_27); +lean_ctor_set(x_28, 1, x_5); +return x_28; +} +else +{ +uint8_t x_29; +x_29 = !lean_is_exclusive(x_26); +if (x_29 == 0) +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_30 = lean_ctor_get(x_26, 0); +x_31 = lean_array_push(x_3, x_30); +lean_ctor_set(x_26, 0, x_31); +x_32 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_32, 0, x_26); +lean_ctor_set(x_32, 1, x_5); +return x_32; +} +else +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; +x_33 = lean_ctor_get(x_26, 0); +lean_inc(x_33); +lean_dec(x_26); +x_34 = lean_array_push(x_3, x_33); +x_35 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_35, 0, x_34); +x_36 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_36, 0, x_35); +lean_ctor_set(x_36, 1, x_5); +return x_36; +} +} +} +else +{ +lean_object* x_37; uint8_t x_38; +x_37 = l_Lean_Elab_Term_mkFreshAnonymousIdent(x_2, x_4, x_5); +lean_dec(x_2); +x_38 = !lean_is_exclusive(x_37); +if (x_38 == 0) +{ +lean_object* x_39; lean_object* x_40; lean_object* x_41; +x_39 = lean_ctor_get(x_37, 0); +x_40 = lean_array_push(x_3, x_39); +x_41 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_41, 0, x_40); +lean_ctor_set(x_37, 0, x_41); +return x_37; +} +else +{ +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; +x_42 = lean_ctor_get(x_37, 0); +x_43 = lean_ctor_get(x_37, 1); +lean_inc(x_43); +lean_inc(x_42); +lean_dec(x_37); +x_44 = lean_array_push(x_3, x_42); +x_45 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_45, 0, x_44); +x_46 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_46, 0, x_45); +lean_ctor_set(x_46, 1, x_43); +return x_46; +} +} +} +} } } lean_object* l___private_Init_Lean_Elab_TermBinders_8__getFunBinderIdsAux_x3f___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { @@ -18084,33 +17930,10 @@ return x_3; lean_object* l_Lean_Elab_Term_elabLetDecl(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -uint8_t x_5; lean_object* x_140; uint8_t x_141; -x_140 = l_Lean_Parser_Term_let___elambda__1___closed__2; +lean_object* x_5; uint8_t x_6; +x_5 = l_Lean_Parser_Term_let___elambda__1___closed__2; lean_inc(x_1); -x_141 = l_Lean_Syntax_isOfKind(x_1, x_140); -if (x_141 == 0) -{ -uint8_t x_142; -x_142 = 0; -x_5 = x_142; -goto block_139; -} -else -{ -lean_object* x_143; lean_object* x_144; lean_object* x_145; uint8_t x_146; -x_143 = l_Lean_Syntax_getArgs(x_1); -x_144 = lean_array_get_size(x_143); -lean_dec(x_143); -x_145 = lean_unsigned_to_nat(4u); -x_146 = lean_nat_dec_eq(x_144, x_145); -lean_dec(x_144); -x_5 = x_146; -goto block_139; -} -block_139: -{ -uint8_t x_6; -x_6 = l_coeDecidableEq(x_5); +x_6 = l_Lean_Syntax_isOfKind(x_1, x_5); if (x_6 == 0) { lean_object* x_7; @@ -18122,39 +17945,16 @@ return x_7; } else { -lean_object* x_8; lean_object* x_9; uint8_t x_10; lean_object* x_132; uint8_t x_133; -x_8 = lean_unsigned_to_nat(1u); -x_9 = l_Lean_Syntax_getArg(x_1, x_8); -x_132 = l_Lean_Parser_Term_letIdDecl___closed__2; -lean_inc(x_9); -x_133 = l_Lean_Syntax_isOfKind(x_9, x_132); -if (x_133 == 0) -{ -uint8_t x_134; -x_134 = 0; -x_10 = x_134; -goto block_131; -} -else -{ -lean_object* x_135; lean_object* x_136; lean_object* x_137; uint8_t x_138; -x_135 = l_Lean_Syntax_getArgs(x_9); -x_136 = lean_array_get_size(x_135); -lean_dec(x_135); -x_137 = lean_unsigned_to_nat(5u); -x_138 = lean_nat_dec_eq(x_136, x_137); -lean_dec(x_136); -x_10 = x_138; -goto block_131; -} -block_131: -{ -uint8_t x_11; -x_11 = l_coeDecidableEq(x_10); +lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; +x_8 = l_Lean_Syntax_getArgs(x_1); +x_9 = lean_array_get_size(x_8); +lean_dec(x_8); +x_10 = lean_unsigned_to_nat(4u); +x_11 = lean_nat_dec_eq(x_9, x_10); +lean_dec(x_9); if (x_11 == 0) { lean_object* x_12; -lean_dec(x_9); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); @@ -18163,340 +17963,335 @@ return x_12; } else { -lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; uint8_t x_17; -x_13 = lean_unsigned_to_nat(0u); -x_14 = l_Lean_Syntax_getArg(x_9, x_13); -x_15 = l_Lean_identKind___closed__2; +lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; +x_13 = lean_unsigned_to_nat(1u); +x_14 = l_Lean_Syntax_getArg(x_1, x_13); +x_15 = l_Lean_Parser_Term_letIdDecl___closed__2; lean_inc(x_14); x_16 = l_Lean_Syntax_isOfKind(x_14, x_15); -x_17 = l_coeDecidableEq(x_16); -if (x_17 == 0) +if (x_16 == 0) { -lean_object* x_18; uint8_t x_19; uint8_t x_20; -x_18 = l_Lean_mkTermIdFromIdent___closed__2; -lean_inc(x_14); -x_19 = l_Lean_Syntax_isOfKind(x_14, x_18); -x_20 = l_coeDecidableEq(x_19); -if (x_20 == 0) -{ -lean_object* x_21; +lean_object* x_17; lean_dec(x_14); -lean_dec(x_9); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_21 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); -return x_21; +x_17 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); +return x_17; } else { -lean_object* x_22; uint8_t x_23; lean_object* x_67; uint8_t x_68; -x_22 = l_Lean_Syntax_getArg(x_9, x_8); -x_67 = l_Lean_nullKind___closed__2; -lean_inc(x_22); -x_68 = l_Lean_Syntax_isOfKind(x_22, x_67); -if (x_68 == 0) +lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21; +x_18 = l_Lean_Syntax_getArgs(x_14); +x_19 = lean_array_get_size(x_18); +lean_dec(x_18); +x_20 = lean_unsigned_to_nat(5u); +x_21 = lean_nat_dec_eq(x_19, x_20); +lean_dec(x_19); +if (x_21 == 0) { -uint8_t x_69; -lean_dec(x_22); -x_69 = 0; -x_23 = x_69; -goto block_66; -} -else -{ -lean_object* x_70; lean_object* x_71; uint8_t x_72; -x_70 = l_Lean_Syntax_getArgs(x_22); -lean_dec(x_22); -x_71 = lean_array_get_size(x_70); -lean_dec(x_70); -x_72 = lean_nat_dec_eq(x_71, x_13); -lean_dec(x_71); -x_23 = x_72; -goto block_66; -} -block_66: -{ -uint8_t x_24; -x_24 = l_coeDecidableEq(x_23); -if (x_24 == 0) -{ -lean_object* x_25; +lean_object* x_22; lean_dec(x_14); -lean_dec(x_9); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_25 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); -return x_25; +x_22 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); +return x_22; } else { -lean_object* x_26; lean_object* x_27; uint8_t x_28; lean_object* x_60; uint8_t x_61; -x_26 = lean_unsigned_to_nat(2u); -x_27 = l_Lean_Syntax_getArg(x_9, x_26); -x_60 = l_Lean_nullKind___closed__2; -lean_inc(x_27); -x_61 = l_Lean_Syntax_isOfKind(x_27, x_60); -if (x_61 == 0) +lean_object* x_23; lean_object* x_24; lean_object* x_25; uint8_t x_26; +x_23 = lean_unsigned_to_nat(0u); +x_24 = l_Lean_Syntax_getArg(x_14, x_23); +x_25 = l_Lean_identKind___closed__2; +lean_inc(x_24); +x_26 = l_Lean_Syntax_isOfKind(x_24, x_25); +if (x_26 == 0) { -uint8_t x_62; -lean_dec(x_27); -x_62 = 0; -x_28 = x_62; -goto block_59; -} -else +lean_object* x_27; uint8_t x_28; +x_27 = l_Lean_mkTermIdFromIdent___closed__2; +lean_inc(x_24); +x_28 = l_Lean_Syntax_isOfKind(x_24, x_27); +if (x_28 == 0) { -lean_object* x_63; lean_object* x_64; uint8_t x_65; -x_63 = l_Lean_Syntax_getArgs(x_27); -lean_dec(x_27); -x_64 = lean_array_get_size(x_63); -lean_dec(x_63); -x_65 = lean_nat_dec_eq(x_64, x_13); -lean_dec(x_64); -x_28 = x_65; -goto block_59; -} -block_59: -{ -uint8_t x_29; -x_29 = l_coeDecidableEq(x_28); -if (x_29 == 0) -{ -lean_object* x_30; +lean_object* x_29; +lean_dec(x_24); lean_dec(x_14); -lean_dec(x_9); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_30 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); -return x_30; +x_29 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); +return x_29; } else { -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_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; uint8_t x_57; lean_object* x_58; -x_31 = lean_unsigned_to_nat(4u); -x_32 = l_Lean_Syntax_getArg(x_9, x_31); -lean_dec(x_9); -x_33 = lean_unsigned_to_nat(3u); -x_34 = l_Lean_Syntax_getArg(x_1, x_33); -lean_dec(x_1); -x_35 = l_Lean_Syntax_getArg(x_14, x_13); +lean_object* x_30; lean_object* x_31; uint8_t x_32; +x_30 = l_Lean_Syntax_getArg(x_14, x_13); +x_31 = l_Lean_nullKind___closed__2; +lean_inc(x_30); +x_32 = l_Lean_Syntax_isOfKind(x_30, x_31); +if (x_32 == 0) +{ +lean_object* x_33; +lean_dec(x_30); +lean_dec(x_24); lean_dec(x_14); -x_36 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4); -x_37 = lean_ctor_get(x_36, 1); -lean_inc(x_37); -lean_dec(x_36); -x_38 = l_Lean_Elab_Term_getMainModule___rarg(x_37); -x_39 = lean_ctor_get(x_38, 1); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_33 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); +return x_33; +} +else +{ +lean_object* x_34; lean_object* x_35; uint8_t x_36; +x_34 = l_Lean_Syntax_getArgs(x_30); +lean_dec(x_30); +x_35 = lean_array_get_size(x_34); +lean_dec(x_34); +x_36 = lean_nat_dec_eq(x_35, x_23); +lean_dec(x_35); +if (x_36 == 0) +{ +lean_object* x_37; +lean_dec(x_24); +lean_dec(x_14); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_37 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); +return x_37; +} +else +{ +lean_object* x_38; lean_object* x_39; uint8_t x_40; +x_38 = lean_unsigned_to_nat(2u); +x_39 = l_Lean_Syntax_getArg(x_14, x_38); lean_inc(x_39); -lean_dec(x_38); -x_40 = l_Array_empty___closed__1; -x_41 = lean_array_push(x_40, x_35); -x_42 = l_Lean_Elab_Term_elabLetDecl___closed__3; -x_43 = lean_array_push(x_41, x_42); -x_44 = lean_array_push(x_43, x_42); -x_45 = l_Lean_Elab_Term_elabLetDecl___closed__5; -x_46 = lean_array_push(x_44, x_45); -x_47 = lean_array_push(x_46, x_32); -x_48 = l_Lean_Parser_Term_letIdDecl___closed__2; -x_49 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_49, 0, x_48); -lean_ctor_set(x_49, 1, x_47); -x_50 = l_Lean_Elab_Term_elabLetDecl___closed__2; -x_51 = lean_array_push(x_50, x_49); -x_52 = l_Lean_Elab_Term_elabLetDecl___closed__7; -x_53 = lean_array_push(x_51, x_52); -x_54 = lean_array_push(x_53, x_34); -x_55 = l_Lean_Parser_Term_let___elambda__1___closed__2; -x_56 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_56, 0, x_55); -lean_ctor_set(x_56, 1, x_54); -x_57 = 1; -x_58 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_57, x_56, x_3, x_39); -return x_58; -} -} -} -} -} -} -else +x_40 = l_Lean_Syntax_isOfKind(x_39, x_31); +if (x_40 == 0) { -lean_object* x_73; lean_object* x_74; lean_object* x_75; uint8_t x_76; lean_object* x_106; uint8_t x_107; -x_73 = l_Lean_Syntax_getArg(x_9, x_8); -x_74 = lean_unsigned_to_nat(2u); -x_75 = l_Lean_Syntax_getArg(x_9, x_74); -x_106 = l_Lean_nullKind___closed__2; -lean_inc(x_75); -x_107 = l_Lean_Syntax_isOfKind(x_75, x_106); -if (x_107 == 0) -{ -uint8_t x_108; -x_108 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_108 == 0) -{ -uint8_t x_109; -x_109 = 0; -x_76 = x_109; -goto block_105; -} -else -{ -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_dec(x_75); -x_110 = lean_unsigned_to_nat(4u); -x_111 = l_Lean_Syntax_getArg(x_9, x_110); -lean_dec(x_9); -x_112 = lean_unsigned_to_nat(3u); -x_113 = l_Lean_Syntax_getArg(x_1, x_112); -x_114 = l_Lean_Syntax_getArgs(x_73); -lean_dec(x_73); -x_115 = l_Lean_Syntax_getId(x_14); +lean_object* x_41; +lean_dec(x_39); +lean_dec(x_24); lean_dec(x_14); -x_116 = l_Lean_mkHole(x_1); -x_117 = l_Lean_Elab_Term_elabLetDeclAux(x_1, x_115, x_114, x_116, x_111, x_113, x_2, x_3, x_4); -lean_dec(x_114); -return x_117; -} -} -else -{ -lean_object* x_118; lean_object* x_119; uint8_t x_120; uint8_t x_121; -x_118 = l_Lean_Syntax_getArgs(x_75); -x_119 = lean_array_get_size(x_118); -lean_dec(x_118); -x_120 = lean_nat_dec_eq(x_119, x_13); -x_121 = l_coeDecidableEq(x_120); -if (x_121 == 0) -{ -uint8_t x_122; -x_122 = lean_nat_dec_eq(x_119, x_8); -lean_dec(x_119); -x_76 = x_122; -goto block_105; -} -else -{ -lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; -lean_dec(x_119); -lean_dec(x_75); -x_123 = lean_unsigned_to_nat(4u); -x_124 = l_Lean_Syntax_getArg(x_9, x_123); -lean_dec(x_9); -x_125 = lean_unsigned_to_nat(3u); -x_126 = l_Lean_Syntax_getArg(x_1, x_125); -x_127 = l_Lean_Syntax_getArgs(x_73); -lean_dec(x_73); -x_128 = l_Lean_Syntax_getId(x_14); -lean_dec(x_14); -x_129 = l_Lean_mkHole(x_1); -x_130 = l_Lean_Elab_Term_elabLetDeclAux(x_1, x_128, x_127, x_129, x_124, x_126, x_2, x_3, x_4); -lean_dec(x_127); -return x_130; -} -} -block_105: -{ -uint8_t x_77; -x_77 = l_coeDecidableEq(x_76); -if (x_77 == 0) -{ -lean_object* x_78; -lean_dec(x_75); -lean_dec(x_73); -lean_dec(x_14); -lean_dec(x_9); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_78 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); -return x_78; +x_41 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); +return x_41; } else { -lean_object* x_79; lean_object* x_80; uint8_t x_81; -x_79 = l_Lean_Syntax_getArg(x_75, x_13); -lean_dec(x_75); -x_80 = l_Lean_Parser_Term_typeSpec___elambda__1___closed__2; -lean_inc(x_79); -x_81 = l_Lean_Syntax_isOfKind(x_79, x_80); -if (x_81 == 0) +lean_object* x_42; lean_object* x_43; uint8_t x_44; +x_42 = l_Lean_Syntax_getArgs(x_39); +lean_dec(x_39); +x_43 = lean_array_get_size(x_42); +lean_dec(x_42); +x_44 = lean_nat_dec_eq(x_43, x_23); +lean_dec(x_43); +if (x_44 == 0) { -uint8_t x_82; -x_82 = l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; -if (x_82 == 0) -{ -lean_object* x_83; -lean_dec(x_79); -lean_dec(x_73); +lean_object* x_45; +lean_dec(x_24); lean_dec(x_14); -lean_dec(x_9); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_83 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); -return x_83; +x_45 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); +return x_45; } else { -lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; -x_84 = l_Lean_Syntax_getArg(x_79, x_8); -lean_dec(x_79); -x_85 = lean_unsigned_to_nat(4u); -x_86 = l_Lean_Syntax_getArg(x_9, x_85); -lean_dec(x_9); -x_87 = lean_unsigned_to_nat(3u); -x_88 = l_Lean_Syntax_getArg(x_1, x_87); -x_89 = l_Lean_Syntax_getArgs(x_73); -lean_dec(x_73); -x_90 = l_Lean_Syntax_getId(x_14); +lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; uint8_t x_69; lean_object* x_70; +x_46 = l_Lean_Syntax_getArg(x_14, x_10); lean_dec(x_14); -x_91 = l_Lean_Elab_Term_elabLetDeclAux(x_1, x_90, x_89, x_84, x_86, x_88, x_2, x_3, x_4); -lean_dec(x_89); -return x_91; +x_47 = lean_unsigned_to_nat(3u); +x_48 = l_Lean_Syntax_getArg(x_1, x_47); +lean_dec(x_1); +x_49 = l_Lean_Syntax_getArg(x_24, x_23); +lean_dec(x_24); +x_50 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4); +x_51 = lean_ctor_get(x_50, 1); +lean_inc(x_51); +lean_dec(x_50); +x_52 = l_Lean_Elab_Term_getMainModule___rarg(x_51); +x_53 = lean_ctor_get(x_52, 1); +lean_inc(x_53); +lean_dec(x_52); +x_54 = l_Array_empty___closed__1; +x_55 = lean_array_push(x_54, x_49); +x_56 = l_Lean_Elab_Term_elabLetDecl___closed__3; +x_57 = lean_array_push(x_55, x_56); +x_58 = lean_array_push(x_57, x_56); +x_59 = l_Lean_Elab_Term_elabLetDecl___closed__5; +x_60 = lean_array_push(x_58, x_59); +x_61 = lean_array_push(x_60, x_46); +x_62 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_62, 0, x_15); +lean_ctor_set(x_62, 1, x_61); +x_63 = l_Lean_Elab_Term_elabLetDecl___closed__2; +x_64 = lean_array_push(x_63, x_62); +x_65 = l_Lean_Elab_Term_elabLetDecl___closed__7; +x_66 = lean_array_push(x_64, x_65); +x_67 = lean_array_push(x_66, x_48); +x_68 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_68, 0, x_5); +lean_ctor_set(x_68, 1, x_67); +x_69 = 1; +x_70 = l_Lean_Elab_Term_elabTermAux___main(x_2, x_69, x_68, x_3, x_53); +return x_70; +} +} +} +} } } else { -lean_object* x_92; lean_object* x_93; uint8_t x_94; uint8_t x_95; -x_92 = l_Lean_Syntax_getArgs(x_79); -x_93 = lean_array_get_size(x_92); -lean_dec(x_92); -x_94 = lean_nat_dec_eq(x_93, x_74); -lean_dec(x_93); -x_95 = l_coeDecidableEq(x_94); -if (x_95 == 0) +lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; uint8_t x_75; lean_object* x_76; +x_71 = l_Lean_Syntax_getArg(x_14, x_13); +x_72 = lean_unsigned_to_nat(2u); +x_73 = l_Lean_Syntax_getArg(x_14, x_72); +x_74 = l_Lean_nullKind___closed__2; +lean_inc(x_73); +x_75 = l_Lean_Syntax_isOfKind(x_73, x_74); +if (x_75 == 0) { -lean_object* x_96; -lean_dec(x_79); +lean_object* x_98; +x_98 = lean_box(0); +x_76 = x_98; +goto block_97; +} +else +{ +lean_object* x_99; lean_object* x_100; uint8_t x_101; +x_99 = l_Lean_Syntax_getArgs(x_73); +x_100 = lean_array_get_size(x_99); +lean_dec(x_99); +x_101 = lean_nat_dec_eq(x_100, x_23); +lean_dec(x_100); +if (x_101 == 0) +{ +lean_object* x_102; +x_102 = lean_box(0); +x_76 = x_102; +goto block_97; +} +else +{ +lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_dec(x_73); +x_103 = l_Lean_Syntax_getArg(x_14, x_10); +lean_dec(x_14); +x_104 = lean_unsigned_to_nat(3u); +x_105 = l_Lean_Syntax_getArg(x_1, x_104); +x_106 = l_Lean_Syntax_getArgs(x_71); +lean_dec(x_71); +x_107 = l_Lean_Syntax_getId(x_24); +lean_dec(x_24); +x_108 = l_Lean_mkHole(x_1); +x_109 = l_Lean_Elab_Term_elabLetDeclAux(x_1, x_107, x_106, x_108, x_103, x_105, x_2, x_3, x_4); +lean_dec(x_106); +return x_109; +} +} +block_97: +{ +lean_dec(x_76); +if (x_75 == 0) +{ +lean_object* x_77; +lean_dec(x_73); +lean_dec(x_71); +lean_dec(x_24); lean_dec(x_14); -lean_dec(x_9); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_96 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); +x_77 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); +return x_77; +} +else +{ +lean_object* x_78; lean_object* x_79; uint8_t x_80; +x_78 = l_Lean_Syntax_getArgs(x_73); +x_79 = lean_array_get_size(x_78); +lean_dec(x_78); +x_80 = lean_nat_dec_eq(x_79, x_13); +lean_dec(x_79); +if (x_80 == 0) +{ +lean_object* x_81; +lean_dec(x_73); +lean_dec(x_71); +lean_dec(x_24); +lean_dec(x_14); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_81 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); +return x_81; +} +else +{ +lean_object* x_82; lean_object* x_83; uint8_t x_84; +x_82 = l_Lean_Syntax_getArg(x_73, x_23); +lean_dec(x_73); +x_83 = l_Lean_Parser_Term_typeSpec___elambda__1___closed__2; +lean_inc(x_82); +x_84 = l_Lean_Syntax_isOfKind(x_82, x_83); +if (x_84 == 0) +{ +lean_object* x_85; +lean_dec(x_82); +lean_dec(x_71); +lean_dec(x_24); +lean_dec(x_14); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_85 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); +return x_85; +} +else +{ +lean_object* x_86; lean_object* x_87; uint8_t x_88; +x_86 = l_Lean_Syntax_getArgs(x_82); +x_87 = lean_array_get_size(x_86); +lean_dec(x_86); +x_88 = lean_nat_dec_eq(x_87, x_72); +lean_dec(x_87); +if (x_88 == 0) +{ +lean_object* x_89; +lean_dec(x_82); +lean_dec(x_71); +lean_dec(x_24); +lean_dec(x_14); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_89 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_4); +return x_89; +} +else +{ +lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; +x_90 = l_Lean_Syntax_getArg(x_82, x_13); +lean_dec(x_82); +x_91 = l_Lean_Syntax_getArg(x_14, x_10); +lean_dec(x_14); +x_92 = lean_unsigned_to_nat(3u); +x_93 = l_Lean_Syntax_getArg(x_1, x_92); +x_94 = l_Lean_Syntax_getArgs(x_71); +lean_dec(x_71); +x_95 = l_Lean_Syntax_getId(x_24); +lean_dec(x_24); +x_96 = l_Lean_Elab_Term_elabLetDeclAux(x_1, x_95, x_94, x_90, x_91, x_93, x_2, x_3, x_4); +lean_dec(x_94); return x_96; } -else -{ -lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; -x_97 = l_Lean_Syntax_getArg(x_79, x_8); -lean_dec(x_79); -x_98 = lean_unsigned_to_nat(4u); -x_99 = l_Lean_Syntax_getArg(x_9, x_98); -lean_dec(x_9); -x_100 = lean_unsigned_to_nat(3u); -x_101 = l_Lean_Syntax_getArg(x_1, x_100); -x_102 = l_Lean_Syntax_getArgs(x_73); -lean_dec(x_73); -x_103 = l_Lean_Syntax_getId(x_14); -lean_dec(x_14); -x_104 = l_Lean_Elab_Term_elabLetDeclAux(x_1, x_103, x_102, x_97, x_99, x_101, x_2, x_3, x_4); -lean_dec(x_102); -return x_104; } } } diff --git a/stage0/stdlib/Init/Lean/Environment.c b/stage0/stdlib/Init/Lean/Environment.c index 5d7e7bfa8e..fa737942ee 100644 --- a/stage0/stdlib/Init/Lean/Environment.c +++ b/stage0/stdlib/Init/Lean/Environment.c @@ -108,7 +108,6 @@ lean_object* l_Array_iterateMAux___main___at_Lean_mkModuleData___spec__4___boxed extern lean_object* l_Lean_Name_inhabited; lean_object* l_Lean_namespacesExt___elambda__4___rarg(lean_object*); extern lean_object* l_String_splitAux___main___closed__1; -lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_regModListExtension___spec__1___closed__1; lean_object* l_Lean_PersistentEnvExtension_modifyState___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Environment_evalConst___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_registerPersistentEnvExtension___rarg(lean_object*); @@ -7790,18 +7789,6 @@ x_1 = l_NonScalar_Inhabited; return x_1; } } -lean_object* _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_regModListExtension___spec__1___closed__1() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = lean_unsigned_to_nat(0u); -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_registerEnvExtensionUnsafe___at_Lean_regModListExtension___spec__1(lean_object* x_1, lean_object* x_2) { _start: { @@ -7860,7 +7847,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_regModListExtension___spec__1___closed__1; +x_18 = lean_box(0); x_19 = lean_alloc_ctor(0, 3, 0); lean_ctor_set(x_19, 0, x_17); lean_ctor_set(x_19, 1, x_1); @@ -8075,13 +8062,13 @@ lean_object* _init_l_Lean_modListExtension___closed__2() { _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_modListExtension___closed__1; -x_3 = l_Lean_registerEnvExtensionUnsafe___at_Lean_regModListExtension___spec__1___closed__1; +x_1 = lean_box(0); +x_2 = lean_unsigned_to_nat(0u); +x_3 = l_Lean_modListExtension___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); +lean_ctor_set(x_4, 0, x_2); +lean_ctor_set(x_4, 1, x_3); +lean_ctor_set(x_4, 2, x_1); return x_4; } } @@ -12666,8 +12653,6 @@ l_Lean_CPPExtensionState_inhabited = _init_l_Lean_CPPExtensionState_inhabited(); lean_mark_persistent(l_Lean_CPPExtensionState_inhabited); l_Lean_Modification_inhabited = _init_l_Lean_Modification_inhabited(); lean_mark_persistent(l_Lean_Modification_inhabited); -l_Lean_registerEnvExtensionUnsafe___at_Lean_regModListExtension___spec__1___closed__1 = _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_regModListExtension___spec__1___closed__1(); -lean_mark_persistent(l_Lean_registerEnvExtensionUnsafe___at_Lean_regModListExtension___spec__1___closed__1); l_Lean_regModListExtension___closed__1 = _init_l_Lean_regModListExtension___closed__1(); lean_mark_persistent(l_Lean_regModListExtension___closed__1); l_Lean_modListExtension___closed__1 = _init_l_Lean_modListExtension___closed__1(); diff --git a/stage0/stdlib/Init/Lean/Meta/Message.c b/stage0/stdlib/Init/Lean/Meta/Message.c index 0b6fb0ed9b..92d25a6bf9 100644 --- a/stage0/stdlib/Init/Lean/Meta/Message.c +++ b/stage0/stdlib/Init/Lean/Meta/Message.c @@ -21,6 +21,7 @@ lean_object* l_Lean_Meta_Exception_toMessageData___closed__12; lean_object* l___private_Init_Lean_Meta_Message_1__run_x3f(lean_object*); lean_object* l_Lean_KernelException_toMessageData___closed__19; lean_object* l_unreachable_x21___rarg(lean_object*); +lean_object* l_Lean_Meta_Exception_toMessageData___closed__51; lean_object* l___private_Init_Lean_Meta_Message_3__inferDomain_x3f___boxed(lean_object*, lean_object*); extern lean_object* l_Lean_MessageData_ofList___closed__3; lean_object* l___private_Init_Lean_Meta_Message_3__inferDomain_x3f___lambda__1(lean_object*, lean_object*, lean_object*); @@ -119,6 +120,7 @@ lean_object* l_Lean_KernelException_toMessageData___closed__1; lean_object* l___private_Init_Lean_Meta_Message_1__run_x3f___rarg___closed__2; lean_object* l_Lean_Meta_Exception_mkAppTypeMismatchMessage___closed__8; lean_object* l_Lean_Meta_Exception_toMessageData___closed__22; +lean_object* l_Lean_Meta_Exception_toMessageData___closed__50; lean_object* l_Lean_KernelException_toMessageData___closed__8; lean_object* l_Lean_KernelException_toMessageData___closed__4; lean_object* l_Lean_Meta_Exception_toMessageData___closed__38; @@ -144,6 +146,7 @@ lean_object* l_Lean_KernelException_toMessageData___closed__35; lean_object* l_Lean_KernelException_toMessageData___closed__41; lean_object* l_Lean_KernelException_toMessageData___closed__23; lean_object* l_Lean_Meta_Exception_toMessageData___closed__7; +lean_object* l_Lean_Meta_Exception_toMessageData___closed__49; lean_object* l_Lean_Meta_Exception_mkAppTypeMismatchMessage___closed__5; extern lean_object* l_Lean_TraceState_Inhabited___closed__1; lean_object* l_Lean_Meta_inferType(lean_object*, lean_object*, lean_object*); @@ -1196,7 +1199,7 @@ lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__32() { _start: { lean_object* x_1; -x_1 = lean_mk_string("stuck at "); +x_1 = lean_mk_string("stuck at universe level constraint "); return x_1; } } @@ -1224,7 +1227,7 @@ lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__35() { _start: { lean_object* x_1; -x_1 = lean_mk_string("not a type class instance "); +x_1 = lean_mk_string("stuck at constraint "); return x_1; } } @@ -1252,7 +1255,7 @@ lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__38() { _start: { lean_object* x_1; -x_1 = lean_mk_string("application builder failure "); +x_1 = lean_mk_string("not a type class instance "); return x_1; } } @@ -1280,7 +1283,7 @@ lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__41() { _start: { lean_object* x_1; -x_1 = lean_mk_string("failed to synthesize"); +x_1 = lean_mk_string("application builder failure "); return x_1; } } @@ -1307,11 +1310,9 @@ return x_2; lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__44() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Meta_Exception_toStr___closed__19; -x_2 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; +x_1 = lean_mk_string("failed to synthesize"); +return x_1; } } lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__45() { @@ -1319,7 +1320,7 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Meta_Exception_toMessageData___closed__44; -x_2 = lean_alloc_ctor(0, 1, 0); +x_2 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } @@ -1327,16 +1328,18 @@ return x_2; lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__46() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("' failed "); -return x_1; +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_Exception_toMessageData___closed__45; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; } } lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__47() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Meta_Exception_toMessageData___closed__46; +x_1 = l_Lean_Meta_Exception_toStr___closed__19; x_2 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; @@ -1352,6 +1355,34 @@ lean_ctor_set(x_2, 0, x_1); return x_2; } } +lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__49() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("' failed "); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__50() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_Exception_toMessageData___closed__49; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__51() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_Exception_toMessageData___closed__50; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} lean_object* l_Lean_Meta_Exception_toMessageData(lean_object* x_1) { _start: { @@ -1609,7 +1640,7 @@ lean_inc(x_86); lean_dec(x_1); x_87 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_87, 0, x_84); -x_88 = l_Lean_Meta_Exception_toMessageData___closed__34; +x_88 = l_Lean_Meta_Exception_toMessageData___closed__37; x_89 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_89, 0, x_88); lean_ctor_set(x_89, 1, x_87); @@ -1661,7 +1692,7 @@ lean_inc(x_103); lean_dec(x_1); x_104 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_104, 0, x_102); -x_105 = l_Lean_Meta_Exception_toMessageData___closed__37; +x_105 = l_Lean_Meta_Exception_toMessageData___closed__40; x_106 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_106, 0, x_105); lean_ctor_set(x_106, 1, x_104); @@ -1684,7 +1715,7 @@ lean_inc(x_111); lean_dec(x_1); x_112 = lean_alloc_ctor(4, 1, 0); lean_ctor_set(x_112, 0, x_108); -x_113 = l_Lean_Meta_Exception_toMessageData___closed__40; +x_113 = l_Lean_Meta_Exception_toMessageData___closed__43; x_114 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_114, 0, x_113); lean_ctor_set(x_114, 1, x_112); @@ -1725,7 +1756,7 @@ lean_dec(x_1); x_128 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_128, 0, x_126); x_129 = l_Lean_indentExpr(x_128); -x_130 = l_Lean_Meta_Exception_toMessageData___closed__43; +x_130 = l_Lean_Meta_Exception_toMessageData___closed__46; x_131 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_131, 0, x_130); lean_ctor_set(x_131, 1, x_129); @@ -1748,11 +1779,11 @@ lean_inc(x_136); lean_dec(x_1); x_137 = lean_alloc_ctor(4, 1, 0); lean_ctor_set(x_137, 0, x_133); -x_138 = l_Lean_Meta_Exception_toMessageData___closed__45; +x_138 = l_Lean_Meta_Exception_toMessageData___closed__48; x_139 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_139, 0, x_138); lean_ctor_set(x_139, 1, x_137); -x_140 = l_Lean_Meta_Exception_toMessageData___closed__48; +x_140 = l_Lean_Meta_Exception_toMessageData___closed__51; x_141 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_141, 0, x_139); lean_ctor_set(x_141, 1, x_140); @@ -2706,6 +2737,12 @@ l_Lean_Meta_Exception_toMessageData___closed__47 = _init_l_Lean_Meta_Exception_t lean_mark_persistent(l_Lean_Meta_Exception_toMessageData___closed__47); l_Lean_Meta_Exception_toMessageData___closed__48 = _init_l_Lean_Meta_Exception_toMessageData___closed__48(); lean_mark_persistent(l_Lean_Meta_Exception_toMessageData___closed__48); +l_Lean_Meta_Exception_toMessageData___closed__49 = _init_l_Lean_Meta_Exception_toMessageData___closed__49(); +lean_mark_persistent(l_Lean_Meta_Exception_toMessageData___closed__49); +l_Lean_Meta_Exception_toMessageData___closed__50 = _init_l_Lean_Meta_Exception_toMessageData___closed__50(); +lean_mark_persistent(l_Lean_Meta_Exception_toMessageData___closed__50); +l_Lean_Meta_Exception_toMessageData___closed__51 = _init_l_Lean_Meta_Exception_toMessageData___closed__51(); +lean_mark_persistent(l_Lean_Meta_Exception_toMessageData___closed__51); l_Lean_KernelException_toMessageData___closed__1 = _init_l_Lean_KernelException_toMessageData___closed__1(); lean_mark_persistent(l_Lean_KernelException_toMessageData___closed__1); l_Lean_KernelException_toMessageData___closed__2 = _init_l_Lean_KernelException_toMessageData___closed__2(); diff --git a/stage0/stdlib/Init/Lean/Meta/SynthInstance.c b/stage0/stdlib/Init/Lean/Meta/SynthInstance.c index e9a46ce32b..42b0072ca0 100644 --- a/stage0/stdlib/Init/Lean/Meta/SynthInstance.c +++ b/stage0/stdlib/Init/Lean/Meta/SynthInstance.c @@ -35,8 +35,8 @@ lean_object* l_Lean_Meta_SynthInstance_MkTableKey_normLevel(lean_object*, lean_o lean_object* l_Lean_Meta_SynthInstance_tryAnswer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Option_toLOption___rarg(lean_object*); lean_object* l_AssocList_foldlM___main___at_Lean_Meta_SynthInstance_MkTableKey_normExpr___main___spec__7(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Meta_SynthInstance_4__preprocessArgs___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_AssocList_contains___main___at_Lean_Meta_SynthInstance_MkTableKey_normExpr___main___spec__4(lean_object*, lean_object*); +lean_object* l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__2(lean_object*, size_t, size_t, lean_object*, lean_object*); lean_object* lean_array_uget(lean_object*, size_t); lean_object* lean_expr_update_mdata(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_SynthInstance_7__regTraceClasses(lean_object*); @@ -53,6 +53,7 @@ lean_object* l_Lean_Meta_SynthInstance_mkTableKey___closed__3; lean_object* lean_array_uset(lean_object*, size_t, lean_object*); lean_object* l_Lean_Meta_SynthInstance_addAnswer___closed__2; lean_object* l_Lean_Meta_SynthInstance_tryResolveCore___lambda__1___closed__2; +lean_object* l_PersistentHashMap_insert___at_Lean_Meta_synthInstance_x3f___spec__1(lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Meta_Basic_10__regTraceClasses___closed__2; lean_object* l_Lean_Meta_SynthInstance_SynthM_inhabited___lambda__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_getResult(lean_object*); @@ -60,7 +61,6 @@ size_t l_USize_sub(size_t, size_t); extern lean_object* l_Array_empty___closed__1; lean_object* l_Lean_Meta_maxStepsOption___closed__5; lean_object* l_HashMapImp_expand___at_Lean_Meta_SynthInstance_MkTableKey_normExpr___main___spec__5(lean_object*, lean_object*); -lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance_x3f___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; lean_object* l___private_Init_Util_1__mkPanicMessage(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_checkTraceOption(lean_object*, lean_object*); @@ -75,6 +75,7 @@ lean_object* l_mkHashMap___at_Lean_Meta_SynthInstance_mkTableKey___spec__2(lean_ lean_object* l_Lean_Meta_instantiateLevelMVars(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_MkTableKey_normExpr___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_maxStepsOption(lean_object*); +lean_object* lean_expr_instantiate1(lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_tryResolveCore___lambda__1___closed__3; lean_object* lean_array_push(lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_getEntry___closed__3; @@ -87,12 +88,12 @@ lean_object* l_Lean_Meta_SynthInstance_resume(lean_object*, lean_object*); lean_object* l_Lean_Expr_getAppFn___main(lean_object*); lean_object* l_Lean_Meta_SynthInstance_withMCtx(lean_object*); lean_object* l_PersistentArray_push___rarg(lean_object*, lean_object*); +lean_object* l_PersistentHashMap_insertAtCollisionNodeAux___main___at_Lean_Meta_synthInstance_x3f___spec__3(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_String_splitAux___main___closed__1; lean_object* l___private_Init_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__1; extern lean_object* l_Lean_Expr_getAppArgs___closed__1; lean_object* l_Lean_Meta_SynthInstance_tryResolveCore___lambda__1___closed__5; extern lean_object* l_Lean_Meta_Exception_Inhabited___closed__1; -lean_object* l___private_Init_Lean_Meta_SynthInstance_4__preprocessArgs___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_SynthInstance_2__preprocess(lean_object*, lean_object*, lean_object*); size_t l_USize_shiftRight(size_t, size_t); lean_object* l_Lean_Meta_SynthInstance_findEntry_x3f(lean_object*, lean_object*, lean_object*); @@ -101,6 +102,7 @@ lean_object* l_Lean_Meta_SynthInstance_main(lean_object*, lean_object*, lean_obj lean_object* l___private_Init_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__2; lean_object* l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; lean_object* l_List_mapM___main___at_Lean_Meta_SynthInstance_MkTableKey_normExpr___main___spec__9(lean_object*, lean_object*, lean_object*); +lean_object* l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance_x3f___spec__6___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_getInstances___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_maxStepsOption___closed__3; lean_object* l_Lean_Meta_SynthInstance_newSubgoal___closed__1; @@ -109,6 +111,7 @@ lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_getInstances(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Util_Trace_3__getResetTraces___at_Lean_Meta_SynthInstance_tryResolve___spec__1___boxed(lean_object*); lean_object* l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_SynthInstance_newSubgoal___spec__8___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance_x3f___spec__7(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_findEntry_x3f___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_SynthInstance_2__preprocess___closed__1; lean_object* l_Lean_Meta_SynthInstance_tracer___closed__5; @@ -117,7 +120,6 @@ lean_object* l_Lean_Expr_getAppNumArgsAux___main(lean_object*, lean_object*); lean_object* l_Lean_Meta_isClass(lean_object*, lean_object*, lean_object*); lean_object* l_Array_back___at_Lean_Meta_SynthInstance_getTop___spec__1(lean_object*); lean_object* l___private_Init_Lean_Util_Trace_3__getResetTraces___at_Lean_Meta_SynthInstance_tryResolve___spec__1___rarg(lean_object*); -lean_object* l_PersistentHashMap_find_x3f___at_Lean_Meta_synthInstance_x3f___spec__1(lean_object*, lean_object*); lean_object* l_AssocList_replace___main___at_Lean_Meta_SynthInstance_newSubgoal___spec__6(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_wakeUp(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__73; @@ -126,7 +128,6 @@ lean_object* l___private_Init_Lean_Meta_SynthInstance_2__preprocess___lambda__1( extern lean_object* l_Lean_Meta_AbstractMVarsResult_inhabited___closed__1; uint8_t l_Lean_Meta_SynthInstance_Waiter_isRoot(lean_object*); lean_object* lean_array_fget(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_expr_instantiate_rev_range(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Expr_Inhabited___closed__1; uint8_t lean_nat_dec_eq(lean_object*, lean_object*); @@ -134,7 +135,7 @@ lean_object* l_Lean_Meta_SynthInstance_meta2Synth(lean_object*); lean_object* l_Lean_Meta_SynthInstance_getTop___boxed(lean_object*); lean_object* l_Lean_Meta_abstractMVars(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_SynthInstance_6__getMaxSteps___boxed(lean_object*); -lean_object* l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_synth___main___closed__6; lean_object* l_Lean_Meta_SynthInstance_getTraceState(lean_object*); lean_object* l_Lean_Meta_SynthInstance_tryResolve(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -145,6 +146,7 @@ lean_object* l_List_mapM___main___at_Lean_Meta_SynthInstance_getInstances___spec lean_object* l_Lean_Meta_SynthInstance_getOptions(lean_object*, lean_object*); lean_object* l_HashMapImp_expand___at_Lean_Meta_SynthInstance_MkTableKey_normLevel___main___spec__5(lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_generate___closed__3; +lean_object* l_PersistentHashMap_find_x3f___at_Lean_Meta_synthInstance_x3f___spec__5___boxed(lean_object*, lean_object*); lean_object* l_HashMapImp_insert___at_Lean_Meta_SynthInstance_MkTableKey_normExpr___main___spec__3(lean_object*, lean_object*, lean_object*); lean_object* l_AssocList_find___main___at_Lean_Meta_SynthInstance_MkTableKey_normLevel___main___spec__2(lean_object*, lean_object*); lean_object* lean_level_update_max(lean_object*, lean_object*, lean_object*); @@ -156,6 +158,7 @@ lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_generate(lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_SynthM_inhabited___closed__1; lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_synthInstance_x3f___closed__7; lean_object* l_Lean_Meta_SynthInstance_getEntry___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_modifyTop(lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Meta_SynthInstance_consume___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -164,7 +167,7 @@ lean_object* l_Lean_Meta_SynthInstance_getNextToResume___rarg(lean_object*); size_t l_Lean_Name_hash(lean_object*); lean_object* l_Nat_repr(lean_object*); extern lean_object* l_Lean_MessageData_coeOfArrayExpr___closed__2; -lean_object* l_PersistentHashMap_find_x3f___at_Lean_Meta_synthInstance_x3f___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_PersistentHashMap_insertAux___main___rarg___closed__3; lean_object* l_Lean_Meta_SynthInstance_Consumernode_inhabited___closed__1; lean_object* l_Array_iterateMAux___main___at_Lean_Meta_SynthInstance_getInstances___spec__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -177,17 +180,17 @@ lean_object* l_Lean_Meta_SynthInstance_getTraceState___rarg(lean_object*); lean_object* l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_SynthInstance_newSubgoal___spec__7___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Array_back___at_Lean_Meta_SynthInstance_getNextToResume___spec__1___boxed(lean_object*); lean_object* l_Lean_Meta_getGlobalInstances___rarg(lean_object*); -lean_object* l_Array_iterateMAux___main___at_Lean_Meta_synthInstance_x3f___spec__7(size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_getOptions___boxed(lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_synth___main___closed__4; extern lean_object* l_PersistentArray_empty___closed__3; lean_object* l_Array_back___at_Lean_Meta_SynthInstance_getNextToResume___spec__1___closed__1; -lean_object* l_Array_iterateMAux___main___at_Lean_Meta_synthInstance_x3f___spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__4; lean_object* l_HashMapImp_find_x3f___at_Lean_Meta_SynthInstance_findEntry_x3f___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_step(lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at_Lean_Meta_synthInstance_x3f___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_synth___main___closed__9; size_t lean_usize_modn(size_t, lean_object*); +lean_object* l_PersistentHashMap_find_x3f___at_Lean_Meta_synthInstance_x3f___spec__5(lean_object*, lean_object*); lean_object* l_mkHashMap___at_Lean_Meta_SynthInstance_main___spec__1(lean_object*); uint8_t l_Array_isEmpty___rarg(lean_object*); lean_object* l_AssocList_find___main___at_Lean_Meta_SynthInstance_findEntry_x3f___spec__2___boxed(lean_object*, lean_object*); @@ -207,8 +210,6 @@ lean_object* l_Lean_mkFVar(lean_object*); uint8_t l_Lean_Expr_Data_binderInfo(uint64_t); lean_object* l_AssocList_foldlM___main___at_Lean_Meta_SynthInstance_MkTableKey_normLevel___main___spec__7(lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_getNextToResume___boxed(lean_object*); -lean_object* l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance_x3f___spec__2(lean_object*, size_t, lean_object*); -lean_object* l_PersistentHashMap_insert___at_Lean_Meta_synthInstance_x3f___spec__4(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_resume___closed__7; lean_object* l_Lean_KVMap_getNat(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_synth___main___closed__1; @@ -222,7 +223,6 @@ lean_object* l_Lean_Meta_SynthInstance_getResult___rarg(lean_object*); lean_object* l_Lean_Meta_SynthInstance_tracer___closed__4; lean_object* l_Lean_Meta_SynthInstance_tryResolveCore___lambda__1___closed__4; lean_object* l_Lean_Meta_SynthInstance_getEntry(lean_object*, lean_object*, lean_object*); -lean_object* l_PersistentHashMap_insertAtCollisionNodeAux___main___at_Lean_Meta_synthInstance_x3f___spec__6(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_isLevelDefEq___closed__6; lean_object* l_Lean_Meta_SynthInstance_synth(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_getEntry___closed__2; @@ -237,21 +237,25 @@ lean_object* l_HashMapImp_insert___at_Lean_Meta_SynthInstance_newSubgoal___spec_ lean_object* l_Lean_Meta_DiscrTree_getUnify___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_HashMapImp_find_x3f___at_Lean_Meta_SynthInstance_MkTableKey_normLevel___main___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_wakeUp___closed__2; +lean_object* l_Lean_Meta_synthInstance_x3f___closed__3; lean_object* lean_level_update_imax(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_synthInstance(lean_object*, lean_object*, lean_object*); lean_object* l_HashMapImp_find_x3f___at_Lean_Meta_SynthInstance_MkTableKey_normExpr___main___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance_x3f___spec__6(lean_object*, size_t, lean_object*); lean_object* l_Lean_Meta_trySynthInstance(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_hasAssignableMVar(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_synth___main(lean_object*, lean_object*, lean_object*); lean_object* l_Array_back___at_Lean_Meta_SynthInstance_getTop___spec__1___boxed(lean_object*); +lean_object* l_Lean_Meta_synthInstance_x3f___closed__5; lean_object* l_Lean_Meta_SynthInstance_tracer___closed__3; -lean_object* l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Meta_SynthInstance_getInstances___spec__2___closed__2; lean_object* l_Lean_Meta_SynthInstance_wakeUp___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_withMCtx___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_getTop___rarg(lean_object*); +lean_object* l_Lean_Meta_synthInstance_x3f___closed__6; uint8_t lean_expr_eqv(lean_object*, lean_object*); uint8_t l_Lean_Meta_SynthInstance_isNewAnswer(lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at_Lean_Meta_synthInstance_x3f___spec__4(size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_resume___closed__6; lean_object* lean_expr_update_sort(lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_wakeUp___closed__1; @@ -273,7 +277,6 @@ lean_object* l_Lean_MetavarContext_incDepth(lean_object*); lean_object* l_Lean_Meta_SynthInstance_getResult___boxed(lean_object*); lean_object* l___private_Init_Lean_Util_Trace_2__addNode___at_Lean_Meta_SynthInstance_tryResolve___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Meta_SynthInstance_getInstances___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_register_option(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_synth___main___closed__2; lean_object* l_Lean_Meta_SynthInstance_tracer; @@ -281,9 +284,11 @@ lean_object* l_Lean_Meta_SynthInstance_mkTableKey(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__72; lean_object* lean_nat_mul(lean_object*, lean_object*); +lean_object* l_Lean_Meta_synthInstance_x3f___closed__4; lean_object* l_Lean_Meta_SynthInstance_getNextToResume(lean_object*); lean_object* l_Lean_Meta_SynthInstance_isNewAnswer___boxed(lean_object*, lean_object*); uint8_t l_Lean_MetavarContext_isLevelAssignable(lean_object*, lean_object*); +lean_object* l_Lean_Meta_synthInstance_x3f___closed__9; lean_object* l_Lean_Meta_SynthInstance_Consumernode_inhabited; extern lean_object* l_Lean_Meta_isLevelDefEq___closed__9; lean_object* lean_expr_update_lambda(lean_object*, uint8_t, lean_object*, lean_object*); @@ -306,6 +311,7 @@ lean_object* l_Lean_Meta_SynthInstance_mkTableKeyFor(lean_object*, lean_object*, lean_object* lean_array_pop(lean_object*); lean_object* l_Lean_Meta_SynthInstance_MkTableKey_normLevel___main___closed__1; lean_object* lean_mk_array(lean_object*, lean_object*); +lean_object* l_Lean_Meta_synthInstance_x3f___closed__1; lean_object* l_Lean_Meta_maxStepsOption___closed__1; lean_object* l_HashMapImp_moveEntries___main___at_Lean_Meta_SynthInstance_MkTableKey_normLevel___main___spec__6(lean_object*, lean_object*, lean_object*); lean_object* l_Array_forMAux___main___at_Lean_Meta_SynthInstance_addAnswer___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -324,7 +330,6 @@ extern lean_object* l_Lean_mkOptionalNode___closed__2; lean_object* l_Lean_Meta_SynthInstance_liftMeta___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_MkTableKey_normLevel___main(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_isClassQuick___main___closed__1; -lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance_x3f___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_consume(lean_object*, lean_object*, lean_object*); lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); @@ -335,6 +340,7 @@ lean_object* lean_expr_update_app(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_tryResolveCore___lambda__1___closed__1; lean_object* l_Array_anyRangeMAux___main___at_Lean_Meta_SynthInstance_isNewAnswer___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_resume___closed__4; +lean_object* l_Lean_Meta_synthInstance_x3f___closed__2; lean_object* l___private_Init_Lean_Meta_SynthInstance_3__preprocessLevels___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__3; lean_object* l_Lean_Meta_SynthInstance_tracer___closed__1; @@ -346,7 +352,6 @@ lean_object* l_Lean_Meta_SynthInstance_MkTableKey_normExpr(lean_object*, lean_ob lean_object* l_AssocList_replace___main___at_Lean_Meta_SynthInstance_MkTableKey_normExpr___main___spec__8(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_main___closed__2; lean_object* l_Lean_Meta_SynthInstance_tracer___lambda__1(lean_object*, lean_object*, lean_object*); -lean_object* l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance_x3f___spec__2___boxed(lean_object*, lean_object*, lean_object*); uint8_t lean_has_out_params(lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Meta_SynthInstance_getInstances___spec__2___closed__3; lean_object* lean_name_mk_numeral(lean_object*, lean_object*); @@ -356,7 +361,9 @@ lean_object* l_AssocList_contains___main___at_Lean_Meta_SynthInstance_newSubgoal lean_object* l_PersistentHashMap_mkCollisionNode___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_resume___closed__2; lean_object* l_Lean_Meta_forallTelescopeReducing___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_synthInstance_x3f___closed__8; lean_object* l_Lean_Meta_SynthInstance_generate___closed__4; +lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance_x3f___spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_main___closed__1; lean_object* l_Lean_Meta_SynthInstance_resume___closed__1; lean_object* l_Lean_Meta_SynthInstance_wakeUp___closed__3; @@ -365,7 +372,6 @@ lean_object* l_PersistentArray_toArray___rarg(lean_object*); lean_object* l_Lean_Meta_maxStepsOption___closed__4; lean_object* l_Lean_Meta_SynthInstance_liftMeta(lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); -lean_object* l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5(lean_object*, size_t, size_t, lean_object*, lean_object*); lean_object* _init_l_Lean_Meta_SynthInstance_GeneratorNode_inhabited___closed__1() { _start: { @@ -19598,7 +19604,7 @@ lean_object* l___private_Init_Lean_Meta_SynthInstance_4__preprocessArgs___main(l _start: { lean_object* x_6; uint8_t x_7; -x_6 = lean_array_get_size(x_1); +x_6 = lean_array_get_size(x_3); x_7 = lean_nat_dec_lt(x_2, x_6); lean_dec(x_6); if (x_7 == 0) @@ -19606,6 +19612,7 @@ if (x_7 == 0) lean_object* x_8; lean_dec(x_4); lean_dec(x_2); +lean_dec(x_1); x_8 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_8, 0, x_3); lean_ctor_set(x_8, 1, x_5); @@ -19613,246 +19620,134 @@ return x_8; } else { -lean_object* x_9; lean_object* x_10; -x_9 = lean_array_fget(x_1, x_2); +lean_object* x_9; lean_inc(x_4); -x_10 = l_Lean_Meta_inferType(x_9, x_4, x_5); -if (lean_obj_tag(x_10) == 0) +x_9 = l_Lean_Meta_whnf(x_1, x_4, x_5); +if (lean_obj_tag(x_9) == 0) { -uint8_t x_11; -x_11 = !lean_is_exclusive(x_10); -if (x_11 == 0) +lean_object* x_10; +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +if (lean_obj_tag(x_10) == 7) { -lean_object* x_12; lean_object* x_13; uint8_t x_14; -x_12 = lean_ctor_get(x_10, 0); -x_13 = lean_ctor_get(x_10, 1); -x_14 = lean_is_out_param(x_12); -if (x_14 == 0) +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; uint8_t x_15; +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +lean_dec(x_9); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +x_13 = lean_ctor_get(x_10, 2); +lean_inc(x_13); +lean_dec(x_10); +x_14 = lean_array_fget(x_3, x_2); +lean_inc(x_12); +x_15 = lean_is_out_param(x_12); +if (x_15 == 0) { -lean_object* x_15; lean_object* x_16; -lean_free_object(x_10); -x_15 = lean_unsigned_to_nat(1u); -x_16 = lean_nat_add(x_2, x_15); +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +lean_dec(x_12); +lean_inc(x_14); +x_16 = lean_array_fset(x_3, x_2, x_14); +x_17 = lean_expr_instantiate1(x_13, x_14); +lean_dec(x_14); +lean_dec(x_13); +x_18 = lean_unsigned_to_nat(1u); +x_19 = lean_nat_add(x_2, x_18); lean_dec(x_2); -x_2 = x_16; -x_5 = x_13; +x_1 = x_17; +x_2 = x_19; +x_3 = x_16; +x_5 = x_11; goto _start; } else { -lean_object* x_18; uint8_t x_19; -x_18 = lean_array_get_size(x_3); -x_19 = lean_nat_dec_lt(x_2, x_18); -lean_dec(x_18); -if (x_19 == 0) -{ -lean_object* x_20; -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -x_20 = l___private_Init_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__2; -lean_ctor_set_tag(x_10, 1); -lean_ctor_set(x_10, 0, x_20); -return x_10; -} -else -{ -lean_object* x_21; lean_object* x_22; -lean_free_object(x_10); -x_21 = lean_array_fget(x_3, x_2); +lean_object* x_21; uint8_t 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_29; +lean_dec(x_14); +x_21 = lean_box(0); +x_22 = 0; lean_inc(x_4); -x_22 = l_Lean_Meta_inferType(x_21, x_4, x_13); -if (lean_obj_tag(x_22) == 0) -{ -lean_object* x_23; lean_object* x_24; lean_object* x_25; uint8_t 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; -x_23 = lean_ctor_get(x_22, 0); -lean_inc(x_23); -x_24 = lean_ctor_get(x_22, 1); +x_23 = l_Lean_Meta_mkFreshExprMVar(x_12, x_21, x_22, x_4, x_11); +x_24 = lean_ctor_get(x_23, 0); lean_inc(x_24); -lean_dec(x_22); -x_25 = lean_box(0); -x_26 = 0; -lean_inc(x_4); -x_27 = l_Lean_Meta_mkFreshExprMVar(x_23, x_25, x_26, x_4, x_24); -x_28 = lean_ctor_get(x_27, 0); -lean_inc(x_28); -x_29 = lean_ctor_get(x_27, 1); -lean_inc(x_29); -lean_dec(x_27); -x_30 = lean_unsigned_to_nat(1u); -x_31 = lean_nat_add(x_2, x_30); -x_32 = lean_array_fset(x_3, x_2, x_28); +x_25 = lean_ctor_get(x_23, 1); +lean_inc(x_25); +lean_dec(x_23); +lean_inc(x_24); +x_26 = lean_array_fset(x_3, x_2, x_24); +x_27 = lean_expr_instantiate1(x_13, x_24); +lean_dec(x_24); +lean_dec(x_13); +x_28 = lean_unsigned_to_nat(1u); +x_29 = lean_nat_add(x_2, x_28); lean_dec(x_2); -x_2 = x_31; -x_3 = x_32; -x_5 = x_29; +x_1 = x_27; +x_2 = x_29; +x_3 = x_26; +x_5 = x_25; goto _start; } +} else { -uint8_t x_34; +uint8_t x_31; +lean_dec(x_10); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); -x_34 = !lean_is_exclusive(x_22); -if (x_34 == 0) +x_31 = !lean_is_exclusive(x_9); +if (x_31 == 0) { -return x_22; +lean_object* x_32; lean_object* x_33; +x_32 = lean_ctor_get(x_9, 0); +lean_dec(x_32); +x_33 = l___private_Init_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__2; +lean_ctor_set_tag(x_9, 1); +lean_ctor_set(x_9, 0, x_33); +return x_9; } else { -lean_object* x_35; lean_object* x_36; lean_object* x_37; -x_35 = lean_ctor_get(x_22, 0); -x_36 = lean_ctor_get(x_22, 1); -lean_inc(x_36); -lean_inc(x_35); -lean_dec(x_22); -x_37 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_37, 0, x_35); -lean_ctor_set(x_37, 1, x_36); -return x_37; -} -} +lean_object* x_34; lean_object* x_35; lean_object* x_36; +x_34 = lean_ctor_get(x_9, 1); +lean_inc(x_34); +lean_dec(x_9); +x_35 = l___private_Init_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__2; +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_35); +lean_ctor_set(x_36, 1, x_34); +return x_36; } } } else { -lean_object* x_38; lean_object* x_39; uint8_t x_40; -x_38 = lean_ctor_get(x_10, 0); -x_39 = lean_ctor_get(x_10, 1); +uint8_t x_37; +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_37 = !lean_is_exclusive(x_9); +if (x_37 == 0) +{ +return x_9; +} +else +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_38 = lean_ctor_get(x_9, 0); +x_39 = lean_ctor_get(x_9, 1); lean_inc(x_39); lean_inc(x_38); -lean_dec(x_10); -x_40 = lean_is_out_param(x_38); -if (x_40 == 0) -{ -lean_object* x_41; lean_object* x_42; -x_41 = lean_unsigned_to_nat(1u); -x_42 = lean_nat_add(x_2, x_41); -lean_dec(x_2); -x_2 = x_42; -x_5 = x_39; -goto _start; -} -else -{ -lean_object* x_44; uint8_t x_45; -x_44 = lean_array_get_size(x_3); -x_45 = lean_nat_dec_lt(x_2, x_44); -lean_dec(x_44); -if (x_45 == 0) -{ -lean_object* x_46; lean_object* x_47; -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -x_46 = l___private_Init_Lean_Meta_SynthInstance_4__preprocessArgs___main___closed__2; -x_47 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_47, 0, x_46); -lean_ctor_set(x_47, 1, x_39); -return x_47; -} -else -{ -lean_object* x_48; lean_object* x_49; -x_48 = lean_array_fget(x_3, x_2); -lean_inc(x_4); -x_49 = l_Lean_Meta_inferType(x_48, x_4, x_39); -if (lean_obj_tag(x_49) == 0) -{ -lean_object* x_50; lean_object* x_51; lean_object* x_52; uint8_t x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; -x_50 = lean_ctor_get(x_49, 0); -lean_inc(x_50); -x_51 = lean_ctor_get(x_49, 1); -lean_inc(x_51); -lean_dec(x_49); -x_52 = lean_box(0); -x_53 = 0; -lean_inc(x_4); -x_54 = l_Lean_Meta_mkFreshExprMVar(x_50, x_52, x_53, x_4, x_51); -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_unsigned_to_nat(1u); -x_58 = lean_nat_add(x_2, x_57); -x_59 = lean_array_fset(x_3, x_2, x_55); -lean_dec(x_2); -x_2 = x_58; -x_3 = x_59; -x_5 = x_56; -goto _start; -} -else -{ -lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -x_61 = lean_ctor_get(x_49, 0); -lean_inc(x_61); -x_62 = lean_ctor_get(x_49, 1); -lean_inc(x_62); -if (lean_is_exclusive(x_49)) { - lean_ctor_release(x_49, 0); - lean_ctor_release(x_49, 1); - x_63 = x_49; -} else { - lean_dec_ref(x_49); - x_63 = lean_box(0); -} -if (lean_is_scalar(x_63)) { - x_64 = lean_alloc_ctor(1, 2, 0); -} else { - x_64 = x_63; -} -lean_ctor_set(x_64, 0, x_61); -lean_ctor_set(x_64, 1, x_62); -return x_64; +lean_dec(x_9); +x_40 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_40, 0, x_38); +lean_ctor_set(x_40, 1, x_39); +return x_40; } } } } } -else -{ -uint8_t x_65; -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -x_65 = !lean_is_exclusive(x_10); -if (x_65 == 0) -{ -return x_10; -} -else -{ -lean_object* x_66; lean_object* x_67; lean_object* x_68; -x_66 = lean_ctor_get(x_10, 0); -x_67 = lean_ctor_get(x_10, 1); -lean_inc(x_67); -lean_inc(x_66); -lean_dec(x_10); -x_68 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_68, 0, x_66); -lean_ctor_set(x_68, 1, x_67); -return x_68; -} -} -} -} -} -lean_object* l___private_Init_Lean_Meta_SynthInstance_4__preprocessArgs___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; -x_6 = l___private_Init_Lean_Meta_SynthInstance_4__preprocessArgs___main(x_1, x_2, x_3, x_4, x_5); -lean_dec(x_1); -return x_6; -} -} lean_object* l___private_Init_Lean_Meta_SynthInstance_4__preprocessArgs(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { @@ -19861,114 +19756,7 @@ x_6 = l___private_Init_Lean_Meta_SynthInstance_4__preprocessArgs___main(x_1, x_2 return x_6; } } -lean_object* l___private_Init_Lean_Meta_SynthInstance_4__preprocessArgs___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; -x_6 = l___private_Init_Lean_Meta_SynthInstance_4__preprocessArgs(x_1, x_2, x_3, x_4, x_5); -lean_dec(x_1); -return x_6; -} -} -lean_object* l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8) { -_start: -{ -lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; -x_9 = l___private_Init_Lean_Meta_SynthInstance_3__preprocessLevels(x_1, x_7, x_8); -x_10 = lean_ctor_get(x_9, 0); -lean_inc(x_10); -x_11 = lean_ctor_get(x_9, 1); -lean_inc(x_11); -lean_dec(x_9); -x_12 = lean_unsigned_to_nat(0u); -lean_inc(x_7); -x_13 = l___private_Init_Lean_Meta_SynthInstance_4__preprocessArgs___main(x_5, x_12, x_2, x_7, x_11); -if (lean_obj_tag(x_13) == 0) -{ -lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; -x_14 = lean_ctor_get(x_13, 0); -lean_inc(x_14); -x_15 = lean_ctor_get(x_13, 1); -lean_inc(x_15); -lean_dec(x_13); -x_16 = l_Lean_mkConst(x_3, x_10); -x_17 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_14, x_14, x_12, x_16); -lean_dec(x_14); -x_18 = l_Lean_Meta_mkForall(x_4, x_17, x_7, x_15); -if (lean_obj_tag(x_18) == 0) -{ -uint8_t x_19; -x_19 = !lean_is_exclusive(x_18); -if (x_19 == 0) -{ -return x_18; -} -else -{ -lean_object* x_20; lean_object* x_21; lean_object* x_22; -x_20 = lean_ctor_get(x_18, 0); -x_21 = lean_ctor_get(x_18, 1); -lean_inc(x_21); -lean_inc(x_20); -lean_dec(x_18); -x_22 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_22, 0, x_20); -lean_ctor_set(x_22, 1, x_21); -return x_22; -} -} -else -{ -uint8_t x_23; -x_23 = !lean_is_exclusive(x_18); -if (x_23 == 0) -{ -return x_18; -} -else -{ -lean_object* x_24; lean_object* x_25; lean_object* x_26; -x_24 = lean_ctor_get(x_18, 0); -x_25 = lean_ctor_get(x_18, 1); -lean_inc(x_25); -lean_inc(x_24); -lean_dec(x_18); -x_26 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_26, 0, x_24); -lean_ctor_set(x_26, 1, x_25); -return x_26; -} -} -} -else -{ -uint8_t x_27; -lean_dec(x_10); -lean_dec(x_7); -lean_dec(x_4); -lean_dec(x_3); -x_27 = !lean_is_exclusive(x_13); -if (x_27 == 0) -{ -return x_13; -} -else -{ -lean_object* x_28; lean_object* x_29; lean_object* x_30; -x_28 = lean_ctor_get(x_13, 0); -x_29 = lean_ctor_get(x_13, 1); -lean_inc(x_29); -lean_inc(x_28); -lean_dec(x_13); -x_30 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_30, 0, x_28); -lean_ctor_set(x_30, 1, x_29); -return x_30; -} -} -} -} -lean_object* l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam___lambda__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { lean_object* x_6; @@ -19980,6 +19768,7 @@ x_7 = lean_ctor_get(x_6, 0); lean_inc(x_7); x_8 = lean_ctor_get(x_6, 1); lean_inc(x_8); +lean_dec(x_6); x_9 = lean_ctor_get(x_5, 0); lean_inc(x_9); lean_inc(x_7); @@ -19989,7 +19778,6 @@ if (x_10 == 0) lean_object* x_11; lean_dec(x_8); lean_dec(x_7); -lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); @@ -20000,7 +19788,7 @@ return x_11; } else { -lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_dec(x_1); x_12 = lean_unsigned_to_nat(0u); x_13 = l_Lean_Expr_getAppNumArgsAux___main(x_3, x_12); @@ -20011,64 +19799,104 @@ x_16 = lean_unsigned_to_nat(1u); x_17 = lean_nat_sub(x_13, x_16); lean_dec(x_13); x_18 = l___private_Init_Lean_Expr_3__getAppArgsAux___main(x_3, x_15, x_17); -lean_inc(x_4); -x_19 = l_Lean_Meta_inferType(x_6, x_4, x_5); -if (lean_obj_tag(x_19) == 0) -{ -lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_19 = l___private_Init_Lean_Meta_SynthInstance_3__preprocessLevels(x_8, x_4, x_5); x_20 = lean_ctor_get(x_19, 0); lean_inc(x_20); x_21 = lean_ctor_get(x_19, 1); lean_inc(x_21); lean_dec(x_19); -x_22 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam___lambda__1___boxed), 8, 4); -lean_closure_set(x_22, 0, x_8); -lean_closure_set(x_22, 1, x_18); -lean_closure_set(x_22, 2, x_7); -lean_closure_set(x_22, 3, x_2); -x_23 = l_Lean_Meta_forallTelescopeReducing___rarg(x_20, x_22, x_4, x_21); +x_22 = l_Lean_mkConst(x_7, x_20); +lean_inc(x_4); +lean_inc(x_22); +x_23 = l_Lean_Meta_inferType(x_22, x_4, x_21); +if (lean_obj_tag(x_23) == 0) +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_24 = lean_ctor_get(x_23, 0); +lean_inc(x_24); +x_25 = lean_ctor_get(x_23, 1); +lean_inc(x_25); +lean_dec(x_23); +lean_inc(x_4); +x_26 = l___private_Init_Lean_Meta_SynthInstance_4__preprocessArgs___main(x_24, x_12, x_18, x_4, x_25); +if (lean_obj_tag(x_26) == 0) +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_27 = lean_ctor_get(x_26, 0); +lean_inc(x_27); +x_28 = lean_ctor_get(x_26, 1); +lean_inc(x_28); +lean_dec(x_26); +x_29 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_27, x_27, x_12, x_22); +lean_dec(x_27); +x_30 = l_Lean_Meta_mkForall(x_2, x_29, x_4, x_28); +return x_30; +} +else +{ +uint8_t x_31; +lean_dec(x_22); +lean_dec(x_4); +lean_dec(x_2); +x_31 = !lean_is_exclusive(x_26); +if (x_31 == 0) +{ +return x_26; +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_32 = lean_ctor_get(x_26, 0); +x_33 = lean_ctor_get(x_26, 1); +lean_inc(x_33); +lean_inc(x_32); +lean_dec(x_26); +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_32); +lean_ctor_set(x_34, 1, x_33); +return x_34; +} +} +} +else +{ +uint8_t x_35; +lean_dec(x_22); +lean_dec(x_18); +lean_dec(x_4); +lean_dec(x_2); +x_35 = !lean_is_exclusive(x_23); +if (x_35 == 0) +{ return x_23; } else { -uint8_t x_24; -lean_dec(x_18); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_4); -lean_dec(x_2); -x_24 = !lean_is_exclusive(x_19); -if (x_24 == 0) -{ -return x_19; -} -else -{ -lean_object* x_25; lean_object* x_26; lean_object* x_27; -x_25 = lean_ctor_get(x_19, 0); -x_26 = lean_ctor_get(x_19, 1); -lean_inc(x_26); -lean_inc(x_25); -lean_dec(x_19); -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; +lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_36 = lean_ctor_get(x_23, 0); +x_37 = lean_ctor_get(x_23, 1); +lean_inc(x_37); +lean_inc(x_36); +lean_dec(x_23); +x_38 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_38, 0, x_36); +lean_ctor_set(x_38, 1, x_37); +return x_38; } } } } else { -lean_object* x_28; +lean_object* x_39; lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); -x_28 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_28, 0, x_1); -lean_ctor_set(x_28, 1, x_5); -return x_28; +x_39 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_39, 0, x_1); +lean_ctor_set(x_39, 1, x_5); +return x_39; } } } @@ -20077,22 +19905,12 @@ _start: { lean_object* x_4; lean_object* x_5; lean_inc(x_1); -x_4 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam___lambda__2), 5, 1); +x_4 = lean_alloc_closure((void*)(l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam___lambda__1), 5, 1); lean_closure_set(x_4, 0, x_1); x_5 = l_Lean_Meta_forallTelescope___rarg(x_1, x_4, x_2, x_3); return x_5; } } -lean_object* l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8) { -_start: -{ -lean_object* x_9; -x_9 = l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); -lean_dec(x_6); -lean_dec(x_5); -return x_9; -} -} lean_object* _init_l_Lean_Meta_maxStepsOption___closed__1() { _start: { @@ -20172,139 +19990,7 @@ lean_dec(x_1); return x_2; } } -lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance_x3f___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; uint8_t x_7; -x_6 = lean_array_get_size(x_1); -x_7 = lean_nat_dec_lt(x_4, x_6); -lean_dec(x_6); -if (x_7 == 0) -{ -lean_object* x_8; -lean_dec(x_4); -x_8 = lean_box(0); -return x_8; -} -else -{ -lean_object* x_9; uint8_t x_10; -x_9 = lean_array_fget(x_1, x_4); -x_10 = lean_expr_eqv(x_5, x_9); -lean_dec(x_9); -if (x_10 == 0) -{ -lean_object* x_11; lean_object* x_12; -x_11 = lean_unsigned_to_nat(1u); -x_12 = lean_nat_add(x_4, x_11); -lean_dec(x_4); -x_3 = lean_box(0); -x_4 = x_12; -goto _start; -} -else -{ -lean_object* x_14; lean_object* x_15; -x_14 = lean_array_fget(x_2, x_4); -lean_dec(x_4); -x_15 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_15, 0, x_14); -return x_15; -} -} -} -} -lean_object* l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance_x3f___spec__2(lean_object* x_1, size_t x_2, lean_object* x_3) { -_start: -{ -if (lean_obj_tag(x_1) == 0) -{ -lean_object* x_4; size_t x_5; size_t x_6; size_t x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; -x_4 = lean_ctor_get(x_1, 0); -lean_inc(x_4); -lean_dec(x_1); -x_5 = 5; -x_6 = l_PersistentHashMap_insertAux___main___rarg___closed__2; -x_7 = x_2 & x_6; -x_8 = lean_usize_to_nat(x_7); -x_9 = lean_box(2); -x_10 = lean_array_get(x_9, x_4, x_8); -lean_dec(x_8); -lean_dec(x_4); -switch (lean_obj_tag(x_10)) { -case 0: -{ -lean_object* x_11; lean_object* x_12; uint8_t x_13; -x_11 = lean_ctor_get(x_10, 0); -lean_inc(x_11); -x_12 = lean_ctor_get(x_10, 1); -lean_inc(x_12); -lean_dec(x_10); -x_13 = lean_expr_eqv(x_3, x_11); -lean_dec(x_11); -if (x_13 == 0) -{ -lean_object* x_14; -lean_dec(x_12); -x_14 = lean_box(0); -return x_14; -} -else -{ -lean_object* x_15; -x_15 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_15, 0, x_12); -return x_15; -} -} -case 1: -{ -lean_object* x_16; size_t x_17; -x_16 = lean_ctor_get(x_10, 0); -lean_inc(x_16); -lean_dec(x_10); -x_17 = x_2 >> x_5; -x_1 = x_16; -x_2 = x_17; -goto _start; -} -default: -{ -lean_object* x_19; -x_19 = lean_box(0); -return x_19; -} -} -} -else -{ -lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; -x_20 = lean_ctor_get(x_1, 0); -lean_inc(x_20); -x_21 = lean_ctor_get(x_1, 1); -lean_inc(x_21); -lean_dec(x_1); -x_22 = lean_unsigned_to_nat(0u); -x_23 = l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance_x3f___spec__3(x_20, x_21, lean_box(0), x_22, x_3); -lean_dec(x_21); -lean_dec(x_20); -return x_23; -} -} -} -lean_object* l_PersistentHashMap_find_x3f___at_Lean_Meta_synthInstance_x3f___spec__1(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; size_t x_4; lean_object* x_5; -x_3 = lean_ctor_get(x_1, 0); -lean_inc(x_3); -lean_dec(x_1); -x_4 = l_Lean_Expr_hash(x_2); -x_5 = l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance_x3f___spec__2(x_3, x_4, x_2); -return x_5; -} -} -lean_object* l_PersistentHashMap_insertAtCollisionNodeAux___main___at_Lean_Meta_synthInstance_x3f___spec__6(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_PersistentHashMap_insertAtCollisionNodeAux___main___at_Lean_Meta_synthInstance_x3f___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; @@ -20396,7 +20082,7 @@ return x_29; } } } -lean_object* l_Array_iterateMAux___main___at_Lean_Meta_synthInstance_x3f___spec__7(size_t x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +lean_object* l_Array_iterateMAux___main___at_Lean_Meta_synthInstance_x3f___spec__4(size_t x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { _start: { lean_object* x_7; uint8_t x_8; @@ -20419,7 +20105,7 @@ x_13 = x_1 - x_12; x_14 = 5; x_15 = x_14 * x_13; x_16 = x_11 >> x_15; -x_17 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5(x_6, x_16, x_1, x_9, x_10); +x_17 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__2(x_6, x_16, x_1, x_9, x_10); x_18 = lean_unsigned_to_nat(1u); x_19 = lean_nat_add(x_5, x_18); lean_dec(x_5); @@ -20429,7 +20115,7 @@ goto _start; } } } -lean_object* l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5(lean_object* x_1, size_t x_2, size_t x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__2(lean_object* x_1, size_t x_2, size_t x_3, lean_object* x_4, lean_object* x_5) { _start: { if (lean_obj_tag(x_1) == 0) @@ -20542,7 +20228,7 @@ lean_object* x_35; size_t x_36; size_t x_37; lean_object* x_38; lean_object* x_3 x_35 = lean_ctor_get(x_15, 0); x_36 = x_2 >> x_9; x_37 = x_3 + x_8; -x_38 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5(x_35, x_36, x_37, x_4, x_5); +x_38 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__2(x_35, x_36, x_37, x_4, x_5); lean_ctor_set(x_15, 0, x_38); x_39 = lean_array_fset(x_17, x_12, x_15); lean_dec(x_12); @@ -20557,7 +20243,7 @@ lean_inc(x_40); lean_dec(x_15); x_41 = x_2 >> x_9; x_42 = x_3 + x_8; -x_43 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5(x_40, x_41, x_42, x_4, x_5); +x_43 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__2(x_40, x_41, x_42, x_4, x_5); x_44 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_44, 0, x_43); x_45 = lean_array_fset(x_17, x_12, x_44); @@ -20673,7 +20359,7 @@ if (lean_is_exclusive(x_57)) { } x_73 = x_2 >> x_50; x_74 = x_3 + x_49; -x_75 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5(x_71, x_73, x_74, x_4, x_5); +x_75 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__2(x_71, x_73, x_74, x_4, x_5); if (lean_is_scalar(x_72)) { x_76 = lean_alloc_ctor(1, 1, 0); } else { @@ -20706,7 +20392,7 @@ else { lean_object* x_82; lean_object* x_83; size_t x_84; uint8_t x_85; x_82 = lean_unsigned_to_nat(0u); -x_83 = l_PersistentHashMap_insertAtCollisionNodeAux___main___at_Lean_Meta_synthInstance_x3f___spec__6(x_1, x_82, x_4, x_5); +x_83 = l_PersistentHashMap_insertAtCollisionNodeAux___main___at_Lean_Meta_synthInstance_x3f___spec__3(x_1, x_82, x_4, x_5); x_84 = 7; x_85 = x_84 <= x_3; if (x_85 == 0) @@ -20725,7 +20411,7 @@ x_90 = lean_ctor_get(x_83, 1); lean_inc(x_90); lean_dec(x_83); x_91 = l_PersistentHashMap_insertAux___main___rarg___closed__3; -x_92 = l_Array_iterateMAux___main___at_Lean_Meta_synthInstance_x3f___spec__7(x_3, x_89, x_90, x_89, x_82, x_91); +x_92 = l_Array_iterateMAux___main___at_Lean_Meta_synthInstance_x3f___spec__4(x_3, x_89, x_90, x_89, x_82, x_91); lean_dec(x_90); lean_dec(x_89); return x_92; @@ -20742,7 +20428,7 @@ return x_83; } } } -lean_object* l_PersistentHashMap_insert___at_Lean_Meta_synthInstance_x3f___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_PersistentHashMap_insert___at_Lean_Meta_synthInstance_x3f___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { uint8_t x_4; @@ -20754,7 +20440,7 @@ x_5 = lean_ctor_get(x_1, 0); x_6 = lean_ctor_get(x_1, 1); x_7 = l_Lean_Expr_hash(x_2); x_8 = 1; -x_9 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5(x_5, x_7, x_8, x_2, x_3); +x_9 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__2(x_5, x_7, x_8, x_2, x_3); x_10 = lean_unsigned_to_nat(1u); x_11 = lean_nat_add(x_6, x_10); lean_dec(x_6); @@ -20772,7 +20458,7 @@ lean_inc(x_12); lean_dec(x_1); x_14 = l_Lean_Expr_hash(x_2); x_15 = 1; -x_16 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5(x_12, x_14, x_15, x_2, x_3); +x_16 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__2(x_12, x_14, x_15, x_2, x_3); x_17 = lean_unsigned_to_nat(1u); x_18 = lean_nat_add(x_13, x_17); lean_dec(x_13); @@ -20783,6 +20469,222 @@ return x_19; } } } +lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance_x3f___spec__7(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; uint8_t x_7; +x_6 = lean_array_get_size(x_1); +x_7 = lean_nat_dec_lt(x_4, x_6); +lean_dec(x_6); +if (x_7 == 0) +{ +lean_object* x_8; +lean_dec(x_4); +x_8 = lean_box(0); +return x_8; +} +else +{ +lean_object* x_9; uint8_t x_10; +x_9 = lean_array_fget(x_1, x_4); +x_10 = lean_expr_eqv(x_5, x_9); +lean_dec(x_9); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; +x_11 = lean_unsigned_to_nat(1u); +x_12 = lean_nat_add(x_4, x_11); +lean_dec(x_4); +x_3 = lean_box(0); +x_4 = x_12; +goto _start; +} +else +{ +lean_object* x_14; lean_object* x_15; +x_14 = lean_array_fget(x_2, x_4); +lean_dec(x_4); +x_15 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_15, 0, x_14); +return x_15; +} +} +} +} +lean_object* l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance_x3f___spec__6(lean_object* x_1, size_t x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_4; size_t x_5; size_t x_6; size_t x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +lean_dec(x_1); +x_5 = 5; +x_6 = l_PersistentHashMap_insertAux___main___rarg___closed__2; +x_7 = x_2 & x_6; +x_8 = lean_usize_to_nat(x_7); +x_9 = lean_box(2); +x_10 = lean_array_get(x_9, x_4, x_8); +lean_dec(x_8); +lean_dec(x_4); +switch (lean_obj_tag(x_10)) { +case 0: +{ +lean_object* x_11; lean_object* x_12; uint8_t x_13; +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +x_12 = lean_ctor_get(x_10, 1); +lean_inc(x_12); +lean_dec(x_10); +x_13 = lean_expr_eqv(x_3, x_11); +lean_dec(x_11); +if (x_13 == 0) +{ +lean_object* x_14; +lean_dec(x_12); +x_14 = lean_box(0); +return x_14; +} +else +{ +lean_object* x_15; +x_15 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_15, 0, x_12); +return x_15; +} +} +case 1: +{ +lean_object* x_16; size_t x_17; +x_16 = lean_ctor_get(x_10, 0); +lean_inc(x_16); +lean_dec(x_10); +x_17 = x_2 >> x_5; +x_1 = x_16; +x_2 = x_17; +goto _start; +} +default: +{ +lean_object* x_19; +x_19 = lean_box(0); +return x_19; +} +} +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_20 = lean_ctor_get(x_1, 0); +lean_inc(x_20); +x_21 = lean_ctor_get(x_1, 1); +lean_inc(x_21); +lean_dec(x_1); +x_22 = lean_unsigned_to_nat(0u); +x_23 = l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance_x3f___spec__7(x_20, x_21, lean_box(0), x_22, x_3); +lean_dec(x_21); +lean_dec(x_20); +return x_23; +} +} +} +lean_object* l_PersistentHashMap_find_x3f___at_Lean_Meta_synthInstance_x3f___spec__5(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; size_t x_4; lean_object* x_5; +x_3 = lean_ctor_get(x_1, 0); +lean_inc(x_3); +lean_dec(x_1); +x_4 = l_Lean_Expr_hash(x_2); +x_5 = l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance_x3f___spec__6(x_3, x_4, x_2); +return x_5; +} +} +lean_object* _init_l_Lean_Meta_synthInstance_x3f___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("result "); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_synthInstance_x3f___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_synthInstance_x3f___closed__1; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_synthInstance_x3f___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_synthInstance_x3f___closed__2; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_synthInstance_x3f___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("FOUND result "); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_synthInstance_x3f___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_synthInstance_x3f___closed__4; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_synthInstance_x3f___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_synthInstance_x3f___closed__5; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_synthInstance_x3f___closed__7() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string(" ==> "); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_synthInstance_x3f___closed__8() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_synthInstance_x3f___closed__7; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_synthInstance_x3f___closed__9() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_synthInstance_x3f___closed__8; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} lean_object* l_Lean_Meta_synthInstance_x3f(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -20837,10 +20739,10 @@ lean_inc(x_2); x_24 = l_Lean_Meta_forallTelescopeReducing___rarg(x_20, x_23, x_2, x_21); if (lean_obj_tag(x_24) == 0) { -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; -x_25 = lean_ctor_get(x_24, 1); +lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; +x_25 = lean_ctor_get(x_24, 0); lean_inc(x_25); -x_26 = lean_ctor_get(x_24, 0); +x_26 = lean_ctor_get(x_24, 1); lean_inc(x_26); if (lean_is_exclusive(x_24)) { lean_ctor_release(x_24, 0); @@ -20850,939 +20752,1159 @@ if (lean_is_exclusive(x_24)) { lean_dec_ref(x_24); x_27 = lean_box(0); } -x_28 = lean_ctor_get(x_25, 0); -lean_inc(x_28); -x_29 = lean_ctor_get(x_25, 1); -lean_inc(x_29); -x_30 = lean_ctor_get(x_25, 2); -lean_inc(x_30); -x_31 = lean_ctor_get(x_25, 3); -lean_inc(x_31); -x_32 = lean_ctor_get(x_25, 4); -lean_inc(x_32); -x_33 = lean_ctor_get(x_25, 5); -lean_inc(x_33); -x_34 = lean_ctor_get(x_30, 2); -lean_inc(x_34); -x_35 = l_PersistentHashMap_find_x3f___at_Lean_Meta_synthInstance_x3f___spec__1(x_34, x_26); -if (lean_obj_tag(x_35) == 0) +x_59 = lean_ctor_get(x_26, 0); +lean_inc(x_59); +x_60 = lean_ctor_get(x_26, 1); +lean_inc(x_60); +x_61 = lean_ctor_get(x_26, 2); +lean_inc(x_61); +x_62 = lean_ctor_get(x_26, 3); +lean_inc(x_62); +x_63 = lean_ctor_get(x_26, 4); +lean_inc(x_63); +x_64 = lean_ctor_get(x_26, 5); +lean_inc(x_64); +x_65 = lean_ctor_get(x_61, 2); +lean_inc(x_65); +x_66 = l_PersistentHashMap_find_x3f___at_Lean_Meta_synthInstance_x3f___spec__5(x_65, x_25); +if (lean_obj_tag(x_66) == 0) { -lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_77; lean_object* x_78; lean_object* x_90; lean_object* x_91; lean_object* x_92; -if (lean_is_exclusive(x_25)) { - lean_ctor_release(x_25, 0); - lean_ctor_release(x_25, 1); - lean_ctor_release(x_25, 2); - lean_ctor_release(x_25, 3); - lean_ctor_release(x_25, 4); - lean_ctor_release(x_25, 5); - x_36 = x_25; -} else { - lean_dec_ref(x_25); - x_36 = lean_box(0); -} -lean_inc(x_29); -x_90 = l_Lean_MetavarContext_incDepth(x_29); -x_91 = lean_alloc_ctor(0, 6, 0); -lean_ctor_set(x_91, 0, x_28); -lean_ctor_set(x_91, 1, x_90); -lean_ctor_set(x_91, 2, x_30); -lean_ctor_set(x_91, 3, x_31); -lean_ctor_set(x_91, 4, x_32); -lean_ctor_set(x_91, 5, x_33); +uint8_t x_67; +x_67 = !lean_is_exclusive(x_26); +if (x_67 == 0) +{ +lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_162; lean_object* x_163; lean_object* x_175; lean_object* x_176; +x_68 = lean_ctor_get(x_26, 5); +lean_dec(x_68); +x_69 = lean_ctor_get(x_26, 4); +lean_dec(x_69); +x_70 = lean_ctor_get(x_26, 3); +lean_dec(x_70); +x_71 = lean_ctor_get(x_26, 2); +lean_dec(x_71); +x_72 = lean_ctor_get(x_26, 1); +lean_dec(x_72); +x_73 = lean_ctor_get(x_26, 0); +lean_dec(x_73); +lean_inc(x_60); +x_175 = l_Lean_MetavarContext_incDepth(x_60); +lean_ctor_set(x_26, 1, x_175); lean_inc(x_2); -lean_inc(x_26); -x_92 = l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam(x_26, x_2, x_91); -if (lean_obj_tag(x_92) == 0) +lean_inc(x_25); +x_176 = l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam(x_25, x_2, x_26); +if (lean_obj_tag(x_176) == 0) { -lean_object* x_93; lean_object* x_94; lean_object* x_95; +lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_214; uint8_t x_215; +x_177 = lean_ctor_get(x_176, 0); +lean_inc(x_177); +x_178 = lean_ctor_get(x_176, 1); +lean_inc(x_178); +lean_dec(x_176); +x_214 = lean_ctor_get(x_178, 4); +lean_inc(x_214); +x_215 = lean_ctor_get_uint8(x_214, sizeof(void*)*1); +lean_dec(x_214); +if (x_215 == 0) +{ +x_179 = x_178; +goto block_213; +} +else +{ +lean_object* x_216; lean_object* x_217; lean_object* x_218; uint8_t x_219; +x_216 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; +x_217 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_216, x_2, x_178); +x_218 = lean_ctor_get(x_217, 0); +lean_inc(x_218); +x_219 = lean_unbox(x_218); +lean_dec(x_218); +if (x_219 == 0) +{ +lean_object* x_220; +x_220 = lean_ctor_get(x_217, 1); +lean_inc(x_220); +lean_dec(x_217); +x_179 = x_220; +goto block_213; +} +else +{ +lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; lean_object* x_228; +x_221 = lean_ctor_get(x_217, 1); +lean_inc(x_221); +lean_dec(x_217); +lean_inc(x_25); +x_222 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_222, 0, x_25); +x_223 = l_Lean_Meta_synthInstance_x3f___closed__9; +x_224 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_224, 0, x_222); +lean_ctor_set(x_224, 1, x_223); +lean_inc(x_177); +x_225 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_225, 0, x_177); +x_226 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_226, 0, x_224); +lean_ctor_set(x_226, 1, x_225); +x_227 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_216, x_226, x_2, x_221); +x_228 = lean_ctor_get(x_227, 1); +lean_inc(x_228); +lean_dec(x_227); +x_179 = x_228; +goto block_213; +} +} +block_213: +{ +lean_object* x_180; +lean_inc(x_2); +x_180 = l_Lean_Meta_SynthInstance_main(x_177, x_15, x_2, x_179); +if (lean_obj_tag(x_180) == 0) +{ +lean_object* x_181; +lean_dec(x_22); +x_181 = lean_ctor_get(x_180, 0); +lean_inc(x_181); +if (lean_obj_tag(x_181) == 0) +{ +lean_object* x_182; +x_182 = lean_ctor_get(x_180, 1); +lean_inc(x_182); +lean_dec(x_180); +x_74 = x_181; +x_75 = x_182; +goto block_161; +} +else +{ +lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_198; uint8_t x_199; +x_183 = lean_ctor_get(x_180, 1); +lean_inc(x_183); +lean_dec(x_180); +x_184 = lean_ctor_get(x_181, 0); +lean_inc(x_184); +if (lean_is_exclusive(x_181)) { + lean_ctor_release(x_181, 0); + x_185 = x_181; +} else { + lean_dec_ref(x_181); + x_185 = lean_box(0); +} +x_198 = lean_ctor_get(x_183, 4); +lean_inc(x_198); +x_199 = lean_ctor_get_uint8(x_198, sizeof(void*)*1); +lean_dec(x_198); +if (x_199 == 0) +{ +x_186 = x_183; +goto block_197; +} +else +{ +lean_object* x_200; lean_object* x_201; lean_object* x_202; uint8_t x_203; +x_200 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; +x_201 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_200, x_2, x_183); +x_202 = lean_ctor_get(x_201, 0); +lean_inc(x_202); +x_203 = lean_unbox(x_202); +lean_dec(x_202); +if (x_203 == 0) +{ +lean_object* x_204; +x_204 = lean_ctor_get(x_201, 1); +lean_inc(x_204); +lean_dec(x_201); +x_186 = x_204; +goto block_197; +} +else +{ +lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; +x_205 = lean_ctor_get(x_201, 1); +lean_inc(x_205); +lean_dec(x_201); +lean_inc(x_184); +x_206 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_206, 0, x_184); +x_207 = l_Lean_Meta_synthInstance_x3f___closed__6; +x_208 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_208, 0, x_207); +lean_ctor_set(x_208, 1, x_206); +x_209 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_200, x_208, x_2, x_205); +x_210 = lean_ctor_get(x_209, 1); +lean_inc(x_210); +lean_dec(x_209); +x_186 = x_210; +goto block_197; +} +} +block_197: +{ +lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; uint8_t x_192; +x_187 = l_Lean_Meta_instantiateMVars(x_184, x_2, x_186); +x_188 = lean_ctor_get(x_187, 0); +lean_inc(x_188); +x_189 = lean_ctor_get(x_187, 1); +lean_inc(x_189); +lean_dec(x_187); +x_190 = l_Lean_Meta_hasAssignableMVar(x_188, x_2, x_189); +x_191 = lean_ctor_get(x_190, 0); +lean_inc(x_191); +x_192 = lean_unbox(x_191); +lean_dec(x_191); +if (x_192 == 0) +{ +lean_object* x_193; lean_object* x_194; +x_193 = lean_ctor_get(x_190, 1); +lean_inc(x_193); +lean_dec(x_190); +if (lean_is_scalar(x_185)) { + x_194 = lean_alloc_ctor(1, 1, 0); +} else { + x_194 = x_185; +} +lean_ctor_set(x_194, 0, x_188); +x_74 = x_194; +x_75 = x_193; +goto block_161; +} +else +{ +lean_object* x_195; lean_object* x_196; +lean_dec(x_188); +lean_dec(x_185); +x_195 = lean_ctor_get(x_190, 1); +lean_inc(x_195); +lean_dec(x_190); +x_196 = lean_box(0); +x_74 = x_196; +x_75 = x_195; +goto block_161; +} +} +} +} +else +{ +lean_object* x_211; lean_object* x_212; +lean_dec(x_27); +lean_dec(x_25); +lean_dec(x_2); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +x_211 = lean_ctor_get(x_180, 0); +lean_inc(x_211); +x_212 = lean_ctor_get(x_180, 1); +lean_inc(x_212); +lean_dec(x_180); +x_162 = x_211; +x_163 = x_212; +goto block_174; +} +} +} +else +{ +lean_object* x_229; lean_object* x_230; +lean_dec(x_27); +lean_dec(x_25); +lean_dec(x_2); +lean_dec(x_15); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +x_229 = lean_ctor_get(x_176, 0); +lean_inc(x_229); +x_230 = lean_ctor_get(x_176, 1); +lean_inc(x_230); +lean_dec(x_176); +x_162 = x_229; +x_163 = x_230; +goto block_174; +} +block_161: +{ +uint8_t x_76; +x_76 = !lean_is_exclusive(x_75); +if (x_76 == 0) +{ +lean_object* x_77; lean_object* x_78; +x_77 = lean_ctor_get(x_75, 4); +x_78 = lean_ctor_get(x_75, 1); +lean_dec(x_78); +lean_inc(x_77); +lean_ctor_set(x_75, 1, x_60); +if (lean_obj_tag(x_74) == 0) +{ +lean_dec(x_77); +lean_dec(x_2); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +x_28 = x_74; +x_29 = x_75; +goto block_58; +} +else +{ +lean_object* x_79; lean_object* x_80; lean_object* x_81; uint8_t x_105; +x_79 = lean_ctor_get(x_74, 0); +lean_inc(x_79); +if (lean_is_exclusive(x_74)) { + lean_ctor_release(x_74, 0); + x_80 = x_74; +} else { + lean_dec_ref(x_74); + x_80 = lean_box(0); +} +x_105 = lean_ctor_get_uint8(x_77, sizeof(void*)*1); +lean_dec(x_77); +if (x_105 == 0) +{ +x_81 = x_75; +goto block_104; +} +else +{ +lean_object* x_106; lean_object* x_107; lean_object* x_108; uint8_t x_109; +x_106 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; +x_107 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_106, x_2, x_75); +x_108 = lean_ctor_get(x_107, 0); +lean_inc(x_108); +x_109 = lean_unbox(x_108); +lean_dec(x_108); +if (x_109 == 0) +{ +lean_object* x_110; +x_110 = lean_ctor_get(x_107, 1); +lean_inc(x_110); +lean_dec(x_107); +x_81 = x_110; +goto block_104; +} +else +{ +lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; +x_111 = lean_ctor_get(x_107, 1); +lean_inc(x_111); +lean_dec(x_107); +lean_inc(x_79); +x_112 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_112, 0, x_79); +x_113 = l_Lean_Meta_synthInstance_x3f___closed__3; +x_114 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_114, 0, x_113); +lean_ctor_set(x_114, 1, x_112); +x_115 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_106, x_114, x_2, x_111); +x_116 = lean_ctor_get(x_115, 1); +lean_inc(x_116); +lean_dec(x_115); +x_81 = x_116; +goto block_104; +} +} +block_104: +{ +lean_object* x_82; +lean_inc(x_2); +lean_inc(x_79); +x_82 = l_Lean_Meta_inferType(x_79, x_2, x_81); +if (lean_obj_tag(x_82) == 0) +{ +lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; +x_83 = lean_ctor_get(x_82, 0); +lean_inc(x_83); +x_84 = lean_ctor_get(x_82, 1); +lean_inc(x_84); +lean_dec(x_82); +x_85 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_85, 0, x_5); +lean_ctor_set(x_85, 1, x_6); +lean_ctor_set(x_85, 2, x_7); +lean_ctor_set(x_85, 3, x_8); +lean_ctor_set(x_85, 4, x_9); +lean_inc(x_25); +x_86 = l_Lean_Meta_isExprDefEq(x_25, x_83, x_85, x_84); +if (lean_obj_tag(x_86) == 0) +{ +lean_object* x_87; uint8_t x_88; +x_87 = lean_ctor_get(x_86, 0); +lean_inc(x_87); +x_88 = lean_unbox(x_87); +lean_dec(x_87); +if (x_88 == 0) +{ +lean_object* x_89; lean_object* x_90; +lean_dec(x_80); +lean_dec(x_79); +lean_dec(x_2); +x_89 = lean_ctor_get(x_86, 1); +lean_inc(x_89); +lean_dec(x_86); +x_90 = lean_box(0); +x_28 = x_90; +x_29 = x_89; +goto block_58; +} +else +{ +lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; +x_91 = lean_ctor_get(x_86, 1); +lean_inc(x_91); +lean_dec(x_86); +x_92 = l_Lean_Meta_instantiateMVars(x_79, x_2, x_91); +lean_dec(x_2); x_93 = lean_ctor_get(x_92, 0); lean_inc(x_93); x_94 = lean_ctor_get(x_92, 1); lean_inc(x_94); lean_dec(x_92); -lean_inc(x_2); -x_95 = l_Lean_Meta_SynthInstance_main(x_93, x_15, x_2, x_94); -if (lean_obj_tag(x_95) == 0) -{ -lean_object* x_96; -x_96 = lean_ctor_get(x_95, 0); -lean_inc(x_96); -if (lean_obj_tag(x_96) == 0) -{ -lean_object* x_97; -lean_dec(x_22); -lean_dec(x_2); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_5); -x_97 = lean_ctor_get(x_95, 1); -lean_inc(x_97); -lean_dec(x_95); -x_37 = x_96; -x_38 = x_97; -goto block_76; -} -else -{ -lean_object* x_98; uint8_t x_99; -x_98 = lean_ctor_get(x_95, 1); -lean_inc(x_98); -lean_dec(x_95); -x_99 = !lean_is_exclusive(x_96); -if (x_99 == 0) -{ -lean_object* x_100; lean_object* x_101; -x_100 = lean_ctor_get(x_96, 0); -lean_inc(x_2); -lean_inc(x_100); -x_101 = l_Lean_Meta_inferType(x_100, x_2, x_98); -if (lean_obj_tag(x_101) == 0) -{ -lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; -x_102 = lean_ctor_get(x_101, 0); -lean_inc(x_102); -x_103 = lean_ctor_get(x_101, 1); -lean_inc(x_103); -lean_dec(x_101); -x_104 = lean_alloc_ctor(0, 5, 0); -lean_ctor_set(x_104, 0, x_5); -lean_ctor_set(x_104, 1, x_6); -lean_ctor_set(x_104, 2, x_7); -lean_ctor_set(x_104, 3, x_8); -lean_ctor_set(x_104, 4, x_9); -lean_inc(x_26); -x_105 = l_Lean_Meta_isExprDefEq(x_26, x_102, x_104, x_103); -if (lean_obj_tag(x_105) == 0) -{ -lean_object* x_106; uint8_t x_107; -lean_dec(x_22); -x_106 = lean_ctor_get(x_105, 0); -lean_inc(x_106); -x_107 = lean_unbox(x_106); -lean_dec(x_106); -if (x_107 == 0) -{ -lean_object* x_108; lean_object* x_109; -lean_free_object(x_96); -lean_dec(x_100); -lean_dec(x_2); -x_108 = lean_ctor_get(x_105, 1); -lean_inc(x_108); -lean_dec(x_105); -x_109 = lean_box(0); -x_37 = x_109; -x_38 = x_108; -goto block_76; -} -else -{ -lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; uint8_t x_116; -x_110 = lean_ctor_get(x_105, 1); -lean_inc(x_110); -lean_dec(x_105); -x_111 = l_Lean_Meta_instantiateMVars(x_100, x_2, x_110); -x_112 = lean_ctor_get(x_111, 0); -lean_inc(x_112); -x_113 = lean_ctor_get(x_111, 1); -lean_inc(x_113); -lean_dec(x_111); -x_114 = l_Lean_Meta_hasAssignableMVar(x_112, x_2, x_113); -lean_dec(x_2); -x_115 = lean_ctor_get(x_114, 0); -lean_inc(x_115); -x_116 = lean_unbox(x_115); -lean_dec(x_115); -if (x_116 == 0) -{ -lean_object* x_117; -x_117 = lean_ctor_get(x_114, 1); -lean_inc(x_117); -lean_dec(x_114); -lean_ctor_set(x_96, 0, x_112); -x_37 = x_96; -x_38 = x_117; -goto block_76; -} -else -{ -lean_object* x_118; lean_object* x_119; -lean_dec(x_112); -lean_free_object(x_96); -x_118 = lean_ctor_get(x_114, 1); -lean_inc(x_118); -lean_dec(x_114); -x_119 = lean_box(0); -x_37 = x_119; -x_38 = x_118; -goto block_76; -} -} -} -else -{ -lean_object* x_120; lean_object* x_121; -lean_free_object(x_96); -lean_dec(x_100); -lean_dec(x_36); -lean_dec(x_27); -lean_dec(x_26); -lean_dec(x_2); -x_120 = lean_ctor_get(x_105, 0); -lean_inc(x_120); -x_121 = lean_ctor_get(x_105, 1); -lean_inc(x_121); -lean_dec(x_105); -x_77 = x_120; -x_78 = x_121; -goto block_89; -} -} -else -{ -lean_object* x_122; lean_object* x_123; -lean_free_object(x_96); -lean_dec(x_100); -lean_dec(x_36); -lean_dec(x_27); -lean_dec(x_26); -lean_dec(x_2); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_5); -x_122 = lean_ctor_get(x_101, 0); -lean_inc(x_122); -x_123 = lean_ctor_get(x_101, 1); -lean_inc(x_123); -lean_dec(x_101); -x_77 = x_122; -x_78 = x_123; -goto block_89; -} -} -else -{ -lean_object* x_124; lean_object* x_125; -x_124 = lean_ctor_get(x_96, 0); -lean_inc(x_124); -lean_dec(x_96); -lean_inc(x_2); -lean_inc(x_124); -x_125 = l_Lean_Meta_inferType(x_124, x_2, x_98); -if (lean_obj_tag(x_125) == 0) -{ -lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; -x_126 = lean_ctor_get(x_125, 0); -lean_inc(x_126); -x_127 = lean_ctor_get(x_125, 1); -lean_inc(x_127); -lean_dec(x_125); -x_128 = lean_alloc_ctor(0, 5, 0); -lean_ctor_set(x_128, 0, x_5); -lean_ctor_set(x_128, 1, x_6); -lean_ctor_set(x_128, 2, x_7); -lean_ctor_set(x_128, 3, x_8); -lean_ctor_set(x_128, 4, x_9); -lean_inc(x_26); -x_129 = l_Lean_Meta_isExprDefEq(x_26, x_126, x_128, x_127); -if (lean_obj_tag(x_129) == 0) -{ -lean_object* x_130; uint8_t x_131; -lean_dec(x_22); -x_130 = lean_ctor_get(x_129, 0); -lean_inc(x_130); -x_131 = lean_unbox(x_130); -lean_dec(x_130); -if (x_131 == 0) -{ -lean_object* x_132; lean_object* x_133; -lean_dec(x_124); -lean_dec(x_2); -x_132 = lean_ctor_get(x_129, 1); -lean_inc(x_132); -lean_dec(x_129); -x_133 = lean_box(0); -x_37 = x_133; -x_38 = x_132; -goto block_76; -} -else -{ -lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; uint8_t x_140; -x_134 = lean_ctor_get(x_129, 1); -lean_inc(x_134); -lean_dec(x_129); -x_135 = l_Lean_Meta_instantiateMVars(x_124, x_2, x_134); -x_136 = lean_ctor_get(x_135, 0); -lean_inc(x_136); -x_137 = lean_ctor_get(x_135, 1); -lean_inc(x_137); -lean_dec(x_135); -x_138 = l_Lean_Meta_hasAssignableMVar(x_136, x_2, x_137); -lean_dec(x_2); -x_139 = lean_ctor_get(x_138, 0); -lean_inc(x_139); -x_140 = lean_unbox(x_139); -lean_dec(x_139); -if (x_140 == 0) -{ -lean_object* x_141; lean_object* x_142; -x_141 = lean_ctor_get(x_138, 1); -lean_inc(x_141); -lean_dec(x_138); -x_142 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_142, 0, x_136); -x_37 = x_142; -x_38 = x_141; -goto block_76; -} -else -{ -lean_object* x_143; lean_object* x_144; -lean_dec(x_136); -x_143 = lean_ctor_get(x_138, 1); -lean_inc(x_143); -lean_dec(x_138); -x_144 = lean_box(0); -x_37 = x_144; -x_38 = x_143; -goto block_76; -} -} -} -else -{ -lean_object* x_145; lean_object* x_146; -lean_dec(x_124); -lean_dec(x_36); -lean_dec(x_27); -lean_dec(x_26); -lean_dec(x_2); -x_145 = lean_ctor_get(x_129, 0); -lean_inc(x_145); -x_146 = lean_ctor_get(x_129, 1); -lean_inc(x_146); -lean_dec(x_129); -x_77 = x_145; -x_78 = x_146; -goto block_89; -} -} -else -{ -lean_object* x_147; lean_object* x_148; -lean_dec(x_124); -lean_dec(x_36); -lean_dec(x_27); -lean_dec(x_26); -lean_dec(x_2); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_5); -x_147 = lean_ctor_get(x_125, 0); -lean_inc(x_147); -x_148 = lean_ctor_get(x_125, 1); -lean_inc(x_148); -lean_dec(x_125); -x_77 = x_147; -x_78 = x_148; -goto block_89; -} -} -} -} -else -{ -lean_object* x_149; lean_object* x_150; -lean_dec(x_36); -lean_dec(x_27); -lean_dec(x_26); -lean_dec(x_2); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_5); -x_149 = lean_ctor_get(x_95, 0); -lean_inc(x_149); -x_150 = lean_ctor_get(x_95, 1); -lean_inc(x_150); -lean_dec(x_95); -x_77 = x_149; -x_78 = x_150; -goto block_89; -} -} -else -{ -lean_object* x_151; lean_object* x_152; -lean_dec(x_36); -lean_dec(x_27); -lean_dec(x_26); -lean_dec(x_2); -lean_dec(x_15); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_5); -x_151 = lean_ctor_get(x_92, 0); -lean_inc(x_151); -x_152 = lean_ctor_get(x_92, 1); -lean_inc(x_152); -lean_dec(x_92); -x_77 = x_151; -x_78 = x_152; -goto block_89; -} -block_76: -{ -uint8_t x_39; -x_39 = !lean_is_exclusive(x_38); -if (x_39 == 0) -{ -lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; uint8_t x_46; -x_40 = lean_ctor_get(x_38, 0); -x_41 = lean_ctor_get(x_38, 2); -x_42 = lean_ctor_get(x_38, 3); -x_43 = lean_ctor_get(x_38, 4); -x_44 = lean_ctor_get(x_38, 5); -x_45 = lean_ctor_get(x_38, 1); -lean_dec(x_45); -lean_inc(x_44); -lean_inc(x_43); -lean_inc(x_42); -lean_inc(x_41); -lean_inc(x_29); -lean_inc(x_40); -lean_ctor_set(x_38, 1, x_29); -x_46 = l_Lean_Expr_hasMVar(x_26); -if (x_46 == 0) -{ -uint8_t x_47; -lean_dec(x_38); -x_47 = !lean_is_exclusive(x_41); -if (x_47 == 0) -{ -lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; -x_48 = lean_ctor_get(x_41, 2); -lean_inc(x_37); -x_49 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance_x3f___spec__4(x_48, x_26, x_37); -lean_ctor_set(x_41, 2, x_49); -if (lean_is_scalar(x_36)) { - x_50 = lean_alloc_ctor(0, 6, 0); +if (lean_is_scalar(x_80)) { + x_95 = lean_alloc_ctor(1, 1, 0); } else { - x_50 = x_36; + x_95 = x_80; } -lean_ctor_set(x_50, 0, x_40); -lean_ctor_set(x_50, 1, x_29); -lean_ctor_set(x_50, 2, x_41); -lean_ctor_set(x_50, 3, x_42); -lean_ctor_set(x_50, 4, x_43); -lean_ctor_set(x_50, 5, x_44); -if (lean_is_scalar(x_27)) { - x_51 = lean_alloc_ctor(0, 2, 0); -} else { - x_51 = x_27; -} -lean_ctor_set(x_51, 0, x_37); -lean_ctor_set(x_51, 1, x_50); -return x_51; -} -else -{ -lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; -x_52 = lean_ctor_get(x_41, 0); -x_53 = lean_ctor_get(x_41, 1); -x_54 = lean_ctor_get(x_41, 2); -lean_inc(x_54); -lean_inc(x_53); -lean_inc(x_52); -lean_dec(x_41); -lean_inc(x_37); -x_55 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance_x3f___spec__4(x_54, x_26, x_37); -x_56 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_56, 0, x_52); -lean_ctor_set(x_56, 1, x_53); -lean_ctor_set(x_56, 2, x_55); -if (lean_is_scalar(x_36)) { - x_57 = lean_alloc_ctor(0, 6, 0); -} else { - x_57 = x_36; -} -lean_ctor_set(x_57, 0, x_40); -lean_ctor_set(x_57, 1, x_29); -lean_ctor_set(x_57, 2, x_56); -lean_ctor_set(x_57, 3, x_42); -lean_ctor_set(x_57, 4, x_43); -lean_ctor_set(x_57, 5, x_44); -if (lean_is_scalar(x_27)) { - x_58 = lean_alloc_ctor(0, 2, 0); -} else { - x_58 = x_27; -} -lean_ctor_set(x_58, 0, x_37); -lean_ctor_set(x_58, 1, x_57); -return x_58; +lean_ctor_set(x_95, 0, x_93); +x_28 = x_95; +x_29 = x_94; +goto block_58; } } else { -lean_object* x_59; -lean_dec(x_44); -lean_dec(x_43); -lean_dec(x_42); -lean_dec(x_41); -lean_dec(x_40); -lean_dec(x_36); -lean_dec(x_29); -lean_dec(x_26); -if (lean_is_scalar(x_27)) { - x_59 = lean_alloc_ctor(0, 2, 0); -} else { - x_59 = x_27; -} -lean_ctor_set(x_59, 0, x_37); -lean_ctor_set(x_59, 1, x_38); -return x_59; -} -} -else -{ -lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; uint8_t x_66; -x_60 = lean_ctor_get(x_38, 0); -x_61 = lean_ctor_get(x_38, 2); -x_62 = lean_ctor_get(x_38, 3); -x_63 = lean_ctor_get(x_38, 4); -x_64 = lean_ctor_get(x_38, 5); -lean_inc(x_64); -lean_inc(x_63); -lean_inc(x_62); -lean_inc(x_61); -lean_inc(x_60); -lean_dec(x_38); -lean_inc(x_64); -lean_inc(x_63); -lean_inc(x_62); -lean_inc(x_61); -lean_inc(x_29); -lean_inc(x_60); -x_65 = lean_alloc_ctor(0, 6, 0); -lean_ctor_set(x_65, 0, x_60); -lean_ctor_set(x_65, 1, x_29); -lean_ctor_set(x_65, 2, x_61); -lean_ctor_set(x_65, 3, x_62); -lean_ctor_set(x_65, 4, x_63); -lean_ctor_set(x_65, 5, x_64); -x_66 = l_Lean_Expr_hasMVar(x_26); -if (x_66 == 0) -{ -lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; -lean_dec(x_65); -x_67 = lean_ctor_get(x_61, 0); -lean_inc(x_67); -x_68 = lean_ctor_get(x_61, 1); -lean_inc(x_68); -x_69 = lean_ctor_get(x_61, 2); -lean_inc(x_69); -if (lean_is_exclusive(x_61)) { - lean_ctor_release(x_61, 0); - lean_ctor_release(x_61, 1); - lean_ctor_release(x_61, 2); - x_70 = x_61; -} else { - lean_dec_ref(x_61); - x_70 = lean_box(0); -} -lean_inc(x_37); -x_71 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance_x3f___spec__4(x_69, x_26, x_37); -if (lean_is_scalar(x_70)) { - x_72 = lean_alloc_ctor(0, 3, 0); -} else { - x_72 = x_70; -} -lean_ctor_set(x_72, 0, x_67); -lean_ctor_set(x_72, 1, x_68); -lean_ctor_set(x_72, 2, x_71); -if (lean_is_scalar(x_36)) { - x_73 = lean_alloc_ctor(0, 6, 0); -} else { - x_73 = x_36; -} -lean_ctor_set(x_73, 0, x_60); -lean_ctor_set(x_73, 1, x_29); -lean_ctor_set(x_73, 2, x_72); -lean_ctor_set(x_73, 3, x_62); -lean_ctor_set(x_73, 4, x_63); -lean_ctor_set(x_73, 5, x_64); -if (lean_is_scalar(x_27)) { - x_74 = lean_alloc_ctor(0, 2, 0); -} else { - x_74 = x_27; -} -lean_ctor_set(x_74, 0, x_37); -lean_ctor_set(x_74, 1, x_73); -return x_74; -} -else -{ -lean_object* x_75; -lean_dec(x_64); -lean_dec(x_63); -lean_dec(x_62); -lean_dec(x_61); -lean_dec(x_60); -lean_dec(x_36); -lean_dec(x_29); -lean_dec(x_26); -if (lean_is_scalar(x_27)) { - x_75 = lean_alloc_ctor(0, 2, 0); -} else { - x_75 = x_27; -} -lean_ctor_set(x_75, 0, x_37); -lean_ctor_set(x_75, 1, x_65); -return x_75; -} -} -} -block_89: -{ -uint8_t x_79; -x_79 = !lean_is_exclusive(x_78); -if (x_79 == 0) -{ -lean_object* x_80; lean_object* x_81; -x_80 = lean_ctor_get(x_78, 1); +uint8_t x_96; lean_dec(x_80); -lean_ctor_set(x_78, 1, x_29); -if (lean_is_scalar(x_22)) { - x_81 = lean_alloc_ctor(1, 2, 0); -} else { - x_81 = x_22; - lean_ctor_set_tag(x_81, 1); -} -lean_ctor_set(x_81, 0, x_77); -lean_ctor_set(x_81, 1, x_78); -return x_81; -} -else -{ -lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; -x_82 = lean_ctor_get(x_78, 0); -x_83 = lean_ctor_get(x_78, 2); -x_84 = lean_ctor_get(x_78, 3); -x_85 = lean_ctor_get(x_78, 4); -x_86 = lean_ctor_get(x_78, 5); -lean_inc(x_86); -lean_inc(x_85); -lean_inc(x_84); -lean_inc(x_83); -lean_inc(x_82); -lean_dec(x_78); -x_87 = lean_alloc_ctor(0, 6, 0); -lean_ctor_set(x_87, 0, x_82); -lean_ctor_set(x_87, 1, x_29); -lean_ctor_set(x_87, 2, x_83); -lean_ctor_set(x_87, 3, x_84); -lean_ctor_set(x_87, 4, x_85); -lean_ctor_set(x_87, 5, x_86); -if (lean_is_scalar(x_22)) { - x_88 = lean_alloc_ctor(1, 2, 0); -} else { - x_88 = x_22; - lean_ctor_set_tag(x_88, 1); -} -lean_ctor_set(x_88, 0, x_77); -lean_ctor_set(x_88, 1, x_87); -return x_88; -} -} -} -else -{ -lean_object* x_153; lean_object* x_154; -lean_dec(x_33); -lean_dec(x_32); -lean_dec(x_31); -lean_dec(x_30); -lean_dec(x_29); -lean_dec(x_28); -lean_dec(x_26); -lean_dec(x_22); +lean_dec(x_79); +lean_dec(x_27); +lean_dec(x_25); +lean_dec(x_2); +x_96 = !lean_is_exclusive(x_86); +if (x_96 == 0) +{ +return x_86; +} +else +{ +lean_object* x_97; lean_object* x_98; lean_object* x_99; +x_97 = lean_ctor_get(x_86, 0); +x_98 = lean_ctor_get(x_86, 1); +lean_inc(x_98); +lean_inc(x_97); +lean_dec(x_86); +x_99 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_99, 0, x_97); +lean_ctor_set(x_99, 1, x_98); +return x_99; +} +} +} +else +{ +uint8_t x_100; +lean_dec(x_80); +lean_dec(x_79); +lean_dec(x_27); +lean_dec(x_25); lean_dec(x_2); -lean_dec(x_15); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); -x_153 = lean_ctor_get(x_35, 0); -lean_inc(x_153); -lean_dec(x_35); -if (lean_is_scalar(x_27)) { - x_154 = lean_alloc_ctor(0, 2, 0); -} else { - x_154 = x_27; +x_100 = !lean_is_exclusive(x_82); +if (x_100 == 0) +{ +return x_82; +} +else +{ +lean_object* x_101; lean_object* x_102; lean_object* x_103; +x_101 = lean_ctor_get(x_82, 0); +x_102 = lean_ctor_get(x_82, 1); +lean_inc(x_102); +lean_inc(x_101); +lean_dec(x_82); +x_103 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_103, 0, x_101); +lean_ctor_set(x_103, 1, x_102); +return x_103; +} +} } -lean_ctor_set(x_154, 0, x_153); -lean_ctor_set(x_154, 1, x_25); -return x_154; } } else { -uint8_t x_155; -lean_dec(x_22); +lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; +x_117 = lean_ctor_get(x_75, 0); +x_118 = lean_ctor_get(x_75, 2); +x_119 = lean_ctor_get(x_75, 3); +x_120 = lean_ctor_get(x_75, 4); +x_121 = lean_ctor_get(x_75, 5); +lean_inc(x_121); +lean_inc(x_120); +lean_inc(x_119); +lean_inc(x_118); +lean_inc(x_117); +lean_dec(x_75); +lean_inc(x_120); +x_122 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_122, 0, x_117); +lean_ctor_set(x_122, 1, x_60); +lean_ctor_set(x_122, 2, x_118); +lean_ctor_set(x_122, 3, x_119); +lean_ctor_set(x_122, 4, x_120); +lean_ctor_set(x_122, 5, x_121); +if (lean_obj_tag(x_74) == 0) +{ +lean_dec(x_120); lean_dec(x_2); -lean_dec(x_15); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); -x_155 = !lean_is_exclusive(x_24); -if (x_155 == 0) -{ -return x_24; +x_28 = x_74; +x_29 = x_122; +goto block_58; } else { -lean_object* x_156; lean_object* x_157; lean_object* x_158; -x_156 = lean_ctor_get(x_24, 0); -x_157 = lean_ctor_get(x_24, 1); -lean_inc(x_157); -lean_inc(x_156); -lean_dec(x_24); -x_158 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_158, 0, x_156); -lean_ctor_set(x_158, 1, x_157); -return x_158; -} +lean_object* x_123; lean_object* x_124; lean_object* x_125; uint8_t x_149; +x_123 = lean_ctor_get(x_74, 0); +lean_inc(x_123); +if (lean_is_exclusive(x_74)) { + lean_ctor_release(x_74, 0); + x_124 = x_74; +} else { + lean_dec_ref(x_74); + x_124 = lean_box(0); } +x_149 = lean_ctor_get_uint8(x_120, sizeof(void*)*1); +lean_dec(x_120); +if (x_149 == 0) +{ +x_125 = x_122; +goto block_148; } else { -lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; uint8_t x_165; uint8_t x_166; uint8_t x_167; uint8_t x_168; lean_object* x_169; uint8_t x_170; uint8_t x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; -x_159 = lean_ctor_get(x_2, 0); -x_160 = lean_ctor_get(x_2, 1); -x_161 = lean_ctor_get(x_2, 2); -x_162 = lean_ctor_get(x_2, 3); -x_163 = lean_ctor_get(x_2, 4); -lean_inc(x_163); -lean_inc(x_162); -lean_inc(x_161); +lean_object* x_150; lean_object* x_151; lean_object* x_152; uint8_t x_153; +x_150 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; +x_151 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_150, x_2, x_122); +x_152 = lean_ctor_get(x_151, 0); +lean_inc(x_152); +x_153 = lean_unbox(x_152); +lean_dec(x_152); +if (x_153 == 0) +{ +lean_object* x_154; +x_154 = lean_ctor_get(x_151, 1); +lean_inc(x_154); +lean_dec(x_151); +x_125 = x_154; +goto block_148; +} +else +{ +lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; +x_155 = lean_ctor_get(x_151, 1); +lean_inc(x_155); +lean_dec(x_151); +lean_inc(x_123); +x_156 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_156, 0, x_123); +x_157 = l_Lean_Meta_synthInstance_x3f___closed__3; +x_158 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_158, 0, x_157); +lean_ctor_set(x_158, 1, x_156); +x_159 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_150, x_158, x_2, x_155); +x_160 = lean_ctor_get(x_159, 1); lean_inc(x_160); -lean_inc(x_159); -lean_dec(x_2); -x_164 = lean_ctor_get(x_159, 0); -lean_inc(x_164); -x_165 = lean_ctor_get_uint8(x_159, sizeof(void*)*1 + 2); -x_166 = lean_ctor_get_uint8(x_159, sizeof(void*)*1 + 3); -x_167 = lean_ctor_get_uint8(x_159, sizeof(void*)*1 + 4); -x_168 = lean_ctor_get_uint8(x_159, sizeof(void*)*1 + 5); -x_169 = l___private_Init_Lean_Meta_SynthInstance_6__getMaxSteps(x_164); -x_170 = 1; -x_171 = 2; -x_172 = lean_alloc_ctor(0, 1, 7); -lean_ctor_set(x_172, 0, x_164); -lean_ctor_set_uint8(x_172, sizeof(void*)*1, x_170); -lean_ctor_set_uint8(x_172, sizeof(void*)*1 + 1, x_170); -lean_ctor_set_uint8(x_172, sizeof(void*)*1 + 2, x_165); -lean_ctor_set_uint8(x_172, sizeof(void*)*1 + 3, x_166); -lean_ctor_set_uint8(x_172, sizeof(void*)*1 + 4, x_167); -lean_ctor_set_uint8(x_172, sizeof(void*)*1 + 5, x_168); -lean_ctor_set_uint8(x_172, sizeof(void*)*1 + 6, x_171); -lean_inc(x_163); -lean_inc(x_162); -lean_inc(x_161); -lean_inc(x_160); -x_173 = lean_alloc_ctor(0, 5, 0); -lean_ctor_set(x_173, 0, x_172); -lean_ctor_set(x_173, 1, x_160); -lean_ctor_set(x_173, 2, x_161); -lean_ctor_set(x_173, 3, x_162); -lean_ctor_set(x_173, 4, x_163); -x_174 = l_Lean_Meta_instantiateMVars(x_1, x_173, x_3); -x_175 = lean_ctor_get(x_174, 0); -lean_inc(x_175); -x_176 = lean_ctor_get(x_174, 1); -lean_inc(x_176); -if (lean_is_exclusive(x_174)) { - lean_ctor_release(x_174, 0); - lean_ctor_release(x_174, 1); - x_177 = x_174; -} else { - lean_dec_ref(x_174); - x_177 = lean_box(0); -} -x_178 = l___private_Init_Lean_Meta_SynthInstance_2__preprocess___closed__1; -lean_inc(x_173); -x_179 = l_Lean_Meta_forallTelescopeReducing___rarg(x_175, x_178, x_173, x_176); -if (lean_obj_tag(x_179) == 0) -{ -lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; -x_180 = lean_ctor_get(x_179, 1); -lean_inc(x_180); -x_181 = lean_ctor_get(x_179, 0); -lean_inc(x_181); -if (lean_is_exclusive(x_179)) { - lean_ctor_release(x_179, 0); - lean_ctor_release(x_179, 1); - x_182 = x_179; -} else { - lean_dec_ref(x_179); - x_182 = lean_box(0); -} -x_183 = lean_ctor_get(x_180, 0); -lean_inc(x_183); -x_184 = lean_ctor_get(x_180, 1); -lean_inc(x_184); -x_185 = lean_ctor_get(x_180, 2); -lean_inc(x_185); -x_186 = lean_ctor_get(x_180, 3); -lean_inc(x_186); -x_187 = lean_ctor_get(x_180, 4); -lean_inc(x_187); -x_188 = lean_ctor_get(x_180, 5); -lean_inc(x_188); -x_189 = lean_ctor_get(x_185, 2); -lean_inc(x_189); -x_190 = l_PersistentHashMap_find_x3f___at_Lean_Meta_synthInstance_x3f___spec__1(x_189, x_181); -if (lean_obj_tag(x_190) == 0) -{ -lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_212; lean_object* x_213; lean_object* x_223; lean_object* x_224; lean_object* x_225; -if (lean_is_exclusive(x_180)) { - lean_ctor_release(x_180, 0); - lean_ctor_release(x_180, 1); - lean_ctor_release(x_180, 2); - lean_ctor_release(x_180, 3); - lean_ctor_release(x_180, 4); - lean_ctor_release(x_180, 5); - x_191 = x_180; -} else { - lean_dec_ref(x_180); - x_191 = lean_box(0); -} -lean_inc(x_184); -x_223 = l_Lean_MetavarContext_incDepth(x_184); -x_224 = lean_alloc_ctor(0, 6, 0); -lean_ctor_set(x_224, 0, x_183); -lean_ctor_set(x_224, 1, x_223); -lean_ctor_set(x_224, 2, x_185); -lean_ctor_set(x_224, 3, x_186); -lean_ctor_set(x_224, 4, x_187); -lean_ctor_set(x_224, 5, x_188); -lean_inc(x_173); -lean_inc(x_181); -x_225 = l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam(x_181, x_173, x_224); -if (lean_obj_tag(x_225) == 0) -{ -lean_object* x_226; lean_object* x_227; lean_object* x_228; -x_226 = lean_ctor_get(x_225, 0); -lean_inc(x_226); -x_227 = lean_ctor_get(x_225, 1); -lean_inc(x_227); -lean_dec(x_225); -lean_inc(x_173); -x_228 = l_Lean_Meta_SynthInstance_main(x_226, x_169, x_173, x_227); -if (lean_obj_tag(x_228) == 0) -{ -lean_object* x_229; -x_229 = lean_ctor_get(x_228, 0); -lean_inc(x_229); -if (lean_obj_tag(x_229) == 0) -{ -lean_object* x_230; -lean_dec(x_177); -lean_dec(x_173); -lean_dec(x_163); -lean_dec(x_162); -lean_dec(x_161); -lean_dec(x_160); lean_dec(x_159); -x_230 = lean_ctor_get(x_228, 1); -lean_inc(x_230); -lean_dec(x_228); -x_192 = x_229; -x_193 = x_230; -goto block_211; +x_125 = x_160; +goto block_148; +} +} +block_148: +{ +lean_object* x_126; +lean_inc(x_2); +lean_inc(x_123); +x_126 = l_Lean_Meta_inferType(x_123, x_2, x_125); +if (lean_obj_tag(x_126) == 0) +{ +lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; +x_127 = lean_ctor_get(x_126, 0); +lean_inc(x_127); +x_128 = lean_ctor_get(x_126, 1); +lean_inc(x_128); +lean_dec(x_126); +x_129 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_129, 0, x_5); +lean_ctor_set(x_129, 1, x_6); +lean_ctor_set(x_129, 2, x_7); +lean_ctor_set(x_129, 3, x_8); +lean_ctor_set(x_129, 4, x_9); +lean_inc(x_25); +x_130 = l_Lean_Meta_isExprDefEq(x_25, x_127, x_129, x_128); +if (lean_obj_tag(x_130) == 0) +{ +lean_object* x_131; uint8_t x_132; +x_131 = lean_ctor_get(x_130, 0); +lean_inc(x_131); +x_132 = lean_unbox(x_131); +lean_dec(x_131); +if (x_132 == 0) +{ +lean_object* x_133; lean_object* x_134; +lean_dec(x_124); +lean_dec(x_123); +lean_dec(x_2); +x_133 = lean_ctor_get(x_130, 1); +lean_inc(x_133); +lean_dec(x_130); +x_134 = lean_box(0); +x_28 = x_134; +x_29 = x_133; +goto block_58; } else { -lean_object* x_231; lean_object* x_232; lean_object* x_233; lean_object* x_234; -x_231 = lean_ctor_get(x_228, 1); -lean_inc(x_231); -lean_dec(x_228); -x_232 = lean_ctor_get(x_229, 0); -lean_inc(x_232); -if (lean_is_exclusive(x_229)) { - lean_ctor_release(x_229, 0); - x_233 = x_229; +lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; +x_135 = lean_ctor_get(x_130, 1); +lean_inc(x_135); +lean_dec(x_130); +x_136 = l_Lean_Meta_instantiateMVars(x_123, x_2, x_135); +lean_dec(x_2); +x_137 = lean_ctor_get(x_136, 0); +lean_inc(x_137); +x_138 = lean_ctor_get(x_136, 1); +lean_inc(x_138); +lean_dec(x_136); +if (lean_is_scalar(x_124)) { + x_139 = lean_alloc_ctor(1, 1, 0); } else { - lean_dec_ref(x_229); - x_233 = lean_box(0); + x_139 = x_124; +} +lean_ctor_set(x_139, 0, x_137); +x_28 = x_139; +x_29 = x_138; +goto block_58; } -lean_inc(x_173); -lean_inc(x_232); -x_234 = l_Lean_Meta_inferType(x_232, x_173, x_231); -if (lean_obj_tag(x_234) == 0) -{ -lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; -x_235 = lean_ctor_get(x_234, 0); -lean_inc(x_235); -x_236 = lean_ctor_get(x_234, 1); -lean_inc(x_236); -lean_dec(x_234); -x_237 = lean_alloc_ctor(0, 5, 0); -lean_ctor_set(x_237, 0, x_159); -lean_ctor_set(x_237, 1, x_160); -lean_ctor_set(x_237, 2, x_161); -lean_ctor_set(x_237, 3, x_162); -lean_ctor_set(x_237, 4, x_163); -lean_inc(x_181); -x_238 = l_Lean_Meta_isExprDefEq(x_181, x_235, x_237, x_236); -if (lean_obj_tag(x_238) == 0) -{ -lean_object* x_239; uint8_t x_240; -lean_dec(x_177); -x_239 = lean_ctor_get(x_238, 0); -lean_inc(x_239); -x_240 = lean_unbox(x_239); -lean_dec(x_239); -if (x_240 == 0) -{ -lean_object* x_241; lean_object* x_242; -lean_dec(x_233); -lean_dec(x_232); -lean_dec(x_173); -x_241 = lean_ctor_get(x_238, 1); -lean_inc(x_241); -lean_dec(x_238); -x_242 = lean_box(0); -x_192 = x_242; -x_193 = x_241; -goto block_211; } else { -lean_object* x_243; lean_object* x_244; lean_object* x_245; lean_object* x_246; lean_object* x_247; lean_object* x_248; uint8_t x_249; -x_243 = lean_ctor_get(x_238, 1); -lean_inc(x_243); -lean_dec(x_238); -x_244 = l_Lean_Meta_instantiateMVars(x_232, x_173, x_243); -x_245 = lean_ctor_get(x_244, 0); +lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; +lean_dec(x_124); +lean_dec(x_123); +lean_dec(x_27); +lean_dec(x_25); +lean_dec(x_2); +x_140 = lean_ctor_get(x_130, 0); +lean_inc(x_140); +x_141 = lean_ctor_get(x_130, 1); +lean_inc(x_141); +if (lean_is_exclusive(x_130)) { + lean_ctor_release(x_130, 0); + lean_ctor_release(x_130, 1); + x_142 = x_130; +} else { + lean_dec_ref(x_130); + x_142 = lean_box(0); +} +if (lean_is_scalar(x_142)) { + x_143 = lean_alloc_ctor(1, 2, 0); +} else { + x_143 = x_142; +} +lean_ctor_set(x_143, 0, x_140); +lean_ctor_set(x_143, 1, x_141); +return x_143; +} +} +else +{ +lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; +lean_dec(x_124); +lean_dec(x_123); +lean_dec(x_27); +lean_dec(x_25); +lean_dec(x_2); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +x_144 = lean_ctor_get(x_126, 0); +lean_inc(x_144); +x_145 = lean_ctor_get(x_126, 1); +lean_inc(x_145); +if (lean_is_exclusive(x_126)) { + lean_ctor_release(x_126, 0); + lean_ctor_release(x_126, 1); + x_146 = x_126; +} else { + lean_dec_ref(x_126); + x_146 = lean_box(0); +} +if (lean_is_scalar(x_146)) { + x_147 = lean_alloc_ctor(1, 2, 0); +} else { + x_147 = x_146; +} +lean_ctor_set(x_147, 0, x_144); +lean_ctor_set(x_147, 1, x_145); +return x_147; +} +} +} +} +} +block_174: +{ +uint8_t x_164; +x_164 = !lean_is_exclusive(x_163); +if (x_164 == 0) +{ +lean_object* x_165; lean_object* x_166; +x_165 = lean_ctor_get(x_163, 1); +lean_dec(x_165); +lean_ctor_set(x_163, 1, x_60); +if (lean_is_scalar(x_22)) { + x_166 = lean_alloc_ctor(1, 2, 0); +} else { + x_166 = x_22; + lean_ctor_set_tag(x_166, 1); +} +lean_ctor_set(x_166, 0, x_162); +lean_ctor_set(x_166, 1, x_163); +return x_166; +} +else +{ +lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; +x_167 = lean_ctor_get(x_163, 0); +x_168 = lean_ctor_get(x_163, 2); +x_169 = lean_ctor_get(x_163, 3); +x_170 = lean_ctor_get(x_163, 4); +x_171 = lean_ctor_get(x_163, 5); +lean_inc(x_171); +lean_inc(x_170); +lean_inc(x_169); +lean_inc(x_168); +lean_inc(x_167); +lean_dec(x_163); +x_172 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_172, 0, x_167); +lean_ctor_set(x_172, 1, x_60); +lean_ctor_set(x_172, 2, x_168); +lean_ctor_set(x_172, 3, x_169); +lean_ctor_set(x_172, 4, x_170); +lean_ctor_set(x_172, 5, x_171); +if (lean_is_scalar(x_22)) { + x_173 = lean_alloc_ctor(1, 2, 0); +} else { + x_173 = x_22; + lean_ctor_set_tag(x_173, 1); +} +lean_ctor_set(x_173, 0, x_162); +lean_ctor_set(x_173, 1, x_172); +return x_173; +} +} +} +else +{ +lean_object* x_231; lean_object* x_232; lean_object* x_279; lean_object* x_280; lean_object* x_290; lean_object* x_291; lean_object* x_292; +lean_dec(x_26); +lean_inc(x_60); +x_290 = l_Lean_MetavarContext_incDepth(x_60); +x_291 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_291, 0, x_59); +lean_ctor_set(x_291, 1, x_290); +lean_ctor_set(x_291, 2, x_61); +lean_ctor_set(x_291, 3, x_62); +lean_ctor_set(x_291, 4, x_63); +lean_ctor_set(x_291, 5, x_64); +lean_inc(x_2); +lean_inc(x_25); +x_292 = l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam(x_25, x_2, x_291); +if (lean_obj_tag(x_292) == 0) +{ +lean_object* x_293; lean_object* x_294; lean_object* x_295; lean_object* x_330; uint8_t x_331; +x_293 = lean_ctor_get(x_292, 0); +lean_inc(x_293); +x_294 = lean_ctor_get(x_292, 1); +lean_inc(x_294); +lean_dec(x_292); +x_330 = lean_ctor_get(x_294, 4); +lean_inc(x_330); +x_331 = lean_ctor_get_uint8(x_330, sizeof(void*)*1); +lean_dec(x_330); +if (x_331 == 0) +{ +x_295 = x_294; +goto block_329; +} +else +{ +lean_object* x_332; lean_object* x_333; lean_object* x_334; uint8_t x_335; +x_332 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; +x_333 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_332, x_2, x_294); +x_334 = lean_ctor_get(x_333, 0); +lean_inc(x_334); +x_335 = lean_unbox(x_334); +lean_dec(x_334); +if (x_335 == 0) +{ +lean_object* x_336; +x_336 = lean_ctor_get(x_333, 1); +lean_inc(x_336); +lean_dec(x_333); +x_295 = x_336; +goto block_329; +} +else +{ +lean_object* x_337; lean_object* x_338; lean_object* x_339; lean_object* x_340; lean_object* x_341; lean_object* x_342; lean_object* x_343; lean_object* x_344; +x_337 = lean_ctor_get(x_333, 1); +lean_inc(x_337); +lean_dec(x_333); +lean_inc(x_25); +x_338 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_338, 0, x_25); +x_339 = l_Lean_Meta_synthInstance_x3f___closed__9; +x_340 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_340, 0, x_338); +lean_ctor_set(x_340, 1, x_339); +lean_inc(x_293); +x_341 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_341, 0, x_293); +x_342 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_342, 0, x_340); +lean_ctor_set(x_342, 1, x_341); +x_343 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_332, x_342, x_2, x_337); +x_344 = lean_ctor_get(x_343, 1); +lean_inc(x_344); +lean_dec(x_343); +x_295 = x_344; +goto block_329; +} +} +block_329: +{ +lean_object* x_296; +lean_inc(x_2); +x_296 = l_Lean_Meta_SynthInstance_main(x_293, x_15, x_2, x_295); +if (lean_obj_tag(x_296) == 0) +{ +lean_object* x_297; +lean_dec(x_22); +x_297 = lean_ctor_get(x_296, 0); +lean_inc(x_297); +if (lean_obj_tag(x_297) == 0) +{ +lean_object* x_298; +x_298 = lean_ctor_get(x_296, 1); +lean_inc(x_298); +lean_dec(x_296); +x_231 = x_297; +x_232 = x_298; +goto block_278; +} +else +{ +lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_314; uint8_t x_315; +x_299 = lean_ctor_get(x_296, 1); +lean_inc(x_299); +lean_dec(x_296); +x_300 = lean_ctor_get(x_297, 0); +lean_inc(x_300); +if (lean_is_exclusive(x_297)) { + lean_ctor_release(x_297, 0); + x_301 = x_297; +} else { + lean_dec_ref(x_297); + x_301 = lean_box(0); +} +x_314 = lean_ctor_get(x_299, 4); +lean_inc(x_314); +x_315 = lean_ctor_get_uint8(x_314, sizeof(void*)*1); +lean_dec(x_314); +if (x_315 == 0) +{ +x_302 = x_299; +goto block_313; +} +else +{ +lean_object* x_316; lean_object* x_317; lean_object* x_318; uint8_t x_319; +x_316 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; +x_317 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_316, x_2, x_299); +x_318 = lean_ctor_get(x_317, 0); +lean_inc(x_318); +x_319 = lean_unbox(x_318); +lean_dec(x_318); +if (x_319 == 0) +{ +lean_object* x_320; +x_320 = lean_ctor_get(x_317, 1); +lean_inc(x_320); +lean_dec(x_317); +x_302 = x_320; +goto block_313; +} +else +{ +lean_object* x_321; lean_object* x_322; lean_object* x_323; lean_object* x_324; lean_object* x_325; lean_object* x_326; +x_321 = lean_ctor_get(x_317, 1); +lean_inc(x_321); +lean_dec(x_317); +lean_inc(x_300); +x_322 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_322, 0, x_300); +x_323 = l_Lean_Meta_synthInstance_x3f___closed__6; +x_324 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_324, 0, x_323); +lean_ctor_set(x_324, 1, x_322); +x_325 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_316, x_324, x_2, x_321); +x_326 = lean_ctor_get(x_325, 1); +lean_inc(x_326); +lean_dec(x_325); +x_302 = x_326; +goto block_313; +} +} +block_313: +{ +lean_object* x_303; lean_object* x_304; lean_object* x_305; lean_object* x_306; lean_object* x_307; uint8_t x_308; +x_303 = l_Lean_Meta_instantiateMVars(x_300, x_2, x_302); +x_304 = lean_ctor_get(x_303, 0); +lean_inc(x_304); +x_305 = lean_ctor_get(x_303, 1); +lean_inc(x_305); +lean_dec(x_303); +x_306 = l_Lean_Meta_hasAssignableMVar(x_304, x_2, x_305); +x_307 = lean_ctor_get(x_306, 0); +lean_inc(x_307); +x_308 = lean_unbox(x_307); +lean_dec(x_307); +if (x_308 == 0) +{ +lean_object* x_309; lean_object* x_310; +x_309 = lean_ctor_get(x_306, 1); +lean_inc(x_309); +lean_dec(x_306); +if (lean_is_scalar(x_301)) { + x_310 = lean_alloc_ctor(1, 1, 0); +} else { + x_310 = x_301; +} +lean_ctor_set(x_310, 0, x_304); +x_231 = x_310; +x_232 = x_309; +goto block_278; +} +else +{ +lean_object* x_311; lean_object* x_312; +lean_dec(x_304); +lean_dec(x_301); +x_311 = lean_ctor_get(x_306, 1); +lean_inc(x_311); +lean_dec(x_306); +x_312 = lean_box(0); +x_231 = x_312; +x_232 = x_311; +goto block_278; +} +} +} +} +else +{ +lean_object* x_327; lean_object* x_328; +lean_dec(x_27); +lean_dec(x_25); +lean_dec(x_2); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +x_327 = lean_ctor_get(x_296, 0); +lean_inc(x_327); +x_328 = lean_ctor_get(x_296, 1); +lean_inc(x_328); +lean_dec(x_296); +x_279 = x_327; +x_280 = x_328; +goto block_289; +} +} +} +else +{ +lean_object* x_345; lean_object* x_346; +lean_dec(x_27); +lean_dec(x_25); +lean_dec(x_2); +lean_dec(x_15); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +x_345 = lean_ctor_get(x_292, 0); +lean_inc(x_345); +x_346 = lean_ctor_get(x_292, 1); +lean_inc(x_346); +lean_dec(x_292); +x_279 = x_345; +x_280 = x_346; +goto block_289; +} +block_278: +{ +lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; lean_object* x_239; +x_233 = lean_ctor_get(x_232, 0); +lean_inc(x_233); +x_234 = lean_ctor_get(x_232, 2); +lean_inc(x_234); +x_235 = lean_ctor_get(x_232, 3); +lean_inc(x_235); +x_236 = lean_ctor_get(x_232, 4); +lean_inc(x_236); +x_237 = lean_ctor_get(x_232, 5); +lean_inc(x_237); +if (lean_is_exclusive(x_232)) { + lean_ctor_release(x_232, 0); + lean_ctor_release(x_232, 1); + lean_ctor_release(x_232, 2); + lean_ctor_release(x_232, 3); + lean_ctor_release(x_232, 4); + lean_ctor_release(x_232, 5); + x_238 = x_232; +} else { + lean_dec_ref(x_232); + x_238 = lean_box(0); +} +lean_inc(x_236); +if (lean_is_scalar(x_238)) { + x_239 = lean_alloc_ctor(0, 6, 0); +} else { + x_239 = x_238; +} +lean_ctor_set(x_239, 0, x_233); +lean_ctor_set(x_239, 1, x_60); +lean_ctor_set(x_239, 2, x_234); +lean_ctor_set(x_239, 3, x_235); +lean_ctor_set(x_239, 4, x_236); +lean_ctor_set(x_239, 5, x_237); +if (lean_obj_tag(x_231) == 0) +{ +lean_dec(x_236); +lean_dec(x_2); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +x_28 = x_231; +x_29 = x_239; +goto block_58; +} +else +{ +lean_object* x_240; lean_object* x_241; lean_object* x_242; uint8_t x_266; +x_240 = lean_ctor_get(x_231, 0); +lean_inc(x_240); +if (lean_is_exclusive(x_231)) { + lean_ctor_release(x_231, 0); + x_241 = x_231; +} else { + lean_dec_ref(x_231); + x_241 = lean_box(0); +} +x_266 = lean_ctor_get_uint8(x_236, sizeof(void*)*1); +lean_dec(x_236); +if (x_266 == 0) +{ +x_242 = x_239; +goto block_265; +} +else +{ +lean_object* x_267; lean_object* x_268; lean_object* x_269; uint8_t x_270; +x_267 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; +x_268 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_267, x_2, x_239); +x_269 = lean_ctor_get(x_268, 0); +lean_inc(x_269); +x_270 = lean_unbox(x_269); +lean_dec(x_269); +if (x_270 == 0) +{ +lean_object* x_271; +x_271 = lean_ctor_get(x_268, 1); +lean_inc(x_271); +lean_dec(x_268); +x_242 = x_271; +goto block_265; +} +else +{ +lean_object* x_272; lean_object* x_273; lean_object* x_274; lean_object* x_275; lean_object* x_276; lean_object* x_277; +x_272 = lean_ctor_get(x_268, 1); +lean_inc(x_272); +lean_dec(x_268); +lean_inc(x_240); +x_273 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_273, 0, x_240); +x_274 = l_Lean_Meta_synthInstance_x3f___closed__3; +x_275 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_275, 0, x_274); +lean_ctor_set(x_275, 1, x_273); +x_276 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_267, x_275, x_2, x_272); +x_277 = lean_ctor_get(x_276, 1); +lean_inc(x_277); +lean_dec(x_276); +x_242 = x_277; +goto block_265; +} +} +block_265: +{ +lean_object* x_243; +lean_inc(x_2); +lean_inc(x_240); +x_243 = l_Lean_Meta_inferType(x_240, x_2, x_242); +if (lean_obj_tag(x_243) == 0) +{ +lean_object* x_244; lean_object* x_245; lean_object* x_246; lean_object* x_247; +x_244 = lean_ctor_get(x_243, 0); +lean_inc(x_244); +x_245 = lean_ctor_get(x_243, 1); lean_inc(x_245); -x_246 = lean_ctor_get(x_244, 1); -lean_inc(x_246); -lean_dec(x_244); -x_247 = l_Lean_Meta_hasAssignableMVar(x_245, x_173, x_246); -lean_dec(x_173); +lean_dec(x_243); +x_246 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_246, 0, x_5); +lean_ctor_set(x_246, 1, x_6); +lean_ctor_set(x_246, 2, x_7); +lean_ctor_set(x_246, 3, x_8); +lean_ctor_set(x_246, 4, x_9); +lean_inc(x_25); +x_247 = l_Lean_Meta_isExprDefEq(x_25, x_244, x_246, x_245); +if (lean_obj_tag(x_247) == 0) +{ +lean_object* x_248; uint8_t x_249; x_248 = lean_ctor_get(x_247, 0); lean_inc(x_248); x_249 = lean_unbox(x_248); @@ -21790,393 +21912,1159 @@ lean_dec(x_248); if (x_249 == 0) { lean_object* x_250; lean_object* x_251; +lean_dec(x_241); +lean_dec(x_240); +lean_dec(x_2); x_250 = lean_ctor_get(x_247, 1); lean_inc(x_250); lean_dec(x_247); -if (lean_is_scalar(x_233)) { - x_251 = lean_alloc_ctor(1, 1, 0); -} else { - x_251 = x_233; -} -lean_ctor_set(x_251, 0, x_245); -x_192 = x_251; -x_193 = x_250; -goto block_211; +x_251 = lean_box(0); +x_28 = x_251; +x_29 = x_250; +goto block_58; } else { -lean_object* x_252; lean_object* x_253; -lean_dec(x_245); -lean_dec(x_233); +lean_object* x_252; lean_object* x_253; lean_object* x_254; lean_object* x_255; lean_object* x_256; x_252 = lean_ctor_get(x_247, 1); lean_inc(x_252); lean_dec(x_247); -x_253 = lean_box(0); -x_192 = x_253; -x_193 = x_252; -goto block_211; -} -} -} -else -{ -lean_object* x_254; lean_object* x_255; -lean_dec(x_233); -lean_dec(x_232); -lean_dec(x_191); -lean_dec(x_182); -lean_dec(x_181); -lean_dec(x_173); -x_254 = lean_ctor_get(x_238, 0); +x_253 = l_Lean_Meta_instantiateMVars(x_240, x_2, x_252); +lean_dec(x_2); +x_254 = lean_ctor_get(x_253, 0); lean_inc(x_254); -x_255 = lean_ctor_get(x_238, 1); +x_255 = lean_ctor_get(x_253, 1); lean_inc(x_255); -lean_dec(x_238); -x_212 = x_254; -x_213 = x_255; -goto block_222; +lean_dec(x_253); +if (lean_is_scalar(x_241)) { + x_256 = lean_alloc_ctor(1, 1, 0); +} else { + x_256 = x_241; +} +lean_ctor_set(x_256, 0, x_254); +x_28 = x_256; +x_29 = x_255; +goto block_58; } } else { -lean_object* x_256; lean_object* x_257; -lean_dec(x_233); -lean_dec(x_232); -lean_dec(x_191); -lean_dec(x_182); -lean_dec(x_181); -lean_dec(x_173); -lean_dec(x_163); -lean_dec(x_162); -lean_dec(x_161); -lean_dec(x_160); -lean_dec(x_159); -x_256 = lean_ctor_get(x_234, 0); -lean_inc(x_256); -x_257 = lean_ctor_get(x_234, 1); +lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; +lean_dec(x_241); +lean_dec(x_240); +lean_dec(x_27); +lean_dec(x_25); +lean_dec(x_2); +x_257 = lean_ctor_get(x_247, 0); lean_inc(x_257); -lean_dec(x_234); -x_212 = x_256; -x_213 = x_257; -goto block_222; -} -} -} -else -{ -lean_object* x_258; lean_object* x_259; -lean_dec(x_191); -lean_dec(x_182); -lean_dec(x_181); -lean_dec(x_173); -lean_dec(x_163); -lean_dec(x_162); -lean_dec(x_161); -lean_dec(x_160); -lean_dec(x_159); -x_258 = lean_ctor_get(x_228, 0); +x_258 = lean_ctor_get(x_247, 1); lean_inc(x_258); -x_259 = lean_ctor_get(x_228, 1); -lean_inc(x_259); -lean_dec(x_228); -x_212 = x_258; -x_213 = x_259; -goto block_222; +if (lean_is_exclusive(x_247)) { + lean_ctor_release(x_247, 0); + lean_ctor_release(x_247, 1); + x_259 = x_247; +} else { + lean_dec_ref(x_247); + x_259 = lean_box(0); +} +if (lean_is_scalar(x_259)) { + x_260 = lean_alloc_ctor(1, 2, 0); +} else { + x_260 = x_259; +} +lean_ctor_set(x_260, 0, x_257); +lean_ctor_set(x_260, 1, x_258); +return x_260; } } else { -lean_object* x_260; lean_object* x_261; -lean_dec(x_191); -lean_dec(x_182); -lean_dec(x_181); -lean_dec(x_173); -lean_dec(x_169); -lean_dec(x_163); -lean_dec(x_162); -lean_dec(x_161); -lean_dec(x_160); -lean_dec(x_159); -x_260 = lean_ctor_get(x_225, 0); -lean_inc(x_260); -x_261 = lean_ctor_get(x_225, 1); -lean_inc(x_261); -lean_dec(x_225); -x_212 = x_260; -x_213 = x_261; -goto block_222; -} -block_211: -{ -lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; uint8_t x_201; -x_194 = lean_ctor_get(x_193, 0); -lean_inc(x_194); -x_195 = lean_ctor_get(x_193, 2); -lean_inc(x_195); -x_196 = lean_ctor_get(x_193, 3); -lean_inc(x_196); -x_197 = lean_ctor_get(x_193, 4); -lean_inc(x_197); -x_198 = lean_ctor_get(x_193, 5); -lean_inc(x_198); -if (lean_is_exclusive(x_193)) { - lean_ctor_release(x_193, 0); - lean_ctor_release(x_193, 1); - lean_ctor_release(x_193, 2); - lean_ctor_release(x_193, 3); - lean_ctor_release(x_193, 4); - lean_ctor_release(x_193, 5); - x_199 = x_193; -} else { - lean_dec_ref(x_193); - x_199 = lean_box(0); -} -lean_inc(x_198); -lean_inc(x_197); -lean_inc(x_196); -lean_inc(x_195); -lean_inc(x_184); -lean_inc(x_194); -if (lean_is_scalar(x_199)) { - x_200 = lean_alloc_ctor(0, 6, 0); -} else { - x_200 = x_199; -} -lean_ctor_set(x_200, 0, x_194); -lean_ctor_set(x_200, 1, x_184); -lean_ctor_set(x_200, 2, x_195); -lean_ctor_set(x_200, 3, x_196); -lean_ctor_set(x_200, 4, x_197); -lean_ctor_set(x_200, 5, x_198); -x_201 = l_Lean_Expr_hasMVar(x_181); -if (x_201 == 0) -{ -lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; -lean_dec(x_200); -x_202 = lean_ctor_get(x_195, 0); -lean_inc(x_202); -x_203 = lean_ctor_get(x_195, 1); -lean_inc(x_203); -x_204 = lean_ctor_get(x_195, 2); -lean_inc(x_204); -if (lean_is_exclusive(x_195)) { - lean_ctor_release(x_195, 0); - lean_ctor_release(x_195, 1); - lean_ctor_release(x_195, 2); - x_205 = x_195; -} else { - lean_dec_ref(x_195); - x_205 = lean_box(0); -} -lean_inc(x_192); -x_206 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance_x3f___spec__4(x_204, x_181, x_192); -if (lean_is_scalar(x_205)) { - x_207 = lean_alloc_ctor(0, 3, 0); -} else { - x_207 = x_205; -} -lean_ctor_set(x_207, 0, x_202); -lean_ctor_set(x_207, 1, x_203); -lean_ctor_set(x_207, 2, x_206); -if (lean_is_scalar(x_191)) { - x_208 = lean_alloc_ctor(0, 6, 0); -} else { - x_208 = x_191; -} -lean_ctor_set(x_208, 0, x_194); -lean_ctor_set(x_208, 1, x_184); -lean_ctor_set(x_208, 2, x_207); -lean_ctor_set(x_208, 3, x_196); -lean_ctor_set(x_208, 4, x_197); -lean_ctor_set(x_208, 5, x_198); -if (lean_is_scalar(x_182)) { - x_209 = lean_alloc_ctor(0, 2, 0); -} else { - x_209 = x_182; -} -lean_ctor_set(x_209, 0, x_192); -lean_ctor_set(x_209, 1, x_208); -return x_209; -} -else -{ -lean_object* x_210; -lean_dec(x_198); -lean_dec(x_197); -lean_dec(x_196); -lean_dec(x_195); -lean_dec(x_194); -lean_dec(x_191); -lean_dec(x_184); -lean_dec(x_181); -if (lean_is_scalar(x_182)) { - x_210 = lean_alloc_ctor(0, 2, 0); -} else { - x_210 = x_182; -} -lean_ctor_set(x_210, 0, x_192); -lean_ctor_set(x_210, 1, x_200); -return x_210; -} -} -block_222: -{ -lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; -x_214 = lean_ctor_get(x_213, 0); -lean_inc(x_214); -x_215 = lean_ctor_get(x_213, 2); -lean_inc(x_215); -x_216 = lean_ctor_get(x_213, 3); -lean_inc(x_216); -x_217 = lean_ctor_get(x_213, 4); -lean_inc(x_217); -x_218 = lean_ctor_get(x_213, 5); -lean_inc(x_218); -if (lean_is_exclusive(x_213)) { - lean_ctor_release(x_213, 0); - lean_ctor_release(x_213, 1); - lean_ctor_release(x_213, 2); - lean_ctor_release(x_213, 3); - lean_ctor_release(x_213, 4); - lean_ctor_release(x_213, 5); - x_219 = x_213; -} else { - lean_dec_ref(x_213); - x_219 = lean_box(0); -} -if (lean_is_scalar(x_219)) { - x_220 = lean_alloc_ctor(0, 6, 0); -} else { - x_220 = x_219; -} -lean_ctor_set(x_220, 0, x_214); -lean_ctor_set(x_220, 1, x_184); -lean_ctor_set(x_220, 2, x_215); -lean_ctor_set(x_220, 3, x_216); -lean_ctor_set(x_220, 4, x_217); -lean_ctor_set(x_220, 5, x_218); -if (lean_is_scalar(x_177)) { - x_221 = lean_alloc_ctor(1, 2, 0); -} else { - x_221 = x_177; - lean_ctor_set_tag(x_221, 1); -} -lean_ctor_set(x_221, 0, x_212); -lean_ctor_set(x_221, 1, x_220); -return x_221; -} -} -else -{ -lean_object* x_262; lean_object* x_263; -lean_dec(x_188); -lean_dec(x_187); -lean_dec(x_186); -lean_dec(x_185); -lean_dec(x_184); -lean_dec(x_183); -lean_dec(x_181); -lean_dec(x_177); -lean_dec(x_173); -lean_dec(x_169); -lean_dec(x_163); -lean_dec(x_162); -lean_dec(x_161); -lean_dec(x_160); -lean_dec(x_159); -x_262 = lean_ctor_get(x_190, 0); -lean_inc(x_262); -lean_dec(x_190); -if (lean_is_scalar(x_182)) { - x_263 = lean_alloc_ctor(0, 2, 0); -} else { - x_263 = x_182; -} -lean_ctor_set(x_263, 0, x_262); -lean_ctor_set(x_263, 1, x_180); -return x_263; -} -} -else -{ -lean_object* x_264; lean_object* x_265; lean_object* x_266; lean_object* x_267; -lean_dec(x_177); -lean_dec(x_173); -lean_dec(x_169); -lean_dec(x_163); -lean_dec(x_162); -lean_dec(x_161); -lean_dec(x_160); -lean_dec(x_159); -x_264 = lean_ctor_get(x_179, 0); -lean_inc(x_264); -x_265 = lean_ctor_get(x_179, 1); -lean_inc(x_265); -if (lean_is_exclusive(x_179)) { - lean_ctor_release(x_179, 0); - lean_ctor_release(x_179, 1); - x_266 = x_179; -} else { - lean_dec_ref(x_179); - x_266 = lean_box(0); -} -if (lean_is_scalar(x_266)) { - x_267 = lean_alloc_ctor(1, 2, 0); -} else { - x_267 = x_266; -} -lean_ctor_set(x_267, 0, x_264); -lean_ctor_set(x_267, 1, x_265); -return x_267; -} -} -} -} -lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance_x3f___spec__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { -_start: -{ -lean_object* x_6; -x_6 = l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance_x3f___spec__3(x_1, x_2, x_3, x_4, x_5); +lean_object* x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; +lean_dec(x_241); +lean_dec(x_240); +lean_dec(x_27); +lean_dec(x_25); +lean_dec(x_2); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); lean_dec(x_5); -lean_dec(x_2); -lean_dec(x_1); -return x_6; +x_261 = lean_ctor_get(x_243, 0); +lean_inc(x_261); +x_262 = lean_ctor_get(x_243, 1); +lean_inc(x_262); +if (lean_is_exclusive(x_243)) { + lean_ctor_release(x_243, 0); + lean_ctor_release(x_243, 1); + x_263 = x_243; +} else { + lean_dec_ref(x_243); + x_263 = lean_box(0); +} +if (lean_is_scalar(x_263)) { + x_264 = lean_alloc_ctor(1, 2, 0); +} else { + x_264 = x_263; +} +lean_ctor_set(x_264, 0, x_261); +lean_ctor_set(x_264, 1, x_262); +return x_264; } } -lean_object* l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance_x3f___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: +} +} +block_289: { -size_t x_4; lean_object* x_5; -x_4 = lean_unbox_usize(x_2); -lean_dec(x_2); -x_5 = l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance_x3f___spec__2(x_1, x_4, x_3); -lean_dec(x_3); -return x_5; +lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; lean_object* x_285; lean_object* x_286; lean_object* x_287; lean_object* x_288; +x_281 = lean_ctor_get(x_280, 0); +lean_inc(x_281); +x_282 = lean_ctor_get(x_280, 2); +lean_inc(x_282); +x_283 = lean_ctor_get(x_280, 3); +lean_inc(x_283); +x_284 = lean_ctor_get(x_280, 4); +lean_inc(x_284); +x_285 = lean_ctor_get(x_280, 5); +lean_inc(x_285); +if (lean_is_exclusive(x_280)) { + lean_ctor_release(x_280, 0); + lean_ctor_release(x_280, 1); + lean_ctor_release(x_280, 2); + lean_ctor_release(x_280, 3); + lean_ctor_release(x_280, 4); + lean_ctor_release(x_280, 5); + x_286 = x_280; +} else { + lean_dec_ref(x_280); + x_286 = lean_box(0); +} +if (lean_is_scalar(x_286)) { + x_287 = lean_alloc_ctor(0, 6, 0); +} else { + x_287 = x_286; +} +lean_ctor_set(x_287, 0, x_281); +lean_ctor_set(x_287, 1, x_60); +lean_ctor_set(x_287, 2, x_282); +lean_ctor_set(x_287, 3, x_283); +lean_ctor_set(x_287, 4, x_284); +lean_ctor_set(x_287, 5, x_285); +if (lean_is_scalar(x_22)) { + x_288 = lean_alloc_ctor(1, 2, 0); +} else { + x_288 = x_22; + lean_ctor_set_tag(x_288, 1); +} +lean_ctor_set(x_288, 0, x_279); +lean_ctor_set(x_288, 1, x_287); +return x_288; } } -lean_object* l_PersistentHashMap_find_x3f___at_Lean_Meta_synthInstance_x3f___spec__1___boxed(lean_object* x_1, lean_object* x_2) { -_start: +} +else { -lean_object* x_3; -x_3 = l_PersistentHashMap_find_x3f___at_Lean_Meta_synthInstance_x3f___spec__1(x_1, x_2); +lean_object* x_347; lean_object* x_348; +lean_dec(x_64); +lean_dec(x_63); +lean_dec(x_62); +lean_dec(x_61); +lean_dec(x_60); +lean_dec(x_59); +lean_dec(x_27); +lean_dec(x_25); lean_dec(x_2); -return x_3; +lean_dec(x_15); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +x_347 = lean_ctor_get(x_66, 0); +lean_inc(x_347); +lean_dec(x_66); +if (lean_is_scalar(x_22)) { + x_348 = lean_alloc_ctor(0, 2, 0); +} else { + x_348 = x_22; +} +lean_ctor_set(x_348, 0, x_347); +lean_ctor_set(x_348, 1, x_26); +return x_348; +} +block_58: +{ +uint8_t x_30; +x_30 = l_Lean_Expr_hasMVar(x_25); +if (x_30 == 0) +{ +uint8_t x_31; +x_31 = !lean_is_exclusive(x_29); +if (x_31 == 0) +{ +lean_object* x_32; uint8_t x_33; +x_32 = lean_ctor_get(x_29, 2); +x_33 = !lean_is_exclusive(x_32); +if (x_33 == 0) +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; +x_34 = lean_ctor_get(x_32, 2); +lean_inc(x_28); +x_35 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance_x3f___spec__1(x_34, x_25, x_28); +lean_ctor_set(x_32, 2, x_35); +if (lean_is_scalar(x_27)) { + x_36 = lean_alloc_ctor(0, 2, 0); +} else { + x_36 = x_27; +} +lean_ctor_set(x_36, 0, x_28); +lean_ctor_set(x_36, 1, x_29); +return x_36; +} +else +{ +lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; +x_37 = lean_ctor_get(x_32, 0); +x_38 = lean_ctor_get(x_32, 1); +x_39 = lean_ctor_get(x_32, 2); +lean_inc(x_39); +lean_inc(x_38); +lean_inc(x_37); +lean_dec(x_32); +lean_inc(x_28); +x_40 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance_x3f___spec__1(x_39, x_25, x_28); +x_41 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_41, 0, x_37); +lean_ctor_set(x_41, 1, x_38); +lean_ctor_set(x_41, 2, x_40); +lean_ctor_set(x_29, 2, x_41); +if (lean_is_scalar(x_27)) { + x_42 = lean_alloc_ctor(0, 2, 0); +} else { + x_42 = x_27; +} +lean_ctor_set(x_42, 0, x_28); +lean_ctor_set(x_42, 1, x_29); +return x_42; } } -lean_object* l_Array_iterateMAux___main___at_Lean_Meta_synthInstance_x3f___spec__7___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) { +else +{ +lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; +x_43 = lean_ctor_get(x_29, 2); +x_44 = lean_ctor_get(x_29, 0); +x_45 = lean_ctor_get(x_29, 1); +x_46 = lean_ctor_get(x_29, 3); +x_47 = lean_ctor_get(x_29, 4); +x_48 = lean_ctor_get(x_29, 5); +lean_inc(x_48); +lean_inc(x_47); +lean_inc(x_46); +lean_inc(x_43); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_29); +x_49 = lean_ctor_get(x_43, 0); +lean_inc(x_49); +x_50 = lean_ctor_get(x_43, 1); +lean_inc(x_50); +x_51 = lean_ctor_get(x_43, 2); +lean_inc(x_51); +if (lean_is_exclusive(x_43)) { + lean_ctor_release(x_43, 0); + lean_ctor_release(x_43, 1); + lean_ctor_release(x_43, 2); + x_52 = x_43; +} else { + lean_dec_ref(x_43); + x_52 = lean_box(0); +} +lean_inc(x_28); +x_53 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance_x3f___spec__1(x_51, x_25, x_28); +if (lean_is_scalar(x_52)) { + x_54 = lean_alloc_ctor(0, 3, 0); +} else { + x_54 = x_52; +} +lean_ctor_set(x_54, 0, x_49); +lean_ctor_set(x_54, 1, x_50); +lean_ctor_set(x_54, 2, x_53); +x_55 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_55, 0, x_44); +lean_ctor_set(x_55, 1, x_45); +lean_ctor_set(x_55, 2, x_54); +lean_ctor_set(x_55, 3, x_46); +lean_ctor_set(x_55, 4, x_47); +lean_ctor_set(x_55, 5, x_48); +if (lean_is_scalar(x_27)) { + x_56 = lean_alloc_ctor(0, 2, 0); +} else { + x_56 = x_27; +} +lean_ctor_set(x_56, 0, x_28); +lean_ctor_set(x_56, 1, x_55); +return x_56; +} +} +else +{ +lean_object* x_57; +lean_dec(x_25); +if (lean_is_scalar(x_27)) { + x_57 = lean_alloc_ctor(0, 2, 0); +} else { + x_57 = x_27; +} +lean_ctor_set(x_57, 0, x_28); +lean_ctor_set(x_57, 1, x_29); +return x_57; +} +} +} +else +{ +uint8_t x_349; +lean_dec(x_22); +lean_dec(x_2); +lean_dec(x_15); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +x_349 = !lean_is_exclusive(x_24); +if (x_349 == 0) +{ +return x_24; +} +else +{ +lean_object* x_350; lean_object* x_351; lean_object* x_352; +x_350 = lean_ctor_get(x_24, 0); +x_351 = lean_ctor_get(x_24, 1); +lean_inc(x_351); +lean_inc(x_350); +lean_dec(x_24); +x_352 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_352, 0, x_350); +lean_ctor_set(x_352, 1, x_351); +return x_352; +} +} +} +else +{ +lean_object* x_353; lean_object* x_354; lean_object* x_355; lean_object* x_356; lean_object* x_357; lean_object* x_358; uint8_t x_359; uint8_t x_360; uint8_t x_361; uint8_t x_362; lean_object* x_363; uint8_t x_364; uint8_t x_365; lean_object* x_366; lean_object* x_367; lean_object* x_368; lean_object* x_369; lean_object* x_370; lean_object* x_371; lean_object* x_372; lean_object* x_373; +x_353 = lean_ctor_get(x_2, 0); +x_354 = lean_ctor_get(x_2, 1); +x_355 = lean_ctor_get(x_2, 2); +x_356 = lean_ctor_get(x_2, 3); +x_357 = lean_ctor_get(x_2, 4); +lean_inc(x_357); +lean_inc(x_356); +lean_inc(x_355); +lean_inc(x_354); +lean_inc(x_353); +lean_dec(x_2); +x_358 = lean_ctor_get(x_353, 0); +lean_inc(x_358); +x_359 = lean_ctor_get_uint8(x_353, sizeof(void*)*1 + 2); +x_360 = lean_ctor_get_uint8(x_353, sizeof(void*)*1 + 3); +x_361 = lean_ctor_get_uint8(x_353, sizeof(void*)*1 + 4); +x_362 = lean_ctor_get_uint8(x_353, sizeof(void*)*1 + 5); +x_363 = l___private_Init_Lean_Meta_SynthInstance_6__getMaxSteps(x_358); +x_364 = 1; +x_365 = 2; +x_366 = lean_alloc_ctor(0, 1, 7); +lean_ctor_set(x_366, 0, x_358); +lean_ctor_set_uint8(x_366, sizeof(void*)*1, x_364); +lean_ctor_set_uint8(x_366, sizeof(void*)*1 + 1, x_364); +lean_ctor_set_uint8(x_366, sizeof(void*)*1 + 2, x_359); +lean_ctor_set_uint8(x_366, sizeof(void*)*1 + 3, x_360); +lean_ctor_set_uint8(x_366, sizeof(void*)*1 + 4, x_361); +lean_ctor_set_uint8(x_366, sizeof(void*)*1 + 5, x_362); +lean_ctor_set_uint8(x_366, sizeof(void*)*1 + 6, x_365); +lean_inc(x_357); +lean_inc(x_356); +lean_inc(x_355); +lean_inc(x_354); +x_367 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_367, 0, x_366); +lean_ctor_set(x_367, 1, x_354); +lean_ctor_set(x_367, 2, x_355); +lean_ctor_set(x_367, 3, x_356); +lean_ctor_set(x_367, 4, x_357); +x_368 = l_Lean_Meta_instantiateMVars(x_1, x_367, x_3); +x_369 = lean_ctor_get(x_368, 0); +lean_inc(x_369); +x_370 = lean_ctor_get(x_368, 1); +lean_inc(x_370); +if (lean_is_exclusive(x_368)) { + lean_ctor_release(x_368, 0); + lean_ctor_release(x_368, 1); + x_371 = x_368; +} else { + lean_dec_ref(x_368); + x_371 = lean_box(0); +} +x_372 = l___private_Init_Lean_Meta_SynthInstance_2__preprocess___closed__1; +lean_inc(x_367); +x_373 = l_Lean_Meta_forallTelescopeReducing___rarg(x_369, x_372, x_367, x_370); +if (lean_obj_tag(x_373) == 0) +{ +lean_object* x_374; lean_object* x_375; lean_object* x_376; lean_object* x_377; lean_object* x_378; lean_object* x_397; lean_object* x_398; lean_object* x_399; lean_object* x_400; lean_object* x_401; lean_object* x_402; lean_object* x_403; lean_object* x_404; +x_374 = lean_ctor_get(x_373, 0); +lean_inc(x_374); +x_375 = lean_ctor_get(x_373, 1); +lean_inc(x_375); +if (lean_is_exclusive(x_373)) { + lean_ctor_release(x_373, 0); + lean_ctor_release(x_373, 1); + x_376 = x_373; +} else { + lean_dec_ref(x_373); + x_376 = lean_box(0); +} +x_397 = lean_ctor_get(x_375, 0); +lean_inc(x_397); +x_398 = lean_ctor_get(x_375, 1); +lean_inc(x_398); +x_399 = lean_ctor_get(x_375, 2); +lean_inc(x_399); +x_400 = lean_ctor_get(x_375, 3); +lean_inc(x_400); +x_401 = lean_ctor_get(x_375, 4); +lean_inc(x_401); +x_402 = lean_ctor_get(x_375, 5); +lean_inc(x_402); +x_403 = lean_ctor_get(x_399, 2); +lean_inc(x_403); +x_404 = l_PersistentHashMap_find_x3f___at_Lean_Meta_synthInstance_x3f___spec__5(x_403, x_374); +if (lean_obj_tag(x_404) == 0) +{ +lean_object* x_405; lean_object* x_406; lean_object* x_407; lean_object* x_454; lean_object* x_455; lean_object* x_465; lean_object* x_466; lean_object* x_467; +if (lean_is_exclusive(x_375)) { + lean_ctor_release(x_375, 0); + lean_ctor_release(x_375, 1); + lean_ctor_release(x_375, 2); + lean_ctor_release(x_375, 3); + lean_ctor_release(x_375, 4); + lean_ctor_release(x_375, 5); + x_405 = x_375; +} else { + lean_dec_ref(x_375); + x_405 = lean_box(0); +} +lean_inc(x_398); +x_465 = l_Lean_MetavarContext_incDepth(x_398); +if (lean_is_scalar(x_405)) { + x_466 = lean_alloc_ctor(0, 6, 0); +} else { + x_466 = x_405; +} +lean_ctor_set(x_466, 0, x_397); +lean_ctor_set(x_466, 1, x_465); +lean_ctor_set(x_466, 2, x_399); +lean_ctor_set(x_466, 3, x_400); +lean_ctor_set(x_466, 4, x_401); +lean_ctor_set(x_466, 5, x_402); +lean_inc(x_367); +lean_inc(x_374); +x_467 = l___private_Init_Lean_Meta_SynthInstance_5__preprocessOutParam(x_374, x_367, x_466); +if (lean_obj_tag(x_467) == 0) +{ +lean_object* x_468; lean_object* x_469; lean_object* x_470; lean_object* x_505; uint8_t x_506; +x_468 = lean_ctor_get(x_467, 0); +lean_inc(x_468); +x_469 = lean_ctor_get(x_467, 1); +lean_inc(x_469); +lean_dec(x_467); +x_505 = lean_ctor_get(x_469, 4); +lean_inc(x_505); +x_506 = lean_ctor_get_uint8(x_505, sizeof(void*)*1); +lean_dec(x_505); +if (x_506 == 0) +{ +x_470 = x_469; +goto block_504; +} +else +{ +lean_object* x_507; lean_object* x_508; lean_object* x_509; uint8_t x_510; +x_507 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; +x_508 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_507, x_367, x_469); +x_509 = lean_ctor_get(x_508, 0); +lean_inc(x_509); +x_510 = lean_unbox(x_509); +lean_dec(x_509); +if (x_510 == 0) +{ +lean_object* x_511; +x_511 = lean_ctor_get(x_508, 1); +lean_inc(x_511); +lean_dec(x_508); +x_470 = x_511; +goto block_504; +} +else +{ +lean_object* x_512; lean_object* x_513; lean_object* x_514; lean_object* x_515; lean_object* x_516; lean_object* x_517; lean_object* x_518; lean_object* x_519; +x_512 = lean_ctor_get(x_508, 1); +lean_inc(x_512); +lean_dec(x_508); +lean_inc(x_374); +x_513 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_513, 0, x_374); +x_514 = l_Lean_Meta_synthInstance_x3f___closed__9; +x_515 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_515, 0, x_513); +lean_ctor_set(x_515, 1, x_514); +lean_inc(x_468); +x_516 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_516, 0, x_468); +x_517 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_517, 0, x_515); +lean_ctor_set(x_517, 1, x_516); +x_518 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_507, x_517, x_367, x_512); +x_519 = lean_ctor_get(x_518, 1); +lean_inc(x_519); +lean_dec(x_518); +x_470 = x_519; +goto block_504; +} +} +block_504: +{ +lean_object* x_471; +lean_inc(x_367); +x_471 = l_Lean_Meta_SynthInstance_main(x_468, x_363, x_367, x_470); +if (lean_obj_tag(x_471) == 0) +{ +lean_object* x_472; +lean_dec(x_371); +x_472 = lean_ctor_get(x_471, 0); +lean_inc(x_472); +if (lean_obj_tag(x_472) == 0) +{ +lean_object* x_473; +x_473 = lean_ctor_get(x_471, 1); +lean_inc(x_473); +lean_dec(x_471); +x_406 = x_472; +x_407 = x_473; +goto block_453; +} +else +{ +lean_object* x_474; lean_object* x_475; lean_object* x_476; lean_object* x_477; lean_object* x_489; uint8_t x_490; +x_474 = lean_ctor_get(x_471, 1); +lean_inc(x_474); +lean_dec(x_471); +x_475 = lean_ctor_get(x_472, 0); +lean_inc(x_475); +if (lean_is_exclusive(x_472)) { + lean_ctor_release(x_472, 0); + x_476 = x_472; +} else { + lean_dec_ref(x_472); + x_476 = lean_box(0); +} +x_489 = lean_ctor_get(x_474, 4); +lean_inc(x_489); +x_490 = lean_ctor_get_uint8(x_489, sizeof(void*)*1); +lean_dec(x_489); +if (x_490 == 0) +{ +x_477 = x_474; +goto block_488; +} +else +{ +lean_object* x_491; lean_object* x_492; lean_object* x_493; uint8_t x_494; +x_491 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; +x_492 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_491, x_367, x_474); +x_493 = lean_ctor_get(x_492, 0); +lean_inc(x_493); +x_494 = lean_unbox(x_493); +lean_dec(x_493); +if (x_494 == 0) +{ +lean_object* x_495; +x_495 = lean_ctor_get(x_492, 1); +lean_inc(x_495); +lean_dec(x_492); +x_477 = x_495; +goto block_488; +} +else +{ +lean_object* x_496; lean_object* x_497; lean_object* x_498; lean_object* x_499; lean_object* x_500; lean_object* x_501; +x_496 = lean_ctor_get(x_492, 1); +lean_inc(x_496); +lean_dec(x_492); +lean_inc(x_475); +x_497 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_497, 0, x_475); +x_498 = l_Lean_Meta_synthInstance_x3f___closed__6; +x_499 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_499, 0, x_498); +lean_ctor_set(x_499, 1, x_497); +x_500 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_491, x_499, x_367, x_496); +x_501 = lean_ctor_get(x_500, 1); +lean_inc(x_501); +lean_dec(x_500); +x_477 = x_501; +goto block_488; +} +} +block_488: +{ +lean_object* x_478; lean_object* x_479; lean_object* x_480; lean_object* x_481; lean_object* x_482; uint8_t x_483; +x_478 = l_Lean_Meta_instantiateMVars(x_475, x_367, x_477); +x_479 = lean_ctor_get(x_478, 0); +lean_inc(x_479); +x_480 = lean_ctor_get(x_478, 1); +lean_inc(x_480); +lean_dec(x_478); +x_481 = l_Lean_Meta_hasAssignableMVar(x_479, x_367, x_480); +x_482 = lean_ctor_get(x_481, 0); +lean_inc(x_482); +x_483 = lean_unbox(x_482); +lean_dec(x_482); +if (x_483 == 0) +{ +lean_object* x_484; lean_object* x_485; +x_484 = lean_ctor_get(x_481, 1); +lean_inc(x_484); +lean_dec(x_481); +if (lean_is_scalar(x_476)) { + x_485 = lean_alloc_ctor(1, 1, 0); +} else { + x_485 = x_476; +} +lean_ctor_set(x_485, 0, x_479); +x_406 = x_485; +x_407 = x_484; +goto block_453; +} +else +{ +lean_object* x_486; lean_object* x_487; +lean_dec(x_479); +lean_dec(x_476); +x_486 = lean_ctor_get(x_481, 1); +lean_inc(x_486); +lean_dec(x_481); +x_487 = lean_box(0); +x_406 = x_487; +x_407 = x_486; +goto block_453; +} +} +} +} +else +{ +lean_object* x_502; lean_object* x_503; +lean_dec(x_376); +lean_dec(x_374); +lean_dec(x_367); +lean_dec(x_357); +lean_dec(x_356); +lean_dec(x_355); +lean_dec(x_354); +lean_dec(x_353); +x_502 = lean_ctor_get(x_471, 0); +lean_inc(x_502); +x_503 = lean_ctor_get(x_471, 1); +lean_inc(x_503); +lean_dec(x_471); +x_454 = x_502; +x_455 = x_503; +goto block_464; +} +} +} +else +{ +lean_object* x_520; lean_object* x_521; +lean_dec(x_376); +lean_dec(x_374); +lean_dec(x_367); +lean_dec(x_363); +lean_dec(x_357); +lean_dec(x_356); +lean_dec(x_355); +lean_dec(x_354); +lean_dec(x_353); +x_520 = lean_ctor_get(x_467, 0); +lean_inc(x_520); +x_521 = lean_ctor_get(x_467, 1); +lean_inc(x_521); +lean_dec(x_467); +x_454 = x_520; +x_455 = x_521; +goto block_464; +} +block_453: +{ +lean_object* x_408; lean_object* x_409; lean_object* x_410; lean_object* x_411; lean_object* x_412; lean_object* x_413; lean_object* x_414; +x_408 = lean_ctor_get(x_407, 0); +lean_inc(x_408); +x_409 = lean_ctor_get(x_407, 2); +lean_inc(x_409); +x_410 = lean_ctor_get(x_407, 3); +lean_inc(x_410); +x_411 = lean_ctor_get(x_407, 4); +lean_inc(x_411); +x_412 = lean_ctor_get(x_407, 5); +lean_inc(x_412); +if (lean_is_exclusive(x_407)) { + lean_ctor_release(x_407, 0); + lean_ctor_release(x_407, 1); + lean_ctor_release(x_407, 2); + lean_ctor_release(x_407, 3); + lean_ctor_release(x_407, 4); + lean_ctor_release(x_407, 5); + x_413 = x_407; +} else { + lean_dec_ref(x_407); + x_413 = lean_box(0); +} +lean_inc(x_411); +if (lean_is_scalar(x_413)) { + x_414 = lean_alloc_ctor(0, 6, 0); +} else { + x_414 = x_413; +} +lean_ctor_set(x_414, 0, x_408); +lean_ctor_set(x_414, 1, x_398); +lean_ctor_set(x_414, 2, x_409); +lean_ctor_set(x_414, 3, x_410); +lean_ctor_set(x_414, 4, x_411); +lean_ctor_set(x_414, 5, x_412); +if (lean_obj_tag(x_406) == 0) +{ +lean_dec(x_411); +lean_dec(x_367); +lean_dec(x_357); +lean_dec(x_356); +lean_dec(x_355); +lean_dec(x_354); +lean_dec(x_353); +x_377 = x_406; +x_378 = x_414; +goto block_396; +} +else +{ +lean_object* x_415; lean_object* x_416; lean_object* x_417; uint8_t x_441; +x_415 = lean_ctor_get(x_406, 0); +lean_inc(x_415); +if (lean_is_exclusive(x_406)) { + lean_ctor_release(x_406, 0); + x_416 = x_406; +} else { + lean_dec_ref(x_406); + x_416 = lean_box(0); +} +x_441 = lean_ctor_get_uint8(x_411, sizeof(void*)*1); +lean_dec(x_411); +if (x_441 == 0) +{ +x_417 = x_414; +goto block_440; +} +else +{ +lean_object* x_442; lean_object* x_443; lean_object* x_444; uint8_t x_445; +x_442 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; +x_443 = l___private_Init_Lean_Util_Trace_5__checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___main___spec__2(x_442, x_367, x_414); +x_444 = lean_ctor_get(x_443, 0); +lean_inc(x_444); +x_445 = lean_unbox(x_444); +lean_dec(x_444); +if (x_445 == 0) +{ +lean_object* x_446; +x_446 = lean_ctor_get(x_443, 1); +lean_inc(x_446); +lean_dec(x_443); +x_417 = x_446; +goto block_440; +} +else +{ +lean_object* x_447; lean_object* x_448; lean_object* x_449; lean_object* x_450; lean_object* x_451; lean_object* x_452; +x_447 = lean_ctor_get(x_443, 1); +lean_inc(x_447); +lean_dec(x_443); +lean_inc(x_415); +x_448 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_448, 0, x_415); +x_449 = l_Lean_Meta_synthInstance_x3f___closed__3; +x_450 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_450, 0, x_449); +lean_ctor_set(x_450, 1, x_448); +x_451 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_isLevelDefEqAux___main___spec__1(x_442, x_450, x_367, x_447); +x_452 = lean_ctor_get(x_451, 1); +lean_inc(x_452); +lean_dec(x_451); +x_417 = x_452; +goto block_440; +} +} +block_440: +{ +lean_object* x_418; +lean_inc(x_367); +lean_inc(x_415); +x_418 = l_Lean_Meta_inferType(x_415, x_367, x_417); +if (lean_obj_tag(x_418) == 0) +{ +lean_object* x_419; lean_object* x_420; lean_object* x_421; lean_object* x_422; +x_419 = lean_ctor_get(x_418, 0); +lean_inc(x_419); +x_420 = lean_ctor_get(x_418, 1); +lean_inc(x_420); +lean_dec(x_418); +x_421 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_421, 0, x_353); +lean_ctor_set(x_421, 1, x_354); +lean_ctor_set(x_421, 2, x_355); +lean_ctor_set(x_421, 3, x_356); +lean_ctor_set(x_421, 4, x_357); +lean_inc(x_374); +x_422 = l_Lean_Meta_isExprDefEq(x_374, x_419, x_421, x_420); +if (lean_obj_tag(x_422) == 0) +{ +lean_object* x_423; uint8_t x_424; +x_423 = lean_ctor_get(x_422, 0); +lean_inc(x_423); +x_424 = lean_unbox(x_423); +lean_dec(x_423); +if (x_424 == 0) +{ +lean_object* x_425; lean_object* x_426; +lean_dec(x_416); +lean_dec(x_415); +lean_dec(x_367); +x_425 = lean_ctor_get(x_422, 1); +lean_inc(x_425); +lean_dec(x_422); +x_426 = lean_box(0); +x_377 = x_426; +x_378 = x_425; +goto block_396; +} +else +{ +lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; lean_object* x_431; +x_427 = lean_ctor_get(x_422, 1); +lean_inc(x_427); +lean_dec(x_422); +x_428 = l_Lean_Meta_instantiateMVars(x_415, x_367, x_427); +lean_dec(x_367); +x_429 = lean_ctor_get(x_428, 0); +lean_inc(x_429); +x_430 = lean_ctor_get(x_428, 1); +lean_inc(x_430); +lean_dec(x_428); +if (lean_is_scalar(x_416)) { + x_431 = lean_alloc_ctor(1, 1, 0); +} else { + x_431 = x_416; +} +lean_ctor_set(x_431, 0, x_429); +x_377 = x_431; +x_378 = x_430; +goto block_396; +} +} +else +{ +lean_object* x_432; lean_object* x_433; lean_object* x_434; lean_object* x_435; +lean_dec(x_416); +lean_dec(x_415); +lean_dec(x_376); +lean_dec(x_374); +lean_dec(x_367); +x_432 = lean_ctor_get(x_422, 0); +lean_inc(x_432); +x_433 = lean_ctor_get(x_422, 1); +lean_inc(x_433); +if (lean_is_exclusive(x_422)) { + lean_ctor_release(x_422, 0); + lean_ctor_release(x_422, 1); + x_434 = x_422; +} else { + lean_dec_ref(x_422); + x_434 = lean_box(0); +} +if (lean_is_scalar(x_434)) { + x_435 = lean_alloc_ctor(1, 2, 0); +} else { + x_435 = x_434; +} +lean_ctor_set(x_435, 0, x_432); +lean_ctor_set(x_435, 1, x_433); +return x_435; +} +} +else +{ +lean_object* x_436; lean_object* x_437; lean_object* x_438; lean_object* x_439; +lean_dec(x_416); +lean_dec(x_415); +lean_dec(x_376); +lean_dec(x_374); +lean_dec(x_367); +lean_dec(x_357); +lean_dec(x_356); +lean_dec(x_355); +lean_dec(x_354); +lean_dec(x_353); +x_436 = lean_ctor_get(x_418, 0); +lean_inc(x_436); +x_437 = lean_ctor_get(x_418, 1); +lean_inc(x_437); +if (lean_is_exclusive(x_418)) { + lean_ctor_release(x_418, 0); + lean_ctor_release(x_418, 1); + x_438 = x_418; +} else { + lean_dec_ref(x_418); + x_438 = lean_box(0); +} +if (lean_is_scalar(x_438)) { + x_439 = lean_alloc_ctor(1, 2, 0); +} else { + x_439 = x_438; +} +lean_ctor_set(x_439, 0, x_436); +lean_ctor_set(x_439, 1, x_437); +return x_439; +} +} +} +} +block_464: +{ +lean_object* x_456; lean_object* x_457; lean_object* x_458; lean_object* x_459; lean_object* x_460; lean_object* x_461; lean_object* x_462; lean_object* x_463; +x_456 = lean_ctor_get(x_455, 0); +lean_inc(x_456); +x_457 = lean_ctor_get(x_455, 2); +lean_inc(x_457); +x_458 = lean_ctor_get(x_455, 3); +lean_inc(x_458); +x_459 = lean_ctor_get(x_455, 4); +lean_inc(x_459); +x_460 = lean_ctor_get(x_455, 5); +lean_inc(x_460); +if (lean_is_exclusive(x_455)) { + lean_ctor_release(x_455, 0); + lean_ctor_release(x_455, 1); + lean_ctor_release(x_455, 2); + lean_ctor_release(x_455, 3); + lean_ctor_release(x_455, 4); + lean_ctor_release(x_455, 5); + x_461 = x_455; +} else { + lean_dec_ref(x_455); + x_461 = lean_box(0); +} +if (lean_is_scalar(x_461)) { + x_462 = lean_alloc_ctor(0, 6, 0); +} else { + x_462 = x_461; +} +lean_ctor_set(x_462, 0, x_456); +lean_ctor_set(x_462, 1, x_398); +lean_ctor_set(x_462, 2, x_457); +lean_ctor_set(x_462, 3, x_458); +lean_ctor_set(x_462, 4, x_459); +lean_ctor_set(x_462, 5, x_460); +if (lean_is_scalar(x_371)) { + x_463 = lean_alloc_ctor(1, 2, 0); +} else { + x_463 = x_371; + lean_ctor_set_tag(x_463, 1); +} +lean_ctor_set(x_463, 0, x_454); +lean_ctor_set(x_463, 1, x_462); +return x_463; +} +} +else +{ +lean_object* x_522; lean_object* x_523; +lean_dec(x_402); +lean_dec(x_401); +lean_dec(x_400); +lean_dec(x_399); +lean_dec(x_398); +lean_dec(x_397); +lean_dec(x_376); +lean_dec(x_374); +lean_dec(x_367); +lean_dec(x_363); +lean_dec(x_357); +lean_dec(x_356); +lean_dec(x_355); +lean_dec(x_354); +lean_dec(x_353); +x_522 = lean_ctor_get(x_404, 0); +lean_inc(x_522); +lean_dec(x_404); +if (lean_is_scalar(x_371)) { + x_523 = lean_alloc_ctor(0, 2, 0); +} else { + x_523 = x_371; +} +lean_ctor_set(x_523, 0, x_522); +lean_ctor_set(x_523, 1, x_375); +return x_523; +} +block_396: +{ +uint8_t x_379; +x_379 = l_Lean_Expr_hasMVar(x_374); +if (x_379 == 0) +{ +lean_object* x_380; lean_object* x_381; lean_object* x_382; lean_object* x_383; lean_object* x_384; lean_object* x_385; lean_object* x_386; lean_object* x_387; lean_object* x_388; lean_object* x_389; lean_object* x_390; lean_object* x_391; lean_object* x_392; lean_object* x_393; lean_object* x_394; +x_380 = lean_ctor_get(x_378, 2); +lean_inc(x_380); +x_381 = lean_ctor_get(x_378, 0); +lean_inc(x_381); +x_382 = lean_ctor_get(x_378, 1); +lean_inc(x_382); +x_383 = lean_ctor_get(x_378, 3); +lean_inc(x_383); +x_384 = lean_ctor_get(x_378, 4); +lean_inc(x_384); +x_385 = lean_ctor_get(x_378, 5); +lean_inc(x_385); +if (lean_is_exclusive(x_378)) { + lean_ctor_release(x_378, 0); + lean_ctor_release(x_378, 1); + lean_ctor_release(x_378, 2); + lean_ctor_release(x_378, 3); + lean_ctor_release(x_378, 4); + lean_ctor_release(x_378, 5); + x_386 = x_378; +} else { + lean_dec_ref(x_378); + x_386 = lean_box(0); +} +x_387 = lean_ctor_get(x_380, 0); +lean_inc(x_387); +x_388 = lean_ctor_get(x_380, 1); +lean_inc(x_388); +x_389 = lean_ctor_get(x_380, 2); +lean_inc(x_389); +if (lean_is_exclusive(x_380)) { + lean_ctor_release(x_380, 0); + lean_ctor_release(x_380, 1); + lean_ctor_release(x_380, 2); + x_390 = x_380; +} else { + lean_dec_ref(x_380); + x_390 = lean_box(0); +} +lean_inc(x_377); +x_391 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance_x3f___spec__1(x_389, x_374, x_377); +if (lean_is_scalar(x_390)) { + x_392 = lean_alloc_ctor(0, 3, 0); +} else { + x_392 = x_390; +} +lean_ctor_set(x_392, 0, x_387); +lean_ctor_set(x_392, 1, x_388); +lean_ctor_set(x_392, 2, x_391); +if (lean_is_scalar(x_386)) { + x_393 = lean_alloc_ctor(0, 6, 0); +} else { + x_393 = x_386; +} +lean_ctor_set(x_393, 0, x_381); +lean_ctor_set(x_393, 1, x_382); +lean_ctor_set(x_393, 2, x_392); +lean_ctor_set(x_393, 3, x_383); +lean_ctor_set(x_393, 4, x_384); +lean_ctor_set(x_393, 5, x_385); +if (lean_is_scalar(x_376)) { + x_394 = lean_alloc_ctor(0, 2, 0); +} else { + x_394 = x_376; +} +lean_ctor_set(x_394, 0, x_377); +lean_ctor_set(x_394, 1, x_393); +return x_394; +} +else +{ +lean_object* x_395; +lean_dec(x_374); +if (lean_is_scalar(x_376)) { + x_395 = lean_alloc_ctor(0, 2, 0); +} else { + x_395 = x_376; +} +lean_ctor_set(x_395, 0, x_377); +lean_ctor_set(x_395, 1, x_378); +return x_395; +} +} +} +else +{ +lean_object* x_524; lean_object* x_525; lean_object* x_526; lean_object* x_527; +lean_dec(x_371); +lean_dec(x_367); +lean_dec(x_363); +lean_dec(x_357); +lean_dec(x_356); +lean_dec(x_355); +lean_dec(x_354); +lean_dec(x_353); +x_524 = lean_ctor_get(x_373, 0); +lean_inc(x_524); +x_525 = lean_ctor_get(x_373, 1); +lean_inc(x_525); +if (lean_is_exclusive(x_373)) { + lean_ctor_release(x_373, 0); + lean_ctor_release(x_373, 1); + x_526 = x_373; +} else { + lean_dec_ref(x_373); + x_526 = lean_box(0); +} +if (lean_is_scalar(x_526)) { + x_527 = lean_alloc_ctor(1, 2, 0); +} else { + x_527 = x_526; +} +lean_ctor_set(x_527, 0, x_524); +lean_ctor_set(x_527, 1, x_525); +return x_527; +} +} +} +} +lean_object* l_Array_iterateMAux___main___at_Lean_Meta_synthInstance_x3f___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { _start: { size_t x_7; lean_object* x_8; x_7 = lean_unbox_usize(x_1); lean_dec(x_1); -x_8 = l_Array_iterateMAux___main___at_Lean_Meta_synthInstance_x3f___spec__7(x_7, x_2, x_3, x_4, x_5, x_6); +x_8 = l_Array_iterateMAux___main___at_Lean_Meta_synthInstance_x3f___spec__4(x_7, x_2, x_3, x_4, x_5, x_6); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); return x_8; } } -lean_object* l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__2___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; size_t x_7; lean_object* x_8; @@ -22184,10 +23072,41 @@ x_6 = lean_unbox_usize(x_2); lean_dec(x_2); x_7 = lean_unbox_usize(x_3); lean_dec(x_3); -x_8 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5(x_1, x_6, x_7, x_4, x_5); +x_8 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__2(x_1, x_6, x_7, x_4, x_5); return x_8; } } +lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance_x3f___spec__7___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance_x3f___spec__7(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +return x_6; +} +} +lean_object* l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance_x3f___spec__6___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_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance_x3f___spec__6(x_1, x_4, x_3); +lean_dec(x_3); +return x_5; +} +} +lean_object* l_PersistentHashMap_find_x3f___at_Lean_Meta_synthInstance_x3f___spec__5___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_PersistentHashMap_find_x3f___at_Lean_Meta_synthInstance_x3f___spec__5(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} lean_object* l_Lean_Meta_trySynthInstance(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -23091,6 +24010,24 @@ lean_mark_persistent(l_Lean_Meta_maxStepsOption___closed__5); res = l_Lean_Meta_maxStepsOption(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +l_Lean_Meta_synthInstance_x3f___closed__1 = _init_l_Lean_Meta_synthInstance_x3f___closed__1(); +lean_mark_persistent(l_Lean_Meta_synthInstance_x3f___closed__1); +l_Lean_Meta_synthInstance_x3f___closed__2 = _init_l_Lean_Meta_synthInstance_x3f___closed__2(); +lean_mark_persistent(l_Lean_Meta_synthInstance_x3f___closed__2); +l_Lean_Meta_synthInstance_x3f___closed__3 = _init_l_Lean_Meta_synthInstance_x3f___closed__3(); +lean_mark_persistent(l_Lean_Meta_synthInstance_x3f___closed__3); +l_Lean_Meta_synthInstance_x3f___closed__4 = _init_l_Lean_Meta_synthInstance_x3f___closed__4(); +lean_mark_persistent(l_Lean_Meta_synthInstance_x3f___closed__4); +l_Lean_Meta_synthInstance_x3f___closed__5 = _init_l_Lean_Meta_synthInstance_x3f___closed__5(); +lean_mark_persistent(l_Lean_Meta_synthInstance_x3f___closed__5); +l_Lean_Meta_synthInstance_x3f___closed__6 = _init_l_Lean_Meta_synthInstance_x3f___closed__6(); +lean_mark_persistent(l_Lean_Meta_synthInstance_x3f___closed__6); +l_Lean_Meta_synthInstance_x3f___closed__7 = _init_l_Lean_Meta_synthInstance_x3f___closed__7(); +lean_mark_persistent(l_Lean_Meta_synthInstance_x3f___closed__7); +l_Lean_Meta_synthInstance_x3f___closed__8 = _init_l_Lean_Meta_synthInstance_x3f___closed__8(); +lean_mark_persistent(l_Lean_Meta_synthInstance_x3f___closed__8); +l_Lean_Meta_synthInstance_x3f___closed__9 = _init_l_Lean_Meta_synthInstance_x3f___closed__9(); +lean_mark_persistent(l_Lean_Meta_synthInstance_x3f___closed__9); res = l___private_Init_Lean_Meta_SynthInstance_7__regTraceClasses(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res);