From 223b136a9e12610dd4f293702802ea8ef10ce2de Mon Sep 17 00:00:00 2001 From: Leonardo de Moura Date: Wed, 4 Dec 2019 17:03:42 -0800 Subject: [PATCH] chore: update stage0 --- stage0/src/Init/Core.lean | 78 +- stage0/src/Init/Lean/Compiler/IR/Basic.lean | 6 +- stage0/src/Init/Lean/Compiler/IR/Format.lean | 2 +- .../Init/Lean/Compiler/IR/UnboxResult.lean | 2 +- .../src/Init/Lean/Compiler/NameMangling.lean | 2 +- stage0/src/Init/Lean/{ => Data}/Format.lean | 2 +- stage0/src/Init/Lean/{ => Data}/KVMap.lean | 2 +- stage0/src/Init/Lean/{ => Data}/LBool.lean | 0 stage0/src/Init/Lean/{ => Data}/LOption.lean | 0 stage0/src/Init/Lean/{ => Data}/Name.lean | 0 .../Init/Lean/{ => Data}/NameGenerator.lean | 2 +- stage0/src/Init/Lean/{ => Data}/Options.lean | 2 +- stage0/src/Init/Lean/{ => Data}/Position.lean | 2 +- stage0/src/Init/Lean/{ => Data}/SMap.lean | 0 .../src/Init/Lean/{Parser => Data}/Trie.lean | 2 +- stage0/src/Init/Lean/Elaborator/Basic.lean | 3 +- stage0/src/Init/Lean/Environment.lean | 2 +- stage0/src/Init/Lean/Expr.lean | 25 +- stage0/src/Init/Lean/Level.lean | 4 +- stage0/src/Init/Lean/Message.lean | 2 +- stage0/src/Init/Lean/Meta.lean | 1 + stage0/src/Init/Lean/Meta/AppBuilder.lean | 157 +- stage0/src/Init/Lean/Meta/Basic.lean | 19 +- stage0/src/Init/Lean/Meta/Exception.lean | 6 + stage0/src/Init/Lean/Meta/InferType.lean | 4 +- stage0/src/Init/Lean/Meta/Offset.lean | 6 +- stage0/src/Init/Lean/Meta/SynthInstance.lean | 16 +- stage0/src/Init/Lean/MetavarContext.lean | 4 +- stage0/src/Init/Lean/Parser/Parser.lean | 6 +- stage0/src/Init/Lean/Path.lean | 2 +- stage0/src/Init/Lean/Syntax.lean | 4 +- stage0/src/Init/Lean/ToExpr.lean | 4 +- stage0/src/Init/Lean/Util.lean | 2 +- stage0/src/Init/WF.lean | 4 +- stage0/stdlib/CMakeLists.txt | 2 +- stage0/stdlib/Init/Lean/Compiler/IR/Basic.c | 14 +- .../Init/Lean/Compiler/IR/ElimDeadBranches.c | 6 +- stage0/stdlib/Init/Lean/Compiler/IR/Format.c | 28 +- .../Init/Lean/Compiler/IR/UnboxResult.c | 6 +- .../stdlib/Init/Lean/Compiler/NameMangling.c | 6 +- stage0/stdlib/Init/Lean/Data/Format.c | 3629 ++++++ stage0/stdlib/Init/Lean/{ => Data}/KVMap.c | 14 +- stage0/stdlib/Init/Lean/{ => Data}/LBool.c | 4 +- stage0/stdlib/Init/Lean/{ => Data}/LOption.c | 4 +- stage0/stdlib/Init/Lean/Data/Name.c | 9113 +++++++++++++ stage0/stdlib/Init/Lean/Data/NameGenerator.c | 184 + stage0/stdlib/Init/Lean/Data/Options.c | 1056 ++ stage0/stdlib/Init/Lean/Data/Position.c | 634 + stage0/stdlib/Init/Lean/{ => Data}/SMap.c | 6 +- stage0/stdlib/Init/Lean/Data/Trie.c | 10829 ++++++++++++++++ stage0/stdlib/Init/Lean/Elaborator/Basic.c | 108 +- stage0/stdlib/Init/Lean/Environment.c | 8 +- stage0/stdlib/Init/Lean/Expr.c | 205 +- stage0/stdlib/Init/Lean/Level.c | 10 +- stage0/stdlib/Init/Lean/Message.c | 6 +- stage0/stdlib/Init/Lean/Meta.c | 6 +- stage0/stdlib/Init/Lean/Meta/AppBuilder.c | 6750 +++++++++- stage0/stdlib/Init/Lean/Meta/Basic.c | 105 +- stage0/stdlib/Init/Lean/Meta/Exception.c | 247 +- stage0/stdlib/Init/Lean/Meta/InferType.c | 8 +- stage0/stdlib/Init/Lean/Meta/Offset.c | 30 +- stage0/stdlib/Init/Lean/Meta/SynthInstance.c | 730 +- stage0/stdlib/Init/Lean/MetavarContext.c | 14 +- stage0/stdlib/Init/Lean/NameGenerator.c | 6 +- stage0/stdlib/Init/Lean/Options.c | 6 +- stage0/stdlib/Init/Lean/Parser/Parser.c | 136 +- stage0/stdlib/Init/Lean/Parser/Trie.c | 6 +- stage0/stdlib/Init/Lean/Path.c | 10 +- stage0/stdlib/Init/Lean/Position.c | 6 +- stage0/stdlib/Init/Lean/Syntax.c | 18 +- stage0/stdlib/Init/Lean/ToExpr.c | 48 +- stage0/stdlib/Init/Lean/Util.c | 6 +- 72 files changed, 33574 insertions(+), 803 deletions(-) rename stage0/src/Init/Lean/{ => Data}/Format.lean (99%) rename stage0/src/Init/Lean/{ => Data}/KVMap.lean (99%) rename stage0/src/Init/Lean/{ => Data}/LBool.lean (100%) rename stage0/src/Init/Lean/{ => Data}/LOption.lean (100%) rename stage0/src/Init/Lean/{ => Data}/Name.lean (100%) rename stage0/src/Init/Lean/{ => Data}/NameGenerator.lean (96%) rename stage0/src/Init/Lean/{ => Data}/Options.lean (98%) rename stage0/src/Init/Lean/{ => Data}/Position.lean (98%) rename stage0/src/Init/Lean/{ => Data}/SMap.lean (100%) rename stage0/src/Init/Lean/{Parser => Data}/Trie.lean (98%) create mode 100644 stage0/stdlib/Init/Lean/Data/Format.c rename stage0/stdlib/Init/Lean/{ => Data}/KVMap.c (99%) rename stage0/stdlib/Init/Lean/{ => Data}/LBool.c (98%) rename stage0/stdlib/Init/Lean/{ => Data}/LOption.c (98%) create mode 100644 stage0/stdlib/Init/Lean/Data/Name.c create mode 100644 stage0/stdlib/Init/Lean/Data/NameGenerator.c create mode 100644 stage0/stdlib/Init/Lean/Data/Options.c create mode 100644 stage0/stdlib/Init/Lean/Data/Position.c rename stage0/stdlib/Init/Lean/{ => Data}/SMap.c (99%) create mode 100644 stage0/stdlib/Init/Lean/Data/Trie.c diff --git a/stage0/src/Init/Core.lean b/stage0/src/Init/Core.lean index 42c7db1efa..5058da03a6 100644 --- a/stage0/src/Init/Core.lean +++ b/stage0/src/Init/Core.lean @@ -50,7 +50,7 @@ reserve infix ` ≤ `:50 reserve infix ` < `:50 reserve infix ` >= `:50 reserve infix ` ≥ `:50 -reserve infix ` > `:50 + reserve infix ` > `:50 /- boolean operations -/ @@ -205,8 +205,8 @@ constant Quot.ind {α : Sort u} {r : α → α → Prop} {β : Quot r → Prop} -/ init_quot -inductive Heq {α : Sort u} (a : α) : ∀ {β : Sort u}, β → Prop -| refl : Heq a +inductive HEq {α : Sort u} (a : α) : ∀ {β : Sort u}, β → Prop +| refl : HEq a structure Prod (α : Type u) (β : Type v) := (fst : α) (snd : β) @@ -242,14 +242,14 @@ h₂ ▸ h₁ theorem Eq.symm {α : Sort u} {a b : α} (h : a = b) : b = a := h ▸ rfl -infix `~=` := Heq -infix `≅` := Heq +infix `~=` := HEq +infix `≅` := HEq -@[matchPattern] def Heq.rfl {α : Sort u} {a : α} : a ≅ a := Heq.refl a +@[matchPattern] def HEq.rfl {α : Sort u} {a : α} : a ≅ a := HEq.refl a -theorem eqOfHeq {α : Sort u} {a a' : α} (h : a ≅ a') : a = a' := -have ∀ (α' : Sort u) (a' : α') (h₁ : @Heq α a α' a') (h₂ : α = α'), (Eq.recOn h₂ a : α') = a' := - fun (α' : Sort u) (a' : α') (h₁ : @Heq α a α' a') => Heq.recOn h₁ (fun (h₂ : α = α) => rfl); +theorem eqOfHEq {α : Sort u} {a a' : α} (h : a ≅ a') : a = a' := +have ∀ (α' : Sort u) (a' : α') (h₁ : @HEq α a α' a') (h₂ : α = α'), (Eq.recOn h₂ a : α') = a' := + fun (α' : Sort u) (a' : α') (h₁ : @HEq α a α' a') => HEq.recOn h₁ (fun (h₂ : α = α) => rfl); show (Eq.ndrecOn (Eq.refl α) a : α) = a' from this α a' h (Eq.refl α) @@ -659,10 +659,10 @@ fun h₁ => h (h₁.symm) theorem falseOfNe : a ≠ a → False := Ne.irrefl theorem neFalseOfSelf : p → p ≠ False := -fun (hp : p) (Heq : p = False) => Heq ▸ hp +fun (hp : p) (h : p = False) => h ▸ hp theorem neTrueOfNot : ¬p → p ≠ True := -fun (hnp : ¬p) (Heq : p = True) => (Heq ▸ hnp) trivial +fun (hnp : ¬p) (h : p = True) => (h ▸ hnp) trivial theorem trueNeFalse : ¬True = False := neFalseOfSelf trivial @@ -680,46 +680,46 @@ section variables {α β φ : Sort u} {a a' : α} {b b' : β} {c : φ} @[elabAsEliminator] -theorem Heq.ndrec.{u1, u2} {α : Sort u2} {a : α} {C : ∀ {β : Sort u2}, β → Sort u1} (m : C a) {β : Sort u2} {b : β} (h : a ≅ b) : C b := -@Heq.rec α a (fun β b _ => C b) m β b h +theorem HEq.ndrec.{u1, u2} {α : Sort u2} {a : α} {C : ∀ {β : Sort u2}, β → Sort u1} (m : C a) {β : Sort u2} {b : β} (h : a ≅ b) : C b := +@HEq.rec α a (fun β b _ => C b) m β b h @[elabAsEliminator] -theorem Heq.ndrecOn.{u1, u2} {α : Sort u2} {a : α} {C : ∀ {β : Sort u2}, β → Sort u1} {β : Sort u2} {b : β} (h : a ≅ b) (m : C a) : C b := -@Heq.rec α a (fun β b _ => C b) m β b h +theorem HEq.ndrecOn.{u1, u2} {α : Sort u2} {a : α} {C : ∀ {β : Sort u2}, β → Sort u1} {β : Sort u2} {b : β} (h : a ≅ b) (m : C a) : C b := +@HEq.rec α a (fun β b _ => C b) m β b h -theorem Heq.elim {α : Sort u} {a : α} {p : α → Sort v} {b : α} (h₁ : a ≅ b) (h₂ : p a) : p b := -Eq.recOn (eqOfHeq h₁) h₂ +theorem HEq.elim {α : Sort u} {a : α} {p : α → Sort v} {b : α} (h₁ : a ≅ b) (h₂ : p a) : p b := +Eq.recOn (eqOfHEq h₁) h₂ -theorem Heq.subst {p : ∀ (T : Sort u), T → Prop} (h₁ : a ≅ b) (h₂ : p α a) : p β b := -Heq.ndrecOn h₁ h₂ +theorem HEq.subst {p : ∀ (T : Sort u), T → Prop} (h₁ : a ≅ b) (h₂ : p α a) : p β b := +HEq.ndrecOn h₁ h₂ -theorem Heq.symm (h : a ≅ b) : b ≅ a := -Heq.ndrecOn h (Heq.refl a) +theorem HEq.symm (h : a ≅ b) : b ≅ a := +HEq.ndrecOn h (HEq.refl a) theorem heqOfEq (h : a = a') : a ≅ a' := -Eq.subst h (Heq.refl a) +Eq.subst h (HEq.refl a) -theorem Heq.trans (h₁ : a ≅ b) (h₂ : b ≅ c) : a ≅ c := -Heq.subst h₂ h₁ +theorem HEq.trans (h₁ : a ≅ b) (h₂ : b ≅ c) : a ≅ c := +HEq.subst h₂ h₁ -theorem heqOfHeqOfEq (h₁ : a ≅ b) (h₂ : b = b') : a ≅ b' := -Heq.trans h₁ (heqOfEq h₂) +theorem heqOfHEqOfEq (h₁ : a ≅ b) (h₂ : b = b') : a ≅ b' := +HEq.trans h₁ (heqOfEq h₂) -theorem heqOfEqOfHeq (h₁ : a = a') (h₂ : a' ≅ b) : a ≅ b := -Heq.trans (heqOfEq h₁) h₂ +theorem heqOfEqOfHEq (h₁ : a = a') (h₂ : a' ≅ b) : a ≅ b := +HEq.trans (heqOfEq h₁) h₂ -def typeEqOfHeq (h : a ≅ b) : α = β := -Heq.ndrecOn h (Eq.refl α) +def typeEqOfHEq (h : a ≅ b) : α = β := +HEq.ndrecOn h (Eq.refl α) end -theorem eqRecHeq {α : Sort u} {φ : α → Sort v} : ∀ {a a' : α} (h : a = a') (p : φ a), (Eq.recOn h p : φ a') ≅ p -| a, _, rfl, p => Heq.refl p +theorem eqRecHEq {α : Sort u} {φ : α → Sort v} : ∀ {a a' : α} (h : a = a') (p : φ a), (Eq.recOn h p : φ a') ≅ p +| a, _, rfl, p => HEq.refl p -theorem ofHeqTrue {a : Prop} (h : a ≅ True) : a := -ofEqTrue (eqOfHeq h) +theorem ofHEqTrue {a : Prop} (h : a ≅ True) : a := +ofEqTrue (eqOfHEq h) -theorem castHeq : ∀ {α β : Sort u} (h : α = β) (a : α), cast h a ≅ a -| α, _, rfl, a => Heq.refl a +theorem castHEq : ∀ {α β : Sort u} (h : α = β) (a : α), cast h a ≅ a +| α, _, rfl, a => HEq.refl a variables {a b c d : Prop} @@ -1385,9 +1385,9 @@ Quot.rec f (fun a b h => Subsingleton.elim _ (f b)) q protected def hrecOn (q : Quot r) (f : ∀ a, β (Quot.mk r a)) (c : ∀ (a b : α) (p : r a b), f a ≅ f b) : β q := Quot.recOn q f $ - fun a b p => eqOfHeq $ - have p₁ : (Eq.rec (f a) (sound p) : β (Quot.mk r b)) ≅ f a := eqRecHeq (sound p) (f a); - Heq.trans p₁ (c a b p) + fun a b p => eqOfHEq $ + have p₁ : (Eq.rec (f a) (sound p) : β (Quot.mk r b)) ≅ f a := eqRecHEq (sound p) (f a); + HEq.trans p₁ (c a b p) end end Quot diff --git a/stage0/src/Init/Lean/Compiler/IR/Basic.lean b/stage0/src/Init/Lean/Compiler/IR/Basic.lean index cb6ad1bb26..549e31b39c 100644 --- a/stage0/src/Init/Lean/Compiler/IR/Basic.lean +++ b/stage0/src/Init/Lean/Compiler/IR/Basic.lean @@ -5,9 +5,9 @@ Authors: Leonardo de Moura -/ prelude import Init.Data.Array -import Init.Lean.Name -import Init.Lean.KVMap -import Init.Lean.Format +import Init.Lean.Data.KVMap +import Init.Lean.Data.Name +import Init.Lean.Data.Format import Init.Lean.Compiler.ExternAttr /- Implements (extended) λPure and λRc proposed in the article diff --git a/stage0/src/Init/Lean/Compiler/IR/Format.lean b/stage0/src/Init/Lean/Compiler/IR/Format.lean index fcc0ed2530..9786052b0d 100644 --- a/stage0/src/Init/Lean/Compiler/IR/Format.lean +++ b/stage0/src/Init/Lean/Compiler/IR/Format.lean @@ -4,8 +4,8 @@ Released under Apache 2.0 license as described in the file LICENSE. Authors: Leonardo de Moura -/ prelude +import Init.Lean.Data.Format import Init.Lean.Compiler.IR.Basic -import Init.Lean.Format namespace Lean namespace IR diff --git a/stage0/src/Init/Lean/Compiler/IR/UnboxResult.lean b/stage0/src/Init/Lean/Compiler/IR/UnboxResult.lean index 63054ebae2..66b08a0662 100644 --- a/stage0/src/Init/Lean/Compiler/IR/UnboxResult.lean +++ b/stage0/src/Init/Lean/Compiler/IR/UnboxResult.lean @@ -4,7 +4,7 @@ Released under Apache 2.0 license as described in the file LICENSE. Authors: Leonardo de Moura -/ prelude -import Init.Lean.Format +import Init.Lean.Data.Format import Init.Lean.Compiler.IR.Basic import Init.Lean.Compiler.IR.CtorLayout diff --git a/stage0/src/Init/Lean/Compiler/NameMangling.lean b/stage0/src/Init/Lean/Compiler/NameMangling.lean index 9ad9877a3a..7e373c3434 100644 --- a/stage0/src/Init/Lean/Compiler/NameMangling.lean +++ b/stage0/src/Init/Lean/Compiler/NameMangling.lean @@ -4,7 +4,7 @@ Released under Apache 2.0 license as described in the file LICENSE. Author: Leonardo de Moura -/ prelude -import Init.Lean.Name +import Init.Lean.Data.Name namespace Lean private def String.mangleAux : Nat → String.Iterator → String → String diff --git a/stage0/src/Init/Lean/Format.lean b/stage0/src/Init/Lean/Data/Format.lean similarity index 99% rename from stage0/src/Init/Lean/Format.lean rename to stage0/src/Init/Lean/Data/Format.lean index bf25b0fc1b..319a8b5bd9 100644 --- a/stage0/src/Init/Lean/Format.lean +++ b/stage0/src/Init/Lean/Data/Format.lean @@ -4,8 +4,8 @@ Released under Apache 2.0 license as described in the file LICENSE. Author: Leonardo de Moura -/ prelude -import Init.Lean.Options import Init.Data.Array +import Init.Lean.Data.Options universes u v namespace Lean diff --git a/stage0/src/Init/Lean/KVMap.lean b/stage0/src/Init/Lean/Data/KVMap.lean similarity index 99% rename from stage0/src/Init/Lean/KVMap.lean rename to stage0/src/Init/Lean/Data/KVMap.lean index 9a1bbd79c6..4914d80c3c 100644 --- a/stage0/src/Init/Lean/KVMap.lean +++ b/stage0/src/Init/Lean/Data/KVMap.lean @@ -4,9 +4,9 @@ Released under Apache 2.0 license as described in the file LICENSE. Authors: Leonardo de Moura -/ prelude -import Init.Lean.Name import Init.Data.Option.Basic import Init.Data.Int +import Init.Lean.Data.Name namespace Lean diff --git a/stage0/src/Init/Lean/LBool.lean b/stage0/src/Init/Lean/Data/LBool.lean similarity index 100% rename from stage0/src/Init/Lean/LBool.lean rename to stage0/src/Init/Lean/Data/LBool.lean diff --git a/stage0/src/Init/Lean/LOption.lean b/stage0/src/Init/Lean/Data/LOption.lean similarity index 100% rename from stage0/src/Init/Lean/LOption.lean rename to stage0/src/Init/Lean/Data/LOption.lean diff --git a/stage0/src/Init/Lean/Name.lean b/stage0/src/Init/Lean/Data/Name.lean similarity index 100% rename from stage0/src/Init/Lean/Name.lean rename to stage0/src/Init/Lean/Data/Name.lean diff --git a/stage0/src/Init/Lean/NameGenerator.lean b/stage0/src/Init/Lean/Data/NameGenerator.lean similarity index 96% rename from stage0/src/Init/Lean/NameGenerator.lean rename to stage0/src/Init/Lean/Data/NameGenerator.lean index 555f19661a..0189b8147f 100644 --- a/stage0/src/Init/Lean/NameGenerator.lean +++ b/stage0/src/Init/Lean/Data/NameGenerator.lean @@ -4,7 +4,7 @@ Released under Apache 2.0 license as described in the file LICENSE. Authors: Leonardo de Moura -/ prelude -import Init.Lean.Name +import Init.Lean.Data.Name namespace Lean diff --git a/stage0/src/Init/Lean/Options.lean b/stage0/src/Init/Lean/Data/Options.lean similarity index 98% rename from stage0/src/Init/Lean/Options.lean rename to stage0/src/Init/Lean/Data/Options.lean index 04cd006308..ca088a2ab6 100644 --- a/stage0/src/Init/Lean/Options.lean +++ b/stage0/src/Init/Lean/Data/Options.lean @@ -6,7 +6,7 @@ Authors: Sebastian Ullrich and Leonardo de Moura prelude import Init.System.IO import Init.Data.ToString -import Init.Lean.KVMap +import Init.Lean.Data.KVMap namespace Lean diff --git a/stage0/src/Init/Lean/Position.lean b/stage0/src/Init/Lean/Data/Position.lean similarity index 98% rename from stage0/src/Init/Lean/Position.lean rename to stage0/src/Init/Lean/Data/Position.lean index 534c4ef687..f0d0746d0f 100644 --- a/stage0/src/Init/Lean/Position.lean +++ b/stage0/src/Init/Lean/Data/Position.lean @@ -6,7 +6,7 @@ Authors: Leonardo de Moura, Sebastian Ullrich prelude import Init.Data.Nat import Init.Data.RBMap -import Init.Lean.Format +import Init.Lean.Data.Format namespace Lean diff --git a/stage0/src/Init/Lean/SMap.lean b/stage0/src/Init/Lean/Data/SMap.lean similarity index 100% rename from stage0/src/Init/Lean/SMap.lean rename to stage0/src/Init/Lean/Data/SMap.lean diff --git a/stage0/src/Init/Lean/Parser/Trie.lean b/stage0/src/Init/Lean/Data/Trie.lean similarity index 98% rename from stage0/src/Init/Lean/Parser/Trie.lean rename to stage0/src/Init/Lean/Data/Trie.lean index f1e0963793..0a7d3755b3 100644 --- a/stage0/src/Init/Lean/Parser/Trie.lean +++ b/stage0/src/Init/Lean/Data/Trie.lean @@ -7,7 +7,7 @@ Trie for tokenizing the Lean language -/ prelude import Init.Data.RBMap -import Init.Lean.Format +import Init.Lean.Data.Format namespace Lean namespace Parser diff --git a/stage0/src/Init/Lean/Elaborator/Basic.lean b/stage0/src/Init/Lean/Elaborator/Basic.lean index 375aa4276c..6a462ee750 100644 --- a/stage0/src/Init/Lean/Elaborator/Basic.lean +++ b/stage0/src/Init/Lean/Elaborator/Basic.lean @@ -6,7 +6,6 @@ Authors: Leonardo de Moura, Sebastian Ullrich prelude import Init.Control.Reader import Init.Lean.MetavarContext -import Init.Lean.NameGenerator import Init.Lean.Scopes import Init.Lean.Parser.Module @@ -123,7 +122,7 @@ match attrParamSyntaxToIdentifier arg with def declareBuiltinElab (env : Environment) (addFn : Name) (kind : SyntaxNodeKind) (declName : Name) : IO Environment := let name := `_regBuiltinTermElab ++ declName; let type := mkApp (mkConst `IO) (mkConst `Unit); -let val := mkCAppN addFn #[toExpr kind, toExpr declName, mkConst declName]; +let val := mkAppN (mkConst addFn) #[toExpr kind, toExpr declName, mkConst declName]; let decl := Declaration.defnDecl { name := name, lparams := [], type := type, value := val, hints := ReducibilityHints.opaque, isUnsafe := false }; match env.addAndCompile {} decl with -- TODO: pretty print error diff --git a/stage0/src/Init/Lean/Environment.lean b/stage0/src/Init/Lean/Environment.lean index 8cbf0d64eb..9d00efea1a 100644 --- a/stage0/src/Init/Lean/Environment.lean +++ b/stage0/src/Init/Lean/Environment.lean @@ -7,8 +7,8 @@ prelude import Init.System.IO import Init.Util import Init.Data.ByteArray +import Init.Lean.Data.SMap import Init.Lean.Declaration -import Init.Lean.SMap import Init.Lean.Path import Init.Lean.LocalContext diff --git a/stage0/src/Init/Lean/Expr.lean b/stage0/src/Init/Lean/Expr.lean index d9f3b8028d..7f6f7c4686 100644 --- a/stage0/src/Init/Lean/Expr.lean +++ b/stage0/src/Init/Lean/Expr.lean @@ -4,12 +4,12 @@ Released under Apache 2.0 license as described in the file LICENSE. Authors: Leonardo de Moura -/ prelude -import Init.Lean.Level -import Init.Lean.KVMap import Init.Data.HashMap import Init.Data.HashSet import Init.Data.PersistentHashMap import Init.Data.PersistentHashSet +import Init.Lean.Data.KVMap +import Init.Lean.Level namespace Lean @@ -330,9 +330,6 @@ Expr.localE x u t $ mkDataForBinder (mixHash 43 $ hash t) t.looseBVarRange true @[export lean_expr_mk_proj] def mkProjEx : Name → Nat → Expr → Expr := mkProj @[export lean_expr_mk_local] def mkLocalEx : Name → Name → Expr → BinderInfo → Expr := mkLocal -def mkCApp (f : Name) (a : Expr) : Expr := -mkApp (mkConst f) a - def mkAppN (f : Expr) (args : Array Expr) : Expr := args.foldl mkApp f @@ -583,14 +580,16 @@ instance : HasRepr Expr := end Expr -def mkCAppN (n : Name) (args : Array Expr) : Expr := -mkAppN (mkConst n) args - -def mkAppB (f a b : Expr) := -mkApp (mkApp f a) b - -def mkCAppB (n : Name) (a b : Expr) := -mkAppB (mkConst n) a b +def mkAppB (f a b : Expr) := mkApp (mkApp f a) b +def mkApp2 (f a b : Expr) := mkAppB f a b +def mkApp3 (f a b c : Expr) := mkApp (mkAppB f a b) c +def mkApp4 (f a b c d : Expr) := mkAppB (mkAppB f a b) c d +def mkApp5 (f a b c d e : Expr) := mkApp (mkApp4 f a b c d) e +def mkApp6 (f a b c d e₁ e₂ : Expr) := mkAppB (mkApp4 f a b c d) e₁ e₂ +def mkApp7 (f a b c d e₁ e₂ e₃ : Expr) := mkApp3 (mkApp4 f a b c d) e₁ e₂ e₃ +def mkApp8 (f a b c d e₁ e₂ e₃ e₄ : Expr) := mkApp4 (mkApp4 f a b c d) e₁ e₂ e₃ e₄ +def mkApp9 (f a b c d e₁ e₂ e₃ e₄ e₅ : Expr) := mkApp5 (mkApp4 f a b c d) e₁ e₂ e₃ e₄ e₅ +def mkApp10 (f a b c d e₁ e₂ e₃ e₄ e₅ e₆ : Expr) := mkApp6 (mkApp4 f a b c d) e₁ e₂ e₃ e₄ e₅ e₆ def mkDecIsTrue (pred proof : Expr) := mkAppB (mkConst `Decidable.isTrue) pred proof diff --git a/stage0/src/Init/Lean/Level.lean b/stage0/src/Init/Lean/Level.lean index d681fdbafa..a089ec17c4 100644 --- a/stage0/src/Init/Lean/Level.lean +++ b/stage0/src/Init/Lean/Level.lean @@ -7,8 +7,8 @@ prelude import Init.Data.Option.Basic import Init.Data.HashMap import Init.Data.PersistentHashMap -import Init.Lean.Name -import Init.Lean.Format +import Init.Lean.Data.Name +import Init.Lean.Data.Format def Nat.imax (n m : Nat) : Nat := if m = 0 then 0 else Nat.max n m diff --git a/stage0/src/Init/Lean/Message.lean b/stage0/src/Init/Lean/Message.lean index 0f2be1e2c4..0f25102843 100644 --- a/stage0/src/Init/Lean/Message.lean +++ b/stage0/src/Init/Lean/Message.lean @@ -7,7 +7,7 @@ Message Type used by the Lean frontend -/ prelude import Init.Data.ToString -import Init.Lean.Position +import Init.Lean.Data.Position import Init.Lean.Syntax import Init.Lean.MetavarContext import Init.Lean.Environment diff --git a/stage0/src/Init/Lean/Meta.lean b/stage0/src/Init/Lean/Meta.lean index a6a6ae5264..659031cdec 100644 --- a/stage0/src/Init/Lean/Meta.lean +++ b/stage0/src/Init/Lean/Meta.lean @@ -15,3 +15,4 @@ import Init.Lean.Meta.Reduce import Init.Lean.Meta.Instances import Init.Lean.Meta.AbstractMVars import Init.Lean.Meta.SynthInstance +import Init.Lean.Meta.AppBuilder diff --git a/stage0/src/Init/Lean/Meta/AppBuilder.lean b/stage0/src/Init/Lean/Meta/AppBuilder.lean index 8f3b7be0a7..ccf64885ce 100644 --- a/stage0/src/Init/Lean/Meta/AppBuilder.lean +++ b/stage0/src/Init/Lean/Meta/AppBuilder.lean @@ -6,12 +6,167 @@ Authors: Leonardo de Moura import Init.Lean.Meta.SynthInstance namespace Lean + +@[inline] def Expr.eq? (p : Expr) : Option (Expr × Expr × Expr) := +if p.isAppOfArity `Eq 3 then + some (p.getArg! 0, p.getArg! 1, p.getArg! 2) +else + none + +@[inline] def Expr.heq? (p : Expr) : Option (Expr × Expr × Expr × Expr) := +if p.isAppOfArity `HEq 4 then + some (p.getArg! 0, p.getArg! 1, p.getArg! 2, p.getArg! 4) +else + none + +@[inline] def Expr.arrow? : Expr → Option (Expr × Expr) +| Expr.forallE _ α β _ => if β.hasLooseBVars then none else some (α, β) +| _ => none + namespace Meta def mkEq (a b : Expr) : MetaM Expr := do aType ← inferType a; u ← getLevel aType; - pure $ mkAppB (mkApp (mkConst `Eq [u]) aType) a b + pure $ mkApp3 (mkConst `Eq [u]) aType a b + +def mkHEq (a b : Expr) : MetaM Expr := +do aType ← inferType a; + bType ← inferType b; + u ← getLevel aType; + pure $ mkApp4 (mkConst `HEq [u]) aType a bType b + +def mkEqRefl (a : Expr) : MetaM Expr := +do aType ← inferType a; + u ← getLevel aType; + pure $ mkApp2 (mkConst `Eq.refl [u]) aType a + +def mkHEqRefl (a : Expr) : MetaM Expr := +do aType ← inferType a; + u ← getLevel aType; + pure $ mkApp2 (mkConst `HEq.refl [u]) aType a + +private def infer (h : Expr) : MetaM Expr := +do hType ← inferType h; + whnfD hType + +def mkEqSymm (h : Expr) : MetaM Expr := +if h.isAppOf `Eq.refl then pure h +else do + hType ← infer h; + match hType.eq? with + | some (α, a, b) => do u ← getLevel α; pure $ mkApp4 (mkConst `Eq.symm [u]) α a b h + | none => throwEx $ Exception.appBuilder `Eq.symm "equality proof expected" #[h] + +def mkEqTrans (h₁ h₂ : Expr) : MetaM Expr := +if h₁.isAppOf `Eq.refl then pure h₂ +else if h₂.isAppOf `Eq.refl then pure h₁ +else do + hType₁ ← infer h₁; + hType₂ ← infer h₂; + match hType₁.eq?, hType₂.eq? with + | some (α, a, b), some (_, _, c) => + do u ← getLevel α; pure $ mkApp6 (mkConst `Eq.trans [u]) α a b c h₁ h₂ + | _, _ => throwEx $ Exception.appBuilder `Eq.trans "equality proof expected" #[h₁, h₂] + +def mkHEqSymm (h : Expr) : MetaM Expr := +if h.isAppOf `HEq.refl then pure h +else do + hType ← infer h; + match hType.heq? with + | some (α, a, β, b) => do u ← getLevel α; pure $ mkApp5 (mkConst `HEq.symm [u]) α β a b h + | none => throwEx $ Exception.appBuilder `HEq.symm "heterogeneous equality proof expected" #[h] + +def mkHEqTrans (h₁ h₂ : Expr) : MetaM Expr := +if h₁.isAppOf `HEq.refl then pure h₂ +else if h₂.isAppOf `HEq.refl then pure h₁ +else do + hType₁ ← infer h₁; + hType₂ ← infer h₂; + match hType₁.heq?, hType₂.heq? with + | some (α, a, β, b), some (_, _, γ, c) => do + u ← getLevel α; pure $ mkApp8 (mkConst `HEq.trans [u]) α β γ a b c h₁ h₂ + | _, _ => throwEx $ Exception.appBuilder `HEq.trans "heterogeneous equality proof expected" #[h₁, h₂] + +def mkCongrArg (f h : Expr) : MetaM Expr := +do hType ← infer h; + fType ← infer f; + match fType.arrow?, hType.eq? with + | some (α, β), some (_, a, b) => do + u ← getLevel α; v ← getLevel β; pure $ mkApp6 (mkConst `congrArg [u, v]) α β a b f h + | none, _ => throwEx $ Exception.appBuilder `congrArg "non-dependent function expected" #[f, h] + | _, none => throwEx $ Exception.appBuilder `congrArg "equality proof expected" #[f, h] + +def mkCongrFun (h a : Expr) : MetaM Expr := +do hType ← infer h; + match hType.eq? with + | some (ρ, f, g) => do + ρ ← whnfD ρ; + match ρ with + | Expr.forallE n α β _ => do + let β' := Lean.mkLambda n BinderInfo.default α β; + u ← getLevel α; + v ← getLevel (mkApp β' a); + pure $ mkApp6 (mkConst `congrFun [u, v]) α β' f g h a + | _ => throwEx $ Exception.appBuilder `congrFun "equality proof between functions expected" #[h, a] + | _ => throwEx $ Exception.appBuilder `congrFun "equality proof expected" #[h, a] + +def mkCongr (h₁ h₂ : Expr) : MetaM Expr := +do hType₁ ← infer h₁; + hType₂ ← infer h₂; + match hType₁.eq?, hType₂.eq? with + | some (ρ, f, g), some (α, a, b) => do + ρ ← whnfD ρ; + match ρ.arrow? with + | some (_, β) => do + u ← getLevel α; + v ← getLevel β; + pure $ mkApp8 (mkConst `congr [u, v]) α β f g a b h₁ h₂ + | _ => throwEx $ Exception.appBuilder `congr "non-dependent function expected" #[h₁, h₂] + | _, _ => throwEx $ Exception.appBuilder `congr "equality proof expected" #[h₁, h₂] + +private def mkAppMFinal (f : Expr) (args : Array Expr) (instMVars : Array MVarId) : MetaM Expr := +do instMVars.forM $ fun mvarId => do { + mvarDecl ← getMVarDecl mvarId; + mvarVal ← synthInstance mvarDecl.type; + assignExprMVar mvarId mvarVal + }; + result ← instantiateMVars (mkAppN f args); + whenM (hasAssignableMVar result) $ throwEx $ Exception.appBuilder `mkAppM "result contains metavariables" #[result]; + pure result + +private partial def mkAppMAux (f : Expr) (xs : Array Expr) : Nat → Array Expr → Nat → Array MVarId → Expr → MetaM Expr +| i, args, j, instMVars, Expr.forallE n d b c => do + let d := d.instantiateRevRange j args.size args; + match c.binderInfo with + | BinderInfo.implicit => do mvar ← mkFreshExprMVar d n; mkAppMAux i (args.push mvar) j instMVars b + | BinderInfo.instImplicit => do mvar ← mkFreshExprMVar d n true; mkAppMAux i (args.push mvar) j (instMVars.push mvar.mvarId!) b + | _ => + if h : i < xs.size then do + let x := xs.get ⟨i, h⟩; + xType ← inferType x; + condM (isDefEq d xType) + (mkAppMAux (i+1) (args.push x) j instMVars b) + (throwEx $ Exception.appTypeMismatch (mkAppN f args) x) + else + mkAppMFinal f args instMVars +| i, args, j, instMVars, type => do + let type := type.instantiateRevRange j args.size args; + type ← whnfD type; + if type.isForall then + mkAppMAux i args args.size instMVars type + else if i == xs.size then + mkAppMFinal f args instMVars + else + throwEx $ Exception.appBuilder `mkAppM "too many explicit arguments provided" (#[f] ++ xs) + +def mkAppM (constName : Name) (xs : Array Expr) : MetaM Expr := +traceCtx `Meta.appBuilder $ withNewMCtxDepth $ do + cinfo ← getConstInfo constName; + us ← cinfo.lparams.mapM $ fun _ => mkFreshLevelMVar; + let f := mkConst constName us; + let fType := cinfo.instantiateTypeLevelParams us; + mkAppMAux f xs 0 #[] 0 #[] fType end Meta end Lean diff --git a/stage0/src/Init/Lean/Meta/Basic.lean b/stage0/src/Init/Lean/Meta/Basic.lean index a816488977..bc4f76467d 100644 --- a/stage0/src/Init/Lean/Meta/Basic.lean +++ b/stage0/src/Init/Lean/Meta/Basic.lean @@ -5,9 +5,9 @@ Authors: Leonardo de Moura -/ prelude import Init.Control.Reader -import Init.Lean.NameGenerator +import Init.Lean.Data.LOption +import Init.Lean.Data.NameGenerator import Init.Lean.Environment -import Init.Lean.LOption import Init.Lean.Trace import Init.Lean.Class import Init.Lean.ReducibilityAttrs @@ -340,6 +340,12 @@ getConstAux constName true @[inline] def getConstNoEx (constName : Name) : MetaM (Option ConstantInfo) := getConstAux constName false +def getConstInfo (constName : Name) : MetaM ConstantInfo := +do env ← getEnv; + match env.find constName with + | some info => pure info + | none => throwEx $ Exception.unknownConst constName + def getLocalDecl (fvarId : FVarId) : MetaM LocalDecl := do lctx ← getLCtx; match lctx.find fvarId with @@ -680,6 +686,8 @@ do mvarId ← mkFreshId; def whnfUsingDefault : Expr → MetaM Expr := fun e => usingTransparency TransparencyMode.default $ whnf e +abbrev whnfD := whnfUsingDefault + /-- Execute `x` using approximate unification. -/ @[inline] def approxDefEq {α} (x : MetaM α) : MetaM α := adaptReader (fun (ctx : Context) => { config := { foApprox := true, ctxApprox := true, quasiPatternApprox := true, .. ctx.config }, .. ctx }) @@ -691,7 +699,7 @@ do c? ← isClass fvarType; | none => k fvar | some c => withNewLocalInstance c fvar $ k fvar -@[inline] def withLocalDecl {α} (n : Name) (type : Expr) (bi : BinderInfo) (k : Expr → MetaM α) : MetaM α := +def withLocalDecl {α} (n : Name) (type : Expr) (bi : BinderInfo) (k : Expr → MetaM α) : MetaM α := do fvarId ← mkFreshId; ctx ← read; let lctx := ctx.lctx.mkLocalDecl fvarId n type bi; @@ -699,7 +707,10 @@ do fvarId ← mkFreshId; adaptReader (fun (ctx : Context) => { lctx := lctx, .. ctx }) $ withNewFVar fvar type k -@[inline] def withLetDecl {α} (n : Name) (type : Expr) (val : Expr) (k : Expr → MetaM α) : MetaM α := +def withLocalDeclD {α} (n : Name) (type : Expr) (k : Expr → MetaM α) : MetaM α := +withLocalDecl n type BinderInfo.default k + +def withLetDecl {α} (n : Name) (type : Expr) (val : Expr) (k : Expr → MetaM α) : MetaM α := do fvarId ← mkFreshId; ctx ← read; let lctx := ctx.lctx.mkLetDecl fvarId n type val; diff --git a/stage0/src/Init/Lean/Meta/Exception.lean b/stage0/src/Init/Lean/Meta/Exception.lean index 2b7a92d3f0..e57007d952 100644 --- a/stage0/src/Init/Lean/Meta/Exception.lean +++ b/stage0/src/Init/Lean/Meta/Exception.lean @@ -34,6 +34,8 @@ inductive Exception | letTypeMismatch (fvarId : FVarId) (ctx : ExceptionContext) | appTypeMismatch (f a : Expr) (ctx : ExceptionContext) | notInstance (e : Expr) (ctx : ExceptionContext) +| appBuilder (op : Name) (msg : String) (args : Array Expr) (ctx : ExceptionContext) +| synthInstance (inst : Expr) (ctx : ExceptionContext) | bug (b : Bug) (ctx : ExceptionContext) | other (msg : String) @@ -58,6 +60,8 @@ def toStr : Exception → String | letTypeMismatch _ _ => "type mismatch at let-expression" | appTypeMismatch _ _ _ => "application type mismatch" | notInstance _ _ => "type class instance expected" +| appBuilder _ _ _ _ => "application builder failure" +| synthInstance _ _ => "type class instance synthesis failed" | bug _ _ => "bug" | other s => s @@ -83,6 +87,8 @@ def toMessageData : Exception → MessageData | letTypeMismatch fvarId ctx => mkCtx ctx $ `letTypeMismatch ++ " " ++ mkFVar fvarId | appTypeMismatch f a ctx => mkCtx ctx $ `appTypeMismatch ++ " " ++ mkApp f a | notInstance i ctx => mkCtx ctx $ `notInstance ++ " " ++ i +| appBuilder op msg args ctx => mkCtx ctx $ `appBuilder ++ " " ++ op ++ " " ++ args ++ " " ++ msg +| synthInstance inst ctx => mkCtx ctx $ `synthInstance ++ " " ++ inst | bug _ _ => "internal bug" -- TODO improve | other s => s diff --git a/stage0/src/Init/Lean/Meta/InferType.lean b/stage0/src/Init/Lean/Meta/InferType.lean index c3e7b52308..dba563ac0a 100644 --- a/stage0/src/Init/Lean/Meta/InferType.lean +++ b/stage0/src/Init/Lean/Meta/InferType.lean @@ -4,7 +4,7 @@ Released under Apache 2.0 license as described in the file LICENSE. Authors: Leonardo de Moura -/ prelude -import Init.Lean.LBool +import Init.Lean.Data.LBool import Init.Lean.Meta.Basic namespace Lean @@ -69,7 +69,7 @@ do let failed : Unit → MetaM Expr := fun _ => throwEx $ Exception.invalidProje def getLevel (type : Expr) : MetaM Level := do typeType ← inferType type; - typeType ← whnf typeType; + typeType ← whnfUsingDefault typeType; match typeType with | Expr.sort lvl _ => pure lvl | Expr.mvar mvarId _ => diff --git a/stage0/src/Init/Lean/Meta/Offset.lean b/stage0/src/Init/Lean/Meta/Offset.lean index 31b028a1e2..750a0731e8 100644 --- a/stage0/src/Init/Lean/Meta/Offset.lean +++ b/stage0/src/Init/Lean/Meta/Offset.lean @@ -4,7 +4,7 @@ Released under Apache 2.0 license as described in the file LICENSE. Authors: Leonardo de Moura -/ prelude -import Init.Lean.LBool +import Init.Lean.Data.LBool import Init.Lean.Meta.InferType namespace Lean @@ -95,8 +95,8 @@ match isOffset s with | some (s, k₁) => match isOffset t with | some (t, k₂) => -- s+k₁ =?= t+k₂ if k₁ == k₂ then isDefEq s t - else if k₁ < k₂ then isDefEq s (mkCAppB `Nat.add t (mkNatLit $ k₂ - k₁)) - else isDefEq (mkCAppB `Nat.add s (mkNatLit $ k₁ - k₂)) t + else if k₁ < k₂ then isDefEq s (mkAppB (mkConst `Nat.add) t (mkNatLit $ k₂ - k₁)) + else isDefEq (mkAppB (mkConst `Nat.add) s (mkNatLit $ k₁ - k₂)) t | none => match evalNat t with | some v₂ => -- s+k₁ =?= v₂ if v₂ ≥ k₁ then isDefEq s (mkNatLit $ v₂ - k₁) else pure LBool.false diff --git a/stage0/src/Init/Lean/Meta/SynthInstance.lean b/stage0/src/Init/Lean/Meta/SynthInstance.lean index 524e9cb437..3914c3209e 100644 --- a/stage0/src/Init/Lean/Meta/SynthInstance.lean +++ b/stage0/src/Init/Lean/Meta/SynthInstance.lean @@ -509,7 +509,7 @@ try $ <&&> r.exprReplacements.allM (fun ⟨e, e'⟩ => isExprDefEqAux e e') -def synthInstance (type : Expr) (fuel : Nat := 10000) : MetaM (Option Expr) := +def synthInstance? (type : Expr) (fuel : Nat := 10000) : MetaM (Option Expr) := usingTransparency TransparencyMode.reducible $ do type ← instantiateMVars type; type ← preprocess type; @@ -530,10 +530,10 @@ usingTransparency TransparencyMode.reducible $ do (pure (some result))) (pure none) }; - if type.hasMVar then do - modify $ fun s => { cache := { synthInstance := s.cache.synthInstance.insert type result, .. s.cache }, .. s }; + if type.hasMVar then pure result - else + else do + modify $ fun s => { cache := { synthInstance := s.cache.synthInstance.insert type result, .. s.cache }, .. s }; pure result /-- @@ -542,11 +542,17 @@ usingTransparency TransparencyMode.reducible $ do def trySynthInstance (type : Expr) (fuel : Nat := 10000) : MetaM (LOption Expr) := adaptReader (fun (ctx : Context) => { config := { isDefEqStuckEx := true, .. ctx.config }, .. ctx }) $ catch - (toLOptionM $ synthInstance type fuel) + (toLOptionM $ synthInstance? type fuel) (fun ex => match ex with | Exception.isExprDefEqStuck _ _ _ => pure LOption.undef | Exception.isLevelDefEqStuck _ _ _ => pure LOption.undef | _ => throw ex) +def synthInstance (type : Expr) (fuel : Nat := 10000) : MetaM Expr := +do result? ← synthInstance? type fuel; + match result? with + | some result => pure result + | none => throwEx $ Exception.synthInstance type + end Meta end Lean diff --git a/stage0/src/Init/Lean/MetavarContext.lean b/stage0/src/Init/Lean/MetavarContext.lean index 296e6537ff..22fd9529e3 100644 --- a/stage0/src/Init/Lean/MetavarContext.lean +++ b/stage0/src/Init/Lean/MetavarContext.lean @@ -4,12 +4,12 @@ Released under Apache 2.0 license as described in the file LICENSE. Authors: Leonardo de Moura -/ prelude +import Init.Control.Reader import Init.Data.Nat import Init.Data.Option -import Init.Control.Reader +import Init.Lean.Data.NameGenerator import Init.Lean.LocalContext import Init.Lean.MonadCache -import Init.Lean.NameGenerator namespace Lean diff --git a/stage0/src/Init/Lean/Parser/Parser.lean b/stage0/src/Init/Lean/Parser/Parser.lean index a3e5a6efe5..8af47288ad 100644 --- a/stage0/src/Init/Lean/Parser/Parser.lean +++ b/stage0/src/Init/Lean/Parser/Parser.lean @@ -4,13 +4,13 @@ Released under Apache 2.0 license as described in the file LICENSE. Authors: Leonardo de Moura, Sebastian Ullrich -/ prelude -import Init.Lean.Position +import Init.Lean.Data.Trie +import Init.Lean.Data.Position import Init.Lean.Syntax import Init.Lean.ToExpr import Init.Lean.Message import Init.Lean.Environment import Init.Lean.Attributes -import Init.Lean.Parser.Trie import Init.Lean.Parser.Identifier import Init.Lean.Compiler.InitAttr @@ -1443,7 +1443,7 @@ do tables ← tablesRef.get; def declareBuiltinParser (env : Environment) (addFnName : Name) (refDeclName : Name) (declName : Name) : IO Environment := let name := `_regBuiltinParser ++ declName; let type := mkApp (mkConst `IO) (mkConst `Unit); -let val := mkCAppN addFnName #[mkConst refDeclName, toExpr declName, mkConst declName]; +let val := mkAppN (mkConst addFnName) #[mkConst refDeclName, toExpr declName, mkConst declName]; let decl := Declaration.defnDecl { name := name, lparams := [], type := type, value := val, hints := ReducibilityHints.opaque, isUnsafe := false }; match env.addAndCompile {} decl with -- TODO: pretty print error diff --git a/stage0/src/Init/Lean/Path.lean b/stage0/src/Init/Lean/Path.lean index 804404dc1c..fed39c92f6 100644 --- a/stage0/src/Init/Lean/Path.lean +++ b/stage0/src/Init/Lean/Path.lean @@ -15,9 +15,9 @@ import Init.System.IO import Init.System.FilePath import Init.Data.Array import Init.Data.List.Control -import Init.Lean.Name import Init.Data.HashMap import Init.Data.Nat.Control +import Init.Lean.Data.Name namespace Lean open System.FilePath (pathSeparator extSeparator) diff --git a/stage0/src/Init/Lean/Syntax.lean b/stage0/src/Init/Lean/Syntax.lean index 60e9d1eb35..3fdc555533 100644 --- a/stage0/src/Init/Lean/Syntax.lean +++ b/stage0/src/Init/Lean/Syntax.lean @@ -4,9 +4,9 @@ Released under Apache 2.0 license as described in the file LICENSE. Author: Sebastian Ullrich, Leonardo de Moura -/ prelude -import Init.Lean.Name -import Init.Lean.Format import Init.Data.Array +import Init.Lean.Data.Name +import Init.Lean.Data.Format namespace Lean structure SourceInfo := diff --git a/stage0/src/Init/Lean/ToExpr.lean b/stage0/src/Init/Lean/ToExpr.lean index 1743884798..77c9fcc662 100644 --- a/stage0/src/Init/Lean/ToExpr.lean +++ b/stage0/src/Init/Lean/ToExpr.lean @@ -22,8 +22,8 @@ instance strToExpr : ToExpr String := ⟨mkStrLit⟩ def nameToExprAux : Name → Expr | Name.anonymous => mkConst `Lean.Name.anonymous -| Name.str p s _ => mkCAppB `Lean.mkNameStr (nameToExprAux p) (toExpr s) -| Name.num p n _ => mkCAppB `Lean.mkNameNum (nameToExprAux p) (toExpr n) +| Name.str p s _ => mkAppB (mkConst `Lean.mkNameStr) (nameToExprAux p) (toExpr s) +| Name.num p n _ => mkAppB (mkConst `Lean.mkNameNum) (nameToExprAux p) (toExpr n) instance nameToExpr : ToExpr Name := ⟨nameToExprAux⟩ diff --git a/stage0/src/Init/Lean/Util.lean b/stage0/src/Init/Lean/Util.lean index 0a9bd23abb..7f0585584d 100644 --- a/stage0/src/Init/Lean/Util.lean +++ b/stage0/src/Init/Lean/Util.lean @@ -5,7 +5,7 @@ Author: Sebastian Ullrich -/ prelude import Init.System.IO -import Init.Lean.Position +import Init.Lean.Data.Position namespace Lean diff --git a/stage0/src/Init/WF.lean b/stage0/src/Init/WF.lean index 63d1317b3e..1d1e1200af 100644 --- a/stage0/src/Init/WF.lean +++ b/stage0/src/Init/WF.lean @@ -233,13 +233,13 @@ Acc.ndrecOn aca $ fun (xa aca) (iha : ∀ y, r y xa → ∀ (b : β y), Acc (Lex (∀ (y : β xa), s xa y xb → Acc (Lex r s) ⟨xa, y⟩) → Lex r s p ⟨xa, xb⟩ → ∀ (b₁ : β a), s a b₁ b₂ → b₂ ≅ xb → Acc (Lex r s) ⟨a, b₁⟩ from Eq.subst Eq₂ $ fun xb acb ihb lt b₁ h Eq₃ => - have newEq₃ : b₂ = xb from eqOfHeq Eq₃; + have newEq₃ : b₂ = xb from eqOfHEq Eq₃; have aux : (∀ (y : β a), s a y xb → Acc (Lex r s) ⟨a, y⟩) → ∀ (b₁ : β a), s a b₁ b₂ → Acc (Lex r s) ⟨a, b₁⟩ from Eq.subst newEq₃ (fun ihb b₁ h => ihb b₁ h); aux ihb b₁ h; aux xb acb ihb lt b₁ h Eq₃); - aux rfl (Heq.refl xb) + aux rfl (HEq.refl xb) -- The lexicographical order of well founded relations is well-founded def lexWf (ha : WellFounded r) (hb : ∀ x, WellFounded (s x)) : WellFounded (Lex r s) := diff --git a/stage0/stdlib/CMakeLists.txt b/stage0/stdlib/CMakeLists.txt index e31e369cc2..d6e3ede9dc 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/Declaration.c Init/./Lean/Elaborator.c Init/./Lean/Elaborator/Alias.c Init/./Lean/Elaborator/Basic.c Init/./Lean/Elaborator/Command.c Init/./Lean/Elaborator/ElabStrategyAttrs.c Init/./Lean/Elaborator/PreTerm.c Init/./Lean/Elaborator/ResolveName.c Init/./Lean/Elaborator/Term.c Init/./Lean/Environment.c Init/./Lean/EqnCompiler.c Init/./Lean/EqnCompiler/MatchPattern.c Init/./Lean/Expr.c Init/./Lean/Format.c Init/./Lean/KVMap.c Init/./Lean/LBool.c Init/./Lean/LOption.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/LevelDefEq.c Init/./Lean/Meta/Offset.c Init/./Lean/Meta/Reduce.c Init/./Lean/Meta/SynthInstance.c Init/./Lean/Meta/WHNF.c Init/./Lean/MetavarContext.c Init/./Lean/Modifiers.c Init/./Lean/MonadCache.c Init/./Lean/Name.c Init/./Lean/NameGenerator.c Init/./Lean/Options.c Init/./Lean/Parser.c Init/./Lean/Parser/Command.c Init/./Lean/Parser/Identifier.c Init/./Lean/Parser/Level.c Init/./Lean/Parser/Module.c Init/./Lean/Parser/Parser.c Init/./Lean/Parser/Term.c Init/./Lean/Parser/Transform.c Init/./Lean/Parser/Trie.c Init/./Lean/Path.c Init/./Lean/Position.c Init/./Lean/ProjFns.c Init/./Lean/ReducibilityAttrs.c Init/./Lean/Runtime.c Init/./Lean/SMap.c Init/./Lean/Scopes.c Init/./Lean/Syntax.c Init/./Lean/ToExpr.c Init/./Lean/Trace.c Init/./Lean/Util.c Init/./Lean/WHNF.c Init/./System.c Init/./System/FilePath.c Init/./System/IO.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/./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/NameGenerator.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/Elaborator.c Init/./Lean/Elaborator/Alias.c Init/./Lean/Elaborator/Basic.c Init/./Lean/Elaborator/Command.c Init/./Lean/Elaborator/ElabStrategyAttrs.c Init/./Lean/Elaborator/PreTerm.c Init/./Lean/Elaborator/ResolveName.c Init/./Lean/Elaborator/Term.c Init/./Lean/Environment.c Init/./Lean/EqnCompiler.c Init/./Lean/EqnCompiler/MatchPattern.c Init/./Lean/Expr.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/LevelDefEq.c Init/./Lean/Meta/Offset.c Init/./Lean/Meta/Reduce.c Init/./Lean/Meta/SynthInstance.c Init/./Lean/Meta/WHNF.c Init/./Lean/MetavarContext.c Init/./Lean/Modifiers.c Init/./Lean/MonadCache.c Init/./Lean/Parser.c Init/./Lean/Parser/Command.c Init/./Lean/Parser/Identifier.c Init/./Lean/Parser/Level.c Init/./Lean/Parser/Module.c Init/./Lean/Parser/Parser.c Init/./Lean/Parser/Term.c Init/./Lean/Parser/Transform.c Init/./Lean/Path.c Init/./Lean/ProjFns.c Init/./Lean/ReducibilityAttrs.c Init/./Lean/Runtime.c Init/./Lean/Scopes.c Init/./Lean/Syntax.c Init/./Lean/ToExpr.c Init/./Lean/Trace.c Init/./Lean/Util.c Init/./Lean/WHNF.c Init/./System.c Init/./System/FilePath.c Init/./System/IO.c Init/./System/Platform.c Init/./Util.c Init/./WF.c) diff --git a/stage0/stdlib/Init/Lean/Compiler/IR/Basic.c b/stage0/stdlib/Init/Lean/Compiler/IR/Basic.c index 572d8dcb47..66350a5ecd 100644 --- a/stage0/stdlib/Init/Lean/Compiler/IR/Basic.c +++ b/stage0/stdlib/Init/Lean/Compiler/IR/Basic.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Compiler.IR.Basic -// Imports: Init.Data.Array Init.Lean.Name Init.Lean.KVMap Init.Lean.Format Init.Lean.Compiler.ExternAttr +// Imports: Init.Data.Array Init.Lean.Data.KVMap Init.Lean.Data.Name Init.Lean.Data.Format Init.Lean.Compiler.ExternAttr #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -13293,9 +13293,9 @@ return x_13; } } lean_object* initialize_Init_Data_Array(lean_object*); -lean_object* initialize_Init_Lean_Name(lean_object*); -lean_object* initialize_Init_Lean_KVMap(lean_object*); -lean_object* initialize_Init_Lean_Format(lean_object*); +lean_object* initialize_Init_Lean_Data_KVMap(lean_object*); +lean_object* initialize_Init_Lean_Data_Name(lean_object*); +lean_object* initialize_Init_Lean_Data_Format(lean_object*); lean_object* initialize_Init_Lean_Compiler_ExternAttr(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Compiler_IR_Basic(lean_object* w) { @@ -13305,13 +13305,13 @@ _G_initialized = true; res = initialize_Init_Data_Array(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_Name(lean_io_mk_world()); +res = initialize_Init_Lean_Data_KVMap(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_KVMap(lean_io_mk_world()); +res = initialize_Init_Lean_Data_Name(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_Format(lean_io_mk_world()); +res = initialize_Init_Lean_Data_Format(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); res = initialize_Init_Lean_Compiler_ExternAttr(lean_io_mk_world()); diff --git a/stage0/stdlib/Init/Lean/Compiler/IR/ElimDeadBranches.c b/stage0/stdlib/Init/Lean/Compiler/IR/ElimDeadBranches.c index 4b47ffb581..8d7e5e134a 100644 --- a/stage0/stdlib/Init/Lean/Compiler/IR/ElimDeadBranches.c +++ b/stage0/stdlib/Init/Lean/Compiler/IR/ElimDeadBranches.c @@ -13,6 +13,7 @@ #ifdef __cplusplus extern "C" { #endif +extern lean_object* l_Lean_Name_toString___closed__1; lean_object* l_Lean_IR_UnreachableBranches_functionSummariesExt___closed__3; lean_object* l_Nat_foldMAux___main___at_Lean_IR_UnreachableBranches_inferStep___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); size_t l_USize_add(size_t, size_t); @@ -297,7 +298,6 @@ 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*); lean_object* l_Lean_IR_UnreachableBranches_functionSummariesExt___elambda__4(lean_object*); -extern lean_object* l_System_FilePath_dirName___closed__1; lean_object* l_AssocList_find___main___at_Lean_IR_UnreachableBranches_findVarValue___spec__2___boxed(lean_object*, lean_object*); lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); @@ -3410,7 +3410,7 @@ lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean x_53 = lean_ctor_get(x_1, 0); lean_inc(x_53); lean_dec(x_1); -x_54 = l_System_FilePath_dirName___closed__1; +x_54 = l_Lean_Name_toString___closed__1; x_55 = l_Lean_Name_toStringWithSep___main(x_54, x_53); x_56 = l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__3; x_57 = lean_string_append(x_56, x_55); @@ -3627,7 +3627,7 @@ lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; x_106 = lean_ctor_get(x_1, 0); lean_inc(x_106); lean_dec(x_1); -x_107 = l_System_FilePath_dirName___closed__1; +x_107 = l_Lean_Name_toString___closed__1; x_108 = l_Lean_Name_toStringWithSep___main(x_107, x_106); x_109 = l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__3; x_110 = lean_string_append(x_109, x_108); diff --git a/stage0/stdlib/Init/Lean/Compiler/IR/Format.c b/stage0/stdlib/Init/Lean/Compiler/IR/Format.c index 1386958f71..edf3e05147 100644 --- a/stage0/stdlib/Init/Lean/Compiler/IR/Format.c +++ b/stage0/stdlib/Init/Lean/Compiler/IR/Format.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Compiler.IR.Format -// Imports: Init.Lean.Compiler.IR.Basic Init.Lean.Format +// Imports: Init.Lean.Data.Format Init.Lean.Compiler.IR.Basic #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -14,6 +14,7 @@ extern "C" { #endif lean_object* l_Lean_IR_litValHasFormat___closed__1; +extern lean_object* l_Lean_Name_toString___closed__1; lean_object* l_Lean_IR_formatFnBodyHead___closed__15; lean_object* l_Lean_IR_formatFnBody___main___closed__6; lean_object* l_Lean_IR_formatFnBodyHead___closed__3; @@ -185,7 +186,6 @@ lean_object* l___private_Init_Lean_Compiler_IR_Format_4__formatExpr___closed__16 extern lean_object* l_Lean_Format_paren___closed__3; lean_object* l___private_Init_Lean_Compiler_IR_Format_5__formatIRType___main(lean_object*); lean_object* l_Lean_IR_formatFnBodyHead___closed__4; -extern lean_object* l_System_FilePath_dirName___closed__1; lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); lean_object* l_Lean_IR_exprHasFormat; lean_object* l_Lean_IR_fnBodyHasFormat___closed__1; @@ -421,7 +421,7 @@ lean_object* _init_l___private_Init_Lean_Compiler_IR_Format_3__formatCtorInfo___ _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_System_FilePath_dirName___closed__1; +x_1 = l_Lean_Name_toString___closed__1; x_2 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; @@ -469,7 +469,7 @@ x_17 = lean_alloc_ctor(4, 2, 1); lean_ctor_set(x_17, 0, x_10); lean_ctor_set(x_17, 1, x_16); lean_ctor_set_uint8(x_17, sizeof(void*)*2, x_8); -x_18 = l_System_FilePath_dirName___closed__1; +x_18 = l_Lean_Name_toString___closed__1; x_19 = l_Lean_Name_toStringWithSep___main(x_18, x_2); x_20 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_20, 0, x_19); @@ -524,7 +524,7 @@ x_34 = lean_alloc_ctor(4, 2, 1); lean_ctor_set(x_34, 0, x_32); lean_ctor_set(x_34, 1, x_33); lean_ctor_set_uint8(x_34, sizeof(void*)*2, x_8); -x_35 = l_System_FilePath_dirName___closed__1; +x_35 = l_Lean_Name_toString___closed__1; x_36 = l_Lean_Name_toStringWithSep___main(x_35, x_2); x_37 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_37, 0, x_36); @@ -580,7 +580,7 @@ x_51 = lean_alloc_ctor(4, 2, 1); lean_ctor_set(x_51, 0, x_49); lean_ctor_set(x_51, 1, x_50); lean_ctor_set_uint8(x_51, sizeof(void*)*2, x_8); -x_52 = l_System_FilePath_dirName___closed__1; +x_52 = l_Lean_Name_toString___closed__1; x_53 = l_Lean_Name_toStringWithSep___main(x_52, x_2); x_54 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_54, 0, x_53); @@ -1226,7 +1226,7 @@ lean_inc(x_98); x_99 = lean_ctor_get(x_1, 1); lean_inc(x_99); lean_dec(x_1); -x_100 = l_System_FilePath_dirName___closed__1; +x_100 = l_Lean_Name_toString___closed__1; x_101 = l_Lean_Name_toStringWithSep___main(x_100, x_98); x_102 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_102, 0, x_101); @@ -1249,7 +1249,7 @@ lean_inc(x_108); x_109 = lean_ctor_get(x_1, 1); lean_inc(x_109); lean_dec(x_1); -x_110 = l_System_FilePath_dirName___closed__1; +x_110 = l_Lean_Name_toString___closed__1; x_111 = l_Lean_Name_toStringWithSep___main(x_110, x_108); x_112 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_112, 0, x_111); @@ -2033,7 +2033,7 @@ lean_dec(x_3); x_6 = lean_ctor_get(x_4, 0); lean_inc(x_6); lean_dec(x_4); -x_7 = l_System_FilePath_dirName___closed__1; +x_7 = l_Lean_Name_toString___closed__1; x_8 = l_Lean_Name_toStringWithSep___main(x_7, x_6); x_9 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_9, 0, x_8); @@ -4030,7 +4030,7 @@ lean_inc(x_5); x_6 = lean_ctor_get(x_2, 3); lean_inc(x_6); lean_dec(x_2); -x_7 = l_System_FilePath_dirName___closed__1; +x_7 = l_Lean_Name_toString___closed__1; x_8 = l_Lean_Name_toStringWithSep___main(x_7, x_3); x_9 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_9, 0, x_8); @@ -4091,7 +4091,7 @@ lean_inc(x_29); x_30 = lean_ctor_get(x_2, 2); lean_inc(x_30); lean_dec(x_2); -x_31 = l_System_FilePath_dirName___closed__1; +x_31 = l_Lean_Name_toString___closed__1; x_32 = l_Lean_Name_toStringWithSep___main(x_31, x_28); x_33 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_33, 0, x_32); @@ -4169,17 +4169,17 @@ x_1 = l_Lean_IR_declHasToString___closed__1; return x_1; } } +lean_object* initialize_Init_Lean_Data_Format(lean_object*); lean_object* initialize_Init_Lean_Compiler_IR_Basic(lean_object*); -lean_object* initialize_Init_Lean_Format(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Compiler_IR_Format(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; -res = initialize_Init_Lean_Compiler_IR_Basic(lean_io_mk_world()); +res = initialize_Init_Lean_Data_Format(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_Format(lean_io_mk_world()); +res = initialize_Init_Lean_Compiler_IR_Basic(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); l___private_Init_Lean_Compiler_IR_Format_1__formatArg___closed__1 = _init_l___private_Init_Lean_Compiler_IR_Format_1__formatArg___closed__1(); diff --git a/stage0/stdlib/Init/Lean/Compiler/IR/UnboxResult.c b/stage0/stdlib/Init/Lean/Compiler/IR/UnboxResult.c index 9d595df105..fda5d4a4ec 100644 --- a/stage0/stdlib/Init/Lean/Compiler/IR/UnboxResult.c +++ b/stage0/stdlib/Init/Lean/Compiler/IR/UnboxResult.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Compiler.IR.UnboxResult -// Imports: Init.Lean.Format Init.Lean.Compiler.IR.Basic Init.Lean.Compiler.IR.CtorLayout +// Imports: Init.Lean.Data.Format Init.Lean.Compiler.IR.Basic Init.Lean.Compiler.IR.CtorLayout #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -211,7 +211,7 @@ x_4 = lean_box(x_3); return x_4; } } -lean_object* initialize_Init_Lean_Format(lean_object*); +lean_object* initialize_Init_Lean_Data_Format(lean_object*); lean_object* initialize_Init_Lean_Compiler_IR_Basic(lean_object*); lean_object* initialize_Init_Lean_Compiler_IR_CtorLayout(lean_object*); static bool _G_initialized = false; @@ -219,7 +219,7 @@ lean_object* initialize_Init_Lean_Compiler_IR_UnboxResult(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; -res = initialize_Init_Lean_Format(lean_io_mk_world()); +res = initialize_Init_Lean_Data_Format(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); res = initialize_Init_Lean_Compiler_IR_Basic(lean_io_mk_world()); diff --git a/stage0/stdlib/Init/Lean/Compiler/NameMangling.c b/stage0/stdlib/Init/Lean/Compiler/NameMangling.c index 5ff82540e0..6d06d786fe 100644 --- a/stage0/stdlib/Init/Lean/Compiler/NameMangling.c +++ b/stage0/stdlib/Init/Lean/Compiler/NameMangling.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Compiler.NameMangling -// Imports: Init.Lean.Name +// Imports: Init.Lean.Data.Name #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -294,13 +294,13 @@ lean_dec(x_3); return x_4; } } -lean_object* initialize_Init_Lean_Name(lean_object*); +lean_object* initialize_Init_Lean_Data_Name(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Compiler_NameMangling(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; -res = initialize_Init_Lean_Name(lean_io_mk_world()); +res = initialize_Init_Lean_Data_Name(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); l___private_Init_Lean_Compiler_NameMangling_1__String_mangleAux___main___closed__1 = _init_l___private_Init_Lean_Compiler_NameMangling_1__String_mangleAux___main___closed__1(); diff --git a/stage0/stdlib/Init/Lean/Data/Format.c b/stage0/stdlib/Init/Lean/Data/Format.c new file mode 100644 index 0000000000..41ad56fa51 --- /dev/null +++ b/stage0/stdlib/Init/Lean/Data/Format.c @@ -0,0 +1,3629 @@ +// Lean compiler output +// Module: Init.Lean.Data.Format +// Imports: Init.Data.Array Init.Lean.Data.Options +#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 +extern lean_object* l_Lean_Name_toString___closed__1; +lean_object* l_Lean_toStringToFormat___rarg___closed__1; +lean_object* l_Lean_dataValueHasFormat___closed__1; +lean_object* l_Lean_List_format___rarg___closed__4; +lean_object* l_Lean_Format_spaceUptoLine___main(lean_object*, lean_object*); +lean_object* l_Lean_Format_repr___main(lean_object*); +lean_object* l___private_Init_Lean_Data_Format_1__merge___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_fmt___at_Lean_arrayHasFormat___spec__1___rarg(lean_object*, lean_object*); +extern lean_object* l_List_repr___rarg___closed__1; +extern lean_object* l_Option_HasRepr___rarg___closed__1; +lean_object* l_Array_iterateMAux___main___at_Lean_Format_joinArraySep___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Format_pretty(lean_object*, lean_object*); +lean_object* l_Lean_List_format___rarg___closed__2; +lean_object* l_Lean_kvMapHasFormat; +lean_object* l_Lean_Format_repr___main___closed__11; +lean_object* l_Lean_Format_spaceUptoLine_x27___main(lean_object*, lean_object*); +uint8_t l_Lean_Format_getUnicode(lean_object*); +lean_object* l_Lean_Format_getWidth___closed__3; +lean_object* l_Lean_Format_join(lean_object*); +lean_object* l_Lean_List_format___rarg___closed__1; +extern lean_object* l_Prod_HasRepr___rarg___closed__1; +lean_object* l_Lean_usizeHasFormat___boxed(lean_object*); +lean_object* l_Lean_arrayHasFormat___rarg___boxed(lean_object*, lean_object*); +lean_object* l_Lean_dataValueHasFormat; +lean_object* l_Lean_Format_HasAppend; +lean_object* l_Lean_Format_flatten___main___closed__1; +lean_object* l_Lean_Format_joinSep___main(lean_object*); +lean_object* l_Nat_repeatAux___main___at_String_pushn___spec__1(uint32_t, lean_object*, lean_object*); +lean_object* l_Lean_Format_indentOption___closed__2; +lean_object* l_Lean_Format_flatten___main(lean_object*); +lean_object* l_Lean_formatDataValue___closed__1; +lean_object* l_Lean_Format_getIndent___boxed(lean_object*); +lean_object* l_Lean_Format_getIndent___closed__1; +lean_object* l_Lean_Format_prefixJoin___main(lean_object*); +lean_object* l_Lean_HasRepr___closed__2; +lean_object* lean_array_get_size(lean_object*); +lean_object* l_Lean_Format_bracket(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Format_spaceUptoLine_x27___main___boxed(lean_object*, lean_object*); +lean_object* lean_string_append(lean_object*, lean_object*); +lean_object* l_Lean_Format_repr(lean_object*); +lean_object* l_Lean_formatKVMap___closed__1; +lean_object* l_Lean_Format_repr___main___closed__12; +extern lean_object* l_String_splitAux___main___closed__1; +lean_object* l_Lean_arrayHasFormat(lean_object*); +extern lean_object* l_List_repr___rarg___closed__3; +lean_object* l_Lean_listHasFormat(lean_object*); +lean_object* l_Lean_formatEntry(lean_object*); +lean_object* l_Lean_Format_prefixJoin___main___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Option_format___rarg(lean_object*, lean_object*); +lean_object* l_Lean_usizeHasFormat(size_t); +lean_object* l_Lean_Format_be___main(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Format_widthOption(lean_object*); +extern lean_object* l_joinM___rarg___closed__1; +lean_object* l_Lean_List_format___rarg(lean_object*, lean_object*); +lean_object* l_Lean_Format_repr___main___closed__21; +lean_object* l_Lean_Format_joinArraySep___rarg(lean_object*, lean_object*, lean_object*); +lean_object* lean_nat_add(lean_object*, lean_object*); +lean_object* l_Lean_uint16HasFormat___boxed(lean_object*); +lean_object* l_Lean_Format_spaceUptoLine___main___closed__1; +lean_object* l_Lean_Format_sbracket___closed__2; +lean_object* l_Lean_uint64HasFormat___boxed(lean_object*); +lean_object* lean_format_append(lean_object*, lean_object*); +lean_object* lean_format_pretty(lean_object*, lean_object*); +lean_object* l_Lean_Format_defWidth; +lean_object* l_Lean_Format_joinSuffix(lean_object*); +lean_object* l_Int_repr(lean_object*); +lean_object* l_Lean_Format_repr___main___closed__13; +lean_object* l_Lean_Format_pretty___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Option_format(lean_object*); +lean_object* l_Lean_Format_repr___main___closed__6; +lean_object* l_Lean_Format_indentOption(lean_object*); +extern lean_object* l_Array_HasRepr___rarg___closed__1; +lean_object* l_Lean_Format_repr___main___closed__17; +lean_object* lean_array_fget(lean_object*, lean_object*); +lean_object* l_Lean_Format_widthOption___closed__2; +lean_object* l_Lean_Format_widthOption___closed__1; +lean_object* l_Lean_formatHasToString(lean_object*); +lean_object* l_Lean_Option_format___rarg___closed__1; +lean_object* l_Lean_Format_widthOption___closed__3; +lean_object* l_Lean_HasRepr___closed__3; +lean_object* l_Lean_Format_be(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Option_format___rarg___closed__2; +lean_object* l_Lean_Format_spaceUptoLine___main___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Format_joinSep___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_entryHasFormat___closed__1; +lean_object* l_Lean_List_format(lean_object*); +lean_object* l_Lean_Format_repr___main___closed__2; +uint8_t l_Lean_KVMap_getBool(lean_object*, lean_object*, uint8_t); +lean_object* l_Lean_Format_repr___main___closed__4; +lean_object* l_Lean_Format_repr___main___closed__1; +lean_object* l_Lean_toStringToFormat___rarg(lean_object*); +lean_object* l_Lean_arrayHasFormat___rarg___closed__1; +lean_object* l_Lean_formatEntry___closed__2; +lean_object* l_Lean_Format_join___boxed(lean_object*); +lean_object* l_Lean_Format_repr___main___closed__8; +lean_object* l_Lean_Format_spaceUptoLine_x27(lean_object*, lean_object*); +lean_object* l_Lean_Format_HasAppend___closed__1; +lean_object* l_Lean_Format_join___closed__1; +lean_object* l_Nat_repr(lean_object*); +lean_object* l_Lean_Format_repr___main___closed__19; +lean_object* l_Lean_optionHasFormat(lean_object*); +lean_object* l_Lean_Format_joinArraySep___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Format_repr___main___closed__9; +lean_object* lean_name_mk_string(lean_object*, lean_object*); +extern lean_object* l_List_repr___rarg___closed__2; +lean_object* l_Lean_kvMapHasFormat___closed__1; +extern lean_object* l_List_reprAux___main___rarg___closed__1; +extern lean_object* l_IO_println___rarg___closed__1; +lean_object* l_Lean_formatKVMap(lean_object*); +lean_object* l_Function_comp___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_prodHasFormat(lean_object*, lean_object*); +lean_object* l_Lean_HasRepr___lambda__1(lean_object*); +extern lean_object* l_Lean_Options_empty; +lean_object* l_Lean_Format_repr___main___closed__18; +lean_object* l_Lean_Format_repr___main___closed__15; +lean_object* l_Array_iterateMAux___main___at_Lean_Format_joinArraySep___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l_Lean_Format_defUnicode; +lean_object* l_Lean_Format_getUnicode___closed__2; +lean_object* l_Lean_Format_getUnicode___closed__1; +extern lean_object* l_String_Iterator_HasRepr___closed__2; +lean_object* l_Lean_Format_joinSep___main___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Format_repr___main___closed__7; +lean_object* l_Lean_Format_Inhabited; +lean_object* l_Lean_Format_repr___main___closed__3; +lean_object* l_Lean_formatEntry___closed__1; +lean_object* l_Lean_Format_isNil___boxed(lean_object*); +lean_object* l_List_foldl___main___at_Lean_Format_join___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Format_HasCoe(lean_object*); +uint8_t l_Lean_Format_isNil(lean_object*); +lean_object* l_Lean_Format_getUnicode___boxed(lean_object*); +lean_object* l_Lean_KVMap_getNat(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Format_be___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Format_repr___main___closed__14; +lean_object* l_Lean_Format_unicodeOption___closed__3; +lean_object* l_Lean_Format_repr___main___closed__5; +lean_object* l_Lean_Format_sbracket___closed__3; +lean_object* l_Lean_Format_prefixJoin(lean_object*); +lean_object* l_Lean_Format_joinSuffix___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_fmt___rarg(lean_object*, lean_object*); +lean_object* l_Lean_formatDataValue___closed__2; +lean_object* l_Lean_HasRepr___closed__1; +extern lean_object* l_Option_HasRepr___rarg___closed__3; +lean_object* l_Lean_Format_unicodeOption___closed__1; +lean_object* l_Lean_Format_joinSep(lean_object*); +lean_object* l_Lean_arrayHasFormat___rarg(lean_object*, lean_object*); +lean_object* l_Lean_Format_paren___closed__1; +extern lean_object* l_Bool_HasRepr___closed__1; +lean_object* l_Lean_fmt(lean_object*); +lean_object* l_Lean_Format_spaceUptoLine___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Format_spaceUptoLine___main___closed__2; +lean_object* l___private_Init_Lean_Data_Format_1__merge(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_nameHasFormat(lean_object*); +lean_object* l_Lean_Format_getWidth___closed__2; +lean_object* l_Lean_Format_getWidth___closed__1; +lean_object* l_Lean_toStringToFormat(lean_object*); +lean_object* l_String_quote(lean_object*); +lean_object* l_Lean_Format_getWidth___boxed(lean_object*); +lean_object* l_Lean_uint64HasFormat(uint64_t); +lean_object* l_Lean_formatHasFormat; +lean_object* l_Lean_uint32HasFormat(uint32_t); +extern lean_object* l_Bool_HasRepr___closed__2; +lean_object* l_Lean_Format_be___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Format_flatten(lean_object*); +lean_object* l_Lean_Format_sbracket___closed__1; +lean_object* l_Lean_optionHasFormat___rarg(lean_object*); +lean_object* l_Lean_Format_paren___closed__2; +lean_object* l_Lean_Format_spaceUptoLine_x27___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Format_getIndent(lean_object*); +lean_object* l_Lean_registerOption(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_HasRepr; +lean_object* l_Lean_natHasFormat(lean_object*); +lean_object* lean_format_group(lean_object*); +lean_object* l_Lean_Format_getWidth___closed__4; +lean_object* l_Lean_Format_joinSuffix___main___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Format_repr___main___closed__20; +lean_object* l_Lean_prodHasFormat___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_formatDataValue(lean_object*); +lean_object* l_Lean_Option_format___rarg___closed__3; +lean_object* l_Lean_entryHasFormat; +lean_object* l_Lean_toStringToFormat___rarg___lambda__1(lean_object*); +lean_object* l_Array_toList___rarg(lean_object*); +lean_object* l_Lean_Format_joinSep___main___at_Lean_formatKVMap___spec__1(lean_object*, lean_object*); +lean_object* l_Lean_uint16HasFormat(uint16_t); +lean_object* lean_uint64_to_nat(uint64_t); +lean_object* l_Lean_uint32HasFormat___boxed(lean_object*); +lean_object* l_List_foldl___main___at_Lean_Format_join___spec__1(lean_object*, lean_object*); +lean_object* l_Lean_Format_indentOption___closed__3; +lean_object* l_Lean_fmt___at_Lean_arrayHasFormat___spec__1(lean_object*); +lean_object* lean_string_length(lean_object*); +lean_object* l_Lean_Format_defIndent; +lean_object* l_Lean_Format_joinArraySep(lean_object*); +lean_object* l_Lean_Format_indentOption___closed__1; +lean_object* l_Lean_List_format___rarg___closed__3; +lean_object* l_Lean_Format_joinSuffix___main(lean_object*); +lean_object* l_Lean_Format_paren___closed__3; +lean_object* l_Lean_Format_repr___main___closed__10; +lean_object* lean_uint16_to_nat(uint16_t); +lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); +lean_object* l_Lean_Format_prefixJoin___rarg(lean_object*, lean_object*, lean_object*); +lean_object* lean_usize_to_nat(size_t); +lean_object* l_Lean_listHasFormat___rarg(lean_object*); +lean_object* l_Array_iterateMAux___main___at_Lean_Format_joinArraySep___spec__1(lean_object*); +lean_object* l_Lean_Format_sbracket(lean_object*); +lean_object* l_Lean_Format_unicodeOption___closed__2; +lean_object* l_Lean_Format_repr___main___closed__16; +lean_object* lean_thunk_get_own(lean_object*); +lean_object* l_Lean_Format_getIndent___closed__2; +lean_object* l_Lean_stringHasFormat(lean_object*); +lean_object* lean_uint32_to_nat(uint32_t); +lean_object* l_Lean_Format_spaceUptoLine(lean_object*, lean_object*); +lean_object* l_Lean_Format_getWidth(lean_object*); +lean_object* l_Lean_Format_paren(lean_object*); +lean_object* l_Lean_Format_unicodeOption(lean_object*); +uint8_t lean_nat_dec_lt(lean_object*, lean_object*); +lean_object* lean_format_append(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = 0; +x_4 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_4, 0, x_1); +lean_ctor_set(x_4, 1, x_2); +lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_3); +return x_4; +} +} +lean_object* _init_l_Lean_Format_HasAppend___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(lean_format_append), 2, 0); +return x_1; +} +} +lean_object* _init_l_Lean_Format_HasAppend() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Format_HasAppend___closed__1; +return x_1; +} +} +lean_object* l_Lean_Format_HasCoe(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Format_Inhabited() { +_start: +{ +lean_object* x_1; +x_1 = lean_box(0); +return x_1; +} +} +lean_object* l_List_foldl___main___at_Lean_Format_join___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +return x_1; +} +else +{ +lean_object* x_3; lean_object* x_4; uint8_t x_5; lean_object* x_6; +x_3 = lean_ctor_get(x_2, 0); +x_4 = lean_ctor_get(x_2, 1); +x_5 = 0; +lean_inc(x_3); +x_6 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_6, 0, x_1); +lean_ctor_set(x_6, 1, x_3); +lean_ctor_set_uint8(x_6, sizeof(void*)*2, x_5); +x_1 = x_6; +x_2 = x_4; +goto _start; +} +} +} +lean_object* _init_l_Lean_Format_join___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_String_splitAux___main___closed__1; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Format_join(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_Format_join___closed__1; +x_3 = l_List_foldl___main___at_Lean_Format_join___spec__1(x_2, x_1); +return x_3; +} +} +lean_object* l_List_foldl___main___at_Lean_Format_join___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_foldl___main___at_Lean_Format_join___spec__1(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} +lean_object* l_Lean_Format_join___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Format_join(x_1); +lean_dec(x_1); +return x_2; +} +} +uint8_t l_Lean_Format_isNil(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +uint8_t x_2; +x_2 = 1; +return x_2; +} +else +{ +uint8_t x_3; +x_3 = 0; +return x_3; +} +} +} +lean_object* l_Lean_Format_isNil___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l_Lean_Format_isNil(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Format_flatten___main___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_String_Iterator_HasRepr___closed__2; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Format_flatten___main(lean_object* x_1) { +_start: +{ +switch (lean_obj_tag(x_1)) { +case 1: +{ +lean_object* x_2; +x_2 = l_Lean_Format_flatten___main___closed__1; +return x_2; +} +case 3: +{ +lean_object* x_3; +x_3 = lean_ctor_get(x_1, 1); +lean_inc(x_3); +lean_dec(x_1); +x_1 = x_3; +goto _start; +} +case 4: +{ +uint8_t x_5; +x_5 = lean_ctor_get_uint8(x_1, sizeof(void*)*2); +if (x_5 == 0) +{ +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 = l_Lean_Format_flatten___main(x_7); +x_10 = l_Lean_Format_flatten___main(x_8); +x_11 = 1; +lean_ctor_set(x_1, 1, x_10); +lean_ctor_set(x_1, 0, x_9); +lean_ctor_set_uint8(x_1, sizeof(void*)*2, x_11); +return x_1; +} +else +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; lean_object* x_17; +x_12 = lean_ctor_get(x_1, 0); +x_13 = lean_ctor_get(x_1, 1); +lean_inc(x_13); +lean_inc(x_12); +lean_dec(x_1); +x_14 = l_Lean_Format_flatten___main(x_12); +x_15 = l_Lean_Format_flatten___main(x_13); +x_16 = 1; +x_17 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_17, 0, x_14); +lean_ctor_set(x_17, 1, x_15); +lean_ctor_set_uint8(x_17, sizeof(void*)*2, x_16); +return x_17; +} +} +else +{ +return x_1; +} +} +case 5: +{ +lean_object* x_18; +x_18 = lean_ctor_get(x_1, 0); +lean_inc(x_18); +lean_dec(x_1); +x_1 = x_18; +goto _start; +} +default: +{ +return x_1; +} +} +} +} +lean_object* l_Lean_Format_flatten(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Format_flatten___main(x_1); +return x_2; +} +} +lean_object* lean_format_group(lean_object* x_1) { +_start: +{ +switch (lean_obj_tag(x_1)) { +case 0: +{ +return x_1; +} +case 2: +{ +return x_1; +} +case 4: +{ +uint8_t x_2; +x_2 = lean_ctor_get_uint8(x_1, sizeof(void*)*2); +if (x_2 == 0) +{ +lean_object* x_3; lean_object* x_4; +lean_inc(x_1); +x_3 = l_Lean_Format_flatten___main(x_1); +x_4 = lean_alloc_ctor(5, 2, 0); +lean_ctor_set(x_4, 0, x_3); +lean_ctor_set(x_4, 1, x_1); +return x_4; +} +else +{ +return x_1; +} +} +default: +{ +lean_object* x_5; lean_object* x_6; +lean_inc(x_1); +x_5 = l_Lean_Format_flatten___main(x_1); +x_6 = lean_alloc_ctor(5, 2, 0); +lean_ctor_set(x_6, 0, x_5); +lean_ctor_set(x_6, 1, x_1); +return x_6; +} +} +} +} +lean_object* l___private_Init_Lean_Data_Format_1__merge(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = lean_ctor_get_uint8(x_2, sizeof(void*)*1 + 1); +if (x_4 == 0) +{ +uint8_t x_5; +x_5 = lean_ctor_get_uint8(x_2, sizeof(void*)*1); +if (x_5 == 0) +{ +lean_object* x_6; uint8_t x_7; +x_6 = lean_thunk_get_own(x_3); +x_7 = lean_ctor_get_uint8(x_6, sizeof(void*)*1 + 1); +if (x_7 == 0) +{ +uint8_t x_8; +x_8 = lean_ctor_get_uint8(x_6, sizeof(void*)*1); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; uint8_t x_13; lean_object* x_14; +x_9 = lean_ctor_get(x_2, 0); +x_10 = lean_ctor_get(x_6, 0); +lean_inc(x_10); +lean_dec(x_6); +x_11 = lean_nat_add(x_9, x_10); +lean_dec(x_10); +x_12 = lean_nat_dec_lt(x_1, x_11); +x_13 = 0; +x_14 = lean_alloc_ctor(0, 1, 2); +lean_ctor_set(x_14, 0, x_11); +lean_ctor_set_uint8(x_14, sizeof(void*)*1, x_13); +lean_ctor_set_uint8(x_14, sizeof(void*)*1 + 1, x_12); +return x_14; +} +else +{ +return x_6; +} +} +else +{ +return x_6; +} +} +else +{ +lean_inc(x_2); +return x_2; +} +} +else +{ +lean_inc(x_2); +return x_2; +} +} +} +lean_object* l___private_Init_Lean_Data_Format_1__merge___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_Lean_Data_Format_1__merge(x_1, x_2, x_3); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_4; +} +} +lean_object* _init_l_Lean_Format_spaceUptoLine___main___closed__1() { +_start: +{ +uint8_t x_1; lean_object* x_2; lean_object* x_3; +x_1 = 0; +x_2 = lean_unsigned_to_nat(0u); +x_3 = lean_alloc_ctor(0, 1, 2); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set_uint8(x_3, sizeof(void*)*1, x_1); +lean_ctor_set_uint8(x_3, sizeof(void*)*1 + 1, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_Format_spaceUptoLine___main___closed__2() { +_start: +{ +uint8_t x_1; uint8_t x_2; lean_object* x_3; lean_object* x_4; +x_1 = 1; +x_2 = 0; +x_3 = lean_unsigned_to_nat(0u); +x_4 = lean_alloc_ctor(0, 1, 2); +lean_ctor_set(x_4, 0, x_3); +lean_ctor_set_uint8(x_4, sizeof(void*)*1, x_1); +lean_ctor_set_uint8(x_4, sizeof(void*)*1 + 1, x_2); +return x_4; +} +} +lean_object* l_Lean_Format_spaceUptoLine___main(lean_object* x_1, lean_object* x_2) { +_start: +{ +switch (lean_obj_tag(x_1)) { +case 0: +{ +lean_object* x_3; +x_3 = l_Lean_Format_spaceUptoLine___main___closed__1; +return x_3; +} +case 1: +{ +lean_object* x_4; +x_4 = l_Lean_Format_spaceUptoLine___main___closed__2; +return x_4; +} +case 2: +{ +lean_object* x_5; lean_object* x_6; uint8_t x_7; uint8_t x_8; lean_object* x_9; +x_5 = lean_ctor_get(x_1, 0); +x_6 = lean_string_length(x_5); +x_7 = lean_nat_dec_lt(x_2, x_6); +x_8 = 0; +x_9 = lean_alloc_ctor(0, 1, 2); +lean_ctor_set(x_9, 0, x_6); +lean_ctor_set_uint8(x_9, sizeof(void*)*1, x_8); +lean_ctor_set_uint8(x_9, sizeof(void*)*1 + 1, x_7); +return x_9; +} +case 4: +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; uint8_t x_13; +x_10 = lean_ctor_get(x_1, 0); +x_11 = lean_ctor_get(x_1, 1); +x_12 = l_Lean_Format_spaceUptoLine___main(x_10, x_2); +x_13 = lean_ctor_get_uint8(x_12, sizeof(void*)*1 + 1); +if (x_13 == 0) +{ +uint8_t x_14; +x_14 = lean_ctor_get_uint8(x_12, sizeof(void*)*1); +if (x_14 == 0) +{ +lean_object* x_15; uint8_t x_16; +x_15 = l_Lean_Format_spaceUptoLine___main(x_11, x_2); +x_16 = lean_ctor_get_uint8(x_15, sizeof(void*)*1 + 1); +if (x_16 == 0) +{ +uint8_t x_17; +x_17 = lean_ctor_get_uint8(x_15, sizeof(void*)*1); +if (x_17 == 0) +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21; uint8_t x_22; lean_object* x_23; +x_18 = lean_ctor_get(x_12, 0); +lean_inc(x_18); +lean_dec(x_12); +x_19 = lean_ctor_get(x_15, 0); +lean_inc(x_19); +lean_dec(x_15); +x_20 = lean_nat_add(x_18, x_19); +lean_dec(x_19); +lean_dec(x_18); +x_21 = lean_nat_dec_lt(x_2, x_20); +x_22 = 0; +x_23 = lean_alloc_ctor(0, 1, 2); +lean_ctor_set(x_23, 0, x_20); +lean_ctor_set_uint8(x_23, sizeof(void*)*1, x_22); +lean_ctor_set_uint8(x_23, sizeof(void*)*1 + 1, x_21); +return x_23; +} +else +{ +lean_dec(x_12); +return x_15; +} +} +else +{ +lean_dec(x_12); +return x_15; +} +} +else +{ +return x_12; +} +} +else +{ +return x_12; +} +} +default: +{ +lean_object* x_24; +x_24 = lean_ctor_get(x_1, 1); +x_1 = x_24; +goto _start; +} +} +} +} +lean_object* l_Lean_Format_spaceUptoLine___main___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Format_spaceUptoLine___main(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Format_spaceUptoLine(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Format_spaceUptoLine___main(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Format_spaceUptoLine___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Format_spaceUptoLine(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Format_spaceUptoLine_x27___main(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_3; +x_3 = l_Lean_Format_spaceUptoLine___main___closed__1; +return x_3; +} +else +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = lean_ctor_get(x_4, 1); +x_7 = l_Lean_Format_spaceUptoLine___main(x_6, x_2); +x_8 = lean_ctor_get_uint8(x_7, sizeof(void*)*1 + 1); +if (x_8 == 0) +{ +uint8_t x_9; +x_9 = lean_ctor_get_uint8(x_7, sizeof(void*)*1); +if (x_9 == 0) +{ +lean_object* x_10; uint8_t x_11; +x_10 = l_Lean_Format_spaceUptoLine_x27___main(x_5, x_2); +x_11 = lean_ctor_get_uint8(x_10, sizeof(void*)*1 + 1); +if (x_11 == 0) +{ +uint8_t x_12; +x_12 = lean_ctor_get_uint8(x_10, sizeof(void*)*1); +if (x_12 == 0) +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; uint8_t x_17; lean_object* x_18; +x_13 = lean_ctor_get(x_7, 0); +lean_inc(x_13); +lean_dec(x_7); +x_14 = lean_ctor_get(x_10, 0); +lean_inc(x_14); +lean_dec(x_10); +x_15 = lean_nat_add(x_13, x_14); +lean_dec(x_14); +lean_dec(x_13); +x_16 = lean_nat_dec_lt(x_2, x_15); +x_17 = 0; +x_18 = lean_alloc_ctor(0, 1, 2); +lean_ctor_set(x_18, 0, x_15); +lean_ctor_set_uint8(x_18, sizeof(void*)*1, x_17); +lean_ctor_set_uint8(x_18, sizeof(void*)*1 + 1, x_16); +return x_18; +} +else +{ +lean_dec(x_7); +return x_10; +} +} +else +{ +lean_dec(x_7); +return x_10; +} +} +else +{ +return x_7; +} +} +else +{ +return x_7; +} +} +} +} +lean_object* l_Lean_Format_spaceUptoLine_x27___main___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Format_spaceUptoLine_x27___main(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Format_spaceUptoLine_x27(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Format_spaceUptoLine_x27___main(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Format_spaceUptoLine_x27___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Format_spaceUptoLine_x27(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Format_be___main(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_4) == 0) +{ +lean_dec(x_2); +return x_3; +} +else +{ +lean_object* x_5; lean_object* x_6; +x_5 = lean_ctor_get(x_4, 0); +lean_inc(x_5); +x_6 = lean_ctor_get(x_5, 1); +lean_inc(x_6); +switch (lean_obj_tag(x_6)) { +case 0: +{ +lean_object* x_7; +lean_dec(x_5); +x_7 = lean_ctor_get(x_4, 1); +lean_inc(x_7); +lean_dec(x_4); +x_4 = x_7; +goto _start; +} +case 1: +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; uint32_t x_13; lean_object* x_14; +lean_dec(x_2); +x_9 = lean_ctor_get(x_4, 1); +lean_inc(x_9); +lean_dec(x_4); +x_10 = lean_ctor_get(x_5, 0); +lean_inc(x_10); +lean_dec(x_5); +x_11 = l_IO_println___rarg___closed__1; +x_12 = lean_string_append(x_3, x_11); +x_13 = 32; +lean_inc(x_10); +x_14 = l_Nat_repeatAux___main___at_String_pushn___spec__1(x_13, x_10, x_12); +x_2 = x_10; +x_3 = x_14; +x_4 = x_9; +goto _start; +} +case 2: +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +lean_dec(x_5); +x_16 = lean_ctor_get(x_4, 1); +lean_inc(x_16); +lean_dec(x_4); +x_17 = lean_ctor_get(x_6, 0); +lean_inc(x_17); +lean_dec(x_6); +x_18 = lean_string_length(x_17); +x_19 = lean_nat_add(x_2, x_18); +lean_dec(x_18); +lean_dec(x_2); +x_20 = lean_string_append(x_3, x_17); +lean_dec(x_17); +x_2 = x_19; +x_3 = x_20; +x_4 = x_16; +goto _start; +} +case 3: +{ +uint8_t x_22; +x_22 = !lean_is_exclusive(x_4); +if (x_22 == 0) +{ +lean_object* x_23; uint8_t x_24; +x_23 = lean_ctor_get(x_4, 0); +lean_dec(x_23); +x_24 = !lean_is_exclusive(x_5); +if (x_24 == 0) +{ +lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_25 = lean_ctor_get(x_5, 0); +x_26 = lean_ctor_get(x_5, 1); +lean_dec(x_26); +x_27 = lean_ctor_get(x_6, 0); +lean_inc(x_27); +x_28 = lean_ctor_get(x_6, 1); +lean_inc(x_28); +lean_dec(x_6); +x_29 = lean_nat_add(x_25, x_27); +lean_dec(x_27); +lean_dec(x_25); +lean_ctor_set(x_5, 1, x_28); +lean_ctor_set(x_5, 0, x_29); +goto _start; +} +else +{ +lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; +x_31 = lean_ctor_get(x_5, 0); +lean_inc(x_31); +lean_dec(x_5); +x_32 = lean_ctor_get(x_6, 0); +lean_inc(x_32); +x_33 = lean_ctor_get(x_6, 1); +lean_inc(x_33); +lean_dec(x_6); +x_34 = lean_nat_add(x_31, x_32); +lean_dec(x_32); +lean_dec(x_31); +x_35 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_35, 0, x_34); +lean_ctor_set(x_35, 1, x_33); +lean_ctor_set(x_4, 0, x_35); +goto _start; +} +} +else +{ +lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; +x_37 = lean_ctor_get(x_4, 1); +lean_inc(x_37); +lean_dec(x_4); +x_38 = lean_ctor_get(x_5, 0); +lean_inc(x_38); +if (lean_is_exclusive(x_5)) { + lean_ctor_release(x_5, 0); + lean_ctor_release(x_5, 1); + x_39 = x_5; +} else { + lean_dec_ref(x_5); + x_39 = lean_box(0); +} +x_40 = lean_ctor_get(x_6, 0); +lean_inc(x_40); +x_41 = lean_ctor_get(x_6, 1); +lean_inc(x_41); +lean_dec(x_6); +x_42 = lean_nat_add(x_38, x_40); +lean_dec(x_40); +lean_dec(x_38); +if (lean_is_scalar(x_39)) { + x_43 = lean_alloc_ctor(0, 2, 0); +} else { + x_43 = x_39; +} +lean_ctor_set(x_43, 0, x_42); +lean_ctor_set(x_43, 1, x_41); +x_44 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_44, 0, x_43); +lean_ctor_set(x_44, 1, x_37); +x_4 = x_44; +goto _start; +} +} +case 4: +{ +uint8_t x_46; +x_46 = !lean_is_exclusive(x_4); +if (x_46 == 0) +{ +lean_object* x_47; uint8_t x_48; +x_47 = lean_ctor_get(x_4, 0); +lean_dec(x_47); +x_48 = !lean_is_exclusive(x_5); +if (x_48 == 0) +{ +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_49 = lean_ctor_get(x_5, 0); +x_50 = lean_ctor_get(x_5, 1); +lean_dec(x_50); +x_51 = lean_ctor_get(x_6, 0); +lean_inc(x_51); +x_52 = lean_ctor_get(x_6, 1); +lean_inc(x_52); +lean_dec(x_6); +lean_inc(x_49); +lean_ctor_set(x_5, 1, x_51); +x_53 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_53, 0, x_49); +lean_ctor_set(x_53, 1, x_52); +lean_ctor_set(x_4, 0, x_53); +x_54 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_54, 0, x_5); +lean_ctor_set(x_54, 1, x_4); +x_4 = x_54; +goto _start; +} +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; +x_56 = lean_ctor_get(x_5, 0); +lean_inc(x_56); +lean_dec(x_5); +x_57 = lean_ctor_get(x_6, 0); +lean_inc(x_57); +x_58 = lean_ctor_get(x_6, 1); +lean_inc(x_58); +lean_dec(x_6); +lean_inc(x_56); +x_59 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_59, 0, x_56); +lean_ctor_set(x_59, 1, x_57); +x_60 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_60, 0, x_56); +lean_ctor_set(x_60, 1, x_58); +lean_ctor_set(x_4, 0, x_60); +x_61 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_61, 0, x_59); +lean_ctor_set(x_61, 1, x_4); +x_4 = x_61; +goto _start; +} +} +else +{ +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_63 = lean_ctor_get(x_4, 1); +lean_inc(x_63); +lean_dec(x_4); +x_64 = lean_ctor_get(x_5, 0); +lean_inc(x_64); +if (lean_is_exclusive(x_5)) { + lean_ctor_release(x_5, 0); + lean_ctor_release(x_5, 1); + x_65 = x_5; +} else { + lean_dec_ref(x_5); + x_65 = lean_box(0); +} +x_66 = lean_ctor_get(x_6, 0); +lean_inc(x_66); +x_67 = lean_ctor_get(x_6, 1); +lean_inc(x_67); +lean_dec(x_6); +lean_inc(x_64); +if (lean_is_scalar(x_65)) { + x_68 = lean_alloc_ctor(0, 2, 0); +} else { + x_68 = x_65; +} +lean_ctor_set(x_68, 0, x_64); +lean_ctor_set(x_68, 1, x_66); +x_69 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_69, 0, x_64); +lean_ctor_set(x_69, 1, x_67); +x_70 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_70, 0, x_69); +lean_ctor_set(x_70, 1, x_63); +x_71 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_71, 0, x_68); +lean_ctor_set(x_71, 1, x_70); +x_4 = x_71; +goto _start; +} +} +default: +{ +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_88; uint8_t x_89; +x_73 = lean_ctor_get(x_4, 1); +lean_inc(x_73); +if (lean_is_exclusive(x_4)) { + lean_ctor_release(x_4, 0); + lean_ctor_release(x_4, 1); + x_74 = x_4; +} else { + lean_dec_ref(x_4); + x_74 = lean_box(0); +} +x_75 = lean_ctor_get(x_5, 0); +lean_inc(x_75); +if (lean_is_exclusive(x_5)) { + lean_ctor_release(x_5, 0); + lean_ctor_release(x_5, 1); + x_76 = x_5; +} else { + lean_dec_ref(x_5); + x_76 = lean_box(0); +} +x_77 = lean_ctor_get(x_6, 0); +lean_inc(x_77); +x_78 = lean_ctor_get(x_6, 1); +lean_inc(x_78); +lean_dec(x_6); +x_88 = l_Lean_Format_spaceUptoLine___main(x_77, x_1); +x_89 = lean_ctor_get_uint8(x_88, sizeof(void*)*1 + 1); +if (x_89 == 0) +{ +uint8_t x_90; +x_90 = lean_ctor_get_uint8(x_88, sizeof(void*)*1); +if (x_90 == 0) +{ +lean_object* x_91; uint8_t x_92; +x_91 = l_Lean_Format_spaceUptoLine_x27___main(x_73, x_1); +x_92 = lean_ctor_get_uint8(x_91, sizeof(void*)*1 + 1); +if (x_92 == 0) +{ +uint8_t x_93; +x_93 = lean_ctor_get_uint8(x_91, sizeof(void*)*1); +if (x_93 == 0) +{ +lean_object* x_94; lean_object* x_95; lean_object* x_96; uint8_t x_97; uint8_t x_98; lean_object* x_99; +x_94 = lean_ctor_get(x_88, 0); +lean_inc(x_94); +lean_dec(x_88); +x_95 = lean_ctor_get(x_91, 0); +lean_inc(x_95); +lean_dec(x_91); +x_96 = lean_nat_add(x_94, x_95); +lean_dec(x_95); +lean_dec(x_94); +x_97 = lean_nat_dec_lt(x_1, x_96); +x_98 = 0; +x_99 = lean_alloc_ctor(0, 1, 2); +lean_ctor_set(x_99, 0, x_96); +lean_ctor_set_uint8(x_99, sizeof(void*)*1, x_98); +lean_ctor_set_uint8(x_99, sizeof(void*)*1 + 1, x_97); +x_79 = x_99; +goto block_87; +} +else +{ +lean_dec(x_88); +x_79 = x_91; +goto block_87; +} +} +else +{ +lean_dec(x_88); +x_79 = x_91; +goto block_87; +} +} +else +{ +x_79 = x_88; +goto block_87; +} +} +else +{ +x_79 = x_88; +goto block_87; +} +block_87: +{ +uint8_t x_80; +x_80 = lean_ctor_get_uint8(x_79, sizeof(void*)*1 + 1); +lean_dec(x_79); +if (x_80 == 0) +{ +lean_object* x_81; lean_object* x_82; +lean_dec(x_78); +if (lean_is_scalar(x_76)) { + x_81 = lean_alloc_ctor(0, 2, 0); +} else { + x_81 = x_76; +} +lean_ctor_set(x_81, 0, x_75); +lean_ctor_set(x_81, 1, x_77); +if (lean_is_scalar(x_74)) { + x_82 = lean_alloc_ctor(1, 2, 0); +} else { + x_82 = x_74; +} +lean_ctor_set(x_82, 0, x_81); +lean_ctor_set(x_82, 1, x_73); +x_4 = x_82; +goto _start; +} +else +{ +lean_object* x_84; lean_object* x_85; +lean_dec(x_77); +if (lean_is_scalar(x_76)) { + x_84 = lean_alloc_ctor(0, 2, 0); +} else { + x_84 = x_76; +} +lean_ctor_set(x_84, 0, x_75); +lean_ctor_set(x_84, 1, x_78); +if (lean_is_scalar(x_74)) { + x_85 = lean_alloc_ctor(1, 2, 0); +} else { + x_85 = x_74; +} +lean_ctor_set(x_85, 0, x_84); +lean_ctor_set(x_85, 1, x_73); +x_4 = x_85; +goto _start; +} +} +} +} +} +} +} +lean_object* l_Lean_Format_be___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_Lean_Format_be___main(x_1, x_2, x_3, x_4); +lean_dec(x_1); +return x_5; +} +} +lean_object* l_Lean_Format_be(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_Lean_Format_be___main(x_1, x_2, x_3, x_4); +return x_5; +} +} +lean_object* l_Lean_Format_be___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_Lean_Format_be(x_1, x_2, x_3, x_4); +lean_dec(x_1); +return x_5; +} +} +lean_object* l_Lean_Format_bracket(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; uint8_t x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_4 = lean_string_length(x_1); +x_5 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_5, 0, x_1); +x_6 = 0; +x_7 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_7, 0, x_5); +lean_ctor_set(x_7, 1, x_2); +lean_ctor_set_uint8(x_7, sizeof(void*)*2, x_6); +x_8 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_8, 0, x_3); +x_9 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_9, 0, x_7); +lean_ctor_set(x_9, 1, x_8); +lean_ctor_set_uint8(x_9, sizeof(void*)*2, x_6); +x_10 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_10, 0, x_4); +lean_ctor_set(x_10, 1, x_9); +x_11 = lean_format_group(x_10); +return x_11; +} +} +lean_object* _init_l_Lean_Format_paren___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Prod_HasRepr___rarg___closed__1; +x_2 = lean_string_length(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Format_paren___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Prod_HasRepr___rarg___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_Format_paren___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Option_HasRepr___rarg___closed__3; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Format_paren(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_2 = 0; +x_3 = l_Lean_Format_paren___closed__2; +x_4 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_4, 0, x_3); +lean_ctor_set(x_4, 1, x_1); +lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_2); +x_5 = l_Lean_Format_paren___closed__3; +x_6 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_6, 0, x_4); +lean_ctor_set(x_6, 1, x_5); +lean_ctor_set_uint8(x_6, sizeof(void*)*2, x_2); +x_7 = l_Lean_Format_paren___closed__1; +x_8 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_8, 0, x_7); +lean_ctor_set(x_8, 1, x_6); +x_9 = lean_format_group(x_8); +return x_9; +} +} +lean_object* _init_l_Lean_Format_sbracket___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_List_repr___rarg___closed__2; +x_2 = lean_string_length(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Format_sbracket___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_List_repr___rarg___closed__2; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Format_sbracket___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_List_repr___rarg___closed__3; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Format_sbracket(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_2 = 0; +x_3 = l_Lean_Format_sbracket___closed__2; +x_4 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_4, 0, x_3); +lean_ctor_set(x_4, 1, x_1); +lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_2); +x_5 = l_Lean_Format_sbracket___closed__3; +x_6 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_6, 0, x_4); +lean_ctor_set(x_6, 1, x_5); +lean_ctor_set_uint8(x_6, sizeof(void*)*2, x_2); +x_7 = l_Lean_Format_sbracket___closed__1; +x_8 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_8, 0, x_7); +lean_ctor_set(x_8, 1, x_6); +x_9 = lean_format_group(x_8); +return x_9; +} +} +lean_object* _init_l_Lean_Format_defIndent() { +_start: +{ +lean_object* x_1; +x_1 = lean_unsigned_to_nat(4u); +return x_1; +} +} +uint8_t _init_l_Lean_Format_defUnicode() { +_start: +{ +uint8_t x_1; +x_1 = 1; +return x_1; +} +} +lean_object* _init_l_Lean_Format_defWidth() { +_start: +{ +lean_object* x_1; +x_1 = lean_unsigned_to_nat(120u); +return x_1; +} +} +lean_object* _init_l_Lean_Format_getWidth___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("format"); +return x_1; +} +} +lean_object* _init_l_Lean_Format_getWidth___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Format_getWidth___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Format_getWidth___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("width"); +return x_1; +} +} +lean_object* _init_l_Lean_Format_getWidth___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Format_getWidth___closed__2; +x_2 = l_Lean_Format_getWidth___closed__3; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Format_getWidth(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = l_Lean_Format_getWidth___closed__4; +x_3 = l_Lean_Format_defWidth; +x_4 = l_Lean_KVMap_getNat(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l_Lean_Format_getWidth___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Format_getWidth(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Format_getIndent___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("indent"); +return x_1; +} +} +lean_object* _init_l_Lean_Format_getIndent___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Format_getWidth___closed__2; +x_2 = l_Lean_Format_getIndent___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Format_getIndent(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = l_Lean_Format_getIndent___closed__2; +x_3 = l_Lean_Format_defIndent; +x_4 = l_Lean_KVMap_getNat(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l_Lean_Format_getIndent___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Format_getIndent(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Format_getUnicode___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("unicode"); +return x_1; +} +} +lean_object* _init_l_Lean_Format_getUnicode___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Format_getWidth___closed__2; +x_2 = l_Lean_Format_getUnicode___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +uint8_t l_Lean_Format_getUnicode(lean_object* x_1) { +_start: +{ +lean_object* x_2; uint8_t x_3; uint8_t x_4; +x_2 = l_Lean_Format_getUnicode___closed__2; +x_3 = l_Lean_Format_defUnicode; +x_4 = l_Lean_KVMap_getBool(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l_Lean_Format_getUnicode___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l_Lean_Format_getUnicode(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Format_indentOption___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Format_defIndent; +x_2 = lean_alloc_ctor(3, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Format_indentOption___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("indentation"); +return x_1; +} +} +lean_object* _init_l_Lean_Format_indentOption___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Format_indentOption___closed__1; +x_2 = l_Lean_Format_getWidth___closed__1; +x_3 = l_Lean_Format_indentOption___closed__2; +x_4 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_4, 0, x_1); +lean_ctor_set(x_4, 1, x_2); +lean_ctor_set(x_4, 2, x_3); +return x_4; +} +} +lean_object* l_Lean_Format_indentOption(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = l_Lean_Format_getIndent___closed__2; +x_3 = l_Lean_Format_indentOption___closed__3; +x_4 = l_Lean_registerOption(x_2, x_3, x_1); +return x_4; +} +} +lean_object* _init_l_Lean_Format_unicodeOption___closed__1() { +_start: +{ +uint8_t x_1; lean_object* x_2; +x_1 = l_Lean_Format_defUnicode; +x_2 = lean_alloc_ctor(1, 0, 1); +lean_ctor_set_uint8(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Format_unicodeOption___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("unicode characters"); +return x_1; +} +} +lean_object* _init_l_Lean_Format_unicodeOption___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Format_unicodeOption___closed__1; +x_2 = l_Lean_Format_getWidth___closed__1; +x_3 = l_Lean_Format_unicodeOption___closed__2; +x_4 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_4, 0, x_1); +lean_ctor_set(x_4, 1, x_2); +lean_ctor_set(x_4, 2, x_3); +return x_4; +} +} +lean_object* l_Lean_Format_unicodeOption(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = l_Lean_Format_getUnicode___closed__2; +x_3 = l_Lean_Format_unicodeOption___closed__3; +x_4 = l_Lean_registerOption(x_2, x_3, x_1); +return x_4; +} +} +lean_object* _init_l_Lean_Format_widthOption___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Format_defWidth; +x_2 = lean_alloc_ctor(3, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Format_widthOption___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("line width"); +return x_1; +} +} +lean_object* _init_l_Lean_Format_widthOption___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Format_widthOption___closed__1; +x_2 = l_Lean_Format_getWidth___closed__1; +x_3 = l_Lean_Format_widthOption___closed__2; +x_4 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_4, 0, x_1); +lean_ctor_set(x_4, 1, x_2); +lean_ctor_set(x_4, 2, x_3); +return x_4; +} +} +lean_object* l_Lean_Format_widthOption(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = l_Lean_Format_getWidth___closed__4; +x_3 = l_Lean_Format_widthOption___closed__3; +x_4 = l_Lean_registerOption(x_2, x_3, x_1); +return x_4; +} +} +lean_object* lean_format_pretty(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_3 = lean_unsigned_to_nat(0u); +x_4 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_4, 0, x_3); +lean_ctor_set(x_4, 1, x_1); +x_5 = lean_box(0); +x_6 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_6, 0, x_4); +lean_ctor_set(x_6, 1, x_5); +x_7 = l_String_splitAux___main___closed__1; +x_8 = l_Lean_Format_be___main(x_2, x_3, x_7, x_6); +lean_dec(x_2); +return x_8; +} +} +lean_object* l_Lean_Format_pretty(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; +x_3 = l_Lean_Format_getWidth(x_2); +x_4 = lean_format_pretty(x_1, x_3); +return x_4; +} +} +lean_object* l_Lean_Format_pretty___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Format_pretty(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} +lean_object* l_Lean_fmt___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_Lean_fmt(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_fmt___rarg), 2, 0); +return x_2; +} +} +lean_object* l_Lean_toStringToFormat___rarg___lambda__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_toStringToFormat___rarg___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_toStringToFormat___rarg___lambda__1), 1, 0); +return x_1; +} +} +lean_object* l_Lean_toStringToFormat___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_toStringToFormat___rarg___closed__1; +x_3 = lean_alloc_closure((void*)(l_Function_comp___rarg), 3, 2); +lean_closure_set(x_3, 0, x_2); +lean_closure_set(x_3, 1, x_1); +return x_3; +} +} +lean_object* l_Lean_toStringToFormat(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_toStringToFormat___rarg), 1, 0); +return x_2; +} +} +lean_object* _init_l_Lean_formatHasFormat() { +_start: +{ +lean_object* x_1; +x_1 = l_joinM___rarg___closed__1; +return x_1; +} +} +lean_object* l_Lean_stringHasFormat(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Format_joinSep___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_4; +lean_dec(x_3); +lean_dec(x_1); +x_4 = lean_box(0); +return x_4; +} +else +{ +lean_object* x_5; +x_5 = lean_ctor_get(x_2, 1); +lean_inc(x_5); +if (lean_obj_tag(x_5) == 0) +{ +lean_object* x_6; lean_object* x_7; +lean_dec(x_3); +x_6 = lean_ctor_get(x_2, 0); +lean_inc(x_6); +lean_dec(x_2); +x_7 = lean_apply_1(x_1, x_6); +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; uint8_t x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_8 = lean_ctor_get(x_2, 0); +lean_inc(x_8); +lean_dec(x_2); +lean_inc(x_1); +x_9 = lean_apply_1(x_1, x_8); +x_10 = 0; +lean_inc(x_3); +x_11 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_11, 0, x_9); +lean_ctor_set(x_11, 1, x_3); +lean_ctor_set_uint8(x_11, sizeof(void*)*2, x_10); +x_12 = l_Lean_Format_joinSep___main___rarg(x_1, x_5, x_3); +x_13 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_13, 0, x_11); +lean_ctor_set(x_13, 1, x_12); +lean_ctor_set_uint8(x_13, sizeof(void*)*2, x_10); +return x_13; +} +} +} +} +lean_object* l_Lean_Format_joinSep___main(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Format_joinSep___main___rarg), 3, 0); +return x_2; +} +} +lean_object* l_Lean_Format_joinSep___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Format_joinSep___main___rarg(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l_Lean_Format_joinSep(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Format_joinSep___rarg), 3, 0); +return x_2; +} +} +lean_object* l_Lean_Format_prefixJoin___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_4; +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(0); +return x_4; +} +else +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_5 = lean_ctor_get(x_3, 0); +lean_inc(x_5); +x_6 = lean_ctor_get(x_3, 1); +lean_inc(x_6); +lean_dec(x_3); +lean_inc(x_1); +x_7 = lean_apply_1(x_1, x_5); +x_8 = 0; +lean_inc(x_2); +x_9 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_9, 0, x_2); +lean_ctor_set(x_9, 1, x_7); +lean_ctor_set_uint8(x_9, sizeof(void*)*2, x_8); +x_10 = l_Lean_Format_prefixJoin___main___rarg(x_1, x_2, x_6); +x_11 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_11, 0, x_9); +lean_ctor_set(x_11, 1, x_10); +lean_ctor_set_uint8(x_11, sizeof(void*)*2, x_8); +return x_11; +} +} +} +lean_object* l_Lean_Format_prefixJoin___main(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Format_prefixJoin___main___rarg), 3, 0); +return x_2; +} +} +lean_object* l_Lean_Format_prefixJoin___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Format_prefixJoin___main___rarg(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l_Lean_Format_prefixJoin(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Format_prefixJoin___rarg), 3, 0); +return x_2; +} +} +lean_object* l_Lean_Format_joinSuffix___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_4; +lean_dec(x_3); +lean_dec(x_1); +x_4 = lean_box(0); +return x_4; +} +else +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_5 = lean_ctor_get(x_2, 0); +lean_inc(x_5); +x_6 = lean_ctor_get(x_2, 1); +lean_inc(x_6); +lean_dec(x_2); +lean_inc(x_1); +x_7 = lean_apply_1(x_1, x_5); +x_8 = 0; +lean_inc(x_3); +x_9 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_9, 0, x_7); +lean_ctor_set(x_9, 1, x_3); +lean_ctor_set_uint8(x_9, sizeof(void*)*2, x_8); +x_10 = l_Lean_Format_joinSuffix___main___rarg(x_1, x_6, x_3); +x_11 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_11, 0, x_9); +lean_ctor_set(x_11, 1, x_10); +lean_ctor_set_uint8(x_11, sizeof(void*)*2, x_8); +return x_11; +} +} +} +lean_object* l_Lean_Format_joinSuffix___main(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Format_joinSuffix___main___rarg), 3, 0); +return x_2; +} +} +lean_object* l_Lean_Format_joinSuffix___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Format_joinSuffix___main___rarg(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l_Lean_Format_joinSuffix(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Format_joinSuffix___rarg), 3, 0); +return x_2; +} +} +lean_object* _init_l_Lean_List_format___rarg___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_List_repr___rarg___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_List_format___rarg___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string(","); +return x_1; +} +} +lean_object* _init_l_Lean_List_format___rarg___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_List_format___rarg___closed__2; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_List_format___rarg___closed__4() { +_start: +{ +uint8_t x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = 0; +x_2 = l_Lean_List_format___rarg___closed__3; +x_3 = lean_box(1); +x_4 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_4, 0, x_2); +lean_ctor_set(x_4, 1, x_3); +lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_1); +return x_4; +} +} +lean_object* l_Lean_List_format___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 = l_Lean_List_format___rarg___closed__1; +return x_3; +} +else +{ +lean_object* x_4; lean_object* x_5; uint8_t 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; +x_4 = l_Lean_List_format___rarg___closed__4; +x_5 = l_Lean_Format_joinSep___main___rarg(x_1, x_2, x_4); +x_6 = 0; +x_7 = l_Lean_Format_sbracket___closed__2; +x_8 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_8, 0, x_7); +lean_ctor_set(x_8, 1, x_5); +lean_ctor_set_uint8(x_8, sizeof(void*)*2, x_6); +x_9 = l_Lean_Format_sbracket___closed__3; +x_10 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_10, 0, x_8); +lean_ctor_set(x_10, 1, x_9); +lean_ctor_set_uint8(x_10, sizeof(void*)*2, x_6); +x_11 = l_Lean_Format_sbracket___closed__1; +x_12 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_12, 0, x_11); +lean_ctor_set(x_12, 1, x_10); +x_13 = lean_format_group(x_12); +return x_13; +} +} +} +lean_object* l_Lean_List_format(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_List_format___rarg), 2, 0); +return x_2; +} +} +lean_object* l_Lean_listHasFormat___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_List_format___rarg), 2, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_listHasFormat(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_listHasFormat___rarg), 1, 0); +return x_2; +} +} +lean_object* l_Lean_fmt___at_Lean_arrayHasFormat___spec__1___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_List_format___rarg(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_fmt___at_Lean_arrayHasFormat___spec__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_fmt___at_Lean_arrayHasFormat___spec__1___rarg), 2, 0); +return x_2; +} +} +lean_object* _init_l_Lean_arrayHasFormat___rarg___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Array_HasRepr___rarg___closed__1; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_arrayHasFormat___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; uint8_t x_5; lean_object* x_6; lean_object* x_7; +x_3 = l_Array_toList___rarg(x_2); +x_4 = l_Lean_List_format___rarg(x_1, x_3); +x_5 = 0; +x_6 = l_Lean_arrayHasFormat___rarg___closed__1; +x_7 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_4); +lean_ctor_set_uint8(x_7, sizeof(void*)*2, x_5); +return x_7; +} +} +lean_object* l_Lean_arrayHasFormat(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_arrayHasFormat___rarg___boxed), 2, 0); +return x_2; +} +} +lean_object* l_Lean_arrayHasFormat___rarg___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_arrayHasFormat___rarg(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Option_format___rarg___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Option_HasRepr___rarg___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_Option_format___rarg___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("some "); +return x_1; +} +} +lean_object* _init_l_Lean_Option_format___rarg___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Option_format___rarg___closed__2; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Option_format___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 = l_Lean_Option_format___rarg___closed__1; +return x_3; +} +else +{ +lean_object* x_4; lean_object* x_5; uint8_t x_6; lean_object* x_7; lean_object* x_8; +x_4 = lean_ctor_get(x_2, 0); +lean_inc(x_4); +lean_dec(x_2); +x_5 = lean_apply_1(x_1, x_4); +x_6 = 0; +x_7 = l_Lean_Option_format___rarg___closed__3; +x_8 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_8, 0, x_7); +lean_ctor_set(x_8, 1, x_5); +lean_ctor_set_uint8(x_8, sizeof(void*)*2, x_6); +return x_8; +} +} +} +lean_object* l_Lean_Option_format(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Option_format___rarg), 2, 0); +return x_2; +} +} +lean_object* l_Lean_optionHasFormat___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Option_format___rarg), 2, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_optionHasFormat(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_optionHasFormat___rarg), 1, 0); +return x_2; +} +} +lean_object* l_Lean_prodHasFormat___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; uint8_t x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_4 = lean_ctor_get(x_3, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_3, 1); +lean_inc(x_5); +lean_dec(x_3); +x_6 = lean_apply_1(x_1, x_4); +x_7 = 0; +x_8 = l_Lean_List_format___rarg___closed__3; +x_9 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_9, 0, x_6); +lean_ctor_set(x_9, 1, x_8); +lean_ctor_set_uint8(x_9, sizeof(void*)*2, x_7); +x_10 = lean_box(1); +x_11 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_11, 0, x_9); +lean_ctor_set(x_11, 1, x_10); +lean_ctor_set_uint8(x_11, sizeof(void*)*2, x_7); +x_12 = lean_apply_1(x_2, x_5); +x_13 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_13, 0, x_11); +lean_ctor_set(x_13, 1, x_12); +lean_ctor_set_uint8(x_13, sizeof(void*)*2, x_7); +x_14 = l_Lean_Format_paren___closed__2; +x_15 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_15, 0, x_14); +lean_ctor_set(x_15, 1, x_13); +lean_ctor_set_uint8(x_15, sizeof(void*)*2, x_7); +x_16 = l_Lean_Format_paren___closed__3; +x_17 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_17, 0, x_15); +lean_ctor_set(x_17, 1, x_16); +lean_ctor_set_uint8(x_17, sizeof(void*)*2, x_7); +x_18 = l_Lean_Format_paren___closed__1; +x_19 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_17); +x_20 = lean_format_group(x_19); +return x_20; +} +} +lean_object* l_Lean_prodHasFormat(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Lean_prodHasFormat___rarg), 3, 0); +return x_3; +} +} +lean_object* l_Array_iterateMAux___main___at_Lean_Format_joinArraySep___spec__1___rarg(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: +{ +lean_object* x_7; uint8_t x_8; +x_7 = lean_array_get_size(x_4); +x_8 = lean_nat_dec_lt(x_5, x_7); +lean_dec(x_7); +if (x_8 == 0) +{ +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_1); +return x_6; +} +else +{ +lean_object* x_9; lean_object* x_10; uint8_t x_11; lean_object* x_12; lean_object* x_13; +x_9 = lean_array_fget(x_4, x_5); +x_10 = lean_unsigned_to_nat(0u); +x_11 = lean_nat_dec_lt(x_10, x_5); +x_12 = lean_unsigned_to_nat(1u); +x_13 = lean_nat_add(x_5, x_12); +lean_dec(x_5); +if (x_11 == 0) +{ +lean_object* x_14; uint8_t x_15; lean_object* x_16; +lean_inc(x_1); +x_14 = lean_apply_1(x_1, x_9); +x_15 = 0; +x_16 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_16, 0, x_6); +lean_ctor_set(x_16, 1, x_14); +lean_ctor_set_uint8(x_16, sizeof(void*)*2, x_15); +x_5 = x_13; +x_6 = x_16; +goto _start; +} +else +{ +uint8_t x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_18 = 0; +lean_inc(x_3); +x_19 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_19, 0, x_6); +lean_ctor_set(x_19, 1, x_3); +lean_ctor_set_uint8(x_19, sizeof(void*)*2, x_18); +lean_inc(x_1); +x_20 = lean_apply_1(x_1, x_9); +x_21 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_21, 0, x_19); +lean_ctor_set(x_21, 1, x_20); +lean_ctor_set_uint8(x_21, sizeof(void*)*2, x_18); +x_5 = x_13; +x_6 = x_21; +goto _start; +} +} +} +} +lean_object* l_Array_iterateMAux___main___at_Lean_Format_joinArraySep___spec__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Array_iterateMAux___main___at_Lean_Format_joinArraySep___spec__1___rarg___boxed), 6, 0); +return x_2; +} +} +lean_object* l_Lean_Format_joinArraySep___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = lean_unsigned_to_nat(0u); +x_5 = lean_box(0); +x_6 = l_Array_iterateMAux___main___at_Lean_Format_joinArraySep___spec__1___rarg(x_1, x_2, x_3, x_2, x_4, x_5); +return x_6; +} +} +lean_object* l_Lean_Format_joinArraySep(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Format_joinArraySep___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l_Array_iterateMAux___main___at_Lean_Format_joinArraySep___spec__1___rarg___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: +{ +lean_object* x_7; +x_7 = l_Array_iterateMAux___main___at_Lean_Format_joinArraySep___spec__1___rarg(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_4); +lean_dec(x_2); +return x_7; +} +} +lean_object* l_Lean_Format_joinArraySep___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Format_joinArraySep___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_natHasFormat(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Nat_repr(x_1); +x_3 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_3, 0, x_2); +return x_3; +} +} +lean_object* l_Lean_uint16HasFormat(uint16_t x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = lean_uint16_to_nat(x_1); +x_3 = l_Nat_repr(x_2); +x_4 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_4, 0, x_3); +return x_4; +} +} +lean_object* l_Lean_uint16HasFormat___boxed(lean_object* x_1) { +_start: +{ +uint16_t x_2; lean_object* x_3; +x_2 = lean_unbox(x_1); +lean_dec(x_1); +x_3 = l_Lean_uint16HasFormat(x_2); +return x_3; +} +} +lean_object* l_Lean_uint32HasFormat(uint32_t x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = lean_uint32_to_nat(x_1); +x_3 = l_Nat_repr(x_2); +x_4 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_4, 0, x_3); +return x_4; +} +} +lean_object* l_Lean_uint32HasFormat___boxed(lean_object* x_1) { +_start: +{ +uint32_t x_2; lean_object* x_3; +x_2 = lean_unbox_uint32(x_1); +lean_dec(x_1); +x_3 = l_Lean_uint32HasFormat(x_2); +return x_3; +} +} +lean_object* l_Lean_uint64HasFormat(uint64_t x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = lean_uint64_to_nat(x_1); +x_3 = l_Nat_repr(x_2); +x_4 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_4, 0, x_3); +return x_4; +} +} +lean_object* l_Lean_uint64HasFormat___boxed(lean_object* x_1) { +_start: +{ +uint64_t x_2; lean_object* x_3; +x_2 = lean_unbox_uint64(x_1); +lean_dec(x_1); +x_3 = l_Lean_uint64HasFormat(x_2); +return x_3; +} +} +lean_object* l_Lean_usizeHasFormat(size_t x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = lean_usize_to_nat(x_1); +x_3 = l_Nat_repr(x_2); +x_4 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_4, 0, x_3); +return x_4; +} +} +lean_object* l_Lean_usizeHasFormat___boxed(lean_object* x_1) { +_start: +{ +size_t x_2; lean_object* x_3; +x_2 = lean_unbox_usize(x_1); +lean_dec(x_1); +x_3 = l_Lean_usizeHasFormat(x_2); +return x_3; +} +} +lean_object* l_Lean_nameHasFormat(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = l_Lean_Name_toString___closed__1; +x_3 = l_Lean_Name_toStringWithSep___main(x_2, x_1); +x_4 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_4, 0, x_3); +return x_4; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("Format.nil"); +return x_1; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Format_repr___main___closed__1; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("Format.line"); +return x_1; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Format_repr___main___closed__3; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__5() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("Format.text"); +return x_1; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Format_repr___main___closed__5; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__7() { +_start: +{ +uint8_t x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = 0; +x_2 = l_Lean_Format_repr___main___closed__6; +x_3 = lean_box(1); +x_4 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_4, 0, x_2); +lean_ctor_set(x_4, 1, x_3); +lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_1); +return x_4; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__8() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("Format.nest"); +return x_1; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__9() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Format_repr___main___closed__8; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__10() { +_start: +{ +uint8_t x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = 0; +x_2 = l_Lean_Format_repr___main___closed__9; +x_3 = lean_box(1); +x_4 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_4, 0, x_2); +lean_ctor_set(x_4, 1, x_3); +lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_1); +return x_4; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__11() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("Format.compose "); +return x_1; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__12() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Format_repr___main___closed__11; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__13() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Bool_HasRepr___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_Format_repr___main___closed__14() { +_start: +{ +uint8_t x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = 0; +x_2 = l_Lean_Format_repr___main___closed__12; +x_3 = l_Lean_Format_repr___main___closed__13; +x_4 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_4, 0, x_2); +lean_ctor_set(x_4, 1, x_3); +lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_1); +return x_4; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__15() { +_start: +{ +uint8_t x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = 0; +x_2 = l_Lean_Format_repr___main___closed__14; +x_3 = lean_box(1); +x_4 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_4, 0, x_2); +lean_ctor_set(x_4, 1, x_3); +lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_1); +return x_4; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__16() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Bool_HasRepr___closed__2; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__17() { +_start: +{ +uint8_t x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = 0; +x_2 = l_Lean_Format_repr___main___closed__12; +x_3 = l_Lean_Format_repr___main___closed__16; +x_4 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_4, 0, x_2); +lean_ctor_set(x_4, 1, x_3); +lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_1); +return x_4; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__18() { +_start: +{ +uint8_t x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = 0; +x_2 = l_Lean_Format_repr___main___closed__17; +x_3 = lean_box(1); +x_4 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_4, 0, x_2); +lean_ctor_set(x_4, 1, x_3); +lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_1); +return x_4; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__19() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("Format.choice"); +return x_1; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__20() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Format_repr___main___closed__19; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Format_repr___main___closed__21() { +_start: +{ +uint8_t x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = 0; +x_2 = l_Lean_Format_repr___main___closed__20; +x_3 = lean_box(1); +x_4 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_4, 0, x_2); +lean_ctor_set(x_4, 1, x_3); +lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_1); +return x_4; +} +} +lean_object* l_Lean_Format_repr___main(lean_object* x_1) { +_start: +{ +switch (lean_obj_tag(x_1)) { +case 0: +{ +lean_object* x_2; +x_2 = l_Lean_Format_repr___main___closed__2; +return x_2; +} +case 1: +{ +lean_object* x_3; +x_3 = l_Lean_Format_repr___main___closed__4; +return x_3; +} +case 2: +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_1); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; uint8_t x_7; 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_5 = lean_ctor_get(x_1, 0); +x_6 = l_String_quote(x_5); +lean_ctor_set(x_1, 0, x_6); +x_7 = 0; +x_8 = l_Lean_Format_repr___main___closed__7; +x_9 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_9, 0, x_8); +lean_ctor_set(x_9, 1, x_1); +lean_ctor_set_uint8(x_9, sizeof(void*)*2, x_7); +x_10 = l_Lean_Format_paren___closed__2; +x_11 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_11, 0, x_10); +lean_ctor_set(x_11, 1, x_9); +lean_ctor_set_uint8(x_11, sizeof(void*)*2, x_7); +x_12 = l_Lean_Format_paren___closed__3; +x_13 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_13, 0, x_11); +lean_ctor_set(x_13, 1, x_12); +lean_ctor_set_uint8(x_13, sizeof(void*)*2, x_7); +x_14 = l_Lean_Format_paren___closed__1; +x_15 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_15, 0, x_14); +lean_ctor_set(x_15, 1, x_13); +x_16 = lean_format_group(x_15); +return x_16; +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_17 = lean_ctor_get(x_1, 0); +lean_inc(x_17); +lean_dec(x_1); +x_18 = l_String_quote(x_17); +x_19 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_19, 0, x_18); +x_20 = 0; +x_21 = l_Lean_Format_repr___main___closed__7; +x_22 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_22, 0, x_21); +lean_ctor_set(x_22, 1, x_19); +lean_ctor_set_uint8(x_22, sizeof(void*)*2, x_20); +x_23 = l_Lean_Format_paren___closed__2; +x_24 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_24, 0, x_23); +lean_ctor_set(x_24, 1, x_22); +lean_ctor_set_uint8(x_24, sizeof(void*)*2, x_20); +x_25 = l_Lean_Format_paren___closed__3; +x_26 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_26, 0, x_24); +lean_ctor_set(x_26, 1, x_25); +lean_ctor_set_uint8(x_26, sizeof(void*)*2, x_20); +x_27 = l_Lean_Format_paren___closed__1; +x_28 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_28, 0, x_27); +lean_ctor_set(x_28, 1, x_26); +x_29 = lean_format_group(x_28); +return x_29; +} +} +case 3: +{ +uint8_t x_30; +x_30 = !lean_is_exclusive(x_1); +if (x_30 == 0) +{ +lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; uint8_t 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_31 = lean_ctor_get(x_1, 0); +x_32 = lean_ctor_get(x_1, 1); +x_33 = l_Nat_repr(x_31); +x_34 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_34, 0, x_33); +x_35 = 0; +x_36 = l_Lean_Format_repr___main___closed__10; +x_37 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_37, 0, x_36); +lean_ctor_set(x_37, 1, x_34); +lean_ctor_set_uint8(x_37, sizeof(void*)*2, x_35); +x_38 = lean_box(1); +x_39 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_39, 0, x_37); +lean_ctor_set(x_39, 1, x_38); +lean_ctor_set_uint8(x_39, sizeof(void*)*2, x_35); +x_40 = l_Lean_Format_repr___main(x_32); +x_41 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_41, 0, x_39); +lean_ctor_set(x_41, 1, x_40); +lean_ctor_set_uint8(x_41, sizeof(void*)*2, x_35); +x_42 = l_Lean_Format_paren___closed__2; +x_43 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_43, 0, x_42); +lean_ctor_set(x_43, 1, x_41); +lean_ctor_set_uint8(x_43, sizeof(void*)*2, x_35); +x_44 = l_Lean_Format_paren___closed__3; +x_45 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_45, 0, x_43); +lean_ctor_set(x_45, 1, x_44); +lean_ctor_set_uint8(x_45, sizeof(void*)*2, x_35); +x_46 = l_Lean_Format_paren___closed__1; +lean_ctor_set(x_1, 1, x_45); +lean_ctor_set(x_1, 0, x_46); +x_47 = lean_format_group(x_1); +return x_47; +} +else +{ +lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; uint8_t 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_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 = l_Nat_repr(x_48); +x_51 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_51, 0, x_50); +x_52 = 0; +x_53 = l_Lean_Format_repr___main___closed__10; +x_54 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_54, 0, x_53); +lean_ctor_set(x_54, 1, x_51); +lean_ctor_set_uint8(x_54, sizeof(void*)*2, x_52); +x_55 = lean_box(1); +x_56 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_56, 0, x_54); +lean_ctor_set(x_56, 1, x_55); +lean_ctor_set_uint8(x_56, sizeof(void*)*2, x_52); +x_57 = l_Lean_Format_repr___main(x_49); +x_58 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_58, 0, x_56); +lean_ctor_set(x_58, 1, x_57); +lean_ctor_set_uint8(x_58, sizeof(void*)*2, x_52); +x_59 = l_Lean_Format_paren___closed__2; +x_60 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_60, 0, x_59); +lean_ctor_set(x_60, 1, x_58); +lean_ctor_set_uint8(x_60, sizeof(void*)*2, x_52); +x_61 = l_Lean_Format_paren___closed__3; +x_62 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_62, 0, x_60); +lean_ctor_set(x_62, 1, x_61); +lean_ctor_set_uint8(x_62, sizeof(void*)*2, x_52); +x_63 = l_Lean_Format_paren___closed__1; +x_64 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_64, 0, x_63); +lean_ctor_set(x_64, 1, x_62); +x_65 = lean_format_group(x_64); +return x_65; +} +} +case 4: +{ +uint8_t x_66; +x_66 = !lean_is_exclusive(x_1); +if (x_66 == 0) +{ +uint8_t x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; +x_67 = lean_ctor_get_uint8(x_1, sizeof(void*)*2); +x_68 = lean_ctor_get(x_1, 0); +x_69 = lean_ctor_get(x_1, 1); +x_70 = l_Lean_Format_repr___main(x_68); +x_71 = l_Lean_Format_repr___main(x_69); +if (x_67 == 0) +{ +uint8_t 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; +x_72 = 0; +x_73 = l_Lean_Format_repr___main___closed__15; +lean_ctor_set(x_1, 1, x_70); +lean_ctor_set(x_1, 0, x_73); +lean_ctor_set_uint8(x_1, sizeof(void*)*2, x_72); +x_74 = lean_box(1); +x_75 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_75, 0, x_1); +lean_ctor_set(x_75, 1, x_74); +lean_ctor_set_uint8(x_75, sizeof(void*)*2, x_72); +x_76 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_76, 0, x_75); +lean_ctor_set(x_76, 1, x_71); +lean_ctor_set_uint8(x_76, sizeof(void*)*2, x_72); +x_77 = l_Lean_Format_paren___closed__2; +x_78 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_78, 0, x_77); +lean_ctor_set(x_78, 1, x_76); +lean_ctor_set_uint8(x_78, sizeof(void*)*2, x_72); +x_79 = l_Lean_Format_paren___closed__3; +x_80 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_80, 0, x_78); +lean_ctor_set(x_80, 1, x_79); +lean_ctor_set_uint8(x_80, sizeof(void*)*2, x_72); +x_81 = l_Lean_Format_paren___closed__1; +x_82 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_82, 0, x_81); +lean_ctor_set(x_82, 1, x_80); +x_83 = lean_format_group(x_82); +return x_83; +} +else +{ +uint8_t 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; +x_84 = 0; +x_85 = l_Lean_Format_repr___main___closed__18; +lean_ctor_set(x_1, 1, x_70); +lean_ctor_set(x_1, 0, x_85); +lean_ctor_set_uint8(x_1, sizeof(void*)*2, x_84); +x_86 = lean_box(1); +x_87 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_87, 0, x_1); +lean_ctor_set(x_87, 1, x_86); +lean_ctor_set_uint8(x_87, sizeof(void*)*2, x_84); +x_88 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_88, 0, x_87); +lean_ctor_set(x_88, 1, x_71); +lean_ctor_set_uint8(x_88, sizeof(void*)*2, x_84); +x_89 = l_Lean_Format_paren___closed__2; +x_90 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_90, 0, x_89); +lean_ctor_set(x_90, 1, x_88); +lean_ctor_set_uint8(x_90, sizeof(void*)*2, x_84); +x_91 = l_Lean_Format_paren___closed__3; +x_92 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_92, 0, x_90); +lean_ctor_set(x_92, 1, x_91); +lean_ctor_set_uint8(x_92, sizeof(void*)*2, x_84); +x_93 = l_Lean_Format_paren___closed__1; +x_94 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_94, 0, x_93); +lean_ctor_set(x_94, 1, x_92); +x_95 = lean_format_group(x_94); +return x_95; +} +} +else +{ +uint8_t x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; +x_96 = lean_ctor_get_uint8(x_1, sizeof(void*)*2); +x_97 = lean_ctor_get(x_1, 0); +x_98 = lean_ctor_get(x_1, 1); +lean_inc(x_98); +lean_inc(x_97); +lean_dec(x_1); +x_99 = l_Lean_Format_repr___main(x_97); +x_100 = l_Lean_Format_repr___main(x_98); +if (x_96 == 0) +{ +uint8_t 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; +x_101 = 0; +x_102 = l_Lean_Format_repr___main___closed__15; +x_103 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_103, 0, x_102); +lean_ctor_set(x_103, 1, x_99); +lean_ctor_set_uint8(x_103, sizeof(void*)*2, x_101); +x_104 = lean_box(1); +x_105 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_105, 0, x_103); +lean_ctor_set(x_105, 1, x_104); +lean_ctor_set_uint8(x_105, sizeof(void*)*2, x_101); +x_106 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_106, 0, x_105); +lean_ctor_set(x_106, 1, x_100); +lean_ctor_set_uint8(x_106, sizeof(void*)*2, x_101); +x_107 = l_Lean_Format_paren___closed__2; +x_108 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_108, 0, x_107); +lean_ctor_set(x_108, 1, x_106); +lean_ctor_set_uint8(x_108, sizeof(void*)*2, x_101); +x_109 = l_Lean_Format_paren___closed__3; +x_110 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_110, 0, x_108); +lean_ctor_set(x_110, 1, x_109); +lean_ctor_set_uint8(x_110, sizeof(void*)*2, x_101); +x_111 = l_Lean_Format_paren___closed__1; +x_112 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_112, 0, x_111); +lean_ctor_set(x_112, 1, x_110); +x_113 = lean_format_group(x_112); +return x_113; +} +else +{ +uint8_t 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; +x_114 = 0; +x_115 = l_Lean_Format_repr___main___closed__18; +x_116 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_116, 0, x_115); +lean_ctor_set(x_116, 1, x_99); +lean_ctor_set_uint8(x_116, sizeof(void*)*2, x_114); +x_117 = lean_box(1); +x_118 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_118, 0, x_116); +lean_ctor_set(x_118, 1, x_117); +lean_ctor_set_uint8(x_118, sizeof(void*)*2, x_114); +x_119 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_119, 0, x_118); +lean_ctor_set(x_119, 1, x_100); +lean_ctor_set_uint8(x_119, sizeof(void*)*2, x_114); +x_120 = l_Lean_Format_paren___closed__2; +x_121 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_121, 0, x_120); +lean_ctor_set(x_121, 1, x_119); +lean_ctor_set_uint8(x_121, sizeof(void*)*2, x_114); +x_122 = l_Lean_Format_paren___closed__3; +x_123 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_123, 0, x_121); +lean_ctor_set(x_123, 1, x_122); +lean_ctor_set_uint8(x_123, sizeof(void*)*2, x_114); +x_124 = l_Lean_Format_paren___closed__1; +x_125 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_125, 0, x_124); +lean_ctor_set(x_125, 1, x_123); +x_126 = lean_format_group(x_125); +return x_126; +} +} +} +default: +{ +uint8_t x_127; +x_127 = !lean_is_exclusive(x_1); +if (x_127 == 0) +{ +lean_object* x_128; lean_object* x_129; lean_object* x_130; uint8_t 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_128 = lean_ctor_get(x_1, 0); +x_129 = lean_ctor_get(x_1, 1); +x_130 = l_Lean_Format_repr___main(x_128); +x_131 = 0; +x_132 = l_Lean_Format_repr___main___closed__21; +x_133 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_133, 0, x_132); +lean_ctor_set(x_133, 1, x_130); +lean_ctor_set_uint8(x_133, sizeof(void*)*2, x_131); +x_134 = lean_box(1); +x_135 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_135, 0, x_133); +lean_ctor_set(x_135, 1, x_134); +lean_ctor_set_uint8(x_135, sizeof(void*)*2, x_131); +x_136 = l_Lean_Format_repr___main(x_129); +x_137 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_137, 0, x_135); +lean_ctor_set(x_137, 1, x_136); +lean_ctor_set_uint8(x_137, sizeof(void*)*2, x_131); +x_138 = l_Lean_Format_paren___closed__2; +x_139 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_139, 0, x_138); +lean_ctor_set(x_139, 1, x_137); +lean_ctor_set_uint8(x_139, sizeof(void*)*2, x_131); +x_140 = l_Lean_Format_paren___closed__3; +x_141 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_141, 0, x_139); +lean_ctor_set(x_141, 1, x_140); +lean_ctor_set_uint8(x_141, sizeof(void*)*2, x_131); +x_142 = l_Lean_Format_paren___closed__1; +lean_ctor_set_tag(x_1, 3); +lean_ctor_set(x_1, 1, x_141); +lean_ctor_set(x_1, 0, x_142); +x_143 = lean_format_group(x_1); +return x_143; +} +else +{ +lean_object* x_144; lean_object* x_145; lean_object* x_146; uint8_t 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; +x_144 = lean_ctor_get(x_1, 0); +x_145 = lean_ctor_get(x_1, 1); +lean_inc(x_145); +lean_inc(x_144); +lean_dec(x_1); +x_146 = l_Lean_Format_repr___main(x_144); +x_147 = 0; +x_148 = l_Lean_Format_repr___main___closed__21; +x_149 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_149, 0, x_148); +lean_ctor_set(x_149, 1, x_146); +lean_ctor_set_uint8(x_149, sizeof(void*)*2, x_147); +x_150 = lean_box(1); +x_151 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_151, 0, x_149); +lean_ctor_set(x_151, 1, x_150); +lean_ctor_set_uint8(x_151, sizeof(void*)*2, x_147); +x_152 = l_Lean_Format_repr___main(x_145); +x_153 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_153, 0, x_151); +lean_ctor_set(x_153, 1, x_152); +lean_ctor_set_uint8(x_153, sizeof(void*)*2, x_147); +x_154 = l_Lean_Format_paren___closed__2; +x_155 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_155, 0, x_154); +lean_ctor_set(x_155, 1, x_153); +lean_ctor_set_uint8(x_155, sizeof(void*)*2, x_147); +x_156 = l_Lean_Format_paren___closed__3; +x_157 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_157, 0, x_155); +lean_ctor_set(x_157, 1, x_156); +lean_ctor_set_uint8(x_157, sizeof(void*)*2, x_147); +x_158 = l_Lean_Format_paren___closed__1; +x_159 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_159, 0, x_158); +lean_ctor_set(x_159, 1, x_157); +x_160 = lean_format_group(x_159); +return x_160; +} +} +} +} +} +lean_object* l_Lean_Format_repr(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Format_repr___main(x_1); +return x_2; +} +} +lean_object* l_Lean_formatHasToString(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_Options_empty; +x_3 = l_Lean_Format_pretty(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_HasRepr___lambda__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_Options_empty; +x_3 = l_Lean_Format_pretty(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_HasRepr___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_HasRepr___lambda__1), 1, 0); +return x_1; +} +} +lean_object* _init_l_Lean_HasRepr___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Format_repr), 1, 0); +return x_1; +} +} +lean_object* _init_l_Lean_HasRepr___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_HasRepr___closed__1; +x_2 = l_Lean_HasRepr___closed__2; +x_3 = lean_alloc_closure((void*)(l_Function_comp___rarg), 3, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_HasRepr() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_HasRepr___closed__3; +return x_1; +} +} +lean_object* _init_l_Lean_formatDataValue___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("`"); +return x_1; +} +} +lean_object* _init_l_Lean_formatDataValue___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_formatDataValue___closed__1; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_formatDataValue(lean_object* x_1) { +_start: +{ +switch (lean_obj_tag(x_1)) { +case 0: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +lean_dec(x_1); +x_3 = l_String_quote(x_2); +x_4 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_4, 0, x_3); +return x_4; +} +case 1: +{ +uint8_t x_5; +x_5 = lean_ctor_get_uint8(x_1, 0); +lean_dec(x_1); +if (x_5 == 0) +{ +lean_object* x_6; +x_6 = l_Lean_Format_repr___main___closed__13; +return x_6; +} +else +{ +lean_object* x_7; +x_7 = l_Lean_Format_repr___main___closed__16; +return x_7; +} +} +case 2: +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; lean_object* x_13; lean_object* x_14; +x_8 = lean_ctor_get(x_1, 0); +lean_inc(x_8); +lean_dec(x_1); +x_9 = l_Lean_Name_toString___closed__1; +x_10 = l_Lean_Name_toStringWithSep___main(x_9, x_8); +x_11 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_11, 0, x_10); +x_12 = 0; +x_13 = l_Lean_formatDataValue___closed__2; +x_14 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_14, 0, x_13); +lean_ctor_set(x_14, 1, x_11); +lean_ctor_set_uint8(x_14, sizeof(void*)*2, x_12); +return x_14; +} +case 3: +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_1, 0); +lean_inc(x_15); +lean_dec(x_1); +x_16 = l_Nat_repr(x_15); +x_17 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_17, 0, x_16); +return x_17; +} +default: +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_18 = lean_ctor_get(x_1, 0); +lean_inc(x_18); +lean_dec(x_1); +x_19 = l_Int_repr(x_18); +lean_dec(x_18); +x_20 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_20, 0, x_19); +return x_20; +} +} +} +} +lean_object* _init_l_Lean_dataValueHasFormat___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_formatDataValue), 1, 0); +return x_1; +} +} +lean_object* _init_l_Lean_dataValueHasFormat() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_dataValueHasFormat___closed__1; +return x_1; +} +} +lean_object* _init_l_Lean_formatEntry___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string(" := "); +return x_1; +} +} +lean_object* _init_l_Lean_formatEntry___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_formatEntry___closed__1; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_formatEntry(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; uint8_t x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = lean_ctor_get(x_1, 1); +lean_inc(x_3); +lean_dec(x_1); +x_4 = l_Lean_Name_toString___closed__1; +x_5 = l_Lean_Name_toStringWithSep___main(x_4, x_2); +x_6 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_6, 0, x_5); +x_7 = 0; +x_8 = l_Lean_formatEntry___closed__2; +x_9 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_9, 0, x_6); +lean_ctor_set(x_9, 1, x_8); +lean_ctor_set_uint8(x_9, sizeof(void*)*2, x_7); +x_10 = l_Lean_formatDataValue(x_3); +x_11 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_11, 0, x_9); +lean_ctor_set(x_11, 1, x_10); +lean_ctor_set_uint8(x_11, sizeof(void*)*2, x_7); +return x_11; +} +} +lean_object* _init_l_Lean_entryHasFormat___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_formatEntry), 1, 0); +return x_1; +} +} +lean_object* _init_l_Lean_entryHasFormat() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_entryHasFormat___closed__1; +return x_1; +} +} +lean_object* l_Lean_Format_joinSep___main___at_Lean_formatKVMap___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_3; +lean_dec(x_2); +x_3 = lean_box(0); +return x_3; +} +else +{ +lean_object* x_4; +x_4 = lean_ctor_get(x_1, 1); +lean_inc(x_4); +if (lean_obj_tag(x_4) == 0) +{ +lean_object* x_5; lean_object* x_6; +lean_dec(x_2); +x_5 = lean_ctor_get(x_1, 0); +lean_inc(x_5); +lean_dec(x_1); +x_6 = l_Lean_formatEntry(x_5); +return x_6; +} +else +{ +lean_object* x_7; lean_object* x_8; uint8_t x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_7 = lean_ctor_get(x_1, 0); +lean_inc(x_7); +lean_dec(x_1); +x_8 = l_Lean_formatEntry(x_7); +x_9 = 0; +lean_inc(x_2); +x_10 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_10, 0, x_8); +lean_ctor_set(x_10, 1, x_2); +lean_ctor_set_uint8(x_10, sizeof(void*)*2, x_9); +x_11 = l_Lean_Format_joinSep___main___at_Lean_formatKVMap___spec__1(x_4, x_2); +x_12 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_12, 0, x_10); +lean_ctor_set(x_12, 1, x_11); +lean_ctor_set_uint8(x_12, sizeof(void*)*2, x_9); +return x_12; +} +} +} +} +lean_object* _init_l_Lean_formatKVMap___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_List_reprAux___main___rarg___closed__1; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_formatKVMap(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_2 = l_Lean_formatKVMap___closed__1; +x_3 = l_Lean_Format_joinSep___main___at_Lean_formatKVMap___spec__1(x_1, x_2); +x_4 = 0; +x_5 = l_Lean_Format_sbracket___closed__2; +x_6 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_6, 0, x_5); +lean_ctor_set(x_6, 1, x_3); +lean_ctor_set_uint8(x_6, sizeof(void*)*2, x_4); +x_7 = l_Lean_Format_sbracket___closed__3; +x_8 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_8, 0, x_6); +lean_ctor_set(x_8, 1, x_7); +lean_ctor_set_uint8(x_8, sizeof(void*)*2, x_4); +x_9 = l_Lean_Format_sbracket___closed__1; +x_10 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_10, 0, x_9); +lean_ctor_set(x_10, 1, x_8); +x_11 = lean_format_group(x_10); +return x_11; +} +} +lean_object* _init_l_Lean_kvMapHasFormat___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_formatKVMap), 1, 0); +return x_1; +} +} +lean_object* _init_l_Lean_kvMapHasFormat() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_kvMapHasFormat___closed__1; +return x_1; +} +} +lean_object* initialize_Init_Data_Array(lean_object*); +lean_object* initialize_Init_Lean_Data_Options(lean_object*); +static bool _G_initialized = false; +lean_object* initialize_Init_Lean_Data_Format(lean_object* w) { +lean_object * res; +if (_G_initialized) return lean_mk_io_result(lean_box(0)); +_G_initialized = true; +res = initialize_Init_Data_Array(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Lean_Data_Options(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Format_HasAppend___closed__1 = _init_l_Lean_Format_HasAppend___closed__1(); +lean_mark_persistent(l_Lean_Format_HasAppend___closed__1); +l_Lean_Format_HasAppend = _init_l_Lean_Format_HasAppend(); +lean_mark_persistent(l_Lean_Format_HasAppend); +l_Lean_Format_Inhabited = _init_l_Lean_Format_Inhabited(); +lean_mark_persistent(l_Lean_Format_Inhabited); +l_Lean_Format_join___closed__1 = _init_l_Lean_Format_join___closed__1(); +lean_mark_persistent(l_Lean_Format_join___closed__1); +l_Lean_Format_flatten___main___closed__1 = _init_l_Lean_Format_flatten___main___closed__1(); +lean_mark_persistent(l_Lean_Format_flatten___main___closed__1); +l_Lean_Format_spaceUptoLine___main___closed__1 = _init_l_Lean_Format_spaceUptoLine___main___closed__1(); +lean_mark_persistent(l_Lean_Format_spaceUptoLine___main___closed__1); +l_Lean_Format_spaceUptoLine___main___closed__2 = _init_l_Lean_Format_spaceUptoLine___main___closed__2(); +lean_mark_persistent(l_Lean_Format_spaceUptoLine___main___closed__2); +l_Lean_Format_paren___closed__1 = _init_l_Lean_Format_paren___closed__1(); +lean_mark_persistent(l_Lean_Format_paren___closed__1); +l_Lean_Format_paren___closed__2 = _init_l_Lean_Format_paren___closed__2(); +lean_mark_persistent(l_Lean_Format_paren___closed__2); +l_Lean_Format_paren___closed__3 = _init_l_Lean_Format_paren___closed__3(); +lean_mark_persistent(l_Lean_Format_paren___closed__3); +l_Lean_Format_sbracket___closed__1 = _init_l_Lean_Format_sbracket___closed__1(); +lean_mark_persistent(l_Lean_Format_sbracket___closed__1); +l_Lean_Format_sbracket___closed__2 = _init_l_Lean_Format_sbracket___closed__2(); +lean_mark_persistent(l_Lean_Format_sbracket___closed__2); +l_Lean_Format_sbracket___closed__3 = _init_l_Lean_Format_sbracket___closed__3(); +lean_mark_persistent(l_Lean_Format_sbracket___closed__3); +l_Lean_Format_defIndent = _init_l_Lean_Format_defIndent(); +lean_mark_persistent(l_Lean_Format_defIndent); +l_Lean_Format_defUnicode = _init_l_Lean_Format_defUnicode(); +l_Lean_Format_defWidth = _init_l_Lean_Format_defWidth(); +lean_mark_persistent(l_Lean_Format_defWidth); +l_Lean_Format_getWidth___closed__1 = _init_l_Lean_Format_getWidth___closed__1(); +lean_mark_persistent(l_Lean_Format_getWidth___closed__1); +l_Lean_Format_getWidth___closed__2 = _init_l_Lean_Format_getWidth___closed__2(); +lean_mark_persistent(l_Lean_Format_getWidth___closed__2); +l_Lean_Format_getWidth___closed__3 = _init_l_Lean_Format_getWidth___closed__3(); +lean_mark_persistent(l_Lean_Format_getWidth___closed__3); +l_Lean_Format_getWidth___closed__4 = _init_l_Lean_Format_getWidth___closed__4(); +lean_mark_persistent(l_Lean_Format_getWidth___closed__4); +l_Lean_Format_getIndent___closed__1 = _init_l_Lean_Format_getIndent___closed__1(); +lean_mark_persistent(l_Lean_Format_getIndent___closed__1); +l_Lean_Format_getIndent___closed__2 = _init_l_Lean_Format_getIndent___closed__2(); +lean_mark_persistent(l_Lean_Format_getIndent___closed__2); +l_Lean_Format_getUnicode___closed__1 = _init_l_Lean_Format_getUnicode___closed__1(); +lean_mark_persistent(l_Lean_Format_getUnicode___closed__1); +l_Lean_Format_getUnicode___closed__2 = _init_l_Lean_Format_getUnicode___closed__2(); +lean_mark_persistent(l_Lean_Format_getUnicode___closed__2); +l_Lean_Format_indentOption___closed__1 = _init_l_Lean_Format_indentOption___closed__1(); +lean_mark_persistent(l_Lean_Format_indentOption___closed__1); +l_Lean_Format_indentOption___closed__2 = _init_l_Lean_Format_indentOption___closed__2(); +lean_mark_persistent(l_Lean_Format_indentOption___closed__2); +l_Lean_Format_indentOption___closed__3 = _init_l_Lean_Format_indentOption___closed__3(); +lean_mark_persistent(l_Lean_Format_indentOption___closed__3); +res = l_Lean_Format_indentOption(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Format_unicodeOption___closed__1 = _init_l_Lean_Format_unicodeOption___closed__1(); +lean_mark_persistent(l_Lean_Format_unicodeOption___closed__1); +l_Lean_Format_unicodeOption___closed__2 = _init_l_Lean_Format_unicodeOption___closed__2(); +lean_mark_persistent(l_Lean_Format_unicodeOption___closed__2); +l_Lean_Format_unicodeOption___closed__3 = _init_l_Lean_Format_unicodeOption___closed__3(); +lean_mark_persistent(l_Lean_Format_unicodeOption___closed__3); +res = l_Lean_Format_unicodeOption(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Format_widthOption___closed__1 = _init_l_Lean_Format_widthOption___closed__1(); +lean_mark_persistent(l_Lean_Format_widthOption___closed__1); +l_Lean_Format_widthOption___closed__2 = _init_l_Lean_Format_widthOption___closed__2(); +lean_mark_persistent(l_Lean_Format_widthOption___closed__2); +l_Lean_Format_widthOption___closed__3 = _init_l_Lean_Format_widthOption___closed__3(); +lean_mark_persistent(l_Lean_Format_widthOption___closed__3); +res = l_Lean_Format_widthOption(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_toStringToFormat___rarg___closed__1 = _init_l_Lean_toStringToFormat___rarg___closed__1(); +lean_mark_persistent(l_Lean_toStringToFormat___rarg___closed__1); +l_Lean_formatHasFormat = _init_l_Lean_formatHasFormat(); +lean_mark_persistent(l_Lean_formatHasFormat); +l_Lean_List_format___rarg___closed__1 = _init_l_Lean_List_format___rarg___closed__1(); +lean_mark_persistent(l_Lean_List_format___rarg___closed__1); +l_Lean_List_format___rarg___closed__2 = _init_l_Lean_List_format___rarg___closed__2(); +lean_mark_persistent(l_Lean_List_format___rarg___closed__2); +l_Lean_List_format___rarg___closed__3 = _init_l_Lean_List_format___rarg___closed__3(); +lean_mark_persistent(l_Lean_List_format___rarg___closed__3); +l_Lean_List_format___rarg___closed__4 = _init_l_Lean_List_format___rarg___closed__4(); +lean_mark_persistent(l_Lean_List_format___rarg___closed__4); +l_Lean_arrayHasFormat___rarg___closed__1 = _init_l_Lean_arrayHasFormat___rarg___closed__1(); +lean_mark_persistent(l_Lean_arrayHasFormat___rarg___closed__1); +l_Lean_Option_format___rarg___closed__1 = _init_l_Lean_Option_format___rarg___closed__1(); +lean_mark_persistent(l_Lean_Option_format___rarg___closed__1); +l_Lean_Option_format___rarg___closed__2 = _init_l_Lean_Option_format___rarg___closed__2(); +lean_mark_persistent(l_Lean_Option_format___rarg___closed__2); +l_Lean_Option_format___rarg___closed__3 = _init_l_Lean_Option_format___rarg___closed__3(); +lean_mark_persistent(l_Lean_Option_format___rarg___closed__3); +l_Lean_Format_repr___main___closed__1 = _init_l_Lean_Format_repr___main___closed__1(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__1); +l_Lean_Format_repr___main___closed__2 = _init_l_Lean_Format_repr___main___closed__2(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__2); +l_Lean_Format_repr___main___closed__3 = _init_l_Lean_Format_repr___main___closed__3(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__3); +l_Lean_Format_repr___main___closed__4 = _init_l_Lean_Format_repr___main___closed__4(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__4); +l_Lean_Format_repr___main___closed__5 = _init_l_Lean_Format_repr___main___closed__5(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__5); +l_Lean_Format_repr___main___closed__6 = _init_l_Lean_Format_repr___main___closed__6(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__6); +l_Lean_Format_repr___main___closed__7 = _init_l_Lean_Format_repr___main___closed__7(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__7); +l_Lean_Format_repr___main___closed__8 = _init_l_Lean_Format_repr___main___closed__8(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__8); +l_Lean_Format_repr___main___closed__9 = _init_l_Lean_Format_repr___main___closed__9(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__9); +l_Lean_Format_repr___main___closed__10 = _init_l_Lean_Format_repr___main___closed__10(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__10); +l_Lean_Format_repr___main___closed__11 = _init_l_Lean_Format_repr___main___closed__11(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__11); +l_Lean_Format_repr___main___closed__12 = _init_l_Lean_Format_repr___main___closed__12(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__12); +l_Lean_Format_repr___main___closed__13 = _init_l_Lean_Format_repr___main___closed__13(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__13); +l_Lean_Format_repr___main___closed__14 = _init_l_Lean_Format_repr___main___closed__14(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__14); +l_Lean_Format_repr___main___closed__15 = _init_l_Lean_Format_repr___main___closed__15(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__15); +l_Lean_Format_repr___main___closed__16 = _init_l_Lean_Format_repr___main___closed__16(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__16); +l_Lean_Format_repr___main___closed__17 = _init_l_Lean_Format_repr___main___closed__17(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__17); +l_Lean_Format_repr___main___closed__18 = _init_l_Lean_Format_repr___main___closed__18(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__18); +l_Lean_Format_repr___main___closed__19 = _init_l_Lean_Format_repr___main___closed__19(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__19); +l_Lean_Format_repr___main___closed__20 = _init_l_Lean_Format_repr___main___closed__20(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__20); +l_Lean_Format_repr___main___closed__21 = _init_l_Lean_Format_repr___main___closed__21(); +lean_mark_persistent(l_Lean_Format_repr___main___closed__21); +l_Lean_HasRepr___closed__1 = _init_l_Lean_HasRepr___closed__1(); +lean_mark_persistent(l_Lean_HasRepr___closed__1); +l_Lean_HasRepr___closed__2 = _init_l_Lean_HasRepr___closed__2(); +lean_mark_persistent(l_Lean_HasRepr___closed__2); +l_Lean_HasRepr___closed__3 = _init_l_Lean_HasRepr___closed__3(); +lean_mark_persistent(l_Lean_HasRepr___closed__3); +l_Lean_HasRepr = _init_l_Lean_HasRepr(); +lean_mark_persistent(l_Lean_HasRepr); +l_Lean_formatDataValue___closed__1 = _init_l_Lean_formatDataValue___closed__1(); +lean_mark_persistent(l_Lean_formatDataValue___closed__1); +l_Lean_formatDataValue___closed__2 = _init_l_Lean_formatDataValue___closed__2(); +lean_mark_persistent(l_Lean_formatDataValue___closed__2); +l_Lean_dataValueHasFormat___closed__1 = _init_l_Lean_dataValueHasFormat___closed__1(); +lean_mark_persistent(l_Lean_dataValueHasFormat___closed__1); +l_Lean_dataValueHasFormat = _init_l_Lean_dataValueHasFormat(); +lean_mark_persistent(l_Lean_dataValueHasFormat); +l_Lean_formatEntry___closed__1 = _init_l_Lean_formatEntry___closed__1(); +lean_mark_persistent(l_Lean_formatEntry___closed__1); +l_Lean_formatEntry___closed__2 = _init_l_Lean_formatEntry___closed__2(); +lean_mark_persistent(l_Lean_formatEntry___closed__2); +l_Lean_entryHasFormat___closed__1 = _init_l_Lean_entryHasFormat___closed__1(); +lean_mark_persistent(l_Lean_entryHasFormat___closed__1); +l_Lean_entryHasFormat = _init_l_Lean_entryHasFormat(); +lean_mark_persistent(l_Lean_entryHasFormat); +l_Lean_formatKVMap___closed__1 = _init_l_Lean_formatKVMap___closed__1(); +lean_mark_persistent(l_Lean_formatKVMap___closed__1); +l_Lean_kvMapHasFormat___closed__1 = _init_l_Lean_kvMapHasFormat___closed__1(); +lean_mark_persistent(l_Lean_kvMapHasFormat___closed__1); +l_Lean_kvMapHasFormat = _init_l_Lean_kvMapHasFormat(); +lean_mark_persistent(l_Lean_kvMapHasFormat); +return lean_mk_io_result(lean_box(0)); +} +#ifdef __cplusplus +} +#endif diff --git a/stage0/stdlib/Init/Lean/KVMap.c b/stage0/stdlib/Init/Lean/Data/KVMap.c similarity index 99% rename from stage0/stdlib/Init/Lean/KVMap.c rename to stage0/stdlib/Init/Lean/Data/KVMap.c index 6efa288ba1..6a6f94d852 100644 --- a/stage0/stdlib/Init/Lean/KVMap.c +++ b/stage0/stdlib/Init/Lean/Data/KVMap.c @@ -1,6 +1,6 @@ // Lean compiler output -// Module: Init.Lean.KVMap -// Imports: Init.Lean.Name Init.Data.Option.Basic Init.Data.Int +// Module: Init.Lean.Data.KVMap +// Imports: Init.Data.Option.Basic Init.Data.Int Init.Lean.Data.Name #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -1192,23 +1192,23 @@ x_1 = l_Lean_KVMap_stringVal___closed__3; return x_1; } } -lean_object* initialize_Init_Lean_Name(lean_object*); lean_object* initialize_Init_Data_Option_Basic(lean_object*); lean_object* initialize_Init_Data_Int(lean_object*); +lean_object* initialize_Init_Lean_Data_Name(lean_object*); static bool _G_initialized = false; -lean_object* initialize_Init_Lean_KVMap(lean_object* w) { +lean_object* initialize_Init_Lean_Data_KVMap(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; -res = initialize_Init_Lean_Name(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); res = initialize_Init_Data_Option_Basic(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); res = initialize_Init_Data_Int(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Init_Lean_Data_Name(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); l_Lean_DataValue_HasBeq___closed__1 = _init_l_Lean_DataValue_HasBeq___closed__1(); lean_mark_persistent(l_Lean_DataValue_HasBeq___closed__1); l_Lean_DataValue_HasBeq = _init_l_Lean_DataValue_HasBeq(); diff --git a/stage0/stdlib/Init/Lean/LBool.c b/stage0/stdlib/Init/Lean/Data/LBool.c similarity index 98% rename from stage0/stdlib/Init/Lean/LBool.c rename to stage0/stdlib/Init/Lean/Data/LBool.c index fe61cf0f92..c6048d3792 100644 --- a/stage0/stdlib/Init/Lean/LBool.c +++ b/stage0/stdlib/Init/Lean/Data/LBool.c @@ -1,5 +1,5 @@ // Lean compiler output -// Module: Init.Lean.LBool +// Module: Init.Lean.Data.LBool // Imports: Init.Data.ToString #include "runtime/lean.h" #if defined(__clang__) @@ -341,7 +341,7 @@ return x_2; } lean_object* initialize_Init_Data_ToString(lean_object*); static bool _G_initialized = false; -lean_object* initialize_Init_Lean_LBool(lean_object* w) { +lean_object* initialize_Init_Lean_Data_LBool(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; diff --git a/stage0/stdlib/Init/Lean/LOption.c b/stage0/stdlib/Init/Lean/Data/LOption.c similarity index 98% rename from stage0/stdlib/Init/Lean/LOption.c rename to stage0/stdlib/Init/Lean/Data/LOption.c index 3cfadcf5bc..f4ffd757a8 100644 --- a/stage0/stdlib/Init/Lean/LOption.c +++ b/stage0/stdlib/Init/Lean/Data/LOption.c @@ -1,5 +1,5 @@ // Lean compiler output -// Module: Init.Lean.LOption +// Module: Init.Lean.Data.LOption // Imports: Init.Data.ToString #include "runtime/lean.h" #if defined(__clang__) @@ -279,7 +279,7 @@ return x_3; } lean_object* initialize_Init_Data_ToString(lean_object*); static bool _G_initialized = false; -lean_object* initialize_Init_Lean_LOption(lean_object* w) { +lean_object* initialize_Init_Lean_Data_LOption(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; diff --git a/stage0/stdlib/Init/Lean/Data/Name.c b/stage0/stdlib/Init/Lean/Data/Name.c new file mode 100644 index 0000000000..334086e5bc --- /dev/null +++ b/stage0/stdlib/Init/Lean/Data/Name.c @@ -0,0 +1,9113 @@ +// Lean compiler output +// Module: Init.Lean.Data.Name +// Imports: Init.Data.String.Basic Init.Coe 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" +#pragma clang diagnostic ignored "-Wunused-label" +#elif defined(__GNUC__) && !defined(__CLANG__) +#pragma GCC diagnostic ignored "-Wunused-parameter" +#pragma GCC diagnostic ignored "-Wunused-label" +#pragma GCC diagnostic ignored "-Wunused-but-set-variable" +#endif +#ifdef __cplusplus +extern "C" { +#endif +lean_object* l_Lean_Name_isAtomic___boxed(lean_object*); +lean_object* l_List_reverse___rarg(lean_object*); +lean_object* l_Lean_Name_toString___closed__1; +lean_object* l_Lean_stringToName; +uint8_t l_RBNode_isRed___rarg(lean_object*); +lean_object* l_Lean_Name_DecidableRel___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Name_HasAppend; +lean_object* l_Lean_NameSet_contains___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Name_hasLtQuick; +lean_object* l_Lean_NameMap_Inhabited(lean_object*); +uint8_t l_Lean_Name_lt___main(lean_object*, lean_object*); +lean_object* l_Lean_Name_replacePrefix___main___boxed(lean_object*, lean_object*, lean_object*); +uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*); +lean_object* l_Lean_Name_isInternal___boxed(lean_object*); +lean_object* l_Lean_NameSet_HasEmptyc; +lean_object* l_Lean_Name_isPrefixOf___main___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Name_HasBeq; +uint8_t l_Lean_Name_DecidableRel(lean_object*, lean_object*); +lean_object* l_Lean_Name_quickLt___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Name_getNumParts___main___boxed(lean_object*); +uint8_t lean_name_eq(lean_object*, lean_object*); +lean_object* l_Lean_Name_updatePrefix(lean_object*, lean_object*); +lean_object* l_Lean_Name_isAnonymous___boxed(lean_object*); +lean_object* l_Lean_Name_HasToString___closed__1; +lean_object* l_Lean_mkNameSimple(lean_object*); +lean_object* lean_string_append(lean_object*, lean_object*); +uint8_t l_Lean_Name_isPrefixOf(lean_object*, lean_object*); +lean_object* l_Lean_Name_inhabited; +lean_object* l_Lean_Name_hashable___closed__1; +lean_object* l_Lean_Name_lt___boxed(lean_object*, lean_object*); +lean_object* l_RBNode_find___main___at_Lean_NameSet_contains___spec__1(lean_object*, lean_object*); +lean_object* l_String_splitOn(lean_object*, lean_object*); +lean_object* l_RBNode_find___main___at_Lean_NameSet_contains___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Name_getNumParts___main(lean_object*); +uint8_t l_USize_decLt(size_t, size_t); +uint8_t l_Lean_NameMap_contains___rarg(lean_object*, lean_object*); +lean_object* l_Lean_Name_lt___main___boxed(lean_object*, lean_object*); +lean_object* lean_nat_add(lean_object*, lean_object*); +lean_object* l_RBNode_insert___at_Lean_NameMap_insert___spec__1(lean_object*); +lean_object* l_Lean_Name_toStringWithSep(lean_object*, lean_object*); +lean_object* l_Lean_Name_hashable; +lean_object* l_Lean_NameMap_insert___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Name_HasAppend___closed__1; +lean_object* l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(lean_object*, lean_object*, lean_object*); +uint8_t l_Lean_Name_eqStr(lean_object*, lean_object*); +lean_object* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(lean_object*, lean_object*, lean_object*); +uint8_t lean_nat_dec_eq(lean_object*, lean_object*); +lean_object* l_String_toName(lean_object*); +lean_object* l_Lean_NameMap_find___rarg(lean_object*, lean_object*); +lean_object* l_Lean_Name_appendIndexAfter___closed__1; +uint8_t l_Lean_Name_quickLtAux(lean_object*, lean_object*); +lean_object* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2(lean_object*); +lean_object* l_Lean_Name_append___main(lean_object*, lean_object*); +lean_object* l_Lean_Name_components_x27(lean_object*); +lean_object* l_Lean_NameMap_contains(lean_object*); +lean_object* l_Lean_Name_toString(lean_object*); +lean_object* l_Lean_Name_hashEx___boxed(lean_object*); +size_t lean_name_hash(lean_object*); +lean_object* l_RBNode_find___main___at_Lean_NameMap_contains___spec__1(lean_object*); +uint8_t l_Lean_Name_isInternal(lean_object*); +lean_object* l_Lean_Name_appendIndexAfter(lean_object*, lean_object*); +lean_object* l_Lean_NameMap_insert(lean_object*); +uint8_t l_Lean_Name_isPrefixOf___main(lean_object*, lean_object*); +size_t l_Lean_Name_hash(lean_object*); +lean_object* l_RBNode_find___main___at_Lean_NameMap_contains___spec__1___rarg___boxed(lean_object*, lean_object*); +lean_object* l_Nat_repr(lean_object*); +lean_object* l_Lean_Name_HasToString; +lean_object* l_Lean_Name_eqStr___boxed(lean_object*, lean_object*); +lean_object* lean_name_mk_string(lean_object*, lean_object*); +uint8_t l_Lean_Name_isAtomic(lean_object*); +uint32_t lean_string_utf8_get(lean_object*, lean_object*); +lean_object* l_Lean_Name_getNumParts(lean_object*); +lean_object* l_Lean_NameMap_HasEmptyc(lean_object*); +lean_object* l_Lean_Name_toStringWithSep___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Name_isInternal___main___boxed(lean_object*); +lean_object* l_RBNode_insert___at_Lean_NameSet_insert___spec__1(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkNameSet; +size_t lean_usize_of_nat(lean_object*); +lean_object* l_Lean_Name_quickLtAux___main___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Name_replacePrefix___main(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_stringToName___closed__1; +lean_object* l_Lean_Name_toStringWithSep___main___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Name_toStringWithSep___main___closed__1; +uint8_t l_Lean_Name_quickLtAux___main(lean_object*, lean_object*); +lean_object* l_List_foldl___main___at_String_toName___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_Lean_NameMap_contains___rarg___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Name_quickLtAux___boxed(lean_object*, lean_object*); +uint8_t l_UInt32_decEq(uint32_t, uint32_t); +lean_object* l_Lean_Name_appendAfter(lean_object*, lean_object*); +uint8_t l_Lean_Name_lt(lean_object*, lean_object*); +lean_object* l_Lean_Name_getNumParts___boxed(lean_object*); +uint8_t l_Lean_Name_isInternal___main(lean_object*); +lean_object* l_RBNode_find___main___at_Lean_NameMap_find___spec__1(lean_object*); +lean_object* l_Lean_Name_getPrefix___boxed(lean_object*); +lean_object* l_Lean_Name_append(lean_object*, lean_object*); +lean_object* l_Lean_Name_components_x27___main(lean_object*); +lean_object* l_Lean_Name_beq___boxed(lean_object*, lean_object*); +uint8_t l_Lean_Name_isAnonymous(lean_object*); +lean_object* l_RBNode_ins___main___at_Lean_NameSet_insert___spec__2(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_NameSet_Inhabited; +lean_object* l_Lean_NameMap_find(lean_object*); +lean_object* l_Lean_Name_replacePrefix___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_List_foldl___main___at_String_toName___spec__1(lean_object*, lean_object*); +lean_object* l_Lean_Name_getPrefix(lean_object*); +lean_object* l_RBNode_setBlack___rarg(lean_object*); +lean_object* l_Lean_Name_HasBeq___closed__1; +lean_object* l_Lean_Name_append___main___boxed(lean_object*, lean_object*); +lean_object* l_String_trim(lean_object*); +size_t lean_usize_mix_hash(size_t, size_t); +uint8_t l_Lean_NameSet_contains(lean_object*, lean_object*); +lean_object* l_Lean_Name_isPrefixOf___boxed(lean_object*, lean_object*); +lean_object* l_Lean_NameSet_insert(lean_object*, lean_object*); +lean_object* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3(lean_object*); +lean_object* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_RBNode_find___main___at_Lean_NameMap_contains___spec__1___rarg(lean_object*, lean_object*); +lean_object* l_Lean_mkNameMap(lean_object*); +lean_object* l_RBNode_find___main___at_Lean_NameMap_find___spec__1___rarg(lean_object*, lean_object*); +lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); +lean_object* l_Lean_NameMap_find___rarg___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Name_hash___boxed(lean_object*); +lean_object* l_Lean_Name_replacePrefix(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Name_components(lean_object*); +lean_object* lean_name_mk_numeral(lean_object*, lean_object*); +size_t lean_string_hash(lean_object*); +lean_object* l_RBNode_find___main___at_Lean_NameMap_find___spec__1___rarg___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Name_append___boxed(lean_object*, lean_object*); +uint8_t lean_string_dec_lt(lean_object*, lean_object*); +uint8_t lean_string_dec_eq(lean_object*, lean_object*); +uint8_t lean_nat_dec_lt(lean_object*, lean_object*); +lean_object* _init_l_Lean_Name_inhabited() { +_start: +{ +lean_object* x_1; +x_1 = lean_box(0); +return x_1; +} +} +size_t l_Lean_Name_hash(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +size_t x_2; +x_2 = 1723; +return x_2; +} +else +{ +size_t x_3; +x_3 = lean_ctor_get_usize(x_1, 2); +return x_3; +} +} +} +lean_object* l_Lean_Name_hash___boxed(lean_object* x_1) { +_start: +{ +size_t x_2; lean_object* x_3; +x_2 = l_Lean_Name_hash(x_1); +lean_dec(x_1); +x_3 = lean_box_usize(x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Name_hashable___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Name_hash___boxed), 1, 0); +return x_1; +} +} +lean_object* _init_l_Lean_Name_hashable() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Name_hashable___closed__1; +return x_1; +} +} +size_t lean_name_hash(lean_object* x_1) { +_start: +{ +size_t x_2; +x_2 = l_Lean_Name_hash(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_Name_hashEx___boxed(lean_object* x_1) { +_start: +{ +size_t x_2; lean_object* x_3; +x_2 = lean_name_hash(x_1); +x_3 = lean_box_usize(x_2); +return x_3; +} +} +lean_object* lean_name_mk_string(lean_object* x_1, lean_object* x_2) { +_start: +{ +size_t x_3; size_t x_4; size_t x_5; lean_object* x_6; +x_3 = l_Lean_Name_hash(x_1); +lean_inc(x_2); +x_4 = lean_string_hash(x_2); +x_5 = lean_usize_mix_hash(x_3, x_4); +x_6 = lean_alloc_ctor(1, 2, sizeof(size_t)*1); +lean_ctor_set(x_6, 0, x_1); +lean_ctor_set(x_6, 1, x_2); +lean_ctor_set_usize(x_6, 2, x_5); +return x_6; +} +} +lean_object* lean_name_mk_numeral(lean_object* x_1, lean_object* x_2) { +_start: +{ +size_t x_3; size_t x_4; size_t x_5; lean_object* x_6; +x_3 = l_Lean_Name_hash(x_1); +x_4 = lean_usize_of_nat(x_2); +x_5 = lean_usize_mix_hash(x_3, x_4); +x_6 = lean_alloc_ctor(2, 2, sizeof(size_t)*1); +lean_ctor_set(x_6, 0, x_1); +lean_ctor_set(x_6, 1, x_2); +lean_ctor_set_usize(x_6, 2, x_5); +return x_6; +} +} +lean_object* l_Lean_mkNameSimple(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = lean_box(0); +x_3 = lean_name_mk_string(x_2, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_stringToName___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_mkNameSimple), 1, 0); +return x_1; +} +} +lean_object* _init_l_Lean_stringToName() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_stringToName___closed__1; +return x_1; +} +} +lean_object* l_Lean_Name_getPrefix(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +return x_1; +} +else +{ +lean_object* x_2; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +return x_2; +} +} +} +lean_object* l_Lean_Name_getPrefix___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Name_getPrefix(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_Name_getNumParts___main(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_2; +x_2 = lean_unsigned_to_nat(0u); +return x_2; +} +else +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_3 = lean_ctor_get(x_1, 0); +x_4 = l_Lean_Name_getNumParts___main(x_3); +x_5 = lean_unsigned_to_nat(1u); +x_6 = lean_nat_add(x_4, x_5); +lean_dec(x_4); +return x_6; +} +} +} +lean_object* l_Lean_Name_getNumParts___main___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Name_getNumParts___main(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_Name_getNumParts(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Name_getNumParts___main(x_1); +return x_2; +} +} +lean_object* l_Lean_Name_getNumParts___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Name_getNumParts(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_Name_updatePrefix(lean_object* x_1, lean_object* x_2) { +_start: +{ +switch (lean_obj_tag(x_1)) { +case 0: +{ +lean_dec(x_2); +return x_1; +} +case 1: +{ +lean_object* x_3; lean_object* x_4; +x_3 = lean_ctor_get(x_1, 1); +lean_inc(x_3); +lean_dec(x_1); +x_4 = lean_name_mk_string(x_2, x_3); +return x_4; +} +default: +{ +lean_object* x_5; lean_object* x_6; +x_5 = lean_ctor_get(x_1, 1); +lean_inc(x_5); +lean_dec(x_1); +x_6 = lean_name_mk_numeral(x_2, x_5); +return x_6; +} +} +} +} +lean_object* l_Lean_Name_components_x27___main(lean_object* x_1) { +_start: +{ +switch (lean_obj_tag(x_1)) { +case 0: +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +case 1: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_3 = lean_ctor_get(x_1, 0); +lean_inc(x_3); +x_4 = lean_ctor_get(x_1, 1); +lean_inc(x_4); +lean_dec(x_1); +x_5 = lean_box(0); +x_6 = lean_name_mk_string(x_5, x_4); +x_7 = l_Lean_Name_components_x27___main(x_3); +x_8 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_8, 0, x_6); +lean_ctor_set(x_8, 1, x_7); +return x_8; +} +default: +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_9 = lean_ctor_get(x_1, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_1, 1); +lean_inc(x_10); +lean_dec(x_1); +x_11 = lean_box(0); +x_12 = lean_name_mk_numeral(x_11, x_10); +x_13 = l_Lean_Name_components_x27___main(x_9); +x_14 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_14, 0, x_12); +lean_ctor_set(x_14, 1, x_13); +return x_14; +} +} +} +} +lean_object* l_Lean_Name_components_x27(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Name_components_x27___main(x_1); +return x_2; +} +} +lean_object* l_Lean_Name_components(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_Name_components_x27___main(x_1); +x_3 = l_List_reverse___rarg(x_2); +return x_3; +} +} +lean_object* l_Lean_Name_beq___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = lean_name_eq(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* _init_l_Lean_Name_HasBeq___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Name_beq___boxed), 2, 0); +return x_1; +} +} +lean_object* _init_l_Lean_Name_HasBeq() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Name_HasBeq___closed__1; +return x_1; +} +} +uint8_t l_Lean_Name_eqStr(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 1) +{ +lean_object* x_3; +x_3 = lean_ctor_get(x_1, 0); +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_4; uint8_t x_5; +x_4 = lean_ctor_get(x_1, 1); +x_5 = lean_string_dec_eq(x_4, x_2); +return x_5; +} +else +{ +uint8_t x_6; +x_6 = 0; +return x_6; +} +} +else +{ +uint8_t x_7; +x_7 = 0; +return x_7; +} +} +} +lean_object* l_Lean_Name_eqStr___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Lean_Name_eqStr(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* l_Lean_Name_append___main(lean_object* x_1, lean_object* x_2) { +_start: +{ +switch (lean_obj_tag(x_2)) { +case 0: +{ +lean_inc(x_1); +return x_1; +} +case 1: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_3 = lean_ctor_get(x_2, 0); +lean_inc(x_3); +x_4 = lean_ctor_get(x_2, 1); +lean_inc(x_4); +lean_dec(x_2); +x_5 = l_Lean_Name_append___main(x_1, x_3); +x_6 = lean_name_mk_string(x_5, x_4); +return x_6; +} +default: +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_7 = lean_ctor_get(x_2, 0); +lean_inc(x_7); +x_8 = lean_ctor_get(x_2, 1); +lean_inc(x_8); +lean_dec(x_2); +x_9 = l_Lean_Name_append___main(x_1, x_7); +x_10 = lean_name_mk_numeral(x_9, x_8); +return x_10; +} +} +} +} +lean_object* l_Lean_Name_append___main___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Name_append___main(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Name_append(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Name_append___main(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Name_append___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Name_append(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* _init_l_Lean_Name_HasAppend___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Name_append___boxed), 2, 0); +return x_1; +} +} +lean_object* _init_l_Lean_Name_HasAppend() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Name_HasAppend___closed__1; +return x_1; +} +} +lean_object* l_Lean_Name_replacePrefix___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +switch (lean_obj_tag(x_1)) { +case 0: +{ +if (lean_obj_tag(x_2) == 0) +{ +lean_inc(x_3); +return x_3; +} +else +{ +return x_1; +} +} +case 1: +{ +lean_object* x_4; lean_object* x_5; uint8_t x_6; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_1, 1); +lean_inc(x_5); +x_6 = lean_name_eq(x_1, x_2); +lean_dec(x_1); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; +x_7 = l_Lean_Name_replacePrefix___main(x_4, x_2, x_3); +x_8 = lean_name_mk_string(x_7, x_5); +return x_8; +} +else +{ +lean_dec(x_5); +lean_dec(x_4); +lean_inc(x_3); +return x_3; +} +} +default: +{ +lean_object* x_9; lean_object* x_10; uint8_t x_11; +x_9 = lean_ctor_get(x_1, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_1, 1); +lean_inc(x_10); +x_11 = lean_name_eq(x_1, x_2); +lean_dec(x_1); +if (x_11 == 0) +{ +lean_object* x_12; lean_object* x_13; +x_12 = l_Lean_Name_replacePrefix___main(x_9, x_2, x_3); +x_13 = lean_name_mk_numeral(x_12, x_10); +return x_13; +} +else +{ +lean_dec(x_10); +lean_dec(x_9); +lean_inc(x_3); +return x_3; +} +} +} +} +} +lean_object* l_Lean_Name_replacePrefix___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Name_replacePrefix___main(x_1, x_2, x_3); +lean_dec(x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_Name_replacePrefix(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Name_replacePrefix___main(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l_Lean_Name_replacePrefix___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Name_replacePrefix(x_1, x_2, x_3); +lean_dec(x_3); +lean_dec(x_2); +return x_4; +} +} +uint8_t l_Lean_Name_isPrefixOf___main(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +uint8_t x_3; +x_3 = lean_name_eq(x_1, x_2); +return x_3; +} +else +{ +lean_object* x_4; uint8_t x_5; +x_4 = lean_ctor_get(x_2, 0); +x_5 = lean_name_eq(x_1, x_2); +if (x_5 == 0) +{ +x_2 = x_4; +goto _start; +} +else +{ +uint8_t x_7; +x_7 = 1; +return x_7; +} +} +} +} +lean_object* l_Lean_Name_isPrefixOf___main___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Lean_Name_isPrefixOf___main(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +uint8_t l_Lean_Name_isPrefixOf(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; +x_3 = l_Lean_Name_isPrefixOf___main(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Name_isPrefixOf___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Lean_Name_isPrefixOf(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +uint8_t l_Lean_Name_lt___main(lean_object* x_1, lean_object* x_2) { +_start: +{ +switch (lean_obj_tag(x_1)) { +case 0: +{ +if (lean_obj_tag(x_2) == 0) +{ +uint8_t x_3; +x_3 = 0; +return x_3; +} +else +{ +uint8_t x_4; +x_4 = 1; +return x_4; +} +} +case 1: +{ +if (lean_obj_tag(x_2) == 1) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; uint8_t x_9; +x_5 = lean_ctor_get(x_1, 0); +x_6 = lean_ctor_get(x_1, 1); +x_7 = lean_ctor_get(x_2, 0); +x_8 = lean_ctor_get(x_2, 1); +x_9 = l_Lean_Name_lt___main(x_5, x_7); +if (x_9 == 0) +{ +uint8_t x_10; +x_10 = lean_name_eq(x_5, x_7); +if (x_10 == 0) +{ +return x_9; +} +else +{ +uint8_t x_11; +x_11 = lean_string_dec_lt(x_6, x_8); +return x_11; +} +} +else +{ +uint8_t x_12; +x_12 = 1; +return x_12; +} +} +else +{ +uint8_t x_13; +x_13 = 0; +return x_13; +} +} +default: +{ +switch (lean_obj_tag(x_2)) { +case 0: +{ +uint8_t x_14; +x_14 = 0; +return x_14; +} +case 1: +{ +uint8_t x_15; +x_15 = 1; +return x_15; +} +default: +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; +x_16 = lean_ctor_get(x_1, 0); +x_17 = lean_ctor_get(x_1, 1); +x_18 = lean_ctor_get(x_2, 0); +x_19 = lean_ctor_get(x_2, 1); +x_20 = l_Lean_Name_lt___main(x_16, x_18); +if (x_20 == 0) +{ +uint8_t x_21; +x_21 = lean_name_eq(x_16, x_18); +if (x_21 == 0) +{ +return x_20; +} +else +{ +uint8_t x_22; +x_22 = lean_nat_dec_lt(x_17, x_19); +return x_22; +} +} +else +{ +uint8_t x_23; +x_23 = 1; +return x_23; +} +} +} +} +} +} +} +lean_object* l_Lean_Name_lt___main___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Lean_Name_lt___main(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +uint8_t l_Lean_Name_lt(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; +x_3 = l_Lean_Name_lt___main(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Name_lt___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Lean_Name_lt(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +uint8_t l_Lean_Name_quickLtAux___main(lean_object* x_1, lean_object* x_2) { +_start: +{ +switch (lean_obj_tag(x_1)) { +case 0: +{ +if (lean_obj_tag(x_2) == 0) +{ +uint8_t x_3; +x_3 = 0; +return x_3; +} +else +{ +uint8_t x_4; +x_4 = 1; +return x_4; +} +} +case 1: +{ +if (lean_obj_tag(x_2) == 1) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; uint8_t x_9; +x_5 = lean_ctor_get(x_1, 0); +x_6 = lean_ctor_get(x_1, 1); +x_7 = lean_ctor_get(x_2, 0); +x_8 = lean_ctor_get(x_2, 1); +x_9 = lean_string_dec_lt(x_6, x_8); +if (x_9 == 0) +{ +uint8_t x_10; +x_10 = lean_string_dec_eq(x_6, x_8); +if (x_10 == 0) +{ +return x_9; +} +else +{ +x_1 = x_5; +x_2 = x_7; +goto _start; +} +} +else +{ +uint8_t x_12; +x_12 = 1; +return x_12; +} +} +else +{ +uint8_t x_13; +x_13 = 0; +return x_13; +} +} +default: +{ +switch (lean_obj_tag(x_2)) { +case 0: +{ +uint8_t x_14; +x_14 = 0; +return x_14; +} +case 1: +{ +uint8_t x_15; +x_15 = 1; +return x_15; +} +default: +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; +x_16 = lean_ctor_get(x_1, 0); +x_17 = lean_ctor_get(x_1, 1); +x_18 = lean_ctor_get(x_2, 0); +x_19 = lean_ctor_get(x_2, 1); +x_20 = lean_nat_dec_lt(x_17, x_19); +if (x_20 == 0) +{ +uint8_t x_21; +x_21 = lean_nat_dec_eq(x_17, x_19); +if (x_21 == 0) +{ +return x_20; +} +else +{ +x_1 = x_16; +x_2 = x_18; +goto _start; +} +} +else +{ +uint8_t x_23; +x_23 = 1; +return x_23; +} +} +} +} +} +} +} +lean_object* l_Lean_Name_quickLtAux___main___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Lean_Name_quickLtAux___main(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +uint8_t l_Lean_Name_quickLtAux(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; +x_3 = l_Lean_Name_quickLtAux___main(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Name_quickLtAux___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Lean_Name_quickLtAux(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +uint8_t l_Lean_Name_quickLt(lean_object* x_1, lean_object* x_2) { +_start: +{ +size_t x_3; size_t x_4; uint8_t x_5; +x_3 = l_Lean_Name_hash(x_1); +x_4 = l_Lean_Name_hash(x_2); +x_5 = x_3 < x_4; +if (x_5 == 0) +{ +uint8_t x_6; +x_6 = x_4 < x_3; +if (x_6 == 0) +{ +uint8_t x_7; +x_7 = l_Lean_Name_quickLtAux___main(x_1, x_2); +return x_7; +} +else +{ +uint8_t x_8; +x_8 = 0; +return x_8; +} +} +else +{ +uint8_t x_9; +x_9 = 1; +return x_9; +} +} +} +lean_object* l_Lean_Name_quickLt___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Lean_Name_quickLt(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* _init_l_Lean_Name_hasLtQuick() { +_start: +{ +lean_object* x_1; +x_1 = lean_box(0); +return x_1; +} +} +uint8_t l_Lean_Name_DecidableRel(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; +x_3 = l_Lean_Name_quickLt(x_1, x_2); +if (x_3 == 0) +{ +uint8_t x_4; +x_4 = 0; +return x_4; +} +else +{ +uint8_t x_5; +x_5 = 1; +return x_5; +} +} +} +lean_object* l_Lean_Name_DecidableRel___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Lean_Name_DecidableRel(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* _init_l_Lean_Name_toStringWithSep___main___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("[anonymous]"); +return x_1; +} +} +lean_object* l_Lean_Name_toStringWithSep___main(lean_object* x_1, lean_object* x_2) { +_start: +{ +switch (lean_obj_tag(x_2)) { +case 0: +{ +lean_object* x_3; +x_3 = l_Lean_Name_toStringWithSep___main___closed__1; +return x_3; +} +case 1: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = lean_ctor_get(x_2, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_2, 1); +lean_inc(x_5); +lean_dec(x_2); +if (lean_obj_tag(x_4) == 0) +{ +return x_5; +} +else +{ +lean_object* x_11; +x_11 = lean_box(0); +x_6 = x_11; +goto block_10; +} +block_10: +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; +lean_dec(x_6); +x_7 = l_Lean_Name_toStringWithSep___main(x_1, x_4); +x_8 = lean_string_append(x_7, x_1); +x_9 = lean_string_append(x_8, x_5); +lean_dec(x_5); +return x_9; +} +} +default: +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_12 = lean_ctor_get(x_2, 0); +lean_inc(x_12); +x_13 = lean_ctor_get(x_2, 1); +lean_inc(x_13); +lean_dec(x_2); +if (lean_obj_tag(x_12) == 0) +{ +lean_object* x_20; +x_20 = l_Nat_repr(x_13); +return x_20; +} +else +{ +lean_object* x_21; +x_21 = lean_box(0); +x_14 = x_21; +goto block_19; +} +block_19: +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +lean_dec(x_14); +x_15 = l_Lean_Name_toStringWithSep___main(x_1, x_12); +x_16 = lean_string_append(x_15, x_1); +x_17 = l_Nat_repr(x_13); +x_18 = lean_string_append(x_16, x_17); +lean_dec(x_17); +return x_18; +} +} +} +} +} +lean_object* l_Lean_Name_toStringWithSep___main___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Name_toStringWithSep___main(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Name_toStringWithSep(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Name_toStringWithSep___main(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Name_toStringWithSep___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Name_toStringWithSep(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* _init_l_Lean_Name_toString___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("."); +return x_1; +} +} +lean_object* l_Lean_Name_toString(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_Name_toString___closed__1; +x_3 = l_Lean_Name_toStringWithSep___main(x_2, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_Name_HasToString___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Name_toString), 1, 0); +return x_1; +} +} +lean_object* _init_l_Lean_Name_HasToString() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Name_HasToString___closed__1; +return x_1; +} +} +lean_object* l_Lean_Name_appendAfter(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 1) +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_3 = lean_ctor_get(x_1, 0); +lean_inc(x_3); +x_4 = lean_ctor_get(x_1, 1); +lean_inc(x_4); +lean_dec(x_1); +x_5 = lean_string_append(x_4, x_2); +lean_dec(x_2); +x_6 = lean_name_mk_string(x_3, x_5); +return x_6; +} +else +{ +lean_object* x_7; +x_7 = lean_name_mk_string(x_1, x_2); +return x_7; +} +} +} +lean_object* _init_l_Lean_Name_appendIndexAfter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("_"); +return x_1; +} +} +lean_object* l_Lean_Name_appendIndexAfter(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +if (lean_obj_tag(x_1) == 1) +{ +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_ctor_get(x_1, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_1, 1); +lean_inc(x_10); +lean_dec(x_1); +x_11 = l_Lean_Name_appendIndexAfter___closed__1; +x_12 = lean_string_append(x_10, x_11); +x_13 = l_Nat_repr(x_2); +x_14 = lean_string_append(x_12, x_13); +lean_dec(x_13); +x_15 = lean_name_mk_string(x_9, x_14); +return x_15; +} +else +{ +lean_object* x_16; +x_16 = lean_box(0); +x_3 = x_16; +goto block_8; +} +block_8: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +lean_dec(x_3); +x_4 = l_Nat_repr(x_2); +x_5 = l_Lean_Name_appendIndexAfter___closed__1; +x_6 = lean_string_append(x_5, x_4); +lean_dec(x_4); +x_7 = lean_name_mk_string(x_1, x_6); +return x_7; +} +} +} +uint8_t l_Lean_Name_isInternal___main(lean_object* x_1) { +_start: +{ +switch (lean_obj_tag(x_1)) { +case 0: +{ +uint8_t x_2; +x_2 = 0; +return x_2; +} +case 1: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; uint32_t x_6; uint32_t x_7; uint8_t x_8; +x_3 = lean_ctor_get(x_1, 0); +x_4 = lean_ctor_get(x_1, 1); +x_5 = lean_unsigned_to_nat(0u); +x_6 = lean_string_utf8_get(x_4, x_5); +x_7 = 95; +x_8 = x_6 == x_7; +if (x_8 == 0) +{ +x_1 = x_3; +goto _start; +} +else +{ +uint8_t x_10; +x_10 = 1; +return x_10; +} +} +default: +{ +lean_object* x_11; +x_11 = lean_ctor_get(x_1, 0); +x_1 = x_11; +goto _start; +} +} +} +} +lean_object* l_Lean_Name_isInternal___main___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l_Lean_Name_isInternal___main(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +uint8_t l_Lean_Name_isInternal(lean_object* x_1) { +_start: +{ +uint8_t x_2; +x_2 = l_Lean_Name_isInternal___main(x_1); +return x_2; +} +} +lean_object* l_Lean_Name_isInternal___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l_Lean_Name_isInternal(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +uint8_t l_Lean_Name_isAtomic(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +uint8_t x_2; +x_2 = 1; +return x_2; +} +else +{ +lean_object* x_3; +x_3 = lean_ctor_get(x_1, 0); +if (lean_obj_tag(x_3) == 0) +{ +uint8_t x_4; +x_4 = 1; +return x_4; +} +else +{ +uint8_t x_5; +x_5 = 0; +return x_5; +} +} +} +} +lean_object* l_Lean_Name_isAtomic___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l_Lean_Name_isAtomic(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +uint8_t l_Lean_Name_isAnonymous(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +uint8_t x_2; +x_2 = 1; +return x_2; +} +else +{ +uint8_t x_3; +x_3 = 0; +return x_3; +} +} +} +lean_object* l_Lean_Name_isAnonymous___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l_Lean_Name_isAnonymous(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +lean_object* l_Lean_mkNameMap(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +} +lean_object* l_Lean_NameMap_HasEmptyc(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +} +lean_object* l_Lean_NameMap_Inhabited(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +} +lean_object* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +uint8_t x_4; lean_object* x_5; +x_4 = 0; +x_5 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_5, 0, x_1); +lean_ctor_set(x_5, 1, x_2); +lean_ctor_set(x_5, 2, x_3); +lean_ctor_set(x_5, 3, x_1); +lean_ctor_set_uint8(x_5, sizeof(void*)*4, x_4); +return x_5; +} +else +{ +uint8_t x_6; +x_6 = lean_ctor_get_uint8(x_1, sizeof(void*)*4); +if (x_6 == 0) +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_1); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; +x_8 = lean_ctor_get(x_1, 0); +x_9 = lean_ctor_get(x_1, 1); +x_10 = lean_ctor_get(x_1, 2); +x_11 = lean_ctor_get(x_1, 3); +x_12 = l_Lean_Name_quickLt(x_2, x_9); +if (x_12 == 0) +{ +uint8_t x_13; +x_13 = l_Lean_Name_quickLt(x_9, x_2); +if (x_13 == 0) +{ +lean_dec(x_10); +lean_dec(x_9); +lean_ctor_set(x_1, 2, x_3); +lean_ctor_set(x_1, 1, x_2); +return x_1; +} +else +{ +lean_object* x_14; +x_14 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_11, x_2, x_3); +lean_ctor_set(x_1, 3, x_14); +return x_1; +} +} +else +{ +lean_object* x_15; +x_15 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_8, x_2, x_3); +lean_ctor_set(x_1, 0, x_15); +return x_1; +} +} +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; +x_16 = lean_ctor_get(x_1, 0); +x_17 = lean_ctor_get(x_1, 1); +x_18 = lean_ctor_get(x_1, 2); +x_19 = lean_ctor_get(x_1, 3); +lean_inc(x_19); +lean_inc(x_18); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_1); +x_20 = l_Lean_Name_quickLt(x_2, x_17); +if (x_20 == 0) +{ +uint8_t x_21; +x_21 = l_Lean_Name_quickLt(x_17, x_2); +if (x_21 == 0) +{ +lean_object* x_22; +lean_dec(x_18); +lean_dec(x_17); +x_22 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_22, 0, x_16); +lean_ctor_set(x_22, 1, x_2); +lean_ctor_set(x_22, 2, x_3); +lean_ctor_set(x_22, 3, x_19); +lean_ctor_set_uint8(x_22, sizeof(void*)*4, x_6); +return x_22; +} +else +{ +lean_object* x_23; lean_object* x_24; +x_23 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_19, x_2, x_3); +x_24 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_24, 0, x_16); +lean_ctor_set(x_24, 1, x_17); +lean_ctor_set(x_24, 2, x_18); +lean_ctor_set(x_24, 3, x_23); +lean_ctor_set_uint8(x_24, sizeof(void*)*4, x_6); +return x_24; +} +} +else +{ +lean_object* x_25; lean_object* x_26; +x_25 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_16, x_2, x_3); +x_26 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_26, 0, x_25); +lean_ctor_set(x_26, 1, x_17); +lean_ctor_set(x_26, 2, x_18); +lean_ctor_set(x_26, 3, x_19); +lean_ctor_set_uint8(x_26, sizeof(void*)*4, x_6); +return x_26; +} +} +} +else +{ +uint8_t x_27; +x_27 = !lean_is_exclusive(x_1); +if (x_27 == 0) +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; uint8_t x_32; +x_28 = lean_ctor_get(x_1, 0); +x_29 = lean_ctor_get(x_1, 1); +x_30 = lean_ctor_get(x_1, 2); +x_31 = lean_ctor_get(x_1, 3); +x_32 = l_Lean_Name_quickLt(x_2, x_29); +if (x_32 == 0) +{ +uint8_t x_33; +x_33 = l_Lean_Name_quickLt(x_29, x_2); +if (x_33 == 0) +{ +lean_dec(x_30); +lean_dec(x_29); +lean_ctor_set(x_1, 2, x_3); +lean_ctor_set(x_1, 1, x_2); +return x_1; +} +else +{ +uint8_t x_34; +x_34 = l_RBNode_isRed___rarg(x_31); +if (x_34 == 0) +{ +lean_object* x_35; +x_35 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_31, x_2, x_3); +lean_ctor_set(x_1, 3, x_35); +return x_1; +} +else +{ +lean_object* x_36; lean_object* x_37; +x_36 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_31, x_2, x_3); +x_37 = lean_ctor_get(x_36, 0); +lean_inc(x_37); +if (lean_obj_tag(x_37) == 0) +{ +lean_object* x_38; +x_38 = lean_ctor_get(x_36, 3); +lean_inc(x_38); +if (lean_obj_tag(x_38) == 0) +{ +uint8_t x_39; +x_39 = !lean_is_exclusive(x_36); +if (x_39 == 0) +{ +lean_object* x_40; lean_object* x_41; uint8_t x_42; uint8_t x_43; +x_40 = lean_ctor_get(x_36, 3); +lean_dec(x_40); +x_41 = lean_ctor_get(x_36, 0); +lean_dec(x_41); +x_42 = 0; +lean_ctor_set(x_36, 0, x_38); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_42); +x_43 = 1; +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_43); +return x_1; +} +else +{ +lean_object* x_44; lean_object* x_45; uint8_t x_46; lean_object* x_47; uint8_t x_48; +x_44 = lean_ctor_get(x_36, 1); +x_45 = lean_ctor_get(x_36, 2); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_36); +x_46 = 0; +x_47 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_47, 0, x_38); +lean_ctor_set(x_47, 1, x_44); +lean_ctor_set(x_47, 2, x_45); +lean_ctor_set(x_47, 3, x_38); +lean_ctor_set_uint8(x_47, sizeof(void*)*4, x_46); +x_48 = 1; +lean_ctor_set(x_1, 3, x_47); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_48); +return x_1; +} +} +else +{ +uint8_t x_49; +x_49 = lean_ctor_get_uint8(x_38, sizeof(void*)*4); +if (x_49 == 0) +{ +uint8_t x_50; +x_50 = !lean_is_exclusive(x_36); +if (x_50 == 0) +{ +lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; uint8_t x_55; +x_51 = lean_ctor_get(x_36, 1); +x_52 = lean_ctor_get(x_36, 2); +x_53 = lean_ctor_get(x_36, 3); +lean_dec(x_53); +x_54 = lean_ctor_get(x_36, 0); +lean_dec(x_54); +x_55 = !lean_is_exclusive(x_38); +if (x_55 == 0) +{ +lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; uint8_t x_60; +x_56 = lean_ctor_get(x_38, 0); +x_57 = lean_ctor_get(x_38, 1); +x_58 = lean_ctor_get(x_38, 2); +x_59 = lean_ctor_get(x_38, 3); +x_60 = 1; +lean_ctor_set(x_38, 3, x_37); +lean_ctor_set(x_38, 2, x_30); +lean_ctor_set(x_38, 1, x_29); +lean_ctor_set(x_38, 0, x_28); +lean_ctor_set_uint8(x_38, sizeof(void*)*4, x_60); +lean_ctor_set(x_36, 3, x_59); +lean_ctor_set(x_36, 2, x_58); +lean_ctor_set(x_36, 1, x_57); +lean_ctor_set(x_36, 0, x_56); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_60); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set(x_1, 2, x_52); +lean_ctor_set(x_1, 1, x_51); +lean_ctor_set(x_1, 0, x_38); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_49); +return x_1; +} +else +{ +lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; uint8_t x_65; lean_object* x_66; +x_61 = lean_ctor_get(x_38, 0); +x_62 = lean_ctor_get(x_38, 1); +x_63 = lean_ctor_get(x_38, 2); +x_64 = lean_ctor_get(x_38, 3); +lean_inc(x_64); +lean_inc(x_63); +lean_inc(x_62); +lean_inc(x_61); +lean_dec(x_38); +x_65 = 1; +x_66 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_66, 0, x_28); +lean_ctor_set(x_66, 1, x_29); +lean_ctor_set(x_66, 2, x_30); +lean_ctor_set(x_66, 3, x_37); +lean_ctor_set_uint8(x_66, sizeof(void*)*4, x_65); +lean_ctor_set(x_36, 3, x_64); +lean_ctor_set(x_36, 2, x_63); +lean_ctor_set(x_36, 1, x_62); +lean_ctor_set(x_36, 0, x_61); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_65); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set(x_1, 2, x_52); +lean_ctor_set(x_1, 1, x_51); +lean_ctor_set(x_1, 0, x_66); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_49); +return x_1; +} +} +else +{ +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; lean_object* x_75; lean_object* x_76; +x_67 = lean_ctor_get(x_36, 1); +x_68 = lean_ctor_get(x_36, 2); +lean_inc(x_68); +lean_inc(x_67); +lean_dec(x_36); +x_69 = lean_ctor_get(x_38, 0); +lean_inc(x_69); +x_70 = lean_ctor_get(x_38, 1); +lean_inc(x_70); +x_71 = lean_ctor_get(x_38, 2); +lean_inc(x_71); +x_72 = lean_ctor_get(x_38, 3); +lean_inc(x_72); +if (lean_is_exclusive(x_38)) { + lean_ctor_release(x_38, 0); + lean_ctor_release(x_38, 1); + lean_ctor_release(x_38, 2); + lean_ctor_release(x_38, 3); + x_73 = x_38; +} else { + lean_dec_ref(x_38); + x_73 = lean_box(0); +} +x_74 = 1; +if (lean_is_scalar(x_73)) { + x_75 = lean_alloc_ctor(1, 4, 1); +} else { + x_75 = x_73; +} +lean_ctor_set(x_75, 0, x_28); +lean_ctor_set(x_75, 1, x_29); +lean_ctor_set(x_75, 2, x_30); +lean_ctor_set(x_75, 3, x_37); +lean_ctor_set_uint8(x_75, sizeof(void*)*4, x_74); +x_76 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_76, 0, x_69); +lean_ctor_set(x_76, 1, x_70); +lean_ctor_set(x_76, 2, x_71); +lean_ctor_set(x_76, 3, x_72); +lean_ctor_set_uint8(x_76, sizeof(void*)*4, x_74); +lean_ctor_set(x_1, 3, x_76); +lean_ctor_set(x_1, 2, x_68); +lean_ctor_set(x_1, 1, x_67); +lean_ctor_set(x_1, 0, x_75); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_49); +return x_1; +} +} +else +{ +uint8_t x_77; +x_77 = !lean_is_exclusive(x_36); +if (x_77 == 0) +{ +lean_object* x_78; lean_object* x_79; uint8_t x_80; +x_78 = lean_ctor_get(x_36, 3); +lean_dec(x_78); +x_79 = lean_ctor_get(x_36, 0); +lean_dec(x_79); +x_80 = 0; +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_80); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_49); +return x_1; +} +else +{ +lean_object* x_81; lean_object* x_82; uint8_t x_83; lean_object* x_84; +x_81 = lean_ctor_get(x_36, 1); +x_82 = lean_ctor_get(x_36, 2); +lean_inc(x_82); +lean_inc(x_81); +lean_dec(x_36); +x_83 = 0; +x_84 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_84, 0, x_37); +lean_ctor_set(x_84, 1, x_81); +lean_ctor_set(x_84, 2, x_82); +lean_ctor_set(x_84, 3, x_38); +lean_ctor_set_uint8(x_84, sizeof(void*)*4, x_83); +lean_ctor_set(x_1, 3, x_84); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_49); +return x_1; +} +} +} +} +else +{ +uint8_t x_85; +x_85 = lean_ctor_get_uint8(x_37, sizeof(void*)*4); +if (x_85 == 0) +{ +uint8_t x_86; +x_86 = !lean_is_exclusive(x_36); +if (x_86 == 0) +{ +lean_object* x_87; uint8_t x_88; +x_87 = lean_ctor_get(x_36, 0); +lean_dec(x_87); +x_88 = !lean_is_exclusive(x_37); +if (x_88 == 0) +{ +lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; uint8_t x_93; +x_89 = lean_ctor_get(x_37, 0); +x_90 = lean_ctor_get(x_37, 1); +x_91 = lean_ctor_get(x_37, 2); +x_92 = lean_ctor_get(x_37, 3); +x_93 = 1; +lean_ctor_set(x_37, 3, x_89); +lean_ctor_set(x_37, 2, x_30); +lean_ctor_set(x_37, 1, x_29); +lean_ctor_set(x_37, 0, x_28); +lean_ctor_set_uint8(x_37, sizeof(void*)*4, x_93); +lean_ctor_set(x_36, 0, x_92); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_93); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set(x_1, 2, x_91); +lean_ctor_set(x_1, 1, x_90); +lean_ctor_set(x_1, 0, x_37); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_85); +return x_1; +} +else +{ +lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; uint8_t x_98; lean_object* x_99; +x_94 = lean_ctor_get(x_37, 0); +x_95 = lean_ctor_get(x_37, 1); +x_96 = lean_ctor_get(x_37, 2); +x_97 = lean_ctor_get(x_37, 3); +lean_inc(x_97); +lean_inc(x_96); +lean_inc(x_95); +lean_inc(x_94); +lean_dec(x_37); +x_98 = 1; +x_99 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_99, 0, x_28); +lean_ctor_set(x_99, 1, x_29); +lean_ctor_set(x_99, 2, x_30); +lean_ctor_set(x_99, 3, x_94); +lean_ctor_set_uint8(x_99, sizeof(void*)*4, x_98); +lean_ctor_set(x_36, 0, x_97); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_98); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set(x_1, 2, x_96); +lean_ctor_set(x_1, 1, x_95); +lean_ctor_set(x_1, 0, x_99); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_85); +return x_1; +} +} +else +{ +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; lean_object* x_109; lean_object* x_110; +x_100 = lean_ctor_get(x_36, 1); +x_101 = lean_ctor_get(x_36, 2); +x_102 = lean_ctor_get(x_36, 3); +lean_inc(x_102); +lean_inc(x_101); +lean_inc(x_100); +lean_dec(x_36); +x_103 = lean_ctor_get(x_37, 0); +lean_inc(x_103); +x_104 = lean_ctor_get(x_37, 1); +lean_inc(x_104); +x_105 = lean_ctor_get(x_37, 2); +lean_inc(x_105); +x_106 = lean_ctor_get(x_37, 3); +lean_inc(x_106); +if (lean_is_exclusive(x_37)) { + lean_ctor_release(x_37, 0); + lean_ctor_release(x_37, 1); + lean_ctor_release(x_37, 2); + lean_ctor_release(x_37, 3); + x_107 = x_37; +} else { + lean_dec_ref(x_37); + x_107 = lean_box(0); +} +x_108 = 1; +if (lean_is_scalar(x_107)) { + x_109 = lean_alloc_ctor(1, 4, 1); +} else { + x_109 = x_107; +} +lean_ctor_set(x_109, 0, x_28); +lean_ctor_set(x_109, 1, x_29); +lean_ctor_set(x_109, 2, x_30); +lean_ctor_set(x_109, 3, x_103); +lean_ctor_set_uint8(x_109, sizeof(void*)*4, x_108); +x_110 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_110, 0, x_106); +lean_ctor_set(x_110, 1, x_100); +lean_ctor_set(x_110, 2, x_101); +lean_ctor_set(x_110, 3, x_102); +lean_ctor_set_uint8(x_110, sizeof(void*)*4, x_108); +lean_ctor_set(x_1, 3, x_110); +lean_ctor_set(x_1, 2, x_105); +lean_ctor_set(x_1, 1, x_104); +lean_ctor_set(x_1, 0, x_109); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_85); +return x_1; +} +} +else +{ +lean_object* x_111; +x_111 = lean_ctor_get(x_36, 3); +lean_inc(x_111); +if (lean_obj_tag(x_111) == 0) +{ +uint8_t x_112; +x_112 = !lean_is_exclusive(x_36); +if (x_112 == 0) +{ +lean_object* x_113; lean_object* x_114; uint8_t x_115; +x_113 = lean_ctor_get(x_36, 3); +lean_dec(x_113); +x_114 = lean_ctor_get(x_36, 0); +lean_dec(x_114); +x_115 = 0; +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_115); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_85); +return x_1; +} +else +{ +lean_object* x_116; lean_object* x_117; uint8_t x_118; lean_object* x_119; +x_116 = lean_ctor_get(x_36, 1); +x_117 = lean_ctor_get(x_36, 2); +lean_inc(x_117); +lean_inc(x_116); +lean_dec(x_36); +x_118 = 0; +x_119 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_119, 0, x_37); +lean_ctor_set(x_119, 1, x_116); +lean_ctor_set(x_119, 2, x_117); +lean_ctor_set(x_119, 3, x_111); +lean_ctor_set_uint8(x_119, sizeof(void*)*4, x_118); +lean_ctor_set(x_1, 3, x_119); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_85); +return x_1; +} +} +else +{ +uint8_t x_120; +x_120 = lean_ctor_get_uint8(x_111, sizeof(void*)*4); +if (x_120 == 0) +{ +uint8_t x_121; +lean_free_object(x_1); +x_121 = !lean_is_exclusive(x_36); +if (x_121 == 0) +{ +lean_object* x_122; lean_object* x_123; uint8_t x_124; +x_122 = lean_ctor_get(x_36, 3); +lean_dec(x_122); +x_123 = lean_ctor_get(x_36, 0); +lean_dec(x_123); +x_124 = !lean_is_exclusive(x_111); +if (x_124 == 0) +{ +lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; uint8_t x_129; +x_125 = lean_ctor_get(x_111, 0); +x_126 = lean_ctor_get(x_111, 1); +x_127 = lean_ctor_get(x_111, 2); +x_128 = lean_ctor_get(x_111, 3); +lean_inc(x_37); +lean_ctor_set(x_111, 3, x_37); +lean_ctor_set(x_111, 2, x_30); +lean_ctor_set(x_111, 1, x_29); +lean_ctor_set(x_111, 0, x_28); +x_129 = !lean_is_exclusive(x_37); +if (x_129 == 0) +{ +lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; +x_130 = lean_ctor_get(x_37, 3); +lean_dec(x_130); +x_131 = lean_ctor_get(x_37, 2); +lean_dec(x_131); +x_132 = lean_ctor_get(x_37, 1); +lean_dec(x_132); +x_133 = lean_ctor_get(x_37, 0); +lean_dec(x_133); +lean_ctor_set_uint8(x_111, sizeof(void*)*4, x_85); +lean_ctor_set(x_37, 3, x_128); +lean_ctor_set(x_37, 2, x_127); +lean_ctor_set(x_37, 1, x_126); +lean_ctor_set(x_37, 0, x_125); +lean_ctor_set(x_36, 3, x_37); +lean_ctor_set(x_36, 0, x_111); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_120); +return x_36; +} +else +{ +lean_object* x_134; +lean_dec(x_37); +lean_ctor_set_uint8(x_111, sizeof(void*)*4, x_85); +x_134 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_134, 0, x_125); +lean_ctor_set(x_134, 1, x_126); +lean_ctor_set(x_134, 2, x_127); +lean_ctor_set(x_134, 3, x_128); +lean_ctor_set_uint8(x_134, sizeof(void*)*4, x_85); +lean_ctor_set(x_36, 3, x_134); +lean_ctor_set(x_36, 0, x_111); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_120); +return x_36; +} +} +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; lean_object* x_141; +x_135 = lean_ctor_get(x_111, 0); +x_136 = lean_ctor_get(x_111, 1); +x_137 = lean_ctor_get(x_111, 2); +x_138 = lean_ctor_get(x_111, 3); +lean_inc(x_138); +lean_inc(x_137); +lean_inc(x_136); +lean_inc(x_135); +lean_dec(x_111); +lean_inc(x_37); +x_139 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_139, 0, x_28); +lean_ctor_set(x_139, 1, x_29); +lean_ctor_set(x_139, 2, x_30); +lean_ctor_set(x_139, 3, x_37); +if (lean_is_exclusive(x_37)) { + lean_ctor_release(x_37, 0); + lean_ctor_release(x_37, 1); + lean_ctor_release(x_37, 2); + lean_ctor_release(x_37, 3); + x_140 = x_37; +} else { + lean_dec_ref(x_37); + x_140 = lean_box(0); +} +lean_ctor_set_uint8(x_139, sizeof(void*)*4, x_85); +if (lean_is_scalar(x_140)) { + x_141 = lean_alloc_ctor(1, 4, 1); +} else { + x_141 = x_140; +} +lean_ctor_set(x_141, 0, x_135); +lean_ctor_set(x_141, 1, x_136); +lean_ctor_set(x_141, 2, x_137); +lean_ctor_set(x_141, 3, x_138); +lean_ctor_set_uint8(x_141, sizeof(void*)*4, x_85); +lean_ctor_set(x_36, 3, x_141); +lean_ctor_set(x_36, 0, x_139); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_120); +return x_36; +} +} +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; +x_142 = lean_ctor_get(x_36, 1); +x_143 = lean_ctor_get(x_36, 2); +lean_inc(x_143); +lean_inc(x_142); +lean_dec(x_36); +x_144 = lean_ctor_get(x_111, 0); +lean_inc(x_144); +x_145 = lean_ctor_get(x_111, 1); +lean_inc(x_145); +x_146 = lean_ctor_get(x_111, 2); +lean_inc(x_146); +x_147 = lean_ctor_get(x_111, 3); +lean_inc(x_147); +if (lean_is_exclusive(x_111)) { + lean_ctor_release(x_111, 0); + lean_ctor_release(x_111, 1); + lean_ctor_release(x_111, 2); + lean_ctor_release(x_111, 3); + x_148 = x_111; +} else { + lean_dec_ref(x_111); + x_148 = lean_box(0); +} +lean_inc(x_37); +if (lean_is_scalar(x_148)) { + x_149 = lean_alloc_ctor(1, 4, 1); +} else { + x_149 = x_148; +} +lean_ctor_set(x_149, 0, x_28); +lean_ctor_set(x_149, 1, x_29); +lean_ctor_set(x_149, 2, x_30); +lean_ctor_set(x_149, 3, x_37); +if (lean_is_exclusive(x_37)) { + lean_ctor_release(x_37, 0); + lean_ctor_release(x_37, 1); + lean_ctor_release(x_37, 2); + lean_ctor_release(x_37, 3); + x_150 = x_37; +} else { + lean_dec_ref(x_37); + x_150 = lean_box(0); +} +lean_ctor_set_uint8(x_149, sizeof(void*)*4, x_85); +if (lean_is_scalar(x_150)) { + x_151 = lean_alloc_ctor(1, 4, 1); +} else { + x_151 = x_150; +} +lean_ctor_set(x_151, 0, x_144); +lean_ctor_set(x_151, 1, x_145); +lean_ctor_set(x_151, 2, x_146); +lean_ctor_set(x_151, 3, x_147); +lean_ctor_set_uint8(x_151, sizeof(void*)*4, x_85); +x_152 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_152, 0, x_149); +lean_ctor_set(x_152, 1, x_142); +lean_ctor_set(x_152, 2, x_143); +lean_ctor_set(x_152, 3, x_151); +lean_ctor_set_uint8(x_152, sizeof(void*)*4, x_120); +return x_152; +} +} +else +{ +uint8_t x_153; +x_153 = !lean_is_exclusive(x_36); +if (x_153 == 0) +{ +lean_object* x_154; lean_object* x_155; uint8_t x_156; +x_154 = lean_ctor_get(x_36, 3); +lean_dec(x_154); +x_155 = lean_ctor_get(x_36, 0); +lean_dec(x_155); +x_156 = !lean_is_exclusive(x_37); +if (x_156 == 0) +{ +uint8_t x_157; +lean_ctor_set_uint8(x_37, sizeof(void*)*4, x_120); +x_157 = 0; +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_157); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_120); +return x_1; +} +else +{ +lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; uint8_t x_163; +x_158 = lean_ctor_get(x_37, 0); +x_159 = lean_ctor_get(x_37, 1); +x_160 = lean_ctor_get(x_37, 2); +x_161 = lean_ctor_get(x_37, 3); +lean_inc(x_161); +lean_inc(x_160); +lean_inc(x_159); +lean_inc(x_158); +lean_dec(x_37); +x_162 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_162, 0, x_158); +lean_ctor_set(x_162, 1, x_159); +lean_ctor_set(x_162, 2, x_160); +lean_ctor_set(x_162, 3, x_161); +lean_ctor_set_uint8(x_162, sizeof(void*)*4, x_120); +x_163 = 0; +lean_ctor_set(x_36, 0, x_162); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_163); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_120); +return x_1; +} +} +else +{ +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; uint8_t x_172; lean_object* x_173; +x_164 = lean_ctor_get(x_36, 1); +x_165 = lean_ctor_get(x_36, 2); +lean_inc(x_165); +lean_inc(x_164); +lean_dec(x_36); +x_166 = lean_ctor_get(x_37, 0); +lean_inc(x_166); +x_167 = lean_ctor_get(x_37, 1); +lean_inc(x_167); +x_168 = lean_ctor_get(x_37, 2); +lean_inc(x_168); +x_169 = lean_ctor_get(x_37, 3); +lean_inc(x_169); +if (lean_is_exclusive(x_37)) { + lean_ctor_release(x_37, 0); + lean_ctor_release(x_37, 1); + lean_ctor_release(x_37, 2); + lean_ctor_release(x_37, 3); + x_170 = x_37; +} else { + lean_dec_ref(x_37); + x_170 = lean_box(0); +} +if (lean_is_scalar(x_170)) { + x_171 = lean_alloc_ctor(1, 4, 1); +} else { + x_171 = x_170; +} +lean_ctor_set(x_171, 0, x_166); +lean_ctor_set(x_171, 1, x_167); +lean_ctor_set(x_171, 2, x_168); +lean_ctor_set(x_171, 3, x_169); +lean_ctor_set_uint8(x_171, sizeof(void*)*4, x_120); +x_172 = 0; +x_173 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_173, 0, x_171); +lean_ctor_set(x_173, 1, x_164); +lean_ctor_set(x_173, 2, x_165); +lean_ctor_set(x_173, 3, x_111); +lean_ctor_set_uint8(x_173, sizeof(void*)*4, x_172); +lean_ctor_set(x_1, 3, x_173); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_120); +return x_1; +} +} +} +} +} +} +} +} +else +{ +uint8_t x_174; +x_174 = l_RBNode_isRed___rarg(x_28); +if (x_174 == 0) +{ +lean_object* x_175; +x_175 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_28, x_2, x_3); +lean_ctor_set(x_1, 0, x_175); +return x_1; +} +else +{ +lean_object* x_176; lean_object* x_177; +x_176 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_28, x_2, x_3); +x_177 = lean_ctor_get(x_176, 0); +lean_inc(x_177); +if (lean_obj_tag(x_177) == 0) +{ +lean_object* x_178; +x_178 = lean_ctor_get(x_176, 3); +lean_inc(x_178); +if (lean_obj_tag(x_178) == 0) +{ +uint8_t x_179; +x_179 = !lean_is_exclusive(x_176); +if (x_179 == 0) +{ +lean_object* x_180; lean_object* x_181; uint8_t x_182; uint8_t x_183; +x_180 = lean_ctor_get(x_176, 3); +lean_dec(x_180); +x_181 = lean_ctor_get(x_176, 0); +lean_dec(x_181); +x_182 = 0; +lean_ctor_set(x_176, 0, x_178); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_182); +x_183 = 1; +lean_ctor_set(x_1, 0, x_176); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_183); +return x_1; +} +else +{ +lean_object* x_184; lean_object* x_185; uint8_t x_186; lean_object* x_187; uint8_t x_188; +x_184 = lean_ctor_get(x_176, 1); +x_185 = lean_ctor_get(x_176, 2); +lean_inc(x_185); +lean_inc(x_184); +lean_dec(x_176); +x_186 = 0; +x_187 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_187, 0, x_178); +lean_ctor_set(x_187, 1, x_184); +lean_ctor_set(x_187, 2, x_185); +lean_ctor_set(x_187, 3, x_178); +lean_ctor_set_uint8(x_187, sizeof(void*)*4, x_186); +x_188 = 1; +lean_ctor_set(x_1, 0, x_187); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_188); +return x_1; +} +} +else +{ +uint8_t x_189; +x_189 = lean_ctor_get_uint8(x_178, sizeof(void*)*4); +if (x_189 == 0) +{ +uint8_t x_190; +x_190 = !lean_is_exclusive(x_176); +if (x_190 == 0) +{ +lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; uint8_t x_195; +x_191 = lean_ctor_get(x_176, 1); +x_192 = lean_ctor_get(x_176, 2); +x_193 = lean_ctor_get(x_176, 3); +lean_dec(x_193); +x_194 = lean_ctor_get(x_176, 0); +lean_dec(x_194); +x_195 = !lean_is_exclusive(x_178); +if (x_195 == 0) +{ +lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; uint8_t x_200; +x_196 = lean_ctor_get(x_178, 0); +x_197 = lean_ctor_get(x_178, 1); +x_198 = lean_ctor_get(x_178, 2); +x_199 = lean_ctor_get(x_178, 3); +x_200 = 1; +lean_ctor_set(x_178, 3, x_196); +lean_ctor_set(x_178, 2, x_192); +lean_ctor_set(x_178, 1, x_191); +lean_ctor_set(x_178, 0, x_177); +lean_ctor_set_uint8(x_178, sizeof(void*)*4, x_200); +lean_ctor_set(x_176, 3, x_31); +lean_ctor_set(x_176, 2, x_30); +lean_ctor_set(x_176, 1, x_29); +lean_ctor_set(x_176, 0, x_199); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_200); +lean_ctor_set(x_1, 3, x_176); +lean_ctor_set(x_1, 2, x_198); +lean_ctor_set(x_1, 1, x_197); +lean_ctor_set(x_1, 0, x_178); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_189); +return x_1; +} +else +{ +lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; uint8_t x_205; lean_object* x_206; +x_201 = lean_ctor_get(x_178, 0); +x_202 = lean_ctor_get(x_178, 1); +x_203 = lean_ctor_get(x_178, 2); +x_204 = lean_ctor_get(x_178, 3); +lean_inc(x_204); +lean_inc(x_203); +lean_inc(x_202); +lean_inc(x_201); +lean_dec(x_178); +x_205 = 1; +x_206 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_206, 0, x_177); +lean_ctor_set(x_206, 1, x_191); +lean_ctor_set(x_206, 2, x_192); +lean_ctor_set(x_206, 3, x_201); +lean_ctor_set_uint8(x_206, sizeof(void*)*4, x_205); +lean_ctor_set(x_176, 3, x_31); +lean_ctor_set(x_176, 2, x_30); +lean_ctor_set(x_176, 1, x_29); +lean_ctor_set(x_176, 0, x_204); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_205); +lean_ctor_set(x_1, 3, x_176); +lean_ctor_set(x_1, 2, x_203); +lean_ctor_set(x_1, 1, x_202); +lean_ctor_set(x_1, 0, x_206); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_189); +return x_1; +} +} +else +{ +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; uint8_t x_214; lean_object* x_215; lean_object* x_216; +x_207 = lean_ctor_get(x_176, 1); +x_208 = lean_ctor_get(x_176, 2); +lean_inc(x_208); +lean_inc(x_207); +lean_dec(x_176); +x_209 = lean_ctor_get(x_178, 0); +lean_inc(x_209); +x_210 = lean_ctor_get(x_178, 1); +lean_inc(x_210); +x_211 = lean_ctor_get(x_178, 2); +lean_inc(x_211); +x_212 = lean_ctor_get(x_178, 3); +lean_inc(x_212); +if (lean_is_exclusive(x_178)) { + lean_ctor_release(x_178, 0); + lean_ctor_release(x_178, 1); + lean_ctor_release(x_178, 2); + lean_ctor_release(x_178, 3); + x_213 = x_178; +} else { + lean_dec_ref(x_178); + x_213 = lean_box(0); +} +x_214 = 1; +if (lean_is_scalar(x_213)) { + x_215 = lean_alloc_ctor(1, 4, 1); +} else { + x_215 = x_213; +} +lean_ctor_set(x_215, 0, x_177); +lean_ctor_set(x_215, 1, x_207); +lean_ctor_set(x_215, 2, x_208); +lean_ctor_set(x_215, 3, x_209); +lean_ctor_set_uint8(x_215, sizeof(void*)*4, x_214); +x_216 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_216, 0, x_212); +lean_ctor_set(x_216, 1, x_29); +lean_ctor_set(x_216, 2, x_30); +lean_ctor_set(x_216, 3, x_31); +lean_ctor_set_uint8(x_216, sizeof(void*)*4, x_214); +lean_ctor_set(x_1, 3, x_216); +lean_ctor_set(x_1, 2, x_211); +lean_ctor_set(x_1, 1, x_210); +lean_ctor_set(x_1, 0, x_215); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_189); +return x_1; +} +} +else +{ +uint8_t x_217; +x_217 = !lean_is_exclusive(x_176); +if (x_217 == 0) +{ +lean_object* x_218; lean_object* x_219; uint8_t x_220; +x_218 = lean_ctor_get(x_176, 3); +lean_dec(x_218); +x_219 = lean_ctor_get(x_176, 0); +lean_dec(x_219); +x_220 = 0; +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_220); +lean_ctor_set(x_1, 0, x_176); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_189); +return x_1; +} +else +{ +lean_object* x_221; lean_object* x_222; uint8_t x_223; lean_object* x_224; +x_221 = lean_ctor_get(x_176, 1); +x_222 = lean_ctor_get(x_176, 2); +lean_inc(x_222); +lean_inc(x_221); +lean_dec(x_176); +x_223 = 0; +x_224 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_224, 0, x_177); +lean_ctor_set(x_224, 1, x_221); +lean_ctor_set(x_224, 2, x_222); +lean_ctor_set(x_224, 3, x_178); +lean_ctor_set_uint8(x_224, sizeof(void*)*4, x_223); +lean_ctor_set(x_1, 0, x_224); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_189); +return x_1; +} +} +} +} +else +{ +uint8_t x_225; +x_225 = lean_ctor_get_uint8(x_177, sizeof(void*)*4); +if (x_225 == 0) +{ +uint8_t x_226; +x_226 = !lean_is_exclusive(x_176); +if (x_226 == 0) +{ +lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; uint8_t x_231; +x_227 = lean_ctor_get(x_176, 1); +x_228 = lean_ctor_get(x_176, 2); +x_229 = lean_ctor_get(x_176, 3); +x_230 = lean_ctor_get(x_176, 0); +lean_dec(x_230); +x_231 = !lean_is_exclusive(x_177); +if (x_231 == 0) +{ +uint8_t x_232; +x_232 = 1; +lean_ctor_set_uint8(x_177, sizeof(void*)*4, x_232); +lean_ctor_set(x_176, 3, x_31); +lean_ctor_set(x_176, 2, x_30); +lean_ctor_set(x_176, 1, x_29); +lean_ctor_set(x_176, 0, x_229); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_232); +lean_ctor_set(x_1, 3, x_176); +lean_ctor_set(x_1, 2, x_228); +lean_ctor_set(x_1, 1, x_227); +lean_ctor_set(x_1, 0, x_177); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_225); +return x_1; +} +else +{ +lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; uint8_t x_237; lean_object* x_238; +x_233 = lean_ctor_get(x_177, 0); +x_234 = lean_ctor_get(x_177, 1); +x_235 = lean_ctor_get(x_177, 2); +x_236 = lean_ctor_get(x_177, 3); +lean_inc(x_236); +lean_inc(x_235); +lean_inc(x_234); +lean_inc(x_233); +lean_dec(x_177); +x_237 = 1; +x_238 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_238, 0, x_233); +lean_ctor_set(x_238, 1, x_234); +lean_ctor_set(x_238, 2, x_235); +lean_ctor_set(x_238, 3, x_236); +lean_ctor_set_uint8(x_238, sizeof(void*)*4, x_237); +lean_ctor_set(x_176, 3, x_31); +lean_ctor_set(x_176, 2, x_30); +lean_ctor_set(x_176, 1, x_29); +lean_ctor_set(x_176, 0, x_229); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_237); +lean_ctor_set(x_1, 3, x_176); +lean_ctor_set(x_1, 2, x_228); +lean_ctor_set(x_1, 1, x_227); +lean_ctor_set(x_1, 0, x_238); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_225); +return x_1; +} +} +else +{ +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; uint8_t x_247; lean_object* x_248; lean_object* x_249; +x_239 = lean_ctor_get(x_176, 1); +x_240 = lean_ctor_get(x_176, 2); +x_241 = lean_ctor_get(x_176, 3); +lean_inc(x_241); +lean_inc(x_240); +lean_inc(x_239); +lean_dec(x_176); +x_242 = lean_ctor_get(x_177, 0); +lean_inc(x_242); +x_243 = lean_ctor_get(x_177, 1); +lean_inc(x_243); +x_244 = lean_ctor_get(x_177, 2); +lean_inc(x_244); +x_245 = lean_ctor_get(x_177, 3); +lean_inc(x_245); +if (lean_is_exclusive(x_177)) { + lean_ctor_release(x_177, 0); + lean_ctor_release(x_177, 1); + lean_ctor_release(x_177, 2); + lean_ctor_release(x_177, 3); + x_246 = x_177; +} else { + lean_dec_ref(x_177); + x_246 = lean_box(0); +} +x_247 = 1; +if (lean_is_scalar(x_246)) { + x_248 = lean_alloc_ctor(1, 4, 1); +} else { + x_248 = x_246; +} +lean_ctor_set(x_248, 0, x_242); +lean_ctor_set(x_248, 1, x_243); +lean_ctor_set(x_248, 2, x_244); +lean_ctor_set(x_248, 3, x_245); +lean_ctor_set_uint8(x_248, sizeof(void*)*4, x_247); +x_249 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_249, 0, x_241); +lean_ctor_set(x_249, 1, x_29); +lean_ctor_set(x_249, 2, x_30); +lean_ctor_set(x_249, 3, x_31); +lean_ctor_set_uint8(x_249, sizeof(void*)*4, x_247); +lean_ctor_set(x_1, 3, x_249); +lean_ctor_set(x_1, 2, x_240); +lean_ctor_set(x_1, 1, x_239); +lean_ctor_set(x_1, 0, x_248); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_225); +return x_1; +} +} +else +{ +lean_object* x_250; +x_250 = lean_ctor_get(x_176, 3); +lean_inc(x_250); +if (lean_obj_tag(x_250) == 0) +{ +uint8_t x_251; +x_251 = !lean_is_exclusive(x_176); +if (x_251 == 0) +{ +lean_object* x_252; lean_object* x_253; uint8_t x_254; +x_252 = lean_ctor_get(x_176, 3); +lean_dec(x_252); +x_253 = lean_ctor_get(x_176, 0); +lean_dec(x_253); +x_254 = 0; +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_254); +lean_ctor_set(x_1, 0, x_176); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_225); +return x_1; +} +else +{ +lean_object* x_255; lean_object* x_256; uint8_t x_257; lean_object* x_258; +x_255 = lean_ctor_get(x_176, 1); +x_256 = lean_ctor_get(x_176, 2); +lean_inc(x_256); +lean_inc(x_255); +lean_dec(x_176); +x_257 = 0; +x_258 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_258, 0, x_177); +lean_ctor_set(x_258, 1, x_255); +lean_ctor_set(x_258, 2, x_256); +lean_ctor_set(x_258, 3, x_250); +lean_ctor_set_uint8(x_258, sizeof(void*)*4, x_257); +lean_ctor_set(x_1, 0, x_258); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_225); +return x_1; +} +} +else +{ +uint8_t x_259; +x_259 = lean_ctor_get_uint8(x_250, sizeof(void*)*4); +if (x_259 == 0) +{ +uint8_t x_260; +lean_free_object(x_1); +x_260 = !lean_is_exclusive(x_176); +if (x_260 == 0) +{ +lean_object* x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; uint8_t x_265; +x_261 = lean_ctor_get(x_176, 1); +x_262 = lean_ctor_get(x_176, 2); +x_263 = lean_ctor_get(x_176, 3); +lean_dec(x_263); +x_264 = lean_ctor_get(x_176, 0); +lean_dec(x_264); +x_265 = !lean_is_exclusive(x_250); +if (x_265 == 0) +{ +lean_object* x_266; lean_object* x_267; lean_object* x_268; lean_object* x_269; uint8_t x_270; +x_266 = lean_ctor_get(x_250, 0); +x_267 = lean_ctor_get(x_250, 1); +x_268 = lean_ctor_get(x_250, 2); +x_269 = lean_ctor_get(x_250, 3); +lean_inc(x_177); +lean_ctor_set(x_250, 3, x_266); +lean_ctor_set(x_250, 2, x_262); +lean_ctor_set(x_250, 1, x_261); +lean_ctor_set(x_250, 0, x_177); +x_270 = !lean_is_exclusive(x_177); +if (x_270 == 0) +{ +lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; +x_271 = lean_ctor_get(x_177, 3); +lean_dec(x_271); +x_272 = lean_ctor_get(x_177, 2); +lean_dec(x_272); +x_273 = lean_ctor_get(x_177, 1); +lean_dec(x_273); +x_274 = lean_ctor_get(x_177, 0); +lean_dec(x_274); +lean_ctor_set_uint8(x_250, sizeof(void*)*4, x_225); +lean_ctor_set(x_177, 3, x_31); +lean_ctor_set(x_177, 2, x_30); +lean_ctor_set(x_177, 1, x_29); +lean_ctor_set(x_177, 0, x_269); +lean_ctor_set(x_176, 3, x_177); +lean_ctor_set(x_176, 2, x_268); +lean_ctor_set(x_176, 1, x_267); +lean_ctor_set(x_176, 0, x_250); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_259); +return x_176; +} +else +{ +lean_object* x_275; +lean_dec(x_177); +lean_ctor_set_uint8(x_250, sizeof(void*)*4, x_225); +x_275 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_275, 0, x_269); +lean_ctor_set(x_275, 1, x_29); +lean_ctor_set(x_275, 2, x_30); +lean_ctor_set(x_275, 3, x_31); +lean_ctor_set_uint8(x_275, sizeof(void*)*4, x_225); +lean_ctor_set(x_176, 3, x_275); +lean_ctor_set(x_176, 2, x_268); +lean_ctor_set(x_176, 1, x_267); +lean_ctor_set(x_176, 0, x_250); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_259); +return x_176; +} +} +else +{ +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; +x_276 = lean_ctor_get(x_250, 0); +x_277 = lean_ctor_get(x_250, 1); +x_278 = lean_ctor_get(x_250, 2); +x_279 = lean_ctor_get(x_250, 3); +lean_inc(x_279); +lean_inc(x_278); +lean_inc(x_277); +lean_inc(x_276); +lean_dec(x_250); +lean_inc(x_177); +x_280 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_280, 0, x_177); +lean_ctor_set(x_280, 1, x_261); +lean_ctor_set(x_280, 2, x_262); +lean_ctor_set(x_280, 3, x_276); +if (lean_is_exclusive(x_177)) { + lean_ctor_release(x_177, 0); + lean_ctor_release(x_177, 1); + lean_ctor_release(x_177, 2); + lean_ctor_release(x_177, 3); + x_281 = x_177; +} else { + lean_dec_ref(x_177); + x_281 = lean_box(0); +} +lean_ctor_set_uint8(x_280, sizeof(void*)*4, x_225); +if (lean_is_scalar(x_281)) { + x_282 = lean_alloc_ctor(1, 4, 1); +} else { + x_282 = x_281; +} +lean_ctor_set(x_282, 0, x_279); +lean_ctor_set(x_282, 1, x_29); +lean_ctor_set(x_282, 2, x_30); +lean_ctor_set(x_282, 3, x_31); +lean_ctor_set_uint8(x_282, sizeof(void*)*4, x_225); +lean_ctor_set(x_176, 3, x_282); +lean_ctor_set(x_176, 2, x_278); +lean_ctor_set(x_176, 1, x_277); +lean_ctor_set(x_176, 0, x_280); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_259); +return x_176; +} +} +else +{ +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_283 = lean_ctor_get(x_176, 1); +x_284 = lean_ctor_get(x_176, 2); +lean_inc(x_284); +lean_inc(x_283); +lean_dec(x_176); +x_285 = lean_ctor_get(x_250, 0); +lean_inc(x_285); +x_286 = lean_ctor_get(x_250, 1); +lean_inc(x_286); +x_287 = lean_ctor_get(x_250, 2); +lean_inc(x_287); +x_288 = lean_ctor_get(x_250, 3); +lean_inc(x_288); +if (lean_is_exclusive(x_250)) { + lean_ctor_release(x_250, 0); + lean_ctor_release(x_250, 1); + lean_ctor_release(x_250, 2); + lean_ctor_release(x_250, 3); + x_289 = x_250; +} else { + lean_dec_ref(x_250); + x_289 = lean_box(0); +} +lean_inc(x_177); +if (lean_is_scalar(x_289)) { + x_290 = lean_alloc_ctor(1, 4, 1); +} else { + x_290 = x_289; +} +lean_ctor_set(x_290, 0, x_177); +lean_ctor_set(x_290, 1, x_283); +lean_ctor_set(x_290, 2, x_284); +lean_ctor_set(x_290, 3, x_285); +if (lean_is_exclusive(x_177)) { + lean_ctor_release(x_177, 0); + lean_ctor_release(x_177, 1); + lean_ctor_release(x_177, 2); + lean_ctor_release(x_177, 3); + x_291 = x_177; +} else { + lean_dec_ref(x_177); + x_291 = lean_box(0); +} +lean_ctor_set_uint8(x_290, sizeof(void*)*4, x_225); +if (lean_is_scalar(x_291)) { + x_292 = lean_alloc_ctor(1, 4, 1); +} else { + x_292 = x_291; +} +lean_ctor_set(x_292, 0, x_288); +lean_ctor_set(x_292, 1, x_29); +lean_ctor_set(x_292, 2, x_30); +lean_ctor_set(x_292, 3, x_31); +lean_ctor_set_uint8(x_292, sizeof(void*)*4, x_225); +x_293 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_293, 0, x_290); +lean_ctor_set(x_293, 1, x_286); +lean_ctor_set(x_293, 2, x_287); +lean_ctor_set(x_293, 3, x_292); +lean_ctor_set_uint8(x_293, sizeof(void*)*4, x_259); +return x_293; +} +} +else +{ +uint8_t x_294; +x_294 = !lean_is_exclusive(x_176); +if (x_294 == 0) +{ +lean_object* x_295; lean_object* x_296; uint8_t x_297; +x_295 = lean_ctor_get(x_176, 3); +lean_dec(x_295); +x_296 = lean_ctor_get(x_176, 0); +lean_dec(x_296); +x_297 = !lean_is_exclusive(x_177); +if (x_297 == 0) +{ +uint8_t x_298; +lean_ctor_set_uint8(x_177, sizeof(void*)*4, x_259); +x_298 = 0; +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_298); +lean_ctor_set(x_1, 0, x_176); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_259); +return x_1; +} +else +{ +lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; uint8_t x_304; +x_299 = lean_ctor_get(x_177, 0); +x_300 = lean_ctor_get(x_177, 1); +x_301 = lean_ctor_get(x_177, 2); +x_302 = lean_ctor_get(x_177, 3); +lean_inc(x_302); +lean_inc(x_301); +lean_inc(x_300); +lean_inc(x_299); +lean_dec(x_177); +x_303 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_303, 0, x_299); +lean_ctor_set(x_303, 1, x_300); +lean_ctor_set(x_303, 2, x_301); +lean_ctor_set(x_303, 3, x_302); +lean_ctor_set_uint8(x_303, sizeof(void*)*4, x_259); +x_304 = 0; +lean_ctor_set(x_176, 0, x_303); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_304); +lean_ctor_set(x_1, 0, x_176); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_259); +return x_1; +} +} +else +{ +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; uint8_t x_313; lean_object* x_314; +x_305 = lean_ctor_get(x_176, 1); +x_306 = lean_ctor_get(x_176, 2); +lean_inc(x_306); +lean_inc(x_305); +lean_dec(x_176); +x_307 = lean_ctor_get(x_177, 0); +lean_inc(x_307); +x_308 = lean_ctor_get(x_177, 1); +lean_inc(x_308); +x_309 = lean_ctor_get(x_177, 2); +lean_inc(x_309); +x_310 = lean_ctor_get(x_177, 3); +lean_inc(x_310); +if (lean_is_exclusive(x_177)) { + lean_ctor_release(x_177, 0); + lean_ctor_release(x_177, 1); + lean_ctor_release(x_177, 2); + lean_ctor_release(x_177, 3); + x_311 = x_177; +} else { + lean_dec_ref(x_177); + x_311 = lean_box(0); +} +if (lean_is_scalar(x_311)) { + x_312 = lean_alloc_ctor(1, 4, 1); +} else { + x_312 = x_311; +} +lean_ctor_set(x_312, 0, x_307); +lean_ctor_set(x_312, 1, x_308); +lean_ctor_set(x_312, 2, x_309); +lean_ctor_set(x_312, 3, x_310); +lean_ctor_set_uint8(x_312, sizeof(void*)*4, x_259); +x_313 = 0; +x_314 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_314, 0, x_312); +lean_ctor_set(x_314, 1, x_305); +lean_ctor_set(x_314, 2, x_306); +lean_ctor_set(x_314, 3, x_250); +lean_ctor_set_uint8(x_314, sizeof(void*)*4, x_313); +lean_ctor_set(x_1, 0, x_314); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_259); +return x_1; +} +} +} +} +} +} +} +} +else +{ +lean_object* x_315; lean_object* x_316; lean_object* x_317; lean_object* x_318; uint8_t x_319; +x_315 = lean_ctor_get(x_1, 0); +x_316 = lean_ctor_get(x_1, 1); +x_317 = lean_ctor_get(x_1, 2); +x_318 = lean_ctor_get(x_1, 3); +lean_inc(x_318); +lean_inc(x_317); +lean_inc(x_316); +lean_inc(x_315); +lean_dec(x_1); +x_319 = l_Lean_Name_quickLt(x_2, x_316); +if (x_319 == 0) +{ +uint8_t x_320; +x_320 = l_Lean_Name_quickLt(x_316, x_2); +if (x_320 == 0) +{ +lean_object* x_321; +lean_dec(x_317); +lean_dec(x_316); +x_321 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_321, 0, x_315); +lean_ctor_set(x_321, 1, x_2); +lean_ctor_set(x_321, 2, x_3); +lean_ctor_set(x_321, 3, x_318); +lean_ctor_set_uint8(x_321, sizeof(void*)*4, x_6); +return x_321; +} +else +{ +uint8_t x_322; +x_322 = l_RBNode_isRed___rarg(x_318); +if (x_322 == 0) +{ +lean_object* x_323; lean_object* x_324; +x_323 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_318, x_2, x_3); +x_324 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_324, 0, x_315); +lean_ctor_set(x_324, 1, x_316); +lean_ctor_set(x_324, 2, x_317); +lean_ctor_set(x_324, 3, x_323); +lean_ctor_set_uint8(x_324, sizeof(void*)*4, x_6); +return x_324; +} +else +{ +lean_object* x_325; lean_object* x_326; +x_325 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_318, x_2, x_3); +x_326 = lean_ctor_get(x_325, 0); +lean_inc(x_326); +if (lean_obj_tag(x_326) == 0) +{ +lean_object* x_327; +x_327 = lean_ctor_get(x_325, 3); +lean_inc(x_327); +if (lean_obj_tag(x_327) == 0) +{ +lean_object* x_328; lean_object* x_329; lean_object* x_330; uint8_t x_331; lean_object* x_332; uint8_t x_333; lean_object* x_334; +x_328 = lean_ctor_get(x_325, 1); +lean_inc(x_328); +x_329 = lean_ctor_get(x_325, 2); +lean_inc(x_329); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_330 = x_325; +} else { + lean_dec_ref(x_325); + x_330 = lean_box(0); +} +x_331 = 0; +if (lean_is_scalar(x_330)) { + x_332 = lean_alloc_ctor(1, 4, 1); +} else { + x_332 = x_330; +} +lean_ctor_set(x_332, 0, x_327); +lean_ctor_set(x_332, 1, x_328); +lean_ctor_set(x_332, 2, x_329); +lean_ctor_set(x_332, 3, x_327); +lean_ctor_set_uint8(x_332, sizeof(void*)*4, x_331); +x_333 = 1; +x_334 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_334, 0, x_315); +lean_ctor_set(x_334, 1, x_316); +lean_ctor_set(x_334, 2, x_317); +lean_ctor_set(x_334, 3, x_332); +lean_ctor_set_uint8(x_334, sizeof(void*)*4, x_333); +return x_334; +} +else +{ +uint8_t x_335; +x_335 = lean_ctor_get_uint8(x_327, sizeof(void*)*4); +if (x_335 == 0) +{ +lean_object* x_336; 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; uint8_t x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; +x_336 = lean_ctor_get(x_325, 1); +lean_inc(x_336); +x_337 = lean_ctor_get(x_325, 2); +lean_inc(x_337); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_338 = x_325; +} else { + lean_dec_ref(x_325); + x_338 = lean_box(0); +} +x_339 = lean_ctor_get(x_327, 0); +lean_inc(x_339); +x_340 = lean_ctor_get(x_327, 1); +lean_inc(x_340); +x_341 = lean_ctor_get(x_327, 2); +lean_inc(x_341); +x_342 = lean_ctor_get(x_327, 3); +lean_inc(x_342); +if (lean_is_exclusive(x_327)) { + lean_ctor_release(x_327, 0); + lean_ctor_release(x_327, 1); + lean_ctor_release(x_327, 2); + lean_ctor_release(x_327, 3); + x_343 = x_327; +} else { + lean_dec_ref(x_327); + x_343 = lean_box(0); +} +x_344 = 1; +if (lean_is_scalar(x_343)) { + x_345 = lean_alloc_ctor(1, 4, 1); +} else { + x_345 = x_343; +} +lean_ctor_set(x_345, 0, x_315); +lean_ctor_set(x_345, 1, x_316); +lean_ctor_set(x_345, 2, x_317); +lean_ctor_set(x_345, 3, x_326); +lean_ctor_set_uint8(x_345, sizeof(void*)*4, x_344); +if (lean_is_scalar(x_338)) { + x_346 = lean_alloc_ctor(1, 4, 1); +} else { + x_346 = x_338; +} +lean_ctor_set(x_346, 0, x_339); +lean_ctor_set(x_346, 1, x_340); +lean_ctor_set(x_346, 2, x_341); +lean_ctor_set(x_346, 3, x_342); +lean_ctor_set_uint8(x_346, sizeof(void*)*4, x_344); +x_347 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_347, 0, x_345); +lean_ctor_set(x_347, 1, x_336); +lean_ctor_set(x_347, 2, x_337); +lean_ctor_set(x_347, 3, x_346); +lean_ctor_set_uint8(x_347, sizeof(void*)*4, x_335); +return x_347; +} +else +{ +lean_object* x_348; lean_object* x_349; lean_object* x_350; uint8_t x_351; lean_object* x_352; lean_object* x_353; +x_348 = lean_ctor_get(x_325, 1); +lean_inc(x_348); +x_349 = lean_ctor_get(x_325, 2); +lean_inc(x_349); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_350 = x_325; +} else { + lean_dec_ref(x_325); + x_350 = lean_box(0); +} +x_351 = 0; +if (lean_is_scalar(x_350)) { + x_352 = lean_alloc_ctor(1, 4, 1); +} else { + x_352 = x_350; +} +lean_ctor_set(x_352, 0, x_326); +lean_ctor_set(x_352, 1, x_348); +lean_ctor_set(x_352, 2, x_349); +lean_ctor_set(x_352, 3, x_327); +lean_ctor_set_uint8(x_352, sizeof(void*)*4, x_351); +x_353 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_353, 0, x_315); +lean_ctor_set(x_353, 1, x_316); +lean_ctor_set(x_353, 2, x_317); +lean_ctor_set(x_353, 3, x_352); +lean_ctor_set_uint8(x_353, sizeof(void*)*4, x_335); +return x_353; +} +} +} +else +{ +uint8_t x_354; +x_354 = lean_ctor_get_uint8(x_326, sizeof(void*)*4); +if (x_354 == 0) +{ +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; uint8_t x_364; lean_object* x_365; lean_object* x_366; lean_object* x_367; +x_355 = lean_ctor_get(x_325, 1); +lean_inc(x_355); +x_356 = lean_ctor_get(x_325, 2); +lean_inc(x_356); +x_357 = lean_ctor_get(x_325, 3); +lean_inc(x_357); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_358 = x_325; +} else { + lean_dec_ref(x_325); + x_358 = lean_box(0); +} +x_359 = lean_ctor_get(x_326, 0); +lean_inc(x_359); +x_360 = lean_ctor_get(x_326, 1); +lean_inc(x_360); +x_361 = lean_ctor_get(x_326, 2); +lean_inc(x_361); +x_362 = lean_ctor_get(x_326, 3); +lean_inc(x_362); +if (lean_is_exclusive(x_326)) { + lean_ctor_release(x_326, 0); + lean_ctor_release(x_326, 1); + lean_ctor_release(x_326, 2); + lean_ctor_release(x_326, 3); + x_363 = x_326; +} else { + lean_dec_ref(x_326); + x_363 = lean_box(0); +} +x_364 = 1; +if (lean_is_scalar(x_363)) { + x_365 = lean_alloc_ctor(1, 4, 1); +} else { + x_365 = x_363; +} +lean_ctor_set(x_365, 0, x_315); +lean_ctor_set(x_365, 1, x_316); +lean_ctor_set(x_365, 2, x_317); +lean_ctor_set(x_365, 3, x_359); +lean_ctor_set_uint8(x_365, sizeof(void*)*4, x_364); +if (lean_is_scalar(x_358)) { + x_366 = lean_alloc_ctor(1, 4, 1); +} else { + x_366 = x_358; +} +lean_ctor_set(x_366, 0, x_362); +lean_ctor_set(x_366, 1, x_355); +lean_ctor_set(x_366, 2, x_356); +lean_ctor_set(x_366, 3, x_357); +lean_ctor_set_uint8(x_366, sizeof(void*)*4, x_364); +x_367 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_367, 0, x_365); +lean_ctor_set(x_367, 1, x_360); +lean_ctor_set(x_367, 2, x_361); +lean_ctor_set(x_367, 3, x_366); +lean_ctor_set_uint8(x_367, sizeof(void*)*4, x_354); +return x_367; +} +else +{ +lean_object* x_368; +x_368 = lean_ctor_get(x_325, 3); +lean_inc(x_368); +if (lean_obj_tag(x_368) == 0) +{ +lean_object* x_369; lean_object* x_370; lean_object* x_371; uint8_t x_372; lean_object* x_373; lean_object* x_374; +x_369 = lean_ctor_get(x_325, 1); +lean_inc(x_369); +x_370 = lean_ctor_get(x_325, 2); +lean_inc(x_370); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_371 = x_325; +} else { + lean_dec_ref(x_325); + x_371 = lean_box(0); +} +x_372 = 0; +if (lean_is_scalar(x_371)) { + x_373 = lean_alloc_ctor(1, 4, 1); +} else { + x_373 = x_371; +} +lean_ctor_set(x_373, 0, x_326); +lean_ctor_set(x_373, 1, x_369); +lean_ctor_set(x_373, 2, x_370); +lean_ctor_set(x_373, 3, x_368); +lean_ctor_set_uint8(x_373, sizeof(void*)*4, x_372); +x_374 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_374, 0, x_315); +lean_ctor_set(x_374, 1, x_316); +lean_ctor_set(x_374, 2, x_317); +lean_ctor_set(x_374, 3, x_373); +lean_ctor_set_uint8(x_374, sizeof(void*)*4, x_354); +return x_374; +} +else +{ +uint8_t x_375; +x_375 = lean_ctor_get_uint8(x_368, sizeof(void*)*4); +if (x_375 == 0) +{ +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; +x_376 = lean_ctor_get(x_325, 1); +lean_inc(x_376); +x_377 = lean_ctor_get(x_325, 2); +lean_inc(x_377); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_378 = x_325; +} else { + lean_dec_ref(x_325); + x_378 = lean_box(0); +} +x_379 = lean_ctor_get(x_368, 0); +lean_inc(x_379); +x_380 = lean_ctor_get(x_368, 1); +lean_inc(x_380); +x_381 = lean_ctor_get(x_368, 2); +lean_inc(x_381); +x_382 = lean_ctor_get(x_368, 3); +lean_inc(x_382); +if (lean_is_exclusive(x_368)) { + lean_ctor_release(x_368, 0); + lean_ctor_release(x_368, 1); + lean_ctor_release(x_368, 2); + lean_ctor_release(x_368, 3); + x_383 = x_368; +} else { + lean_dec_ref(x_368); + x_383 = lean_box(0); +} +lean_inc(x_326); +if (lean_is_scalar(x_383)) { + x_384 = lean_alloc_ctor(1, 4, 1); +} else { + x_384 = x_383; +} +lean_ctor_set(x_384, 0, x_315); +lean_ctor_set(x_384, 1, x_316); +lean_ctor_set(x_384, 2, x_317); +lean_ctor_set(x_384, 3, x_326); +if (lean_is_exclusive(x_326)) { + lean_ctor_release(x_326, 0); + lean_ctor_release(x_326, 1); + lean_ctor_release(x_326, 2); + lean_ctor_release(x_326, 3); + x_385 = x_326; +} else { + lean_dec_ref(x_326); + x_385 = lean_box(0); +} +lean_ctor_set_uint8(x_384, sizeof(void*)*4, x_354); +if (lean_is_scalar(x_385)) { + x_386 = lean_alloc_ctor(1, 4, 1); +} else { + x_386 = x_385; +} +lean_ctor_set(x_386, 0, x_379); +lean_ctor_set(x_386, 1, x_380); +lean_ctor_set(x_386, 2, x_381); +lean_ctor_set(x_386, 3, x_382); +lean_ctor_set_uint8(x_386, sizeof(void*)*4, x_354); +if (lean_is_scalar(x_378)) { + x_387 = lean_alloc_ctor(1, 4, 1); +} else { + x_387 = x_378; +} +lean_ctor_set(x_387, 0, x_384); +lean_ctor_set(x_387, 1, x_376); +lean_ctor_set(x_387, 2, x_377); +lean_ctor_set(x_387, 3, x_386); +lean_ctor_set_uint8(x_387, sizeof(void*)*4, x_375); +return x_387; +} +else +{ +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; uint8_t x_397; lean_object* x_398; lean_object* x_399; +x_388 = lean_ctor_get(x_325, 1); +lean_inc(x_388); +x_389 = lean_ctor_get(x_325, 2); +lean_inc(x_389); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_390 = x_325; +} else { + lean_dec_ref(x_325); + x_390 = lean_box(0); +} +x_391 = lean_ctor_get(x_326, 0); +lean_inc(x_391); +x_392 = lean_ctor_get(x_326, 1); +lean_inc(x_392); +x_393 = lean_ctor_get(x_326, 2); +lean_inc(x_393); +x_394 = lean_ctor_get(x_326, 3); +lean_inc(x_394); +if (lean_is_exclusive(x_326)) { + lean_ctor_release(x_326, 0); + lean_ctor_release(x_326, 1); + lean_ctor_release(x_326, 2); + lean_ctor_release(x_326, 3); + x_395 = x_326; +} else { + lean_dec_ref(x_326); + x_395 = lean_box(0); +} +if (lean_is_scalar(x_395)) { + x_396 = lean_alloc_ctor(1, 4, 1); +} else { + x_396 = x_395; +} +lean_ctor_set(x_396, 0, x_391); +lean_ctor_set(x_396, 1, x_392); +lean_ctor_set(x_396, 2, x_393); +lean_ctor_set(x_396, 3, x_394); +lean_ctor_set_uint8(x_396, sizeof(void*)*4, x_375); +x_397 = 0; +if (lean_is_scalar(x_390)) { + x_398 = lean_alloc_ctor(1, 4, 1); +} else { + x_398 = x_390; +} +lean_ctor_set(x_398, 0, x_396); +lean_ctor_set(x_398, 1, x_388); +lean_ctor_set(x_398, 2, x_389); +lean_ctor_set(x_398, 3, x_368); +lean_ctor_set_uint8(x_398, sizeof(void*)*4, x_397); +x_399 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_399, 0, x_315); +lean_ctor_set(x_399, 1, x_316); +lean_ctor_set(x_399, 2, x_317); +lean_ctor_set(x_399, 3, x_398); +lean_ctor_set_uint8(x_399, sizeof(void*)*4, x_375); +return x_399; +} +} +} +} +} +} +} +else +{ +uint8_t x_400; +x_400 = l_RBNode_isRed___rarg(x_315); +if (x_400 == 0) +{ +lean_object* x_401; lean_object* x_402; +x_401 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_315, x_2, x_3); +x_402 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_402, 0, x_401); +lean_ctor_set(x_402, 1, x_316); +lean_ctor_set(x_402, 2, x_317); +lean_ctor_set(x_402, 3, x_318); +lean_ctor_set_uint8(x_402, sizeof(void*)*4, x_6); +return x_402; +} +else +{ +lean_object* x_403; lean_object* x_404; +x_403 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_315, x_2, x_3); +x_404 = lean_ctor_get(x_403, 0); +lean_inc(x_404); +if (lean_obj_tag(x_404) == 0) +{ +lean_object* x_405; +x_405 = lean_ctor_get(x_403, 3); +lean_inc(x_405); +if (lean_obj_tag(x_405) == 0) +{ +lean_object* x_406; lean_object* x_407; lean_object* x_408; uint8_t x_409; lean_object* x_410; uint8_t x_411; lean_object* x_412; +x_406 = lean_ctor_get(x_403, 1); +lean_inc(x_406); +x_407 = lean_ctor_get(x_403, 2); +lean_inc(x_407); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_408 = x_403; +} else { + lean_dec_ref(x_403); + x_408 = lean_box(0); +} +x_409 = 0; +if (lean_is_scalar(x_408)) { + x_410 = lean_alloc_ctor(1, 4, 1); +} else { + x_410 = x_408; +} +lean_ctor_set(x_410, 0, x_405); +lean_ctor_set(x_410, 1, x_406); +lean_ctor_set(x_410, 2, x_407); +lean_ctor_set(x_410, 3, x_405); +lean_ctor_set_uint8(x_410, sizeof(void*)*4, x_409); +x_411 = 1; +x_412 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_412, 0, x_410); +lean_ctor_set(x_412, 1, x_316); +lean_ctor_set(x_412, 2, x_317); +lean_ctor_set(x_412, 3, x_318); +lean_ctor_set_uint8(x_412, sizeof(void*)*4, x_411); +return x_412; +} +else +{ +uint8_t x_413; +x_413 = lean_ctor_get_uint8(x_405, sizeof(void*)*4); +if (x_413 == 0) +{ +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; uint8_t x_422; lean_object* x_423; lean_object* x_424; lean_object* x_425; +x_414 = lean_ctor_get(x_403, 1); +lean_inc(x_414); +x_415 = lean_ctor_get(x_403, 2); +lean_inc(x_415); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_416 = x_403; +} else { + lean_dec_ref(x_403); + x_416 = lean_box(0); +} +x_417 = lean_ctor_get(x_405, 0); +lean_inc(x_417); +x_418 = lean_ctor_get(x_405, 1); +lean_inc(x_418); +x_419 = lean_ctor_get(x_405, 2); +lean_inc(x_419); +x_420 = lean_ctor_get(x_405, 3); +lean_inc(x_420); +if (lean_is_exclusive(x_405)) { + lean_ctor_release(x_405, 0); + lean_ctor_release(x_405, 1); + lean_ctor_release(x_405, 2); + lean_ctor_release(x_405, 3); + x_421 = x_405; +} else { + lean_dec_ref(x_405); + x_421 = lean_box(0); +} +x_422 = 1; +if (lean_is_scalar(x_421)) { + x_423 = lean_alloc_ctor(1, 4, 1); +} else { + x_423 = x_421; +} +lean_ctor_set(x_423, 0, x_404); +lean_ctor_set(x_423, 1, x_414); +lean_ctor_set(x_423, 2, x_415); +lean_ctor_set(x_423, 3, x_417); +lean_ctor_set_uint8(x_423, sizeof(void*)*4, x_422); +if (lean_is_scalar(x_416)) { + x_424 = lean_alloc_ctor(1, 4, 1); +} else { + x_424 = x_416; +} +lean_ctor_set(x_424, 0, x_420); +lean_ctor_set(x_424, 1, x_316); +lean_ctor_set(x_424, 2, x_317); +lean_ctor_set(x_424, 3, x_318); +lean_ctor_set_uint8(x_424, sizeof(void*)*4, x_422); +x_425 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_425, 0, x_423); +lean_ctor_set(x_425, 1, x_418); +lean_ctor_set(x_425, 2, x_419); +lean_ctor_set(x_425, 3, x_424); +lean_ctor_set_uint8(x_425, sizeof(void*)*4, x_413); +return x_425; +} +else +{ +lean_object* x_426; lean_object* x_427; lean_object* x_428; uint8_t x_429; lean_object* x_430; lean_object* x_431; +x_426 = lean_ctor_get(x_403, 1); +lean_inc(x_426); +x_427 = lean_ctor_get(x_403, 2); +lean_inc(x_427); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_428 = x_403; +} else { + lean_dec_ref(x_403); + x_428 = lean_box(0); +} +x_429 = 0; +if (lean_is_scalar(x_428)) { + x_430 = lean_alloc_ctor(1, 4, 1); +} else { + x_430 = x_428; +} +lean_ctor_set(x_430, 0, x_404); +lean_ctor_set(x_430, 1, x_426); +lean_ctor_set(x_430, 2, x_427); +lean_ctor_set(x_430, 3, x_405); +lean_ctor_set_uint8(x_430, sizeof(void*)*4, x_429); +x_431 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_431, 0, x_430); +lean_ctor_set(x_431, 1, x_316); +lean_ctor_set(x_431, 2, x_317); +lean_ctor_set(x_431, 3, x_318); +lean_ctor_set_uint8(x_431, sizeof(void*)*4, x_413); +return x_431; +} +} +} +else +{ +uint8_t x_432; +x_432 = lean_ctor_get_uint8(x_404, sizeof(void*)*4); +if (x_432 == 0) +{ +lean_object* x_433; lean_object* x_434; lean_object* x_435; lean_object* x_436; lean_object* x_437; lean_object* x_438; lean_object* x_439; lean_object* x_440; lean_object* x_441; uint8_t x_442; lean_object* x_443; lean_object* x_444; lean_object* x_445; +x_433 = lean_ctor_get(x_403, 1); +lean_inc(x_433); +x_434 = lean_ctor_get(x_403, 2); +lean_inc(x_434); +x_435 = lean_ctor_get(x_403, 3); +lean_inc(x_435); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_436 = x_403; +} else { + lean_dec_ref(x_403); + x_436 = lean_box(0); +} +x_437 = lean_ctor_get(x_404, 0); +lean_inc(x_437); +x_438 = lean_ctor_get(x_404, 1); +lean_inc(x_438); +x_439 = lean_ctor_get(x_404, 2); +lean_inc(x_439); +x_440 = lean_ctor_get(x_404, 3); +lean_inc(x_440); +if (lean_is_exclusive(x_404)) { + lean_ctor_release(x_404, 0); + lean_ctor_release(x_404, 1); + lean_ctor_release(x_404, 2); + lean_ctor_release(x_404, 3); + x_441 = x_404; +} else { + lean_dec_ref(x_404); + x_441 = lean_box(0); +} +x_442 = 1; +if (lean_is_scalar(x_441)) { + x_443 = lean_alloc_ctor(1, 4, 1); +} else { + x_443 = x_441; +} +lean_ctor_set(x_443, 0, x_437); +lean_ctor_set(x_443, 1, x_438); +lean_ctor_set(x_443, 2, x_439); +lean_ctor_set(x_443, 3, x_440); +lean_ctor_set_uint8(x_443, sizeof(void*)*4, x_442); +if (lean_is_scalar(x_436)) { + x_444 = lean_alloc_ctor(1, 4, 1); +} else { + x_444 = x_436; +} +lean_ctor_set(x_444, 0, x_435); +lean_ctor_set(x_444, 1, x_316); +lean_ctor_set(x_444, 2, x_317); +lean_ctor_set(x_444, 3, x_318); +lean_ctor_set_uint8(x_444, sizeof(void*)*4, x_442); +x_445 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_445, 0, x_443); +lean_ctor_set(x_445, 1, x_433); +lean_ctor_set(x_445, 2, x_434); +lean_ctor_set(x_445, 3, x_444); +lean_ctor_set_uint8(x_445, sizeof(void*)*4, x_432); +return x_445; +} +else +{ +lean_object* x_446; +x_446 = lean_ctor_get(x_403, 3); +lean_inc(x_446); +if (lean_obj_tag(x_446) == 0) +{ +lean_object* x_447; lean_object* x_448; lean_object* x_449; uint8_t x_450; lean_object* x_451; lean_object* x_452; +x_447 = lean_ctor_get(x_403, 1); +lean_inc(x_447); +x_448 = lean_ctor_get(x_403, 2); +lean_inc(x_448); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_449 = x_403; +} else { + lean_dec_ref(x_403); + x_449 = lean_box(0); +} +x_450 = 0; +if (lean_is_scalar(x_449)) { + x_451 = lean_alloc_ctor(1, 4, 1); +} else { + x_451 = x_449; +} +lean_ctor_set(x_451, 0, x_404); +lean_ctor_set(x_451, 1, x_447); +lean_ctor_set(x_451, 2, x_448); +lean_ctor_set(x_451, 3, x_446); +lean_ctor_set_uint8(x_451, sizeof(void*)*4, x_450); +x_452 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_452, 0, x_451); +lean_ctor_set(x_452, 1, x_316); +lean_ctor_set(x_452, 2, x_317); +lean_ctor_set(x_452, 3, x_318); +lean_ctor_set_uint8(x_452, sizeof(void*)*4, x_432); +return x_452; +} +else +{ +uint8_t x_453; +x_453 = lean_ctor_get_uint8(x_446, sizeof(void*)*4); +if (x_453 == 0) +{ +lean_object* x_454; lean_object* x_455; 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; lean_object* x_464; lean_object* x_465; +x_454 = lean_ctor_get(x_403, 1); +lean_inc(x_454); +x_455 = lean_ctor_get(x_403, 2); +lean_inc(x_455); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_456 = x_403; +} else { + lean_dec_ref(x_403); + x_456 = lean_box(0); +} +x_457 = lean_ctor_get(x_446, 0); +lean_inc(x_457); +x_458 = lean_ctor_get(x_446, 1); +lean_inc(x_458); +x_459 = lean_ctor_get(x_446, 2); +lean_inc(x_459); +x_460 = lean_ctor_get(x_446, 3); +lean_inc(x_460); +if (lean_is_exclusive(x_446)) { + lean_ctor_release(x_446, 0); + lean_ctor_release(x_446, 1); + lean_ctor_release(x_446, 2); + lean_ctor_release(x_446, 3); + x_461 = x_446; +} else { + lean_dec_ref(x_446); + x_461 = lean_box(0); +} +lean_inc(x_404); +if (lean_is_scalar(x_461)) { + x_462 = lean_alloc_ctor(1, 4, 1); +} else { + x_462 = x_461; +} +lean_ctor_set(x_462, 0, x_404); +lean_ctor_set(x_462, 1, x_454); +lean_ctor_set(x_462, 2, x_455); +lean_ctor_set(x_462, 3, x_457); +if (lean_is_exclusive(x_404)) { + lean_ctor_release(x_404, 0); + lean_ctor_release(x_404, 1); + lean_ctor_release(x_404, 2); + lean_ctor_release(x_404, 3); + x_463 = x_404; +} else { + lean_dec_ref(x_404); + x_463 = lean_box(0); +} +lean_ctor_set_uint8(x_462, sizeof(void*)*4, x_432); +if (lean_is_scalar(x_463)) { + x_464 = lean_alloc_ctor(1, 4, 1); +} else { + x_464 = x_463; +} +lean_ctor_set(x_464, 0, x_460); +lean_ctor_set(x_464, 1, x_316); +lean_ctor_set(x_464, 2, x_317); +lean_ctor_set(x_464, 3, x_318); +lean_ctor_set_uint8(x_464, sizeof(void*)*4, x_432); +if (lean_is_scalar(x_456)) { + x_465 = lean_alloc_ctor(1, 4, 1); +} else { + x_465 = x_456; +} +lean_ctor_set(x_465, 0, x_462); +lean_ctor_set(x_465, 1, x_458); +lean_ctor_set(x_465, 2, x_459); +lean_ctor_set(x_465, 3, x_464); +lean_ctor_set_uint8(x_465, sizeof(void*)*4, x_453); +return x_465; +} +else +{ +lean_object* x_466; lean_object* x_467; lean_object* x_468; lean_object* x_469; lean_object* x_470; lean_object* x_471; lean_object* x_472; lean_object* x_473; lean_object* x_474; uint8_t x_475; lean_object* x_476; lean_object* x_477; +x_466 = lean_ctor_get(x_403, 1); +lean_inc(x_466); +x_467 = lean_ctor_get(x_403, 2); +lean_inc(x_467); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_468 = x_403; +} else { + lean_dec_ref(x_403); + x_468 = lean_box(0); +} +x_469 = lean_ctor_get(x_404, 0); +lean_inc(x_469); +x_470 = lean_ctor_get(x_404, 1); +lean_inc(x_470); +x_471 = lean_ctor_get(x_404, 2); +lean_inc(x_471); +x_472 = lean_ctor_get(x_404, 3); +lean_inc(x_472); +if (lean_is_exclusive(x_404)) { + lean_ctor_release(x_404, 0); + lean_ctor_release(x_404, 1); + lean_ctor_release(x_404, 2); + lean_ctor_release(x_404, 3); + x_473 = x_404; +} else { + lean_dec_ref(x_404); + x_473 = lean_box(0); +} +if (lean_is_scalar(x_473)) { + x_474 = lean_alloc_ctor(1, 4, 1); +} else { + x_474 = x_473; +} +lean_ctor_set(x_474, 0, x_469); +lean_ctor_set(x_474, 1, x_470); +lean_ctor_set(x_474, 2, x_471); +lean_ctor_set(x_474, 3, x_472); +lean_ctor_set_uint8(x_474, sizeof(void*)*4, x_453); +x_475 = 0; +if (lean_is_scalar(x_468)) { + x_476 = lean_alloc_ctor(1, 4, 1); +} else { + x_476 = x_468; +} +lean_ctor_set(x_476, 0, x_474); +lean_ctor_set(x_476, 1, x_466); +lean_ctor_set(x_476, 2, x_467); +lean_ctor_set(x_476, 3, x_446); +lean_ctor_set_uint8(x_476, sizeof(void*)*4, x_475); +x_477 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_477, 0, x_476); +lean_ctor_set(x_477, 1, x_316); +lean_ctor_set(x_477, 2, x_317); +lean_ctor_set(x_477, 3, x_318); +lean_ctor_set_uint8(x_477, sizeof(void*)*4, x_453); +return x_477; +} +} +} +} +} +} +} +} +} +} +} +lean_object* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg), 3, 0); +return x_2; +} +} +lean_object* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +uint8_t x_4; lean_object* x_5; +x_4 = 0; +x_5 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_5, 0, x_1); +lean_ctor_set(x_5, 1, x_2); +lean_ctor_set(x_5, 2, x_3); +lean_ctor_set(x_5, 3, x_1); +lean_ctor_set_uint8(x_5, sizeof(void*)*4, x_4); +return x_5; +} +else +{ +uint8_t x_6; +x_6 = lean_ctor_get_uint8(x_1, sizeof(void*)*4); +if (x_6 == 0) +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_1); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; +x_8 = lean_ctor_get(x_1, 0); +x_9 = lean_ctor_get(x_1, 1); +x_10 = lean_ctor_get(x_1, 2); +x_11 = lean_ctor_get(x_1, 3); +x_12 = l_Lean_Name_quickLt(x_2, x_9); +if (x_12 == 0) +{ +uint8_t x_13; +x_13 = l_Lean_Name_quickLt(x_9, x_2); +if (x_13 == 0) +{ +lean_dec(x_10); +lean_dec(x_9); +lean_ctor_set(x_1, 2, x_3); +lean_ctor_set(x_1, 1, x_2); +return x_1; +} +else +{ +lean_object* x_14; +x_14 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(x_11, x_2, x_3); +lean_ctor_set(x_1, 3, x_14); +return x_1; +} +} +else +{ +lean_object* x_15; +x_15 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(x_8, x_2, x_3); +lean_ctor_set(x_1, 0, x_15); +return x_1; +} +} +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; +x_16 = lean_ctor_get(x_1, 0); +x_17 = lean_ctor_get(x_1, 1); +x_18 = lean_ctor_get(x_1, 2); +x_19 = lean_ctor_get(x_1, 3); +lean_inc(x_19); +lean_inc(x_18); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_1); +x_20 = l_Lean_Name_quickLt(x_2, x_17); +if (x_20 == 0) +{ +uint8_t x_21; +x_21 = l_Lean_Name_quickLt(x_17, x_2); +if (x_21 == 0) +{ +lean_object* x_22; +lean_dec(x_18); +lean_dec(x_17); +x_22 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_22, 0, x_16); +lean_ctor_set(x_22, 1, x_2); +lean_ctor_set(x_22, 2, x_3); +lean_ctor_set(x_22, 3, x_19); +lean_ctor_set_uint8(x_22, sizeof(void*)*4, x_6); +return x_22; +} +else +{ +lean_object* x_23; lean_object* x_24; +x_23 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(x_19, x_2, x_3); +x_24 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_24, 0, x_16); +lean_ctor_set(x_24, 1, x_17); +lean_ctor_set(x_24, 2, x_18); +lean_ctor_set(x_24, 3, x_23); +lean_ctor_set_uint8(x_24, sizeof(void*)*4, x_6); +return x_24; +} +} +else +{ +lean_object* x_25; lean_object* x_26; +x_25 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(x_16, x_2, x_3); +x_26 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_26, 0, x_25); +lean_ctor_set(x_26, 1, x_17); +lean_ctor_set(x_26, 2, x_18); +lean_ctor_set(x_26, 3, x_19); +lean_ctor_set_uint8(x_26, sizeof(void*)*4, x_6); +return x_26; +} +} +} +else +{ +uint8_t x_27; +x_27 = !lean_is_exclusive(x_1); +if (x_27 == 0) +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; uint8_t x_32; +x_28 = lean_ctor_get(x_1, 0); +x_29 = lean_ctor_get(x_1, 1); +x_30 = lean_ctor_get(x_1, 2); +x_31 = lean_ctor_get(x_1, 3); +x_32 = l_Lean_Name_quickLt(x_2, x_29); +if (x_32 == 0) +{ +uint8_t x_33; +x_33 = l_Lean_Name_quickLt(x_29, x_2); +if (x_33 == 0) +{ +lean_dec(x_30); +lean_dec(x_29); +lean_ctor_set(x_1, 2, x_3); +lean_ctor_set(x_1, 1, x_2); +return x_1; +} +else +{ +uint8_t x_34; +x_34 = l_RBNode_isRed___rarg(x_31); +if (x_34 == 0) +{ +lean_object* x_35; +x_35 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(x_31, x_2, x_3); +lean_ctor_set(x_1, 3, x_35); +return x_1; +} +else +{ +lean_object* x_36; lean_object* x_37; +x_36 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(x_31, x_2, x_3); +x_37 = lean_ctor_get(x_36, 0); +lean_inc(x_37); +if (lean_obj_tag(x_37) == 0) +{ +lean_object* x_38; +x_38 = lean_ctor_get(x_36, 3); +lean_inc(x_38); +if (lean_obj_tag(x_38) == 0) +{ +uint8_t x_39; +x_39 = !lean_is_exclusive(x_36); +if (x_39 == 0) +{ +lean_object* x_40; lean_object* x_41; uint8_t x_42; uint8_t x_43; +x_40 = lean_ctor_get(x_36, 3); +lean_dec(x_40); +x_41 = lean_ctor_get(x_36, 0); +lean_dec(x_41); +x_42 = 0; +lean_ctor_set(x_36, 0, x_38); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_42); +x_43 = 1; +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_43); +return x_1; +} +else +{ +lean_object* x_44; lean_object* x_45; uint8_t x_46; lean_object* x_47; uint8_t x_48; +x_44 = lean_ctor_get(x_36, 1); +x_45 = lean_ctor_get(x_36, 2); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_36); +x_46 = 0; +x_47 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_47, 0, x_38); +lean_ctor_set(x_47, 1, x_44); +lean_ctor_set(x_47, 2, x_45); +lean_ctor_set(x_47, 3, x_38); +lean_ctor_set_uint8(x_47, sizeof(void*)*4, x_46); +x_48 = 1; +lean_ctor_set(x_1, 3, x_47); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_48); +return x_1; +} +} +else +{ +uint8_t x_49; +x_49 = lean_ctor_get_uint8(x_38, sizeof(void*)*4); +if (x_49 == 0) +{ +uint8_t x_50; +x_50 = !lean_is_exclusive(x_36); +if (x_50 == 0) +{ +lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; uint8_t x_55; +x_51 = lean_ctor_get(x_36, 1); +x_52 = lean_ctor_get(x_36, 2); +x_53 = lean_ctor_get(x_36, 3); +lean_dec(x_53); +x_54 = lean_ctor_get(x_36, 0); +lean_dec(x_54); +x_55 = !lean_is_exclusive(x_38); +if (x_55 == 0) +{ +lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; uint8_t x_60; +x_56 = lean_ctor_get(x_38, 0); +x_57 = lean_ctor_get(x_38, 1); +x_58 = lean_ctor_get(x_38, 2); +x_59 = lean_ctor_get(x_38, 3); +x_60 = 1; +lean_ctor_set(x_38, 3, x_37); +lean_ctor_set(x_38, 2, x_30); +lean_ctor_set(x_38, 1, x_29); +lean_ctor_set(x_38, 0, x_28); +lean_ctor_set_uint8(x_38, sizeof(void*)*4, x_60); +lean_ctor_set(x_36, 3, x_59); +lean_ctor_set(x_36, 2, x_58); +lean_ctor_set(x_36, 1, x_57); +lean_ctor_set(x_36, 0, x_56); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_60); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set(x_1, 2, x_52); +lean_ctor_set(x_1, 1, x_51); +lean_ctor_set(x_1, 0, x_38); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_49); +return x_1; +} +else +{ +lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; uint8_t x_65; lean_object* x_66; +x_61 = lean_ctor_get(x_38, 0); +x_62 = lean_ctor_get(x_38, 1); +x_63 = lean_ctor_get(x_38, 2); +x_64 = lean_ctor_get(x_38, 3); +lean_inc(x_64); +lean_inc(x_63); +lean_inc(x_62); +lean_inc(x_61); +lean_dec(x_38); +x_65 = 1; +x_66 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_66, 0, x_28); +lean_ctor_set(x_66, 1, x_29); +lean_ctor_set(x_66, 2, x_30); +lean_ctor_set(x_66, 3, x_37); +lean_ctor_set_uint8(x_66, sizeof(void*)*4, x_65); +lean_ctor_set(x_36, 3, x_64); +lean_ctor_set(x_36, 2, x_63); +lean_ctor_set(x_36, 1, x_62); +lean_ctor_set(x_36, 0, x_61); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_65); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set(x_1, 2, x_52); +lean_ctor_set(x_1, 1, x_51); +lean_ctor_set(x_1, 0, x_66); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_49); +return x_1; +} +} +else +{ +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; lean_object* x_75; lean_object* x_76; +x_67 = lean_ctor_get(x_36, 1); +x_68 = lean_ctor_get(x_36, 2); +lean_inc(x_68); +lean_inc(x_67); +lean_dec(x_36); +x_69 = lean_ctor_get(x_38, 0); +lean_inc(x_69); +x_70 = lean_ctor_get(x_38, 1); +lean_inc(x_70); +x_71 = lean_ctor_get(x_38, 2); +lean_inc(x_71); +x_72 = lean_ctor_get(x_38, 3); +lean_inc(x_72); +if (lean_is_exclusive(x_38)) { + lean_ctor_release(x_38, 0); + lean_ctor_release(x_38, 1); + lean_ctor_release(x_38, 2); + lean_ctor_release(x_38, 3); + x_73 = x_38; +} else { + lean_dec_ref(x_38); + x_73 = lean_box(0); +} +x_74 = 1; +if (lean_is_scalar(x_73)) { + x_75 = lean_alloc_ctor(1, 4, 1); +} else { + x_75 = x_73; +} +lean_ctor_set(x_75, 0, x_28); +lean_ctor_set(x_75, 1, x_29); +lean_ctor_set(x_75, 2, x_30); +lean_ctor_set(x_75, 3, x_37); +lean_ctor_set_uint8(x_75, sizeof(void*)*4, x_74); +x_76 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_76, 0, x_69); +lean_ctor_set(x_76, 1, x_70); +lean_ctor_set(x_76, 2, x_71); +lean_ctor_set(x_76, 3, x_72); +lean_ctor_set_uint8(x_76, sizeof(void*)*4, x_74); +lean_ctor_set(x_1, 3, x_76); +lean_ctor_set(x_1, 2, x_68); +lean_ctor_set(x_1, 1, x_67); +lean_ctor_set(x_1, 0, x_75); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_49); +return x_1; +} +} +else +{ +uint8_t x_77; +x_77 = !lean_is_exclusive(x_36); +if (x_77 == 0) +{ +lean_object* x_78; lean_object* x_79; uint8_t x_80; +x_78 = lean_ctor_get(x_36, 3); +lean_dec(x_78); +x_79 = lean_ctor_get(x_36, 0); +lean_dec(x_79); +x_80 = 0; +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_80); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_49); +return x_1; +} +else +{ +lean_object* x_81; lean_object* x_82; uint8_t x_83; lean_object* x_84; +x_81 = lean_ctor_get(x_36, 1); +x_82 = lean_ctor_get(x_36, 2); +lean_inc(x_82); +lean_inc(x_81); +lean_dec(x_36); +x_83 = 0; +x_84 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_84, 0, x_37); +lean_ctor_set(x_84, 1, x_81); +lean_ctor_set(x_84, 2, x_82); +lean_ctor_set(x_84, 3, x_38); +lean_ctor_set_uint8(x_84, sizeof(void*)*4, x_83); +lean_ctor_set(x_1, 3, x_84); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_49); +return x_1; +} +} +} +} +else +{ +uint8_t x_85; +x_85 = lean_ctor_get_uint8(x_37, sizeof(void*)*4); +if (x_85 == 0) +{ +uint8_t x_86; +x_86 = !lean_is_exclusive(x_36); +if (x_86 == 0) +{ +lean_object* x_87; uint8_t x_88; +x_87 = lean_ctor_get(x_36, 0); +lean_dec(x_87); +x_88 = !lean_is_exclusive(x_37); +if (x_88 == 0) +{ +lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; uint8_t x_93; +x_89 = lean_ctor_get(x_37, 0); +x_90 = lean_ctor_get(x_37, 1); +x_91 = lean_ctor_get(x_37, 2); +x_92 = lean_ctor_get(x_37, 3); +x_93 = 1; +lean_ctor_set(x_37, 3, x_89); +lean_ctor_set(x_37, 2, x_30); +lean_ctor_set(x_37, 1, x_29); +lean_ctor_set(x_37, 0, x_28); +lean_ctor_set_uint8(x_37, sizeof(void*)*4, x_93); +lean_ctor_set(x_36, 0, x_92); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_93); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set(x_1, 2, x_91); +lean_ctor_set(x_1, 1, x_90); +lean_ctor_set(x_1, 0, x_37); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_85); +return x_1; +} +else +{ +lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; uint8_t x_98; lean_object* x_99; +x_94 = lean_ctor_get(x_37, 0); +x_95 = lean_ctor_get(x_37, 1); +x_96 = lean_ctor_get(x_37, 2); +x_97 = lean_ctor_get(x_37, 3); +lean_inc(x_97); +lean_inc(x_96); +lean_inc(x_95); +lean_inc(x_94); +lean_dec(x_37); +x_98 = 1; +x_99 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_99, 0, x_28); +lean_ctor_set(x_99, 1, x_29); +lean_ctor_set(x_99, 2, x_30); +lean_ctor_set(x_99, 3, x_94); +lean_ctor_set_uint8(x_99, sizeof(void*)*4, x_98); +lean_ctor_set(x_36, 0, x_97); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_98); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set(x_1, 2, x_96); +lean_ctor_set(x_1, 1, x_95); +lean_ctor_set(x_1, 0, x_99); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_85); +return x_1; +} +} +else +{ +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; lean_object* x_109; lean_object* x_110; +x_100 = lean_ctor_get(x_36, 1); +x_101 = lean_ctor_get(x_36, 2); +x_102 = lean_ctor_get(x_36, 3); +lean_inc(x_102); +lean_inc(x_101); +lean_inc(x_100); +lean_dec(x_36); +x_103 = lean_ctor_get(x_37, 0); +lean_inc(x_103); +x_104 = lean_ctor_get(x_37, 1); +lean_inc(x_104); +x_105 = lean_ctor_get(x_37, 2); +lean_inc(x_105); +x_106 = lean_ctor_get(x_37, 3); +lean_inc(x_106); +if (lean_is_exclusive(x_37)) { + lean_ctor_release(x_37, 0); + lean_ctor_release(x_37, 1); + lean_ctor_release(x_37, 2); + lean_ctor_release(x_37, 3); + x_107 = x_37; +} else { + lean_dec_ref(x_37); + x_107 = lean_box(0); +} +x_108 = 1; +if (lean_is_scalar(x_107)) { + x_109 = lean_alloc_ctor(1, 4, 1); +} else { + x_109 = x_107; +} +lean_ctor_set(x_109, 0, x_28); +lean_ctor_set(x_109, 1, x_29); +lean_ctor_set(x_109, 2, x_30); +lean_ctor_set(x_109, 3, x_103); +lean_ctor_set_uint8(x_109, sizeof(void*)*4, x_108); +x_110 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_110, 0, x_106); +lean_ctor_set(x_110, 1, x_100); +lean_ctor_set(x_110, 2, x_101); +lean_ctor_set(x_110, 3, x_102); +lean_ctor_set_uint8(x_110, sizeof(void*)*4, x_108); +lean_ctor_set(x_1, 3, x_110); +lean_ctor_set(x_1, 2, x_105); +lean_ctor_set(x_1, 1, x_104); +lean_ctor_set(x_1, 0, x_109); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_85); +return x_1; +} +} +else +{ +lean_object* x_111; +x_111 = lean_ctor_get(x_36, 3); +lean_inc(x_111); +if (lean_obj_tag(x_111) == 0) +{ +uint8_t x_112; +x_112 = !lean_is_exclusive(x_36); +if (x_112 == 0) +{ +lean_object* x_113; lean_object* x_114; uint8_t x_115; +x_113 = lean_ctor_get(x_36, 3); +lean_dec(x_113); +x_114 = lean_ctor_get(x_36, 0); +lean_dec(x_114); +x_115 = 0; +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_115); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_85); +return x_1; +} +else +{ +lean_object* x_116; lean_object* x_117; uint8_t x_118; lean_object* x_119; +x_116 = lean_ctor_get(x_36, 1); +x_117 = lean_ctor_get(x_36, 2); +lean_inc(x_117); +lean_inc(x_116); +lean_dec(x_36); +x_118 = 0; +x_119 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_119, 0, x_37); +lean_ctor_set(x_119, 1, x_116); +lean_ctor_set(x_119, 2, x_117); +lean_ctor_set(x_119, 3, x_111); +lean_ctor_set_uint8(x_119, sizeof(void*)*4, x_118); +lean_ctor_set(x_1, 3, x_119); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_85); +return x_1; +} +} +else +{ +uint8_t x_120; +x_120 = lean_ctor_get_uint8(x_111, sizeof(void*)*4); +if (x_120 == 0) +{ +uint8_t x_121; +lean_free_object(x_1); +x_121 = !lean_is_exclusive(x_36); +if (x_121 == 0) +{ +lean_object* x_122; lean_object* x_123; uint8_t x_124; +x_122 = lean_ctor_get(x_36, 3); +lean_dec(x_122); +x_123 = lean_ctor_get(x_36, 0); +lean_dec(x_123); +x_124 = !lean_is_exclusive(x_111); +if (x_124 == 0) +{ +lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; uint8_t x_129; +x_125 = lean_ctor_get(x_111, 0); +x_126 = lean_ctor_get(x_111, 1); +x_127 = lean_ctor_get(x_111, 2); +x_128 = lean_ctor_get(x_111, 3); +lean_inc(x_37); +lean_ctor_set(x_111, 3, x_37); +lean_ctor_set(x_111, 2, x_30); +lean_ctor_set(x_111, 1, x_29); +lean_ctor_set(x_111, 0, x_28); +x_129 = !lean_is_exclusive(x_37); +if (x_129 == 0) +{ +lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; +x_130 = lean_ctor_get(x_37, 3); +lean_dec(x_130); +x_131 = lean_ctor_get(x_37, 2); +lean_dec(x_131); +x_132 = lean_ctor_get(x_37, 1); +lean_dec(x_132); +x_133 = lean_ctor_get(x_37, 0); +lean_dec(x_133); +lean_ctor_set_uint8(x_111, sizeof(void*)*4, x_85); +lean_ctor_set(x_37, 3, x_128); +lean_ctor_set(x_37, 2, x_127); +lean_ctor_set(x_37, 1, x_126); +lean_ctor_set(x_37, 0, x_125); +lean_ctor_set(x_36, 3, x_37); +lean_ctor_set(x_36, 0, x_111); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_120); +return x_36; +} +else +{ +lean_object* x_134; +lean_dec(x_37); +lean_ctor_set_uint8(x_111, sizeof(void*)*4, x_85); +x_134 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_134, 0, x_125); +lean_ctor_set(x_134, 1, x_126); +lean_ctor_set(x_134, 2, x_127); +lean_ctor_set(x_134, 3, x_128); +lean_ctor_set_uint8(x_134, sizeof(void*)*4, x_85); +lean_ctor_set(x_36, 3, x_134); +lean_ctor_set(x_36, 0, x_111); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_120); +return x_36; +} +} +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; lean_object* x_141; +x_135 = lean_ctor_get(x_111, 0); +x_136 = lean_ctor_get(x_111, 1); +x_137 = lean_ctor_get(x_111, 2); +x_138 = lean_ctor_get(x_111, 3); +lean_inc(x_138); +lean_inc(x_137); +lean_inc(x_136); +lean_inc(x_135); +lean_dec(x_111); +lean_inc(x_37); +x_139 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_139, 0, x_28); +lean_ctor_set(x_139, 1, x_29); +lean_ctor_set(x_139, 2, x_30); +lean_ctor_set(x_139, 3, x_37); +if (lean_is_exclusive(x_37)) { + lean_ctor_release(x_37, 0); + lean_ctor_release(x_37, 1); + lean_ctor_release(x_37, 2); + lean_ctor_release(x_37, 3); + x_140 = x_37; +} else { + lean_dec_ref(x_37); + x_140 = lean_box(0); +} +lean_ctor_set_uint8(x_139, sizeof(void*)*4, x_85); +if (lean_is_scalar(x_140)) { + x_141 = lean_alloc_ctor(1, 4, 1); +} else { + x_141 = x_140; +} +lean_ctor_set(x_141, 0, x_135); +lean_ctor_set(x_141, 1, x_136); +lean_ctor_set(x_141, 2, x_137); +lean_ctor_set(x_141, 3, x_138); +lean_ctor_set_uint8(x_141, sizeof(void*)*4, x_85); +lean_ctor_set(x_36, 3, x_141); +lean_ctor_set(x_36, 0, x_139); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_120); +return x_36; +} +} +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; +x_142 = lean_ctor_get(x_36, 1); +x_143 = lean_ctor_get(x_36, 2); +lean_inc(x_143); +lean_inc(x_142); +lean_dec(x_36); +x_144 = lean_ctor_get(x_111, 0); +lean_inc(x_144); +x_145 = lean_ctor_get(x_111, 1); +lean_inc(x_145); +x_146 = lean_ctor_get(x_111, 2); +lean_inc(x_146); +x_147 = lean_ctor_get(x_111, 3); +lean_inc(x_147); +if (lean_is_exclusive(x_111)) { + lean_ctor_release(x_111, 0); + lean_ctor_release(x_111, 1); + lean_ctor_release(x_111, 2); + lean_ctor_release(x_111, 3); + x_148 = x_111; +} else { + lean_dec_ref(x_111); + x_148 = lean_box(0); +} +lean_inc(x_37); +if (lean_is_scalar(x_148)) { + x_149 = lean_alloc_ctor(1, 4, 1); +} else { + x_149 = x_148; +} +lean_ctor_set(x_149, 0, x_28); +lean_ctor_set(x_149, 1, x_29); +lean_ctor_set(x_149, 2, x_30); +lean_ctor_set(x_149, 3, x_37); +if (lean_is_exclusive(x_37)) { + lean_ctor_release(x_37, 0); + lean_ctor_release(x_37, 1); + lean_ctor_release(x_37, 2); + lean_ctor_release(x_37, 3); + x_150 = x_37; +} else { + lean_dec_ref(x_37); + x_150 = lean_box(0); +} +lean_ctor_set_uint8(x_149, sizeof(void*)*4, x_85); +if (lean_is_scalar(x_150)) { + x_151 = lean_alloc_ctor(1, 4, 1); +} else { + x_151 = x_150; +} +lean_ctor_set(x_151, 0, x_144); +lean_ctor_set(x_151, 1, x_145); +lean_ctor_set(x_151, 2, x_146); +lean_ctor_set(x_151, 3, x_147); +lean_ctor_set_uint8(x_151, sizeof(void*)*4, x_85); +x_152 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_152, 0, x_149); +lean_ctor_set(x_152, 1, x_142); +lean_ctor_set(x_152, 2, x_143); +lean_ctor_set(x_152, 3, x_151); +lean_ctor_set_uint8(x_152, sizeof(void*)*4, x_120); +return x_152; +} +} +else +{ +uint8_t x_153; +x_153 = !lean_is_exclusive(x_36); +if (x_153 == 0) +{ +lean_object* x_154; lean_object* x_155; uint8_t x_156; +x_154 = lean_ctor_get(x_36, 3); +lean_dec(x_154); +x_155 = lean_ctor_get(x_36, 0); +lean_dec(x_155); +x_156 = !lean_is_exclusive(x_37); +if (x_156 == 0) +{ +uint8_t x_157; +lean_ctor_set_uint8(x_37, sizeof(void*)*4, x_120); +x_157 = 0; +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_157); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_120); +return x_1; +} +else +{ +lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; uint8_t x_163; +x_158 = lean_ctor_get(x_37, 0); +x_159 = lean_ctor_get(x_37, 1); +x_160 = lean_ctor_get(x_37, 2); +x_161 = lean_ctor_get(x_37, 3); +lean_inc(x_161); +lean_inc(x_160); +lean_inc(x_159); +lean_inc(x_158); +lean_dec(x_37); +x_162 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_162, 0, x_158); +lean_ctor_set(x_162, 1, x_159); +lean_ctor_set(x_162, 2, x_160); +lean_ctor_set(x_162, 3, x_161); +lean_ctor_set_uint8(x_162, sizeof(void*)*4, x_120); +x_163 = 0; +lean_ctor_set(x_36, 0, x_162); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_163); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_120); +return x_1; +} +} +else +{ +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; uint8_t x_172; lean_object* x_173; +x_164 = lean_ctor_get(x_36, 1); +x_165 = lean_ctor_get(x_36, 2); +lean_inc(x_165); +lean_inc(x_164); +lean_dec(x_36); +x_166 = lean_ctor_get(x_37, 0); +lean_inc(x_166); +x_167 = lean_ctor_get(x_37, 1); +lean_inc(x_167); +x_168 = lean_ctor_get(x_37, 2); +lean_inc(x_168); +x_169 = lean_ctor_get(x_37, 3); +lean_inc(x_169); +if (lean_is_exclusive(x_37)) { + lean_ctor_release(x_37, 0); + lean_ctor_release(x_37, 1); + lean_ctor_release(x_37, 2); + lean_ctor_release(x_37, 3); + x_170 = x_37; +} else { + lean_dec_ref(x_37); + x_170 = lean_box(0); +} +if (lean_is_scalar(x_170)) { + x_171 = lean_alloc_ctor(1, 4, 1); +} else { + x_171 = x_170; +} +lean_ctor_set(x_171, 0, x_166); +lean_ctor_set(x_171, 1, x_167); +lean_ctor_set(x_171, 2, x_168); +lean_ctor_set(x_171, 3, x_169); +lean_ctor_set_uint8(x_171, sizeof(void*)*4, x_120); +x_172 = 0; +x_173 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_173, 0, x_171); +lean_ctor_set(x_173, 1, x_164); +lean_ctor_set(x_173, 2, x_165); +lean_ctor_set(x_173, 3, x_111); +lean_ctor_set_uint8(x_173, sizeof(void*)*4, x_172); +lean_ctor_set(x_1, 3, x_173); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_120); +return x_1; +} +} +} +} +} +} +} +} +else +{ +uint8_t x_174; +x_174 = l_RBNode_isRed___rarg(x_28); +if (x_174 == 0) +{ +lean_object* x_175; +x_175 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(x_28, x_2, x_3); +lean_ctor_set(x_1, 0, x_175); +return x_1; +} +else +{ +lean_object* x_176; lean_object* x_177; +x_176 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(x_28, x_2, x_3); +x_177 = lean_ctor_get(x_176, 0); +lean_inc(x_177); +if (lean_obj_tag(x_177) == 0) +{ +lean_object* x_178; +x_178 = lean_ctor_get(x_176, 3); +lean_inc(x_178); +if (lean_obj_tag(x_178) == 0) +{ +uint8_t x_179; +x_179 = !lean_is_exclusive(x_176); +if (x_179 == 0) +{ +lean_object* x_180; lean_object* x_181; uint8_t x_182; uint8_t x_183; +x_180 = lean_ctor_get(x_176, 3); +lean_dec(x_180); +x_181 = lean_ctor_get(x_176, 0); +lean_dec(x_181); +x_182 = 0; +lean_ctor_set(x_176, 0, x_178); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_182); +x_183 = 1; +lean_ctor_set(x_1, 0, x_176); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_183); +return x_1; +} +else +{ +lean_object* x_184; lean_object* x_185; uint8_t x_186; lean_object* x_187; uint8_t x_188; +x_184 = lean_ctor_get(x_176, 1); +x_185 = lean_ctor_get(x_176, 2); +lean_inc(x_185); +lean_inc(x_184); +lean_dec(x_176); +x_186 = 0; +x_187 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_187, 0, x_178); +lean_ctor_set(x_187, 1, x_184); +lean_ctor_set(x_187, 2, x_185); +lean_ctor_set(x_187, 3, x_178); +lean_ctor_set_uint8(x_187, sizeof(void*)*4, x_186); +x_188 = 1; +lean_ctor_set(x_1, 0, x_187); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_188); +return x_1; +} +} +else +{ +uint8_t x_189; +x_189 = lean_ctor_get_uint8(x_178, sizeof(void*)*4); +if (x_189 == 0) +{ +uint8_t x_190; +x_190 = !lean_is_exclusive(x_176); +if (x_190 == 0) +{ +lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; uint8_t x_195; +x_191 = lean_ctor_get(x_176, 1); +x_192 = lean_ctor_get(x_176, 2); +x_193 = lean_ctor_get(x_176, 3); +lean_dec(x_193); +x_194 = lean_ctor_get(x_176, 0); +lean_dec(x_194); +x_195 = !lean_is_exclusive(x_178); +if (x_195 == 0) +{ +lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; uint8_t x_200; +x_196 = lean_ctor_get(x_178, 0); +x_197 = lean_ctor_get(x_178, 1); +x_198 = lean_ctor_get(x_178, 2); +x_199 = lean_ctor_get(x_178, 3); +x_200 = 1; +lean_ctor_set(x_178, 3, x_196); +lean_ctor_set(x_178, 2, x_192); +lean_ctor_set(x_178, 1, x_191); +lean_ctor_set(x_178, 0, x_177); +lean_ctor_set_uint8(x_178, sizeof(void*)*4, x_200); +lean_ctor_set(x_176, 3, x_31); +lean_ctor_set(x_176, 2, x_30); +lean_ctor_set(x_176, 1, x_29); +lean_ctor_set(x_176, 0, x_199); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_200); +lean_ctor_set(x_1, 3, x_176); +lean_ctor_set(x_1, 2, x_198); +lean_ctor_set(x_1, 1, x_197); +lean_ctor_set(x_1, 0, x_178); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_189); +return x_1; +} +else +{ +lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; uint8_t x_205; lean_object* x_206; +x_201 = lean_ctor_get(x_178, 0); +x_202 = lean_ctor_get(x_178, 1); +x_203 = lean_ctor_get(x_178, 2); +x_204 = lean_ctor_get(x_178, 3); +lean_inc(x_204); +lean_inc(x_203); +lean_inc(x_202); +lean_inc(x_201); +lean_dec(x_178); +x_205 = 1; +x_206 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_206, 0, x_177); +lean_ctor_set(x_206, 1, x_191); +lean_ctor_set(x_206, 2, x_192); +lean_ctor_set(x_206, 3, x_201); +lean_ctor_set_uint8(x_206, sizeof(void*)*4, x_205); +lean_ctor_set(x_176, 3, x_31); +lean_ctor_set(x_176, 2, x_30); +lean_ctor_set(x_176, 1, x_29); +lean_ctor_set(x_176, 0, x_204); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_205); +lean_ctor_set(x_1, 3, x_176); +lean_ctor_set(x_1, 2, x_203); +lean_ctor_set(x_1, 1, x_202); +lean_ctor_set(x_1, 0, x_206); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_189); +return x_1; +} +} +else +{ +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; uint8_t x_214; lean_object* x_215; lean_object* x_216; +x_207 = lean_ctor_get(x_176, 1); +x_208 = lean_ctor_get(x_176, 2); +lean_inc(x_208); +lean_inc(x_207); +lean_dec(x_176); +x_209 = lean_ctor_get(x_178, 0); +lean_inc(x_209); +x_210 = lean_ctor_get(x_178, 1); +lean_inc(x_210); +x_211 = lean_ctor_get(x_178, 2); +lean_inc(x_211); +x_212 = lean_ctor_get(x_178, 3); +lean_inc(x_212); +if (lean_is_exclusive(x_178)) { + lean_ctor_release(x_178, 0); + lean_ctor_release(x_178, 1); + lean_ctor_release(x_178, 2); + lean_ctor_release(x_178, 3); + x_213 = x_178; +} else { + lean_dec_ref(x_178); + x_213 = lean_box(0); +} +x_214 = 1; +if (lean_is_scalar(x_213)) { + x_215 = lean_alloc_ctor(1, 4, 1); +} else { + x_215 = x_213; +} +lean_ctor_set(x_215, 0, x_177); +lean_ctor_set(x_215, 1, x_207); +lean_ctor_set(x_215, 2, x_208); +lean_ctor_set(x_215, 3, x_209); +lean_ctor_set_uint8(x_215, sizeof(void*)*4, x_214); +x_216 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_216, 0, x_212); +lean_ctor_set(x_216, 1, x_29); +lean_ctor_set(x_216, 2, x_30); +lean_ctor_set(x_216, 3, x_31); +lean_ctor_set_uint8(x_216, sizeof(void*)*4, x_214); +lean_ctor_set(x_1, 3, x_216); +lean_ctor_set(x_1, 2, x_211); +lean_ctor_set(x_1, 1, x_210); +lean_ctor_set(x_1, 0, x_215); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_189); +return x_1; +} +} +else +{ +uint8_t x_217; +x_217 = !lean_is_exclusive(x_176); +if (x_217 == 0) +{ +lean_object* x_218; lean_object* x_219; uint8_t x_220; +x_218 = lean_ctor_get(x_176, 3); +lean_dec(x_218); +x_219 = lean_ctor_get(x_176, 0); +lean_dec(x_219); +x_220 = 0; +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_220); +lean_ctor_set(x_1, 0, x_176); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_189); +return x_1; +} +else +{ +lean_object* x_221; lean_object* x_222; uint8_t x_223; lean_object* x_224; +x_221 = lean_ctor_get(x_176, 1); +x_222 = lean_ctor_get(x_176, 2); +lean_inc(x_222); +lean_inc(x_221); +lean_dec(x_176); +x_223 = 0; +x_224 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_224, 0, x_177); +lean_ctor_set(x_224, 1, x_221); +lean_ctor_set(x_224, 2, x_222); +lean_ctor_set(x_224, 3, x_178); +lean_ctor_set_uint8(x_224, sizeof(void*)*4, x_223); +lean_ctor_set(x_1, 0, x_224); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_189); +return x_1; +} +} +} +} +else +{ +uint8_t x_225; +x_225 = lean_ctor_get_uint8(x_177, sizeof(void*)*4); +if (x_225 == 0) +{ +uint8_t x_226; +x_226 = !lean_is_exclusive(x_176); +if (x_226 == 0) +{ +lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; uint8_t x_231; +x_227 = lean_ctor_get(x_176, 1); +x_228 = lean_ctor_get(x_176, 2); +x_229 = lean_ctor_get(x_176, 3); +x_230 = lean_ctor_get(x_176, 0); +lean_dec(x_230); +x_231 = !lean_is_exclusive(x_177); +if (x_231 == 0) +{ +uint8_t x_232; +x_232 = 1; +lean_ctor_set_uint8(x_177, sizeof(void*)*4, x_232); +lean_ctor_set(x_176, 3, x_31); +lean_ctor_set(x_176, 2, x_30); +lean_ctor_set(x_176, 1, x_29); +lean_ctor_set(x_176, 0, x_229); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_232); +lean_ctor_set(x_1, 3, x_176); +lean_ctor_set(x_1, 2, x_228); +lean_ctor_set(x_1, 1, x_227); +lean_ctor_set(x_1, 0, x_177); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_225); +return x_1; +} +else +{ +lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; uint8_t x_237; lean_object* x_238; +x_233 = lean_ctor_get(x_177, 0); +x_234 = lean_ctor_get(x_177, 1); +x_235 = lean_ctor_get(x_177, 2); +x_236 = lean_ctor_get(x_177, 3); +lean_inc(x_236); +lean_inc(x_235); +lean_inc(x_234); +lean_inc(x_233); +lean_dec(x_177); +x_237 = 1; +x_238 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_238, 0, x_233); +lean_ctor_set(x_238, 1, x_234); +lean_ctor_set(x_238, 2, x_235); +lean_ctor_set(x_238, 3, x_236); +lean_ctor_set_uint8(x_238, sizeof(void*)*4, x_237); +lean_ctor_set(x_176, 3, x_31); +lean_ctor_set(x_176, 2, x_30); +lean_ctor_set(x_176, 1, x_29); +lean_ctor_set(x_176, 0, x_229); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_237); +lean_ctor_set(x_1, 3, x_176); +lean_ctor_set(x_1, 2, x_228); +lean_ctor_set(x_1, 1, x_227); +lean_ctor_set(x_1, 0, x_238); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_225); +return x_1; +} +} +else +{ +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; uint8_t x_247; lean_object* x_248; lean_object* x_249; +x_239 = lean_ctor_get(x_176, 1); +x_240 = lean_ctor_get(x_176, 2); +x_241 = lean_ctor_get(x_176, 3); +lean_inc(x_241); +lean_inc(x_240); +lean_inc(x_239); +lean_dec(x_176); +x_242 = lean_ctor_get(x_177, 0); +lean_inc(x_242); +x_243 = lean_ctor_get(x_177, 1); +lean_inc(x_243); +x_244 = lean_ctor_get(x_177, 2); +lean_inc(x_244); +x_245 = lean_ctor_get(x_177, 3); +lean_inc(x_245); +if (lean_is_exclusive(x_177)) { + lean_ctor_release(x_177, 0); + lean_ctor_release(x_177, 1); + lean_ctor_release(x_177, 2); + lean_ctor_release(x_177, 3); + x_246 = x_177; +} else { + lean_dec_ref(x_177); + x_246 = lean_box(0); +} +x_247 = 1; +if (lean_is_scalar(x_246)) { + x_248 = lean_alloc_ctor(1, 4, 1); +} else { + x_248 = x_246; +} +lean_ctor_set(x_248, 0, x_242); +lean_ctor_set(x_248, 1, x_243); +lean_ctor_set(x_248, 2, x_244); +lean_ctor_set(x_248, 3, x_245); +lean_ctor_set_uint8(x_248, sizeof(void*)*4, x_247); +x_249 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_249, 0, x_241); +lean_ctor_set(x_249, 1, x_29); +lean_ctor_set(x_249, 2, x_30); +lean_ctor_set(x_249, 3, x_31); +lean_ctor_set_uint8(x_249, sizeof(void*)*4, x_247); +lean_ctor_set(x_1, 3, x_249); +lean_ctor_set(x_1, 2, x_240); +lean_ctor_set(x_1, 1, x_239); +lean_ctor_set(x_1, 0, x_248); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_225); +return x_1; +} +} +else +{ +lean_object* x_250; +x_250 = lean_ctor_get(x_176, 3); +lean_inc(x_250); +if (lean_obj_tag(x_250) == 0) +{ +uint8_t x_251; +x_251 = !lean_is_exclusive(x_176); +if (x_251 == 0) +{ +lean_object* x_252; lean_object* x_253; uint8_t x_254; +x_252 = lean_ctor_get(x_176, 3); +lean_dec(x_252); +x_253 = lean_ctor_get(x_176, 0); +lean_dec(x_253); +x_254 = 0; +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_254); +lean_ctor_set(x_1, 0, x_176); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_225); +return x_1; +} +else +{ +lean_object* x_255; lean_object* x_256; uint8_t x_257; lean_object* x_258; +x_255 = lean_ctor_get(x_176, 1); +x_256 = lean_ctor_get(x_176, 2); +lean_inc(x_256); +lean_inc(x_255); +lean_dec(x_176); +x_257 = 0; +x_258 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_258, 0, x_177); +lean_ctor_set(x_258, 1, x_255); +lean_ctor_set(x_258, 2, x_256); +lean_ctor_set(x_258, 3, x_250); +lean_ctor_set_uint8(x_258, sizeof(void*)*4, x_257); +lean_ctor_set(x_1, 0, x_258); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_225); +return x_1; +} +} +else +{ +uint8_t x_259; +x_259 = lean_ctor_get_uint8(x_250, sizeof(void*)*4); +if (x_259 == 0) +{ +uint8_t x_260; +lean_free_object(x_1); +x_260 = !lean_is_exclusive(x_176); +if (x_260 == 0) +{ +lean_object* x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; uint8_t x_265; +x_261 = lean_ctor_get(x_176, 1); +x_262 = lean_ctor_get(x_176, 2); +x_263 = lean_ctor_get(x_176, 3); +lean_dec(x_263); +x_264 = lean_ctor_get(x_176, 0); +lean_dec(x_264); +x_265 = !lean_is_exclusive(x_250); +if (x_265 == 0) +{ +lean_object* x_266; lean_object* x_267; lean_object* x_268; lean_object* x_269; uint8_t x_270; +x_266 = lean_ctor_get(x_250, 0); +x_267 = lean_ctor_get(x_250, 1); +x_268 = lean_ctor_get(x_250, 2); +x_269 = lean_ctor_get(x_250, 3); +lean_inc(x_177); +lean_ctor_set(x_250, 3, x_266); +lean_ctor_set(x_250, 2, x_262); +lean_ctor_set(x_250, 1, x_261); +lean_ctor_set(x_250, 0, x_177); +x_270 = !lean_is_exclusive(x_177); +if (x_270 == 0) +{ +lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; +x_271 = lean_ctor_get(x_177, 3); +lean_dec(x_271); +x_272 = lean_ctor_get(x_177, 2); +lean_dec(x_272); +x_273 = lean_ctor_get(x_177, 1); +lean_dec(x_273); +x_274 = lean_ctor_get(x_177, 0); +lean_dec(x_274); +lean_ctor_set_uint8(x_250, sizeof(void*)*4, x_225); +lean_ctor_set(x_177, 3, x_31); +lean_ctor_set(x_177, 2, x_30); +lean_ctor_set(x_177, 1, x_29); +lean_ctor_set(x_177, 0, x_269); +lean_ctor_set(x_176, 3, x_177); +lean_ctor_set(x_176, 2, x_268); +lean_ctor_set(x_176, 1, x_267); +lean_ctor_set(x_176, 0, x_250); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_259); +return x_176; +} +else +{ +lean_object* x_275; +lean_dec(x_177); +lean_ctor_set_uint8(x_250, sizeof(void*)*4, x_225); +x_275 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_275, 0, x_269); +lean_ctor_set(x_275, 1, x_29); +lean_ctor_set(x_275, 2, x_30); +lean_ctor_set(x_275, 3, x_31); +lean_ctor_set_uint8(x_275, sizeof(void*)*4, x_225); +lean_ctor_set(x_176, 3, x_275); +lean_ctor_set(x_176, 2, x_268); +lean_ctor_set(x_176, 1, x_267); +lean_ctor_set(x_176, 0, x_250); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_259); +return x_176; +} +} +else +{ +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; +x_276 = lean_ctor_get(x_250, 0); +x_277 = lean_ctor_get(x_250, 1); +x_278 = lean_ctor_get(x_250, 2); +x_279 = lean_ctor_get(x_250, 3); +lean_inc(x_279); +lean_inc(x_278); +lean_inc(x_277); +lean_inc(x_276); +lean_dec(x_250); +lean_inc(x_177); +x_280 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_280, 0, x_177); +lean_ctor_set(x_280, 1, x_261); +lean_ctor_set(x_280, 2, x_262); +lean_ctor_set(x_280, 3, x_276); +if (lean_is_exclusive(x_177)) { + lean_ctor_release(x_177, 0); + lean_ctor_release(x_177, 1); + lean_ctor_release(x_177, 2); + lean_ctor_release(x_177, 3); + x_281 = x_177; +} else { + lean_dec_ref(x_177); + x_281 = lean_box(0); +} +lean_ctor_set_uint8(x_280, sizeof(void*)*4, x_225); +if (lean_is_scalar(x_281)) { + x_282 = lean_alloc_ctor(1, 4, 1); +} else { + x_282 = x_281; +} +lean_ctor_set(x_282, 0, x_279); +lean_ctor_set(x_282, 1, x_29); +lean_ctor_set(x_282, 2, x_30); +lean_ctor_set(x_282, 3, x_31); +lean_ctor_set_uint8(x_282, sizeof(void*)*4, x_225); +lean_ctor_set(x_176, 3, x_282); +lean_ctor_set(x_176, 2, x_278); +lean_ctor_set(x_176, 1, x_277); +lean_ctor_set(x_176, 0, x_280); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_259); +return x_176; +} +} +else +{ +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_283 = lean_ctor_get(x_176, 1); +x_284 = lean_ctor_get(x_176, 2); +lean_inc(x_284); +lean_inc(x_283); +lean_dec(x_176); +x_285 = lean_ctor_get(x_250, 0); +lean_inc(x_285); +x_286 = lean_ctor_get(x_250, 1); +lean_inc(x_286); +x_287 = lean_ctor_get(x_250, 2); +lean_inc(x_287); +x_288 = lean_ctor_get(x_250, 3); +lean_inc(x_288); +if (lean_is_exclusive(x_250)) { + lean_ctor_release(x_250, 0); + lean_ctor_release(x_250, 1); + lean_ctor_release(x_250, 2); + lean_ctor_release(x_250, 3); + x_289 = x_250; +} else { + lean_dec_ref(x_250); + x_289 = lean_box(0); +} +lean_inc(x_177); +if (lean_is_scalar(x_289)) { + x_290 = lean_alloc_ctor(1, 4, 1); +} else { + x_290 = x_289; +} +lean_ctor_set(x_290, 0, x_177); +lean_ctor_set(x_290, 1, x_283); +lean_ctor_set(x_290, 2, x_284); +lean_ctor_set(x_290, 3, x_285); +if (lean_is_exclusive(x_177)) { + lean_ctor_release(x_177, 0); + lean_ctor_release(x_177, 1); + lean_ctor_release(x_177, 2); + lean_ctor_release(x_177, 3); + x_291 = x_177; +} else { + lean_dec_ref(x_177); + x_291 = lean_box(0); +} +lean_ctor_set_uint8(x_290, sizeof(void*)*4, x_225); +if (lean_is_scalar(x_291)) { + x_292 = lean_alloc_ctor(1, 4, 1); +} else { + x_292 = x_291; +} +lean_ctor_set(x_292, 0, x_288); +lean_ctor_set(x_292, 1, x_29); +lean_ctor_set(x_292, 2, x_30); +lean_ctor_set(x_292, 3, x_31); +lean_ctor_set_uint8(x_292, sizeof(void*)*4, x_225); +x_293 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_293, 0, x_290); +lean_ctor_set(x_293, 1, x_286); +lean_ctor_set(x_293, 2, x_287); +lean_ctor_set(x_293, 3, x_292); +lean_ctor_set_uint8(x_293, sizeof(void*)*4, x_259); +return x_293; +} +} +else +{ +uint8_t x_294; +x_294 = !lean_is_exclusive(x_176); +if (x_294 == 0) +{ +lean_object* x_295; lean_object* x_296; uint8_t x_297; +x_295 = lean_ctor_get(x_176, 3); +lean_dec(x_295); +x_296 = lean_ctor_get(x_176, 0); +lean_dec(x_296); +x_297 = !lean_is_exclusive(x_177); +if (x_297 == 0) +{ +uint8_t x_298; +lean_ctor_set_uint8(x_177, sizeof(void*)*4, x_259); +x_298 = 0; +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_298); +lean_ctor_set(x_1, 0, x_176); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_259); +return x_1; +} +else +{ +lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; uint8_t x_304; +x_299 = lean_ctor_get(x_177, 0); +x_300 = lean_ctor_get(x_177, 1); +x_301 = lean_ctor_get(x_177, 2); +x_302 = lean_ctor_get(x_177, 3); +lean_inc(x_302); +lean_inc(x_301); +lean_inc(x_300); +lean_inc(x_299); +lean_dec(x_177); +x_303 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_303, 0, x_299); +lean_ctor_set(x_303, 1, x_300); +lean_ctor_set(x_303, 2, x_301); +lean_ctor_set(x_303, 3, x_302); +lean_ctor_set_uint8(x_303, sizeof(void*)*4, x_259); +x_304 = 0; +lean_ctor_set(x_176, 0, x_303); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_304); +lean_ctor_set(x_1, 0, x_176); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_259); +return x_1; +} +} +else +{ +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; uint8_t x_313; lean_object* x_314; +x_305 = lean_ctor_get(x_176, 1); +x_306 = lean_ctor_get(x_176, 2); +lean_inc(x_306); +lean_inc(x_305); +lean_dec(x_176); +x_307 = lean_ctor_get(x_177, 0); +lean_inc(x_307); +x_308 = lean_ctor_get(x_177, 1); +lean_inc(x_308); +x_309 = lean_ctor_get(x_177, 2); +lean_inc(x_309); +x_310 = lean_ctor_get(x_177, 3); +lean_inc(x_310); +if (lean_is_exclusive(x_177)) { + lean_ctor_release(x_177, 0); + lean_ctor_release(x_177, 1); + lean_ctor_release(x_177, 2); + lean_ctor_release(x_177, 3); + x_311 = x_177; +} else { + lean_dec_ref(x_177); + x_311 = lean_box(0); +} +if (lean_is_scalar(x_311)) { + x_312 = lean_alloc_ctor(1, 4, 1); +} else { + x_312 = x_311; +} +lean_ctor_set(x_312, 0, x_307); +lean_ctor_set(x_312, 1, x_308); +lean_ctor_set(x_312, 2, x_309); +lean_ctor_set(x_312, 3, x_310); +lean_ctor_set_uint8(x_312, sizeof(void*)*4, x_259); +x_313 = 0; +x_314 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_314, 0, x_312); +lean_ctor_set(x_314, 1, x_305); +lean_ctor_set(x_314, 2, x_306); +lean_ctor_set(x_314, 3, x_250); +lean_ctor_set_uint8(x_314, sizeof(void*)*4, x_313); +lean_ctor_set(x_1, 0, x_314); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_259); +return x_1; +} +} +} +} +} +} +} +} +else +{ +lean_object* x_315; lean_object* x_316; lean_object* x_317; lean_object* x_318; uint8_t x_319; +x_315 = lean_ctor_get(x_1, 0); +x_316 = lean_ctor_get(x_1, 1); +x_317 = lean_ctor_get(x_1, 2); +x_318 = lean_ctor_get(x_1, 3); +lean_inc(x_318); +lean_inc(x_317); +lean_inc(x_316); +lean_inc(x_315); +lean_dec(x_1); +x_319 = l_Lean_Name_quickLt(x_2, x_316); +if (x_319 == 0) +{ +uint8_t x_320; +x_320 = l_Lean_Name_quickLt(x_316, x_2); +if (x_320 == 0) +{ +lean_object* x_321; +lean_dec(x_317); +lean_dec(x_316); +x_321 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_321, 0, x_315); +lean_ctor_set(x_321, 1, x_2); +lean_ctor_set(x_321, 2, x_3); +lean_ctor_set(x_321, 3, x_318); +lean_ctor_set_uint8(x_321, sizeof(void*)*4, x_6); +return x_321; +} +else +{ +uint8_t x_322; +x_322 = l_RBNode_isRed___rarg(x_318); +if (x_322 == 0) +{ +lean_object* x_323; lean_object* x_324; +x_323 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(x_318, x_2, x_3); +x_324 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_324, 0, x_315); +lean_ctor_set(x_324, 1, x_316); +lean_ctor_set(x_324, 2, x_317); +lean_ctor_set(x_324, 3, x_323); +lean_ctor_set_uint8(x_324, sizeof(void*)*4, x_6); +return x_324; +} +else +{ +lean_object* x_325; lean_object* x_326; +x_325 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(x_318, x_2, x_3); +x_326 = lean_ctor_get(x_325, 0); +lean_inc(x_326); +if (lean_obj_tag(x_326) == 0) +{ +lean_object* x_327; +x_327 = lean_ctor_get(x_325, 3); +lean_inc(x_327); +if (lean_obj_tag(x_327) == 0) +{ +lean_object* x_328; lean_object* x_329; lean_object* x_330; uint8_t x_331; lean_object* x_332; uint8_t x_333; lean_object* x_334; +x_328 = lean_ctor_get(x_325, 1); +lean_inc(x_328); +x_329 = lean_ctor_get(x_325, 2); +lean_inc(x_329); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_330 = x_325; +} else { + lean_dec_ref(x_325); + x_330 = lean_box(0); +} +x_331 = 0; +if (lean_is_scalar(x_330)) { + x_332 = lean_alloc_ctor(1, 4, 1); +} else { + x_332 = x_330; +} +lean_ctor_set(x_332, 0, x_327); +lean_ctor_set(x_332, 1, x_328); +lean_ctor_set(x_332, 2, x_329); +lean_ctor_set(x_332, 3, x_327); +lean_ctor_set_uint8(x_332, sizeof(void*)*4, x_331); +x_333 = 1; +x_334 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_334, 0, x_315); +lean_ctor_set(x_334, 1, x_316); +lean_ctor_set(x_334, 2, x_317); +lean_ctor_set(x_334, 3, x_332); +lean_ctor_set_uint8(x_334, sizeof(void*)*4, x_333); +return x_334; +} +else +{ +uint8_t x_335; +x_335 = lean_ctor_get_uint8(x_327, sizeof(void*)*4); +if (x_335 == 0) +{ +lean_object* x_336; 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; uint8_t x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; +x_336 = lean_ctor_get(x_325, 1); +lean_inc(x_336); +x_337 = lean_ctor_get(x_325, 2); +lean_inc(x_337); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_338 = x_325; +} else { + lean_dec_ref(x_325); + x_338 = lean_box(0); +} +x_339 = lean_ctor_get(x_327, 0); +lean_inc(x_339); +x_340 = lean_ctor_get(x_327, 1); +lean_inc(x_340); +x_341 = lean_ctor_get(x_327, 2); +lean_inc(x_341); +x_342 = lean_ctor_get(x_327, 3); +lean_inc(x_342); +if (lean_is_exclusive(x_327)) { + lean_ctor_release(x_327, 0); + lean_ctor_release(x_327, 1); + lean_ctor_release(x_327, 2); + lean_ctor_release(x_327, 3); + x_343 = x_327; +} else { + lean_dec_ref(x_327); + x_343 = lean_box(0); +} +x_344 = 1; +if (lean_is_scalar(x_343)) { + x_345 = lean_alloc_ctor(1, 4, 1); +} else { + x_345 = x_343; +} +lean_ctor_set(x_345, 0, x_315); +lean_ctor_set(x_345, 1, x_316); +lean_ctor_set(x_345, 2, x_317); +lean_ctor_set(x_345, 3, x_326); +lean_ctor_set_uint8(x_345, sizeof(void*)*4, x_344); +if (lean_is_scalar(x_338)) { + x_346 = lean_alloc_ctor(1, 4, 1); +} else { + x_346 = x_338; +} +lean_ctor_set(x_346, 0, x_339); +lean_ctor_set(x_346, 1, x_340); +lean_ctor_set(x_346, 2, x_341); +lean_ctor_set(x_346, 3, x_342); +lean_ctor_set_uint8(x_346, sizeof(void*)*4, x_344); +x_347 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_347, 0, x_345); +lean_ctor_set(x_347, 1, x_336); +lean_ctor_set(x_347, 2, x_337); +lean_ctor_set(x_347, 3, x_346); +lean_ctor_set_uint8(x_347, sizeof(void*)*4, x_335); +return x_347; +} +else +{ +lean_object* x_348; lean_object* x_349; lean_object* x_350; uint8_t x_351; lean_object* x_352; lean_object* x_353; +x_348 = lean_ctor_get(x_325, 1); +lean_inc(x_348); +x_349 = lean_ctor_get(x_325, 2); +lean_inc(x_349); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_350 = x_325; +} else { + lean_dec_ref(x_325); + x_350 = lean_box(0); +} +x_351 = 0; +if (lean_is_scalar(x_350)) { + x_352 = lean_alloc_ctor(1, 4, 1); +} else { + x_352 = x_350; +} +lean_ctor_set(x_352, 0, x_326); +lean_ctor_set(x_352, 1, x_348); +lean_ctor_set(x_352, 2, x_349); +lean_ctor_set(x_352, 3, x_327); +lean_ctor_set_uint8(x_352, sizeof(void*)*4, x_351); +x_353 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_353, 0, x_315); +lean_ctor_set(x_353, 1, x_316); +lean_ctor_set(x_353, 2, x_317); +lean_ctor_set(x_353, 3, x_352); +lean_ctor_set_uint8(x_353, sizeof(void*)*4, x_335); +return x_353; +} +} +} +else +{ +uint8_t x_354; +x_354 = lean_ctor_get_uint8(x_326, sizeof(void*)*4); +if (x_354 == 0) +{ +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; uint8_t x_364; lean_object* x_365; lean_object* x_366; lean_object* x_367; +x_355 = lean_ctor_get(x_325, 1); +lean_inc(x_355); +x_356 = lean_ctor_get(x_325, 2); +lean_inc(x_356); +x_357 = lean_ctor_get(x_325, 3); +lean_inc(x_357); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_358 = x_325; +} else { + lean_dec_ref(x_325); + x_358 = lean_box(0); +} +x_359 = lean_ctor_get(x_326, 0); +lean_inc(x_359); +x_360 = lean_ctor_get(x_326, 1); +lean_inc(x_360); +x_361 = lean_ctor_get(x_326, 2); +lean_inc(x_361); +x_362 = lean_ctor_get(x_326, 3); +lean_inc(x_362); +if (lean_is_exclusive(x_326)) { + lean_ctor_release(x_326, 0); + lean_ctor_release(x_326, 1); + lean_ctor_release(x_326, 2); + lean_ctor_release(x_326, 3); + x_363 = x_326; +} else { + lean_dec_ref(x_326); + x_363 = lean_box(0); +} +x_364 = 1; +if (lean_is_scalar(x_363)) { + x_365 = lean_alloc_ctor(1, 4, 1); +} else { + x_365 = x_363; +} +lean_ctor_set(x_365, 0, x_315); +lean_ctor_set(x_365, 1, x_316); +lean_ctor_set(x_365, 2, x_317); +lean_ctor_set(x_365, 3, x_359); +lean_ctor_set_uint8(x_365, sizeof(void*)*4, x_364); +if (lean_is_scalar(x_358)) { + x_366 = lean_alloc_ctor(1, 4, 1); +} else { + x_366 = x_358; +} +lean_ctor_set(x_366, 0, x_362); +lean_ctor_set(x_366, 1, x_355); +lean_ctor_set(x_366, 2, x_356); +lean_ctor_set(x_366, 3, x_357); +lean_ctor_set_uint8(x_366, sizeof(void*)*4, x_364); +x_367 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_367, 0, x_365); +lean_ctor_set(x_367, 1, x_360); +lean_ctor_set(x_367, 2, x_361); +lean_ctor_set(x_367, 3, x_366); +lean_ctor_set_uint8(x_367, sizeof(void*)*4, x_354); +return x_367; +} +else +{ +lean_object* x_368; +x_368 = lean_ctor_get(x_325, 3); +lean_inc(x_368); +if (lean_obj_tag(x_368) == 0) +{ +lean_object* x_369; lean_object* x_370; lean_object* x_371; uint8_t x_372; lean_object* x_373; lean_object* x_374; +x_369 = lean_ctor_get(x_325, 1); +lean_inc(x_369); +x_370 = lean_ctor_get(x_325, 2); +lean_inc(x_370); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_371 = x_325; +} else { + lean_dec_ref(x_325); + x_371 = lean_box(0); +} +x_372 = 0; +if (lean_is_scalar(x_371)) { + x_373 = lean_alloc_ctor(1, 4, 1); +} else { + x_373 = x_371; +} +lean_ctor_set(x_373, 0, x_326); +lean_ctor_set(x_373, 1, x_369); +lean_ctor_set(x_373, 2, x_370); +lean_ctor_set(x_373, 3, x_368); +lean_ctor_set_uint8(x_373, sizeof(void*)*4, x_372); +x_374 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_374, 0, x_315); +lean_ctor_set(x_374, 1, x_316); +lean_ctor_set(x_374, 2, x_317); +lean_ctor_set(x_374, 3, x_373); +lean_ctor_set_uint8(x_374, sizeof(void*)*4, x_354); +return x_374; +} +else +{ +uint8_t x_375; +x_375 = lean_ctor_get_uint8(x_368, sizeof(void*)*4); +if (x_375 == 0) +{ +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; +x_376 = lean_ctor_get(x_325, 1); +lean_inc(x_376); +x_377 = lean_ctor_get(x_325, 2); +lean_inc(x_377); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_378 = x_325; +} else { + lean_dec_ref(x_325); + x_378 = lean_box(0); +} +x_379 = lean_ctor_get(x_368, 0); +lean_inc(x_379); +x_380 = lean_ctor_get(x_368, 1); +lean_inc(x_380); +x_381 = lean_ctor_get(x_368, 2); +lean_inc(x_381); +x_382 = lean_ctor_get(x_368, 3); +lean_inc(x_382); +if (lean_is_exclusive(x_368)) { + lean_ctor_release(x_368, 0); + lean_ctor_release(x_368, 1); + lean_ctor_release(x_368, 2); + lean_ctor_release(x_368, 3); + x_383 = x_368; +} else { + lean_dec_ref(x_368); + x_383 = lean_box(0); +} +lean_inc(x_326); +if (lean_is_scalar(x_383)) { + x_384 = lean_alloc_ctor(1, 4, 1); +} else { + x_384 = x_383; +} +lean_ctor_set(x_384, 0, x_315); +lean_ctor_set(x_384, 1, x_316); +lean_ctor_set(x_384, 2, x_317); +lean_ctor_set(x_384, 3, x_326); +if (lean_is_exclusive(x_326)) { + lean_ctor_release(x_326, 0); + lean_ctor_release(x_326, 1); + lean_ctor_release(x_326, 2); + lean_ctor_release(x_326, 3); + x_385 = x_326; +} else { + lean_dec_ref(x_326); + x_385 = lean_box(0); +} +lean_ctor_set_uint8(x_384, sizeof(void*)*4, x_354); +if (lean_is_scalar(x_385)) { + x_386 = lean_alloc_ctor(1, 4, 1); +} else { + x_386 = x_385; +} +lean_ctor_set(x_386, 0, x_379); +lean_ctor_set(x_386, 1, x_380); +lean_ctor_set(x_386, 2, x_381); +lean_ctor_set(x_386, 3, x_382); +lean_ctor_set_uint8(x_386, sizeof(void*)*4, x_354); +if (lean_is_scalar(x_378)) { + x_387 = lean_alloc_ctor(1, 4, 1); +} else { + x_387 = x_378; +} +lean_ctor_set(x_387, 0, x_384); +lean_ctor_set(x_387, 1, x_376); +lean_ctor_set(x_387, 2, x_377); +lean_ctor_set(x_387, 3, x_386); +lean_ctor_set_uint8(x_387, sizeof(void*)*4, x_375); +return x_387; +} +else +{ +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; uint8_t x_397; lean_object* x_398; lean_object* x_399; +x_388 = lean_ctor_get(x_325, 1); +lean_inc(x_388); +x_389 = lean_ctor_get(x_325, 2); +lean_inc(x_389); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_390 = x_325; +} else { + lean_dec_ref(x_325); + x_390 = lean_box(0); +} +x_391 = lean_ctor_get(x_326, 0); +lean_inc(x_391); +x_392 = lean_ctor_get(x_326, 1); +lean_inc(x_392); +x_393 = lean_ctor_get(x_326, 2); +lean_inc(x_393); +x_394 = lean_ctor_get(x_326, 3); +lean_inc(x_394); +if (lean_is_exclusive(x_326)) { + lean_ctor_release(x_326, 0); + lean_ctor_release(x_326, 1); + lean_ctor_release(x_326, 2); + lean_ctor_release(x_326, 3); + x_395 = x_326; +} else { + lean_dec_ref(x_326); + x_395 = lean_box(0); +} +if (lean_is_scalar(x_395)) { + x_396 = lean_alloc_ctor(1, 4, 1); +} else { + x_396 = x_395; +} +lean_ctor_set(x_396, 0, x_391); +lean_ctor_set(x_396, 1, x_392); +lean_ctor_set(x_396, 2, x_393); +lean_ctor_set(x_396, 3, x_394); +lean_ctor_set_uint8(x_396, sizeof(void*)*4, x_375); +x_397 = 0; +if (lean_is_scalar(x_390)) { + x_398 = lean_alloc_ctor(1, 4, 1); +} else { + x_398 = x_390; +} +lean_ctor_set(x_398, 0, x_396); +lean_ctor_set(x_398, 1, x_388); +lean_ctor_set(x_398, 2, x_389); +lean_ctor_set(x_398, 3, x_368); +lean_ctor_set_uint8(x_398, sizeof(void*)*4, x_397); +x_399 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_399, 0, x_315); +lean_ctor_set(x_399, 1, x_316); +lean_ctor_set(x_399, 2, x_317); +lean_ctor_set(x_399, 3, x_398); +lean_ctor_set_uint8(x_399, sizeof(void*)*4, x_375); +return x_399; +} +} +} +} +} +} +} +else +{ +uint8_t x_400; +x_400 = l_RBNode_isRed___rarg(x_315); +if (x_400 == 0) +{ +lean_object* x_401; lean_object* x_402; +x_401 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(x_315, x_2, x_3); +x_402 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_402, 0, x_401); +lean_ctor_set(x_402, 1, x_316); +lean_ctor_set(x_402, 2, x_317); +lean_ctor_set(x_402, 3, x_318); +lean_ctor_set_uint8(x_402, sizeof(void*)*4, x_6); +return x_402; +} +else +{ +lean_object* x_403; lean_object* x_404; +x_403 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(x_315, x_2, x_3); +x_404 = lean_ctor_get(x_403, 0); +lean_inc(x_404); +if (lean_obj_tag(x_404) == 0) +{ +lean_object* x_405; +x_405 = lean_ctor_get(x_403, 3); +lean_inc(x_405); +if (lean_obj_tag(x_405) == 0) +{ +lean_object* x_406; lean_object* x_407; lean_object* x_408; uint8_t x_409; lean_object* x_410; uint8_t x_411; lean_object* x_412; +x_406 = lean_ctor_get(x_403, 1); +lean_inc(x_406); +x_407 = lean_ctor_get(x_403, 2); +lean_inc(x_407); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_408 = x_403; +} else { + lean_dec_ref(x_403); + x_408 = lean_box(0); +} +x_409 = 0; +if (lean_is_scalar(x_408)) { + x_410 = lean_alloc_ctor(1, 4, 1); +} else { + x_410 = x_408; +} +lean_ctor_set(x_410, 0, x_405); +lean_ctor_set(x_410, 1, x_406); +lean_ctor_set(x_410, 2, x_407); +lean_ctor_set(x_410, 3, x_405); +lean_ctor_set_uint8(x_410, sizeof(void*)*4, x_409); +x_411 = 1; +x_412 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_412, 0, x_410); +lean_ctor_set(x_412, 1, x_316); +lean_ctor_set(x_412, 2, x_317); +lean_ctor_set(x_412, 3, x_318); +lean_ctor_set_uint8(x_412, sizeof(void*)*4, x_411); +return x_412; +} +else +{ +uint8_t x_413; +x_413 = lean_ctor_get_uint8(x_405, sizeof(void*)*4); +if (x_413 == 0) +{ +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; uint8_t x_422; lean_object* x_423; lean_object* x_424; lean_object* x_425; +x_414 = lean_ctor_get(x_403, 1); +lean_inc(x_414); +x_415 = lean_ctor_get(x_403, 2); +lean_inc(x_415); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_416 = x_403; +} else { + lean_dec_ref(x_403); + x_416 = lean_box(0); +} +x_417 = lean_ctor_get(x_405, 0); +lean_inc(x_417); +x_418 = lean_ctor_get(x_405, 1); +lean_inc(x_418); +x_419 = lean_ctor_get(x_405, 2); +lean_inc(x_419); +x_420 = lean_ctor_get(x_405, 3); +lean_inc(x_420); +if (lean_is_exclusive(x_405)) { + lean_ctor_release(x_405, 0); + lean_ctor_release(x_405, 1); + lean_ctor_release(x_405, 2); + lean_ctor_release(x_405, 3); + x_421 = x_405; +} else { + lean_dec_ref(x_405); + x_421 = lean_box(0); +} +x_422 = 1; +if (lean_is_scalar(x_421)) { + x_423 = lean_alloc_ctor(1, 4, 1); +} else { + x_423 = x_421; +} +lean_ctor_set(x_423, 0, x_404); +lean_ctor_set(x_423, 1, x_414); +lean_ctor_set(x_423, 2, x_415); +lean_ctor_set(x_423, 3, x_417); +lean_ctor_set_uint8(x_423, sizeof(void*)*4, x_422); +if (lean_is_scalar(x_416)) { + x_424 = lean_alloc_ctor(1, 4, 1); +} else { + x_424 = x_416; +} +lean_ctor_set(x_424, 0, x_420); +lean_ctor_set(x_424, 1, x_316); +lean_ctor_set(x_424, 2, x_317); +lean_ctor_set(x_424, 3, x_318); +lean_ctor_set_uint8(x_424, sizeof(void*)*4, x_422); +x_425 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_425, 0, x_423); +lean_ctor_set(x_425, 1, x_418); +lean_ctor_set(x_425, 2, x_419); +lean_ctor_set(x_425, 3, x_424); +lean_ctor_set_uint8(x_425, sizeof(void*)*4, x_413); +return x_425; +} +else +{ +lean_object* x_426; lean_object* x_427; lean_object* x_428; uint8_t x_429; lean_object* x_430; lean_object* x_431; +x_426 = lean_ctor_get(x_403, 1); +lean_inc(x_426); +x_427 = lean_ctor_get(x_403, 2); +lean_inc(x_427); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_428 = x_403; +} else { + lean_dec_ref(x_403); + x_428 = lean_box(0); +} +x_429 = 0; +if (lean_is_scalar(x_428)) { + x_430 = lean_alloc_ctor(1, 4, 1); +} else { + x_430 = x_428; +} +lean_ctor_set(x_430, 0, x_404); +lean_ctor_set(x_430, 1, x_426); +lean_ctor_set(x_430, 2, x_427); +lean_ctor_set(x_430, 3, x_405); +lean_ctor_set_uint8(x_430, sizeof(void*)*4, x_429); +x_431 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_431, 0, x_430); +lean_ctor_set(x_431, 1, x_316); +lean_ctor_set(x_431, 2, x_317); +lean_ctor_set(x_431, 3, x_318); +lean_ctor_set_uint8(x_431, sizeof(void*)*4, x_413); +return x_431; +} +} +} +else +{ +uint8_t x_432; +x_432 = lean_ctor_get_uint8(x_404, sizeof(void*)*4); +if (x_432 == 0) +{ +lean_object* x_433; lean_object* x_434; lean_object* x_435; lean_object* x_436; lean_object* x_437; lean_object* x_438; lean_object* x_439; lean_object* x_440; lean_object* x_441; uint8_t x_442; lean_object* x_443; lean_object* x_444; lean_object* x_445; +x_433 = lean_ctor_get(x_403, 1); +lean_inc(x_433); +x_434 = lean_ctor_get(x_403, 2); +lean_inc(x_434); +x_435 = lean_ctor_get(x_403, 3); +lean_inc(x_435); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_436 = x_403; +} else { + lean_dec_ref(x_403); + x_436 = lean_box(0); +} +x_437 = lean_ctor_get(x_404, 0); +lean_inc(x_437); +x_438 = lean_ctor_get(x_404, 1); +lean_inc(x_438); +x_439 = lean_ctor_get(x_404, 2); +lean_inc(x_439); +x_440 = lean_ctor_get(x_404, 3); +lean_inc(x_440); +if (lean_is_exclusive(x_404)) { + lean_ctor_release(x_404, 0); + lean_ctor_release(x_404, 1); + lean_ctor_release(x_404, 2); + lean_ctor_release(x_404, 3); + x_441 = x_404; +} else { + lean_dec_ref(x_404); + x_441 = lean_box(0); +} +x_442 = 1; +if (lean_is_scalar(x_441)) { + x_443 = lean_alloc_ctor(1, 4, 1); +} else { + x_443 = x_441; +} +lean_ctor_set(x_443, 0, x_437); +lean_ctor_set(x_443, 1, x_438); +lean_ctor_set(x_443, 2, x_439); +lean_ctor_set(x_443, 3, x_440); +lean_ctor_set_uint8(x_443, sizeof(void*)*4, x_442); +if (lean_is_scalar(x_436)) { + x_444 = lean_alloc_ctor(1, 4, 1); +} else { + x_444 = x_436; +} +lean_ctor_set(x_444, 0, x_435); +lean_ctor_set(x_444, 1, x_316); +lean_ctor_set(x_444, 2, x_317); +lean_ctor_set(x_444, 3, x_318); +lean_ctor_set_uint8(x_444, sizeof(void*)*4, x_442); +x_445 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_445, 0, x_443); +lean_ctor_set(x_445, 1, x_433); +lean_ctor_set(x_445, 2, x_434); +lean_ctor_set(x_445, 3, x_444); +lean_ctor_set_uint8(x_445, sizeof(void*)*4, x_432); +return x_445; +} +else +{ +lean_object* x_446; +x_446 = lean_ctor_get(x_403, 3); +lean_inc(x_446); +if (lean_obj_tag(x_446) == 0) +{ +lean_object* x_447; lean_object* x_448; lean_object* x_449; uint8_t x_450; lean_object* x_451; lean_object* x_452; +x_447 = lean_ctor_get(x_403, 1); +lean_inc(x_447); +x_448 = lean_ctor_get(x_403, 2); +lean_inc(x_448); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_449 = x_403; +} else { + lean_dec_ref(x_403); + x_449 = lean_box(0); +} +x_450 = 0; +if (lean_is_scalar(x_449)) { + x_451 = lean_alloc_ctor(1, 4, 1); +} else { + x_451 = x_449; +} +lean_ctor_set(x_451, 0, x_404); +lean_ctor_set(x_451, 1, x_447); +lean_ctor_set(x_451, 2, x_448); +lean_ctor_set(x_451, 3, x_446); +lean_ctor_set_uint8(x_451, sizeof(void*)*4, x_450); +x_452 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_452, 0, x_451); +lean_ctor_set(x_452, 1, x_316); +lean_ctor_set(x_452, 2, x_317); +lean_ctor_set(x_452, 3, x_318); +lean_ctor_set_uint8(x_452, sizeof(void*)*4, x_432); +return x_452; +} +else +{ +uint8_t x_453; +x_453 = lean_ctor_get_uint8(x_446, sizeof(void*)*4); +if (x_453 == 0) +{ +lean_object* x_454; lean_object* x_455; 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; lean_object* x_464; lean_object* x_465; +x_454 = lean_ctor_get(x_403, 1); +lean_inc(x_454); +x_455 = lean_ctor_get(x_403, 2); +lean_inc(x_455); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_456 = x_403; +} else { + lean_dec_ref(x_403); + x_456 = lean_box(0); +} +x_457 = lean_ctor_get(x_446, 0); +lean_inc(x_457); +x_458 = lean_ctor_get(x_446, 1); +lean_inc(x_458); +x_459 = lean_ctor_get(x_446, 2); +lean_inc(x_459); +x_460 = lean_ctor_get(x_446, 3); +lean_inc(x_460); +if (lean_is_exclusive(x_446)) { + lean_ctor_release(x_446, 0); + lean_ctor_release(x_446, 1); + lean_ctor_release(x_446, 2); + lean_ctor_release(x_446, 3); + x_461 = x_446; +} else { + lean_dec_ref(x_446); + x_461 = lean_box(0); +} +lean_inc(x_404); +if (lean_is_scalar(x_461)) { + x_462 = lean_alloc_ctor(1, 4, 1); +} else { + x_462 = x_461; +} +lean_ctor_set(x_462, 0, x_404); +lean_ctor_set(x_462, 1, x_454); +lean_ctor_set(x_462, 2, x_455); +lean_ctor_set(x_462, 3, x_457); +if (lean_is_exclusive(x_404)) { + lean_ctor_release(x_404, 0); + lean_ctor_release(x_404, 1); + lean_ctor_release(x_404, 2); + lean_ctor_release(x_404, 3); + x_463 = x_404; +} else { + lean_dec_ref(x_404); + x_463 = lean_box(0); +} +lean_ctor_set_uint8(x_462, sizeof(void*)*4, x_432); +if (lean_is_scalar(x_463)) { + x_464 = lean_alloc_ctor(1, 4, 1); +} else { + x_464 = x_463; +} +lean_ctor_set(x_464, 0, x_460); +lean_ctor_set(x_464, 1, x_316); +lean_ctor_set(x_464, 2, x_317); +lean_ctor_set(x_464, 3, x_318); +lean_ctor_set_uint8(x_464, sizeof(void*)*4, x_432); +if (lean_is_scalar(x_456)) { + x_465 = lean_alloc_ctor(1, 4, 1); +} else { + x_465 = x_456; +} +lean_ctor_set(x_465, 0, x_462); +lean_ctor_set(x_465, 1, x_458); +lean_ctor_set(x_465, 2, x_459); +lean_ctor_set(x_465, 3, x_464); +lean_ctor_set_uint8(x_465, sizeof(void*)*4, x_453); +return x_465; +} +else +{ +lean_object* x_466; lean_object* x_467; lean_object* x_468; lean_object* x_469; lean_object* x_470; lean_object* x_471; lean_object* x_472; lean_object* x_473; lean_object* x_474; uint8_t x_475; lean_object* x_476; lean_object* x_477; +x_466 = lean_ctor_get(x_403, 1); +lean_inc(x_466); +x_467 = lean_ctor_get(x_403, 2); +lean_inc(x_467); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_468 = x_403; +} else { + lean_dec_ref(x_403); + x_468 = lean_box(0); +} +x_469 = lean_ctor_get(x_404, 0); +lean_inc(x_469); +x_470 = lean_ctor_get(x_404, 1); +lean_inc(x_470); +x_471 = lean_ctor_get(x_404, 2); +lean_inc(x_471); +x_472 = lean_ctor_get(x_404, 3); +lean_inc(x_472); +if (lean_is_exclusive(x_404)) { + lean_ctor_release(x_404, 0); + lean_ctor_release(x_404, 1); + lean_ctor_release(x_404, 2); + lean_ctor_release(x_404, 3); + x_473 = x_404; +} else { + lean_dec_ref(x_404); + x_473 = lean_box(0); +} +if (lean_is_scalar(x_473)) { + x_474 = lean_alloc_ctor(1, 4, 1); +} else { + x_474 = x_473; +} +lean_ctor_set(x_474, 0, x_469); +lean_ctor_set(x_474, 1, x_470); +lean_ctor_set(x_474, 2, x_471); +lean_ctor_set(x_474, 3, x_472); +lean_ctor_set_uint8(x_474, sizeof(void*)*4, x_453); +x_475 = 0; +if (lean_is_scalar(x_468)) { + x_476 = lean_alloc_ctor(1, 4, 1); +} else { + x_476 = x_468; +} +lean_ctor_set(x_476, 0, x_474); +lean_ctor_set(x_476, 1, x_466); +lean_ctor_set(x_476, 2, x_467); +lean_ctor_set(x_476, 3, x_446); +lean_ctor_set_uint8(x_476, sizeof(void*)*4, x_475); +x_477 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_477, 0, x_476); +lean_ctor_set(x_477, 1, x_316); +lean_ctor_set(x_477, 2, x_317); +lean_ctor_set(x_477, 3, x_318); +lean_ctor_set_uint8(x_477, sizeof(void*)*4, x_453); +return x_477; +} +} +} +} +} +} +} +} +} +} +} +lean_object* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg), 3, 0); +return x_2; +} +} +lean_object* l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = l_RBNode_isRed___rarg(x_1); +if (x_4 == 0) +{ +lean_object* x_5; +x_5 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_1, x_2, x_3); +return x_5; +} +else +{ +lean_object* x_6; lean_object* x_7; +x_6 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(x_1, x_2, x_3); +x_7 = l_RBNode_setBlack___rarg(x_6); +return x_7; +} +} +} +lean_object* l_RBNode_insert___at_Lean_NameMap_insert___spec__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg), 3, 0); +return x_2; +} +} +lean_object* l_Lean_NameMap_insert___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l_Lean_NameMap_insert(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_NameMap_insert___rarg), 3, 0); +return x_2; +} +} +lean_object* l_RBNode_find___main___at_Lean_NameMap_contains___spec__1___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = lean_ctor_get(x_1, 2); +x_7 = lean_ctor_get(x_1, 3); +x_8 = l_Lean_Name_quickLt(x_2, x_5); +if (x_8 == 0) +{ +uint8_t x_9; +x_9 = l_Lean_Name_quickLt(x_5, x_2); +if (x_9 == 0) +{ +lean_object* x_10; +lean_inc(x_6); +x_10 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_10, 0, x_6); +return x_10; +} +else +{ +x_1 = x_7; +goto _start; +} +} +else +{ +x_1 = x_4; +goto _start; +} +} +} +} +lean_object* l_RBNode_find___main___at_Lean_NameMap_contains___spec__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_RBNode_find___main___at_Lean_NameMap_contains___spec__1___rarg___boxed), 2, 0); +return x_2; +} +} +uint8_t l_Lean_NameMap_contains___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_RBNode_find___main___at_Lean_NameMap_contains___spec__1___rarg(x_1, x_2); +if (lean_obj_tag(x_3) == 0) +{ +uint8_t x_4; +x_4 = 0; +return x_4; +} +else +{ +uint8_t x_5; +lean_dec(x_3); +x_5 = 1; +return x_5; +} +} +} +lean_object* l_Lean_NameMap_contains(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_NameMap_contains___rarg___boxed), 2, 0); +return x_2; +} +} +lean_object* l_RBNode_find___main___at_Lean_NameMap_contains___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_RBNode_find___main___at_Lean_NameMap_contains___spec__1___rarg(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_NameMap_contains___rarg___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Lean_NameMap_contains___rarg(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* l_RBNode_find___main___at_Lean_NameMap_find___spec__1___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = lean_ctor_get(x_1, 2); +x_7 = lean_ctor_get(x_1, 3); +x_8 = l_Lean_Name_quickLt(x_2, x_5); +if (x_8 == 0) +{ +uint8_t x_9; +x_9 = l_Lean_Name_quickLt(x_5, x_2); +if (x_9 == 0) +{ +lean_object* x_10; +lean_inc(x_6); +x_10 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_10, 0, x_6); +return x_10; +} +else +{ +x_1 = x_7; +goto _start; +} +} +else +{ +x_1 = x_4; +goto _start; +} +} +} +} +lean_object* l_RBNode_find___main___at_Lean_NameMap_find___spec__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_RBNode_find___main___at_Lean_NameMap_find___spec__1___rarg___boxed), 2, 0); +return x_2; +} +} +lean_object* l_Lean_NameMap_find___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_RBNode_find___main___at_Lean_NameMap_find___spec__1___rarg(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_NameMap_find(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_NameMap_find___rarg___boxed), 2, 0); +return x_2; +} +} +lean_object* l_RBNode_find___main___at_Lean_NameMap_find___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_RBNode_find___main___at_Lean_NameMap_find___spec__1___rarg(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_NameMap_find___rarg___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_NameMap_find___rarg(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* _init_l_Lean_mkNameSet() { +_start: +{ +lean_object* x_1; +x_1 = lean_box(0); +return x_1; +} +} +lean_object* _init_l_Lean_NameSet_HasEmptyc() { +_start: +{ +lean_object* x_1; +x_1 = lean_box(0); +return x_1; +} +} +lean_object* _init_l_Lean_NameSet_Inhabited() { +_start: +{ +lean_object* x_1; +x_1 = lean_box(0); +return x_1; +} +} +lean_object* l_RBNode_ins___main___at_Lean_NameSet_insert___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +uint8_t x_4; lean_object* x_5; +x_4 = 0; +x_5 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_5, 0, x_1); +lean_ctor_set(x_5, 1, x_2); +lean_ctor_set(x_5, 2, x_3); +lean_ctor_set(x_5, 3, x_1); +lean_ctor_set_uint8(x_5, sizeof(void*)*4, x_4); +return x_5; +} +else +{ +uint8_t x_6; +x_6 = lean_ctor_get_uint8(x_1, sizeof(void*)*4); +if (x_6 == 0) +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_1); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; +x_8 = lean_ctor_get(x_1, 0); +x_9 = lean_ctor_get(x_1, 1); +x_10 = lean_ctor_get(x_1, 2); +x_11 = lean_ctor_get(x_1, 3); +x_12 = l_Lean_Name_quickLt(x_2, x_9); +if (x_12 == 0) +{ +uint8_t x_13; +x_13 = l_Lean_Name_quickLt(x_9, x_2); +if (x_13 == 0) +{ +lean_dec(x_10); +lean_dec(x_9); +lean_ctor_set(x_1, 2, x_3); +lean_ctor_set(x_1, 1, x_2); +return x_1; +} +else +{ +lean_object* x_14; +x_14 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__2(x_11, x_2, x_3); +lean_ctor_set(x_1, 3, x_14); +return x_1; +} +} +else +{ +lean_object* x_15; +x_15 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__2(x_8, x_2, x_3); +lean_ctor_set(x_1, 0, x_15); +return x_1; +} +} +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; +x_16 = lean_ctor_get(x_1, 0); +x_17 = lean_ctor_get(x_1, 1); +x_18 = lean_ctor_get(x_1, 2); +x_19 = lean_ctor_get(x_1, 3); +lean_inc(x_19); +lean_inc(x_18); +lean_inc(x_17); +lean_inc(x_16); +lean_dec(x_1); +x_20 = l_Lean_Name_quickLt(x_2, x_17); +if (x_20 == 0) +{ +uint8_t x_21; +x_21 = l_Lean_Name_quickLt(x_17, x_2); +if (x_21 == 0) +{ +lean_object* x_22; +lean_dec(x_18); +lean_dec(x_17); +x_22 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_22, 0, x_16); +lean_ctor_set(x_22, 1, x_2); +lean_ctor_set(x_22, 2, x_3); +lean_ctor_set(x_22, 3, x_19); +lean_ctor_set_uint8(x_22, sizeof(void*)*4, x_6); +return x_22; +} +else +{ +lean_object* x_23; lean_object* x_24; +x_23 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__2(x_19, x_2, x_3); +x_24 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_24, 0, x_16); +lean_ctor_set(x_24, 1, x_17); +lean_ctor_set(x_24, 2, x_18); +lean_ctor_set(x_24, 3, x_23); +lean_ctor_set_uint8(x_24, sizeof(void*)*4, x_6); +return x_24; +} +} +else +{ +lean_object* x_25; lean_object* x_26; +x_25 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__2(x_16, x_2, x_3); +x_26 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_26, 0, x_25); +lean_ctor_set(x_26, 1, x_17); +lean_ctor_set(x_26, 2, x_18); +lean_ctor_set(x_26, 3, x_19); +lean_ctor_set_uint8(x_26, sizeof(void*)*4, x_6); +return x_26; +} +} +} +else +{ +uint8_t x_27; +x_27 = !lean_is_exclusive(x_1); +if (x_27 == 0) +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; uint8_t x_32; +x_28 = lean_ctor_get(x_1, 0); +x_29 = lean_ctor_get(x_1, 1); +x_30 = lean_ctor_get(x_1, 2); +x_31 = lean_ctor_get(x_1, 3); +x_32 = l_Lean_Name_quickLt(x_2, x_29); +if (x_32 == 0) +{ +uint8_t x_33; +x_33 = l_Lean_Name_quickLt(x_29, x_2); +if (x_33 == 0) +{ +lean_dec(x_30); +lean_dec(x_29); +lean_ctor_set(x_1, 2, x_3); +lean_ctor_set(x_1, 1, x_2); +return x_1; +} +else +{ +uint8_t x_34; +x_34 = l_RBNode_isRed___rarg(x_31); +if (x_34 == 0) +{ +lean_object* x_35; +x_35 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__2(x_31, x_2, x_3); +lean_ctor_set(x_1, 3, x_35); +return x_1; +} +else +{ +lean_object* x_36; lean_object* x_37; +x_36 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__2(x_31, x_2, x_3); +x_37 = lean_ctor_get(x_36, 0); +lean_inc(x_37); +if (lean_obj_tag(x_37) == 0) +{ +lean_object* x_38; +x_38 = lean_ctor_get(x_36, 3); +lean_inc(x_38); +if (lean_obj_tag(x_38) == 0) +{ +uint8_t x_39; +x_39 = !lean_is_exclusive(x_36); +if (x_39 == 0) +{ +lean_object* x_40; lean_object* x_41; uint8_t x_42; uint8_t x_43; +x_40 = lean_ctor_get(x_36, 3); +lean_dec(x_40); +x_41 = lean_ctor_get(x_36, 0); +lean_dec(x_41); +x_42 = 0; +lean_ctor_set(x_36, 0, x_38); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_42); +x_43 = 1; +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_43); +return x_1; +} +else +{ +lean_object* x_44; lean_object* x_45; uint8_t x_46; lean_object* x_47; uint8_t x_48; +x_44 = lean_ctor_get(x_36, 1); +x_45 = lean_ctor_get(x_36, 2); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_36); +x_46 = 0; +x_47 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_47, 0, x_38); +lean_ctor_set(x_47, 1, x_44); +lean_ctor_set(x_47, 2, x_45); +lean_ctor_set(x_47, 3, x_38); +lean_ctor_set_uint8(x_47, sizeof(void*)*4, x_46); +x_48 = 1; +lean_ctor_set(x_1, 3, x_47); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_48); +return x_1; +} +} +else +{ +uint8_t x_49; +x_49 = lean_ctor_get_uint8(x_38, sizeof(void*)*4); +if (x_49 == 0) +{ +uint8_t x_50; +x_50 = !lean_is_exclusive(x_36); +if (x_50 == 0) +{ +lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; uint8_t x_55; +x_51 = lean_ctor_get(x_36, 1); +x_52 = lean_ctor_get(x_36, 2); +x_53 = lean_ctor_get(x_36, 3); +lean_dec(x_53); +x_54 = lean_ctor_get(x_36, 0); +lean_dec(x_54); +x_55 = !lean_is_exclusive(x_38); +if (x_55 == 0) +{ +lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; uint8_t x_60; +x_56 = lean_ctor_get(x_38, 0); +x_57 = lean_ctor_get(x_38, 1); +x_58 = lean_ctor_get(x_38, 2); +x_59 = lean_ctor_get(x_38, 3); +x_60 = 1; +lean_ctor_set(x_38, 3, x_37); +lean_ctor_set(x_38, 2, x_30); +lean_ctor_set(x_38, 1, x_29); +lean_ctor_set(x_38, 0, x_28); +lean_ctor_set_uint8(x_38, sizeof(void*)*4, x_60); +lean_ctor_set(x_36, 3, x_59); +lean_ctor_set(x_36, 2, x_58); +lean_ctor_set(x_36, 1, x_57); +lean_ctor_set(x_36, 0, x_56); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_60); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set(x_1, 2, x_52); +lean_ctor_set(x_1, 1, x_51); +lean_ctor_set(x_1, 0, x_38); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_49); +return x_1; +} +else +{ +lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; uint8_t x_65; lean_object* x_66; +x_61 = lean_ctor_get(x_38, 0); +x_62 = lean_ctor_get(x_38, 1); +x_63 = lean_ctor_get(x_38, 2); +x_64 = lean_ctor_get(x_38, 3); +lean_inc(x_64); +lean_inc(x_63); +lean_inc(x_62); +lean_inc(x_61); +lean_dec(x_38); +x_65 = 1; +x_66 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_66, 0, x_28); +lean_ctor_set(x_66, 1, x_29); +lean_ctor_set(x_66, 2, x_30); +lean_ctor_set(x_66, 3, x_37); +lean_ctor_set_uint8(x_66, sizeof(void*)*4, x_65); +lean_ctor_set(x_36, 3, x_64); +lean_ctor_set(x_36, 2, x_63); +lean_ctor_set(x_36, 1, x_62); +lean_ctor_set(x_36, 0, x_61); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_65); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set(x_1, 2, x_52); +lean_ctor_set(x_1, 1, x_51); +lean_ctor_set(x_1, 0, x_66); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_49); +return x_1; +} +} +else +{ +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; lean_object* x_75; lean_object* x_76; +x_67 = lean_ctor_get(x_36, 1); +x_68 = lean_ctor_get(x_36, 2); +lean_inc(x_68); +lean_inc(x_67); +lean_dec(x_36); +x_69 = lean_ctor_get(x_38, 0); +lean_inc(x_69); +x_70 = lean_ctor_get(x_38, 1); +lean_inc(x_70); +x_71 = lean_ctor_get(x_38, 2); +lean_inc(x_71); +x_72 = lean_ctor_get(x_38, 3); +lean_inc(x_72); +if (lean_is_exclusive(x_38)) { + lean_ctor_release(x_38, 0); + lean_ctor_release(x_38, 1); + lean_ctor_release(x_38, 2); + lean_ctor_release(x_38, 3); + x_73 = x_38; +} else { + lean_dec_ref(x_38); + x_73 = lean_box(0); +} +x_74 = 1; +if (lean_is_scalar(x_73)) { + x_75 = lean_alloc_ctor(1, 4, 1); +} else { + x_75 = x_73; +} +lean_ctor_set(x_75, 0, x_28); +lean_ctor_set(x_75, 1, x_29); +lean_ctor_set(x_75, 2, x_30); +lean_ctor_set(x_75, 3, x_37); +lean_ctor_set_uint8(x_75, sizeof(void*)*4, x_74); +x_76 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_76, 0, x_69); +lean_ctor_set(x_76, 1, x_70); +lean_ctor_set(x_76, 2, x_71); +lean_ctor_set(x_76, 3, x_72); +lean_ctor_set_uint8(x_76, sizeof(void*)*4, x_74); +lean_ctor_set(x_1, 3, x_76); +lean_ctor_set(x_1, 2, x_68); +lean_ctor_set(x_1, 1, x_67); +lean_ctor_set(x_1, 0, x_75); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_49); +return x_1; +} +} +else +{ +uint8_t x_77; +x_77 = !lean_is_exclusive(x_36); +if (x_77 == 0) +{ +lean_object* x_78; lean_object* x_79; uint8_t x_80; +x_78 = lean_ctor_get(x_36, 3); +lean_dec(x_78); +x_79 = lean_ctor_get(x_36, 0); +lean_dec(x_79); +x_80 = 0; +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_80); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_49); +return x_1; +} +else +{ +lean_object* x_81; lean_object* x_82; uint8_t x_83; lean_object* x_84; +x_81 = lean_ctor_get(x_36, 1); +x_82 = lean_ctor_get(x_36, 2); +lean_inc(x_82); +lean_inc(x_81); +lean_dec(x_36); +x_83 = 0; +x_84 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_84, 0, x_37); +lean_ctor_set(x_84, 1, x_81); +lean_ctor_set(x_84, 2, x_82); +lean_ctor_set(x_84, 3, x_38); +lean_ctor_set_uint8(x_84, sizeof(void*)*4, x_83); +lean_ctor_set(x_1, 3, x_84); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_49); +return x_1; +} +} +} +} +else +{ +uint8_t x_85; +x_85 = lean_ctor_get_uint8(x_37, sizeof(void*)*4); +if (x_85 == 0) +{ +uint8_t x_86; +x_86 = !lean_is_exclusive(x_36); +if (x_86 == 0) +{ +lean_object* x_87; uint8_t x_88; +x_87 = lean_ctor_get(x_36, 0); +lean_dec(x_87); +x_88 = !lean_is_exclusive(x_37); +if (x_88 == 0) +{ +lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; uint8_t x_93; +x_89 = lean_ctor_get(x_37, 0); +x_90 = lean_ctor_get(x_37, 1); +x_91 = lean_ctor_get(x_37, 2); +x_92 = lean_ctor_get(x_37, 3); +x_93 = 1; +lean_ctor_set(x_37, 3, x_89); +lean_ctor_set(x_37, 2, x_30); +lean_ctor_set(x_37, 1, x_29); +lean_ctor_set(x_37, 0, x_28); +lean_ctor_set_uint8(x_37, sizeof(void*)*4, x_93); +lean_ctor_set(x_36, 0, x_92); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_93); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set(x_1, 2, x_91); +lean_ctor_set(x_1, 1, x_90); +lean_ctor_set(x_1, 0, x_37); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_85); +return x_1; +} +else +{ +lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; uint8_t x_98; lean_object* x_99; +x_94 = lean_ctor_get(x_37, 0); +x_95 = lean_ctor_get(x_37, 1); +x_96 = lean_ctor_get(x_37, 2); +x_97 = lean_ctor_get(x_37, 3); +lean_inc(x_97); +lean_inc(x_96); +lean_inc(x_95); +lean_inc(x_94); +lean_dec(x_37); +x_98 = 1; +x_99 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_99, 0, x_28); +lean_ctor_set(x_99, 1, x_29); +lean_ctor_set(x_99, 2, x_30); +lean_ctor_set(x_99, 3, x_94); +lean_ctor_set_uint8(x_99, sizeof(void*)*4, x_98); +lean_ctor_set(x_36, 0, x_97); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_98); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set(x_1, 2, x_96); +lean_ctor_set(x_1, 1, x_95); +lean_ctor_set(x_1, 0, x_99); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_85); +return x_1; +} +} +else +{ +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; lean_object* x_109; lean_object* x_110; +x_100 = lean_ctor_get(x_36, 1); +x_101 = lean_ctor_get(x_36, 2); +x_102 = lean_ctor_get(x_36, 3); +lean_inc(x_102); +lean_inc(x_101); +lean_inc(x_100); +lean_dec(x_36); +x_103 = lean_ctor_get(x_37, 0); +lean_inc(x_103); +x_104 = lean_ctor_get(x_37, 1); +lean_inc(x_104); +x_105 = lean_ctor_get(x_37, 2); +lean_inc(x_105); +x_106 = lean_ctor_get(x_37, 3); +lean_inc(x_106); +if (lean_is_exclusive(x_37)) { + lean_ctor_release(x_37, 0); + lean_ctor_release(x_37, 1); + lean_ctor_release(x_37, 2); + lean_ctor_release(x_37, 3); + x_107 = x_37; +} else { + lean_dec_ref(x_37); + x_107 = lean_box(0); +} +x_108 = 1; +if (lean_is_scalar(x_107)) { + x_109 = lean_alloc_ctor(1, 4, 1); +} else { + x_109 = x_107; +} +lean_ctor_set(x_109, 0, x_28); +lean_ctor_set(x_109, 1, x_29); +lean_ctor_set(x_109, 2, x_30); +lean_ctor_set(x_109, 3, x_103); +lean_ctor_set_uint8(x_109, sizeof(void*)*4, x_108); +x_110 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_110, 0, x_106); +lean_ctor_set(x_110, 1, x_100); +lean_ctor_set(x_110, 2, x_101); +lean_ctor_set(x_110, 3, x_102); +lean_ctor_set_uint8(x_110, sizeof(void*)*4, x_108); +lean_ctor_set(x_1, 3, x_110); +lean_ctor_set(x_1, 2, x_105); +lean_ctor_set(x_1, 1, x_104); +lean_ctor_set(x_1, 0, x_109); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_85); +return x_1; +} +} +else +{ +lean_object* x_111; +x_111 = lean_ctor_get(x_36, 3); +lean_inc(x_111); +if (lean_obj_tag(x_111) == 0) +{ +uint8_t x_112; +x_112 = !lean_is_exclusive(x_36); +if (x_112 == 0) +{ +lean_object* x_113; lean_object* x_114; uint8_t x_115; +x_113 = lean_ctor_get(x_36, 3); +lean_dec(x_113); +x_114 = lean_ctor_get(x_36, 0); +lean_dec(x_114); +x_115 = 0; +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_115); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_85); +return x_1; +} +else +{ +lean_object* x_116; lean_object* x_117; uint8_t x_118; lean_object* x_119; +x_116 = lean_ctor_get(x_36, 1); +x_117 = lean_ctor_get(x_36, 2); +lean_inc(x_117); +lean_inc(x_116); +lean_dec(x_36); +x_118 = 0; +x_119 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_119, 0, x_37); +lean_ctor_set(x_119, 1, x_116); +lean_ctor_set(x_119, 2, x_117); +lean_ctor_set(x_119, 3, x_111); +lean_ctor_set_uint8(x_119, sizeof(void*)*4, x_118); +lean_ctor_set(x_1, 3, x_119); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_85); +return x_1; +} +} +else +{ +uint8_t x_120; +x_120 = lean_ctor_get_uint8(x_111, sizeof(void*)*4); +if (x_120 == 0) +{ +uint8_t x_121; +lean_free_object(x_1); +x_121 = !lean_is_exclusive(x_36); +if (x_121 == 0) +{ +lean_object* x_122; lean_object* x_123; uint8_t x_124; +x_122 = lean_ctor_get(x_36, 3); +lean_dec(x_122); +x_123 = lean_ctor_get(x_36, 0); +lean_dec(x_123); +x_124 = !lean_is_exclusive(x_111); +if (x_124 == 0) +{ +lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; uint8_t x_129; +x_125 = lean_ctor_get(x_111, 0); +x_126 = lean_ctor_get(x_111, 1); +x_127 = lean_ctor_get(x_111, 2); +x_128 = lean_ctor_get(x_111, 3); +lean_inc(x_37); +lean_ctor_set(x_111, 3, x_37); +lean_ctor_set(x_111, 2, x_30); +lean_ctor_set(x_111, 1, x_29); +lean_ctor_set(x_111, 0, x_28); +x_129 = !lean_is_exclusive(x_37); +if (x_129 == 0) +{ +lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; +x_130 = lean_ctor_get(x_37, 3); +lean_dec(x_130); +x_131 = lean_ctor_get(x_37, 2); +lean_dec(x_131); +x_132 = lean_ctor_get(x_37, 1); +lean_dec(x_132); +x_133 = lean_ctor_get(x_37, 0); +lean_dec(x_133); +lean_ctor_set_uint8(x_111, sizeof(void*)*4, x_85); +lean_ctor_set(x_37, 3, x_128); +lean_ctor_set(x_37, 2, x_127); +lean_ctor_set(x_37, 1, x_126); +lean_ctor_set(x_37, 0, x_125); +lean_ctor_set(x_36, 3, x_37); +lean_ctor_set(x_36, 0, x_111); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_120); +return x_36; +} +else +{ +lean_object* x_134; +lean_dec(x_37); +lean_ctor_set_uint8(x_111, sizeof(void*)*4, x_85); +x_134 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_134, 0, x_125); +lean_ctor_set(x_134, 1, x_126); +lean_ctor_set(x_134, 2, x_127); +lean_ctor_set(x_134, 3, x_128); +lean_ctor_set_uint8(x_134, sizeof(void*)*4, x_85); +lean_ctor_set(x_36, 3, x_134); +lean_ctor_set(x_36, 0, x_111); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_120); +return x_36; +} +} +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; lean_object* x_141; +x_135 = lean_ctor_get(x_111, 0); +x_136 = lean_ctor_get(x_111, 1); +x_137 = lean_ctor_get(x_111, 2); +x_138 = lean_ctor_get(x_111, 3); +lean_inc(x_138); +lean_inc(x_137); +lean_inc(x_136); +lean_inc(x_135); +lean_dec(x_111); +lean_inc(x_37); +x_139 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_139, 0, x_28); +lean_ctor_set(x_139, 1, x_29); +lean_ctor_set(x_139, 2, x_30); +lean_ctor_set(x_139, 3, x_37); +if (lean_is_exclusive(x_37)) { + lean_ctor_release(x_37, 0); + lean_ctor_release(x_37, 1); + lean_ctor_release(x_37, 2); + lean_ctor_release(x_37, 3); + x_140 = x_37; +} else { + lean_dec_ref(x_37); + x_140 = lean_box(0); +} +lean_ctor_set_uint8(x_139, sizeof(void*)*4, x_85); +if (lean_is_scalar(x_140)) { + x_141 = lean_alloc_ctor(1, 4, 1); +} else { + x_141 = x_140; +} +lean_ctor_set(x_141, 0, x_135); +lean_ctor_set(x_141, 1, x_136); +lean_ctor_set(x_141, 2, x_137); +lean_ctor_set(x_141, 3, x_138); +lean_ctor_set_uint8(x_141, sizeof(void*)*4, x_85); +lean_ctor_set(x_36, 3, x_141); +lean_ctor_set(x_36, 0, x_139); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_120); +return x_36; +} +} +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; +x_142 = lean_ctor_get(x_36, 1); +x_143 = lean_ctor_get(x_36, 2); +lean_inc(x_143); +lean_inc(x_142); +lean_dec(x_36); +x_144 = lean_ctor_get(x_111, 0); +lean_inc(x_144); +x_145 = lean_ctor_get(x_111, 1); +lean_inc(x_145); +x_146 = lean_ctor_get(x_111, 2); +lean_inc(x_146); +x_147 = lean_ctor_get(x_111, 3); +lean_inc(x_147); +if (lean_is_exclusive(x_111)) { + lean_ctor_release(x_111, 0); + lean_ctor_release(x_111, 1); + lean_ctor_release(x_111, 2); + lean_ctor_release(x_111, 3); + x_148 = x_111; +} else { + lean_dec_ref(x_111); + x_148 = lean_box(0); +} +lean_inc(x_37); +if (lean_is_scalar(x_148)) { + x_149 = lean_alloc_ctor(1, 4, 1); +} else { + x_149 = x_148; +} +lean_ctor_set(x_149, 0, x_28); +lean_ctor_set(x_149, 1, x_29); +lean_ctor_set(x_149, 2, x_30); +lean_ctor_set(x_149, 3, x_37); +if (lean_is_exclusive(x_37)) { + lean_ctor_release(x_37, 0); + lean_ctor_release(x_37, 1); + lean_ctor_release(x_37, 2); + lean_ctor_release(x_37, 3); + x_150 = x_37; +} else { + lean_dec_ref(x_37); + x_150 = lean_box(0); +} +lean_ctor_set_uint8(x_149, sizeof(void*)*4, x_85); +if (lean_is_scalar(x_150)) { + x_151 = lean_alloc_ctor(1, 4, 1); +} else { + x_151 = x_150; +} +lean_ctor_set(x_151, 0, x_144); +lean_ctor_set(x_151, 1, x_145); +lean_ctor_set(x_151, 2, x_146); +lean_ctor_set(x_151, 3, x_147); +lean_ctor_set_uint8(x_151, sizeof(void*)*4, x_85); +x_152 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_152, 0, x_149); +lean_ctor_set(x_152, 1, x_142); +lean_ctor_set(x_152, 2, x_143); +lean_ctor_set(x_152, 3, x_151); +lean_ctor_set_uint8(x_152, sizeof(void*)*4, x_120); +return x_152; +} +} +else +{ +uint8_t x_153; +x_153 = !lean_is_exclusive(x_36); +if (x_153 == 0) +{ +lean_object* x_154; lean_object* x_155; uint8_t x_156; +x_154 = lean_ctor_get(x_36, 3); +lean_dec(x_154); +x_155 = lean_ctor_get(x_36, 0); +lean_dec(x_155); +x_156 = !lean_is_exclusive(x_37); +if (x_156 == 0) +{ +uint8_t x_157; +lean_ctor_set_uint8(x_37, sizeof(void*)*4, x_120); +x_157 = 0; +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_157); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_120); +return x_1; +} +else +{ +lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; uint8_t x_163; +x_158 = lean_ctor_get(x_37, 0); +x_159 = lean_ctor_get(x_37, 1); +x_160 = lean_ctor_get(x_37, 2); +x_161 = lean_ctor_get(x_37, 3); +lean_inc(x_161); +lean_inc(x_160); +lean_inc(x_159); +lean_inc(x_158); +lean_dec(x_37); +x_162 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_162, 0, x_158); +lean_ctor_set(x_162, 1, x_159); +lean_ctor_set(x_162, 2, x_160); +lean_ctor_set(x_162, 3, x_161); +lean_ctor_set_uint8(x_162, sizeof(void*)*4, x_120); +x_163 = 0; +lean_ctor_set(x_36, 0, x_162); +lean_ctor_set_uint8(x_36, sizeof(void*)*4, x_163); +lean_ctor_set(x_1, 3, x_36); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_120); +return x_1; +} +} +else +{ +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; uint8_t x_172; lean_object* x_173; +x_164 = lean_ctor_get(x_36, 1); +x_165 = lean_ctor_get(x_36, 2); +lean_inc(x_165); +lean_inc(x_164); +lean_dec(x_36); +x_166 = lean_ctor_get(x_37, 0); +lean_inc(x_166); +x_167 = lean_ctor_get(x_37, 1); +lean_inc(x_167); +x_168 = lean_ctor_get(x_37, 2); +lean_inc(x_168); +x_169 = lean_ctor_get(x_37, 3); +lean_inc(x_169); +if (lean_is_exclusive(x_37)) { + lean_ctor_release(x_37, 0); + lean_ctor_release(x_37, 1); + lean_ctor_release(x_37, 2); + lean_ctor_release(x_37, 3); + x_170 = x_37; +} else { + lean_dec_ref(x_37); + x_170 = lean_box(0); +} +if (lean_is_scalar(x_170)) { + x_171 = lean_alloc_ctor(1, 4, 1); +} else { + x_171 = x_170; +} +lean_ctor_set(x_171, 0, x_166); +lean_ctor_set(x_171, 1, x_167); +lean_ctor_set(x_171, 2, x_168); +lean_ctor_set(x_171, 3, x_169); +lean_ctor_set_uint8(x_171, sizeof(void*)*4, x_120); +x_172 = 0; +x_173 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_173, 0, x_171); +lean_ctor_set(x_173, 1, x_164); +lean_ctor_set(x_173, 2, x_165); +lean_ctor_set(x_173, 3, x_111); +lean_ctor_set_uint8(x_173, sizeof(void*)*4, x_172); +lean_ctor_set(x_1, 3, x_173); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_120); +return x_1; +} +} +} +} +} +} +} +} +else +{ +uint8_t x_174; +x_174 = l_RBNode_isRed___rarg(x_28); +if (x_174 == 0) +{ +lean_object* x_175; +x_175 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__2(x_28, x_2, x_3); +lean_ctor_set(x_1, 0, x_175); +return x_1; +} +else +{ +lean_object* x_176; lean_object* x_177; +x_176 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__2(x_28, x_2, x_3); +x_177 = lean_ctor_get(x_176, 0); +lean_inc(x_177); +if (lean_obj_tag(x_177) == 0) +{ +lean_object* x_178; +x_178 = lean_ctor_get(x_176, 3); +lean_inc(x_178); +if (lean_obj_tag(x_178) == 0) +{ +uint8_t x_179; +x_179 = !lean_is_exclusive(x_176); +if (x_179 == 0) +{ +lean_object* x_180; lean_object* x_181; uint8_t x_182; uint8_t x_183; +x_180 = lean_ctor_get(x_176, 3); +lean_dec(x_180); +x_181 = lean_ctor_get(x_176, 0); +lean_dec(x_181); +x_182 = 0; +lean_ctor_set(x_176, 0, x_178); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_182); +x_183 = 1; +lean_ctor_set(x_1, 0, x_176); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_183); +return x_1; +} +else +{ +lean_object* x_184; lean_object* x_185; uint8_t x_186; lean_object* x_187; uint8_t x_188; +x_184 = lean_ctor_get(x_176, 1); +x_185 = lean_ctor_get(x_176, 2); +lean_inc(x_185); +lean_inc(x_184); +lean_dec(x_176); +x_186 = 0; +x_187 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_187, 0, x_178); +lean_ctor_set(x_187, 1, x_184); +lean_ctor_set(x_187, 2, x_185); +lean_ctor_set(x_187, 3, x_178); +lean_ctor_set_uint8(x_187, sizeof(void*)*4, x_186); +x_188 = 1; +lean_ctor_set(x_1, 0, x_187); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_188); +return x_1; +} +} +else +{ +uint8_t x_189; +x_189 = lean_ctor_get_uint8(x_178, sizeof(void*)*4); +if (x_189 == 0) +{ +uint8_t x_190; +x_190 = !lean_is_exclusive(x_176); +if (x_190 == 0) +{ +lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; uint8_t x_195; +x_191 = lean_ctor_get(x_176, 1); +x_192 = lean_ctor_get(x_176, 2); +x_193 = lean_ctor_get(x_176, 3); +lean_dec(x_193); +x_194 = lean_ctor_get(x_176, 0); +lean_dec(x_194); +x_195 = !lean_is_exclusive(x_178); +if (x_195 == 0) +{ +lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; uint8_t x_200; +x_196 = lean_ctor_get(x_178, 0); +x_197 = lean_ctor_get(x_178, 1); +x_198 = lean_ctor_get(x_178, 2); +x_199 = lean_ctor_get(x_178, 3); +x_200 = 1; +lean_ctor_set(x_178, 3, x_196); +lean_ctor_set(x_178, 2, x_192); +lean_ctor_set(x_178, 1, x_191); +lean_ctor_set(x_178, 0, x_177); +lean_ctor_set_uint8(x_178, sizeof(void*)*4, x_200); +lean_ctor_set(x_176, 3, x_31); +lean_ctor_set(x_176, 2, x_30); +lean_ctor_set(x_176, 1, x_29); +lean_ctor_set(x_176, 0, x_199); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_200); +lean_ctor_set(x_1, 3, x_176); +lean_ctor_set(x_1, 2, x_198); +lean_ctor_set(x_1, 1, x_197); +lean_ctor_set(x_1, 0, x_178); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_189); +return x_1; +} +else +{ +lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; uint8_t x_205; lean_object* x_206; +x_201 = lean_ctor_get(x_178, 0); +x_202 = lean_ctor_get(x_178, 1); +x_203 = lean_ctor_get(x_178, 2); +x_204 = lean_ctor_get(x_178, 3); +lean_inc(x_204); +lean_inc(x_203); +lean_inc(x_202); +lean_inc(x_201); +lean_dec(x_178); +x_205 = 1; +x_206 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_206, 0, x_177); +lean_ctor_set(x_206, 1, x_191); +lean_ctor_set(x_206, 2, x_192); +lean_ctor_set(x_206, 3, x_201); +lean_ctor_set_uint8(x_206, sizeof(void*)*4, x_205); +lean_ctor_set(x_176, 3, x_31); +lean_ctor_set(x_176, 2, x_30); +lean_ctor_set(x_176, 1, x_29); +lean_ctor_set(x_176, 0, x_204); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_205); +lean_ctor_set(x_1, 3, x_176); +lean_ctor_set(x_1, 2, x_203); +lean_ctor_set(x_1, 1, x_202); +lean_ctor_set(x_1, 0, x_206); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_189); +return x_1; +} +} +else +{ +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; uint8_t x_214; lean_object* x_215; lean_object* x_216; +x_207 = lean_ctor_get(x_176, 1); +x_208 = lean_ctor_get(x_176, 2); +lean_inc(x_208); +lean_inc(x_207); +lean_dec(x_176); +x_209 = lean_ctor_get(x_178, 0); +lean_inc(x_209); +x_210 = lean_ctor_get(x_178, 1); +lean_inc(x_210); +x_211 = lean_ctor_get(x_178, 2); +lean_inc(x_211); +x_212 = lean_ctor_get(x_178, 3); +lean_inc(x_212); +if (lean_is_exclusive(x_178)) { + lean_ctor_release(x_178, 0); + lean_ctor_release(x_178, 1); + lean_ctor_release(x_178, 2); + lean_ctor_release(x_178, 3); + x_213 = x_178; +} else { + lean_dec_ref(x_178); + x_213 = lean_box(0); +} +x_214 = 1; +if (lean_is_scalar(x_213)) { + x_215 = lean_alloc_ctor(1, 4, 1); +} else { + x_215 = x_213; +} +lean_ctor_set(x_215, 0, x_177); +lean_ctor_set(x_215, 1, x_207); +lean_ctor_set(x_215, 2, x_208); +lean_ctor_set(x_215, 3, x_209); +lean_ctor_set_uint8(x_215, sizeof(void*)*4, x_214); +x_216 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_216, 0, x_212); +lean_ctor_set(x_216, 1, x_29); +lean_ctor_set(x_216, 2, x_30); +lean_ctor_set(x_216, 3, x_31); +lean_ctor_set_uint8(x_216, sizeof(void*)*4, x_214); +lean_ctor_set(x_1, 3, x_216); +lean_ctor_set(x_1, 2, x_211); +lean_ctor_set(x_1, 1, x_210); +lean_ctor_set(x_1, 0, x_215); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_189); +return x_1; +} +} +else +{ +uint8_t x_217; +x_217 = !lean_is_exclusive(x_176); +if (x_217 == 0) +{ +lean_object* x_218; lean_object* x_219; uint8_t x_220; +x_218 = lean_ctor_get(x_176, 3); +lean_dec(x_218); +x_219 = lean_ctor_get(x_176, 0); +lean_dec(x_219); +x_220 = 0; +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_220); +lean_ctor_set(x_1, 0, x_176); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_189); +return x_1; +} +else +{ +lean_object* x_221; lean_object* x_222; uint8_t x_223; lean_object* x_224; +x_221 = lean_ctor_get(x_176, 1); +x_222 = lean_ctor_get(x_176, 2); +lean_inc(x_222); +lean_inc(x_221); +lean_dec(x_176); +x_223 = 0; +x_224 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_224, 0, x_177); +lean_ctor_set(x_224, 1, x_221); +lean_ctor_set(x_224, 2, x_222); +lean_ctor_set(x_224, 3, x_178); +lean_ctor_set_uint8(x_224, sizeof(void*)*4, x_223); +lean_ctor_set(x_1, 0, x_224); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_189); +return x_1; +} +} +} +} +else +{ +uint8_t x_225; +x_225 = lean_ctor_get_uint8(x_177, sizeof(void*)*4); +if (x_225 == 0) +{ +uint8_t x_226; +x_226 = !lean_is_exclusive(x_176); +if (x_226 == 0) +{ +lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; uint8_t x_231; +x_227 = lean_ctor_get(x_176, 1); +x_228 = lean_ctor_get(x_176, 2); +x_229 = lean_ctor_get(x_176, 3); +x_230 = lean_ctor_get(x_176, 0); +lean_dec(x_230); +x_231 = !lean_is_exclusive(x_177); +if (x_231 == 0) +{ +uint8_t x_232; +x_232 = 1; +lean_ctor_set_uint8(x_177, sizeof(void*)*4, x_232); +lean_ctor_set(x_176, 3, x_31); +lean_ctor_set(x_176, 2, x_30); +lean_ctor_set(x_176, 1, x_29); +lean_ctor_set(x_176, 0, x_229); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_232); +lean_ctor_set(x_1, 3, x_176); +lean_ctor_set(x_1, 2, x_228); +lean_ctor_set(x_1, 1, x_227); +lean_ctor_set(x_1, 0, x_177); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_225); +return x_1; +} +else +{ +lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; uint8_t x_237; lean_object* x_238; +x_233 = lean_ctor_get(x_177, 0); +x_234 = lean_ctor_get(x_177, 1); +x_235 = lean_ctor_get(x_177, 2); +x_236 = lean_ctor_get(x_177, 3); +lean_inc(x_236); +lean_inc(x_235); +lean_inc(x_234); +lean_inc(x_233); +lean_dec(x_177); +x_237 = 1; +x_238 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_238, 0, x_233); +lean_ctor_set(x_238, 1, x_234); +lean_ctor_set(x_238, 2, x_235); +lean_ctor_set(x_238, 3, x_236); +lean_ctor_set_uint8(x_238, sizeof(void*)*4, x_237); +lean_ctor_set(x_176, 3, x_31); +lean_ctor_set(x_176, 2, x_30); +lean_ctor_set(x_176, 1, x_29); +lean_ctor_set(x_176, 0, x_229); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_237); +lean_ctor_set(x_1, 3, x_176); +lean_ctor_set(x_1, 2, x_228); +lean_ctor_set(x_1, 1, x_227); +lean_ctor_set(x_1, 0, x_238); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_225); +return x_1; +} +} +else +{ +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; uint8_t x_247; lean_object* x_248; lean_object* x_249; +x_239 = lean_ctor_get(x_176, 1); +x_240 = lean_ctor_get(x_176, 2); +x_241 = lean_ctor_get(x_176, 3); +lean_inc(x_241); +lean_inc(x_240); +lean_inc(x_239); +lean_dec(x_176); +x_242 = lean_ctor_get(x_177, 0); +lean_inc(x_242); +x_243 = lean_ctor_get(x_177, 1); +lean_inc(x_243); +x_244 = lean_ctor_get(x_177, 2); +lean_inc(x_244); +x_245 = lean_ctor_get(x_177, 3); +lean_inc(x_245); +if (lean_is_exclusive(x_177)) { + lean_ctor_release(x_177, 0); + lean_ctor_release(x_177, 1); + lean_ctor_release(x_177, 2); + lean_ctor_release(x_177, 3); + x_246 = x_177; +} else { + lean_dec_ref(x_177); + x_246 = lean_box(0); +} +x_247 = 1; +if (lean_is_scalar(x_246)) { + x_248 = lean_alloc_ctor(1, 4, 1); +} else { + x_248 = x_246; +} +lean_ctor_set(x_248, 0, x_242); +lean_ctor_set(x_248, 1, x_243); +lean_ctor_set(x_248, 2, x_244); +lean_ctor_set(x_248, 3, x_245); +lean_ctor_set_uint8(x_248, sizeof(void*)*4, x_247); +x_249 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_249, 0, x_241); +lean_ctor_set(x_249, 1, x_29); +lean_ctor_set(x_249, 2, x_30); +lean_ctor_set(x_249, 3, x_31); +lean_ctor_set_uint8(x_249, sizeof(void*)*4, x_247); +lean_ctor_set(x_1, 3, x_249); +lean_ctor_set(x_1, 2, x_240); +lean_ctor_set(x_1, 1, x_239); +lean_ctor_set(x_1, 0, x_248); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_225); +return x_1; +} +} +else +{ +lean_object* x_250; +x_250 = lean_ctor_get(x_176, 3); +lean_inc(x_250); +if (lean_obj_tag(x_250) == 0) +{ +uint8_t x_251; +x_251 = !lean_is_exclusive(x_176); +if (x_251 == 0) +{ +lean_object* x_252; lean_object* x_253; uint8_t x_254; +x_252 = lean_ctor_get(x_176, 3); +lean_dec(x_252); +x_253 = lean_ctor_get(x_176, 0); +lean_dec(x_253); +x_254 = 0; +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_254); +lean_ctor_set(x_1, 0, x_176); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_225); +return x_1; +} +else +{ +lean_object* x_255; lean_object* x_256; uint8_t x_257; lean_object* x_258; +x_255 = lean_ctor_get(x_176, 1); +x_256 = lean_ctor_get(x_176, 2); +lean_inc(x_256); +lean_inc(x_255); +lean_dec(x_176); +x_257 = 0; +x_258 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_258, 0, x_177); +lean_ctor_set(x_258, 1, x_255); +lean_ctor_set(x_258, 2, x_256); +lean_ctor_set(x_258, 3, x_250); +lean_ctor_set_uint8(x_258, sizeof(void*)*4, x_257); +lean_ctor_set(x_1, 0, x_258); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_225); +return x_1; +} +} +else +{ +uint8_t x_259; +x_259 = lean_ctor_get_uint8(x_250, sizeof(void*)*4); +if (x_259 == 0) +{ +uint8_t x_260; +lean_free_object(x_1); +x_260 = !lean_is_exclusive(x_176); +if (x_260 == 0) +{ +lean_object* x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; uint8_t x_265; +x_261 = lean_ctor_get(x_176, 1); +x_262 = lean_ctor_get(x_176, 2); +x_263 = lean_ctor_get(x_176, 3); +lean_dec(x_263); +x_264 = lean_ctor_get(x_176, 0); +lean_dec(x_264); +x_265 = !lean_is_exclusive(x_250); +if (x_265 == 0) +{ +lean_object* x_266; lean_object* x_267; lean_object* x_268; lean_object* x_269; uint8_t x_270; +x_266 = lean_ctor_get(x_250, 0); +x_267 = lean_ctor_get(x_250, 1); +x_268 = lean_ctor_get(x_250, 2); +x_269 = lean_ctor_get(x_250, 3); +lean_inc(x_177); +lean_ctor_set(x_250, 3, x_266); +lean_ctor_set(x_250, 2, x_262); +lean_ctor_set(x_250, 1, x_261); +lean_ctor_set(x_250, 0, x_177); +x_270 = !lean_is_exclusive(x_177); +if (x_270 == 0) +{ +lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; +x_271 = lean_ctor_get(x_177, 3); +lean_dec(x_271); +x_272 = lean_ctor_get(x_177, 2); +lean_dec(x_272); +x_273 = lean_ctor_get(x_177, 1); +lean_dec(x_273); +x_274 = lean_ctor_get(x_177, 0); +lean_dec(x_274); +lean_ctor_set_uint8(x_250, sizeof(void*)*4, x_225); +lean_ctor_set(x_177, 3, x_31); +lean_ctor_set(x_177, 2, x_30); +lean_ctor_set(x_177, 1, x_29); +lean_ctor_set(x_177, 0, x_269); +lean_ctor_set(x_176, 3, x_177); +lean_ctor_set(x_176, 2, x_268); +lean_ctor_set(x_176, 1, x_267); +lean_ctor_set(x_176, 0, x_250); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_259); +return x_176; +} +else +{ +lean_object* x_275; +lean_dec(x_177); +lean_ctor_set_uint8(x_250, sizeof(void*)*4, x_225); +x_275 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_275, 0, x_269); +lean_ctor_set(x_275, 1, x_29); +lean_ctor_set(x_275, 2, x_30); +lean_ctor_set(x_275, 3, x_31); +lean_ctor_set_uint8(x_275, sizeof(void*)*4, x_225); +lean_ctor_set(x_176, 3, x_275); +lean_ctor_set(x_176, 2, x_268); +lean_ctor_set(x_176, 1, x_267); +lean_ctor_set(x_176, 0, x_250); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_259); +return x_176; +} +} +else +{ +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; +x_276 = lean_ctor_get(x_250, 0); +x_277 = lean_ctor_get(x_250, 1); +x_278 = lean_ctor_get(x_250, 2); +x_279 = lean_ctor_get(x_250, 3); +lean_inc(x_279); +lean_inc(x_278); +lean_inc(x_277); +lean_inc(x_276); +lean_dec(x_250); +lean_inc(x_177); +x_280 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_280, 0, x_177); +lean_ctor_set(x_280, 1, x_261); +lean_ctor_set(x_280, 2, x_262); +lean_ctor_set(x_280, 3, x_276); +if (lean_is_exclusive(x_177)) { + lean_ctor_release(x_177, 0); + lean_ctor_release(x_177, 1); + lean_ctor_release(x_177, 2); + lean_ctor_release(x_177, 3); + x_281 = x_177; +} else { + lean_dec_ref(x_177); + x_281 = lean_box(0); +} +lean_ctor_set_uint8(x_280, sizeof(void*)*4, x_225); +if (lean_is_scalar(x_281)) { + x_282 = lean_alloc_ctor(1, 4, 1); +} else { + x_282 = x_281; +} +lean_ctor_set(x_282, 0, x_279); +lean_ctor_set(x_282, 1, x_29); +lean_ctor_set(x_282, 2, x_30); +lean_ctor_set(x_282, 3, x_31); +lean_ctor_set_uint8(x_282, sizeof(void*)*4, x_225); +lean_ctor_set(x_176, 3, x_282); +lean_ctor_set(x_176, 2, x_278); +lean_ctor_set(x_176, 1, x_277); +lean_ctor_set(x_176, 0, x_280); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_259); +return x_176; +} +} +else +{ +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_283 = lean_ctor_get(x_176, 1); +x_284 = lean_ctor_get(x_176, 2); +lean_inc(x_284); +lean_inc(x_283); +lean_dec(x_176); +x_285 = lean_ctor_get(x_250, 0); +lean_inc(x_285); +x_286 = lean_ctor_get(x_250, 1); +lean_inc(x_286); +x_287 = lean_ctor_get(x_250, 2); +lean_inc(x_287); +x_288 = lean_ctor_get(x_250, 3); +lean_inc(x_288); +if (lean_is_exclusive(x_250)) { + lean_ctor_release(x_250, 0); + lean_ctor_release(x_250, 1); + lean_ctor_release(x_250, 2); + lean_ctor_release(x_250, 3); + x_289 = x_250; +} else { + lean_dec_ref(x_250); + x_289 = lean_box(0); +} +lean_inc(x_177); +if (lean_is_scalar(x_289)) { + x_290 = lean_alloc_ctor(1, 4, 1); +} else { + x_290 = x_289; +} +lean_ctor_set(x_290, 0, x_177); +lean_ctor_set(x_290, 1, x_283); +lean_ctor_set(x_290, 2, x_284); +lean_ctor_set(x_290, 3, x_285); +if (lean_is_exclusive(x_177)) { + lean_ctor_release(x_177, 0); + lean_ctor_release(x_177, 1); + lean_ctor_release(x_177, 2); + lean_ctor_release(x_177, 3); + x_291 = x_177; +} else { + lean_dec_ref(x_177); + x_291 = lean_box(0); +} +lean_ctor_set_uint8(x_290, sizeof(void*)*4, x_225); +if (lean_is_scalar(x_291)) { + x_292 = lean_alloc_ctor(1, 4, 1); +} else { + x_292 = x_291; +} +lean_ctor_set(x_292, 0, x_288); +lean_ctor_set(x_292, 1, x_29); +lean_ctor_set(x_292, 2, x_30); +lean_ctor_set(x_292, 3, x_31); +lean_ctor_set_uint8(x_292, sizeof(void*)*4, x_225); +x_293 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_293, 0, x_290); +lean_ctor_set(x_293, 1, x_286); +lean_ctor_set(x_293, 2, x_287); +lean_ctor_set(x_293, 3, x_292); +lean_ctor_set_uint8(x_293, sizeof(void*)*4, x_259); +return x_293; +} +} +else +{ +uint8_t x_294; +x_294 = !lean_is_exclusive(x_176); +if (x_294 == 0) +{ +lean_object* x_295; lean_object* x_296; uint8_t x_297; +x_295 = lean_ctor_get(x_176, 3); +lean_dec(x_295); +x_296 = lean_ctor_get(x_176, 0); +lean_dec(x_296); +x_297 = !lean_is_exclusive(x_177); +if (x_297 == 0) +{ +uint8_t x_298; +lean_ctor_set_uint8(x_177, sizeof(void*)*4, x_259); +x_298 = 0; +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_298); +lean_ctor_set(x_1, 0, x_176); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_259); +return x_1; +} +else +{ +lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; uint8_t x_304; +x_299 = lean_ctor_get(x_177, 0); +x_300 = lean_ctor_get(x_177, 1); +x_301 = lean_ctor_get(x_177, 2); +x_302 = lean_ctor_get(x_177, 3); +lean_inc(x_302); +lean_inc(x_301); +lean_inc(x_300); +lean_inc(x_299); +lean_dec(x_177); +x_303 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_303, 0, x_299); +lean_ctor_set(x_303, 1, x_300); +lean_ctor_set(x_303, 2, x_301); +lean_ctor_set(x_303, 3, x_302); +lean_ctor_set_uint8(x_303, sizeof(void*)*4, x_259); +x_304 = 0; +lean_ctor_set(x_176, 0, x_303); +lean_ctor_set_uint8(x_176, sizeof(void*)*4, x_304); +lean_ctor_set(x_1, 0, x_176); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_259); +return x_1; +} +} +else +{ +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; uint8_t x_313; lean_object* x_314; +x_305 = lean_ctor_get(x_176, 1); +x_306 = lean_ctor_get(x_176, 2); +lean_inc(x_306); +lean_inc(x_305); +lean_dec(x_176); +x_307 = lean_ctor_get(x_177, 0); +lean_inc(x_307); +x_308 = lean_ctor_get(x_177, 1); +lean_inc(x_308); +x_309 = lean_ctor_get(x_177, 2); +lean_inc(x_309); +x_310 = lean_ctor_get(x_177, 3); +lean_inc(x_310); +if (lean_is_exclusive(x_177)) { + lean_ctor_release(x_177, 0); + lean_ctor_release(x_177, 1); + lean_ctor_release(x_177, 2); + lean_ctor_release(x_177, 3); + x_311 = x_177; +} else { + lean_dec_ref(x_177); + x_311 = lean_box(0); +} +if (lean_is_scalar(x_311)) { + x_312 = lean_alloc_ctor(1, 4, 1); +} else { + x_312 = x_311; +} +lean_ctor_set(x_312, 0, x_307); +lean_ctor_set(x_312, 1, x_308); +lean_ctor_set(x_312, 2, x_309); +lean_ctor_set(x_312, 3, x_310); +lean_ctor_set_uint8(x_312, sizeof(void*)*4, x_259); +x_313 = 0; +x_314 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_314, 0, x_312); +lean_ctor_set(x_314, 1, x_305); +lean_ctor_set(x_314, 2, x_306); +lean_ctor_set(x_314, 3, x_250); +lean_ctor_set_uint8(x_314, sizeof(void*)*4, x_313); +lean_ctor_set(x_1, 0, x_314); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_259); +return x_1; +} +} +} +} +} +} +} +} +else +{ +lean_object* x_315; lean_object* x_316; lean_object* x_317; lean_object* x_318; uint8_t x_319; +x_315 = lean_ctor_get(x_1, 0); +x_316 = lean_ctor_get(x_1, 1); +x_317 = lean_ctor_get(x_1, 2); +x_318 = lean_ctor_get(x_1, 3); +lean_inc(x_318); +lean_inc(x_317); +lean_inc(x_316); +lean_inc(x_315); +lean_dec(x_1); +x_319 = l_Lean_Name_quickLt(x_2, x_316); +if (x_319 == 0) +{ +uint8_t x_320; +x_320 = l_Lean_Name_quickLt(x_316, x_2); +if (x_320 == 0) +{ +lean_object* x_321; +lean_dec(x_317); +lean_dec(x_316); +x_321 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_321, 0, x_315); +lean_ctor_set(x_321, 1, x_2); +lean_ctor_set(x_321, 2, x_3); +lean_ctor_set(x_321, 3, x_318); +lean_ctor_set_uint8(x_321, sizeof(void*)*4, x_6); +return x_321; +} +else +{ +uint8_t x_322; +x_322 = l_RBNode_isRed___rarg(x_318); +if (x_322 == 0) +{ +lean_object* x_323; lean_object* x_324; +x_323 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__2(x_318, x_2, x_3); +x_324 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_324, 0, x_315); +lean_ctor_set(x_324, 1, x_316); +lean_ctor_set(x_324, 2, x_317); +lean_ctor_set(x_324, 3, x_323); +lean_ctor_set_uint8(x_324, sizeof(void*)*4, x_6); +return x_324; +} +else +{ +lean_object* x_325; lean_object* x_326; +x_325 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__2(x_318, x_2, x_3); +x_326 = lean_ctor_get(x_325, 0); +lean_inc(x_326); +if (lean_obj_tag(x_326) == 0) +{ +lean_object* x_327; +x_327 = lean_ctor_get(x_325, 3); +lean_inc(x_327); +if (lean_obj_tag(x_327) == 0) +{ +lean_object* x_328; lean_object* x_329; lean_object* x_330; uint8_t x_331; lean_object* x_332; uint8_t x_333; lean_object* x_334; +x_328 = lean_ctor_get(x_325, 1); +lean_inc(x_328); +x_329 = lean_ctor_get(x_325, 2); +lean_inc(x_329); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_330 = x_325; +} else { + lean_dec_ref(x_325); + x_330 = lean_box(0); +} +x_331 = 0; +if (lean_is_scalar(x_330)) { + x_332 = lean_alloc_ctor(1, 4, 1); +} else { + x_332 = x_330; +} +lean_ctor_set(x_332, 0, x_327); +lean_ctor_set(x_332, 1, x_328); +lean_ctor_set(x_332, 2, x_329); +lean_ctor_set(x_332, 3, x_327); +lean_ctor_set_uint8(x_332, sizeof(void*)*4, x_331); +x_333 = 1; +x_334 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_334, 0, x_315); +lean_ctor_set(x_334, 1, x_316); +lean_ctor_set(x_334, 2, x_317); +lean_ctor_set(x_334, 3, x_332); +lean_ctor_set_uint8(x_334, sizeof(void*)*4, x_333); +return x_334; +} +else +{ +uint8_t x_335; +x_335 = lean_ctor_get_uint8(x_327, sizeof(void*)*4); +if (x_335 == 0) +{ +lean_object* x_336; 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; uint8_t x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; +x_336 = lean_ctor_get(x_325, 1); +lean_inc(x_336); +x_337 = lean_ctor_get(x_325, 2); +lean_inc(x_337); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_338 = x_325; +} else { + lean_dec_ref(x_325); + x_338 = lean_box(0); +} +x_339 = lean_ctor_get(x_327, 0); +lean_inc(x_339); +x_340 = lean_ctor_get(x_327, 1); +lean_inc(x_340); +x_341 = lean_ctor_get(x_327, 2); +lean_inc(x_341); +x_342 = lean_ctor_get(x_327, 3); +lean_inc(x_342); +if (lean_is_exclusive(x_327)) { + lean_ctor_release(x_327, 0); + lean_ctor_release(x_327, 1); + lean_ctor_release(x_327, 2); + lean_ctor_release(x_327, 3); + x_343 = x_327; +} else { + lean_dec_ref(x_327); + x_343 = lean_box(0); +} +x_344 = 1; +if (lean_is_scalar(x_343)) { + x_345 = lean_alloc_ctor(1, 4, 1); +} else { + x_345 = x_343; +} +lean_ctor_set(x_345, 0, x_315); +lean_ctor_set(x_345, 1, x_316); +lean_ctor_set(x_345, 2, x_317); +lean_ctor_set(x_345, 3, x_326); +lean_ctor_set_uint8(x_345, sizeof(void*)*4, x_344); +if (lean_is_scalar(x_338)) { + x_346 = lean_alloc_ctor(1, 4, 1); +} else { + x_346 = x_338; +} +lean_ctor_set(x_346, 0, x_339); +lean_ctor_set(x_346, 1, x_340); +lean_ctor_set(x_346, 2, x_341); +lean_ctor_set(x_346, 3, x_342); +lean_ctor_set_uint8(x_346, sizeof(void*)*4, x_344); +x_347 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_347, 0, x_345); +lean_ctor_set(x_347, 1, x_336); +lean_ctor_set(x_347, 2, x_337); +lean_ctor_set(x_347, 3, x_346); +lean_ctor_set_uint8(x_347, sizeof(void*)*4, x_335); +return x_347; +} +else +{ +lean_object* x_348; lean_object* x_349; lean_object* x_350; uint8_t x_351; lean_object* x_352; lean_object* x_353; +x_348 = lean_ctor_get(x_325, 1); +lean_inc(x_348); +x_349 = lean_ctor_get(x_325, 2); +lean_inc(x_349); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_350 = x_325; +} else { + lean_dec_ref(x_325); + x_350 = lean_box(0); +} +x_351 = 0; +if (lean_is_scalar(x_350)) { + x_352 = lean_alloc_ctor(1, 4, 1); +} else { + x_352 = x_350; +} +lean_ctor_set(x_352, 0, x_326); +lean_ctor_set(x_352, 1, x_348); +lean_ctor_set(x_352, 2, x_349); +lean_ctor_set(x_352, 3, x_327); +lean_ctor_set_uint8(x_352, sizeof(void*)*4, x_351); +x_353 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_353, 0, x_315); +lean_ctor_set(x_353, 1, x_316); +lean_ctor_set(x_353, 2, x_317); +lean_ctor_set(x_353, 3, x_352); +lean_ctor_set_uint8(x_353, sizeof(void*)*4, x_335); +return x_353; +} +} +} +else +{ +uint8_t x_354; +x_354 = lean_ctor_get_uint8(x_326, sizeof(void*)*4); +if (x_354 == 0) +{ +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; uint8_t x_364; lean_object* x_365; lean_object* x_366; lean_object* x_367; +x_355 = lean_ctor_get(x_325, 1); +lean_inc(x_355); +x_356 = lean_ctor_get(x_325, 2); +lean_inc(x_356); +x_357 = lean_ctor_get(x_325, 3); +lean_inc(x_357); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_358 = x_325; +} else { + lean_dec_ref(x_325); + x_358 = lean_box(0); +} +x_359 = lean_ctor_get(x_326, 0); +lean_inc(x_359); +x_360 = lean_ctor_get(x_326, 1); +lean_inc(x_360); +x_361 = lean_ctor_get(x_326, 2); +lean_inc(x_361); +x_362 = lean_ctor_get(x_326, 3); +lean_inc(x_362); +if (lean_is_exclusive(x_326)) { + lean_ctor_release(x_326, 0); + lean_ctor_release(x_326, 1); + lean_ctor_release(x_326, 2); + lean_ctor_release(x_326, 3); + x_363 = x_326; +} else { + lean_dec_ref(x_326); + x_363 = lean_box(0); +} +x_364 = 1; +if (lean_is_scalar(x_363)) { + x_365 = lean_alloc_ctor(1, 4, 1); +} else { + x_365 = x_363; +} +lean_ctor_set(x_365, 0, x_315); +lean_ctor_set(x_365, 1, x_316); +lean_ctor_set(x_365, 2, x_317); +lean_ctor_set(x_365, 3, x_359); +lean_ctor_set_uint8(x_365, sizeof(void*)*4, x_364); +if (lean_is_scalar(x_358)) { + x_366 = lean_alloc_ctor(1, 4, 1); +} else { + x_366 = x_358; +} +lean_ctor_set(x_366, 0, x_362); +lean_ctor_set(x_366, 1, x_355); +lean_ctor_set(x_366, 2, x_356); +lean_ctor_set(x_366, 3, x_357); +lean_ctor_set_uint8(x_366, sizeof(void*)*4, x_364); +x_367 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_367, 0, x_365); +lean_ctor_set(x_367, 1, x_360); +lean_ctor_set(x_367, 2, x_361); +lean_ctor_set(x_367, 3, x_366); +lean_ctor_set_uint8(x_367, sizeof(void*)*4, x_354); +return x_367; +} +else +{ +lean_object* x_368; +x_368 = lean_ctor_get(x_325, 3); +lean_inc(x_368); +if (lean_obj_tag(x_368) == 0) +{ +lean_object* x_369; lean_object* x_370; lean_object* x_371; uint8_t x_372; lean_object* x_373; lean_object* x_374; +x_369 = lean_ctor_get(x_325, 1); +lean_inc(x_369); +x_370 = lean_ctor_get(x_325, 2); +lean_inc(x_370); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_371 = x_325; +} else { + lean_dec_ref(x_325); + x_371 = lean_box(0); +} +x_372 = 0; +if (lean_is_scalar(x_371)) { + x_373 = lean_alloc_ctor(1, 4, 1); +} else { + x_373 = x_371; +} +lean_ctor_set(x_373, 0, x_326); +lean_ctor_set(x_373, 1, x_369); +lean_ctor_set(x_373, 2, x_370); +lean_ctor_set(x_373, 3, x_368); +lean_ctor_set_uint8(x_373, sizeof(void*)*4, x_372); +x_374 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_374, 0, x_315); +lean_ctor_set(x_374, 1, x_316); +lean_ctor_set(x_374, 2, x_317); +lean_ctor_set(x_374, 3, x_373); +lean_ctor_set_uint8(x_374, sizeof(void*)*4, x_354); +return x_374; +} +else +{ +uint8_t x_375; +x_375 = lean_ctor_get_uint8(x_368, sizeof(void*)*4); +if (x_375 == 0) +{ +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; +x_376 = lean_ctor_get(x_325, 1); +lean_inc(x_376); +x_377 = lean_ctor_get(x_325, 2); +lean_inc(x_377); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_378 = x_325; +} else { + lean_dec_ref(x_325); + x_378 = lean_box(0); +} +x_379 = lean_ctor_get(x_368, 0); +lean_inc(x_379); +x_380 = lean_ctor_get(x_368, 1); +lean_inc(x_380); +x_381 = lean_ctor_get(x_368, 2); +lean_inc(x_381); +x_382 = lean_ctor_get(x_368, 3); +lean_inc(x_382); +if (lean_is_exclusive(x_368)) { + lean_ctor_release(x_368, 0); + lean_ctor_release(x_368, 1); + lean_ctor_release(x_368, 2); + lean_ctor_release(x_368, 3); + x_383 = x_368; +} else { + lean_dec_ref(x_368); + x_383 = lean_box(0); +} +lean_inc(x_326); +if (lean_is_scalar(x_383)) { + x_384 = lean_alloc_ctor(1, 4, 1); +} else { + x_384 = x_383; +} +lean_ctor_set(x_384, 0, x_315); +lean_ctor_set(x_384, 1, x_316); +lean_ctor_set(x_384, 2, x_317); +lean_ctor_set(x_384, 3, x_326); +if (lean_is_exclusive(x_326)) { + lean_ctor_release(x_326, 0); + lean_ctor_release(x_326, 1); + lean_ctor_release(x_326, 2); + lean_ctor_release(x_326, 3); + x_385 = x_326; +} else { + lean_dec_ref(x_326); + x_385 = lean_box(0); +} +lean_ctor_set_uint8(x_384, sizeof(void*)*4, x_354); +if (lean_is_scalar(x_385)) { + x_386 = lean_alloc_ctor(1, 4, 1); +} else { + x_386 = x_385; +} +lean_ctor_set(x_386, 0, x_379); +lean_ctor_set(x_386, 1, x_380); +lean_ctor_set(x_386, 2, x_381); +lean_ctor_set(x_386, 3, x_382); +lean_ctor_set_uint8(x_386, sizeof(void*)*4, x_354); +if (lean_is_scalar(x_378)) { + x_387 = lean_alloc_ctor(1, 4, 1); +} else { + x_387 = x_378; +} +lean_ctor_set(x_387, 0, x_384); +lean_ctor_set(x_387, 1, x_376); +lean_ctor_set(x_387, 2, x_377); +lean_ctor_set(x_387, 3, x_386); +lean_ctor_set_uint8(x_387, sizeof(void*)*4, x_375); +return x_387; +} +else +{ +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; uint8_t x_397; lean_object* x_398; lean_object* x_399; +x_388 = lean_ctor_get(x_325, 1); +lean_inc(x_388); +x_389 = lean_ctor_get(x_325, 2); +lean_inc(x_389); +if (lean_is_exclusive(x_325)) { + lean_ctor_release(x_325, 0); + lean_ctor_release(x_325, 1); + lean_ctor_release(x_325, 2); + lean_ctor_release(x_325, 3); + x_390 = x_325; +} else { + lean_dec_ref(x_325); + x_390 = lean_box(0); +} +x_391 = lean_ctor_get(x_326, 0); +lean_inc(x_391); +x_392 = lean_ctor_get(x_326, 1); +lean_inc(x_392); +x_393 = lean_ctor_get(x_326, 2); +lean_inc(x_393); +x_394 = lean_ctor_get(x_326, 3); +lean_inc(x_394); +if (lean_is_exclusive(x_326)) { + lean_ctor_release(x_326, 0); + lean_ctor_release(x_326, 1); + lean_ctor_release(x_326, 2); + lean_ctor_release(x_326, 3); + x_395 = x_326; +} else { + lean_dec_ref(x_326); + x_395 = lean_box(0); +} +if (lean_is_scalar(x_395)) { + x_396 = lean_alloc_ctor(1, 4, 1); +} else { + x_396 = x_395; +} +lean_ctor_set(x_396, 0, x_391); +lean_ctor_set(x_396, 1, x_392); +lean_ctor_set(x_396, 2, x_393); +lean_ctor_set(x_396, 3, x_394); +lean_ctor_set_uint8(x_396, sizeof(void*)*4, x_375); +x_397 = 0; +if (lean_is_scalar(x_390)) { + x_398 = lean_alloc_ctor(1, 4, 1); +} else { + x_398 = x_390; +} +lean_ctor_set(x_398, 0, x_396); +lean_ctor_set(x_398, 1, x_388); +lean_ctor_set(x_398, 2, x_389); +lean_ctor_set(x_398, 3, x_368); +lean_ctor_set_uint8(x_398, sizeof(void*)*4, x_397); +x_399 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_399, 0, x_315); +lean_ctor_set(x_399, 1, x_316); +lean_ctor_set(x_399, 2, x_317); +lean_ctor_set(x_399, 3, x_398); +lean_ctor_set_uint8(x_399, sizeof(void*)*4, x_375); +return x_399; +} +} +} +} +} +} +} +else +{ +uint8_t x_400; +x_400 = l_RBNode_isRed___rarg(x_315); +if (x_400 == 0) +{ +lean_object* x_401; lean_object* x_402; +x_401 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__2(x_315, x_2, x_3); +x_402 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_402, 0, x_401); +lean_ctor_set(x_402, 1, x_316); +lean_ctor_set(x_402, 2, x_317); +lean_ctor_set(x_402, 3, x_318); +lean_ctor_set_uint8(x_402, sizeof(void*)*4, x_6); +return x_402; +} +else +{ +lean_object* x_403; lean_object* x_404; +x_403 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__2(x_315, x_2, x_3); +x_404 = lean_ctor_get(x_403, 0); +lean_inc(x_404); +if (lean_obj_tag(x_404) == 0) +{ +lean_object* x_405; +x_405 = lean_ctor_get(x_403, 3); +lean_inc(x_405); +if (lean_obj_tag(x_405) == 0) +{ +lean_object* x_406; lean_object* x_407; lean_object* x_408; uint8_t x_409; lean_object* x_410; uint8_t x_411; lean_object* x_412; +x_406 = lean_ctor_get(x_403, 1); +lean_inc(x_406); +x_407 = lean_ctor_get(x_403, 2); +lean_inc(x_407); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_408 = x_403; +} else { + lean_dec_ref(x_403); + x_408 = lean_box(0); +} +x_409 = 0; +if (lean_is_scalar(x_408)) { + x_410 = lean_alloc_ctor(1, 4, 1); +} else { + x_410 = x_408; +} +lean_ctor_set(x_410, 0, x_405); +lean_ctor_set(x_410, 1, x_406); +lean_ctor_set(x_410, 2, x_407); +lean_ctor_set(x_410, 3, x_405); +lean_ctor_set_uint8(x_410, sizeof(void*)*4, x_409); +x_411 = 1; +x_412 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_412, 0, x_410); +lean_ctor_set(x_412, 1, x_316); +lean_ctor_set(x_412, 2, x_317); +lean_ctor_set(x_412, 3, x_318); +lean_ctor_set_uint8(x_412, sizeof(void*)*4, x_411); +return x_412; +} +else +{ +uint8_t x_413; +x_413 = lean_ctor_get_uint8(x_405, sizeof(void*)*4); +if (x_413 == 0) +{ +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; uint8_t x_422; lean_object* x_423; lean_object* x_424; lean_object* x_425; +x_414 = lean_ctor_get(x_403, 1); +lean_inc(x_414); +x_415 = lean_ctor_get(x_403, 2); +lean_inc(x_415); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_416 = x_403; +} else { + lean_dec_ref(x_403); + x_416 = lean_box(0); +} +x_417 = lean_ctor_get(x_405, 0); +lean_inc(x_417); +x_418 = lean_ctor_get(x_405, 1); +lean_inc(x_418); +x_419 = lean_ctor_get(x_405, 2); +lean_inc(x_419); +x_420 = lean_ctor_get(x_405, 3); +lean_inc(x_420); +if (lean_is_exclusive(x_405)) { + lean_ctor_release(x_405, 0); + lean_ctor_release(x_405, 1); + lean_ctor_release(x_405, 2); + lean_ctor_release(x_405, 3); + x_421 = x_405; +} else { + lean_dec_ref(x_405); + x_421 = lean_box(0); +} +x_422 = 1; +if (lean_is_scalar(x_421)) { + x_423 = lean_alloc_ctor(1, 4, 1); +} else { + x_423 = x_421; +} +lean_ctor_set(x_423, 0, x_404); +lean_ctor_set(x_423, 1, x_414); +lean_ctor_set(x_423, 2, x_415); +lean_ctor_set(x_423, 3, x_417); +lean_ctor_set_uint8(x_423, sizeof(void*)*4, x_422); +if (lean_is_scalar(x_416)) { + x_424 = lean_alloc_ctor(1, 4, 1); +} else { + x_424 = x_416; +} +lean_ctor_set(x_424, 0, x_420); +lean_ctor_set(x_424, 1, x_316); +lean_ctor_set(x_424, 2, x_317); +lean_ctor_set(x_424, 3, x_318); +lean_ctor_set_uint8(x_424, sizeof(void*)*4, x_422); +x_425 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_425, 0, x_423); +lean_ctor_set(x_425, 1, x_418); +lean_ctor_set(x_425, 2, x_419); +lean_ctor_set(x_425, 3, x_424); +lean_ctor_set_uint8(x_425, sizeof(void*)*4, x_413); +return x_425; +} +else +{ +lean_object* x_426; lean_object* x_427; lean_object* x_428; uint8_t x_429; lean_object* x_430; lean_object* x_431; +x_426 = lean_ctor_get(x_403, 1); +lean_inc(x_426); +x_427 = lean_ctor_get(x_403, 2); +lean_inc(x_427); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_428 = x_403; +} else { + lean_dec_ref(x_403); + x_428 = lean_box(0); +} +x_429 = 0; +if (lean_is_scalar(x_428)) { + x_430 = lean_alloc_ctor(1, 4, 1); +} else { + x_430 = x_428; +} +lean_ctor_set(x_430, 0, x_404); +lean_ctor_set(x_430, 1, x_426); +lean_ctor_set(x_430, 2, x_427); +lean_ctor_set(x_430, 3, x_405); +lean_ctor_set_uint8(x_430, sizeof(void*)*4, x_429); +x_431 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_431, 0, x_430); +lean_ctor_set(x_431, 1, x_316); +lean_ctor_set(x_431, 2, x_317); +lean_ctor_set(x_431, 3, x_318); +lean_ctor_set_uint8(x_431, sizeof(void*)*4, x_413); +return x_431; +} +} +} +else +{ +uint8_t x_432; +x_432 = lean_ctor_get_uint8(x_404, sizeof(void*)*4); +if (x_432 == 0) +{ +lean_object* x_433; lean_object* x_434; lean_object* x_435; lean_object* x_436; lean_object* x_437; lean_object* x_438; lean_object* x_439; lean_object* x_440; lean_object* x_441; uint8_t x_442; lean_object* x_443; lean_object* x_444; lean_object* x_445; +x_433 = lean_ctor_get(x_403, 1); +lean_inc(x_433); +x_434 = lean_ctor_get(x_403, 2); +lean_inc(x_434); +x_435 = lean_ctor_get(x_403, 3); +lean_inc(x_435); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_436 = x_403; +} else { + lean_dec_ref(x_403); + x_436 = lean_box(0); +} +x_437 = lean_ctor_get(x_404, 0); +lean_inc(x_437); +x_438 = lean_ctor_get(x_404, 1); +lean_inc(x_438); +x_439 = lean_ctor_get(x_404, 2); +lean_inc(x_439); +x_440 = lean_ctor_get(x_404, 3); +lean_inc(x_440); +if (lean_is_exclusive(x_404)) { + lean_ctor_release(x_404, 0); + lean_ctor_release(x_404, 1); + lean_ctor_release(x_404, 2); + lean_ctor_release(x_404, 3); + x_441 = x_404; +} else { + lean_dec_ref(x_404); + x_441 = lean_box(0); +} +x_442 = 1; +if (lean_is_scalar(x_441)) { + x_443 = lean_alloc_ctor(1, 4, 1); +} else { + x_443 = x_441; +} +lean_ctor_set(x_443, 0, x_437); +lean_ctor_set(x_443, 1, x_438); +lean_ctor_set(x_443, 2, x_439); +lean_ctor_set(x_443, 3, x_440); +lean_ctor_set_uint8(x_443, sizeof(void*)*4, x_442); +if (lean_is_scalar(x_436)) { + x_444 = lean_alloc_ctor(1, 4, 1); +} else { + x_444 = x_436; +} +lean_ctor_set(x_444, 0, x_435); +lean_ctor_set(x_444, 1, x_316); +lean_ctor_set(x_444, 2, x_317); +lean_ctor_set(x_444, 3, x_318); +lean_ctor_set_uint8(x_444, sizeof(void*)*4, x_442); +x_445 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_445, 0, x_443); +lean_ctor_set(x_445, 1, x_433); +lean_ctor_set(x_445, 2, x_434); +lean_ctor_set(x_445, 3, x_444); +lean_ctor_set_uint8(x_445, sizeof(void*)*4, x_432); +return x_445; +} +else +{ +lean_object* x_446; +x_446 = lean_ctor_get(x_403, 3); +lean_inc(x_446); +if (lean_obj_tag(x_446) == 0) +{ +lean_object* x_447; lean_object* x_448; lean_object* x_449; uint8_t x_450; lean_object* x_451; lean_object* x_452; +x_447 = lean_ctor_get(x_403, 1); +lean_inc(x_447); +x_448 = lean_ctor_get(x_403, 2); +lean_inc(x_448); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_449 = x_403; +} else { + lean_dec_ref(x_403); + x_449 = lean_box(0); +} +x_450 = 0; +if (lean_is_scalar(x_449)) { + x_451 = lean_alloc_ctor(1, 4, 1); +} else { + x_451 = x_449; +} +lean_ctor_set(x_451, 0, x_404); +lean_ctor_set(x_451, 1, x_447); +lean_ctor_set(x_451, 2, x_448); +lean_ctor_set(x_451, 3, x_446); +lean_ctor_set_uint8(x_451, sizeof(void*)*4, x_450); +x_452 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_452, 0, x_451); +lean_ctor_set(x_452, 1, x_316); +lean_ctor_set(x_452, 2, x_317); +lean_ctor_set(x_452, 3, x_318); +lean_ctor_set_uint8(x_452, sizeof(void*)*4, x_432); +return x_452; +} +else +{ +uint8_t x_453; +x_453 = lean_ctor_get_uint8(x_446, sizeof(void*)*4); +if (x_453 == 0) +{ +lean_object* x_454; lean_object* x_455; 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; lean_object* x_464; lean_object* x_465; +x_454 = lean_ctor_get(x_403, 1); +lean_inc(x_454); +x_455 = lean_ctor_get(x_403, 2); +lean_inc(x_455); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_456 = x_403; +} else { + lean_dec_ref(x_403); + x_456 = lean_box(0); +} +x_457 = lean_ctor_get(x_446, 0); +lean_inc(x_457); +x_458 = lean_ctor_get(x_446, 1); +lean_inc(x_458); +x_459 = lean_ctor_get(x_446, 2); +lean_inc(x_459); +x_460 = lean_ctor_get(x_446, 3); +lean_inc(x_460); +if (lean_is_exclusive(x_446)) { + lean_ctor_release(x_446, 0); + lean_ctor_release(x_446, 1); + lean_ctor_release(x_446, 2); + lean_ctor_release(x_446, 3); + x_461 = x_446; +} else { + lean_dec_ref(x_446); + x_461 = lean_box(0); +} +lean_inc(x_404); +if (lean_is_scalar(x_461)) { + x_462 = lean_alloc_ctor(1, 4, 1); +} else { + x_462 = x_461; +} +lean_ctor_set(x_462, 0, x_404); +lean_ctor_set(x_462, 1, x_454); +lean_ctor_set(x_462, 2, x_455); +lean_ctor_set(x_462, 3, x_457); +if (lean_is_exclusive(x_404)) { + lean_ctor_release(x_404, 0); + lean_ctor_release(x_404, 1); + lean_ctor_release(x_404, 2); + lean_ctor_release(x_404, 3); + x_463 = x_404; +} else { + lean_dec_ref(x_404); + x_463 = lean_box(0); +} +lean_ctor_set_uint8(x_462, sizeof(void*)*4, x_432); +if (lean_is_scalar(x_463)) { + x_464 = lean_alloc_ctor(1, 4, 1); +} else { + x_464 = x_463; +} +lean_ctor_set(x_464, 0, x_460); +lean_ctor_set(x_464, 1, x_316); +lean_ctor_set(x_464, 2, x_317); +lean_ctor_set(x_464, 3, x_318); +lean_ctor_set_uint8(x_464, sizeof(void*)*4, x_432); +if (lean_is_scalar(x_456)) { + x_465 = lean_alloc_ctor(1, 4, 1); +} else { + x_465 = x_456; +} +lean_ctor_set(x_465, 0, x_462); +lean_ctor_set(x_465, 1, x_458); +lean_ctor_set(x_465, 2, x_459); +lean_ctor_set(x_465, 3, x_464); +lean_ctor_set_uint8(x_465, sizeof(void*)*4, x_453); +return x_465; +} +else +{ +lean_object* x_466; lean_object* x_467; lean_object* x_468; lean_object* x_469; lean_object* x_470; lean_object* x_471; lean_object* x_472; lean_object* x_473; lean_object* x_474; uint8_t x_475; lean_object* x_476; lean_object* x_477; +x_466 = lean_ctor_get(x_403, 1); +lean_inc(x_466); +x_467 = lean_ctor_get(x_403, 2); +lean_inc(x_467); +if (lean_is_exclusive(x_403)) { + lean_ctor_release(x_403, 0); + lean_ctor_release(x_403, 1); + lean_ctor_release(x_403, 2); + lean_ctor_release(x_403, 3); + x_468 = x_403; +} else { + lean_dec_ref(x_403); + x_468 = lean_box(0); +} +x_469 = lean_ctor_get(x_404, 0); +lean_inc(x_469); +x_470 = lean_ctor_get(x_404, 1); +lean_inc(x_470); +x_471 = lean_ctor_get(x_404, 2); +lean_inc(x_471); +x_472 = lean_ctor_get(x_404, 3); +lean_inc(x_472); +if (lean_is_exclusive(x_404)) { + lean_ctor_release(x_404, 0); + lean_ctor_release(x_404, 1); + lean_ctor_release(x_404, 2); + lean_ctor_release(x_404, 3); + x_473 = x_404; +} else { + lean_dec_ref(x_404); + x_473 = lean_box(0); +} +if (lean_is_scalar(x_473)) { + x_474 = lean_alloc_ctor(1, 4, 1); +} else { + x_474 = x_473; +} +lean_ctor_set(x_474, 0, x_469); +lean_ctor_set(x_474, 1, x_470); +lean_ctor_set(x_474, 2, x_471); +lean_ctor_set(x_474, 3, x_472); +lean_ctor_set_uint8(x_474, sizeof(void*)*4, x_453); +x_475 = 0; +if (lean_is_scalar(x_468)) { + x_476 = lean_alloc_ctor(1, 4, 1); +} else { + x_476 = x_468; +} +lean_ctor_set(x_476, 0, x_474); +lean_ctor_set(x_476, 1, x_466); +lean_ctor_set(x_476, 2, x_467); +lean_ctor_set(x_476, 3, x_446); +lean_ctor_set_uint8(x_476, sizeof(void*)*4, x_475); +x_477 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_477, 0, x_476); +lean_ctor_set(x_477, 1, x_316); +lean_ctor_set(x_477, 2, x_317); +lean_ctor_set(x_477, 3, x_318); +lean_ctor_set_uint8(x_477, sizeof(void*)*4, x_453); +return x_477; +} +} +} +} +} +} +} +} +} +} +} +lean_object* l_RBNode_insert___at_Lean_NameSet_insert___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = l_RBNode_isRed___rarg(x_1); +if (x_4 == 0) +{ +lean_object* x_5; +x_5 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__2(x_1, x_2, x_3); +return x_5; +} +else +{ +lean_object* x_6; lean_object* x_7; +x_6 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__2(x_1, x_2, x_3); +x_7 = l_RBNode_setBlack___rarg(x_6); +return x_7; +} +} +} +lean_object* l_Lean_NameSet_insert(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; +x_3 = lean_box(0); +x_4 = l_RBNode_insert___at_Lean_NameSet_insert___spec__1(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l_RBNode_find___main___at_Lean_NameSet_contains___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = lean_ctor_get(x_1, 2); +x_7 = lean_ctor_get(x_1, 3); +x_8 = l_Lean_Name_quickLt(x_2, x_5); +if (x_8 == 0) +{ +uint8_t x_9; +x_9 = l_Lean_Name_quickLt(x_5, x_2); +if (x_9 == 0) +{ +lean_object* x_10; +lean_inc(x_6); +x_10 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_10, 0, x_6); +return x_10; +} +else +{ +x_1 = x_7; +goto _start; +} +} +else +{ +x_1 = x_4; +goto _start; +} +} +} +} +uint8_t l_Lean_NameSet_contains(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_RBNode_find___main___at_Lean_NameSet_contains___spec__1(x_1, x_2); +if (lean_obj_tag(x_3) == 0) +{ +uint8_t x_4; +x_4 = 0; +return x_4; +} +else +{ +uint8_t x_5; +lean_dec(x_3); +x_5 = 1; +return x_5; +} +} +} +lean_object* l_RBNode_find___main___at_Lean_NameSet_contains___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_RBNode_find___main___at_Lean_NameSet_contains___spec__1(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_NameSet_contains___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Lean_NameSet_contains(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* l_List_foldl___main___at_String_toName___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +return x_1; +} +else +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_3 = lean_ctor_get(x_2, 0); +x_4 = lean_ctor_get(x_2, 1); +x_5 = l_String_trim(x_3); +x_6 = lean_name_mk_string(x_1, x_5); +x_1 = x_6; +x_2 = x_4; +goto _start; +} +} +} +lean_object* l_String_toName(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_Name_toString___closed__1; +x_3 = l_String_splitOn(x_1, x_2); +x_4 = lean_box(0); +x_5 = l_List_foldl___main___at_String_toName___spec__1(x_4, x_3); +lean_dec(x_3); +return x_5; +} +} +lean_object* l_List_foldl___main___at_String_toName___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_List_foldl___main___at_String_toName___spec__1(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} +lean_object* initialize_Init_Data_String_Basic(lean_object*); +lean_object* initialize_Init_Coe(lean_object*); +lean_object* initialize_Init_Data_UInt(lean_object*); +lean_object* initialize_Init_Data_ToString(lean_object*); +lean_object* initialize_Init_Data_Hashable(lean_object*); +lean_object* initialize_Init_Data_RBMap(lean_object*); +lean_object* initialize_Init_Data_RBTree(lean_object*); +static bool _G_initialized = false; +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_Data_String_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_Data_UInt(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Data_ToString(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Data_Hashable(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Data_RBMap(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Data_RBTree(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Name_inhabited = _init_l_Lean_Name_inhabited(); +lean_mark_persistent(l_Lean_Name_inhabited); +l_Lean_Name_hashable___closed__1 = _init_l_Lean_Name_hashable___closed__1(); +lean_mark_persistent(l_Lean_Name_hashable___closed__1); +l_Lean_Name_hashable = _init_l_Lean_Name_hashable(); +lean_mark_persistent(l_Lean_Name_hashable); +l_Lean_stringToName___closed__1 = _init_l_Lean_stringToName___closed__1(); +lean_mark_persistent(l_Lean_stringToName___closed__1); +l_Lean_stringToName = _init_l_Lean_stringToName(); +lean_mark_persistent(l_Lean_stringToName); +l_Lean_Name_HasBeq___closed__1 = _init_l_Lean_Name_HasBeq___closed__1(); +lean_mark_persistent(l_Lean_Name_HasBeq___closed__1); +l_Lean_Name_HasBeq = _init_l_Lean_Name_HasBeq(); +lean_mark_persistent(l_Lean_Name_HasBeq); +l_Lean_Name_HasAppend___closed__1 = _init_l_Lean_Name_HasAppend___closed__1(); +lean_mark_persistent(l_Lean_Name_HasAppend___closed__1); +l_Lean_Name_HasAppend = _init_l_Lean_Name_HasAppend(); +lean_mark_persistent(l_Lean_Name_HasAppend); +l_Lean_Name_hasLtQuick = _init_l_Lean_Name_hasLtQuick(); +lean_mark_persistent(l_Lean_Name_hasLtQuick); +l_Lean_Name_toStringWithSep___main___closed__1 = _init_l_Lean_Name_toStringWithSep___main___closed__1(); +lean_mark_persistent(l_Lean_Name_toStringWithSep___main___closed__1); +l_Lean_Name_toString___closed__1 = _init_l_Lean_Name_toString___closed__1(); +lean_mark_persistent(l_Lean_Name_toString___closed__1); +l_Lean_Name_HasToString___closed__1 = _init_l_Lean_Name_HasToString___closed__1(); +lean_mark_persistent(l_Lean_Name_HasToString___closed__1); +l_Lean_Name_HasToString = _init_l_Lean_Name_HasToString(); +lean_mark_persistent(l_Lean_Name_HasToString); +l_Lean_Name_appendIndexAfter___closed__1 = _init_l_Lean_Name_appendIndexAfter___closed__1(); +lean_mark_persistent(l_Lean_Name_appendIndexAfter___closed__1); +l_Lean_mkNameSet = _init_l_Lean_mkNameSet(); +lean_mark_persistent(l_Lean_mkNameSet); +l_Lean_NameSet_HasEmptyc = _init_l_Lean_NameSet_HasEmptyc(); +lean_mark_persistent(l_Lean_NameSet_HasEmptyc); +l_Lean_NameSet_Inhabited = _init_l_Lean_NameSet_Inhabited(); +lean_mark_persistent(l_Lean_NameSet_Inhabited); +return lean_mk_io_result(lean_box(0)); +} +#ifdef __cplusplus +} +#endif diff --git a/stage0/stdlib/Init/Lean/Data/NameGenerator.c b/stage0/stdlib/Init/Lean/Data/NameGenerator.c new file mode 100644 index 0000000000..f5467ba729 --- /dev/null +++ b/stage0/stdlib/Init/Lean/Data/NameGenerator.c @@ -0,0 +1,184 @@ +// Lean compiler output +// Module: Init.Lean.Data.NameGenerator +// Imports: Init.Lean.Data.Name +#include "runtime/lean.h" +#if defined(__clang__) +#pragma clang diagnostic ignored "-Wunused-parameter" +#pragma clang diagnostic ignored "-Wunused-label" +#elif defined(__GNUC__) && !defined(__CLANG__) +#pragma GCC diagnostic ignored "-Wunused-parameter" +#pragma GCC diagnostic ignored "-Wunused-label" +#pragma GCC diagnostic ignored "-Wunused-but-set-variable" +#endif +#ifdef __cplusplus +extern "C" { +#endif +lean_object* l_Lean_NameGenerator_Inhabited; +lean_object* lean_nat_add(lean_object*, lean_object*); +lean_object* l_Lean_NameGenerator_next(lean_object*); +lean_object* l_Lean_NameGenerator_Inhabited___closed__2; +lean_object* l_Lean_NameGenerator_Inhabited___closed__1; +lean_object* lean_name_mk_string(lean_object*, lean_object*); +lean_object* l_Lean_NameGenerator_mkChild(lean_object*); +lean_object* l_Lean_NameGenerator_curr(lean_object*); +lean_object* lean_name_mk_numeral(lean_object*, lean_object*); +lean_object* l_Lean_NameGenerator_Inhabited___closed__3; +lean_object* _init_l_Lean_NameGenerator_Inhabited___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("_uniq"); +return x_1; +} +} +lean_object* _init_l_Lean_NameGenerator_Inhabited___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_NameGenerator_Inhabited___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_NameGenerator_Inhabited___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_NameGenerator_Inhabited___closed__2; +x_2 = lean_unsigned_to_nat(1u); +x_3 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_NameGenerator_Inhabited() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_NameGenerator_Inhabited___closed__3; +return x_1; +} +} +lean_object* l_Lean_NameGenerator_curr(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = lean_ctor_get(x_1, 1); +lean_inc(x_3); +lean_dec(x_1); +x_4 = lean_name_mk_numeral(x_2, x_3); +return x_4; +} +} +lean_object* l_Lean_NameGenerator_next(lean_object* x_1) { +_start: +{ +uint8_t x_2; +x_2 = !lean_is_exclusive(x_1); +if (x_2 == 0) +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_3 = lean_ctor_get(x_1, 1); +x_4 = lean_unsigned_to_nat(1u); +x_5 = lean_nat_add(x_3, x_4); +lean_dec(x_3); +lean_ctor_set(x_1, 1, x_5); +return x_1; +} +else +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_6 = lean_ctor_get(x_1, 0); +x_7 = lean_ctor_get(x_1, 1); +lean_inc(x_7); +lean_inc(x_6); +lean_dec(x_1); +x_8 = lean_unsigned_to_nat(1u); +x_9 = lean_nat_add(x_7, x_8); +lean_dec(x_7); +x_10 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_10, 0, x_6); +lean_ctor_set(x_10, 1, x_9); +return x_10; +} +} +} +lean_object* l_Lean_NameGenerator_mkChild(lean_object* x_1) { +_start: +{ +uint8_t x_2; +x_2 = !lean_is_exclusive(x_1); +if (x_2 == 0) +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_3 = lean_ctor_get(x_1, 0); +x_4 = lean_ctor_get(x_1, 1); +lean_inc(x_4); +lean_inc(x_3); +x_5 = lean_name_mk_numeral(x_3, x_4); +x_6 = lean_unsigned_to_nat(1u); +lean_ctor_set(x_1, 1, x_6); +lean_ctor_set(x_1, 0, x_5); +x_7 = lean_nat_add(x_4, x_6); +lean_dec(x_4); +x_8 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_8, 0, x_3); +lean_ctor_set(x_8, 1, x_7); +x_9 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_9, 0, x_1); +lean_ctor_set(x_9, 1, x_8); +return x_9; +} +else +{ +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_1, 0); +x_11 = lean_ctor_get(x_1, 1); +lean_inc(x_11); +lean_inc(x_10); +lean_dec(x_1); +lean_inc(x_11); +lean_inc(x_10); +x_12 = lean_name_mk_numeral(x_10, x_11); +x_13 = lean_unsigned_to_nat(1u); +x_14 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_14, 0, x_12); +lean_ctor_set(x_14, 1, x_13); +x_15 = lean_nat_add(x_11, x_13); +lean_dec(x_11); +x_16 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_16, 0, x_10); +lean_ctor_set(x_16, 1, x_15); +x_17 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_17, 0, x_14); +lean_ctor_set(x_17, 1, x_16); +return x_17; +} +} +} +lean_object* initialize_Init_Lean_Data_Name(lean_object*); +static bool _G_initialized = false; +lean_object* initialize_Init_Lean_Data_NameGenerator(lean_object* w) { +lean_object * res; +if (_G_initialized) return lean_mk_io_result(lean_box(0)); +_G_initialized = true; +res = initialize_Init_Lean_Data_Name(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_NameGenerator_Inhabited___closed__1 = _init_l_Lean_NameGenerator_Inhabited___closed__1(); +lean_mark_persistent(l_Lean_NameGenerator_Inhabited___closed__1); +l_Lean_NameGenerator_Inhabited___closed__2 = _init_l_Lean_NameGenerator_Inhabited___closed__2(); +lean_mark_persistent(l_Lean_NameGenerator_Inhabited___closed__2); +l_Lean_NameGenerator_Inhabited___closed__3 = _init_l_Lean_NameGenerator_Inhabited___closed__3(); +lean_mark_persistent(l_Lean_NameGenerator_Inhabited___closed__3); +l_Lean_NameGenerator_Inhabited = _init_l_Lean_NameGenerator_Inhabited(); +lean_mark_persistent(l_Lean_NameGenerator_Inhabited); +return lean_mk_io_result(lean_box(0)); +} +#ifdef __cplusplus +} +#endif diff --git a/stage0/stdlib/Init/Lean/Data/Options.c b/stage0/stdlib/Init/Lean/Data/Options.c new file mode 100644 index 0000000000..31a1d57c57 --- /dev/null +++ b/stage0/stdlib/Init/Lean/Data/Options.c @@ -0,0 +1,1056 @@ +// Lean compiler output +// Module: Init.Lean.Data.Options +// Imports: Init.System.IO Init.Data.ToString Init.Lean.Data.KVMap +#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 +extern lean_object* l_Lean_Name_toString___closed__1; +uint8_t l_String_isInt(lean_object*); +lean_object* l_Lean_KVMap_setBool(lean_object*, lean_object*, uint8_t); +lean_object* l_RBNode_find___main___at_Lean_getOptionDecl___spec__1(lean_object*, lean_object*); +uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*); +lean_object* l_Lean_KVMap_setNat(lean_object*, lean_object*, lean_object*); +lean_object* l_String_toNat(lean_object*); +lean_object* lean_io_mk_ref(lean_object*, lean_object*); +lean_object* l_Lean_KVMap_setString(lean_object*, lean_object*, lean_object*); +lean_object* lean_io_ref_get(lean_object*, lean_object*); +lean_object* l_Lean_getOptionDefaulValue(lean_object*, lean_object*); +lean_object* l_Lean_getOptionDecls(lean_object*); +lean_object* lean_string_append(lean_object*, lean_object*); +lean_object* l_String_splitOn(lean_object*, lean_object*); +lean_object* l_Lean_getOptionDecl___closed__1; +uint8_t l_Lean_NameMap_contains___rarg(lean_object*, lean_object*); +lean_object* l_Lean_registerOption___closed__1; +lean_object* l_Lean_registerOption___closed__2; +lean_object* l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_String_toName(lean_object*); +lean_object* l_Lean_setOptionFromString___closed__4; +lean_object* l_Lean_getOptionDecl(lean_object*, lean_object*); +lean_object* l_RBNode_find___main___at_Lean_getOptionDecl___spec__1___boxed(lean_object*, lean_object*); +extern lean_object* l_Char_HasRepr___closed__1; +lean_object* lean_name_mk_string(lean_object*, lean_object*); +lean_object* l_Lean_KVMap_setInt(lean_object*, lean_object*, lean_object*); +uint8_t l_String_isNat(lean_object*); +lean_object* l_Lean_Options_empty; +lean_object* l_Lean_setOptionFromString___closed__5; +lean_object* l_Lean_KVMap_setName(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Bool_HasRepr___closed__1; +lean_object* l_Lean_setOptionFromString(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Bool_HasRepr___closed__2; +lean_object* l___private_Init_Lean_Data_Options_1__initOptionDeclsRef(lean_object*); +lean_object* l_Lean_setOptionFromString___closed__1; +lean_object* l_Lean_registerOption(lean_object*, lean_object*, lean_object*); +lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*); +lean_object* l_String_trim(lean_object*); +lean_object* l_String_toInt(lean_object*); +lean_object* l_Lean_setOptionFromString___closed__2; +lean_object* l_Lean_Options_HasEmptyc; +lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); +lean_object* l_Lean_getOptionDescr(lean_object*, lean_object*); +lean_object* l_Lean_setOptionFromString___closed__3; +lean_object* l___private_Init_Lean_Data_Options_2__optionDeclsRef; +lean_object* l_List_map___main___at_Lean_setOptionFromString___spec__1(lean_object*); +uint8_t lean_string_dec_eq(lean_object*, lean_object*); +lean_object* _init_l_Lean_Options_empty() { +_start: +{ +lean_object* x_1; +x_1 = lean_box(0); +return x_1; +} +} +lean_object* _init_l_Lean_Options_HasEmptyc() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Options_empty; +return x_1; +} +} +lean_object* l___private_Init_Lean_Data_Options_1__initOptionDeclsRef(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = lean_box(0); +x_3 = lean_io_mk_ref(x_2, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_registerOption___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("invalid option declaration '"); +return x_1; +} +} +lean_object* _init_l_Lean_registerOption___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("', option already exists"); +return x_1; +} +} +lean_object* l_Lean_registerOption(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; +x_4 = l___private_Init_Lean_Data_Options_2__optionDeclsRef; +x_5 = lean_io_ref_get(x_4, x_3); +if (lean_obj_tag(x_5) == 0) +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_5); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; uint8_t x_9; +x_7 = lean_ctor_get(x_5, 0); +x_8 = lean_ctor_get(x_5, 1); +x_9 = l_Lean_NameMap_contains___rarg(x_7, x_1); +if (x_9 == 0) +{ +lean_object* x_10; lean_object* x_11; +lean_free_object(x_5); +x_10 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_7, x_1, x_2); +x_11 = lean_io_ref_set(x_4, x_10, x_8); +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_dec(x_7); +lean_dec(x_2); +x_12 = l_Lean_Name_toString___closed__1; +x_13 = l_Lean_Name_toStringWithSep___main(x_12, x_1); +x_14 = l_Lean_registerOption___closed__1; +x_15 = lean_string_append(x_14, x_13); +lean_dec(x_13); +x_16 = l_Lean_registerOption___closed__2; +x_17 = lean_string_append(x_15, x_16); +lean_ctor_set_tag(x_5, 1); +lean_ctor_set(x_5, 0, x_17); +return x_5; +} +} +else +{ +lean_object* x_18; lean_object* x_19; uint8_t x_20; +x_18 = lean_ctor_get(x_5, 0); +x_19 = lean_ctor_get(x_5, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_5); +x_20 = l_Lean_NameMap_contains___rarg(x_18, x_1); +if (x_20 == 0) +{ +lean_object* x_21; lean_object* x_22; +x_21 = l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(x_18, x_1, x_2); +x_22 = lean_io_ref_set(x_4, x_21, x_19); +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; lean_object* x_29; +lean_dec(x_18); +lean_dec(x_2); +x_23 = l_Lean_Name_toString___closed__1; +x_24 = l_Lean_Name_toStringWithSep___main(x_23, x_1); +x_25 = l_Lean_registerOption___closed__1; +x_26 = lean_string_append(x_25, x_24); +lean_dec(x_24); +x_27 = l_Lean_registerOption___closed__2; +x_28 = lean_string_append(x_26, x_27); +x_29 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_29, 0, x_28); +lean_ctor_set(x_29, 1, x_19); +return x_29; +} +} +} +else +{ +uint8_t x_30; +lean_dec(x_2); +lean_dec(x_1); +x_30 = !lean_is_exclusive(x_5); +if (x_30 == 0) +{ +return x_5; +} +else +{ +lean_object* x_31; lean_object* x_32; lean_object* x_33; +x_31 = lean_ctor_get(x_5, 0); +x_32 = lean_ctor_get(x_5, 1); +lean_inc(x_32); +lean_inc(x_31); +lean_dec(x_5); +x_33 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_33, 0, x_31); +lean_ctor_set(x_33, 1, x_32); +return x_33; +} +} +} +} +lean_object* l_Lean_getOptionDecls(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l___private_Init_Lean_Data_Options_2__optionDeclsRef; +x_3 = lean_io_ref_get(x_2, x_1); +return x_3; +} +} +lean_object* l_RBNode_find___main___at_Lean_getOptionDecl___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = lean_ctor_get(x_1, 2); +x_7 = lean_ctor_get(x_1, 3); +x_8 = l_Lean_Name_quickLt(x_2, x_5); +if (x_8 == 0) +{ +uint8_t x_9; +x_9 = l_Lean_Name_quickLt(x_5, x_2); +if (x_9 == 0) +{ +lean_object* x_10; +lean_inc(x_6); +x_10 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_10, 0, x_6); +return x_10; +} +else +{ +x_1 = x_7; +goto _start; +} +} +else +{ +x_1 = x_4; +goto _start; +} +} +} +} +lean_object* _init_l_Lean_getOptionDecl___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("unknown option '"); +return x_1; +} +} +lean_object* l_Lean_getOptionDecl(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; +x_3 = l___private_Init_Lean_Data_Options_2__optionDeclsRef; +x_4 = lean_io_ref_get(x_3, x_2); +if (lean_obj_tag(x_4) == 0) +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_4); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; +x_6 = lean_ctor_get(x_4, 0); +x_7 = l_RBNode_find___main___at_Lean_getOptionDecl___spec__1(x_6, x_1); +lean_dec(x_6); +if (lean_obj_tag(x_7) == 0) +{ +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 = l_Lean_Name_toString___closed__1; +x_9 = l_Lean_Name_toStringWithSep___main(x_8, x_1); +x_10 = l_Lean_getOptionDecl___closed__1; +x_11 = lean_string_append(x_10, x_9); +lean_dec(x_9); +x_12 = l_Char_HasRepr___closed__1; +x_13 = lean_string_append(x_11, x_12); +lean_ctor_set_tag(x_4, 1); +lean_ctor_set(x_4, 0, x_13); +return x_4; +} +else +{ +lean_object* x_14; +lean_dec(x_1); +x_14 = lean_ctor_get(x_7, 0); +lean_inc(x_14); +lean_dec(x_7); +lean_ctor_set(x_4, 0, x_14); +return x_4; +} +} +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_4, 0); +x_16 = lean_ctor_get(x_4, 1); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_4); +x_17 = l_RBNode_find___main___at_Lean_getOptionDecl___spec__1(x_15, x_1); +lean_dec(x_15); +if (lean_obj_tag(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_object* x_24; +x_18 = l_Lean_Name_toString___closed__1; +x_19 = l_Lean_Name_toStringWithSep___main(x_18, x_1); +x_20 = l_Lean_getOptionDecl___closed__1; +x_21 = lean_string_append(x_20, x_19); +lean_dec(x_19); +x_22 = l_Char_HasRepr___closed__1; +x_23 = lean_string_append(x_21, x_22); +x_24 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_24, 0, x_23); +lean_ctor_set(x_24, 1, x_16); +return x_24; +} +else +{ +lean_object* x_25; lean_object* x_26; +lean_dec(x_1); +x_25 = lean_ctor_get(x_17, 0); +lean_inc(x_25); +lean_dec(x_17); +x_26 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_26, 0, x_25); +lean_ctor_set(x_26, 1, x_16); +return x_26; +} +} +} +else +{ +uint8_t x_27; +lean_dec(x_1); +x_27 = !lean_is_exclusive(x_4); +if (x_27 == 0) +{ +return x_4; +} +else +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_28 = lean_ctor_get(x_4, 0); +x_29 = lean_ctor_get(x_4, 1); +lean_inc(x_29); +lean_inc(x_28); +lean_dec(x_4); +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_RBNode_find___main___at_Lean_getOptionDecl___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_RBNode_find___main___at_Lean_getOptionDecl___spec__1(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_getOptionDefaulValue(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_getOptionDecl(x_1, x_2); +if (lean_obj_tag(x_3) == 0) +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_3); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; +x_5 = lean_ctor_get(x_3, 0); +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +lean_dec(x_5); +lean_ctor_set(x_3, 0, x_6); +return x_3; +} +else +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_7 = lean_ctor_get(x_3, 0); +x_8 = lean_ctor_get(x_3, 1); +lean_inc(x_8); +lean_inc(x_7); +lean_dec(x_3); +x_9 = lean_ctor_get(x_7, 0); +lean_inc(x_9); +lean_dec(x_7); +x_10 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_10, 0, x_9); +lean_ctor_set(x_10, 1, x_8); +return x_10; +} +} +else +{ +uint8_t x_11; +x_11 = !lean_is_exclusive(x_3); +if (x_11 == 0) +{ +return x_3; +} +else +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_12 = lean_ctor_get(x_3, 0); +x_13 = lean_ctor_get(x_3, 1); +lean_inc(x_13); +lean_inc(x_12); +lean_dec(x_3); +x_14 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_14, 0, x_12); +lean_ctor_set(x_14, 1, x_13); +return x_14; +} +} +} +} +lean_object* l_Lean_getOptionDescr(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_getOptionDecl(x_1, x_2); +if (lean_obj_tag(x_3) == 0) +{ +uint8_t x_4; +x_4 = !lean_is_exclusive(x_3); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; +x_5 = lean_ctor_get(x_3, 0); +x_6 = lean_ctor_get(x_5, 2); +lean_inc(x_6); +lean_dec(x_5); +lean_ctor_set(x_3, 0, x_6); +return x_3; +} +else +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_7 = lean_ctor_get(x_3, 0); +x_8 = lean_ctor_get(x_3, 1); +lean_inc(x_8); +lean_inc(x_7); +lean_dec(x_3); +x_9 = lean_ctor_get(x_7, 2); +lean_inc(x_9); +lean_dec(x_7); +x_10 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_10, 0, x_9); +lean_ctor_set(x_10, 1, x_8); +return x_10; +} +} +else +{ +uint8_t x_11; +x_11 = !lean_is_exclusive(x_3); +if (x_11 == 0) +{ +return x_3; +} +else +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_12 = lean_ctor_get(x_3, 0); +x_13 = lean_ctor_get(x_3, 1); +lean_inc(x_13); +lean_inc(x_12); +lean_dec(x_3); +x_14 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_14, 0, x_12); +lean_ctor_set(x_14, 1, x_13); +return x_14; +} +} +} +} +lean_object* l_List_map___main___at_Lean_setOptionFromString___spec__1(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_2; +x_2 = lean_box(0); +return x_2; +} +else +{ +uint8_t x_3; +x_3 = !lean_is_exclusive(x_1); +if (x_3 == 0) +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_4 = lean_ctor_get(x_1, 0); +x_5 = lean_ctor_get(x_1, 1); +x_6 = l_String_trim(x_4); +lean_dec(x_4); +x_7 = l_List_map___main___at_Lean_setOptionFromString___spec__1(x_5); +lean_ctor_set(x_1, 1, x_7); +lean_ctor_set(x_1, 0, x_6); +return x_1; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_8 = lean_ctor_get(x_1, 0); +x_9 = lean_ctor_get(x_1, 1); +lean_inc(x_9); +lean_inc(x_8); +lean_dec(x_1); +x_10 = l_String_trim(x_8); +lean_dec(x_8); +x_11 = l_List_map___main___at_Lean_setOptionFromString___spec__1(x_9); +x_12 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_12, 0, x_10); +lean_ctor_set(x_12, 1, x_11); +return x_12; +} +} +} +} +lean_object* _init_l_Lean_setOptionFromString___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("="); +return x_1; +} +} +lean_object* _init_l_Lean_setOptionFromString___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("invalid configuration option entry, it must be of the form ' = '"); +return x_1; +} +} +lean_object* _init_l_Lean_setOptionFromString___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("invalid Bool option value '"); +return x_1; +} +} +lean_object* _init_l_Lean_setOptionFromString___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("invalid Nat option value '"); +return x_1; +} +} +lean_object* _init_l_Lean_setOptionFromString___closed__5() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("invalid Int option value '"); +return x_1; +} +} +lean_object* l_Lean_setOptionFromString(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = l_Lean_setOptionFromString___closed__1; +x_5 = l_String_splitOn(x_2, x_4); +x_6 = l_List_map___main___at_Lean_setOptionFromString___spec__1(x_5); +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_7; lean_object* x_8; +lean_dec(x_1); +x_7 = l_Lean_setOptionFromString___closed__2; +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; +} +else +{ +lean_object* x_9; +x_9 = lean_ctor_get(x_6, 1); +lean_inc(x_9); +if (lean_obj_tag(x_9) == 0) +{ +lean_object* x_10; lean_object* x_11; +lean_dec(x_6); +lean_dec(x_1); +x_10 = l_Lean_setOptionFromString___closed__2; +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; +} +else +{ +lean_object* x_12; +x_12 = lean_ctor_get(x_9, 1); +lean_inc(x_12); +if (lean_obj_tag(x_12) == 0) +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_13 = lean_ctor_get(x_6, 0); +lean_inc(x_13); +lean_dec(x_6); +x_14 = lean_ctor_get(x_9, 0); +lean_inc(x_14); +lean_dec(x_9); +lean_inc(x_13); +x_15 = l_String_toName(x_13); +x_16 = l_Lean_getOptionDefaulValue(x_15, x_3); +if (lean_obj_tag(x_16) == 0) +{ +lean_object* x_17; +x_17 = lean_ctor_get(x_16, 0); +lean_inc(x_17); +switch (lean_obj_tag(x_17)) { +case 0: +{ +uint8_t x_18; +lean_dec(x_17); +x_18 = !lean_is_exclusive(x_16); +if (x_18 == 0) +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_19 = lean_ctor_get(x_16, 0); +lean_dec(x_19); +x_20 = lean_box(0); +x_21 = lean_name_mk_string(x_20, x_13); +x_22 = l_Lean_KVMap_setString(x_1, x_21, x_14); +lean_ctor_set(x_16, 0, x_22); +return x_16; +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_23 = lean_ctor_get(x_16, 1); +lean_inc(x_23); +lean_dec(x_16); +x_24 = lean_box(0); +x_25 = lean_name_mk_string(x_24, x_13); +x_26 = l_Lean_KVMap_setString(x_1, x_25, x_14); +x_27 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_27, 0, x_26); +lean_ctor_set(x_27, 1, x_23); +return x_27; +} +} +case 1: +{ +uint8_t x_28; +lean_dec(x_17); +x_28 = !lean_is_exclusive(x_16); +if (x_28 == 0) +{ +lean_object* x_29; lean_object* x_30; uint8_t x_31; +x_29 = lean_ctor_get(x_16, 0); +lean_dec(x_29); +x_30 = l_Bool_HasRepr___closed__2; +x_31 = lean_string_dec_eq(x_13, x_30); +if (x_31 == 0) +{ +lean_object* x_32; uint8_t x_33; +x_32 = l_Bool_HasRepr___closed__1; +x_33 = lean_string_dec_eq(x_13, x_32); +if (x_33 == 0) +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; +lean_dec(x_13); +lean_dec(x_1); +x_34 = l_Lean_setOptionFromString___closed__3; +x_35 = lean_string_append(x_34, x_14); +lean_dec(x_14); +x_36 = l_Char_HasRepr___closed__1; +x_37 = lean_string_append(x_35, x_36); +lean_ctor_set_tag(x_16, 1); +lean_ctor_set(x_16, 0, x_37); +return x_16; +} +else +{ +lean_object* x_38; lean_object* x_39; uint8_t x_40; lean_object* x_41; +lean_dec(x_14); +x_38 = lean_box(0); +x_39 = lean_name_mk_string(x_38, x_13); +x_40 = 0; +x_41 = l_Lean_KVMap_setBool(x_1, x_39, x_40); +lean_ctor_set(x_16, 0, x_41); +return x_16; +} +} +else +{ +lean_object* x_42; lean_object* x_43; uint8_t x_44; lean_object* x_45; +lean_dec(x_14); +x_42 = lean_box(0); +x_43 = lean_name_mk_string(x_42, x_13); +x_44 = 1; +x_45 = l_Lean_KVMap_setBool(x_1, x_43, x_44); +lean_ctor_set(x_16, 0, x_45); +return x_16; +} +} +else +{ +lean_object* x_46; lean_object* x_47; uint8_t x_48; +x_46 = lean_ctor_get(x_16, 1); +lean_inc(x_46); +lean_dec(x_16); +x_47 = l_Bool_HasRepr___closed__2; +x_48 = lean_string_dec_eq(x_13, x_47); +if (x_48 == 0) +{ +lean_object* x_49; uint8_t x_50; +x_49 = l_Bool_HasRepr___closed__1; +x_50 = lean_string_dec_eq(x_13, x_49); +if (x_50 == 0) +{ +lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; +lean_dec(x_13); +lean_dec(x_1); +x_51 = l_Lean_setOptionFromString___closed__3; +x_52 = lean_string_append(x_51, x_14); +lean_dec(x_14); +x_53 = l_Char_HasRepr___closed__1; +x_54 = lean_string_append(x_52, 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_46); +return x_55; +} +else +{ +lean_object* x_56; lean_object* x_57; uint8_t x_58; lean_object* x_59; lean_object* x_60; +lean_dec(x_14); +x_56 = lean_box(0); +x_57 = lean_name_mk_string(x_56, x_13); +x_58 = 0; +x_59 = l_Lean_KVMap_setBool(x_1, x_57, 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_46); +return x_60; +} +} +else +{ +lean_object* x_61; lean_object* x_62; uint8_t x_63; lean_object* x_64; lean_object* x_65; +lean_dec(x_14); +x_61 = lean_box(0); +x_62 = lean_name_mk_string(x_61, x_13); +x_63 = 1; +x_64 = l_Lean_KVMap_setBool(x_1, x_62, 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_46); +return x_65; +} +} +} +case 2: +{ +uint8_t x_66; +lean_dec(x_17); +x_66 = !lean_is_exclusive(x_16); +if (x_66 == 0) +{ +lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; +x_67 = lean_ctor_get(x_16, 0); +lean_dec(x_67); +x_68 = lean_box(0); +x_69 = lean_name_mk_string(x_68, x_13); +x_70 = l_String_toName(x_14); +x_71 = l_Lean_KVMap_setName(x_1, x_69, x_70); +lean_ctor_set(x_16, 0, x_71); +return x_16; +} +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; +x_72 = lean_ctor_get(x_16, 1); +lean_inc(x_72); +lean_dec(x_16); +x_73 = lean_box(0); +x_74 = lean_name_mk_string(x_73, x_13); +x_75 = l_String_toName(x_14); +x_76 = l_Lean_KVMap_setName(x_1, x_74, x_75); +x_77 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_77, 0, x_76); +lean_ctor_set(x_77, 1, x_72); +return x_77; +} +} +case 3: +{ +uint8_t x_78; +lean_dec(x_17); +x_78 = !lean_is_exclusive(x_16); +if (x_78 == 0) +{ +lean_object* x_79; uint8_t x_80; +x_79 = lean_ctor_get(x_16, 0); +lean_dec(x_79); +x_80 = l_String_isNat(x_14); +if (x_80 == 0) +{ +lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; +lean_dec(x_13); +lean_dec(x_1); +x_81 = l_Lean_setOptionFromString___closed__4; +x_82 = lean_string_append(x_81, x_14); +lean_dec(x_14); +x_83 = l_Char_HasRepr___closed__1; +x_84 = lean_string_append(x_82, x_83); +lean_ctor_set_tag(x_16, 1); +lean_ctor_set(x_16, 0, x_84); +return x_16; +} +else +{ +lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; +x_85 = lean_box(0); +x_86 = lean_name_mk_string(x_85, x_13); +x_87 = l_String_toNat(x_14); +lean_dec(x_14); +x_88 = l_Lean_KVMap_setNat(x_1, x_86, x_87); +lean_ctor_set(x_16, 0, x_88); +return x_16; +} +} +else +{ +lean_object* x_89; uint8_t x_90; +x_89 = lean_ctor_get(x_16, 1); +lean_inc(x_89); +lean_dec(x_16); +x_90 = l_String_isNat(x_14); +if (x_90 == 0) +{ +lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; +lean_dec(x_13); +lean_dec(x_1); +x_91 = l_Lean_setOptionFromString___closed__4; +x_92 = lean_string_append(x_91, x_14); +lean_dec(x_14); +x_93 = l_Char_HasRepr___closed__1; +x_94 = lean_string_append(x_92, x_93); +x_95 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_95, 0, x_94); +lean_ctor_set(x_95, 1, x_89); +return x_95; +} +else +{ +lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; +x_96 = lean_box(0); +x_97 = lean_name_mk_string(x_96, x_13); +x_98 = l_String_toNat(x_14); +lean_dec(x_14); +x_99 = l_Lean_KVMap_setNat(x_1, x_97, x_98); +x_100 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_100, 0, x_99); +lean_ctor_set(x_100, 1, x_89); +return x_100; +} +} +} +default: +{ +uint8_t x_101; +lean_dec(x_17); +x_101 = !lean_is_exclusive(x_16); +if (x_101 == 0) +{ +lean_object* x_102; uint8_t x_103; +x_102 = lean_ctor_get(x_16, 0); +lean_dec(x_102); +lean_inc(x_14); +x_103 = l_String_isInt(x_14); +if (x_103 == 0) +{ +lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; +lean_dec(x_13); +lean_dec(x_1); +x_104 = l_Lean_setOptionFromString___closed__5; +x_105 = lean_string_append(x_104, x_14); +lean_dec(x_14); +x_106 = l_Char_HasRepr___closed__1; +x_107 = lean_string_append(x_105, x_106); +lean_ctor_set_tag(x_16, 1); +lean_ctor_set(x_16, 0, x_107); +return x_16; +} +else +{ +lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; +x_108 = lean_box(0); +x_109 = lean_name_mk_string(x_108, x_13); +x_110 = l_String_toInt(x_14); +x_111 = l_Lean_KVMap_setInt(x_1, x_109, x_110); +lean_ctor_set(x_16, 0, x_111); +return x_16; +} +} +else +{ +lean_object* x_112; uint8_t x_113; +x_112 = lean_ctor_get(x_16, 1); +lean_inc(x_112); +lean_dec(x_16); +lean_inc(x_14); +x_113 = l_String_isInt(x_14); +if (x_113 == 0) +{ +lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; +lean_dec(x_13); +lean_dec(x_1); +x_114 = l_Lean_setOptionFromString___closed__5; +x_115 = lean_string_append(x_114, x_14); +lean_dec(x_14); +x_116 = l_Char_HasRepr___closed__1; +x_117 = lean_string_append(x_115, x_116); +x_118 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_118, 0, x_117); +lean_ctor_set(x_118, 1, x_112); +return x_118; +} +else +{ +lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; +x_119 = lean_box(0); +x_120 = lean_name_mk_string(x_119, x_13); +x_121 = l_String_toInt(x_14); +x_122 = l_Lean_KVMap_setInt(x_1, x_120, x_121); +x_123 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_123, 0, x_122); +lean_ctor_set(x_123, 1, x_112); +return x_123; +} +} +} +} +} +else +{ +uint8_t x_124; +lean_dec(x_14); +lean_dec(x_13); +lean_dec(x_1); +x_124 = !lean_is_exclusive(x_16); +if (x_124 == 0) +{ +return x_16; +} +else +{ +lean_object* x_125; lean_object* x_126; lean_object* x_127; +x_125 = lean_ctor_get(x_16, 0); +x_126 = lean_ctor_get(x_16, 1); +lean_inc(x_126); +lean_inc(x_125); +lean_dec(x_16); +x_127 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_127, 0, x_125); +lean_ctor_set(x_127, 1, x_126); +return x_127; +} +} +} +else +{ +lean_object* x_128; lean_object* x_129; +lean_dec(x_12); +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_1); +x_128 = l_Lean_setOptionFromString___closed__2; +x_129 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_129, 0, x_128); +lean_ctor_set(x_129, 1, x_3); +return x_129; +} +} +} +} +} +lean_object* initialize_Init_System_IO(lean_object*); +lean_object* initialize_Init_Data_ToString(lean_object*); +lean_object* initialize_Init_Lean_Data_KVMap(lean_object*); +static bool _G_initialized = false; +lean_object* initialize_Init_Lean_Data_Options(lean_object* w) { +lean_object * res; +if (_G_initialized) return lean_mk_io_result(lean_box(0)); +_G_initialized = true; +res = initialize_Init_System_IO(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Data_ToString(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Lean_Data_KVMap(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Options_empty = _init_l_Lean_Options_empty(); +lean_mark_persistent(l_Lean_Options_empty); +l_Lean_Options_HasEmptyc = _init_l_Lean_Options_HasEmptyc(); +lean_mark_persistent(l_Lean_Options_HasEmptyc); +res = l___private_Init_Lean_Data_Options_1__initOptionDeclsRef(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +l___private_Init_Lean_Data_Options_2__optionDeclsRef = lean_io_result_get_value(res); +lean_mark_persistent(l___private_Init_Lean_Data_Options_2__optionDeclsRef); +lean_dec_ref(res); +l_Lean_registerOption___closed__1 = _init_l_Lean_registerOption___closed__1(); +lean_mark_persistent(l_Lean_registerOption___closed__1); +l_Lean_registerOption___closed__2 = _init_l_Lean_registerOption___closed__2(); +lean_mark_persistent(l_Lean_registerOption___closed__2); +l_Lean_getOptionDecl___closed__1 = _init_l_Lean_getOptionDecl___closed__1(); +lean_mark_persistent(l_Lean_getOptionDecl___closed__1); +l_Lean_setOptionFromString___closed__1 = _init_l_Lean_setOptionFromString___closed__1(); +lean_mark_persistent(l_Lean_setOptionFromString___closed__1); +l_Lean_setOptionFromString___closed__2 = _init_l_Lean_setOptionFromString___closed__2(); +lean_mark_persistent(l_Lean_setOptionFromString___closed__2); +l_Lean_setOptionFromString___closed__3 = _init_l_Lean_setOptionFromString___closed__3(); +lean_mark_persistent(l_Lean_setOptionFromString___closed__3); +l_Lean_setOptionFromString___closed__4 = _init_l_Lean_setOptionFromString___closed__4(); +lean_mark_persistent(l_Lean_setOptionFromString___closed__4); +l_Lean_setOptionFromString___closed__5 = _init_l_Lean_setOptionFromString___closed__5(); +lean_mark_persistent(l_Lean_setOptionFromString___closed__5); +return lean_mk_io_result(lean_box(0)); +} +#ifdef __cplusplus +} +#endif diff --git a/stage0/stdlib/Init/Lean/Data/Position.c b/stage0/stdlib/Init/Lean/Data/Position.c new file mode 100644 index 0000000000..28266e9d5b --- /dev/null +++ b/stage0/stdlib/Init/Lean/Data/Position.c @@ -0,0 +1,634 @@ +// Lean compiler output +// Module: Init.Lean.Data.Position +// Imports: Init.Data.Nat Init.Data.RBMap Init.Lean.Data.Format +#include "runtime/lean.h" +#if defined(__clang__) +#pragma clang diagnostic ignored "-Wunused-parameter" +#pragma clang diagnostic ignored "-Wunused-label" +#elif defined(__GNUC__) && !defined(__CLANG__) +#pragma GCC diagnostic ignored "-Wunused-parameter" +#pragma GCC diagnostic ignored "-Wunused-label" +#pragma GCC diagnostic ignored "-Wunused-but-set-variable" +#endif +#ifdef __cplusplus +extern "C" { +#endif +lean_object* l_Lean_fmt___at_Lean_Position_Lean_HasFormat___spec__1(lean_object*); +lean_object* l___private_Init_Lean_Data_Position_3__toPositionAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_mk_empty_array_with_capacity(lean_object*); +lean_object* lean_nat_div(lean_object*, lean_object*); +lean_object* l_Lean_FileMap_ofString___closed__2; +lean_object* l_Lean_Position_Inhabited; +lean_object* l_Lean_Position_HasToString(lean_object*); +extern lean_object* l_Array_empty___closed__1; +extern lean_object* l_Sigma_HasRepr___rarg___closed__1; +lean_object* l_Nat_decLt___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Position_Inhabited___closed__1; +lean_object* lean_array_push(lean_object*, lean_object*); +lean_object* lean_array_get_size(lean_object*); +lean_object* lean_string_append(lean_object*, lean_object*); +uint8_t l_prodHasDecidableLt___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_formatKVMap___closed__1; +extern lean_object* l_String_splitAux___main___closed__1; +lean_object* l___private_Init_Lean_Data_Position_2__toColumnAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_FileMap_ofString___closed__1; +extern lean_object* l_Sigma_HasRepr___rarg___closed__2; +uint8_t l_Lean_Position_lt(lean_object*, lean_object*); +lean_object* lean_nat_add(lean_object*, lean_object*); +lean_object* lean_string_utf8_next(lean_object*, lean_object*); +uint8_t lean_nat_dec_eq(lean_object*, lean_object*); +lean_object* l_Lean_Position_Lean_HasFormat(lean_object*); +lean_object* lean_nat_sub(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Position_3__toPositionAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Position_3__toPositionAux___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Nat_repr(lean_object*); +extern lean_object* l_List_reprAux___main___rarg___closed__1; +uint32_t lean_string_utf8_get(lean_object*, lean_object*); +lean_object* l_Lean_FileMap_toPosition(lean_object*, lean_object*); +lean_object* l_Lean_FileMap_ofString(lean_object*); +lean_object* l_Lean_Position_Lean_HasFormat___closed__2; +lean_object* l_Lean_FileMap_Inhabited; +lean_object* l___private_Init_Lean_Data_Position_2__toColumnAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Position_1__ofStringAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l_UInt32_decEq(uint32_t, uint32_t); +lean_object* l_Lean_Position_Lean_HasFormat___closed__1; +lean_object* l___private_Init_Lean_Data_Position_2__toColumnAux___main(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Position_DecidableEq___boxed(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Position_2__toColumnAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_FileMap_Inhabited___closed__1; +lean_object* l_Lean_Position_lt___closed__1; +lean_object* l___private_Init_Lean_Data_Position_1__ofStringAux___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l_Lean_Position_DecidableEq(lean_object*, lean_object*); +extern lean_object* l_Nat_Inhabited; +lean_object* l_Lean_FileMap_ofString___closed__3; +lean_object* l___private_Init_Lean_Data_Position_3__toPositionAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t lean_string_utf8_at_end(lean_object*, lean_object*); +lean_object* l_Lean_Position_lt___boxed(lean_object*, lean_object*); +lean_object* l_Lean_FileMap_toPosition___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Position_lt___closed__2; +lean_object* l_Nat_decEq___boxed(lean_object*, lean_object*); +uint8_t lean_nat_dec_lt(lean_object*, lean_object*); +lean_object* l_String_toFileMap(lean_object*); +uint8_t l_Lean_Position_DecidableEq(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; uint8_t x_7; +x_3 = lean_ctor_get(x_1, 0); +x_4 = lean_ctor_get(x_1, 1); +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +x_7 = lean_nat_dec_eq(x_3, x_5); +if (x_7 == 0) +{ +uint8_t x_8; +x_8 = 0; +return x_8; +} +else +{ +uint8_t x_9; +x_9 = lean_nat_dec_eq(x_4, x_6); +if (x_9 == 0) +{ +uint8_t x_10; +x_10 = 0; +return x_10; +} +else +{ +uint8_t x_11; +x_11 = 1; +return x_11; +} +} +} +} +lean_object* l_Lean_Position_DecidableEq___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Lean_Position_DecidableEq(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* _init_l_Lean_Position_lt___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Nat_decEq___boxed), 2, 0); +return x_1; +} +} +lean_object* _init_l_Lean_Position_lt___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Nat_decLt___boxed), 2, 0); +return x_1; +} +} +uint8_t l_Lean_Position_lt(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; +x_3 = lean_ctor_get(x_1, 0); +x_4 = lean_ctor_get(x_1, 1); +x_5 = lean_ctor_get(x_2, 0); +x_6 = lean_ctor_get(x_2, 1); +lean_inc(x_4); +lean_inc(x_3); +x_7 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_7, 0, x_3); +lean_ctor_set(x_7, 1, x_4); +lean_inc(x_6); +lean_inc(x_5); +x_8 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_8, 0, x_5); +lean_ctor_set(x_8, 1, x_6); +x_9 = l_Lean_Position_lt___closed__1; +x_10 = l_Lean_Position_lt___closed__2; +x_11 = l_prodHasDecidableLt___rarg(x_9, x_9, x_10, x_10, x_7, x_8); +return x_11; +} +} +lean_object* l_Lean_Position_lt___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Lean_Position_lt(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* l_Lean_fmt___at_Lean_Position_Lean_HasFormat___spec__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Nat_repr(x_1); +x_3 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_3, 0, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Position_Lean_HasFormat___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Sigma_HasRepr___rarg___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_Position_Lean_HasFormat___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Sigma_HasRepr___rarg___closed__2; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Position_Lean_HasFormat(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; uint8_t x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = lean_ctor_get(x_1, 1); +lean_inc(x_3); +lean_dec(x_1); +x_4 = l_Lean_fmt___at_Lean_Position_Lean_HasFormat___spec__1(x_2); +x_5 = 0; +x_6 = l_Lean_Position_Lean_HasFormat___closed__1; +x_7 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_4); +lean_ctor_set_uint8(x_7, sizeof(void*)*2, x_5); +x_8 = l_Lean_formatKVMap___closed__1; +x_9 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_9, 0, x_7); +lean_ctor_set(x_9, 1, x_8); +lean_ctor_set_uint8(x_9, sizeof(void*)*2, x_5); +x_10 = l_Lean_fmt___at_Lean_Position_Lean_HasFormat___spec__1(x_3); +x_11 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_11, 0, x_9); +lean_ctor_set(x_11, 1, x_10); +lean_ctor_set_uint8(x_11, sizeof(void*)*2, x_5); +x_12 = l_Lean_Position_Lean_HasFormat___closed__2; +x_13 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_13, 0, x_11); +lean_ctor_set(x_13, 1, x_12); +lean_ctor_set_uint8(x_13, sizeof(void*)*2, x_5); +return x_13; +} +} +lean_object* l_Lean_Position_HasToString(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = lean_ctor_get(x_1, 1); +lean_inc(x_3); +lean_dec(x_1); +x_4 = l_Nat_repr(x_2); +x_5 = l_Sigma_HasRepr___rarg___closed__1; +x_6 = lean_string_append(x_5, x_4); +lean_dec(x_4); +x_7 = l_List_reprAux___main___rarg___closed__1; +x_8 = lean_string_append(x_6, x_7); +x_9 = l_Nat_repr(x_3); +x_10 = lean_string_append(x_8, x_9); +lean_dec(x_9); +x_11 = l_Sigma_HasRepr___rarg___closed__2; +x_12 = lean_string_append(x_10, x_11); +return x_12; +} +} +lean_object* _init_l_Lean_Position_Inhabited___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_unsigned_to_nat(1u); +x_2 = lean_unsigned_to_nat(0u); +x_3 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Position_Inhabited() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Position_Inhabited___closed__1; +return x_1; +} +} +lean_object* _init_l_Lean_FileMap_Inhabited___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_String_splitAux___main___closed__1; +x_2 = l_Array_empty___closed__1; +x_3 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +lean_ctor_set(x_3, 2, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_FileMap_Inhabited() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_FileMap_Inhabited___closed__1; +return x_1; +} +} +lean_object* l___private_Init_Lean_Data_Position_1__ofStringAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +uint8_t x_6; +x_6 = lean_string_utf8_at_end(x_1, x_2); +if (x_6 == 0) +{ +uint32_t x_7; lean_object* x_8; uint32_t x_9; uint8_t x_10; +x_7 = lean_string_utf8_get(x_1, x_2); +x_8 = lean_string_utf8_next(x_1, x_2); +lean_dec(x_2); +x_9 = 10; +x_10 = x_7 == x_9; +if (x_10 == 0) +{ +x_2 = x_8; +goto _start; +} +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 = lean_nat_add(x_3, x_12); +lean_dec(x_3); +lean_inc(x_8); +x_14 = lean_array_push(x_4, x_8); +lean_inc(x_13); +x_15 = lean_array_push(x_5, x_13); +x_2 = x_8; +x_3 = x_13; +x_4 = x_14; +x_5 = x_15; +goto _start; +} +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_array_push(x_4, x_2); +x_18 = lean_array_push(x_5, x_3); +x_19 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_19, 0, x_1); +lean_ctor_set(x_19, 1, x_17); +lean_ctor_set(x_19, 2, x_18); +return x_19; +} +} +} +lean_object* l___private_Init_Lean_Data_Position_1__ofStringAux(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_Data_Position_1__ofStringAux___main(x_1, x_2, x_3, x_4, x_5); +return x_6; +} +} +lean_object* _init_l_Lean_FileMap_ofString___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = lean_unsigned_to_nat(1u); +x_2 = lean_mk_empty_array_with_capacity(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_FileMap_ofString___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_FileMap_ofString___closed__1; +x_2 = lean_unsigned_to_nat(0u); +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_FileMap_ofString___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_FileMap_ofString___closed__1; +x_2 = lean_unsigned_to_nat(1u); +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_FileMap_ofString(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_2 = lean_unsigned_to_nat(0u); +x_3 = lean_unsigned_to_nat(1u); +x_4 = l_Lean_FileMap_ofString___closed__2; +x_5 = l_Lean_FileMap_ofString___closed__3; +x_6 = l___private_Init_Lean_Data_Position_1__ofStringAux___main(x_1, x_2, x_3, x_4, x_5); +return x_6; +} +} +lean_object* l___private_Init_Lean_Data_Position_2__toColumnAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; +x_5 = lean_nat_dec_eq(x_3, x_2); +if (x_5 == 0) +{ +uint8_t x_6; +x_6 = lean_string_utf8_at_end(x_1, x_3); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_7 = lean_string_utf8_next(x_1, x_3); +lean_dec(x_3); +x_8 = lean_unsigned_to_nat(1u); +x_9 = lean_nat_add(x_4, x_8); +lean_dec(x_4); +x_3 = x_7; +x_4 = x_9; +goto _start; +} +else +{ +lean_dec(x_3); +return x_4; +} +} +else +{ +lean_dec(x_3); +return x_4; +} +} +} +lean_object* l___private_Init_Lean_Data_Position_2__toColumnAux___main___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___private_Init_Lean_Data_Position_2__toColumnAux___main(x_1, x_2, x_3, x_4); +lean_dec(x_2); +lean_dec(x_1); +return x_5; +} +} +lean_object* l___private_Init_Lean_Data_Position_2__toColumnAux(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_Data_Position_2__toColumnAux___main(x_1, x_3, x_4, x_5); +return x_6; +} +} +lean_object* l___private_Init_Lean_Data_Position_2__toColumnAux___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_Data_Position_2__toColumnAux(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_6; +} +} +lean_object* l___private_Init_Lean_Data_Position_3__toPositionAux___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) { +_start: +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; +x_7 = l_Nat_Inhabited; +x_8 = lean_array_get(x_7, x_2, x_5); +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_add(x_5, x_9); +x_11 = lean_nat_dec_eq(x_6, x_10); +lean_dec(x_10); +if (x_11 == 0) +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; +lean_dec(x_8); +x_12 = lean_nat_add(x_5, x_6); +x_13 = lean_unsigned_to_nat(2u); +x_14 = lean_nat_div(x_12, x_13); +lean_dec(x_12); +x_15 = lean_array_get(x_7, x_2, x_14); +x_16 = lean_nat_dec_eq(x_4, x_15); +if (x_16 == 0) +{ +uint8_t x_17; +x_17 = lean_nat_dec_lt(x_15, x_4); +lean_dec(x_15); +if (x_17 == 0) +{ +lean_dec(x_6); +x_6 = x_14; +goto _start; +} +else +{ +lean_dec(x_5); +x_5 = x_14; +goto _start; +} +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; +lean_dec(x_15); +lean_dec(x_6); +lean_dec(x_5); +x_20 = lean_array_get(x_7, x_3, x_14); +lean_dec(x_14); +x_21 = lean_unsigned_to_nat(0u); +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 +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; +lean_dec(x_6); +x_23 = lean_array_get(x_7, x_3, x_5); +lean_dec(x_5); +x_24 = lean_unsigned_to_nat(0u); +x_25 = l___private_Init_Lean_Data_Position_2__toColumnAux___main(x_1, x_4, x_8, x_24); +x_26 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_26, 0, x_23); +lean_ctor_set(x_26, 1, x_25); +return x_26; +} +} +} +lean_object* l___private_Init_Lean_Data_Position_3__toPositionAux___main___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: +{ +lean_object* x_7; +x_7 = l___private_Init_Lean_Data_Position_3__toPositionAux___main(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_7; +} +} +lean_object* l___private_Init_Lean_Data_Position_3__toPositionAux(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: +{ +lean_object* x_7; +x_7 = l___private_Init_Lean_Data_Position_3__toPositionAux___main(x_1, x_2, x_3, x_4, x_5, x_6); +return x_7; +} +} +lean_object* l___private_Init_Lean_Data_Position_3__toPositionAux___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: +{ +lean_object* x_7; +x_7 = l___private_Init_Lean_Data_Position_3__toPositionAux(x_1, x_2, x_3, x_4, x_5, x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_7; +} +} +lean_object* l_Lean_FileMap_toPosition(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_3 = lean_ctor_get(x_1, 0); +x_4 = lean_ctor_get(x_1, 1); +x_5 = lean_ctor_get(x_1, 2); +x_6 = lean_array_get_size(x_4); +x_7 = lean_unsigned_to_nat(1u); +x_8 = lean_nat_sub(x_6, x_7); +lean_dec(x_6); +x_9 = lean_unsigned_to_nat(0u); +x_10 = l___private_Init_Lean_Data_Position_3__toPositionAux___main(x_3, x_4, x_5, x_2, x_9, x_8); +return x_10; +} +} +lean_object* l_Lean_FileMap_toPosition___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_FileMap_toPosition(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_String_toFileMap(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_FileMap_ofString(x_1); +return x_2; +} +} +lean_object* initialize_Init_Data_Nat(lean_object*); +lean_object* initialize_Init_Data_RBMap(lean_object*); +lean_object* initialize_Init_Lean_Data_Format(lean_object*); +static bool _G_initialized = false; +lean_object* initialize_Init_Lean_Data_Position(lean_object* w) { +lean_object * res; +if (_G_initialized) return lean_mk_io_result(lean_box(0)); +_G_initialized = true; +res = initialize_Init_Data_Nat(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Data_RBMap(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Lean_Data_Format(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Position_lt___closed__1 = _init_l_Lean_Position_lt___closed__1(); +lean_mark_persistent(l_Lean_Position_lt___closed__1); +l_Lean_Position_lt___closed__2 = _init_l_Lean_Position_lt___closed__2(); +lean_mark_persistent(l_Lean_Position_lt___closed__2); +l_Lean_Position_Lean_HasFormat___closed__1 = _init_l_Lean_Position_Lean_HasFormat___closed__1(); +lean_mark_persistent(l_Lean_Position_Lean_HasFormat___closed__1); +l_Lean_Position_Lean_HasFormat___closed__2 = _init_l_Lean_Position_Lean_HasFormat___closed__2(); +lean_mark_persistent(l_Lean_Position_Lean_HasFormat___closed__2); +l_Lean_Position_Inhabited___closed__1 = _init_l_Lean_Position_Inhabited___closed__1(); +lean_mark_persistent(l_Lean_Position_Inhabited___closed__1); +l_Lean_Position_Inhabited = _init_l_Lean_Position_Inhabited(); +lean_mark_persistent(l_Lean_Position_Inhabited); +l_Lean_FileMap_Inhabited___closed__1 = _init_l_Lean_FileMap_Inhabited___closed__1(); +lean_mark_persistent(l_Lean_FileMap_Inhabited___closed__1); +l_Lean_FileMap_Inhabited = _init_l_Lean_FileMap_Inhabited(); +lean_mark_persistent(l_Lean_FileMap_Inhabited); +l_Lean_FileMap_ofString___closed__1 = _init_l_Lean_FileMap_ofString___closed__1(); +lean_mark_persistent(l_Lean_FileMap_ofString___closed__1); +l_Lean_FileMap_ofString___closed__2 = _init_l_Lean_FileMap_ofString___closed__2(); +lean_mark_persistent(l_Lean_FileMap_ofString___closed__2); +l_Lean_FileMap_ofString___closed__3 = _init_l_Lean_FileMap_ofString___closed__3(); +lean_mark_persistent(l_Lean_FileMap_ofString___closed__3); +return lean_mk_io_result(lean_box(0)); +} +#ifdef __cplusplus +} +#endif diff --git a/stage0/stdlib/Init/Lean/SMap.c b/stage0/stdlib/Init/Lean/Data/SMap.c similarity index 99% rename from stage0/stdlib/Init/Lean/SMap.c rename to stage0/stdlib/Init/Lean/Data/SMap.c index 4425be7697..a50c6bff4b 100644 --- a/stage0/stdlib/Init/Lean/SMap.c +++ b/stage0/stdlib/Init/Lean/Data/SMap.c @@ -1,5 +1,5 @@ // Lean compiler output -// Module: Init.Lean.SMap +// Module: Init.Lean.Data.SMap // Imports: Init.Data.HashMap Init.Data.PersistentHashMap #include "runtime/lean.h" #if defined(__clang__) @@ -345,7 +345,7 @@ lean_object* _init_l_Lean_SMap_find_x21___rarg___closed__1() { _start: { lean_object* x_1; -x_1 = lean_mk_string("Init.Lean.SMap"); +x_1 = lean_mk_string("Init.Lean.Data.SMap"); return x_1; } } @@ -916,7 +916,7 @@ return x_5; lean_object* initialize_Init_Data_HashMap(lean_object*); lean_object* initialize_Init_Data_PersistentHashMap(lean_object*); static bool _G_initialized = false; -lean_object* initialize_Init_Lean_SMap(lean_object* w) { +lean_object* initialize_Init_Lean_Data_SMap(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; diff --git a/stage0/stdlib/Init/Lean/Data/Trie.c b/stage0/stdlib/Init/Lean/Data/Trie.c new file mode 100644 index 0000000000..b4bd9e6834 --- /dev/null +++ b/stage0/stdlib/Init/Lean/Data/Trie.c @@ -0,0 +1,10829 @@ +// Lean compiler output +// Module: Init.Lean.Data.Trie +// Imports: Init.Data.RBMap Init.Lean.Data.Format +#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_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg(lean_object*, uint32_t, lean_object*); +uint8_t l_RBNode_isRed___rarg(lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_5__matchPrefixAux___main___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Format_pretty(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_5__matchPrefixAux___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_1__insertEmptyAux___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_Trie_HasEmptyc(lean_object*); +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7(lean_object*); +lean_object* l_Lean_Parser_Trie_HasToString___rarg(lean_object*); +lean_object* l_Lean_Parser_Trie_matchPrefix___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_5__matchPrefixAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_Trie_empty(lean_object*); +lean_object* l_Lean_Format_joinSep___main___at___private_Init_Lean_Data_Trie_6__toStringAux___main___spec__1(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_3__findAux___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4(lean_object*); +lean_object* lean_string_append(lean_object*, lean_object*); +lean_object* l_RBNode_fold___main___at___private_Init_Lean_Data_Trie_6__toStringAux___main___spec__2___rarg(lean_object*, lean_object*); +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__1___rarg___boxed(lean_object*, lean_object*); +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_5__matchPrefixAux___main___spec__1___rarg___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Parser_Trie_find___rarg(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_1__insertEmptyAux___main___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_Trie_matchPrefix___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* lean_string_utf8_next(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_2__insertAux___main(lean_object*); +lean_object* l_Lean_Parser_Trie_HasEmptyc___closed__1; +lean_object* l___private_Init_Lean_Data_Trie_3__findAux___main___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_6__toStringAux(lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_1__insertEmptyAux___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_5__matchPrefixAux___main___spec__1___rarg(lean_object*, uint32_t); +lean_object* l___private_Init_Lean_Data_Trie_3__findAux(lean_object*); +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg(lean_object*, uint32_t, lean_object*); +lean_object* l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__5___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_6__toStringAux___main___rarg(lean_object*); +uint8_t l_UInt32_decLt(uint32_t, uint32_t); +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg(lean_object*, uint32_t, lean_object*); +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_5__matchPrefixAux___main(lean_object*); +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3(lean_object*); +extern lean_object* l_Char_HasRepr___closed__1; +lean_object* l___private_Init_Lean_Data_Trie_4__updtAcc(lean_object*); +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_3__findAux___main___spec__1___rarg(lean_object*, uint32_t); +lean_object* l___private_Init_Lean_Data_Trie_6__toStringAux___main(lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_Trie_insert___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_6__toStringAux___rarg(lean_object*); +lean_object* l_Lean_Parser_Trie_matchPrefix(lean_object*); +uint32_t lean_string_utf8_get(lean_object*, lean_object*); +extern lean_object* l_Lean_Options_empty; +lean_object* l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__5(lean_object*); +lean_object* l_Lean_Parser_Trie_find___rarg___boxed(lean_object*, lean_object*); +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6(lean_object*); +lean_object* l_Lean_Parser_Trie_find(lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_5__matchPrefixAux(lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_3__findAux___main___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_Trie_HasToString(lean_object*); +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__1(lean_object*); +lean_object* l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__5___rarg(lean_object*, uint32_t, lean_object*); +lean_object* l_Lean_Parser_Trie_Inhabited(lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_4__updtAcc___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_3__findAux___main___spec__1___rarg___boxed(lean_object*, lean_object*); +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg(lean_object*, uint32_t, lean_object*); +lean_object* l_RBNode_fold___main___at___private_Init_Lean_Data_Trie_6__toStringAux___main___spec__2(lean_object*); +lean_object* l_Lean_Parser_Trie_insert___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_1__insertEmptyAux___main(lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_4__updtAcc___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_5__matchPrefixAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_1__insertEmptyAux(lean_object*); +lean_object* l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__2___rarg(lean_object*, uint32_t, lean_object*); +lean_object* l_Lean_Format_joinSep___main___at___private_Init_Lean_Data_Trie_6__toStringAux___main___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_5__matchPrefixAux___main___spec__1(lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_2__insertAux___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_format_group(lean_object*); +lean_object* l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__2(lean_object*); +lean_object* l_RBNode_setBlack___rarg(lean_object*); +lean_object* l_Lean_Parser_Trie_empty___closed__1; +lean_object* l___private_Init_Lean_Data_Trie_2__insertAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_3__findAux___main(lean_object*); +lean_object* l_Char_quoteCore(uint32_t); +lean_object* l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t lean_string_utf8_at_end(lean_object*, lean_object*); +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_3__findAux___main___spec__1(lean_object*); +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__1___rarg(lean_object*, uint32_t); +lean_object* l_Lean_Parser_Trie_insert(lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_2__insertAux(lean_object*); +lean_object* l_RBNode_singleton___rarg(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_3__findAux___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_1__insertEmptyAux___main___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* _init_l_Lean_Parser_Trie_empty___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = lean_box(0); +x_3 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* l_Lean_Parser_Trie_empty(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Parser_Trie_empty___closed__1; +return x_2; +} +} +lean_object* _init_l_Lean_Parser_Trie_HasEmptyc___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Parser_Trie_empty(lean_box(0)); +return x_1; +} +} +lean_object* l_Lean_Parser_Trie_HasEmptyc(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Parser_Trie_HasEmptyc___closed__1; +return x_2; +} +} +lean_object* l_Lean_Parser_Trie_Inhabited(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Parser_Trie_empty___closed__1; +return x_2; +} +} +lean_object* l___private_Init_Lean_Data_Trie_1__insertEmptyAux___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = lean_string_utf8_at_end(x_1, x_3); +if (x_4 == 0) +{ +uint32_t 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; +x_5 = lean_string_utf8_get(x_1, x_3); +x_6 = lean_string_utf8_next(x_1, x_3); +x_7 = l___private_Init_Lean_Data_Trie_1__insertEmptyAux___main___rarg(x_1, x_2, x_6); +lean_dec(x_6); +x_8 = lean_box(0); +x_9 = lean_box_uint32(x_5); +x_10 = l_RBNode_singleton___rarg(x_9, x_7); +x_11 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_11, 0, x_8); +lean_ctor_set(x_11, 1, x_10); +return x_11; +} +else +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_12 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_12, 0, x_2); +x_13 = lean_box(0); +x_14 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_14, 0, x_12); +lean_ctor_set(x_14, 1, x_13); +return x_14; +} +} +} +lean_object* l___private_Init_Lean_Data_Trie_1__insertEmptyAux___main(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Data_Trie_1__insertEmptyAux___main___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l___private_Init_Lean_Data_Trie_1__insertEmptyAux___main___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_Lean_Data_Trie_1__insertEmptyAux___main___rarg(x_1, x_2, x_3); +lean_dec(x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l___private_Init_Lean_Data_Trie_1__insertEmptyAux___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_Lean_Data_Trie_1__insertEmptyAux___main___rarg(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l___private_Init_Lean_Data_Trie_1__insertEmptyAux(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Data_Trie_1__insertEmptyAux___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l___private_Init_Lean_Data_Trie_1__insertEmptyAux___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_Lean_Data_Trie_1__insertEmptyAux___rarg(x_1, x_2, x_3); +lean_dec(x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__1___rarg(lean_object* x_1, uint32_t x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; uint32_t x_8; uint8_t x_9; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_1, 1); +lean_inc(x_5); +x_6 = lean_ctor_get(x_1, 2); +lean_inc(x_6); +x_7 = lean_ctor_get(x_1, 3); +lean_inc(x_7); +lean_dec(x_1); +x_8 = lean_unbox_uint32(x_5); +x_9 = x_2 < x_8; +if (x_9 == 0) +{ +uint32_t x_10; uint8_t x_11; +lean_dec(x_4); +x_10 = lean_unbox_uint32(x_5); +lean_dec(x_5); +x_11 = x_10 < x_2; +if (x_11 == 0) +{ +lean_object* x_12; +lean_dec(x_7); +x_12 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_12, 0, x_6); +return x_12; +} +else +{ +lean_dec(x_6); +x_1 = x_7; +goto _start; +} +} +else +{ +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +x_1 = x_4; +goto _start; +} +} +} +} +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_RBNode_find___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__1___rarg___boxed), 2, 0); +return x_2; +} +} +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg(lean_object* x_1, uint32_t x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +uint8_t x_4; lean_object* x_5; lean_object* x_6; +x_4 = 0; +x_5 = lean_box_uint32(x_2); +x_6 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_6, 0, x_1); +lean_ctor_set(x_6, 1, x_5); +lean_ctor_set(x_6, 2, x_3); +lean_ctor_set(x_6, 3, x_1); +lean_ctor_set_uint8(x_6, sizeof(void*)*4, x_4); +return x_6; +} +else +{ +uint8_t x_7; +x_7 = lean_ctor_get_uint8(x_1, sizeof(void*)*4); +if (x_7 == 0) +{ +uint8_t x_8; +x_8 = !lean_is_exclusive(x_1); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; uint32_t x_13; uint8_t x_14; +x_9 = lean_ctor_get(x_1, 0); +x_10 = lean_ctor_get(x_1, 1); +x_11 = lean_ctor_get(x_1, 2); +x_12 = lean_ctor_get(x_1, 3); +x_13 = lean_unbox_uint32(x_10); +x_14 = x_2 < x_13; +if (x_14 == 0) +{ +uint32_t x_15; uint8_t x_16; +x_15 = lean_unbox_uint32(x_10); +x_16 = x_15 < x_2; +if (x_16 == 0) +{ +lean_object* x_17; +lean_dec(x_11); +lean_dec(x_10); +x_17 = lean_box_uint32(x_2); +lean_ctor_set(x_1, 2, x_3); +lean_ctor_set(x_1, 1, x_17); +return x_1; +} +else +{ +lean_object* x_18; +x_18 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg(x_12, x_2, x_3); +lean_ctor_set(x_1, 3, x_18); +return x_1; +} +} +else +{ +lean_object* x_19; +x_19 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg(x_9, x_2, x_3); +lean_ctor_set(x_1, 0, x_19); +return x_1; +} +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; uint32_t x_24; uint8_t x_25; +x_20 = lean_ctor_get(x_1, 0); +x_21 = lean_ctor_get(x_1, 1); +x_22 = lean_ctor_get(x_1, 2); +x_23 = lean_ctor_get(x_1, 3); +lean_inc(x_23); +lean_inc(x_22); +lean_inc(x_21); +lean_inc(x_20); +lean_dec(x_1); +x_24 = lean_unbox_uint32(x_21); +x_25 = x_2 < x_24; +if (x_25 == 0) +{ +uint32_t x_26; uint8_t x_27; +x_26 = lean_unbox_uint32(x_21); +x_27 = x_26 < x_2; +if (x_27 == 0) +{ +lean_object* x_28; lean_object* x_29; +lean_dec(x_22); +lean_dec(x_21); +x_28 = lean_box_uint32(x_2); +x_29 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_29, 0, x_20); +lean_ctor_set(x_29, 1, x_28); +lean_ctor_set(x_29, 2, x_3); +lean_ctor_set(x_29, 3, x_23); +lean_ctor_set_uint8(x_29, sizeof(void*)*4, x_7); +return x_29; +} +else +{ +lean_object* x_30; lean_object* x_31; +x_30 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg(x_23, x_2, x_3); +x_31 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_31, 0, x_20); +lean_ctor_set(x_31, 1, x_21); +lean_ctor_set(x_31, 2, x_22); +lean_ctor_set(x_31, 3, x_30); +lean_ctor_set_uint8(x_31, sizeof(void*)*4, x_7); +return x_31; +} +} +else +{ +lean_object* x_32; lean_object* x_33; +x_32 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg(x_20, x_2, x_3); +x_33 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_33, 0, x_32); +lean_ctor_set(x_33, 1, x_21); +lean_ctor_set(x_33, 2, x_22); +lean_ctor_set(x_33, 3, x_23); +lean_ctor_set_uint8(x_33, sizeof(void*)*4, x_7); +return x_33; +} +} +} +else +{ +uint8_t x_34; +x_34 = !lean_is_exclusive(x_1); +if (x_34 == 0) +{ +lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; uint32_t x_39; uint8_t x_40; +x_35 = lean_ctor_get(x_1, 0); +x_36 = lean_ctor_get(x_1, 1); +x_37 = lean_ctor_get(x_1, 2); +x_38 = lean_ctor_get(x_1, 3); +x_39 = lean_unbox_uint32(x_36); +x_40 = x_2 < x_39; +if (x_40 == 0) +{ +uint32_t x_41; uint8_t x_42; +x_41 = lean_unbox_uint32(x_36); +x_42 = x_41 < x_2; +if (x_42 == 0) +{ +lean_object* x_43; +lean_dec(x_37); +lean_dec(x_36); +x_43 = lean_box_uint32(x_2); +lean_ctor_set(x_1, 2, x_3); +lean_ctor_set(x_1, 1, x_43); +return x_1; +} +else +{ +uint8_t x_44; +x_44 = l_RBNode_isRed___rarg(x_38); +if (x_44 == 0) +{ +lean_object* x_45; +x_45 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg(x_38, x_2, x_3); +lean_ctor_set(x_1, 3, x_45); +return x_1; +} +else +{ +lean_object* x_46; lean_object* x_47; +x_46 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg(x_38, x_2, x_3); +x_47 = lean_ctor_get(x_46, 0); +lean_inc(x_47); +if (lean_obj_tag(x_47) == 0) +{ +lean_object* x_48; +x_48 = lean_ctor_get(x_46, 3); +lean_inc(x_48); +if (lean_obj_tag(x_48) == 0) +{ +uint8_t x_49; +x_49 = !lean_is_exclusive(x_46); +if (x_49 == 0) +{ +lean_object* x_50; lean_object* x_51; uint8_t x_52; uint8_t x_53; +x_50 = lean_ctor_get(x_46, 3); +lean_dec(x_50); +x_51 = lean_ctor_get(x_46, 0); +lean_dec(x_51); +x_52 = 0; +lean_ctor_set(x_46, 0, x_48); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_52); +x_53 = 1; +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_53); +return x_1; +} +else +{ +lean_object* x_54; lean_object* x_55; uint8_t x_56; lean_object* x_57; uint8_t x_58; +x_54 = lean_ctor_get(x_46, 1); +x_55 = lean_ctor_get(x_46, 2); +lean_inc(x_55); +lean_inc(x_54); +lean_dec(x_46); +x_56 = 0; +x_57 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_57, 0, x_48); +lean_ctor_set(x_57, 1, x_54); +lean_ctor_set(x_57, 2, x_55); +lean_ctor_set(x_57, 3, x_48); +lean_ctor_set_uint8(x_57, sizeof(void*)*4, x_56); +x_58 = 1; +lean_ctor_set(x_1, 3, x_57); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_58); +return x_1; +} +} +else +{ +uint8_t x_59; +x_59 = lean_ctor_get_uint8(x_48, sizeof(void*)*4); +if (x_59 == 0) +{ +uint8_t x_60; +x_60 = !lean_is_exclusive(x_46); +if (x_60 == 0) +{ +lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; uint8_t x_65; +x_61 = lean_ctor_get(x_46, 1); +x_62 = lean_ctor_get(x_46, 2); +x_63 = lean_ctor_get(x_46, 3); +lean_dec(x_63); +x_64 = lean_ctor_get(x_46, 0); +lean_dec(x_64); +x_65 = !lean_is_exclusive(x_48); +if (x_65 == 0) +{ +lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; uint8_t x_70; +x_66 = lean_ctor_get(x_48, 0); +x_67 = lean_ctor_get(x_48, 1); +x_68 = lean_ctor_get(x_48, 2); +x_69 = lean_ctor_get(x_48, 3); +x_70 = 1; +lean_ctor_set(x_48, 3, x_47); +lean_ctor_set(x_48, 2, x_37); +lean_ctor_set(x_48, 1, x_36); +lean_ctor_set(x_48, 0, x_35); +lean_ctor_set_uint8(x_48, sizeof(void*)*4, x_70); +lean_ctor_set(x_46, 3, x_69); +lean_ctor_set(x_46, 2, x_68); +lean_ctor_set(x_46, 1, x_67); +lean_ctor_set(x_46, 0, x_66); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_70); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set(x_1, 2, x_62); +lean_ctor_set(x_1, 1, x_61); +lean_ctor_set(x_1, 0, x_48); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +else +{ +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 = lean_ctor_get(x_48, 0); +x_72 = lean_ctor_get(x_48, 1); +x_73 = lean_ctor_get(x_48, 2); +x_74 = lean_ctor_get(x_48, 3); +lean_inc(x_74); +lean_inc(x_73); +lean_inc(x_72); +lean_inc(x_71); +lean_dec(x_48); +x_75 = 1; +x_76 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_76, 0, x_35); +lean_ctor_set(x_76, 1, x_36); +lean_ctor_set(x_76, 2, x_37); +lean_ctor_set(x_76, 3, x_47); +lean_ctor_set_uint8(x_76, sizeof(void*)*4, x_75); +lean_ctor_set(x_46, 3, x_74); +lean_ctor_set(x_46, 2, x_73); +lean_ctor_set(x_46, 1, x_72); +lean_ctor_set(x_46, 0, x_71); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_75); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set(x_1, 2, x_62); +lean_ctor_set(x_1, 1, x_61); +lean_ctor_set(x_1, 0, x_76); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +} +else +{ +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; uint8_t x_84; lean_object* x_85; lean_object* x_86; +x_77 = lean_ctor_get(x_46, 1); +x_78 = lean_ctor_get(x_46, 2); +lean_inc(x_78); +lean_inc(x_77); +lean_dec(x_46); +x_79 = lean_ctor_get(x_48, 0); +lean_inc(x_79); +x_80 = lean_ctor_get(x_48, 1); +lean_inc(x_80); +x_81 = lean_ctor_get(x_48, 2); +lean_inc(x_81); +x_82 = lean_ctor_get(x_48, 3); +lean_inc(x_82); +if (lean_is_exclusive(x_48)) { + lean_ctor_release(x_48, 0); + lean_ctor_release(x_48, 1); + lean_ctor_release(x_48, 2); + lean_ctor_release(x_48, 3); + x_83 = x_48; +} else { + lean_dec_ref(x_48); + x_83 = lean_box(0); +} +x_84 = 1; +if (lean_is_scalar(x_83)) { + x_85 = lean_alloc_ctor(1, 4, 1); +} else { + x_85 = x_83; +} +lean_ctor_set(x_85, 0, x_35); +lean_ctor_set(x_85, 1, x_36); +lean_ctor_set(x_85, 2, x_37); +lean_ctor_set(x_85, 3, x_47); +lean_ctor_set_uint8(x_85, sizeof(void*)*4, x_84); +x_86 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_86, 0, x_79); +lean_ctor_set(x_86, 1, x_80); +lean_ctor_set(x_86, 2, x_81); +lean_ctor_set(x_86, 3, x_82); +lean_ctor_set_uint8(x_86, sizeof(void*)*4, x_84); +lean_ctor_set(x_1, 3, x_86); +lean_ctor_set(x_1, 2, x_78); +lean_ctor_set(x_1, 1, x_77); +lean_ctor_set(x_1, 0, x_85); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +} +else +{ +uint8_t x_87; +x_87 = !lean_is_exclusive(x_46); +if (x_87 == 0) +{ +lean_object* x_88; lean_object* x_89; uint8_t x_90; +x_88 = lean_ctor_get(x_46, 3); +lean_dec(x_88); +x_89 = lean_ctor_get(x_46, 0); +lean_dec(x_89); +x_90 = 0; +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_90); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +else +{ +lean_object* x_91; lean_object* x_92; uint8_t x_93; lean_object* x_94; +x_91 = lean_ctor_get(x_46, 1); +x_92 = lean_ctor_get(x_46, 2); +lean_inc(x_92); +lean_inc(x_91); +lean_dec(x_46); +x_93 = 0; +x_94 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_94, 0, x_47); +lean_ctor_set(x_94, 1, x_91); +lean_ctor_set(x_94, 2, x_92); +lean_ctor_set(x_94, 3, x_48); +lean_ctor_set_uint8(x_94, sizeof(void*)*4, x_93); +lean_ctor_set(x_1, 3, x_94); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +} +} +} +else +{ +uint8_t x_95; +x_95 = lean_ctor_get_uint8(x_47, sizeof(void*)*4); +if (x_95 == 0) +{ +uint8_t x_96; +x_96 = !lean_is_exclusive(x_46); +if (x_96 == 0) +{ +lean_object* x_97; uint8_t x_98; +x_97 = lean_ctor_get(x_46, 0); +lean_dec(x_97); +x_98 = !lean_is_exclusive(x_47); +if (x_98 == 0) +{ +lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; uint8_t x_103; +x_99 = lean_ctor_get(x_47, 0); +x_100 = lean_ctor_get(x_47, 1); +x_101 = lean_ctor_get(x_47, 2); +x_102 = lean_ctor_get(x_47, 3); +x_103 = 1; +lean_ctor_set(x_47, 3, x_99); +lean_ctor_set(x_47, 2, x_37); +lean_ctor_set(x_47, 1, x_36); +lean_ctor_set(x_47, 0, x_35); +lean_ctor_set_uint8(x_47, sizeof(void*)*4, x_103); +lean_ctor_set(x_46, 0, x_102); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_103); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set(x_1, 2, x_101); +lean_ctor_set(x_1, 1, x_100); +lean_ctor_set(x_1, 0, x_47); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +else +{ +lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; uint8_t x_108; lean_object* x_109; +x_104 = lean_ctor_get(x_47, 0); +x_105 = lean_ctor_get(x_47, 1); +x_106 = lean_ctor_get(x_47, 2); +x_107 = lean_ctor_get(x_47, 3); +lean_inc(x_107); +lean_inc(x_106); +lean_inc(x_105); +lean_inc(x_104); +lean_dec(x_47); +x_108 = 1; +x_109 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_109, 0, x_35); +lean_ctor_set(x_109, 1, x_36); +lean_ctor_set(x_109, 2, x_37); +lean_ctor_set(x_109, 3, x_104); +lean_ctor_set_uint8(x_109, sizeof(void*)*4, x_108); +lean_ctor_set(x_46, 0, x_107); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_108); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set(x_1, 2, x_106); +lean_ctor_set(x_1, 1, x_105); +lean_ctor_set(x_1, 0, x_109); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +} +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; uint8_t x_118; lean_object* x_119; lean_object* x_120; +x_110 = lean_ctor_get(x_46, 1); +x_111 = lean_ctor_get(x_46, 2); +x_112 = lean_ctor_get(x_46, 3); +lean_inc(x_112); +lean_inc(x_111); +lean_inc(x_110); +lean_dec(x_46); +x_113 = lean_ctor_get(x_47, 0); +lean_inc(x_113); +x_114 = lean_ctor_get(x_47, 1); +lean_inc(x_114); +x_115 = lean_ctor_get(x_47, 2); +lean_inc(x_115); +x_116 = lean_ctor_get(x_47, 3); +lean_inc(x_116); +if (lean_is_exclusive(x_47)) { + lean_ctor_release(x_47, 0); + lean_ctor_release(x_47, 1); + lean_ctor_release(x_47, 2); + lean_ctor_release(x_47, 3); + x_117 = x_47; +} else { + lean_dec_ref(x_47); + x_117 = lean_box(0); +} +x_118 = 1; +if (lean_is_scalar(x_117)) { + x_119 = lean_alloc_ctor(1, 4, 1); +} else { + x_119 = x_117; +} +lean_ctor_set(x_119, 0, x_35); +lean_ctor_set(x_119, 1, x_36); +lean_ctor_set(x_119, 2, x_37); +lean_ctor_set(x_119, 3, x_113); +lean_ctor_set_uint8(x_119, sizeof(void*)*4, x_118); +x_120 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_120, 0, x_116); +lean_ctor_set(x_120, 1, x_110); +lean_ctor_set(x_120, 2, x_111); +lean_ctor_set(x_120, 3, x_112); +lean_ctor_set_uint8(x_120, sizeof(void*)*4, x_118); +lean_ctor_set(x_1, 3, x_120); +lean_ctor_set(x_1, 2, x_115); +lean_ctor_set(x_1, 1, x_114); +lean_ctor_set(x_1, 0, x_119); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +} +else +{ +lean_object* x_121; +x_121 = lean_ctor_get(x_46, 3); +lean_inc(x_121); +if (lean_obj_tag(x_121) == 0) +{ +uint8_t x_122; +x_122 = !lean_is_exclusive(x_46); +if (x_122 == 0) +{ +lean_object* x_123; lean_object* x_124; uint8_t x_125; +x_123 = lean_ctor_get(x_46, 3); +lean_dec(x_123); +x_124 = lean_ctor_get(x_46, 0); +lean_dec(x_124); +x_125 = 0; +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_125); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +else +{ +lean_object* x_126; lean_object* x_127; uint8_t x_128; lean_object* x_129; +x_126 = lean_ctor_get(x_46, 1); +x_127 = lean_ctor_get(x_46, 2); +lean_inc(x_127); +lean_inc(x_126); +lean_dec(x_46); +x_128 = 0; +x_129 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_129, 0, x_47); +lean_ctor_set(x_129, 1, x_126); +lean_ctor_set(x_129, 2, x_127); +lean_ctor_set(x_129, 3, x_121); +lean_ctor_set_uint8(x_129, sizeof(void*)*4, x_128); +lean_ctor_set(x_1, 3, x_129); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +} +else +{ +uint8_t x_130; +x_130 = lean_ctor_get_uint8(x_121, sizeof(void*)*4); +if (x_130 == 0) +{ +uint8_t x_131; +lean_free_object(x_1); +x_131 = !lean_is_exclusive(x_46); +if (x_131 == 0) +{ +lean_object* x_132; lean_object* x_133; uint8_t x_134; +x_132 = lean_ctor_get(x_46, 3); +lean_dec(x_132); +x_133 = lean_ctor_get(x_46, 0); +lean_dec(x_133); +x_134 = !lean_is_exclusive(x_121); +if (x_134 == 0) +{ +lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; uint8_t x_139; +x_135 = lean_ctor_get(x_121, 0); +x_136 = lean_ctor_get(x_121, 1); +x_137 = lean_ctor_get(x_121, 2); +x_138 = lean_ctor_get(x_121, 3); +lean_inc(x_47); +lean_ctor_set(x_121, 3, x_47); +lean_ctor_set(x_121, 2, x_37); +lean_ctor_set(x_121, 1, x_36); +lean_ctor_set(x_121, 0, x_35); +x_139 = !lean_is_exclusive(x_47); +if (x_139 == 0) +{ +lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; +x_140 = lean_ctor_get(x_47, 3); +lean_dec(x_140); +x_141 = lean_ctor_get(x_47, 2); +lean_dec(x_141); +x_142 = lean_ctor_get(x_47, 1); +lean_dec(x_142); +x_143 = lean_ctor_get(x_47, 0); +lean_dec(x_143); +lean_ctor_set_uint8(x_121, sizeof(void*)*4, x_95); +lean_ctor_set(x_47, 3, x_138); +lean_ctor_set(x_47, 2, x_137); +lean_ctor_set(x_47, 1, x_136); +lean_ctor_set(x_47, 0, x_135); +lean_ctor_set(x_46, 3, x_47); +lean_ctor_set(x_46, 0, x_121); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_130); +return x_46; +} +else +{ +lean_object* x_144; +lean_dec(x_47); +lean_ctor_set_uint8(x_121, sizeof(void*)*4, x_95); +x_144 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_144, 0, x_135); +lean_ctor_set(x_144, 1, x_136); +lean_ctor_set(x_144, 2, x_137); +lean_ctor_set(x_144, 3, x_138); +lean_ctor_set_uint8(x_144, sizeof(void*)*4, x_95); +lean_ctor_set(x_46, 3, x_144); +lean_ctor_set(x_46, 0, x_121); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_130); +return x_46; +} +} +else +{ +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; +x_145 = lean_ctor_get(x_121, 0); +x_146 = lean_ctor_get(x_121, 1); +x_147 = lean_ctor_get(x_121, 2); +x_148 = lean_ctor_get(x_121, 3); +lean_inc(x_148); +lean_inc(x_147); +lean_inc(x_146); +lean_inc(x_145); +lean_dec(x_121); +lean_inc(x_47); +x_149 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_149, 0, x_35); +lean_ctor_set(x_149, 1, x_36); +lean_ctor_set(x_149, 2, x_37); +lean_ctor_set(x_149, 3, x_47); +if (lean_is_exclusive(x_47)) { + lean_ctor_release(x_47, 0); + lean_ctor_release(x_47, 1); + lean_ctor_release(x_47, 2); + lean_ctor_release(x_47, 3); + x_150 = x_47; +} else { + lean_dec_ref(x_47); + x_150 = lean_box(0); +} +lean_ctor_set_uint8(x_149, sizeof(void*)*4, x_95); +if (lean_is_scalar(x_150)) { + x_151 = lean_alloc_ctor(1, 4, 1); +} else { + x_151 = x_150; +} +lean_ctor_set(x_151, 0, x_145); +lean_ctor_set(x_151, 1, x_146); +lean_ctor_set(x_151, 2, x_147); +lean_ctor_set(x_151, 3, x_148); +lean_ctor_set_uint8(x_151, sizeof(void*)*4, x_95); +lean_ctor_set(x_46, 3, x_151); +lean_ctor_set(x_46, 0, x_149); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_130); +return x_46; +} +} +else +{ +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; +x_152 = lean_ctor_get(x_46, 1); +x_153 = lean_ctor_get(x_46, 2); +lean_inc(x_153); +lean_inc(x_152); +lean_dec(x_46); +x_154 = lean_ctor_get(x_121, 0); +lean_inc(x_154); +x_155 = lean_ctor_get(x_121, 1); +lean_inc(x_155); +x_156 = lean_ctor_get(x_121, 2); +lean_inc(x_156); +x_157 = lean_ctor_get(x_121, 3); +lean_inc(x_157); +if (lean_is_exclusive(x_121)) { + lean_ctor_release(x_121, 0); + lean_ctor_release(x_121, 1); + lean_ctor_release(x_121, 2); + lean_ctor_release(x_121, 3); + x_158 = x_121; +} else { + lean_dec_ref(x_121); + x_158 = lean_box(0); +} +lean_inc(x_47); +if (lean_is_scalar(x_158)) { + x_159 = lean_alloc_ctor(1, 4, 1); +} else { + x_159 = x_158; +} +lean_ctor_set(x_159, 0, x_35); +lean_ctor_set(x_159, 1, x_36); +lean_ctor_set(x_159, 2, x_37); +lean_ctor_set(x_159, 3, x_47); +if (lean_is_exclusive(x_47)) { + lean_ctor_release(x_47, 0); + lean_ctor_release(x_47, 1); + lean_ctor_release(x_47, 2); + lean_ctor_release(x_47, 3); + x_160 = x_47; +} else { + lean_dec_ref(x_47); + x_160 = lean_box(0); +} +lean_ctor_set_uint8(x_159, sizeof(void*)*4, x_95); +if (lean_is_scalar(x_160)) { + x_161 = lean_alloc_ctor(1, 4, 1); +} else { + x_161 = x_160; +} +lean_ctor_set(x_161, 0, x_154); +lean_ctor_set(x_161, 1, x_155); +lean_ctor_set(x_161, 2, x_156); +lean_ctor_set(x_161, 3, x_157); +lean_ctor_set_uint8(x_161, sizeof(void*)*4, x_95); +x_162 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_162, 0, x_159); +lean_ctor_set(x_162, 1, x_152); +lean_ctor_set(x_162, 2, x_153); +lean_ctor_set(x_162, 3, x_161); +lean_ctor_set_uint8(x_162, sizeof(void*)*4, x_130); +return x_162; +} +} +else +{ +uint8_t x_163; +x_163 = !lean_is_exclusive(x_46); +if (x_163 == 0) +{ +lean_object* x_164; lean_object* x_165; uint8_t x_166; +x_164 = lean_ctor_get(x_46, 3); +lean_dec(x_164); +x_165 = lean_ctor_get(x_46, 0); +lean_dec(x_165); +x_166 = !lean_is_exclusive(x_47); +if (x_166 == 0) +{ +uint8_t x_167; +lean_ctor_set_uint8(x_47, sizeof(void*)*4, x_130); +x_167 = 0; +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_167); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_130); +return x_1; +} +else +{ +lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; uint8_t x_173; +x_168 = lean_ctor_get(x_47, 0); +x_169 = lean_ctor_get(x_47, 1); +x_170 = lean_ctor_get(x_47, 2); +x_171 = lean_ctor_get(x_47, 3); +lean_inc(x_171); +lean_inc(x_170); +lean_inc(x_169); +lean_inc(x_168); +lean_dec(x_47); +x_172 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_172, 0, x_168); +lean_ctor_set(x_172, 1, x_169); +lean_ctor_set(x_172, 2, x_170); +lean_ctor_set(x_172, 3, x_171); +lean_ctor_set_uint8(x_172, sizeof(void*)*4, x_130); +x_173 = 0; +lean_ctor_set(x_46, 0, x_172); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_173); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_130); +return x_1; +} +} +else +{ +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; uint8_t x_182; lean_object* x_183; +x_174 = lean_ctor_get(x_46, 1); +x_175 = lean_ctor_get(x_46, 2); +lean_inc(x_175); +lean_inc(x_174); +lean_dec(x_46); +x_176 = lean_ctor_get(x_47, 0); +lean_inc(x_176); +x_177 = lean_ctor_get(x_47, 1); +lean_inc(x_177); +x_178 = lean_ctor_get(x_47, 2); +lean_inc(x_178); +x_179 = lean_ctor_get(x_47, 3); +lean_inc(x_179); +if (lean_is_exclusive(x_47)) { + lean_ctor_release(x_47, 0); + lean_ctor_release(x_47, 1); + lean_ctor_release(x_47, 2); + lean_ctor_release(x_47, 3); + x_180 = x_47; +} else { + lean_dec_ref(x_47); + x_180 = lean_box(0); +} +if (lean_is_scalar(x_180)) { + x_181 = lean_alloc_ctor(1, 4, 1); +} else { + x_181 = x_180; +} +lean_ctor_set(x_181, 0, x_176); +lean_ctor_set(x_181, 1, x_177); +lean_ctor_set(x_181, 2, x_178); +lean_ctor_set(x_181, 3, x_179); +lean_ctor_set_uint8(x_181, sizeof(void*)*4, x_130); +x_182 = 0; +x_183 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_183, 0, x_181); +lean_ctor_set(x_183, 1, x_174); +lean_ctor_set(x_183, 2, x_175); +lean_ctor_set(x_183, 3, x_121); +lean_ctor_set_uint8(x_183, sizeof(void*)*4, x_182); +lean_ctor_set(x_1, 3, x_183); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_130); +return x_1; +} +} +} +} +} +} +} +} +else +{ +uint8_t x_184; +x_184 = l_RBNode_isRed___rarg(x_35); +if (x_184 == 0) +{ +lean_object* x_185; +x_185 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg(x_35, x_2, x_3); +lean_ctor_set(x_1, 0, x_185); +return x_1; +} +else +{ +lean_object* x_186; lean_object* x_187; +x_186 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg(x_35, x_2, x_3); +x_187 = lean_ctor_get(x_186, 0); +lean_inc(x_187); +if (lean_obj_tag(x_187) == 0) +{ +lean_object* x_188; +x_188 = lean_ctor_get(x_186, 3); +lean_inc(x_188); +if (lean_obj_tag(x_188) == 0) +{ +uint8_t x_189; +x_189 = !lean_is_exclusive(x_186); +if (x_189 == 0) +{ +lean_object* x_190; lean_object* x_191; uint8_t x_192; uint8_t x_193; +x_190 = lean_ctor_get(x_186, 3); +lean_dec(x_190); +x_191 = lean_ctor_get(x_186, 0); +lean_dec(x_191); +x_192 = 0; +lean_ctor_set(x_186, 0, x_188); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_192); +x_193 = 1; +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_193); +return x_1; +} +else +{ +lean_object* x_194; lean_object* x_195; uint8_t x_196; lean_object* x_197; uint8_t x_198; +x_194 = lean_ctor_get(x_186, 1); +x_195 = lean_ctor_get(x_186, 2); +lean_inc(x_195); +lean_inc(x_194); +lean_dec(x_186); +x_196 = 0; +x_197 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_197, 0, x_188); +lean_ctor_set(x_197, 1, x_194); +lean_ctor_set(x_197, 2, x_195); +lean_ctor_set(x_197, 3, x_188); +lean_ctor_set_uint8(x_197, sizeof(void*)*4, x_196); +x_198 = 1; +lean_ctor_set(x_1, 0, x_197); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_198); +return x_1; +} +} +else +{ +uint8_t x_199; +x_199 = lean_ctor_get_uint8(x_188, sizeof(void*)*4); +if (x_199 == 0) +{ +uint8_t x_200; +x_200 = !lean_is_exclusive(x_186); +if (x_200 == 0) +{ +lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; uint8_t x_205; +x_201 = lean_ctor_get(x_186, 1); +x_202 = lean_ctor_get(x_186, 2); +x_203 = lean_ctor_get(x_186, 3); +lean_dec(x_203); +x_204 = lean_ctor_get(x_186, 0); +lean_dec(x_204); +x_205 = !lean_is_exclusive(x_188); +if (x_205 == 0) +{ +lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; uint8_t x_210; +x_206 = lean_ctor_get(x_188, 0); +x_207 = lean_ctor_get(x_188, 1); +x_208 = lean_ctor_get(x_188, 2); +x_209 = lean_ctor_get(x_188, 3); +x_210 = 1; +lean_ctor_set(x_188, 3, x_206); +lean_ctor_set(x_188, 2, x_202); +lean_ctor_set(x_188, 1, x_201); +lean_ctor_set(x_188, 0, x_187); +lean_ctor_set_uint8(x_188, sizeof(void*)*4, x_210); +lean_ctor_set(x_186, 3, x_38); +lean_ctor_set(x_186, 2, x_37); +lean_ctor_set(x_186, 1, x_36); +lean_ctor_set(x_186, 0, x_209); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_210); +lean_ctor_set(x_1, 3, x_186); +lean_ctor_set(x_1, 2, x_208); +lean_ctor_set(x_1, 1, x_207); +lean_ctor_set(x_1, 0, x_188); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +else +{ +lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; uint8_t x_215; lean_object* x_216; +x_211 = lean_ctor_get(x_188, 0); +x_212 = lean_ctor_get(x_188, 1); +x_213 = lean_ctor_get(x_188, 2); +x_214 = lean_ctor_get(x_188, 3); +lean_inc(x_214); +lean_inc(x_213); +lean_inc(x_212); +lean_inc(x_211); +lean_dec(x_188); +x_215 = 1; +x_216 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_216, 0, x_187); +lean_ctor_set(x_216, 1, x_201); +lean_ctor_set(x_216, 2, x_202); +lean_ctor_set(x_216, 3, x_211); +lean_ctor_set_uint8(x_216, sizeof(void*)*4, x_215); +lean_ctor_set(x_186, 3, x_38); +lean_ctor_set(x_186, 2, x_37); +lean_ctor_set(x_186, 1, x_36); +lean_ctor_set(x_186, 0, x_214); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_215); +lean_ctor_set(x_1, 3, x_186); +lean_ctor_set(x_1, 2, x_213); +lean_ctor_set(x_1, 1, x_212); +lean_ctor_set(x_1, 0, x_216); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +} +else +{ +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; uint8_t x_224; lean_object* x_225; lean_object* x_226; +x_217 = lean_ctor_get(x_186, 1); +x_218 = lean_ctor_get(x_186, 2); +lean_inc(x_218); +lean_inc(x_217); +lean_dec(x_186); +x_219 = lean_ctor_get(x_188, 0); +lean_inc(x_219); +x_220 = lean_ctor_get(x_188, 1); +lean_inc(x_220); +x_221 = lean_ctor_get(x_188, 2); +lean_inc(x_221); +x_222 = lean_ctor_get(x_188, 3); +lean_inc(x_222); +if (lean_is_exclusive(x_188)) { + lean_ctor_release(x_188, 0); + lean_ctor_release(x_188, 1); + lean_ctor_release(x_188, 2); + lean_ctor_release(x_188, 3); + x_223 = x_188; +} else { + lean_dec_ref(x_188); + x_223 = lean_box(0); +} +x_224 = 1; +if (lean_is_scalar(x_223)) { + x_225 = lean_alloc_ctor(1, 4, 1); +} else { + x_225 = x_223; +} +lean_ctor_set(x_225, 0, x_187); +lean_ctor_set(x_225, 1, x_217); +lean_ctor_set(x_225, 2, x_218); +lean_ctor_set(x_225, 3, x_219); +lean_ctor_set_uint8(x_225, sizeof(void*)*4, x_224); +x_226 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_226, 0, x_222); +lean_ctor_set(x_226, 1, x_36); +lean_ctor_set(x_226, 2, x_37); +lean_ctor_set(x_226, 3, x_38); +lean_ctor_set_uint8(x_226, sizeof(void*)*4, x_224); +lean_ctor_set(x_1, 3, x_226); +lean_ctor_set(x_1, 2, x_221); +lean_ctor_set(x_1, 1, x_220); +lean_ctor_set(x_1, 0, x_225); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +} +else +{ +uint8_t x_227; +x_227 = !lean_is_exclusive(x_186); +if (x_227 == 0) +{ +lean_object* x_228; lean_object* x_229; uint8_t x_230; +x_228 = lean_ctor_get(x_186, 3); +lean_dec(x_228); +x_229 = lean_ctor_get(x_186, 0); +lean_dec(x_229); +x_230 = 0; +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_230); +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +else +{ +lean_object* x_231; lean_object* x_232; uint8_t x_233; lean_object* x_234; +x_231 = lean_ctor_get(x_186, 1); +x_232 = lean_ctor_get(x_186, 2); +lean_inc(x_232); +lean_inc(x_231); +lean_dec(x_186); +x_233 = 0; +x_234 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_234, 0, x_187); +lean_ctor_set(x_234, 1, x_231); +lean_ctor_set(x_234, 2, x_232); +lean_ctor_set(x_234, 3, x_188); +lean_ctor_set_uint8(x_234, sizeof(void*)*4, x_233); +lean_ctor_set(x_1, 0, x_234); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +} +} +} +else +{ +uint8_t x_235; +x_235 = lean_ctor_get_uint8(x_187, sizeof(void*)*4); +if (x_235 == 0) +{ +uint8_t x_236; +x_236 = !lean_is_exclusive(x_186); +if (x_236 == 0) +{ +lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; uint8_t x_241; +x_237 = lean_ctor_get(x_186, 1); +x_238 = lean_ctor_get(x_186, 2); +x_239 = lean_ctor_get(x_186, 3); +x_240 = lean_ctor_get(x_186, 0); +lean_dec(x_240); +x_241 = !lean_is_exclusive(x_187); +if (x_241 == 0) +{ +uint8_t x_242; +x_242 = 1; +lean_ctor_set_uint8(x_187, sizeof(void*)*4, x_242); +lean_ctor_set(x_186, 3, x_38); +lean_ctor_set(x_186, 2, x_37); +lean_ctor_set(x_186, 1, x_36); +lean_ctor_set(x_186, 0, x_239); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_242); +lean_ctor_set(x_1, 3, x_186); +lean_ctor_set(x_1, 2, x_238); +lean_ctor_set(x_1, 1, x_237); +lean_ctor_set(x_1, 0, x_187); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +else +{ +lean_object* x_243; lean_object* x_244; lean_object* x_245; lean_object* x_246; uint8_t x_247; lean_object* x_248; +x_243 = lean_ctor_get(x_187, 0); +x_244 = lean_ctor_get(x_187, 1); +x_245 = lean_ctor_get(x_187, 2); +x_246 = lean_ctor_get(x_187, 3); +lean_inc(x_246); +lean_inc(x_245); +lean_inc(x_244); +lean_inc(x_243); +lean_dec(x_187); +x_247 = 1; +x_248 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_248, 0, x_243); +lean_ctor_set(x_248, 1, x_244); +lean_ctor_set(x_248, 2, x_245); +lean_ctor_set(x_248, 3, x_246); +lean_ctor_set_uint8(x_248, sizeof(void*)*4, x_247); +lean_ctor_set(x_186, 3, x_38); +lean_ctor_set(x_186, 2, x_37); +lean_ctor_set(x_186, 1, x_36); +lean_ctor_set(x_186, 0, x_239); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_247); +lean_ctor_set(x_1, 3, x_186); +lean_ctor_set(x_1, 2, x_238); +lean_ctor_set(x_1, 1, x_237); +lean_ctor_set(x_1, 0, x_248); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +} +else +{ +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; uint8_t x_257; lean_object* x_258; lean_object* x_259; +x_249 = lean_ctor_get(x_186, 1); +x_250 = lean_ctor_get(x_186, 2); +x_251 = lean_ctor_get(x_186, 3); +lean_inc(x_251); +lean_inc(x_250); +lean_inc(x_249); +lean_dec(x_186); +x_252 = lean_ctor_get(x_187, 0); +lean_inc(x_252); +x_253 = lean_ctor_get(x_187, 1); +lean_inc(x_253); +x_254 = lean_ctor_get(x_187, 2); +lean_inc(x_254); +x_255 = lean_ctor_get(x_187, 3); +lean_inc(x_255); +if (lean_is_exclusive(x_187)) { + lean_ctor_release(x_187, 0); + lean_ctor_release(x_187, 1); + lean_ctor_release(x_187, 2); + lean_ctor_release(x_187, 3); + x_256 = x_187; +} else { + lean_dec_ref(x_187); + x_256 = lean_box(0); +} +x_257 = 1; +if (lean_is_scalar(x_256)) { + x_258 = lean_alloc_ctor(1, 4, 1); +} else { + x_258 = x_256; +} +lean_ctor_set(x_258, 0, x_252); +lean_ctor_set(x_258, 1, x_253); +lean_ctor_set(x_258, 2, x_254); +lean_ctor_set(x_258, 3, x_255); +lean_ctor_set_uint8(x_258, sizeof(void*)*4, x_257); +x_259 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_259, 0, x_251); +lean_ctor_set(x_259, 1, x_36); +lean_ctor_set(x_259, 2, x_37); +lean_ctor_set(x_259, 3, x_38); +lean_ctor_set_uint8(x_259, sizeof(void*)*4, x_257); +lean_ctor_set(x_1, 3, x_259); +lean_ctor_set(x_1, 2, x_250); +lean_ctor_set(x_1, 1, x_249); +lean_ctor_set(x_1, 0, x_258); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +} +else +{ +lean_object* x_260; +x_260 = lean_ctor_get(x_186, 3); +lean_inc(x_260); +if (lean_obj_tag(x_260) == 0) +{ +uint8_t x_261; +x_261 = !lean_is_exclusive(x_186); +if (x_261 == 0) +{ +lean_object* x_262; lean_object* x_263; uint8_t x_264; +x_262 = lean_ctor_get(x_186, 3); +lean_dec(x_262); +x_263 = lean_ctor_get(x_186, 0); +lean_dec(x_263); +x_264 = 0; +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_264); +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +else +{ +lean_object* x_265; lean_object* x_266; uint8_t x_267; lean_object* x_268; +x_265 = lean_ctor_get(x_186, 1); +x_266 = lean_ctor_get(x_186, 2); +lean_inc(x_266); +lean_inc(x_265); +lean_dec(x_186); +x_267 = 0; +x_268 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_268, 0, x_187); +lean_ctor_set(x_268, 1, x_265); +lean_ctor_set(x_268, 2, x_266); +lean_ctor_set(x_268, 3, x_260); +lean_ctor_set_uint8(x_268, sizeof(void*)*4, x_267); +lean_ctor_set(x_1, 0, x_268); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +} +else +{ +uint8_t x_269; +x_269 = lean_ctor_get_uint8(x_260, sizeof(void*)*4); +if (x_269 == 0) +{ +uint8_t x_270; +lean_free_object(x_1); +x_270 = !lean_is_exclusive(x_186); +if (x_270 == 0) +{ +lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; uint8_t x_275; +x_271 = lean_ctor_get(x_186, 1); +x_272 = lean_ctor_get(x_186, 2); +x_273 = lean_ctor_get(x_186, 3); +lean_dec(x_273); +x_274 = lean_ctor_get(x_186, 0); +lean_dec(x_274); +x_275 = !lean_is_exclusive(x_260); +if (x_275 == 0) +{ +lean_object* x_276; lean_object* x_277; lean_object* x_278; lean_object* x_279; uint8_t x_280; +x_276 = lean_ctor_get(x_260, 0); +x_277 = lean_ctor_get(x_260, 1); +x_278 = lean_ctor_get(x_260, 2); +x_279 = lean_ctor_get(x_260, 3); +lean_inc(x_187); +lean_ctor_set(x_260, 3, x_276); +lean_ctor_set(x_260, 2, x_272); +lean_ctor_set(x_260, 1, x_271); +lean_ctor_set(x_260, 0, x_187); +x_280 = !lean_is_exclusive(x_187); +if (x_280 == 0) +{ +lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; +x_281 = lean_ctor_get(x_187, 3); +lean_dec(x_281); +x_282 = lean_ctor_get(x_187, 2); +lean_dec(x_282); +x_283 = lean_ctor_get(x_187, 1); +lean_dec(x_283); +x_284 = lean_ctor_get(x_187, 0); +lean_dec(x_284); +lean_ctor_set_uint8(x_260, sizeof(void*)*4, x_235); +lean_ctor_set(x_187, 3, x_38); +lean_ctor_set(x_187, 2, x_37); +lean_ctor_set(x_187, 1, x_36); +lean_ctor_set(x_187, 0, x_279); +lean_ctor_set(x_186, 3, x_187); +lean_ctor_set(x_186, 2, x_278); +lean_ctor_set(x_186, 1, x_277); +lean_ctor_set(x_186, 0, x_260); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_269); +return x_186; +} +else +{ +lean_object* x_285; +lean_dec(x_187); +lean_ctor_set_uint8(x_260, sizeof(void*)*4, x_235); +x_285 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_285, 0, x_279); +lean_ctor_set(x_285, 1, x_36); +lean_ctor_set(x_285, 2, x_37); +lean_ctor_set(x_285, 3, x_38); +lean_ctor_set_uint8(x_285, sizeof(void*)*4, x_235); +lean_ctor_set(x_186, 3, x_285); +lean_ctor_set(x_186, 2, x_278); +lean_ctor_set(x_186, 1, x_277); +lean_ctor_set(x_186, 0, x_260); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_269); +return x_186; +} +} +else +{ +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; +x_286 = lean_ctor_get(x_260, 0); +x_287 = lean_ctor_get(x_260, 1); +x_288 = lean_ctor_get(x_260, 2); +x_289 = lean_ctor_get(x_260, 3); +lean_inc(x_289); +lean_inc(x_288); +lean_inc(x_287); +lean_inc(x_286); +lean_dec(x_260); +lean_inc(x_187); +x_290 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_290, 0, x_187); +lean_ctor_set(x_290, 1, x_271); +lean_ctor_set(x_290, 2, x_272); +lean_ctor_set(x_290, 3, x_286); +if (lean_is_exclusive(x_187)) { + lean_ctor_release(x_187, 0); + lean_ctor_release(x_187, 1); + lean_ctor_release(x_187, 2); + lean_ctor_release(x_187, 3); + x_291 = x_187; +} else { + lean_dec_ref(x_187); + x_291 = lean_box(0); +} +lean_ctor_set_uint8(x_290, sizeof(void*)*4, x_235); +if (lean_is_scalar(x_291)) { + x_292 = lean_alloc_ctor(1, 4, 1); +} else { + x_292 = x_291; +} +lean_ctor_set(x_292, 0, x_289); +lean_ctor_set(x_292, 1, x_36); +lean_ctor_set(x_292, 2, x_37); +lean_ctor_set(x_292, 3, x_38); +lean_ctor_set_uint8(x_292, sizeof(void*)*4, x_235); +lean_ctor_set(x_186, 3, x_292); +lean_ctor_set(x_186, 2, x_288); +lean_ctor_set(x_186, 1, x_287); +lean_ctor_set(x_186, 0, x_290); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_269); +return x_186; +} +} +else +{ +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; +x_293 = lean_ctor_get(x_186, 1); +x_294 = lean_ctor_get(x_186, 2); +lean_inc(x_294); +lean_inc(x_293); +lean_dec(x_186); +x_295 = lean_ctor_get(x_260, 0); +lean_inc(x_295); +x_296 = lean_ctor_get(x_260, 1); +lean_inc(x_296); +x_297 = lean_ctor_get(x_260, 2); +lean_inc(x_297); +x_298 = lean_ctor_get(x_260, 3); +lean_inc(x_298); +if (lean_is_exclusive(x_260)) { + lean_ctor_release(x_260, 0); + lean_ctor_release(x_260, 1); + lean_ctor_release(x_260, 2); + lean_ctor_release(x_260, 3); + x_299 = x_260; +} else { + lean_dec_ref(x_260); + x_299 = lean_box(0); +} +lean_inc(x_187); +if (lean_is_scalar(x_299)) { + x_300 = lean_alloc_ctor(1, 4, 1); +} else { + x_300 = x_299; +} +lean_ctor_set(x_300, 0, x_187); +lean_ctor_set(x_300, 1, x_293); +lean_ctor_set(x_300, 2, x_294); +lean_ctor_set(x_300, 3, x_295); +if (lean_is_exclusive(x_187)) { + lean_ctor_release(x_187, 0); + lean_ctor_release(x_187, 1); + lean_ctor_release(x_187, 2); + lean_ctor_release(x_187, 3); + x_301 = x_187; +} else { + lean_dec_ref(x_187); + x_301 = lean_box(0); +} +lean_ctor_set_uint8(x_300, sizeof(void*)*4, x_235); +if (lean_is_scalar(x_301)) { + x_302 = lean_alloc_ctor(1, 4, 1); +} else { + x_302 = x_301; +} +lean_ctor_set(x_302, 0, x_298); +lean_ctor_set(x_302, 1, x_36); +lean_ctor_set(x_302, 2, x_37); +lean_ctor_set(x_302, 3, x_38); +lean_ctor_set_uint8(x_302, sizeof(void*)*4, x_235); +x_303 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_303, 0, x_300); +lean_ctor_set(x_303, 1, x_296); +lean_ctor_set(x_303, 2, x_297); +lean_ctor_set(x_303, 3, x_302); +lean_ctor_set_uint8(x_303, sizeof(void*)*4, x_269); +return x_303; +} +} +else +{ +uint8_t x_304; +x_304 = !lean_is_exclusive(x_186); +if (x_304 == 0) +{ +lean_object* x_305; lean_object* x_306; uint8_t x_307; +x_305 = lean_ctor_get(x_186, 3); +lean_dec(x_305); +x_306 = lean_ctor_get(x_186, 0); +lean_dec(x_306); +x_307 = !lean_is_exclusive(x_187); +if (x_307 == 0) +{ +uint8_t x_308; +lean_ctor_set_uint8(x_187, sizeof(void*)*4, x_269); +x_308 = 0; +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_308); +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_269); +return x_1; +} +else +{ +lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_object* x_312; lean_object* x_313; uint8_t x_314; +x_309 = lean_ctor_get(x_187, 0); +x_310 = lean_ctor_get(x_187, 1); +x_311 = lean_ctor_get(x_187, 2); +x_312 = lean_ctor_get(x_187, 3); +lean_inc(x_312); +lean_inc(x_311); +lean_inc(x_310); +lean_inc(x_309); +lean_dec(x_187); +x_313 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_313, 0, x_309); +lean_ctor_set(x_313, 1, x_310); +lean_ctor_set(x_313, 2, x_311); +lean_ctor_set(x_313, 3, x_312); +lean_ctor_set_uint8(x_313, sizeof(void*)*4, x_269); +x_314 = 0; +lean_ctor_set(x_186, 0, x_313); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_314); +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_269); +return x_1; +} +} +else +{ +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; uint8_t x_323; lean_object* x_324; +x_315 = lean_ctor_get(x_186, 1); +x_316 = lean_ctor_get(x_186, 2); +lean_inc(x_316); +lean_inc(x_315); +lean_dec(x_186); +x_317 = lean_ctor_get(x_187, 0); +lean_inc(x_317); +x_318 = lean_ctor_get(x_187, 1); +lean_inc(x_318); +x_319 = lean_ctor_get(x_187, 2); +lean_inc(x_319); +x_320 = lean_ctor_get(x_187, 3); +lean_inc(x_320); +if (lean_is_exclusive(x_187)) { + lean_ctor_release(x_187, 0); + lean_ctor_release(x_187, 1); + lean_ctor_release(x_187, 2); + lean_ctor_release(x_187, 3); + x_321 = x_187; +} else { + lean_dec_ref(x_187); + x_321 = lean_box(0); +} +if (lean_is_scalar(x_321)) { + x_322 = lean_alloc_ctor(1, 4, 1); +} else { + x_322 = x_321; +} +lean_ctor_set(x_322, 0, x_317); +lean_ctor_set(x_322, 1, x_318); +lean_ctor_set(x_322, 2, x_319); +lean_ctor_set(x_322, 3, x_320); +lean_ctor_set_uint8(x_322, sizeof(void*)*4, x_269); +x_323 = 0; +x_324 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_324, 0, x_322); +lean_ctor_set(x_324, 1, x_315); +lean_ctor_set(x_324, 2, x_316); +lean_ctor_set(x_324, 3, x_260); +lean_ctor_set_uint8(x_324, sizeof(void*)*4, x_323); +lean_ctor_set(x_1, 0, x_324); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_269); +return x_1; +} +} +} +} +} +} +} +} +else +{ +lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_328; uint32_t x_329; uint8_t x_330; +x_325 = lean_ctor_get(x_1, 0); +x_326 = lean_ctor_get(x_1, 1); +x_327 = lean_ctor_get(x_1, 2); +x_328 = lean_ctor_get(x_1, 3); +lean_inc(x_328); +lean_inc(x_327); +lean_inc(x_326); +lean_inc(x_325); +lean_dec(x_1); +x_329 = lean_unbox_uint32(x_326); +x_330 = x_2 < x_329; +if (x_330 == 0) +{ +uint32_t x_331; uint8_t x_332; +x_331 = lean_unbox_uint32(x_326); +x_332 = x_331 < x_2; +if (x_332 == 0) +{ +lean_object* x_333; lean_object* x_334; +lean_dec(x_327); +lean_dec(x_326); +x_333 = lean_box_uint32(x_2); +x_334 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_334, 0, x_325); +lean_ctor_set(x_334, 1, x_333); +lean_ctor_set(x_334, 2, x_3); +lean_ctor_set(x_334, 3, x_328); +lean_ctor_set_uint8(x_334, sizeof(void*)*4, x_7); +return x_334; +} +else +{ +uint8_t x_335; +x_335 = l_RBNode_isRed___rarg(x_328); +if (x_335 == 0) +{ +lean_object* x_336; lean_object* x_337; +x_336 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg(x_328, x_2, x_3); +x_337 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_337, 0, x_325); +lean_ctor_set(x_337, 1, x_326); +lean_ctor_set(x_337, 2, x_327); +lean_ctor_set(x_337, 3, x_336); +lean_ctor_set_uint8(x_337, sizeof(void*)*4, x_7); +return x_337; +} +else +{ +lean_object* x_338; lean_object* x_339; +x_338 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg(x_328, x_2, x_3); +x_339 = lean_ctor_get(x_338, 0); +lean_inc(x_339); +if (lean_obj_tag(x_339) == 0) +{ +lean_object* x_340; +x_340 = lean_ctor_get(x_338, 3); +lean_inc(x_340); +if (lean_obj_tag(x_340) == 0) +{ +lean_object* x_341; lean_object* x_342; lean_object* x_343; uint8_t x_344; lean_object* x_345; uint8_t x_346; lean_object* x_347; +x_341 = lean_ctor_get(x_338, 1); +lean_inc(x_341); +x_342 = lean_ctor_get(x_338, 2); +lean_inc(x_342); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_343 = x_338; +} else { + lean_dec_ref(x_338); + x_343 = lean_box(0); +} +x_344 = 0; +if (lean_is_scalar(x_343)) { + x_345 = lean_alloc_ctor(1, 4, 1); +} else { + x_345 = x_343; +} +lean_ctor_set(x_345, 0, x_340); +lean_ctor_set(x_345, 1, x_341); +lean_ctor_set(x_345, 2, x_342); +lean_ctor_set(x_345, 3, x_340); +lean_ctor_set_uint8(x_345, sizeof(void*)*4, x_344); +x_346 = 1; +x_347 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_347, 0, x_325); +lean_ctor_set(x_347, 1, x_326); +lean_ctor_set(x_347, 2, x_327); +lean_ctor_set(x_347, 3, x_345); +lean_ctor_set_uint8(x_347, sizeof(void*)*4, x_346); +return x_347; +} +else +{ +uint8_t x_348; +x_348 = lean_ctor_get_uint8(x_340, sizeof(void*)*4); +if (x_348 == 0) +{ +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; uint8_t x_357; lean_object* x_358; lean_object* x_359; lean_object* x_360; +x_349 = lean_ctor_get(x_338, 1); +lean_inc(x_349); +x_350 = lean_ctor_get(x_338, 2); +lean_inc(x_350); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_351 = x_338; +} else { + lean_dec_ref(x_338); + x_351 = lean_box(0); +} +x_352 = lean_ctor_get(x_340, 0); +lean_inc(x_352); +x_353 = lean_ctor_get(x_340, 1); +lean_inc(x_353); +x_354 = lean_ctor_get(x_340, 2); +lean_inc(x_354); +x_355 = lean_ctor_get(x_340, 3); +lean_inc(x_355); +if (lean_is_exclusive(x_340)) { + lean_ctor_release(x_340, 0); + lean_ctor_release(x_340, 1); + lean_ctor_release(x_340, 2); + lean_ctor_release(x_340, 3); + x_356 = x_340; +} else { + lean_dec_ref(x_340); + x_356 = lean_box(0); +} +x_357 = 1; +if (lean_is_scalar(x_356)) { + x_358 = lean_alloc_ctor(1, 4, 1); +} else { + x_358 = x_356; +} +lean_ctor_set(x_358, 0, x_325); +lean_ctor_set(x_358, 1, x_326); +lean_ctor_set(x_358, 2, x_327); +lean_ctor_set(x_358, 3, x_339); +lean_ctor_set_uint8(x_358, sizeof(void*)*4, x_357); +if (lean_is_scalar(x_351)) { + x_359 = lean_alloc_ctor(1, 4, 1); +} else { + x_359 = x_351; +} +lean_ctor_set(x_359, 0, x_352); +lean_ctor_set(x_359, 1, x_353); +lean_ctor_set(x_359, 2, x_354); +lean_ctor_set(x_359, 3, x_355); +lean_ctor_set_uint8(x_359, sizeof(void*)*4, x_357); +x_360 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_360, 0, x_358); +lean_ctor_set(x_360, 1, x_349); +lean_ctor_set(x_360, 2, x_350); +lean_ctor_set(x_360, 3, x_359); +lean_ctor_set_uint8(x_360, sizeof(void*)*4, x_348); +return x_360; +} +else +{ +lean_object* x_361; lean_object* x_362; lean_object* x_363; uint8_t x_364; lean_object* x_365; lean_object* x_366; +x_361 = lean_ctor_get(x_338, 1); +lean_inc(x_361); +x_362 = lean_ctor_get(x_338, 2); +lean_inc(x_362); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_363 = x_338; +} else { + lean_dec_ref(x_338); + x_363 = lean_box(0); +} +x_364 = 0; +if (lean_is_scalar(x_363)) { + x_365 = lean_alloc_ctor(1, 4, 1); +} else { + x_365 = x_363; +} +lean_ctor_set(x_365, 0, x_339); +lean_ctor_set(x_365, 1, x_361); +lean_ctor_set(x_365, 2, x_362); +lean_ctor_set(x_365, 3, x_340); +lean_ctor_set_uint8(x_365, sizeof(void*)*4, x_364); +x_366 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_366, 0, x_325); +lean_ctor_set(x_366, 1, x_326); +lean_ctor_set(x_366, 2, x_327); +lean_ctor_set(x_366, 3, x_365); +lean_ctor_set_uint8(x_366, sizeof(void*)*4, x_348); +return x_366; +} +} +} +else +{ +uint8_t x_367; +x_367 = lean_ctor_get_uint8(x_339, sizeof(void*)*4); +if (x_367 == 0) +{ +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; uint8_t x_377; lean_object* x_378; lean_object* x_379; lean_object* x_380; +x_368 = lean_ctor_get(x_338, 1); +lean_inc(x_368); +x_369 = lean_ctor_get(x_338, 2); +lean_inc(x_369); +x_370 = lean_ctor_get(x_338, 3); +lean_inc(x_370); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_371 = x_338; +} else { + lean_dec_ref(x_338); + x_371 = lean_box(0); +} +x_372 = lean_ctor_get(x_339, 0); +lean_inc(x_372); +x_373 = lean_ctor_get(x_339, 1); +lean_inc(x_373); +x_374 = lean_ctor_get(x_339, 2); +lean_inc(x_374); +x_375 = lean_ctor_get(x_339, 3); +lean_inc(x_375); +if (lean_is_exclusive(x_339)) { + lean_ctor_release(x_339, 0); + lean_ctor_release(x_339, 1); + lean_ctor_release(x_339, 2); + lean_ctor_release(x_339, 3); + x_376 = x_339; +} else { + lean_dec_ref(x_339); + x_376 = lean_box(0); +} +x_377 = 1; +if (lean_is_scalar(x_376)) { + x_378 = lean_alloc_ctor(1, 4, 1); +} else { + x_378 = x_376; +} +lean_ctor_set(x_378, 0, x_325); +lean_ctor_set(x_378, 1, x_326); +lean_ctor_set(x_378, 2, x_327); +lean_ctor_set(x_378, 3, x_372); +lean_ctor_set_uint8(x_378, sizeof(void*)*4, x_377); +if (lean_is_scalar(x_371)) { + x_379 = lean_alloc_ctor(1, 4, 1); +} else { + x_379 = x_371; +} +lean_ctor_set(x_379, 0, x_375); +lean_ctor_set(x_379, 1, x_368); +lean_ctor_set(x_379, 2, x_369); +lean_ctor_set(x_379, 3, x_370); +lean_ctor_set_uint8(x_379, sizeof(void*)*4, x_377); +x_380 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_380, 0, x_378); +lean_ctor_set(x_380, 1, x_373); +lean_ctor_set(x_380, 2, x_374); +lean_ctor_set(x_380, 3, x_379); +lean_ctor_set_uint8(x_380, sizeof(void*)*4, x_367); +return x_380; +} +else +{ +lean_object* x_381; +x_381 = lean_ctor_get(x_338, 3); +lean_inc(x_381); +if (lean_obj_tag(x_381) == 0) +{ +lean_object* x_382; lean_object* x_383; lean_object* x_384; uint8_t x_385; lean_object* x_386; lean_object* x_387; +x_382 = lean_ctor_get(x_338, 1); +lean_inc(x_382); +x_383 = lean_ctor_get(x_338, 2); +lean_inc(x_383); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_384 = x_338; +} else { + lean_dec_ref(x_338); + x_384 = lean_box(0); +} +x_385 = 0; +if (lean_is_scalar(x_384)) { + x_386 = lean_alloc_ctor(1, 4, 1); +} else { + x_386 = x_384; +} +lean_ctor_set(x_386, 0, x_339); +lean_ctor_set(x_386, 1, x_382); +lean_ctor_set(x_386, 2, x_383); +lean_ctor_set(x_386, 3, x_381); +lean_ctor_set_uint8(x_386, sizeof(void*)*4, x_385); +x_387 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_387, 0, x_325); +lean_ctor_set(x_387, 1, x_326); +lean_ctor_set(x_387, 2, x_327); +lean_ctor_set(x_387, 3, x_386); +lean_ctor_set_uint8(x_387, sizeof(void*)*4, x_367); +return x_387; +} +else +{ +uint8_t x_388; +x_388 = lean_ctor_get_uint8(x_381, sizeof(void*)*4); +if (x_388 == 0) +{ +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; +x_389 = lean_ctor_get(x_338, 1); +lean_inc(x_389); +x_390 = lean_ctor_get(x_338, 2); +lean_inc(x_390); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_391 = x_338; +} else { + lean_dec_ref(x_338); + x_391 = lean_box(0); +} +x_392 = lean_ctor_get(x_381, 0); +lean_inc(x_392); +x_393 = lean_ctor_get(x_381, 1); +lean_inc(x_393); +x_394 = lean_ctor_get(x_381, 2); +lean_inc(x_394); +x_395 = lean_ctor_get(x_381, 3); +lean_inc(x_395); +if (lean_is_exclusive(x_381)) { + lean_ctor_release(x_381, 0); + lean_ctor_release(x_381, 1); + lean_ctor_release(x_381, 2); + lean_ctor_release(x_381, 3); + x_396 = x_381; +} else { + lean_dec_ref(x_381); + x_396 = lean_box(0); +} +lean_inc(x_339); +if (lean_is_scalar(x_396)) { + x_397 = lean_alloc_ctor(1, 4, 1); +} else { + x_397 = x_396; +} +lean_ctor_set(x_397, 0, x_325); +lean_ctor_set(x_397, 1, x_326); +lean_ctor_set(x_397, 2, x_327); +lean_ctor_set(x_397, 3, x_339); +if (lean_is_exclusive(x_339)) { + lean_ctor_release(x_339, 0); + lean_ctor_release(x_339, 1); + lean_ctor_release(x_339, 2); + lean_ctor_release(x_339, 3); + x_398 = x_339; +} else { + lean_dec_ref(x_339); + x_398 = lean_box(0); +} +lean_ctor_set_uint8(x_397, sizeof(void*)*4, x_367); +if (lean_is_scalar(x_398)) { + x_399 = lean_alloc_ctor(1, 4, 1); +} else { + x_399 = x_398; +} +lean_ctor_set(x_399, 0, x_392); +lean_ctor_set(x_399, 1, x_393); +lean_ctor_set(x_399, 2, x_394); +lean_ctor_set(x_399, 3, x_395); +lean_ctor_set_uint8(x_399, sizeof(void*)*4, x_367); +if (lean_is_scalar(x_391)) { + x_400 = lean_alloc_ctor(1, 4, 1); +} else { + x_400 = x_391; +} +lean_ctor_set(x_400, 0, x_397); +lean_ctor_set(x_400, 1, x_389); +lean_ctor_set(x_400, 2, x_390); +lean_ctor_set(x_400, 3, x_399); +lean_ctor_set_uint8(x_400, sizeof(void*)*4, x_388); +return x_400; +} +else +{ +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; uint8_t x_410; lean_object* x_411; lean_object* x_412; +x_401 = lean_ctor_get(x_338, 1); +lean_inc(x_401); +x_402 = lean_ctor_get(x_338, 2); +lean_inc(x_402); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_403 = x_338; +} else { + lean_dec_ref(x_338); + x_403 = lean_box(0); +} +x_404 = lean_ctor_get(x_339, 0); +lean_inc(x_404); +x_405 = lean_ctor_get(x_339, 1); +lean_inc(x_405); +x_406 = lean_ctor_get(x_339, 2); +lean_inc(x_406); +x_407 = lean_ctor_get(x_339, 3); +lean_inc(x_407); +if (lean_is_exclusive(x_339)) { + lean_ctor_release(x_339, 0); + lean_ctor_release(x_339, 1); + lean_ctor_release(x_339, 2); + lean_ctor_release(x_339, 3); + x_408 = x_339; +} else { + lean_dec_ref(x_339); + x_408 = lean_box(0); +} +if (lean_is_scalar(x_408)) { + x_409 = lean_alloc_ctor(1, 4, 1); +} else { + x_409 = x_408; +} +lean_ctor_set(x_409, 0, x_404); +lean_ctor_set(x_409, 1, x_405); +lean_ctor_set(x_409, 2, x_406); +lean_ctor_set(x_409, 3, x_407); +lean_ctor_set_uint8(x_409, sizeof(void*)*4, x_388); +x_410 = 0; +if (lean_is_scalar(x_403)) { + x_411 = lean_alloc_ctor(1, 4, 1); +} else { + x_411 = x_403; +} +lean_ctor_set(x_411, 0, x_409); +lean_ctor_set(x_411, 1, x_401); +lean_ctor_set(x_411, 2, x_402); +lean_ctor_set(x_411, 3, x_381); +lean_ctor_set_uint8(x_411, sizeof(void*)*4, x_410); +x_412 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_412, 0, x_325); +lean_ctor_set(x_412, 1, x_326); +lean_ctor_set(x_412, 2, x_327); +lean_ctor_set(x_412, 3, x_411); +lean_ctor_set_uint8(x_412, sizeof(void*)*4, x_388); +return x_412; +} +} +} +} +} +} +} +else +{ +uint8_t x_413; +x_413 = l_RBNode_isRed___rarg(x_325); +if (x_413 == 0) +{ +lean_object* x_414; lean_object* x_415; +x_414 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg(x_325, x_2, x_3); +x_415 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_415, 0, x_414); +lean_ctor_set(x_415, 1, x_326); +lean_ctor_set(x_415, 2, x_327); +lean_ctor_set(x_415, 3, x_328); +lean_ctor_set_uint8(x_415, sizeof(void*)*4, x_7); +return x_415; +} +else +{ +lean_object* x_416; lean_object* x_417; +x_416 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg(x_325, x_2, x_3); +x_417 = lean_ctor_get(x_416, 0); +lean_inc(x_417); +if (lean_obj_tag(x_417) == 0) +{ +lean_object* x_418; +x_418 = lean_ctor_get(x_416, 3); +lean_inc(x_418); +if (lean_obj_tag(x_418) == 0) +{ +lean_object* x_419; lean_object* x_420; lean_object* x_421; uint8_t x_422; lean_object* x_423; uint8_t x_424; lean_object* x_425; +x_419 = lean_ctor_get(x_416, 1); +lean_inc(x_419); +x_420 = lean_ctor_get(x_416, 2); +lean_inc(x_420); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_421 = x_416; +} else { + lean_dec_ref(x_416); + x_421 = lean_box(0); +} +x_422 = 0; +if (lean_is_scalar(x_421)) { + x_423 = lean_alloc_ctor(1, 4, 1); +} else { + x_423 = x_421; +} +lean_ctor_set(x_423, 0, x_418); +lean_ctor_set(x_423, 1, x_419); +lean_ctor_set(x_423, 2, x_420); +lean_ctor_set(x_423, 3, x_418); +lean_ctor_set_uint8(x_423, sizeof(void*)*4, x_422); +x_424 = 1; +x_425 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_425, 0, x_423); +lean_ctor_set(x_425, 1, x_326); +lean_ctor_set(x_425, 2, x_327); +lean_ctor_set(x_425, 3, x_328); +lean_ctor_set_uint8(x_425, sizeof(void*)*4, x_424); +return x_425; +} +else +{ +uint8_t x_426; +x_426 = lean_ctor_get_uint8(x_418, sizeof(void*)*4); +if (x_426 == 0) +{ +lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; lean_object* x_431; lean_object* x_432; lean_object* x_433; lean_object* x_434; uint8_t x_435; lean_object* x_436; lean_object* x_437; lean_object* x_438; +x_427 = lean_ctor_get(x_416, 1); +lean_inc(x_427); +x_428 = lean_ctor_get(x_416, 2); +lean_inc(x_428); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_429 = x_416; +} else { + lean_dec_ref(x_416); + x_429 = lean_box(0); +} +x_430 = lean_ctor_get(x_418, 0); +lean_inc(x_430); +x_431 = lean_ctor_get(x_418, 1); +lean_inc(x_431); +x_432 = lean_ctor_get(x_418, 2); +lean_inc(x_432); +x_433 = lean_ctor_get(x_418, 3); +lean_inc(x_433); +if (lean_is_exclusive(x_418)) { + lean_ctor_release(x_418, 0); + lean_ctor_release(x_418, 1); + lean_ctor_release(x_418, 2); + lean_ctor_release(x_418, 3); + x_434 = x_418; +} else { + lean_dec_ref(x_418); + x_434 = lean_box(0); +} +x_435 = 1; +if (lean_is_scalar(x_434)) { + x_436 = lean_alloc_ctor(1, 4, 1); +} else { + x_436 = x_434; +} +lean_ctor_set(x_436, 0, x_417); +lean_ctor_set(x_436, 1, x_427); +lean_ctor_set(x_436, 2, x_428); +lean_ctor_set(x_436, 3, x_430); +lean_ctor_set_uint8(x_436, sizeof(void*)*4, x_435); +if (lean_is_scalar(x_429)) { + x_437 = lean_alloc_ctor(1, 4, 1); +} else { + x_437 = x_429; +} +lean_ctor_set(x_437, 0, x_433); +lean_ctor_set(x_437, 1, x_326); +lean_ctor_set(x_437, 2, x_327); +lean_ctor_set(x_437, 3, x_328); +lean_ctor_set_uint8(x_437, sizeof(void*)*4, x_435); +x_438 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_438, 0, x_436); +lean_ctor_set(x_438, 1, x_431); +lean_ctor_set(x_438, 2, x_432); +lean_ctor_set(x_438, 3, x_437); +lean_ctor_set_uint8(x_438, sizeof(void*)*4, x_426); +return x_438; +} +else +{ +lean_object* x_439; lean_object* x_440; lean_object* x_441; uint8_t x_442; lean_object* x_443; lean_object* x_444; +x_439 = lean_ctor_get(x_416, 1); +lean_inc(x_439); +x_440 = lean_ctor_get(x_416, 2); +lean_inc(x_440); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_441 = x_416; +} else { + lean_dec_ref(x_416); + x_441 = lean_box(0); +} +x_442 = 0; +if (lean_is_scalar(x_441)) { + x_443 = lean_alloc_ctor(1, 4, 1); +} else { + x_443 = x_441; +} +lean_ctor_set(x_443, 0, x_417); +lean_ctor_set(x_443, 1, x_439); +lean_ctor_set(x_443, 2, x_440); +lean_ctor_set(x_443, 3, x_418); +lean_ctor_set_uint8(x_443, sizeof(void*)*4, x_442); +x_444 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_444, 0, x_443); +lean_ctor_set(x_444, 1, x_326); +lean_ctor_set(x_444, 2, x_327); +lean_ctor_set(x_444, 3, x_328); +lean_ctor_set_uint8(x_444, sizeof(void*)*4, x_426); +return x_444; +} +} +} +else +{ +uint8_t x_445; +x_445 = lean_ctor_get_uint8(x_417, sizeof(void*)*4); +if (x_445 == 0) +{ +lean_object* x_446; lean_object* x_447; lean_object* x_448; lean_object* x_449; lean_object* x_450; lean_object* x_451; lean_object* x_452; lean_object* x_453; lean_object* x_454; uint8_t x_455; lean_object* x_456; lean_object* x_457; lean_object* x_458; +x_446 = lean_ctor_get(x_416, 1); +lean_inc(x_446); +x_447 = lean_ctor_get(x_416, 2); +lean_inc(x_447); +x_448 = lean_ctor_get(x_416, 3); +lean_inc(x_448); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_449 = x_416; +} else { + lean_dec_ref(x_416); + x_449 = lean_box(0); +} +x_450 = lean_ctor_get(x_417, 0); +lean_inc(x_450); +x_451 = lean_ctor_get(x_417, 1); +lean_inc(x_451); +x_452 = lean_ctor_get(x_417, 2); +lean_inc(x_452); +x_453 = lean_ctor_get(x_417, 3); +lean_inc(x_453); +if (lean_is_exclusive(x_417)) { + lean_ctor_release(x_417, 0); + lean_ctor_release(x_417, 1); + lean_ctor_release(x_417, 2); + lean_ctor_release(x_417, 3); + x_454 = x_417; +} else { + lean_dec_ref(x_417); + x_454 = lean_box(0); +} +x_455 = 1; +if (lean_is_scalar(x_454)) { + x_456 = lean_alloc_ctor(1, 4, 1); +} else { + x_456 = x_454; +} +lean_ctor_set(x_456, 0, x_450); +lean_ctor_set(x_456, 1, x_451); +lean_ctor_set(x_456, 2, x_452); +lean_ctor_set(x_456, 3, x_453); +lean_ctor_set_uint8(x_456, sizeof(void*)*4, x_455); +if (lean_is_scalar(x_449)) { + x_457 = lean_alloc_ctor(1, 4, 1); +} else { + x_457 = x_449; +} +lean_ctor_set(x_457, 0, x_448); +lean_ctor_set(x_457, 1, x_326); +lean_ctor_set(x_457, 2, x_327); +lean_ctor_set(x_457, 3, x_328); +lean_ctor_set_uint8(x_457, sizeof(void*)*4, x_455); +x_458 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_458, 0, x_456); +lean_ctor_set(x_458, 1, x_446); +lean_ctor_set(x_458, 2, x_447); +lean_ctor_set(x_458, 3, x_457); +lean_ctor_set_uint8(x_458, sizeof(void*)*4, x_445); +return x_458; +} +else +{ +lean_object* x_459; +x_459 = lean_ctor_get(x_416, 3); +lean_inc(x_459); +if (lean_obj_tag(x_459) == 0) +{ +lean_object* x_460; lean_object* x_461; lean_object* x_462; uint8_t x_463; lean_object* x_464; lean_object* x_465; +x_460 = lean_ctor_get(x_416, 1); +lean_inc(x_460); +x_461 = lean_ctor_get(x_416, 2); +lean_inc(x_461); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_462 = x_416; +} else { + lean_dec_ref(x_416); + x_462 = lean_box(0); +} +x_463 = 0; +if (lean_is_scalar(x_462)) { + x_464 = lean_alloc_ctor(1, 4, 1); +} else { + x_464 = x_462; +} +lean_ctor_set(x_464, 0, x_417); +lean_ctor_set(x_464, 1, x_460); +lean_ctor_set(x_464, 2, x_461); +lean_ctor_set(x_464, 3, x_459); +lean_ctor_set_uint8(x_464, sizeof(void*)*4, x_463); +x_465 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_465, 0, x_464); +lean_ctor_set(x_465, 1, x_326); +lean_ctor_set(x_465, 2, x_327); +lean_ctor_set(x_465, 3, x_328); +lean_ctor_set_uint8(x_465, sizeof(void*)*4, x_445); +return x_465; +} +else +{ +uint8_t x_466; +x_466 = lean_ctor_get_uint8(x_459, sizeof(void*)*4); +if (x_466 == 0) +{ +lean_object* x_467; lean_object* x_468; lean_object* x_469; lean_object* x_470; lean_object* x_471; lean_object* x_472; lean_object* x_473; lean_object* x_474; lean_object* x_475; lean_object* x_476; lean_object* x_477; lean_object* x_478; +x_467 = lean_ctor_get(x_416, 1); +lean_inc(x_467); +x_468 = lean_ctor_get(x_416, 2); +lean_inc(x_468); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_469 = x_416; +} else { + lean_dec_ref(x_416); + x_469 = lean_box(0); +} +x_470 = lean_ctor_get(x_459, 0); +lean_inc(x_470); +x_471 = lean_ctor_get(x_459, 1); +lean_inc(x_471); +x_472 = lean_ctor_get(x_459, 2); +lean_inc(x_472); +x_473 = lean_ctor_get(x_459, 3); +lean_inc(x_473); +if (lean_is_exclusive(x_459)) { + lean_ctor_release(x_459, 0); + lean_ctor_release(x_459, 1); + lean_ctor_release(x_459, 2); + lean_ctor_release(x_459, 3); + x_474 = x_459; +} else { + lean_dec_ref(x_459); + x_474 = lean_box(0); +} +lean_inc(x_417); +if (lean_is_scalar(x_474)) { + x_475 = lean_alloc_ctor(1, 4, 1); +} else { + x_475 = x_474; +} +lean_ctor_set(x_475, 0, x_417); +lean_ctor_set(x_475, 1, x_467); +lean_ctor_set(x_475, 2, x_468); +lean_ctor_set(x_475, 3, x_470); +if (lean_is_exclusive(x_417)) { + lean_ctor_release(x_417, 0); + lean_ctor_release(x_417, 1); + lean_ctor_release(x_417, 2); + lean_ctor_release(x_417, 3); + x_476 = x_417; +} else { + lean_dec_ref(x_417); + x_476 = lean_box(0); +} +lean_ctor_set_uint8(x_475, sizeof(void*)*4, x_445); +if (lean_is_scalar(x_476)) { + x_477 = lean_alloc_ctor(1, 4, 1); +} else { + x_477 = x_476; +} +lean_ctor_set(x_477, 0, x_473); +lean_ctor_set(x_477, 1, x_326); +lean_ctor_set(x_477, 2, x_327); +lean_ctor_set(x_477, 3, x_328); +lean_ctor_set_uint8(x_477, sizeof(void*)*4, x_445); +if (lean_is_scalar(x_469)) { + x_478 = lean_alloc_ctor(1, 4, 1); +} else { + x_478 = x_469; +} +lean_ctor_set(x_478, 0, x_475); +lean_ctor_set(x_478, 1, x_471); +lean_ctor_set(x_478, 2, x_472); +lean_ctor_set(x_478, 3, x_477); +lean_ctor_set_uint8(x_478, sizeof(void*)*4, x_466); +return x_478; +} +else +{ +lean_object* x_479; lean_object* x_480; lean_object* x_481; lean_object* x_482; lean_object* x_483; lean_object* x_484; lean_object* x_485; lean_object* x_486; lean_object* x_487; uint8_t x_488; lean_object* x_489; lean_object* x_490; +x_479 = lean_ctor_get(x_416, 1); +lean_inc(x_479); +x_480 = lean_ctor_get(x_416, 2); +lean_inc(x_480); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_481 = x_416; +} else { + lean_dec_ref(x_416); + x_481 = lean_box(0); +} +x_482 = lean_ctor_get(x_417, 0); +lean_inc(x_482); +x_483 = lean_ctor_get(x_417, 1); +lean_inc(x_483); +x_484 = lean_ctor_get(x_417, 2); +lean_inc(x_484); +x_485 = lean_ctor_get(x_417, 3); +lean_inc(x_485); +if (lean_is_exclusive(x_417)) { + lean_ctor_release(x_417, 0); + lean_ctor_release(x_417, 1); + lean_ctor_release(x_417, 2); + lean_ctor_release(x_417, 3); + x_486 = x_417; +} else { + lean_dec_ref(x_417); + x_486 = lean_box(0); +} +if (lean_is_scalar(x_486)) { + x_487 = lean_alloc_ctor(1, 4, 1); +} else { + x_487 = x_486; +} +lean_ctor_set(x_487, 0, x_482); +lean_ctor_set(x_487, 1, x_483); +lean_ctor_set(x_487, 2, x_484); +lean_ctor_set(x_487, 3, x_485); +lean_ctor_set_uint8(x_487, sizeof(void*)*4, x_466); +x_488 = 0; +if (lean_is_scalar(x_481)) { + x_489 = lean_alloc_ctor(1, 4, 1); +} else { + x_489 = x_481; +} +lean_ctor_set(x_489, 0, x_487); +lean_ctor_set(x_489, 1, x_479); +lean_ctor_set(x_489, 2, x_480); +lean_ctor_set(x_489, 3, x_459); +lean_ctor_set_uint8(x_489, sizeof(void*)*4, x_488); +x_490 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_490, 0, x_489); +lean_ctor_set(x_490, 1, x_326); +lean_ctor_set(x_490, 2, x_327); +lean_ctor_set(x_490, 3, x_328); +lean_ctor_set_uint8(x_490, sizeof(void*)*4, x_466); +return x_490; +} +} +} +} +} +} +} +} +} +} +} +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg(lean_object* x_1, uint32_t x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +uint8_t x_4; lean_object* x_5; lean_object* x_6; +x_4 = 0; +x_5 = lean_box_uint32(x_2); +x_6 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_6, 0, x_1); +lean_ctor_set(x_6, 1, x_5); +lean_ctor_set(x_6, 2, x_3); +lean_ctor_set(x_6, 3, x_1); +lean_ctor_set_uint8(x_6, sizeof(void*)*4, x_4); +return x_6; +} +else +{ +uint8_t x_7; +x_7 = lean_ctor_get_uint8(x_1, sizeof(void*)*4); +if (x_7 == 0) +{ +uint8_t x_8; +x_8 = !lean_is_exclusive(x_1); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; uint32_t x_13; uint8_t x_14; +x_9 = lean_ctor_get(x_1, 0); +x_10 = lean_ctor_get(x_1, 1); +x_11 = lean_ctor_get(x_1, 2); +x_12 = lean_ctor_get(x_1, 3); +x_13 = lean_unbox_uint32(x_10); +x_14 = x_2 < x_13; +if (x_14 == 0) +{ +uint32_t x_15; uint8_t x_16; +x_15 = lean_unbox_uint32(x_10); +x_16 = x_15 < x_2; +if (x_16 == 0) +{ +lean_object* x_17; +lean_dec(x_11); +lean_dec(x_10); +x_17 = lean_box_uint32(x_2); +lean_ctor_set(x_1, 2, x_3); +lean_ctor_set(x_1, 1, x_17); +return x_1; +} +else +{ +lean_object* x_18; +x_18 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg(x_12, x_2, x_3); +lean_ctor_set(x_1, 3, x_18); +return x_1; +} +} +else +{ +lean_object* x_19; +x_19 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg(x_9, x_2, x_3); +lean_ctor_set(x_1, 0, x_19); +return x_1; +} +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; uint32_t x_24; uint8_t x_25; +x_20 = lean_ctor_get(x_1, 0); +x_21 = lean_ctor_get(x_1, 1); +x_22 = lean_ctor_get(x_1, 2); +x_23 = lean_ctor_get(x_1, 3); +lean_inc(x_23); +lean_inc(x_22); +lean_inc(x_21); +lean_inc(x_20); +lean_dec(x_1); +x_24 = lean_unbox_uint32(x_21); +x_25 = x_2 < x_24; +if (x_25 == 0) +{ +uint32_t x_26; uint8_t x_27; +x_26 = lean_unbox_uint32(x_21); +x_27 = x_26 < x_2; +if (x_27 == 0) +{ +lean_object* x_28; lean_object* x_29; +lean_dec(x_22); +lean_dec(x_21); +x_28 = lean_box_uint32(x_2); +x_29 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_29, 0, x_20); +lean_ctor_set(x_29, 1, x_28); +lean_ctor_set(x_29, 2, x_3); +lean_ctor_set(x_29, 3, x_23); +lean_ctor_set_uint8(x_29, sizeof(void*)*4, x_7); +return x_29; +} +else +{ +lean_object* x_30; lean_object* x_31; +x_30 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg(x_23, x_2, x_3); +x_31 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_31, 0, x_20); +lean_ctor_set(x_31, 1, x_21); +lean_ctor_set(x_31, 2, x_22); +lean_ctor_set(x_31, 3, x_30); +lean_ctor_set_uint8(x_31, sizeof(void*)*4, x_7); +return x_31; +} +} +else +{ +lean_object* x_32; lean_object* x_33; +x_32 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg(x_20, x_2, x_3); +x_33 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_33, 0, x_32); +lean_ctor_set(x_33, 1, x_21); +lean_ctor_set(x_33, 2, x_22); +lean_ctor_set(x_33, 3, x_23); +lean_ctor_set_uint8(x_33, sizeof(void*)*4, x_7); +return x_33; +} +} +} +else +{ +uint8_t x_34; +x_34 = !lean_is_exclusive(x_1); +if (x_34 == 0) +{ +lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; uint32_t x_39; uint8_t x_40; +x_35 = lean_ctor_get(x_1, 0); +x_36 = lean_ctor_get(x_1, 1); +x_37 = lean_ctor_get(x_1, 2); +x_38 = lean_ctor_get(x_1, 3); +x_39 = lean_unbox_uint32(x_36); +x_40 = x_2 < x_39; +if (x_40 == 0) +{ +uint32_t x_41; uint8_t x_42; +x_41 = lean_unbox_uint32(x_36); +x_42 = x_41 < x_2; +if (x_42 == 0) +{ +lean_object* x_43; +lean_dec(x_37); +lean_dec(x_36); +x_43 = lean_box_uint32(x_2); +lean_ctor_set(x_1, 2, x_3); +lean_ctor_set(x_1, 1, x_43); +return x_1; +} +else +{ +uint8_t x_44; +x_44 = l_RBNode_isRed___rarg(x_38); +if (x_44 == 0) +{ +lean_object* x_45; +x_45 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg(x_38, x_2, x_3); +lean_ctor_set(x_1, 3, x_45); +return x_1; +} +else +{ +lean_object* x_46; lean_object* x_47; +x_46 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg(x_38, x_2, x_3); +x_47 = lean_ctor_get(x_46, 0); +lean_inc(x_47); +if (lean_obj_tag(x_47) == 0) +{ +lean_object* x_48; +x_48 = lean_ctor_get(x_46, 3); +lean_inc(x_48); +if (lean_obj_tag(x_48) == 0) +{ +uint8_t x_49; +x_49 = !lean_is_exclusive(x_46); +if (x_49 == 0) +{ +lean_object* x_50; lean_object* x_51; uint8_t x_52; uint8_t x_53; +x_50 = lean_ctor_get(x_46, 3); +lean_dec(x_50); +x_51 = lean_ctor_get(x_46, 0); +lean_dec(x_51); +x_52 = 0; +lean_ctor_set(x_46, 0, x_48); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_52); +x_53 = 1; +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_53); +return x_1; +} +else +{ +lean_object* x_54; lean_object* x_55; uint8_t x_56; lean_object* x_57; uint8_t x_58; +x_54 = lean_ctor_get(x_46, 1); +x_55 = lean_ctor_get(x_46, 2); +lean_inc(x_55); +lean_inc(x_54); +lean_dec(x_46); +x_56 = 0; +x_57 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_57, 0, x_48); +lean_ctor_set(x_57, 1, x_54); +lean_ctor_set(x_57, 2, x_55); +lean_ctor_set(x_57, 3, x_48); +lean_ctor_set_uint8(x_57, sizeof(void*)*4, x_56); +x_58 = 1; +lean_ctor_set(x_1, 3, x_57); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_58); +return x_1; +} +} +else +{ +uint8_t x_59; +x_59 = lean_ctor_get_uint8(x_48, sizeof(void*)*4); +if (x_59 == 0) +{ +uint8_t x_60; +x_60 = !lean_is_exclusive(x_46); +if (x_60 == 0) +{ +lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; uint8_t x_65; +x_61 = lean_ctor_get(x_46, 1); +x_62 = lean_ctor_get(x_46, 2); +x_63 = lean_ctor_get(x_46, 3); +lean_dec(x_63); +x_64 = lean_ctor_get(x_46, 0); +lean_dec(x_64); +x_65 = !lean_is_exclusive(x_48); +if (x_65 == 0) +{ +lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; uint8_t x_70; +x_66 = lean_ctor_get(x_48, 0); +x_67 = lean_ctor_get(x_48, 1); +x_68 = lean_ctor_get(x_48, 2); +x_69 = lean_ctor_get(x_48, 3); +x_70 = 1; +lean_ctor_set(x_48, 3, x_47); +lean_ctor_set(x_48, 2, x_37); +lean_ctor_set(x_48, 1, x_36); +lean_ctor_set(x_48, 0, x_35); +lean_ctor_set_uint8(x_48, sizeof(void*)*4, x_70); +lean_ctor_set(x_46, 3, x_69); +lean_ctor_set(x_46, 2, x_68); +lean_ctor_set(x_46, 1, x_67); +lean_ctor_set(x_46, 0, x_66); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_70); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set(x_1, 2, x_62); +lean_ctor_set(x_1, 1, x_61); +lean_ctor_set(x_1, 0, x_48); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +else +{ +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 = lean_ctor_get(x_48, 0); +x_72 = lean_ctor_get(x_48, 1); +x_73 = lean_ctor_get(x_48, 2); +x_74 = lean_ctor_get(x_48, 3); +lean_inc(x_74); +lean_inc(x_73); +lean_inc(x_72); +lean_inc(x_71); +lean_dec(x_48); +x_75 = 1; +x_76 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_76, 0, x_35); +lean_ctor_set(x_76, 1, x_36); +lean_ctor_set(x_76, 2, x_37); +lean_ctor_set(x_76, 3, x_47); +lean_ctor_set_uint8(x_76, sizeof(void*)*4, x_75); +lean_ctor_set(x_46, 3, x_74); +lean_ctor_set(x_46, 2, x_73); +lean_ctor_set(x_46, 1, x_72); +lean_ctor_set(x_46, 0, x_71); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_75); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set(x_1, 2, x_62); +lean_ctor_set(x_1, 1, x_61); +lean_ctor_set(x_1, 0, x_76); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +} +else +{ +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; uint8_t x_84; lean_object* x_85; lean_object* x_86; +x_77 = lean_ctor_get(x_46, 1); +x_78 = lean_ctor_get(x_46, 2); +lean_inc(x_78); +lean_inc(x_77); +lean_dec(x_46); +x_79 = lean_ctor_get(x_48, 0); +lean_inc(x_79); +x_80 = lean_ctor_get(x_48, 1); +lean_inc(x_80); +x_81 = lean_ctor_get(x_48, 2); +lean_inc(x_81); +x_82 = lean_ctor_get(x_48, 3); +lean_inc(x_82); +if (lean_is_exclusive(x_48)) { + lean_ctor_release(x_48, 0); + lean_ctor_release(x_48, 1); + lean_ctor_release(x_48, 2); + lean_ctor_release(x_48, 3); + x_83 = x_48; +} else { + lean_dec_ref(x_48); + x_83 = lean_box(0); +} +x_84 = 1; +if (lean_is_scalar(x_83)) { + x_85 = lean_alloc_ctor(1, 4, 1); +} else { + x_85 = x_83; +} +lean_ctor_set(x_85, 0, x_35); +lean_ctor_set(x_85, 1, x_36); +lean_ctor_set(x_85, 2, x_37); +lean_ctor_set(x_85, 3, x_47); +lean_ctor_set_uint8(x_85, sizeof(void*)*4, x_84); +x_86 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_86, 0, x_79); +lean_ctor_set(x_86, 1, x_80); +lean_ctor_set(x_86, 2, x_81); +lean_ctor_set(x_86, 3, x_82); +lean_ctor_set_uint8(x_86, sizeof(void*)*4, x_84); +lean_ctor_set(x_1, 3, x_86); +lean_ctor_set(x_1, 2, x_78); +lean_ctor_set(x_1, 1, x_77); +lean_ctor_set(x_1, 0, x_85); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +} +else +{ +uint8_t x_87; +x_87 = !lean_is_exclusive(x_46); +if (x_87 == 0) +{ +lean_object* x_88; lean_object* x_89; uint8_t x_90; +x_88 = lean_ctor_get(x_46, 3); +lean_dec(x_88); +x_89 = lean_ctor_get(x_46, 0); +lean_dec(x_89); +x_90 = 0; +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_90); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +else +{ +lean_object* x_91; lean_object* x_92; uint8_t x_93; lean_object* x_94; +x_91 = lean_ctor_get(x_46, 1); +x_92 = lean_ctor_get(x_46, 2); +lean_inc(x_92); +lean_inc(x_91); +lean_dec(x_46); +x_93 = 0; +x_94 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_94, 0, x_47); +lean_ctor_set(x_94, 1, x_91); +lean_ctor_set(x_94, 2, x_92); +lean_ctor_set(x_94, 3, x_48); +lean_ctor_set_uint8(x_94, sizeof(void*)*4, x_93); +lean_ctor_set(x_1, 3, x_94); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +} +} +} +else +{ +uint8_t x_95; +x_95 = lean_ctor_get_uint8(x_47, sizeof(void*)*4); +if (x_95 == 0) +{ +uint8_t x_96; +x_96 = !lean_is_exclusive(x_46); +if (x_96 == 0) +{ +lean_object* x_97; uint8_t x_98; +x_97 = lean_ctor_get(x_46, 0); +lean_dec(x_97); +x_98 = !lean_is_exclusive(x_47); +if (x_98 == 0) +{ +lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; uint8_t x_103; +x_99 = lean_ctor_get(x_47, 0); +x_100 = lean_ctor_get(x_47, 1); +x_101 = lean_ctor_get(x_47, 2); +x_102 = lean_ctor_get(x_47, 3); +x_103 = 1; +lean_ctor_set(x_47, 3, x_99); +lean_ctor_set(x_47, 2, x_37); +lean_ctor_set(x_47, 1, x_36); +lean_ctor_set(x_47, 0, x_35); +lean_ctor_set_uint8(x_47, sizeof(void*)*4, x_103); +lean_ctor_set(x_46, 0, x_102); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_103); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set(x_1, 2, x_101); +lean_ctor_set(x_1, 1, x_100); +lean_ctor_set(x_1, 0, x_47); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +else +{ +lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; uint8_t x_108; lean_object* x_109; +x_104 = lean_ctor_get(x_47, 0); +x_105 = lean_ctor_get(x_47, 1); +x_106 = lean_ctor_get(x_47, 2); +x_107 = lean_ctor_get(x_47, 3); +lean_inc(x_107); +lean_inc(x_106); +lean_inc(x_105); +lean_inc(x_104); +lean_dec(x_47); +x_108 = 1; +x_109 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_109, 0, x_35); +lean_ctor_set(x_109, 1, x_36); +lean_ctor_set(x_109, 2, x_37); +lean_ctor_set(x_109, 3, x_104); +lean_ctor_set_uint8(x_109, sizeof(void*)*4, x_108); +lean_ctor_set(x_46, 0, x_107); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_108); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set(x_1, 2, x_106); +lean_ctor_set(x_1, 1, x_105); +lean_ctor_set(x_1, 0, x_109); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +} +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; uint8_t x_118; lean_object* x_119; lean_object* x_120; +x_110 = lean_ctor_get(x_46, 1); +x_111 = lean_ctor_get(x_46, 2); +x_112 = lean_ctor_get(x_46, 3); +lean_inc(x_112); +lean_inc(x_111); +lean_inc(x_110); +lean_dec(x_46); +x_113 = lean_ctor_get(x_47, 0); +lean_inc(x_113); +x_114 = lean_ctor_get(x_47, 1); +lean_inc(x_114); +x_115 = lean_ctor_get(x_47, 2); +lean_inc(x_115); +x_116 = lean_ctor_get(x_47, 3); +lean_inc(x_116); +if (lean_is_exclusive(x_47)) { + lean_ctor_release(x_47, 0); + lean_ctor_release(x_47, 1); + lean_ctor_release(x_47, 2); + lean_ctor_release(x_47, 3); + x_117 = x_47; +} else { + lean_dec_ref(x_47); + x_117 = lean_box(0); +} +x_118 = 1; +if (lean_is_scalar(x_117)) { + x_119 = lean_alloc_ctor(1, 4, 1); +} else { + x_119 = x_117; +} +lean_ctor_set(x_119, 0, x_35); +lean_ctor_set(x_119, 1, x_36); +lean_ctor_set(x_119, 2, x_37); +lean_ctor_set(x_119, 3, x_113); +lean_ctor_set_uint8(x_119, sizeof(void*)*4, x_118); +x_120 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_120, 0, x_116); +lean_ctor_set(x_120, 1, x_110); +lean_ctor_set(x_120, 2, x_111); +lean_ctor_set(x_120, 3, x_112); +lean_ctor_set_uint8(x_120, sizeof(void*)*4, x_118); +lean_ctor_set(x_1, 3, x_120); +lean_ctor_set(x_1, 2, x_115); +lean_ctor_set(x_1, 1, x_114); +lean_ctor_set(x_1, 0, x_119); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +} +else +{ +lean_object* x_121; +x_121 = lean_ctor_get(x_46, 3); +lean_inc(x_121); +if (lean_obj_tag(x_121) == 0) +{ +uint8_t x_122; +x_122 = !lean_is_exclusive(x_46); +if (x_122 == 0) +{ +lean_object* x_123; lean_object* x_124; uint8_t x_125; +x_123 = lean_ctor_get(x_46, 3); +lean_dec(x_123); +x_124 = lean_ctor_get(x_46, 0); +lean_dec(x_124); +x_125 = 0; +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_125); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +else +{ +lean_object* x_126; lean_object* x_127; uint8_t x_128; lean_object* x_129; +x_126 = lean_ctor_get(x_46, 1); +x_127 = lean_ctor_get(x_46, 2); +lean_inc(x_127); +lean_inc(x_126); +lean_dec(x_46); +x_128 = 0; +x_129 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_129, 0, x_47); +lean_ctor_set(x_129, 1, x_126); +lean_ctor_set(x_129, 2, x_127); +lean_ctor_set(x_129, 3, x_121); +lean_ctor_set_uint8(x_129, sizeof(void*)*4, x_128); +lean_ctor_set(x_1, 3, x_129); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +} +else +{ +uint8_t x_130; +x_130 = lean_ctor_get_uint8(x_121, sizeof(void*)*4); +if (x_130 == 0) +{ +uint8_t x_131; +lean_free_object(x_1); +x_131 = !lean_is_exclusive(x_46); +if (x_131 == 0) +{ +lean_object* x_132; lean_object* x_133; uint8_t x_134; +x_132 = lean_ctor_get(x_46, 3); +lean_dec(x_132); +x_133 = lean_ctor_get(x_46, 0); +lean_dec(x_133); +x_134 = !lean_is_exclusive(x_121); +if (x_134 == 0) +{ +lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; uint8_t x_139; +x_135 = lean_ctor_get(x_121, 0); +x_136 = lean_ctor_get(x_121, 1); +x_137 = lean_ctor_get(x_121, 2); +x_138 = lean_ctor_get(x_121, 3); +lean_inc(x_47); +lean_ctor_set(x_121, 3, x_47); +lean_ctor_set(x_121, 2, x_37); +lean_ctor_set(x_121, 1, x_36); +lean_ctor_set(x_121, 0, x_35); +x_139 = !lean_is_exclusive(x_47); +if (x_139 == 0) +{ +lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; +x_140 = lean_ctor_get(x_47, 3); +lean_dec(x_140); +x_141 = lean_ctor_get(x_47, 2); +lean_dec(x_141); +x_142 = lean_ctor_get(x_47, 1); +lean_dec(x_142); +x_143 = lean_ctor_get(x_47, 0); +lean_dec(x_143); +lean_ctor_set_uint8(x_121, sizeof(void*)*4, x_95); +lean_ctor_set(x_47, 3, x_138); +lean_ctor_set(x_47, 2, x_137); +lean_ctor_set(x_47, 1, x_136); +lean_ctor_set(x_47, 0, x_135); +lean_ctor_set(x_46, 3, x_47); +lean_ctor_set(x_46, 0, x_121); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_130); +return x_46; +} +else +{ +lean_object* x_144; +lean_dec(x_47); +lean_ctor_set_uint8(x_121, sizeof(void*)*4, x_95); +x_144 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_144, 0, x_135); +lean_ctor_set(x_144, 1, x_136); +lean_ctor_set(x_144, 2, x_137); +lean_ctor_set(x_144, 3, x_138); +lean_ctor_set_uint8(x_144, sizeof(void*)*4, x_95); +lean_ctor_set(x_46, 3, x_144); +lean_ctor_set(x_46, 0, x_121); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_130); +return x_46; +} +} +else +{ +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; +x_145 = lean_ctor_get(x_121, 0); +x_146 = lean_ctor_get(x_121, 1); +x_147 = lean_ctor_get(x_121, 2); +x_148 = lean_ctor_get(x_121, 3); +lean_inc(x_148); +lean_inc(x_147); +lean_inc(x_146); +lean_inc(x_145); +lean_dec(x_121); +lean_inc(x_47); +x_149 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_149, 0, x_35); +lean_ctor_set(x_149, 1, x_36); +lean_ctor_set(x_149, 2, x_37); +lean_ctor_set(x_149, 3, x_47); +if (lean_is_exclusive(x_47)) { + lean_ctor_release(x_47, 0); + lean_ctor_release(x_47, 1); + lean_ctor_release(x_47, 2); + lean_ctor_release(x_47, 3); + x_150 = x_47; +} else { + lean_dec_ref(x_47); + x_150 = lean_box(0); +} +lean_ctor_set_uint8(x_149, sizeof(void*)*4, x_95); +if (lean_is_scalar(x_150)) { + x_151 = lean_alloc_ctor(1, 4, 1); +} else { + x_151 = x_150; +} +lean_ctor_set(x_151, 0, x_145); +lean_ctor_set(x_151, 1, x_146); +lean_ctor_set(x_151, 2, x_147); +lean_ctor_set(x_151, 3, x_148); +lean_ctor_set_uint8(x_151, sizeof(void*)*4, x_95); +lean_ctor_set(x_46, 3, x_151); +lean_ctor_set(x_46, 0, x_149); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_130); +return x_46; +} +} +else +{ +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; +x_152 = lean_ctor_get(x_46, 1); +x_153 = lean_ctor_get(x_46, 2); +lean_inc(x_153); +lean_inc(x_152); +lean_dec(x_46); +x_154 = lean_ctor_get(x_121, 0); +lean_inc(x_154); +x_155 = lean_ctor_get(x_121, 1); +lean_inc(x_155); +x_156 = lean_ctor_get(x_121, 2); +lean_inc(x_156); +x_157 = lean_ctor_get(x_121, 3); +lean_inc(x_157); +if (lean_is_exclusive(x_121)) { + lean_ctor_release(x_121, 0); + lean_ctor_release(x_121, 1); + lean_ctor_release(x_121, 2); + lean_ctor_release(x_121, 3); + x_158 = x_121; +} else { + lean_dec_ref(x_121); + x_158 = lean_box(0); +} +lean_inc(x_47); +if (lean_is_scalar(x_158)) { + x_159 = lean_alloc_ctor(1, 4, 1); +} else { + x_159 = x_158; +} +lean_ctor_set(x_159, 0, x_35); +lean_ctor_set(x_159, 1, x_36); +lean_ctor_set(x_159, 2, x_37); +lean_ctor_set(x_159, 3, x_47); +if (lean_is_exclusive(x_47)) { + lean_ctor_release(x_47, 0); + lean_ctor_release(x_47, 1); + lean_ctor_release(x_47, 2); + lean_ctor_release(x_47, 3); + x_160 = x_47; +} else { + lean_dec_ref(x_47); + x_160 = lean_box(0); +} +lean_ctor_set_uint8(x_159, sizeof(void*)*4, x_95); +if (lean_is_scalar(x_160)) { + x_161 = lean_alloc_ctor(1, 4, 1); +} else { + x_161 = x_160; +} +lean_ctor_set(x_161, 0, x_154); +lean_ctor_set(x_161, 1, x_155); +lean_ctor_set(x_161, 2, x_156); +lean_ctor_set(x_161, 3, x_157); +lean_ctor_set_uint8(x_161, sizeof(void*)*4, x_95); +x_162 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_162, 0, x_159); +lean_ctor_set(x_162, 1, x_152); +lean_ctor_set(x_162, 2, x_153); +lean_ctor_set(x_162, 3, x_161); +lean_ctor_set_uint8(x_162, sizeof(void*)*4, x_130); +return x_162; +} +} +else +{ +uint8_t x_163; +x_163 = !lean_is_exclusive(x_46); +if (x_163 == 0) +{ +lean_object* x_164; lean_object* x_165; uint8_t x_166; +x_164 = lean_ctor_get(x_46, 3); +lean_dec(x_164); +x_165 = lean_ctor_get(x_46, 0); +lean_dec(x_165); +x_166 = !lean_is_exclusive(x_47); +if (x_166 == 0) +{ +uint8_t x_167; +lean_ctor_set_uint8(x_47, sizeof(void*)*4, x_130); +x_167 = 0; +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_167); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_130); +return x_1; +} +else +{ +lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; uint8_t x_173; +x_168 = lean_ctor_get(x_47, 0); +x_169 = lean_ctor_get(x_47, 1); +x_170 = lean_ctor_get(x_47, 2); +x_171 = lean_ctor_get(x_47, 3); +lean_inc(x_171); +lean_inc(x_170); +lean_inc(x_169); +lean_inc(x_168); +lean_dec(x_47); +x_172 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_172, 0, x_168); +lean_ctor_set(x_172, 1, x_169); +lean_ctor_set(x_172, 2, x_170); +lean_ctor_set(x_172, 3, x_171); +lean_ctor_set_uint8(x_172, sizeof(void*)*4, x_130); +x_173 = 0; +lean_ctor_set(x_46, 0, x_172); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_173); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_130); +return x_1; +} +} +else +{ +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; uint8_t x_182; lean_object* x_183; +x_174 = lean_ctor_get(x_46, 1); +x_175 = lean_ctor_get(x_46, 2); +lean_inc(x_175); +lean_inc(x_174); +lean_dec(x_46); +x_176 = lean_ctor_get(x_47, 0); +lean_inc(x_176); +x_177 = lean_ctor_get(x_47, 1); +lean_inc(x_177); +x_178 = lean_ctor_get(x_47, 2); +lean_inc(x_178); +x_179 = lean_ctor_get(x_47, 3); +lean_inc(x_179); +if (lean_is_exclusive(x_47)) { + lean_ctor_release(x_47, 0); + lean_ctor_release(x_47, 1); + lean_ctor_release(x_47, 2); + lean_ctor_release(x_47, 3); + x_180 = x_47; +} else { + lean_dec_ref(x_47); + x_180 = lean_box(0); +} +if (lean_is_scalar(x_180)) { + x_181 = lean_alloc_ctor(1, 4, 1); +} else { + x_181 = x_180; +} +lean_ctor_set(x_181, 0, x_176); +lean_ctor_set(x_181, 1, x_177); +lean_ctor_set(x_181, 2, x_178); +lean_ctor_set(x_181, 3, x_179); +lean_ctor_set_uint8(x_181, sizeof(void*)*4, x_130); +x_182 = 0; +x_183 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_183, 0, x_181); +lean_ctor_set(x_183, 1, x_174); +lean_ctor_set(x_183, 2, x_175); +lean_ctor_set(x_183, 3, x_121); +lean_ctor_set_uint8(x_183, sizeof(void*)*4, x_182); +lean_ctor_set(x_1, 3, x_183); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_130); +return x_1; +} +} +} +} +} +} +} +} +else +{ +uint8_t x_184; +x_184 = l_RBNode_isRed___rarg(x_35); +if (x_184 == 0) +{ +lean_object* x_185; +x_185 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg(x_35, x_2, x_3); +lean_ctor_set(x_1, 0, x_185); +return x_1; +} +else +{ +lean_object* x_186; lean_object* x_187; +x_186 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg(x_35, x_2, x_3); +x_187 = lean_ctor_get(x_186, 0); +lean_inc(x_187); +if (lean_obj_tag(x_187) == 0) +{ +lean_object* x_188; +x_188 = lean_ctor_get(x_186, 3); +lean_inc(x_188); +if (lean_obj_tag(x_188) == 0) +{ +uint8_t x_189; +x_189 = !lean_is_exclusive(x_186); +if (x_189 == 0) +{ +lean_object* x_190; lean_object* x_191; uint8_t x_192; uint8_t x_193; +x_190 = lean_ctor_get(x_186, 3); +lean_dec(x_190); +x_191 = lean_ctor_get(x_186, 0); +lean_dec(x_191); +x_192 = 0; +lean_ctor_set(x_186, 0, x_188); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_192); +x_193 = 1; +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_193); +return x_1; +} +else +{ +lean_object* x_194; lean_object* x_195; uint8_t x_196; lean_object* x_197; uint8_t x_198; +x_194 = lean_ctor_get(x_186, 1); +x_195 = lean_ctor_get(x_186, 2); +lean_inc(x_195); +lean_inc(x_194); +lean_dec(x_186); +x_196 = 0; +x_197 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_197, 0, x_188); +lean_ctor_set(x_197, 1, x_194); +lean_ctor_set(x_197, 2, x_195); +lean_ctor_set(x_197, 3, x_188); +lean_ctor_set_uint8(x_197, sizeof(void*)*4, x_196); +x_198 = 1; +lean_ctor_set(x_1, 0, x_197); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_198); +return x_1; +} +} +else +{ +uint8_t x_199; +x_199 = lean_ctor_get_uint8(x_188, sizeof(void*)*4); +if (x_199 == 0) +{ +uint8_t x_200; +x_200 = !lean_is_exclusive(x_186); +if (x_200 == 0) +{ +lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; uint8_t x_205; +x_201 = lean_ctor_get(x_186, 1); +x_202 = lean_ctor_get(x_186, 2); +x_203 = lean_ctor_get(x_186, 3); +lean_dec(x_203); +x_204 = lean_ctor_get(x_186, 0); +lean_dec(x_204); +x_205 = !lean_is_exclusive(x_188); +if (x_205 == 0) +{ +lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; uint8_t x_210; +x_206 = lean_ctor_get(x_188, 0); +x_207 = lean_ctor_get(x_188, 1); +x_208 = lean_ctor_get(x_188, 2); +x_209 = lean_ctor_get(x_188, 3); +x_210 = 1; +lean_ctor_set(x_188, 3, x_206); +lean_ctor_set(x_188, 2, x_202); +lean_ctor_set(x_188, 1, x_201); +lean_ctor_set(x_188, 0, x_187); +lean_ctor_set_uint8(x_188, sizeof(void*)*4, x_210); +lean_ctor_set(x_186, 3, x_38); +lean_ctor_set(x_186, 2, x_37); +lean_ctor_set(x_186, 1, x_36); +lean_ctor_set(x_186, 0, x_209); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_210); +lean_ctor_set(x_1, 3, x_186); +lean_ctor_set(x_1, 2, x_208); +lean_ctor_set(x_1, 1, x_207); +lean_ctor_set(x_1, 0, x_188); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +else +{ +lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; uint8_t x_215; lean_object* x_216; +x_211 = lean_ctor_get(x_188, 0); +x_212 = lean_ctor_get(x_188, 1); +x_213 = lean_ctor_get(x_188, 2); +x_214 = lean_ctor_get(x_188, 3); +lean_inc(x_214); +lean_inc(x_213); +lean_inc(x_212); +lean_inc(x_211); +lean_dec(x_188); +x_215 = 1; +x_216 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_216, 0, x_187); +lean_ctor_set(x_216, 1, x_201); +lean_ctor_set(x_216, 2, x_202); +lean_ctor_set(x_216, 3, x_211); +lean_ctor_set_uint8(x_216, sizeof(void*)*4, x_215); +lean_ctor_set(x_186, 3, x_38); +lean_ctor_set(x_186, 2, x_37); +lean_ctor_set(x_186, 1, x_36); +lean_ctor_set(x_186, 0, x_214); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_215); +lean_ctor_set(x_1, 3, x_186); +lean_ctor_set(x_1, 2, x_213); +lean_ctor_set(x_1, 1, x_212); +lean_ctor_set(x_1, 0, x_216); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +} +else +{ +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; uint8_t x_224; lean_object* x_225; lean_object* x_226; +x_217 = lean_ctor_get(x_186, 1); +x_218 = lean_ctor_get(x_186, 2); +lean_inc(x_218); +lean_inc(x_217); +lean_dec(x_186); +x_219 = lean_ctor_get(x_188, 0); +lean_inc(x_219); +x_220 = lean_ctor_get(x_188, 1); +lean_inc(x_220); +x_221 = lean_ctor_get(x_188, 2); +lean_inc(x_221); +x_222 = lean_ctor_get(x_188, 3); +lean_inc(x_222); +if (lean_is_exclusive(x_188)) { + lean_ctor_release(x_188, 0); + lean_ctor_release(x_188, 1); + lean_ctor_release(x_188, 2); + lean_ctor_release(x_188, 3); + x_223 = x_188; +} else { + lean_dec_ref(x_188); + x_223 = lean_box(0); +} +x_224 = 1; +if (lean_is_scalar(x_223)) { + x_225 = lean_alloc_ctor(1, 4, 1); +} else { + x_225 = x_223; +} +lean_ctor_set(x_225, 0, x_187); +lean_ctor_set(x_225, 1, x_217); +lean_ctor_set(x_225, 2, x_218); +lean_ctor_set(x_225, 3, x_219); +lean_ctor_set_uint8(x_225, sizeof(void*)*4, x_224); +x_226 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_226, 0, x_222); +lean_ctor_set(x_226, 1, x_36); +lean_ctor_set(x_226, 2, x_37); +lean_ctor_set(x_226, 3, x_38); +lean_ctor_set_uint8(x_226, sizeof(void*)*4, x_224); +lean_ctor_set(x_1, 3, x_226); +lean_ctor_set(x_1, 2, x_221); +lean_ctor_set(x_1, 1, x_220); +lean_ctor_set(x_1, 0, x_225); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +} +else +{ +uint8_t x_227; +x_227 = !lean_is_exclusive(x_186); +if (x_227 == 0) +{ +lean_object* x_228; lean_object* x_229; uint8_t x_230; +x_228 = lean_ctor_get(x_186, 3); +lean_dec(x_228); +x_229 = lean_ctor_get(x_186, 0); +lean_dec(x_229); +x_230 = 0; +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_230); +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +else +{ +lean_object* x_231; lean_object* x_232; uint8_t x_233; lean_object* x_234; +x_231 = lean_ctor_get(x_186, 1); +x_232 = lean_ctor_get(x_186, 2); +lean_inc(x_232); +lean_inc(x_231); +lean_dec(x_186); +x_233 = 0; +x_234 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_234, 0, x_187); +lean_ctor_set(x_234, 1, x_231); +lean_ctor_set(x_234, 2, x_232); +lean_ctor_set(x_234, 3, x_188); +lean_ctor_set_uint8(x_234, sizeof(void*)*4, x_233); +lean_ctor_set(x_1, 0, x_234); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +} +} +} +else +{ +uint8_t x_235; +x_235 = lean_ctor_get_uint8(x_187, sizeof(void*)*4); +if (x_235 == 0) +{ +uint8_t x_236; +x_236 = !lean_is_exclusive(x_186); +if (x_236 == 0) +{ +lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; uint8_t x_241; +x_237 = lean_ctor_get(x_186, 1); +x_238 = lean_ctor_get(x_186, 2); +x_239 = lean_ctor_get(x_186, 3); +x_240 = lean_ctor_get(x_186, 0); +lean_dec(x_240); +x_241 = !lean_is_exclusive(x_187); +if (x_241 == 0) +{ +uint8_t x_242; +x_242 = 1; +lean_ctor_set_uint8(x_187, sizeof(void*)*4, x_242); +lean_ctor_set(x_186, 3, x_38); +lean_ctor_set(x_186, 2, x_37); +lean_ctor_set(x_186, 1, x_36); +lean_ctor_set(x_186, 0, x_239); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_242); +lean_ctor_set(x_1, 3, x_186); +lean_ctor_set(x_1, 2, x_238); +lean_ctor_set(x_1, 1, x_237); +lean_ctor_set(x_1, 0, x_187); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +else +{ +lean_object* x_243; lean_object* x_244; lean_object* x_245; lean_object* x_246; uint8_t x_247; lean_object* x_248; +x_243 = lean_ctor_get(x_187, 0); +x_244 = lean_ctor_get(x_187, 1); +x_245 = lean_ctor_get(x_187, 2); +x_246 = lean_ctor_get(x_187, 3); +lean_inc(x_246); +lean_inc(x_245); +lean_inc(x_244); +lean_inc(x_243); +lean_dec(x_187); +x_247 = 1; +x_248 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_248, 0, x_243); +lean_ctor_set(x_248, 1, x_244); +lean_ctor_set(x_248, 2, x_245); +lean_ctor_set(x_248, 3, x_246); +lean_ctor_set_uint8(x_248, sizeof(void*)*4, x_247); +lean_ctor_set(x_186, 3, x_38); +lean_ctor_set(x_186, 2, x_37); +lean_ctor_set(x_186, 1, x_36); +lean_ctor_set(x_186, 0, x_239); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_247); +lean_ctor_set(x_1, 3, x_186); +lean_ctor_set(x_1, 2, x_238); +lean_ctor_set(x_1, 1, x_237); +lean_ctor_set(x_1, 0, x_248); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +} +else +{ +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; uint8_t x_257; lean_object* x_258; lean_object* x_259; +x_249 = lean_ctor_get(x_186, 1); +x_250 = lean_ctor_get(x_186, 2); +x_251 = lean_ctor_get(x_186, 3); +lean_inc(x_251); +lean_inc(x_250); +lean_inc(x_249); +lean_dec(x_186); +x_252 = lean_ctor_get(x_187, 0); +lean_inc(x_252); +x_253 = lean_ctor_get(x_187, 1); +lean_inc(x_253); +x_254 = lean_ctor_get(x_187, 2); +lean_inc(x_254); +x_255 = lean_ctor_get(x_187, 3); +lean_inc(x_255); +if (lean_is_exclusive(x_187)) { + lean_ctor_release(x_187, 0); + lean_ctor_release(x_187, 1); + lean_ctor_release(x_187, 2); + lean_ctor_release(x_187, 3); + x_256 = x_187; +} else { + lean_dec_ref(x_187); + x_256 = lean_box(0); +} +x_257 = 1; +if (lean_is_scalar(x_256)) { + x_258 = lean_alloc_ctor(1, 4, 1); +} else { + x_258 = x_256; +} +lean_ctor_set(x_258, 0, x_252); +lean_ctor_set(x_258, 1, x_253); +lean_ctor_set(x_258, 2, x_254); +lean_ctor_set(x_258, 3, x_255); +lean_ctor_set_uint8(x_258, sizeof(void*)*4, x_257); +x_259 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_259, 0, x_251); +lean_ctor_set(x_259, 1, x_36); +lean_ctor_set(x_259, 2, x_37); +lean_ctor_set(x_259, 3, x_38); +lean_ctor_set_uint8(x_259, sizeof(void*)*4, x_257); +lean_ctor_set(x_1, 3, x_259); +lean_ctor_set(x_1, 2, x_250); +lean_ctor_set(x_1, 1, x_249); +lean_ctor_set(x_1, 0, x_258); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +} +else +{ +lean_object* x_260; +x_260 = lean_ctor_get(x_186, 3); +lean_inc(x_260); +if (lean_obj_tag(x_260) == 0) +{ +uint8_t x_261; +x_261 = !lean_is_exclusive(x_186); +if (x_261 == 0) +{ +lean_object* x_262; lean_object* x_263; uint8_t x_264; +x_262 = lean_ctor_get(x_186, 3); +lean_dec(x_262); +x_263 = lean_ctor_get(x_186, 0); +lean_dec(x_263); +x_264 = 0; +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_264); +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +else +{ +lean_object* x_265; lean_object* x_266; uint8_t x_267; lean_object* x_268; +x_265 = lean_ctor_get(x_186, 1); +x_266 = lean_ctor_get(x_186, 2); +lean_inc(x_266); +lean_inc(x_265); +lean_dec(x_186); +x_267 = 0; +x_268 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_268, 0, x_187); +lean_ctor_set(x_268, 1, x_265); +lean_ctor_set(x_268, 2, x_266); +lean_ctor_set(x_268, 3, x_260); +lean_ctor_set_uint8(x_268, sizeof(void*)*4, x_267); +lean_ctor_set(x_1, 0, x_268); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +} +else +{ +uint8_t x_269; +x_269 = lean_ctor_get_uint8(x_260, sizeof(void*)*4); +if (x_269 == 0) +{ +uint8_t x_270; +lean_free_object(x_1); +x_270 = !lean_is_exclusive(x_186); +if (x_270 == 0) +{ +lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; uint8_t x_275; +x_271 = lean_ctor_get(x_186, 1); +x_272 = lean_ctor_get(x_186, 2); +x_273 = lean_ctor_get(x_186, 3); +lean_dec(x_273); +x_274 = lean_ctor_get(x_186, 0); +lean_dec(x_274); +x_275 = !lean_is_exclusive(x_260); +if (x_275 == 0) +{ +lean_object* x_276; lean_object* x_277; lean_object* x_278; lean_object* x_279; uint8_t x_280; +x_276 = lean_ctor_get(x_260, 0); +x_277 = lean_ctor_get(x_260, 1); +x_278 = lean_ctor_get(x_260, 2); +x_279 = lean_ctor_get(x_260, 3); +lean_inc(x_187); +lean_ctor_set(x_260, 3, x_276); +lean_ctor_set(x_260, 2, x_272); +lean_ctor_set(x_260, 1, x_271); +lean_ctor_set(x_260, 0, x_187); +x_280 = !lean_is_exclusive(x_187); +if (x_280 == 0) +{ +lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; +x_281 = lean_ctor_get(x_187, 3); +lean_dec(x_281); +x_282 = lean_ctor_get(x_187, 2); +lean_dec(x_282); +x_283 = lean_ctor_get(x_187, 1); +lean_dec(x_283); +x_284 = lean_ctor_get(x_187, 0); +lean_dec(x_284); +lean_ctor_set_uint8(x_260, sizeof(void*)*4, x_235); +lean_ctor_set(x_187, 3, x_38); +lean_ctor_set(x_187, 2, x_37); +lean_ctor_set(x_187, 1, x_36); +lean_ctor_set(x_187, 0, x_279); +lean_ctor_set(x_186, 3, x_187); +lean_ctor_set(x_186, 2, x_278); +lean_ctor_set(x_186, 1, x_277); +lean_ctor_set(x_186, 0, x_260); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_269); +return x_186; +} +else +{ +lean_object* x_285; +lean_dec(x_187); +lean_ctor_set_uint8(x_260, sizeof(void*)*4, x_235); +x_285 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_285, 0, x_279); +lean_ctor_set(x_285, 1, x_36); +lean_ctor_set(x_285, 2, x_37); +lean_ctor_set(x_285, 3, x_38); +lean_ctor_set_uint8(x_285, sizeof(void*)*4, x_235); +lean_ctor_set(x_186, 3, x_285); +lean_ctor_set(x_186, 2, x_278); +lean_ctor_set(x_186, 1, x_277); +lean_ctor_set(x_186, 0, x_260); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_269); +return x_186; +} +} +else +{ +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; +x_286 = lean_ctor_get(x_260, 0); +x_287 = lean_ctor_get(x_260, 1); +x_288 = lean_ctor_get(x_260, 2); +x_289 = lean_ctor_get(x_260, 3); +lean_inc(x_289); +lean_inc(x_288); +lean_inc(x_287); +lean_inc(x_286); +lean_dec(x_260); +lean_inc(x_187); +x_290 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_290, 0, x_187); +lean_ctor_set(x_290, 1, x_271); +lean_ctor_set(x_290, 2, x_272); +lean_ctor_set(x_290, 3, x_286); +if (lean_is_exclusive(x_187)) { + lean_ctor_release(x_187, 0); + lean_ctor_release(x_187, 1); + lean_ctor_release(x_187, 2); + lean_ctor_release(x_187, 3); + x_291 = x_187; +} else { + lean_dec_ref(x_187); + x_291 = lean_box(0); +} +lean_ctor_set_uint8(x_290, sizeof(void*)*4, x_235); +if (lean_is_scalar(x_291)) { + x_292 = lean_alloc_ctor(1, 4, 1); +} else { + x_292 = x_291; +} +lean_ctor_set(x_292, 0, x_289); +lean_ctor_set(x_292, 1, x_36); +lean_ctor_set(x_292, 2, x_37); +lean_ctor_set(x_292, 3, x_38); +lean_ctor_set_uint8(x_292, sizeof(void*)*4, x_235); +lean_ctor_set(x_186, 3, x_292); +lean_ctor_set(x_186, 2, x_288); +lean_ctor_set(x_186, 1, x_287); +lean_ctor_set(x_186, 0, x_290); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_269); +return x_186; +} +} +else +{ +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; +x_293 = lean_ctor_get(x_186, 1); +x_294 = lean_ctor_get(x_186, 2); +lean_inc(x_294); +lean_inc(x_293); +lean_dec(x_186); +x_295 = lean_ctor_get(x_260, 0); +lean_inc(x_295); +x_296 = lean_ctor_get(x_260, 1); +lean_inc(x_296); +x_297 = lean_ctor_get(x_260, 2); +lean_inc(x_297); +x_298 = lean_ctor_get(x_260, 3); +lean_inc(x_298); +if (lean_is_exclusive(x_260)) { + lean_ctor_release(x_260, 0); + lean_ctor_release(x_260, 1); + lean_ctor_release(x_260, 2); + lean_ctor_release(x_260, 3); + x_299 = x_260; +} else { + lean_dec_ref(x_260); + x_299 = lean_box(0); +} +lean_inc(x_187); +if (lean_is_scalar(x_299)) { + x_300 = lean_alloc_ctor(1, 4, 1); +} else { + x_300 = x_299; +} +lean_ctor_set(x_300, 0, x_187); +lean_ctor_set(x_300, 1, x_293); +lean_ctor_set(x_300, 2, x_294); +lean_ctor_set(x_300, 3, x_295); +if (lean_is_exclusive(x_187)) { + lean_ctor_release(x_187, 0); + lean_ctor_release(x_187, 1); + lean_ctor_release(x_187, 2); + lean_ctor_release(x_187, 3); + x_301 = x_187; +} else { + lean_dec_ref(x_187); + x_301 = lean_box(0); +} +lean_ctor_set_uint8(x_300, sizeof(void*)*4, x_235); +if (lean_is_scalar(x_301)) { + x_302 = lean_alloc_ctor(1, 4, 1); +} else { + x_302 = x_301; +} +lean_ctor_set(x_302, 0, x_298); +lean_ctor_set(x_302, 1, x_36); +lean_ctor_set(x_302, 2, x_37); +lean_ctor_set(x_302, 3, x_38); +lean_ctor_set_uint8(x_302, sizeof(void*)*4, x_235); +x_303 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_303, 0, x_300); +lean_ctor_set(x_303, 1, x_296); +lean_ctor_set(x_303, 2, x_297); +lean_ctor_set(x_303, 3, x_302); +lean_ctor_set_uint8(x_303, sizeof(void*)*4, x_269); +return x_303; +} +} +else +{ +uint8_t x_304; +x_304 = !lean_is_exclusive(x_186); +if (x_304 == 0) +{ +lean_object* x_305; lean_object* x_306; uint8_t x_307; +x_305 = lean_ctor_get(x_186, 3); +lean_dec(x_305); +x_306 = lean_ctor_get(x_186, 0); +lean_dec(x_306); +x_307 = !lean_is_exclusive(x_187); +if (x_307 == 0) +{ +uint8_t x_308; +lean_ctor_set_uint8(x_187, sizeof(void*)*4, x_269); +x_308 = 0; +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_308); +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_269); +return x_1; +} +else +{ +lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_object* x_312; lean_object* x_313; uint8_t x_314; +x_309 = lean_ctor_get(x_187, 0); +x_310 = lean_ctor_get(x_187, 1); +x_311 = lean_ctor_get(x_187, 2); +x_312 = lean_ctor_get(x_187, 3); +lean_inc(x_312); +lean_inc(x_311); +lean_inc(x_310); +lean_inc(x_309); +lean_dec(x_187); +x_313 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_313, 0, x_309); +lean_ctor_set(x_313, 1, x_310); +lean_ctor_set(x_313, 2, x_311); +lean_ctor_set(x_313, 3, x_312); +lean_ctor_set_uint8(x_313, sizeof(void*)*4, x_269); +x_314 = 0; +lean_ctor_set(x_186, 0, x_313); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_314); +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_269); +return x_1; +} +} +else +{ +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; uint8_t x_323; lean_object* x_324; +x_315 = lean_ctor_get(x_186, 1); +x_316 = lean_ctor_get(x_186, 2); +lean_inc(x_316); +lean_inc(x_315); +lean_dec(x_186); +x_317 = lean_ctor_get(x_187, 0); +lean_inc(x_317); +x_318 = lean_ctor_get(x_187, 1); +lean_inc(x_318); +x_319 = lean_ctor_get(x_187, 2); +lean_inc(x_319); +x_320 = lean_ctor_get(x_187, 3); +lean_inc(x_320); +if (lean_is_exclusive(x_187)) { + lean_ctor_release(x_187, 0); + lean_ctor_release(x_187, 1); + lean_ctor_release(x_187, 2); + lean_ctor_release(x_187, 3); + x_321 = x_187; +} else { + lean_dec_ref(x_187); + x_321 = lean_box(0); +} +if (lean_is_scalar(x_321)) { + x_322 = lean_alloc_ctor(1, 4, 1); +} else { + x_322 = x_321; +} +lean_ctor_set(x_322, 0, x_317); +lean_ctor_set(x_322, 1, x_318); +lean_ctor_set(x_322, 2, x_319); +lean_ctor_set(x_322, 3, x_320); +lean_ctor_set_uint8(x_322, sizeof(void*)*4, x_269); +x_323 = 0; +x_324 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_324, 0, x_322); +lean_ctor_set(x_324, 1, x_315); +lean_ctor_set(x_324, 2, x_316); +lean_ctor_set(x_324, 3, x_260); +lean_ctor_set_uint8(x_324, sizeof(void*)*4, x_323); +lean_ctor_set(x_1, 0, x_324); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_269); +return x_1; +} +} +} +} +} +} +} +} +else +{ +lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_328; uint32_t x_329; uint8_t x_330; +x_325 = lean_ctor_get(x_1, 0); +x_326 = lean_ctor_get(x_1, 1); +x_327 = lean_ctor_get(x_1, 2); +x_328 = lean_ctor_get(x_1, 3); +lean_inc(x_328); +lean_inc(x_327); +lean_inc(x_326); +lean_inc(x_325); +lean_dec(x_1); +x_329 = lean_unbox_uint32(x_326); +x_330 = x_2 < x_329; +if (x_330 == 0) +{ +uint32_t x_331; uint8_t x_332; +x_331 = lean_unbox_uint32(x_326); +x_332 = x_331 < x_2; +if (x_332 == 0) +{ +lean_object* x_333; lean_object* x_334; +lean_dec(x_327); +lean_dec(x_326); +x_333 = lean_box_uint32(x_2); +x_334 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_334, 0, x_325); +lean_ctor_set(x_334, 1, x_333); +lean_ctor_set(x_334, 2, x_3); +lean_ctor_set(x_334, 3, x_328); +lean_ctor_set_uint8(x_334, sizeof(void*)*4, x_7); +return x_334; +} +else +{ +uint8_t x_335; +x_335 = l_RBNode_isRed___rarg(x_328); +if (x_335 == 0) +{ +lean_object* x_336; lean_object* x_337; +x_336 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg(x_328, x_2, x_3); +x_337 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_337, 0, x_325); +lean_ctor_set(x_337, 1, x_326); +lean_ctor_set(x_337, 2, x_327); +lean_ctor_set(x_337, 3, x_336); +lean_ctor_set_uint8(x_337, sizeof(void*)*4, x_7); +return x_337; +} +else +{ +lean_object* x_338; lean_object* x_339; +x_338 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg(x_328, x_2, x_3); +x_339 = lean_ctor_get(x_338, 0); +lean_inc(x_339); +if (lean_obj_tag(x_339) == 0) +{ +lean_object* x_340; +x_340 = lean_ctor_get(x_338, 3); +lean_inc(x_340); +if (lean_obj_tag(x_340) == 0) +{ +lean_object* x_341; lean_object* x_342; lean_object* x_343; uint8_t x_344; lean_object* x_345; uint8_t x_346; lean_object* x_347; +x_341 = lean_ctor_get(x_338, 1); +lean_inc(x_341); +x_342 = lean_ctor_get(x_338, 2); +lean_inc(x_342); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_343 = x_338; +} else { + lean_dec_ref(x_338); + x_343 = lean_box(0); +} +x_344 = 0; +if (lean_is_scalar(x_343)) { + x_345 = lean_alloc_ctor(1, 4, 1); +} else { + x_345 = x_343; +} +lean_ctor_set(x_345, 0, x_340); +lean_ctor_set(x_345, 1, x_341); +lean_ctor_set(x_345, 2, x_342); +lean_ctor_set(x_345, 3, x_340); +lean_ctor_set_uint8(x_345, sizeof(void*)*4, x_344); +x_346 = 1; +x_347 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_347, 0, x_325); +lean_ctor_set(x_347, 1, x_326); +lean_ctor_set(x_347, 2, x_327); +lean_ctor_set(x_347, 3, x_345); +lean_ctor_set_uint8(x_347, sizeof(void*)*4, x_346); +return x_347; +} +else +{ +uint8_t x_348; +x_348 = lean_ctor_get_uint8(x_340, sizeof(void*)*4); +if (x_348 == 0) +{ +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; uint8_t x_357; lean_object* x_358; lean_object* x_359; lean_object* x_360; +x_349 = lean_ctor_get(x_338, 1); +lean_inc(x_349); +x_350 = lean_ctor_get(x_338, 2); +lean_inc(x_350); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_351 = x_338; +} else { + lean_dec_ref(x_338); + x_351 = lean_box(0); +} +x_352 = lean_ctor_get(x_340, 0); +lean_inc(x_352); +x_353 = lean_ctor_get(x_340, 1); +lean_inc(x_353); +x_354 = lean_ctor_get(x_340, 2); +lean_inc(x_354); +x_355 = lean_ctor_get(x_340, 3); +lean_inc(x_355); +if (lean_is_exclusive(x_340)) { + lean_ctor_release(x_340, 0); + lean_ctor_release(x_340, 1); + lean_ctor_release(x_340, 2); + lean_ctor_release(x_340, 3); + x_356 = x_340; +} else { + lean_dec_ref(x_340); + x_356 = lean_box(0); +} +x_357 = 1; +if (lean_is_scalar(x_356)) { + x_358 = lean_alloc_ctor(1, 4, 1); +} else { + x_358 = x_356; +} +lean_ctor_set(x_358, 0, x_325); +lean_ctor_set(x_358, 1, x_326); +lean_ctor_set(x_358, 2, x_327); +lean_ctor_set(x_358, 3, x_339); +lean_ctor_set_uint8(x_358, sizeof(void*)*4, x_357); +if (lean_is_scalar(x_351)) { + x_359 = lean_alloc_ctor(1, 4, 1); +} else { + x_359 = x_351; +} +lean_ctor_set(x_359, 0, x_352); +lean_ctor_set(x_359, 1, x_353); +lean_ctor_set(x_359, 2, x_354); +lean_ctor_set(x_359, 3, x_355); +lean_ctor_set_uint8(x_359, sizeof(void*)*4, x_357); +x_360 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_360, 0, x_358); +lean_ctor_set(x_360, 1, x_349); +lean_ctor_set(x_360, 2, x_350); +lean_ctor_set(x_360, 3, x_359); +lean_ctor_set_uint8(x_360, sizeof(void*)*4, x_348); +return x_360; +} +else +{ +lean_object* x_361; lean_object* x_362; lean_object* x_363; uint8_t x_364; lean_object* x_365; lean_object* x_366; +x_361 = lean_ctor_get(x_338, 1); +lean_inc(x_361); +x_362 = lean_ctor_get(x_338, 2); +lean_inc(x_362); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_363 = x_338; +} else { + lean_dec_ref(x_338); + x_363 = lean_box(0); +} +x_364 = 0; +if (lean_is_scalar(x_363)) { + x_365 = lean_alloc_ctor(1, 4, 1); +} else { + x_365 = x_363; +} +lean_ctor_set(x_365, 0, x_339); +lean_ctor_set(x_365, 1, x_361); +lean_ctor_set(x_365, 2, x_362); +lean_ctor_set(x_365, 3, x_340); +lean_ctor_set_uint8(x_365, sizeof(void*)*4, x_364); +x_366 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_366, 0, x_325); +lean_ctor_set(x_366, 1, x_326); +lean_ctor_set(x_366, 2, x_327); +lean_ctor_set(x_366, 3, x_365); +lean_ctor_set_uint8(x_366, sizeof(void*)*4, x_348); +return x_366; +} +} +} +else +{ +uint8_t x_367; +x_367 = lean_ctor_get_uint8(x_339, sizeof(void*)*4); +if (x_367 == 0) +{ +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; uint8_t x_377; lean_object* x_378; lean_object* x_379; lean_object* x_380; +x_368 = lean_ctor_get(x_338, 1); +lean_inc(x_368); +x_369 = lean_ctor_get(x_338, 2); +lean_inc(x_369); +x_370 = lean_ctor_get(x_338, 3); +lean_inc(x_370); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_371 = x_338; +} else { + lean_dec_ref(x_338); + x_371 = lean_box(0); +} +x_372 = lean_ctor_get(x_339, 0); +lean_inc(x_372); +x_373 = lean_ctor_get(x_339, 1); +lean_inc(x_373); +x_374 = lean_ctor_get(x_339, 2); +lean_inc(x_374); +x_375 = lean_ctor_get(x_339, 3); +lean_inc(x_375); +if (lean_is_exclusive(x_339)) { + lean_ctor_release(x_339, 0); + lean_ctor_release(x_339, 1); + lean_ctor_release(x_339, 2); + lean_ctor_release(x_339, 3); + x_376 = x_339; +} else { + lean_dec_ref(x_339); + x_376 = lean_box(0); +} +x_377 = 1; +if (lean_is_scalar(x_376)) { + x_378 = lean_alloc_ctor(1, 4, 1); +} else { + x_378 = x_376; +} +lean_ctor_set(x_378, 0, x_325); +lean_ctor_set(x_378, 1, x_326); +lean_ctor_set(x_378, 2, x_327); +lean_ctor_set(x_378, 3, x_372); +lean_ctor_set_uint8(x_378, sizeof(void*)*4, x_377); +if (lean_is_scalar(x_371)) { + x_379 = lean_alloc_ctor(1, 4, 1); +} else { + x_379 = x_371; +} +lean_ctor_set(x_379, 0, x_375); +lean_ctor_set(x_379, 1, x_368); +lean_ctor_set(x_379, 2, x_369); +lean_ctor_set(x_379, 3, x_370); +lean_ctor_set_uint8(x_379, sizeof(void*)*4, x_377); +x_380 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_380, 0, x_378); +lean_ctor_set(x_380, 1, x_373); +lean_ctor_set(x_380, 2, x_374); +lean_ctor_set(x_380, 3, x_379); +lean_ctor_set_uint8(x_380, sizeof(void*)*4, x_367); +return x_380; +} +else +{ +lean_object* x_381; +x_381 = lean_ctor_get(x_338, 3); +lean_inc(x_381); +if (lean_obj_tag(x_381) == 0) +{ +lean_object* x_382; lean_object* x_383; lean_object* x_384; uint8_t x_385; lean_object* x_386; lean_object* x_387; +x_382 = lean_ctor_get(x_338, 1); +lean_inc(x_382); +x_383 = lean_ctor_get(x_338, 2); +lean_inc(x_383); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_384 = x_338; +} else { + lean_dec_ref(x_338); + x_384 = lean_box(0); +} +x_385 = 0; +if (lean_is_scalar(x_384)) { + x_386 = lean_alloc_ctor(1, 4, 1); +} else { + x_386 = x_384; +} +lean_ctor_set(x_386, 0, x_339); +lean_ctor_set(x_386, 1, x_382); +lean_ctor_set(x_386, 2, x_383); +lean_ctor_set(x_386, 3, x_381); +lean_ctor_set_uint8(x_386, sizeof(void*)*4, x_385); +x_387 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_387, 0, x_325); +lean_ctor_set(x_387, 1, x_326); +lean_ctor_set(x_387, 2, x_327); +lean_ctor_set(x_387, 3, x_386); +lean_ctor_set_uint8(x_387, sizeof(void*)*4, x_367); +return x_387; +} +else +{ +uint8_t x_388; +x_388 = lean_ctor_get_uint8(x_381, sizeof(void*)*4); +if (x_388 == 0) +{ +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; +x_389 = lean_ctor_get(x_338, 1); +lean_inc(x_389); +x_390 = lean_ctor_get(x_338, 2); +lean_inc(x_390); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_391 = x_338; +} else { + lean_dec_ref(x_338); + x_391 = lean_box(0); +} +x_392 = lean_ctor_get(x_381, 0); +lean_inc(x_392); +x_393 = lean_ctor_get(x_381, 1); +lean_inc(x_393); +x_394 = lean_ctor_get(x_381, 2); +lean_inc(x_394); +x_395 = lean_ctor_get(x_381, 3); +lean_inc(x_395); +if (lean_is_exclusive(x_381)) { + lean_ctor_release(x_381, 0); + lean_ctor_release(x_381, 1); + lean_ctor_release(x_381, 2); + lean_ctor_release(x_381, 3); + x_396 = x_381; +} else { + lean_dec_ref(x_381); + x_396 = lean_box(0); +} +lean_inc(x_339); +if (lean_is_scalar(x_396)) { + x_397 = lean_alloc_ctor(1, 4, 1); +} else { + x_397 = x_396; +} +lean_ctor_set(x_397, 0, x_325); +lean_ctor_set(x_397, 1, x_326); +lean_ctor_set(x_397, 2, x_327); +lean_ctor_set(x_397, 3, x_339); +if (lean_is_exclusive(x_339)) { + lean_ctor_release(x_339, 0); + lean_ctor_release(x_339, 1); + lean_ctor_release(x_339, 2); + lean_ctor_release(x_339, 3); + x_398 = x_339; +} else { + lean_dec_ref(x_339); + x_398 = lean_box(0); +} +lean_ctor_set_uint8(x_397, sizeof(void*)*4, x_367); +if (lean_is_scalar(x_398)) { + x_399 = lean_alloc_ctor(1, 4, 1); +} else { + x_399 = x_398; +} +lean_ctor_set(x_399, 0, x_392); +lean_ctor_set(x_399, 1, x_393); +lean_ctor_set(x_399, 2, x_394); +lean_ctor_set(x_399, 3, x_395); +lean_ctor_set_uint8(x_399, sizeof(void*)*4, x_367); +if (lean_is_scalar(x_391)) { + x_400 = lean_alloc_ctor(1, 4, 1); +} else { + x_400 = x_391; +} +lean_ctor_set(x_400, 0, x_397); +lean_ctor_set(x_400, 1, x_389); +lean_ctor_set(x_400, 2, x_390); +lean_ctor_set(x_400, 3, x_399); +lean_ctor_set_uint8(x_400, sizeof(void*)*4, x_388); +return x_400; +} +else +{ +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; uint8_t x_410; lean_object* x_411; lean_object* x_412; +x_401 = lean_ctor_get(x_338, 1); +lean_inc(x_401); +x_402 = lean_ctor_get(x_338, 2); +lean_inc(x_402); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_403 = x_338; +} else { + lean_dec_ref(x_338); + x_403 = lean_box(0); +} +x_404 = lean_ctor_get(x_339, 0); +lean_inc(x_404); +x_405 = lean_ctor_get(x_339, 1); +lean_inc(x_405); +x_406 = lean_ctor_get(x_339, 2); +lean_inc(x_406); +x_407 = lean_ctor_get(x_339, 3); +lean_inc(x_407); +if (lean_is_exclusive(x_339)) { + lean_ctor_release(x_339, 0); + lean_ctor_release(x_339, 1); + lean_ctor_release(x_339, 2); + lean_ctor_release(x_339, 3); + x_408 = x_339; +} else { + lean_dec_ref(x_339); + x_408 = lean_box(0); +} +if (lean_is_scalar(x_408)) { + x_409 = lean_alloc_ctor(1, 4, 1); +} else { + x_409 = x_408; +} +lean_ctor_set(x_409, 0, x_404); +lean_ctor_set(x_409, 1, x_405); +lean_ctor_set(x_409, 2, x_406); +lean_ctor_set(x_409, 3, x_407); +lean_ctor_set_uint8(x_409, sizeof(void*)*4, x_388); +x_410 = 0; +if (lean_is_scalar(x_403)) { + x_411 = lean_alloc_ctor(1, 4, 1); +} else { + x_411 = x_403; +} +lean_ctor_set(x_411, 0, x_409); +lean_ctor_set(x_411, 1, x_401); +lean_ctor_set(x_411, 2, x_402); +lean_ctor_set(x_411, 3, x_381); +lean_ctor_set_uint8(x_411, sizeof(void*)*4, x_410); +x_412 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_412, 0, x_325); +lean_ctor_set(x_412, 1, x_326); +lean_ctor_set(x_412, 2, x_327); +lean_ctor_set(x_412, 3, x_411); +lean_ctor_set_uint8(x_412, sizeof(void*)*4, x_388); +return x_412; +} +} +} +} +} +} +} +else +{ +uint8_t x_413; +x_413 = l_RBNode_isRed___rarg(x_325); +if (x_413 == 0) +{ +lean_object* x_414; lean_object* x_415; +x_414 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg(x_325, x_2, x_3); +x_415 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_415, 0, x_414); +lean_ctor_set(x_415, 1, x_326); +lean_ctor_set(x_415, 2, x_327); +lean_ctor_set(x_415, 3, x_328); +lean_ctor_set_uint8(x_415, sizeof(void*)*4, x_7); +return x_415; +} +else +{ +lean_object* x_416; lean_object* x_417; +x_416 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg(x_325, x_2, x_3); +x_417 = lean_ctor_get(x_416, 0); +lean_inc(x_417); +if (lean_obj_tag(x_417) == 0) +{ +lean_object* x_418; +x_418 = lean_ctor_get(x_416, 3); +lean_inc(x_418); +if (lean_obj_tag(x_418) == 0) +{ +lean_object* x_419; lean_object* x_420; lean_object* x_421; uint8_t x_422; lean_object* x_423; uint8_t x_424; lean_object* x_425; +x_419 = lean_ctor_get(x_416, 1); +lean_inc(x_419); +x_420 = lean_ctor_get(x_416, 2); +lean_inc(x_420); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_421 = x_416; +} else { + lean_dec_ref(x_416); + x_421 = lean_box(0); +} +x_422 = 0; +if (lean_is_scalar(x_421)) { + x_423 = lean_alloc_ctor(1, 4, 1); +} else { + x_423 = x_421; +} +lean_ctor_set(x_423, 0, x_418); +lean_ctor_set(x_423, 1, x_419); +lean_ctor_set(x_423, 2, x_420); +lean_ctor_set(x_423, 3, x_418); +lean_ctor_set_uint8(x_423, sizeof(void*)*4, x_422); +x_424 = 1; +x_425 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_425, 0, x_423); +lean_ctor_set(x_425, 1, x_326); +lean_ctor_set(x_425, 2, x_327); +lean_ctor_set(x_425, 3, x_328); +lean_ctor_set_uint8(x_425, sizeof(void*)*4, x_424); +return x_425; +} +else +{ +uint8_t x_426; +x_426 = lean_ctor_get_uint8(x_418, sizeof(void*)*4); +if (x_426 == 0) +{ +lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; lean_object* x_431; lean_object* x_432; lean_object* x_433; lean_object* x_434; uint8_t x_435; lean_object* x_436; lean_object* x_437; lean_object* x_438; +x_427 = lean_ctor_get(x_416, 1); +lean_inc(x_427); +x_428 = lean_ctor_get(x_416, 2); +lean_inc(x_428); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_429 = x_416; +} else { + lean_dec_ref(x_416); + x_429 = lean_box(0); +} +x_430 = lean_ctor_get(x_418, 0); +lean_inc(x_430); +x_431 = lean_ctor_get(x_418, 1); +lean_inc(x_431); +x_432 = lean_ctor_get(x_418, 2); +lean_inc(x_432); +x_433 = lean_ctor_get(x_418, 3); +lean_inc(x_433); +if (lean_is_exclusive(x_418)) { + lean_ctor_release(x_418, 0); + lean_ctor_release(x_418, 1); + lean_ctor_release(x_418, 2); + lean_ctor_release(x_418, 3); + x_434 = x_418; +} else { + lean_dec_ref(x_418); + x_434 = lean_box(0); +} +x_435 = 1; +if (lean_is_scalar(x_434)) { + x_436 = lean_alloc_ctor(1, 4, 1); +} else { + x_436 = x_434; +} +lean_ctor_set(x_436, 0, x_417); +lean_ctor_set(x_436, 1, x_427); +lean_ctor_set(x_436, 2, x_428); +lean_ctor_set(x_436, 3, x_430); +lean_ctor_set_uint8(x_436, sizeof(void*)*4, x_435); +if (lean_is_scalar(x_429)) { + x_437 = lean_alloc_ctor(1, 4, 1); +} else { + x_437 = x_429; +} +lean_ctor_set(x_437, 0, x_433); +lean_ctor_set(x_437, 1, x_326); +lean_ctor_set(x_437, 2, x_327); +lean_ctor_set(x_437, 3, x_328); +lean_ctor_set_uint8(x_437, sizeof(void*)*4, x_435); +x_438 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_438, 0, x_436); +lean_ctor_set(x_438, 1, x_431); +lean_ctor_set(x_438, 2, x_432); +lean_ctor_set(x_438, 3, x_437); +lean_ctor_set_uint8(x_438, sizeof(void*)*4, x_426); +return x_438; +} +else +{ +lean_object* x_439; lean_object* x_440; lean_object* x_441; uint8_t x_442; lean_object* x_443; lean_object* x_444; +x_439 = lean_ctor_get(x_416, 1); +lean_inc(x_439); +x_440 = lean_ctor_get(x_416, 2); +lean_inc(x_440); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_441 = x_416; +} else { + lean_dec_ref(x_416); + x_441 = lean_box(0); +} +x_442 = 0; +if (lean_is_scalar(x_441)) { + x_443 = lean_alloc_ctor(1, 4, 1); +} else { + x_443 = x_441; +} +lean_ctor_set(x_443, 0, x_417); +lean_ctor_set(x_443, 1, x_439); +lean_ctor_set(x_443, 2, x_440); +lean_ctor_set(x_443, 3, x_418); +lean_ctor_set_uint8(x_443, sizeof(void*)*4, x_442); +x_444 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_444, 0, x_443); +lean_ctor_set(x_444, 1, x_326); +lean_ctor_set(x_444, 2, x_327); +lean_ctor_set(x_444, 3, x_328); +lean_ctor_set_uint8(x_444, sizeof(void*)*4, x_426); +return x_444; +} +} +} +else +{ +uint8_t x_445; +x_445 = lean_ctor_get_uint8(x_417, sizeof(void*)*4); +if (x_445 == 0) +{ +lean_object* x_446; lean_object* x_447; lean_object* x_448; lean_object* x_449; lean_object* x_450; lean_object* x_451; lean_object* x_452; lean_object* x_453; lean_object* x_454; uint8_t x_455; lean_object* x_456; lean_object* x_457; lean_object* x_458; +x_446 = lean_ctor_get(x_416, 1); +lean_inc(x_446); +x_447 = lean_ctor_get(x_416, 2); +lean_inc(x_447); +x_448 = lean_ctor_get(x_416, 3); +lean_inc(x_448); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_449 = x_416; +} else { + lean_dec_ref(x_416); + x_449 = lean_box(0); +} +x_450 = lean_ctor_get(x_417, 0); +lean_inc(x_450); +x_451 = lean_ctor_get(x_417, 1); +lean_inc(x_451); +x_452 = lean_ctor_get(x_417, 2); +lean_inc(x_452); +x_453 = lean_ctor_get(x_417, 3); +lean_inc(x_453); +if (lean_is_exclusive(x_417)) { + lean_ctor_release(x_417, 0); + lean_ctor_release(x_417, 1); + lean_ctor_release(x_417, 2); + lean_ctor_release(x_417, 3); + x_454 = x_417; +} else { + lean_dec_ref(x_417); + x_454 = lean_box(0); +} +x_455 = 1; +if (lean_is_scalar(x_454)) { + x_456 = lean_alloc_ctor(1, 4, 1); +} else { + x_456 = x_454; +} +lean_ctor_set(x_456, 0, x_450); +lean_ctor_set(x_456, 1, x_451); +lean_ctor_set(x_456, 2, x_452); +lean_ctor_set(x_456, 3, x_453); +lean_ctor_set_uint8(x_456, sizeof(void*)*4, x_455); +if (lean_is_scalar(x_449)) { + x_457 = lean_alloc_ctor(1, 4, 1); +} else { + x_457 = x_449; +} +lean_ctor_set(x_457, 0, x_448); +lean_ctor_set(x_457, 1, x_326); +lean_ctor_set(x_457, 2, x_327); +lean_ctor_set(x_457, 3, x_328); +lean_ctor_set_uint8(x_457, sizeof(void*)*4, x_455); +x_458 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_458, 0, x_456); +lean_ctor_set(x_458, 1, x_446); +lean_ctor_set(x_458, 2, x_447); +lean_ctor_set(x_458, 3, x_457); +lean_ctor_set_uint8(x_458, sizeof(void*)*4, x_445); +return x_458; +} +else +{ +lean_object* x_459; +x_459 = lean_ctor_get(x_416, 3); +lean_inc(x_459); +if (lean_obj_tag(x_459) == 0) +{ +lean_object* x_460; lean_object* x_461; lean_object* x_462; uint8_t x_463; lean_object* x_464; lean_object* x_465; +x_460 = lean_ctor_get(x_416, 1); +lean_inc(x_460); +x_461 = lean_ctor_get(x_416, 2); +lean_inc(x_461); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_462 = x_416; +} else { + lean_dec_ref(x_416); + x_462 = lean_box(0); +} +x_463 = 0; +if (lean_is_scalar(x_462)) { + x_464 = lean_alloc_ctor(1, 4, 1); +} else { + x_464 = x_462; +} +lean_ctor_set(x_464, 0, x_417); +lean_ctor_set(x_464, 1, x_460); +lean_ctor_set(x_464, 2, x_461); +lean_ctor_set(x_464, 3, x_459); +lean_ctor_set_uint8(x_464, sizeof(void*)*4, x_463); +x_465 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_465, 0, x_464); +lean_ctor_set(x_465, 1, x_326); +lean_ctor_set(x_465, 2, x_327); +lean_ctor_set(x_465, 3, x_328); +lean_ctor_set_uint8(x_465, sizeof(void*)*4, x_445); +return x_465; +} +else +{ +uint8_t x_466; +x_466 = lean_ctor_get_uint8(x_459, sizeof(void*)*4); +if (x_466 == 0) +{ +lean_object* x_467; lean_object* x_468; lean_object* x_469; lean_object* x_470; lean_object* x_471; lean_object* x_472; lean_object* x_473; lean_object* x_474; lean_object* x_475; lean_object* x_476; lean_object* x_477; lean_object* x_478; +x_467 = lean_ctor_get(x_416, 1); +lean_inc(x_467); +x_468 = lean_ctor_get(x_416, 2); +lean_inc(x_468); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_469 = x_416; +} else { + lean_dec_ref(x_416); + x_469 = lean_box(0); +} +x_470 = lean_ctor_get(x_459, 0); +lean_inc(x_470); +x_471 = lean_ctor_get(x_459, 1); +lean_inc(x_471); +x_472 = lean_ctor_get(x_459, 2); +lean_inc(x_472); +x_473 = lean_ctor_get(x_459, 3); +lean_inc(x_473); +if (lean_is_exclusive(x_459)) { + lean_ctor_release(x_459, 0); + lean_ctor_release(x_459, 1); + lean_ctor_release(x_459, 2); + lean_ctor_release(x_459, 3); + x_474 = x_459; +} else { + lean_dec_ref(x_459); + x_474 = lean_box(0); +} +lean_inc(x_417); +if (lean_is_scalar(x_474)) { + x_475 = lean_alloc_ctor(1, 4, 1); +} else { + x_475 = x_474; +} +lean_ctor_set(x_475, 0, x_417); +lean_ctor_set(x_475, 1, x_467); +lean_ctor_set(x_475, 2, x_468); +lean_ctor_set(x_475, 3, x_470); +if (lean_is_exclusive(x_417)) { + lean_ctor_release(x_417, 0); + lean_ctor_release(x_417, 1); + lean_ctor_release(x_417, 2); + lean_ctor_release(x_417, 3); + x_476 = x_417; +} else { + lean_dec_ref(x_417); + x_476 = lean_box(0); +} +lean_ctor_set_uint8(x_475, sizeof(void*)*4, x_445); +if (lean_is_scalar(x_476)) { + x_477 = lean_alloc_ctor(1, 4, 1); +} else { + x_477 = x_476; +} +lean_ctor_set(x_477, 0, x_473); +lean_ctor_set(x_477, 1, x_326); +lean_ctor_set(x_477, 2, x_327); +lean_ctor_set(x_477, 3, x_328); +lean_ctor_set_uint8(x_477, sizeof(void*)*4, x_445); +if (lean_is_scalar(x_469)) { + x_478 = lean_alloc_ctor(1, 4, 1); +} else { + x_478 = x_469; +} +lean_ctor_set(x_478, 0, x_475); +lean_ctor_set(x_478, 1, x_471); +lean_ctor_set(x_478, 2, x_472); +lean_ctor_set(x_478, 3, x_477); +lean_ctor_set_uint8(x_478, sizeof(void*)*4, x_466); +return x_478; +} +else +{ +lean_object* x_479; lean_object* x_480; lean_object* x_481; lean_object* x_482; lean_object* x_483; lean_object* x_484; lean_object* x_485; lean_object* x_486; lean_object* x_487; uint8_t x_488; lean_object* x_489; lean_object* x_490; +x_479 = lean_ctor_get(x_416, 1); +lean_inc(x_479); +x_480 = lean_ctor_get(x_416, 2); +lean_inc(x_480); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_481 = x_416; +} else { + lean_dec_ref(x_416); + x_481 = lean_box(0); +} +x_482 = lean_ctor_get(x_417, 0); +lean_inc(x_482); +x_483 = lean_ctor_get(x_417, 1); +lean_inc(x_483); +x_484 = lean_ctor_get(x_417, 2); +lean_inc(x_484); +x_485 = lean_ctor_get(x_417, 3); +lean_inc(x_485); +if (lean_is_exclusive(x_417)) { + lean_ctor_release(x_417, 0); + lean_ctor_release(x_417, 1); + lean_ctor_release(x_417, 2); + lean_ctor_release(x_417, 3); + x_486 = x_417; +} else { + lean_dec_ref(x_417); + x_486 = lean_box(0); +} +if (lean_is_scalar(x_486)) { + x_487 = lean_alloc_ctor(1, 4, 1); +} else { + x_487 = x_486; +} +lean_ctor_set(x_487, 0, x_482); +lean_ctor_set(x_487, 1, x_483); +lean_ctor_set(x_487, 2, x_484); +lean_ctor_set(x_487, 3, x_485); +lean_ctor_set_uint8(x_487, sizeof(void*)*4, x_466); +x_488 = 0; +if (lean_is_scalar(x_481)) { + x_489 = lean_alloc_ctor(1, 4, 1); +} else { + x_489 = x_481; +} +lean_ctor_set(x_489, 0, x_487); +lean_ctor_set(x_489, 1, x_479); +lean_ctor_set(x_489, 2, x_480); +lean_ctor_set(x_489, 3, x_459); +lean_ctor_set_uint8(x_489, sizeof(void*)*4, x_488); +x_490 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_490, 0, x_489); +lean_ctor_set(x_490, 1, x_326); +lean_ctor_set(x_490, 2, x_327); +lean_ctor_set(x_490, 3, x_328); +lean_ctor_set_uint8(x_490, sizeof(void*)*4, x_466); +return x_490; +} +} +} +} +} +} +} +} +} +} +} +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__2___rarg(lean_object* x_1, uint32_t x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = l_RBNode_isRed___rarg(x_1); +if (x_4 == 0) +{ +lean_object* x_5; +x_5 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg(x_1, x_2, x_3); +return x_5; +} +else +{ +lean_object* x_6; lean_object* x_7; +x_6 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg(x_1, x_2, x_3); +x_7 = l_RBNode_setBlack___rarg(x_6); +return x_7; +} +} +} +lean_object* l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__2(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__2___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg(lean_object* x_1, uint32_t x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +uint8_t x_4; lean_object* x_5; lean_object* x_6; +x_4 = 0; +x_5 = lean_box_uint32(x_2); +x_6 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_6, 0, x_1); +lean_ctor_set(x_6, 1, x_5); +lean_ctor_set(x_6, 2, x_3); +lean_ctor_set(x_6, 3, x_1); +lean_ctor_set_uint8(x_6, sizeof(void*)*4, x_4); +return x_6; +} +else +{ +uint8_t x_7; +x_7 = lean_ctor_get_uint8(x_1, sizeof(void*)*4); +if (x_7 == 0) +{ +uint8_t x_8; +x_8 = !lean_is_exclusive(x_1); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; uint32_t x_13; uint8_t x_14; +x_9 = lean_ctor_get(x_1, 0); +x_10 = lean_ctor_get(x_1, 1); +x_11 = lean_ctor_get(x_1, 2); +x_12 = lean_ctor_get(x_1, 3); +x_13 = lean_unbox_uint32(x_10); +x_14 = x_2 < x_13; +if (x_14 == 0) +{ +uint32_t x_15; uint8_t x_16; +x_15 = lean_unbox_uint32(x_10); +x_16 = x_15 < x_2; +if (x_16 == 0) +{ +lean_object* x_17; +lean_dec(x_11); +lean_dec(x_10); +x_17 = lean_box_uint32(x_2); +lean_ctor_set(x_1, 2, x_3); +lean_ctor_set(x_1, 1, x_17); +return x_1; +} +else +{ +lean_object* x_18; +x_18 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg(x_12, x_2, x_3); +lean_ctor_set(x_1, 3, x_18); +return x_1; +} +} +else +{ +lean_object* x_19; +x_19 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg(x_9, x_2, x_3); +lean_ctor_set(x_1, 0, x_19); +return x_1; +} +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; uint32_t x_24; uint8_t x_25; +x_20 = lean_ctor_get(x_1, 0); +x_21 = lean_ctor_get(x_1, 1); +x_22 = lean_ctor_get(x_1, 2); +x_23 = lean_ctor_get(x_1, 3); +lean_inc(x_23); +lean_inc(x_22); +lean_inc(x_21); +lean_inc(x_20); +lean_dec(x_1); +x_24 = lean_unbox_uint32(x_21); +x_25 = x_2 < x_24; +if (x_25 == 0) +{ +uint32_t x_26; uint8_t x_27; +x_26 = lean_unbox_uint32(x_21); +x_27 = x_26 < x_2; +if (x_27 == 0) +{ +lean_object* x_28; lean_object* x_29; +lean_dec(x_22); +lean_dec(x_21); +x_28 = lean_box_uint32(x_2); +x_29 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_29, 0, x_20); +lean_ctor_set(x_29, 1, x_28); +lean_ctor_set(x_29, 2, x_3); +lean_ctor_set(x_29, 3, x_23); +lean_ctor_set_uint8(x_29, sizeof(void*)*4, x_7); +return x_29; +} +else +{ +lean_object* x_30; lean_object* x_31; +x_30 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg(x_23, x_2, x_3); +x_31 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_31, 0, x_20); +lean_ctor_set(x_31, 1, x_21); +lean_ctor_set(x_31, 2, x_22); +lean_ctor_set(x_31, 3, x_30); +lean_ctor_set_uint8(x_31, sizeof(void*)*4, x_7); +return x_31; +} +} +else +{ +lean_object* x_32; lean_object* x_33; +x_32 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg(x_20, x_2, x_3); +x_33 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_33, 0, x_32); +lean_ctor_set(x_33, 1, x_21); +lean_ctor_set(x_33, 2, x_22); +lean_ctor_set(x_33, 3, x_23); +lean_ctor_set_uint8(x_33, sizeof(void*)*4, x_7); +return x_33; +} +} +} +else +{ +uint8_t x_34; +x_34 = !lean_is_exclusive(x_1); +if (x_34 == 0) +{ +lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; uint32_t x_39; uint8_t x_40; +x_35 = lean_ctor_get(x_1, 0); +x_36 = lean_ctor_get(x_1, 1); +x_37 = lean_ctor_get(x_1, 2); +x_38 = lean_ctor_get(x_1, 3); +x_39 = lean_unbox_uint32(x_36); +x_40 = x_2 < x_39; +if (x_40 == 0) +{ +uint32_t x_41; uint8_t x_42; +x_41 = lean_unbox_uint32(x_36); +x_42 = x_41 < x_2; +if (x_42 == 0) +{ +lean_object* x_43; +lean_dec(x_37); +lean_dec(x_36); +x_43 = lean_box_uint32(x_2); +lean_ctor_set(x_1, 2, x_3); +lean_ctor_set(x_1, 1, x_43); +return x_1; +} +else +{ +uint8_t x_44; +x_44 = l_RBNode_isRed___rarg(x_38); +if (x_44 == 0) +{ +lean_object* x_45; +x_45 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg(x_38, x_2, x_3); +lean_ctor_set(x_1, 3, x_45); +return x_1; +} +else +{ +lean_object* x_46; lean_object* x_47; +x_46 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg(x_38, x_2, x_3); +x_47 = lean_ctor_get(x_46, 0); +lean_inc(x_47); +if (lean_obj_tag(x_47) == 0) +{ +lean_object* x_48; +x_48 = lean_ctor_get(x_46, 3); +lean_inc(x_48); +if (lean_obj_tag(x_48) == 0) +{ +uint8_t x_49; +x_49 = !lean_is_exclusive(x_46); +if (x_49 == 0) +{ +lean_object* x_50; lean_object* x_51; uint8_t x_52; uint8_t x_53; +x_50 = lean_ctor_get(x_46, 3); +lean_dec(x_50); +x_51 = lean_ctor_get(x_46, 0); +lean_dec(x_51); +x_52 = 0; +lean_ctor_set(x_46, 0, x_48); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_52); +x_53 = 1; +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_53); +return x_1; +} +else +{ +lean_object* x_54; lean_object* x_55; uint8_t x_56; lean_object* x_57; uint8_t x_58; +x_54 = lean_ctor_get(x_46, 1); +x_55 = lean_ctor_get(x_46, 2); +lean_inc(x_55); +lean_inc(x_54); +lean_dec(x_46); +x_56 = 0; +x_57 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_57, 0, x_48); +lean_ctor_set(x_57, 1, x_54); +lean_ctor_set(x_57, 2, x_55); +lean_ctor_set(x_57, 3, x_48); +lean_ctor_set_uint8(x_57, sizeof(void*)*4, x_56); +x_58 = 1; +lean_ctor_set(x_1, 3, x_57); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_58); +return x_1; +} +} +else +{ +uint8_t x_59; +x_59 = lean_ctor_get_uint8(x_48, sizeof(void*)*4); +if (x_59 == 0) +{ +uint8_t x_60; +x_60 = !lean_is_exclusive(x_46); +if (x_60 == 0) +{ +lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; uint8_t x_65; +x_61 = lean_ctor_get(x_46, 1); +x_62 = lean_ctor_get(x_46, 2); +x_63 = lean_ctor_get(x_46, 3); +lean_dec(x_63); +x_64 = lean_ctor_get(x_46, 0); +lean_dec(x_64); +x_65 = !lean_is_exclusive(x_48); +if (x_65 == 0) +{ +lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; uint8_t x_70; +x_66 = lean_ctor_get(x_48, 0); +x_67 = lean_ctor_get(x_48, 1); +x_68 = lean_ctor_get(x_48, 2); +x_69 = lean_ctor_get(x_48, 3); +x_70 = 1; +lean_ctor_set(x_48, 3, x_47); +lean_ctor_set(x_48, 2, x_37); +lean_ctor_set(x_48, 1, x_36); +lean_ctor_set(x_48, 0, x_35); +lean_ctor_set_uint8(x_48, sizeof(void*)*4, x_70); +lean_ctor_set(x_46, 3, x_69); +lean_ctor_set(x_46, 2, x_68); +lean_ctor_set(x_46, 1, x_67); +lean_ctor_set(x_46, 0, x_66); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_70); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set(x_1, 2, x_62); +lean_ctor_set(x_1, 1, x_61); +lean_ctor_set(x_1, 0, x_48); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +else +{ +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 = lean_ctor_get(x_48, 0); +x_72 = lean_ctor_get(x_48, 1); +x_73 = lean_ctor_get(x_48, 2); +x_74 = lean_ctor_get(x_48, 3); +lean_inc(x_74); +lean_inc(x_73); +lean_inc(x_72); +lean_inc(x_71); +lean_dec(x_48); +x_75 = 1; +x_76 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_76, 0, x_35); +lean_ctor_set(x_76, 1, x_36); +lean_ctor_set(x_76, 2, x_37); +lean_ctor_set(x_76, 3, x_47); +lean_ctor_set_uint8(x_76, sizeof(void*)*4, x_75); +lean_ctor_set(x_46, 3, x_74); +lean_ctor_set(x_46, 2, x_73); +lean_ctor_set(x_46, 1, x_72); +lean_ctor_set(x_46, 0, x_71); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_75); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set(x_1, 2, x_62); +lean_ctor_set(x_1, 1, x_61); +lean_ctor_set(x_1, 0, x_76); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +} +else +{ +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; uint8_t x_84; lean_object* x_85; lean_object* x_86; +x_77 = lean_ctor_get(x_46, 1); +x_78 = lean_ctor_get(x_46, 2); +lean_inc(x_78); +lean_inc(x_77); +lean_dec(x_46); +x_79 = lean_ctor_get(x_48, 0); +lean_inc(x_79); +x_80 = lean_ctor_get(x_48, 1); +lean_inc(x_80); +x_81 = lean_ctor_get(x_48, 2); +lean_inc(x_81); +x_82 = lean_ctor_get(x_48, 3); +lean_inc(x_82); +if (lean_is_exclusive(x_48)) { + lean_ctor_release(x_48, 0); + lean_ctor_release(x_48, 1); + lean_ctor_release(x_48, 2); + lean_ctor_release(x_48, 3); + x_83 = x_48; +} else { + lean_dec_ref(x_48); + x_83 = lean_box(0); +} +x_84 = 1; +if (lean_is_scalar(x_83)) { + x_85 = lean_alloc_ctor(1, 4, 1); +} else { + x_85 = x_83; +} +lean_ctor_set(x_85, 0, x_35); +lean_ctor_set(x_85, 1, x_36); +lean_ctor_set(x_85, 2, x_37); +lean_ctor_set(x_85, 3, x_47); +lean_ctor_set_uint8(x_85, sizeof(void*)*4, x_84); +x_86 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_86, 0, x_79); +lean_ctor_set(x_86, 1, x_80); +lean_ctor_set(x_86, 2, x_81); +lean_ctor_set(x_86, 3, x_82); +lean_ctor_set_uint8(x_86, sizeof(void*)*4, x_84); +lean_ctor_set(x_1, 3, x_86); +lean_ctor_set(x_1, 2, x_78); +lean_ctor_set(x_1, 1, x_77); +lean_ctor_set(x_1, 0, x_85); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +} +else +{ +uint8_t x_87; +x_87 = !lean_is_exclusive(x_46); +if (x_87 == 0) +{ +lean_object* x_88; lean_object* x_89; uint8_t x_90; +x_88 = lean_ctor_get(x_46, 3); +lean_dec(x_88); +x_89 = lean_ctor_get(x_46, 0); +lean_dec(x_89); +x_90 = 0; +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_90); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +else +{ +lean_object* x_91; lean_object* x_92; uint8_t x_93; lean_object* x_94; +x_91 = lean_ctor_get(x_46, 1); +x_92 = lean_ctor_get(x_46, 2); +lean_inc(x_92); +lean_inc(x_91); +lean_dec(x_46); +x_93 = 0; +x_94 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_94, 0, x_47); +lean_ctor_set(x_94, 1, x_91); +lean_ctor_set(x_94, 2, x_92); +lean_ctor_set(x_94, 3, x_48); +lean_ctor_set_uint8(x_94, sizeof(void*)*4, x_93); +lean_ctor_set(x_1, 3, x_94); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +} +} +} +else +{ +uint8_t x_95; +x_95 = lean_ctor_get_uint8(x_47, sizeof(void*)*4); +if (x_95 == 0) +{ +uint8_t x_96; +x_96 = !lean_is_exclusive(x_46); +if (x_96 == 0) +{ +lean_object* x_97; uint8_t x_98; +x_97 = lean_ctor_get(x_46, 0); +lean_dec(x_97); +x_98 = !lean_is_exclusive(x_47); +if (x_98 == 0) +{ +lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; uint8_t x_103; +x_99 = lean_ctor_get(x_47, 0); +x_100 = lean_ctor_get(x_47, 1); +x_101 = lean_ctor_get(x_47, 2); +x_102 = lean_ctor_get(x_47, 3); +x_103 = 1; +lean_ctor_set(x_47, 3, x_99); +lean_ctor_set(x_47, 2, x_37); +lean_ctor_set(x_47, 1, x_36); +lean_ctor_set(x_47, 0, x_35); +lean_ctor_set_uint8(x_47, sizeof(void*)*4, x_103); +lean_ctor_set(x_46, 0, x_102); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_103); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set(x_1, 2, x_101); +lean_ctor_set(x_1, 1, x_100); +lean_ctor_set(x_1, 0, x_47); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +else +{ +lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; uint8_t x_108; lean_object* x_109; +x_104 = lean_ctor_get(x_47, 0); +x_105 = lean_ctor_get(x_47, 1); +x_106 = lean_ctor_get(x_47, 2); +x_107 = lean_ctor_get(x_47, 3); +lean_inc(x_107); +lean_inc(x_106); +lean_inc(x_105); +lean_inc(x_104); +lean_dec(x_47); +x_108 = 1; +x_109 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_109, 0, x_35); +lean_ctor_set(x_109, 1, x_36); +lean_ctor_set(x_109, 2, x_37); +lean_ctor_set(x_109, 3, x_104); +lean_ctor_set_uint8(x_109, sizeof(void*)*4, x_108); +lean_ctor_set(x_46, 0, x_107); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_108); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set(x_1, 2, x_106); +lean_ctor_set(x_1, 1, x_105); +lean_ctor_set(x_1, 0, x_109); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +} +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; uint8_t x_118; lean_object* x_119; lean_object* x_120; +x_110 = lean_ctor_get(x_46, 1); +x_111 = lean_ctor_get(x_46, 2); +x_112 = lean_ctor_get(x_46, 3); +lean_inc(x_112); +lean_inc(x_111); +lean_inc(x_110); +lean_dec(x_46); +x_113 = lean_ctor_get(x_47, 0); +lean_inc(x_113); +x_114 = lean_ctor_get(x_47, 1); +lean_inc(x_114); +x_115 = lean_ctor_get(x_47, 2); +lean_inc(x_115); +x_116 = lean_ctor_get(x_47, 3); +lean_inc(x_116); +if (lean_is_exclusive(x_47)) { + lean_ctor_release(x_47, 0); + lean_ctor_release(x_47, 1); + lean_ctor_release(x_47, 2); + lean_ctor_release(x_47, 3); + x_117 = x_47; +} else { + lean_dec_ref(x_47); + x_117 = lean_box(0); +} +x_118 = 1; +if (lean_is_scalar(x_117)) { + x_119 = lean_alloc_ctor(1, 4, 1); +} else { + x_119 = x_117; +} +lean_ctor_set(x_119, 0, x_35); +lean_ctor_set(x_119, 1, x_36); +lean_ctor_set(x_119, 2, x_37); +lean_ctor_set(x_119, 3, x_113); +lean_ctor_set_uint8(x_119, sizeof(void*)*4, x_118); +x_120 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_120, 0, x_116); +lean_ctor_set(x_120, 1, x_110); +lean_ctor_set(x_120, 2, x_111); +lean_ctor_set(x_120, 3, x_112); +lean_ctor_set_uint8(x_120, sizeof(void*)*4, x_118); +lean_ctor_set(x_1, 3, x_120); +lean_ctor_set(x_1, 2, x_115); +lean_ctor_set(x_1, 1, x_114); +lean_ctor_set(x_1, 0, x_119); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +} +else +{ +lean_object* x_121; +x_121 = lean_ctor_get(x_46, 3); +lean_inc(x_121); +if (lean_obj_tag(x_121) == 0) +{ +uint8_t x_122; +x_122 = !lean_is_exclusive(x_46); +if (x_122 == 0) +{ +lean_object* x_123; lean_object* x_124; uint8_t x_125; +x_123 = lean_ctor_get(x_46, 3); +lean_dec(x_123); +x_124 = lean_ctor_get(x_46, 0); +lean_dec(x_124); +x_125 = 0; +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_125); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +else +{ +lean_object* x_126; lean_object* x_127; uint8_t x_128; lean_object* x_129; +x_126 = lean_ctor_get(x_46, 1); +x_127 = lean_ctor_get(x_46, 2); +lean_inc(x_127); +lean_inc(x_126); +lean_dec(x_46); +x_128 = 0; +x_129 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_129, 0, x_47); +lean_ctor_set(x_129, 1, x_126); +lean_ctor_set(x_129, 2, x_127); +lean_ctor_set(x_129, 3, x_121); +lean_ctor_set_uint8(x_129, sizeof(void*)*4, x_128); +lean_ctor_set(x_1, 3, x_129); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +} +else +{ +uint8_t x_130; +x_130 = lean_ctor_get_uint8(x_121, sizeof(void*)*4); +if (x_130 == 0) +{ +uint8_t x_131; +lean_free_object(x_1); +x_131 = !lean_is_exclusive(x_46); +if (x_131 == 0) +{ +lean_object* x_132; lean_object* x_133; uint8_t x_134; +x_132 = lean_ctor_get(x_46, 3); +lean_dec(x_132); +x_133 = lean_ctor_get(x_46, 0); +lean_dec(x_133); +x_134 = !lean_is_exclusive(x_121); +if (x_134 == 0) +{ +lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; uint8_t x_139; +x_135 = lean_ctor_get(x_121, 0); +x_136 = lean_ctor_get(x_121, 1); +x_137 = lean_ctor_get(x_121, 2); +x_138 = lean_ctor_get(x_121, 3); +lean_inc(x_47); +lean_ctor_set(x_121, 3, x_47); +lean_ctor_set(x_121, 2, x_37); +lean_ctor_set(x_121, 1, x_36); +lean_ctor_set(x_121, 0, x_35); +x_139 = !lean_is_exclusive(x_47); +if (x_139 == 0) +{ +lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; +x_140 = lean_ctor_get(x_47, 3); +lean_dec(x_140); +x_141 = lean_ctor_get(x_47, 2); +lean_dec(x_141); +x_142 = lean_ctor_get(x_47, 1); +lean_dec(x_142); +x_143 = lean_ctor_get(x_47, 0); +lean_dec(x_143); +lean_ctor_set_uint8(x_121, sizeof(void*)*4, x_95); +lean_ctor_set(x_47, 3, x_138); +lean_ctor_set(x_47, 2, x_137); +lean_ctor_set(x_47, 1, x_136); +lean_ctor_set(x_47, 0, x_135); +lean_ctor_set(x_46, 3, x_47); +lean_ctor_set(x_46, 0, x_121); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_130); +return x_46; +} +else +{ +lean_object* x_144; +lean_dec(x_47); +lean_ctor_set_uint8(x_121, sizeof(void*)*4, x_95); +x_144 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_144, 0, x_135); +lean_ctor_set(x_144, 1, x_136); +lean_ctor_set(x_144, 2, x_137); +lean_ctor_set(x_144, 3, x_138); +lean_ctor_set_uint8(x_144, sizeof(void*)*4, x_95); +lean_ctor_set(x_46, 3, x_144); +lean_ctor_set(x_46, 0, x_121); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_130); +return x_46; +} +} +else +{ +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; +x_145 = lean_ctor_get(x_121, 0); +x_146 = lean_ctor_get(x_121, 1); +x_147 = lean_ctor_get(x_121, 2); +x_148 = lean_ctor_get(x_121, 3); +lean_inc(x_148); +lean_inc(x_147); +lean_inc(x_146); +lean_inc(x_145); +lean_dec(x_121); +lean_inc(x_47); +x_149 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_149, 0, x_35); +lean_ctor_set(x_149, 1, x_36); +lean_ctor_set(x_149, 2, x_37); +lean_ctor_set(x_149, 3, x_47); +if (lean_is_exclusive(x_47)) { + lean_ctor_release(x_47, 0); + lean_ctor_release(x_47, 1); + lean_ctor_release(x_47, 2); + lean_ctor_release(x_47, 3); + x_150 = x_47; +} else { + lean_dec_ref(x_47); + x_150 = lean_box(0); +} +lean_ctor_set_uint8(x_149, sizeof(void*)*4, x_95); +if (lean_is_scalar(x_150)) { + x_151 = lean_alloc_ctor(1, 4, 1); +} else { + x_151 = x_150; +} +lean_ctor_set(x_151, 0, x_145); +lean_ctor_set(x_151, 1, x_146); +lean_ctor_set(x_151, 2, x_147); +lean_ctor_set(x_151, 3, x_148); +lean_ctor_set_uint8(x_151, sizeof(void*)*4, x_95); +lean_ctor_set(x_46, 3, x_151); +lean_ctor_set(x_46, 0, x_149); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_130); +return x_46; +} +} +else +{ +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; +x_152 = lean_ctor_get(x_46, 1); +x_153 = lean_ctor_get(x_46, 2); +lean_inc(x_153); +lean_inc(x_152); +lean_dec(x_46); +x_154 = lean_ctor_get(x_121, 0); +lean_inc(x_154); +x_155 = lean_ctor_get(x_121, 1); +lean_inc(x_155); +x_156 = lean_ctor_get(x_121, 2); +lean_inc(x_156); +x_157 = lean_ctor_get(x_121, 3); +lean_inc(x_157); +if (lean_is_exclusive(x_121)) { + lean_ctor_release(x_121, 0); + lean_ctor_release(x_121, 1); + lean_ctor_release(x_121, 2); + lean_ctor_release(x_121, 3); + x_158 = x_121; +} else { + lean_dec_ref(x_121); + x_158 = lean_box(0); +} +lean_inc(x_47); +if (lean_is_scalar(x_158)) { + x_159 = lean_alloc_ctor(1, 4, 1); +} else { + x_159 = x_158; +} +lean_ctor_set(x_159, 0, x_35); +lean_ctor_set(x_159, 1, x_36); +lean_ctor_set(x_159, 2, x_37); +lean_ctor_set(x_159, 3, x_47); +if (lean_is_exclusive(x_47)) { + lean_ctor_release(x_47, 0); + lean_ctor_release(x_47, 1); + lean_ctor_release(x_47, 2); + lean_ctor_release(x_47, 3); + x_160 = x_47; +} else { + lean_dec_ref(x_47); + x_160 = lean_box(0); +} +lean_ctor_set_uint8(x_159, sizeof(void*)*4, x_95); +if (lean_is_scalar(x_160)) { + x_161 = lean_alloc_ctor(1, 4, 1); +} else { + x_161 = x_160; +} +lean_ctor_set(x_161, 0, x_154); +lean_ctor_set(x_161, 1, x_155); +lean_ctor_set(x_161, 2, x_156); +lean_ctor_set(x_161, 3, x_157); +lean_ctor_set_uint8(x_161, sizeof(void*)*4, x_95); +x_162 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_162, 0, x_159); +lean_ctor_set(x_162, 1, x_152); +lean_ctor_set(x_162, 2, x_153); +lean_ctor_set(x_162, 3, x_161); +lean_ctor_set_uint8(x_162, sizeof(void*)*4, x_130); +return x_162; +} +} +else +{ +uint8_t x_163; +x_163 = !lean_is_exclusive(x_46); +if (x_163 == 0) +{ +lean_object* x_164; lean_object* x_165; uint8_t x_166; +x_164 = lean_ctor_get(x_46, 3); +lean_dec(x_164); +x_165 = lean_ctor_get(x_46, 0); +lean_dec(x_165); +x_166 = !lean_is_exclusive(x_47); +if (x_166 == 0) +{ +uint8_t x_167; +lean_ctor_set_uint8(x_47, sizeof(void*)*4, x_130); +x_167 = 0; +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_167); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_130); +return x_1; +} +else +{ +lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; uint8_t x_173; +x_168 = lean_ctor_get(x_47, 0); +x_169 = lean_ctor_get(x_47, 1); +x_170 = lean_ctor_get(x_47, 2); +x_171 = lean_ctor_get(x_47, 3); +lean_inc(x_171); +lean_inc(x_170); +lean_inc(x_169); +lean_inc(x_168); +lean_dec(x_47); +x_172 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_172, 0, x_168); +lean_ctor_set(x_172, 1, x_169); +lean_ctor_set(x_172, 2, x_170); +lean_ctor_set(x_172, 3, x_171); +lean_ctor_set_uint8(x_172, sizeof(void*)*4, x_130); +x_173 = 0; +lean_ctor_set(x_46, 0, x_172); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_173); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_130); +return x_1; +} +} +else +{ +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; uint8_t x_182; lean_object* x_183; +x_174 = lean_ctor_get(x_46, 1); +x_175 = lean_ctor_get(x_46, 2); +lean_inc(x_175); +lean_inc(x_174); +lean_dec(x_46); +x_176 = lean_ctor_get(x_47, 0); +lean_inc(x_176); +x_177 = lean_ctor_get(x_47, 1); +lean_inc(x_177); +x_178 = lean_ctor_get(x_47, 2); +lean_inc(x_178); +x_179 = lean_ctor_get(x_47, 3); +lean_inc(x_179); +if (lean_is_exclusive(x_47)) { + lean_ctor_release(x_47, 0); + lean_ctor_release(x_47, 1); + lean_ctor_release(x_47, 2); + lean_ctor_release(x_47, 3); + x_180 = x_47; +} else { + lean_dec_ref(x_47); + x_180 = lean_box(0); +} +if (lean_is_scalar(x_180)) { + x_181 = lean_alloc_ctor(1, 4, 1); +} else { + x_181 = x_180; +} +lean_ctor_set(x_181, 0, x_176); +lean_ctor_set(x_181, 1, x_177); +lean_ctor_set(x_181, 2, x_178); +lean_ctor_set(x_181, 3, x_179); +lean_ctor_set_uint8(x_181, sizeof(void*)*4, x_130); +x_182 = 0; +x_183 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_183, 0, x_181); +lean_ctor_set(x_183, 1, x_174); +lean_ctor_set(x_183, 2, x_175); +lean_ctor_set(x_183, 3, x_121); +lean_ctor_set_uint8(x_183, sizeof(void*)*4, x_182); +lean_ctor_set(x_1, 3, x_183); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_130); +return x_1; +} +} +} +} +} +} +} +} +else +{ +uint8_t x_184; +x_184 = l_RBNode_isRed___rarg(x_35); +if (x_184 == 0) +{ +lean_object* x_185; +x_185 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg(x_35, x_2, x_3); +lean_ctor_set(x_1, 0, x_185); +return x_1; +} +else +{ +lean_object* x_186; lean_object* x_187; +x_186 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg(x_35, x_2, x_3); +x_187 = lean_ctor_get(x_186, 0); +lean_inc(x_187); +if (lean_obj_tag(x_187) == 0) +{ +lean_object* x_188; +x_188 = lean_ctor_get(x_186, 3); +lean_inc(x_188); +if (lean_obj_tag(x_188) == 0) +{ +uint8_t x_189; +x_189 = !lean_is_exclusive(x_186); +if (x_189 == 0) +{ +lean_object* x_190; lean_object* x_191; uint8_t x_192; uint8_t x_193; +x_190 = lean_ctor_get(x_186, 3); +lean_dec(x_190); +x_191 = lean_ctor_get(x_186, 0); +lean_dec(x_191); +x_192 = 0; +lean_ctor_set(x_186, 0, x_188); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_192); +x_193 = 1; +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_193); +return x_1; +} +else +{ +lean_object* x_194; lean_object* x_195; uint8_t x_196; lean_object* x_197; uint8_t x_198; +x_194 = lean_ctor_get(x_186, 1); +x_195 = lean_ctor_get(x_186, 2); +lean_inc(x_195); +lean_inc(x_194); +lean_dec(x_186); +x_196 = 0; +x_197 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_197, 0, x_188); +lean_ctor_set(x_197, 1, x_194); +lean_ctor_set(x_197, 2, x_195); +lean_ctor_set(x_197, 3, x_188); +lean_ctor_set_uint8(x_197, sizeof(void*)*4, x_196); +x_198 = 1; +lean_ctor_set(x_1, 0, x_197); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_198); +return x_1; +} +} +else +{ +uint8_t x_199; +x_199 = lean_ctor_get_uint8(x_188, sizeof(void*)*4); +if (x_199 == 0) +{ +uint8_t x_200; +x_200 = !lean_is_exclusive(x_186); +if (x_200 == 0) +{ +lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; uint8_t x_205; +x_201 = lean_ctor_get(x_186, 1); +x_202 = lean_ctor_get(x_186, 2); +x_203 = lean_ctor_get(x_186, 3); +lean_dec(x_203); +x_204 = lean_ctor_get(x_186, 0); +lean_dec(x_204); +x_205 = !lean_is_exclusive(x_188); +if (x_205 == 0) +{ +lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; uint8_t x_210; +x_206 = lean_ctor_get(x_188, 0); +x_207 = lean_ctor_get(x_188, 1); +x_208 = lean_ctor_get(x_188, 2); +x_209 = lean_ctor_get(x_188, 3); +x_210 = 1; +lean_ctor_set(x_188, 3, x_206); +lean_ctor_set(x_188, 2, x_202); +lean_ctor_set(x_188, 1, x_201); +lean_ctor_set(x_188, 0, x_187); +lean_ctor_set_uint8(x_188, sizeof(void*)*4, x_210); +lean_ctor_set(x_186, 3, x_38); +lean_ctor_set(x_186, 2, x_37); +lean_ctor_set(x_186, 1, x_36); +lean_ctor_set(x_186, 0, x_209); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_210); +lean_ctor_set(x_1, 3, x_186); +lean_ctor_set(x_1, 2, x_208); +lean_ctor_set(x_1, 1, x_207); +lean_ctor_set(x_1, 0, x_188); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +else +{ +lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; uint8_t x_215; lean_object* x_216; +x_211 = lean_ctor_get(x_188, 0); +x_212 = lean_ctor_get(x_188, 1); +x_213 = lean_ctor_get(x_188, 2); +x_214 = lean_ctor_get(x_188, 3); +lean_inc(x_214); +lean_inc(x_213); +lean_inc(x_212); +lean_inc(x_211); +lean_dec(x_188); +x_215 = 1; +x_216 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_216, 0, x_187); +lean_ctor_set(x_216, 1, x_201); +lean_ctor_set(x_216, 2, x_202); +lean_ctor_set(x_216, 3, x_211); +lean_ctor_set_uint8(x_216, sizeof(void*)*4, x_215); +lean_ctor_set(x_186, 3, x_38); +lean_ctor_set(x_186, 2, x_37); +lean_ctor_set(x_186, 1, x_36); +lean_ctor_set(x_186, 0, x_214); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_215); +lean_ctor_set(x_1, 3, x_186); +lean_ctor_set(x_1, 2, x_213); +lean_ctor_set(x_1, 1, x_212); +lean_ctor_set(x_1, 0, x_216); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +} +else +{ +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; uint8_t x_224; lean_object* x_225; lean_object* x_226; +x_217 = lean_ctor_get(x_186, 1); +x_218 = lean_ctor_get(x_186, 2); +lean_inc(x_218); +lean_inc(x_217); +lean_dec(x_186); +x_219 = lean_ctor_get(x_188, 0); +lean_inc(x_219); +x_220 = lean_ctor_get(x_188, 1); +lean_inc(x_220); +x_221 = lean_ctor_get(x_188, 2); +lean_inc(x_221); +x_222 = lean_ctor_get(x_188, 3); +lean_inc(x_222); +if (lean_is_exclusive(x_188)) { + lean_ctor_release(x_188, 0); + lean_ctor_release(x_188, 1); + lean_ctor_release(x_188, 2); + lean_ctor_release(x_188, 3); + x_223 = x_188; +} else { + lean_dec_ref(x_188); + x_223 = lean_box(0); +} +x_224 = 1; +if (lean_is_scalar(x_223)) { + x_225 = lean_alloc_ctor(1, 4, 1); +} else { + x_225 = x_223; +} +lean_ctor_set(x_225, 0, x_187); +lean_ctor_set(x_225, 1, x_217); +lean_ctor_set(x_225, 2, x_218); +lean_ctor_set(x_225, 3, x_219); +lean_ctor_set_uint8(x_225, sizeof(void*)*4, x_224); +x_226 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_226, 0, x_222); +lean_ctor_set(x_226, 1, x_36); +lean_ctor_set(x_226, 2, x_37); +lean_ctor_set(x_226, 3, x_38); +lean_ctor_set_uint8(x_226, sizeof(void*)*4, x_224); +lean_ctor_set(x_1, 3, x_226); +lean_ctor_set(x_1, 2, x_221); +lean_ctor_set(x_1, 1, x_220); +lean_ctor_set(x_1, 0, x_225); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +} +else +{ +uint8_t x_227; +x_227 = !lean_is_exclusive(x_186); +if (x_227 == 0) +{ +lean_object* x_228; lean_object* x_229; uint8_t x_230; +x_228 = lean_ctor_get(x_186, 3); +lean_dec(x_228); +x_229 = lean_ctor_get(x_186, 0); +lean_dec(x_229); +x_230 = 0; +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_230); +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +else +{ +lean_object* x_231; lean_object* x_232; uint8_t x_233; lean_object* x_234; +x_231 = lean_ctor_get(x_186, 1); +x_232 = lean_ctor_get(x_186, 2); +lean_inc(x_232); +lean_inc(x_231); +lean_dec(x_186); +x_233 = 0; +x_234 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_234, 0, x_187); +lean_ctor_set(x_234, 1, x_231); +lean_ctor_set(x_234, 2, x_232); +lean_ctor_set(x_234, 3, x_188); +lean_ctor_set_uint8(x_234, sizeof(void*)*4, x_233); +lean_ctor_set(x_1, 0, x_234); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +} +} +} +else +{ +uint8_t x_235; +x_235 = lean_ctor_get_uint8(x_187, sizeof(void*)*4); +if (x_235 == 0) +{ +uint8_t x_236; +x_236 = !lean_is_exclusive(x_186); +if (x_236 == 0) +{ +lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; uint8_t x_241; +x_237 = lean_ctor_get(x_186, 1); +x_238 = lean_ctor_get(x_186, 2); +x_239 = lean_ctor_get(x_186, 3); +x_240 = lean_ctor_get(x_186, 0); +lean_dec(x_240); +x_241 = !lean_is_exclusive(x_187); +if (x_241 == 0) +{ +uint8_t x_242; +x_242 = 1; +lean_ctor_set_uint8(x_187, sizeof(void*)*4, x_242); +lean_ctor_set(x_186, 3, x_38); +lean_ctor_set(x_186, 2, x_37); +lean_ctor_set(x_186, 1, x_36); +lean_ctor_set(x_186, 0, x_239); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_242); +lean_ctor_set(x_1, 3, x_186); +lean_ctor_set(x_1, 2, x_238); +lean_ctor_set(x_1, 1, x_237); +lean_ctor_set(x_1, 0, x_187); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +else +{ +lean_object* x_243; lean_object* x_244; lean_object* x_245; lean_object* x_246; uint8_t x_247; lean_object* x_248; +x_243 = lean_ctor_get(x_187, 0); +x_244 = lean_ctor_get(x_187, 1); +x_245 = lean_ctor_get(x_187, 2); +x_246 = lean_ctor_get(x_187, 3); +lean_inc(x_246); +lean_inc(x_245); +lean_inc(x_244); +lean_inc(x_243); +lean_dec(x_187); +x_247 = 1; +x_248 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_248, 0, x_243); +lean_ctor_set(x_248, 1, x_244); +lean_ctor_set(x_248, 2, x_245); +lean_ctor_set(x_248, 3, x_246); +lean_ctor_set_uint8(x_248, sizeof(void*)*4, x_247); +lean_ctor_set(x_186, 3, x_38); +lean_ctor_set(x_186, 2, x_37); +lean_ctor_set(x_186, 1, x_36); +lean_ctor_set(x_186, 0, x_239); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_247); +lean_ctor_set(x_1, 3, x_186); +lean_ctor_set(x_1, 2, x_238); +lean_ctor_set(x_1, 1, x_237); +lean_ctor_set(x_1, 0, x_248); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +} +else +{ +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; uint8_t x_257; lean_object* x_258; lean_object* x_259; +x_249 = lean_ctor_get(x_186, 1); +x_250 = lean_ctor_get(x_186, 2); +x_251 = lean_ctor_get(x_186, 3); +lean_inc(x_251); +lean_inc(x_250); +lean_inc(x_249); +lean_dec(x_186); +x_252 = lean_ctor_get(x_187, 0); +lean_inc(x_252); +x_253 = lean_ctor_get(x_187, 1); +lean_inc(x_253); +x_254 = lean_ctor_get(x_187, 2); +lean_inc(x_254); +x_255 = lean_ctor_get(x_187, 3); +lean_inc(x_255); +if (lean_is_exclusive(x_187)) { + lean_ctor_release(x_187, 0); + lean_ctor_release(x_187, 1); + lean_ctor_release(x_187, 2); + lean_ctor_release(x_187, 3); + x_256 = x_187; +} else { + lean_dec_ref(x_187); + x_256 = lean_box(0); +} +x_257 = 1; +if (lean_is_scalar(x_256)) { + x_258 = lean_alloc_ctor(1, 4, 1); +} else { + x_258 = x_256; +} +lean_ctor_set(x_258, 0, x_252); +lean_ctor_set(x_258, 1, x_253); +lean_ctor_set(x_258, 2, x_254); +lean_ctor_set(x_258, 3, x_255); +lean_ctor_set_uint8(x_258, sizeof(void*)*4, x_257); +x_259 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_259, 0, x_251); +lean_ctor_set(x_259, 1, x_36); +lean_ctor_set(x_259, 2, x_37); +lean_ctor_set(x_259, 3, x_38); +lean_ctor_set_uint8(x_259, sizeof(void*)*4, x_257); +lean_ctor_set(x_1, 3, x_259); +lean_ctor_set(x_1, 2, x_250); +lean_ctor_set(x_1, 1, x_249); +lean_ctor_set(x_1, 0, x_258); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +} +else +{ +lean_object* x_260; +x_260 = lean_ctor_get(x_186, 3); +lean_inc(x_260); +if (lean_obj_tag(x_260) == 0) +{ +uint8_t x_261; +x_261 = !lean_is_exclusive(x_186); +if (x_261 == 0) +{ +lean_object* x_262; lean_object* x_263; uint8_t x_264; +x_262 = lean_ctor_get(x_186, 3); +lean_dec(x_262); +x_263 = lean_ctor_get(x_186, 0); +lean_dec(x_263); +x_264 = 0; +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_264); +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +else +{ +lean_object* x_265; lean_object* x_266; uint8_t x_267; lean_object* x_268; +x_265 = lean_ctor_get(x_186, 1); +x_266 = lean_ctor_get(x_186, 2); +lean_inc(x_266); +lean_inc(x_265); +lean_dec(x_186); +x_267 = 0; +x_268 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_268, 0, x_187); +lean_ctor_set(x_268, 1, x_265); +lean_ctor_set(x_268, 2, x_266); +lean_ctor_set(x_268, 3, x_260); +lean_ctor_set_uint8(x_268, sizeof(void*)*4, x_267); +lean_ctor_set(x_1, 0, x_268); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +} +else +{ +uint8_t x_269; +x_269 = lean_ctor_get_uint8(x_260, sizeof(void*)*4); +if (x_269 == 0) +{ +uint8_t x_270; +lean_free_object(x_1); +x_270 = !lean_is_exclusive(x_186); +if (x_270 == 0) +{ +lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; uint8_t x_275; +x_271 = lean_ctor_get(x_186, 1); +x_272 = lean_ctor_get(x_186, 2); +x_273 = lean_ctor_get(x_186, 3); +lean_dec(x_273); +x_274 = lean_ctor_get(x_186, 0); +lean_dec(x_274); +x_275 = !lean_is_exclusive(x_260); +if (x_275 == 0) +{ +lean_object* x_276; lean_object* x_277; lean_object* x_278; lean_object* x_279; uint8_t x_280; +x_276 = lean_ctor_get(x_260, 0); +x_277 = lean_ctor_get(x_260, 1); +x_278 = lean_ctor_get(x_260, 2); +x_279 = lean_ctor_get(x_260, 3); +lean_inc(x_187); +lean_ctor_set(x_260, 3, x_276); +lean_ctor_set(x_260, 2, x_272); +lean_ctor_set(x_260, 1, x_271); +lean_ctor_set(x_260, 0, x_187); +x_280 = !lean_is_exclusive(x_187); +if (x_280 == 0) +{ +lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; +x_281 = lean_ctor_get(x_187, 3); +lean_dec(x_281); +x_282 = lean_ctor_get(x_187, 2); +lean_dec(x_282); +x_283 = lean_ctor_get(x_187, 1); +lean_dec(x_283); +x_284 = lean_ctor_get(x_187, 0); +lean_dec(x_284); +lean_ctor_set_uint8(x_260, sizeof(void*)*4, x_235); +lean_ctor_set(x_187, 3, x_38); +lean_ctor_set(x_187, 2, x_37); +lean_ctor_set(x_187, 1, x_36); +lean_ctor_set(x_187, 0, x_279); +lean_ctor_set(x_186, 3, x_187); +lean_ctor_set(x_186, 2, x_278); +lean_ctor_set(x_186, 1, x_277); +lean_ctor_set(x_186, 0, x_260); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_269); +return x_186; +} +else +{ +lean_object* x_285; +lean_dec(x_187); +lean_ctor_set_uint8(x_260, sizeof(void*)*4, x_235); +x_285 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_285, 0, x_279); +lean_ctor_set(x_285, 1, x_36); +lean_ctor_set(x_285, 2, x_37); +lean_ctor_set(x_285, 3, x_38); +lean_ctor_set_uint8(x_285, sizeof(void*)*4, x_235); +lean_ctor_set(x_186, 3, x_285); +lean_ctor_set(x_186, 2, x_278); +lean_ctor_set(x_186, 1, x_277); +lean_ctor_set(x_186, 0, x_260); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_269); +return x_186; +} +} +else +{ +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; +x_286 = lean_ctor_get(x_260, 0); +x_287 = lean_ctor_get(x_260, 1); +x_288 = lean_ctor_get(x_260, 2); +x_289 = lean_ctor_get(x_260, 3); +lean_inc(x_289); +lean_inc(x_288); +lean_inc(x_287); +lean_inc(x_286); +lean_dec(x_260); +lean_inc(x_187); +x_290 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_290, 0, x_187); +lean_ctor_set(x_290, 1, x_271); +lean_ctor_set(x_290, 2, x_272); +lean_ctor_set(x_290, 3, x_286); +if (lean_is_exclusive(x_187)) { + lean_ctor_release(x_187, 0); + lean_ctor_release(x_187, 1); + lean_ctor_release(x_187, 2); + lean_ctor_release(x_187, 3); + x_291 = x_187; +} else { + lean_dec_ref(x_187); + x_291 = lean_box(0); +} +lean_ctor_set_uint8(x_290, sizeof(void*)*4, x_235); +if (lean_is_scalar(x_291)) { + x_292 = lean_alloc_ctor(1, 4, 1); +} else { + x_292 = x_291; +} +lean_ctor_set(x_292, 0, x_289); +lean_ctor_set(x_292, 1, x_36); +lean_ctor_set(x_292, 2, x_37); +lean_ctor_set(x_292, 3, x_38); +lean_ctor_set_uint8(x_292, sizeof(void*)*4, x_235); +lean_ctor_set(x_186, 3, x_292); +lean_ctor_set(x_186, 2, x_288); +lean_ctor_set(x_186, 1, x_287); +lean_ctor_set(x_186, 0, x_290); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_269); +return x_186; +} +} +else +{ +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; +x_293 = lean_ctor_get(x_186, 1); +x_294 = lean_ctor_get(x_186, 2); +lean_inc(x_294); +lean_inc(x_293); +lean_dec(x_186); +x_295 = lean_ctor_get(x_260, 0); +lean_inc(x_295); +x_296 = lean_ctor_get(x_260, 1); +lean_inc(x_296); +x_297 = lean_ctor_get(x_260, 2); +lean_inc(x_297); +x_298 = lean_ctor_get(x_260, 3); +lean_inc(x_298); +if (lean_is_exclusive(x_260)) { + lean_ctor_release(x_260, 0); + lean_ctor_release(x_260, 1); + lean_ctor_release(x_260, 2); + lean_ctor_release(x_260, 3); + x_299 = x_260; +} else { + lean_dec_ref(x_260); + x_299 = lean_box(0); +} +lean_inc(x_187); +if (lean_is_scalar(x_299)) { + x_300 = lean_alloc_ctor(1, 4, 1); +} else { + x_300 = x_299; +} +lean_ctor_set(x_300, 0, x_187); +lean_ctor_set(x_300, 1, x_293); +lean_ctor_set(x_300, 2, x_294); +lean_ctor_set(x_300, 3, x_295); +if (lean_is_exclusive(x_187)) { + lean_ctor_release(x_187, 0); + lean_ctor_release(x_187, 1); + lean_ctor_release(x_187, 2); + lean_ctor_release(x_187, 3); + x_301 = x_187; +} else { + lean_dec_ref(x_187); + x_301 = lean_box(0); +} +lean_ctor_set_uint8(x_300, sizeof(void*)*4, x_235); +if (lean_is_scalar(x_301)) { + x_302 = lean_alloc_ctor(1, 4, 1); +} else { + x_302 = x_301; +} +lean_ctor_set(x_302, 0, x_298); +lean_ctor_set(x_302, 1, x_36); +lean_ctor_set(x_302, 2, x_37); +lean_ctor_set(x_302, 3, x_38); +lean_ctor_set_uint8(x_302, sizeof(void*)*4, x_235); +x_303 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_303, 0, x_300); +lean_ctor_set(x_303, 1, x_296); +lean_ctor_set(x_303, 2, x_297); +lean_ctor_set(x_303, 3, x_302); +lean_ctor_set_uint8(x_303, sizeof(void*)*4, x_269); +return x_303; +} +} +else +{ +uint8_t x_304; +x_304 = !lean_is_exclusive(x_186); +if (x_304 == 0) +{ +lean_object* x_305; lean_object* x_306; uint8_t x_307; +x_305 = lean_ctor_get(x_186, 3); +lean_dec(x_305); +x_306 = lean_ctor_get(x_186, 0); +lean_dec(x_306); +x_307 = !lean_is_exclusive(x_187); +if (x_307 == 0) +{ +uint8_t x_308; +lean_ctor_set_uint8(x_187, sizeof(void*)*4, x_269); +x_308 = 0; +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_308); +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_269); +return x_1; +} +else +{ +lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_object* x_312; lean_object* x_313; uint8_t x_314; +x_309 = lean_ctor_get(x_187, 0); +x_310 = lean_ctor_get(x_187, 1); +x_311 = lean_ctor_get(x_187, 2); +x_312 = lean_ctor_get(x_187, 3); +lean_inc(x_312); +lean_inc(x_311); +lean_inc(x_310); +lean_inc(x_309); +lean_dec(x_187); +x_313 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_313, 0, x_309); +lean_ctor_set(x_313, 1, x_310); +lean_ctor_set(x_313, 2, x_311); +lean_ctor_set(x_313, 3, x_312); +lean_ctor_set_uint8(x_313, sizeof(void*)*4, x_269); +x_314 = 0; +lean_ctor_set(x_186, 0, x_313); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_314); +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_269); +return x_1; +} +} +else +{ +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; uint8_t x_323; lean_object* x_324; +x_315 = lean_ctor_get(x_186, 1); +x_316 = lean_ctor_get(x_186, 2); +lean_inc(x_316); +lean_inc(x_315); +lean_dec(x_186); +x_317 = lean_ctor_get(x_187, 0); +lean_inc(x_317); +x_318 = lean_ctor_get(x_187, 1); +lean_inc(x_318); +x_319 = lean_ctor_get(x_187, 2); +lean_inc(x_319); +x_320 = lean_ctor_get(x_187, 3); +lean_inc(x_320); +if (lean_is_exclusive(x_187)) { + lean_ctor_release(x_187, 0); + lean_ctor_release(x_187, 1); + lean_ctor_release(x_187, 2); + lean_ctor_release(x_187, 3); + x_321 = x_187; +} else { + lean_dec_ref(x_187); + x_321 = lean_box(0); +} +if (lean_is_scalar(x_321)) { + x_322 = lean_alloc_ctor(1, 4, 1); +} else { + x_322 = x_321; +} +lean_ctor_set(x_322, 0, x_317); +lean_ctor_set(x_322, 1, x_318); +lean_ctor_set(x_322, 2, x_319); +lean_ctor_set(x_322, 3, x_320); +lean_ctor_set_uint8(x_322, sizeof(void*)*4, x_269); +x_323 = 0; +x_324 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_324, 0, x_322); +lean_ctor_set(x_324, 1, x_315); +lean_ctor_set(x_324, 2, x_316); +lean_ctor_set(x_324, 3, x_260); +lean_ctor_set_uint8(x_324, sizeof(void*)*4, x_323); +lean_ctor_set(x_1, 0, x_324); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_269); +return x_1; +} +} +} +} +} +} +} +} +else +{ +lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_328; uint32_t x_329; uint8_t x_330; +x_325 = lean_ctor_get(x_1, 0); +x_326 = lean_ctor_get(x_1, 1); +x_327 = lean_ctor_get(x_1, 2); +x_328 = lean_ctor_get(x_1, 3); +lean_inc(x_328); +lean_inc(x_327); +lean_inc(x_326); +lean_inc(x_325); +lean_dec(x_1); +x_329 = lean_unbox_uint32(x_326); +x_330 = x_2 < x_329; +if (x_330 == 0) +{ +uint32_t x_331; uint8_t x_332; +x_331 = lean_unbox_uint32(x_326); +x_332 = x_331 < x_2; +if (x_332 == 0) +{ +lean_object* x_333; lean_object* x_334; +lean_dec(x_327); +lean_dec(x_326); +x_333 = lean_box_uint32(x_2); +x_334 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_334, 0, x_325); +lean_ctor_set(x_334, 1, x_333); +lean_ctor_set(x_334, 2, x_3); +lean_ctor_set(x_334, 3, x_328); +lean_ctor_set_uint8(x_334, sizeof(void*)*4, x_7); +return x_334; +} +else +{ +uint8_t x_335; +x_335 = l_RBNode_isRed___rarg(x_328); +if (x_335 == 0) +{ +lean_object* x_336; lean_object* x_337; +x_336 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg(x_328, x_2, x_3); +x_337 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_337, 0, x_325); +lean_ctor_set(x_337, 1, x_326); +lean_ctor_set(x_337, 2, x_327); +lean_ctor_set(x_337, 3, x_336); +lean_ctor_set_uint8(x_337, sizeof(void*)*4, x_7); +return x_337; +} +else +{ +lean_object* x_338; lean_object* x_339; +x_338 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg(x_328, x_2, x_3); +x_339 = lean_ctor_get(x_338, 0); +lean_inc(x_339); +if (lean_obj_tag(x_339) == 0) +{ +lean_object* x_340; +x_340 = lean_ctor_get(x_338, 3); +lean_inc(x_340); +if (lean_obj_tag(x_340) == 0) +{ +lean_object* x_341; lean_object* x_342; lean_object* x_343; uint8_t x_344; lean_object* x_345; uint8_t x_346; lean_object* x_347; +x_341 = lean_ctor_get(x_338, 1); +lean_inc(x_341); +x_342 = lean_ctor_get(x_338, 2); +lean_inc(x_342); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_343 = x_338; +} else { + lean_dec_ref(x_338); + x_343 = lean_box(0); +} +x_344 = 0; +if (lean_is_scalar(x_343)) { + x_345 = lean_alloc_ctor(1, 4, 1); +} else { + x_345 = x_343; +} +lean_ctor_set(x_345, 0, x_340); +lean_ctor_set(x_345, 1, x_341); +lean_ctor_set(x_345, 2, x_342); +lean_ctor_set(x_345, 3, x_340); +lean_ctor_set_uint8(x_345, sizeof(void*)*4, x_344); +x_346 = 1; +x_347 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_347, 0, x_325); +lean_ctor_set(x_347, 1, x_326); +lean_ctor_set(x_347, 2, x_327); +lean_ctor_set(x_347, 3, x_345); +lean_ctor_set_uint8(x_347, sizeof(void*)*4, x_346); +return x_347; +} +else +{ +uint8_t x_348; +x_348 = lean_ctor_get_uint8(x_340, sizeof(void*)*4); +if (x_348 == 0) +{ +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; uint8_t x_357; lean_object* x_358; lean_object* x_359; lean_object* x_360; +x_349 = lean_ctor_get(x_338, 1); +lean_inc(x_349); +x_350 = lean_ctor_get(x_338, 2); +lean_inc(x_350); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_351 = x_338; +} else { + lean_dec_ref(x_338); + x_351 = lean_box(0); +} +x_352 = lean_ctor_get(x_340, 0); +lean_inc(x_352); +x_353 = lean_ctor_get(x_340, 1); +lean_inc(x_353); +x_354 = lean_ctor_get(x_340, 2); +lean_inc(x_354); +x_355 = lean_ctor_get(x_340, 3); +lean_inc(x_355); +if (lean_is_exclusive(x_340)) { + lean_ctor_release(x_340, 0); + lean_ctor_release(x_340, 1); + lean_ctor_release(x_340, 2); + lean_ctor_release(x_340, 3); + x_356 = x_340; +} else { + lean_dec_ref(x_340); + x_356 = lean_box(0); +} +x_357 = 1; +if (lean_is_scalar(x_356)) { + x_358 = lean_alloc_ctor(1, 4, 1); +} else { + x_358 = x_356; +} +lean_ctor_set(x_358, 0, x_325); +lean_ctor_set(x_358, 1, x_326); +lean_ctor_set(x_358, 2, x_327); +lean_ctor_set(x_358, 3, x_339); +lean_ctor_set_uint8(x_358, sizeof(void*)*4, x_357); +if (lean_is_scalar(x_351)) { + x_359 = lean_alloc_ctor(1, 4, 1); +} else { + x_359 = x_351; +} +lean_ctor_set(x_359, 0, x_352); +lean_ctor_set(x_359, 1, x_353); +lean_ctor_set(x_359, 2, x_354); +lean_ctor_set(x_359, 3, x_355); +lean_ctor_set_uint8(x_359, sizeof(void*)*4, x_357); +x_360 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_360, 0, x_358); +lean_ctor_set(x_360, 1, x_349); +lean_ctor_set(x_360, 2, x_350); +lean_ctor_set(x_360, 3, x_359); +lean_ctor_set_uint8(x_360, sizeof(void*)*4, x_348); +return x_360; +} +else +{ +lean_object* x_361; lean_object* x_362; lean_object* x_363; uint8_t x_364; lean_object* x_365; lean_object* x_366; +x_361 = lean_ctor_get(x_338, 1); +lean_inc(x_361); +x_362 = lean_ctor_get(x_338, 2); +lean_inc(x_362); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_363 = x_338; +} else { + lean_dec_ref(x_338); + x_363 = lean_box(0); +} +x_364 = 0; +if (lean_is_scalar(x_363)) { + x_365 = lean_alloc_ctor(1, 4, 1); +} else { + x_365 = x_363; +} +lean_ctor_set(x_365, 0, x_339); +lean_ctor_set(x_365, 1, x_361); +lean_ctor_set(x_365, 2, x_362); +lean_ctor_set(x_365, 3, x_340); +lean_ctor_set_uint8(x_365, sizeof(void*)*4, x_364); +x_366 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_366, 0, x_325); +lean_ctor_set(x_366, 1, x_326); +lean_ctor_set(x_366, 2, x_327); +lean_ctor_set(x_366, 3, x_365); +lean_ctor_set_uint8(x_366, sizeof(void*)*4, x_348); +return x_366; +} +} +} +else +{ +uint8_t x_367; +x_367 = lean_ctor_get_uint8(x_339, sizeof(void*)*4); +if (x_367 == 0) +{ +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; uint8_t x_377; lean_object* x_378; lean_object* x_379; lean_object* x_380; +x_368 = lean_ctor_get(x_338, 1); +lean_inc(x_368); +x_369 = lean_ctor_get(x_338, 2); +lean_inc(x_369); +x_370 = lean_ctor_get(x_338, 3); +lean_inc(x_370); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_371 = x_338; +} else { + lean_dec_ref(x_338); + x_371 = lean_box(0); +} +x_372 = lean_ctor_get(x_339, 0); +lean_inc(x_372); +x_373 = lean_ctor_get(x_339, 1); +lean_inc(x_373); +x_374 = lean_ctor_get(x_339, 2); +lean_inc(x_374); +x_375 = lean_ctor_get(x_339, 3); +lean_inc(x_375); +if (lean_is_exclusive(x_339)) { + lean_ctor_release(x_339, 0); + lean_ctor_release(x_339, 1); + lean_ctor_release(x_339, 2); + lean_ctor_release(x_339, 3); + x_376 = x_339; +} else { + lean_dec_ref(x_339); + x_376 = lean_box(0); +} +x_377 = 1; +if (lean_is_scalar(x_376)) { + x_378 = lean_alloc_ctor(1, 4, 1); +} else { + x_378 = x_376; +} +lean_ctor_set(x_378, 0, x_325); +lean_ctor_set(x_378, 1, x_326); +lean_ctor_set(x_378, 2, x_327); +lean_ctor_set(x_378, 3, x_372); +lean_ctor_set_uint8(x_378, sizeof(void*)*4, x_377); +if (lean_is_scalar(x_371)) { + x_379 = lean_alloc_ctor(1, 4, 1); +} else { + x_379 = x_371; +} +lean_ctor_set(x_379, 0, x_375); +lean_ctor_set(x_379, 1, x_368); +lean_ctor_set(x_379, 2, x_369); +lean_ctor_set(x_379, 3, x_370); +lean_ctor_set_uint8(x_379, sizeof(void*)*4, x_377); +x_380 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_380, 0, x_378); +lean_ctor_set(x_380, 1, x_373); +lean_ctor_set(x_380, 2, x_374); +lean_ctor_set(x_380, 3, x_379); +lean_ctor_set_uint8(x_380, sizeof(void*)*4, x_367); +return x_380; +} +else +{ +lean_object* x_381; +x_381 = lean_ctor_get(x_338, 3); +lean_inc(x_381); +if (lean_obj_tag(x_381) == 0) +{ +lean_object* x_382; lean_object* x_383; lean_object* x_384; uint8_t x_385; lean_object* x_386; lean_object* x_387; +x_382 = lean_ctor_get(x_338, 1); +lean_inc(x_382); +x_383 = lean_ctor_get(x_338, 2); +lean_inc(x_383); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_384 = x_338; +} else { + lean_dec_ref(x_338); + x_384 = lean_box(0); +} +x_385 = 0; +if (lean_is_scalar(x_384)) { + x_386 = lean_alloc_ctor(1, 4, 1); +} else { + x_386 = x_384; +} +lean_ctor_set(x_386, 0, x_339); +lean_ctor_set(x_386, 1, x_382); +lean_ctor_set(x_386, 2, x_383); +lean_ctor_set(x_386, 3, x_381); +lean_ctor_set_uint8(x_386, sizeof(void*)*4, x_385); +x_387 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_387, 0, x_325); +lean_ctor_set(x_387, 1, x_326); +lean_ctor_set(x_387, 2, x_327); +lean_ctor_set(x_387, 3, x_386); +lean_ctor_set_uint8(x_387, sizeof(void*)*4, x_367); +return x_387; +} +else +{ +uint8_t x_388; +x_388 = lean_ctor_get_uint8(x_381, sizeof(void*)*4); +if (x_388 == 0) +{ +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; +x_389 = lean_ctor_get(x_338, 1); +lean_inc(x_389); +x_390 = lean_ctor_get(x_338, 2); +lean_inc(x_390); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_391 = x_338; +} else { + lean_dec_ref(x_338); + x_391 = lean_box(0); +} +x_392 = lean_ctor_get(x_381, 0); +lean_inc(x_392); +x_393 = lean_ctor_get(x_381, 1); +lean_inc(x_393); +x_394 = lean_ctor_get(x_381, 2); +lean_inc(x_394); +x_395 = lean_ctor_get(x_381, 3); +lean_inc(x_395); +if (lean_is_exclusive(x_381)) { + lean_ctor_release(x_381, 0); + lean_ctor_release(x_381, 1); + lean_ctor_release(x_381, 2); + lean_ctor_release(x_381, 3); + x_396 = x_381; +} else { + lean_dec_ref(x_381); + x_396 = lean_box(0); +} +lean_inc(x_339); +if (lean_is_scalar(x_396)) { + x_397 = lean_alloc_ctor(1, 4, 1); +} else { + x_397 = x_396; +} +lean_ctor_set(x_397, 0, x_325); +lean_ctor_set(x_397, 1, x_326); +lean_ctor_set(x_397, 2, x_327); +lean_ctor_set(x_397, 3, x_339); +if (lean_is_exclusive(x_339)) { + lean_ctor_release(x_339, 0); + lean_ctor_release(x_339, 1); + lean_ctor_release(x_339, 2); + lean_ctor_release(x_339, 3); + x_398 = x_339; +} else { + lean_dec_ref(x_339); + x_398 = lean_box(0); +} +lean_ctor_set_uint8(x_397, sizeof(void*)*4, x_367); +if (lean_is_scalar(x_398)) { + x_399 = lean_alloc_ctor(1, 4, 1); +} else { + x_399 = x_398; +} +lean_ctor_set(x_399, 0, x_392); +lean_ctor_set(x_399, 1, x_393); +lean_ctor_set(x_399, 2, x_394); +lean_ctor_set(x_399, 3, x_395); +lean_ctor_set_uint8(x_399, sizeof(void*)*4, x_367); +if (lean_is_scalar(x_391)) { + x_400 = lean_alloc_ctor(1, 4, 1); +} else { + x_400 = x_391; +} +lean_ctor_set(x_400, 0, x_397); +lean_ctor_set(x_400, 1, x_389); +lean_ctor_set(x_400, 2, x_390); +lean_ctor_set(x_400, 3, x_399); +lean_ctor_set_uint8(x_400, sizeof(void*)*4, x_388); +return x_400; +} +else +{ +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; uint8_t x_410; lean_object* x_411; lean_object* x_412; +x_401 = lean_ctor_get(x_338, 1); +lean_inc(x_401); +x_402 = lean_ctor_get(x_338, 2); +lean_inc(x_402); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_403 = x_338; +} else { + lean_dec_ref(x_338); + x_403 = lean_box(0); +} +x_404 = lean_ctor_get(x_339, 0); +lean_inc(x_404); +x_405 = lean_ctor_get(x_339, 1); +lean_inc(x_405); +x_406 = lean_ctor_get(x_339, 2); +lean_inc(x_406); +x_407 = lean_ctor_get(x_339, 3); +lean_inc(x_407); +if (lean_is_exclusive(x_339)) { + lean_ctor_release(x_339, 0); + lean_ctor_release(x_339, 1); + lean_ctor_release(x_339, 2); + lean_ctor_release(x_339, 3); + x_408 = x_339; +} else { + lean_dec_ref(x_339); + x_408 = lean_box(0); +} +if (lean_is_scalar(x_408)) { + x_409 = lean_alloc_ctor(1, 4, 1); +} else { + x_409 = x_408; +} +lean_ctor_set(x_409, 0, x_404); +lean_ctor_set(x_409, 1, x_405); +lean_ctor_set(x_409, 2, x_406); +lean_ctor_set(x_409, 3, x_407); +lean_ctor_set_uint8(x_409, sizeof(void*)*4, x_388); +x_410 = 0; +if (lean_is_scalar(x_403)) { + x_411 = lean_alloc_ctor(1, 4, 1); +} else { + x_411 = x_403; +} +lean_ctor_set(x_411, 0, x_409); +lean_ctor_set(x_411, 1, x_401); +lean_ctor_set(x_411, 2, x_402); +lean_ctor_set(x_411, 3, x_381); +lean_ctor_set_uint8(x_411, sizeof(void*)*4, x_410); +x_412 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_412, 0, x_325); +lean_ctor_set(x_412, 1, x_326); +lean_ctor_set(x_412, 2, x_327); +lean_ctor_set(x_412, 3, x_411); +lean_ctor_set_uint8(x_412, sizeof(void*)*4, x_388); +return x_412; +} +} +} +} +} +} +} +else +{ +uint8_t x_413; +x_413 = l_RBNode_isRed___rarg(x_325); +if (x_413 == 0) +{ +lean_object* x_414; lean_object* x_415; +x_414 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg(x_325, x_2, x_3); +x_415 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_415, 0, x_414); +lean_ctor_set(x_415, 1, x_326); +lean_ctor_set(x_415, 2, x_327); +lean_ctor_set(x_415, 3, x_328); +lean_ctor_set_uint8(x_415, sizeof(void*)*4, x_7); +return x_415; +} +else +{ +lean_object* x_416; lean_object* x_417; +x_416 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg(x_325, x_2, x_3); +x_417 = lean_ctor_get(x_416, 0); +lean_inc(x_417); +if (lean_obj_tag(x_417) == 0) +{ +lean_object* x_418; +x_418 = lean_ctor_get(x_416, 3); +lean_inc(x_418); +if (lean_obj_tag(x_418) == 0) +{ +lean_object* x_419; lean_object* x_420; lean_object* x_421; uint8_t x_422; lean_object* x_423; uint8_t x_424; lean_object* x_425; +x_419 = lean_ctor_get(x_416, 1); +lean_inc(x_419); +x_420 = lean_ctor_get(x_416, 2); +lean_inc(x_420); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_421 = x_416; +} else { + lean_dec_ref(x_416); + x_421 = lean_box(0); +} +x_422 = 0; +if (lean_is_scalar(x_421)) { + x_423 = lean_alloc_ctor(1, 4, 1); +} else { + x_423 = x_421; +} +lean_ctor_set(x_423, 0, x_418); +lean_ctor_set(x_423, 1, x_419); +lean_ctor_set(x_423, 2, x_420); +lean_ctor_set(x_423, 3, x_418); +lean_ctor_set_uint8(x_423, sizeof(void*)*4, x_422); +x_424 = 1; +x_425 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_425, 0, x_423); +lean_ctor_set(x_425, 1, x_326); +lean_ctor_set(x_425, 2, x_327); +lean_ctor_set(x_425, 3, x_328); +lean_ctor_set_uint8(x_425, sizeof(void*)*4, x_424); +return x_425; +} +else +{ +uint8_t x_426; +x_426 = lean_ctor_get_uint8(x_418, sizeof(void*)*4); +if (x_426 == 0) +{ +lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; lean_object* x_431; lean_object* x_432; lean_object* x_433; lean_object* x_434; uint8_t x_435; lean_object* x_436; lean_object* x_437; lean_object* x_438; +x_427 = lean_ctor_get(x_416, 1); +lean_inc(x_427); +x_428 = lean_ctor_get(x_416, 2); +lean_inc(x_428); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_429 = x_416; +} else { + lean_dec_ref(x_416); + x_429 = lean_box(0); +} +x_430 = lean_ctor_get(x_418, 0); +lean_inc(x_430); +x_431 = lean_ctor_get(x_418, 1); +lean_inc(x_431); +x_432 = lean_ctor_get(x_418, 2); +lean_inc(x_432); +x_433 = lean_ctor_get(x_418, 3); +lean_inc(x_433); +if (lean_is_exclusive(x_418)) { + lean_ctor_release(x_418, 0); + lean_ctor_release(x_418, 1); + lean_ctor_release(x_418, 2); + lean_ctor_release(x_418, 3); + x_434 = x_418; +} else { + lean_dec_ref(x_418); + x_434 = lean_box(0); +} +x_435 = 1; +if (lean_is_scalar(x_434)) { + x_436 = lean_alloc_ctor(1, 4, 1); +} else { + x_436 = x_434; +} +lean_ctor_set(x_436, 0, x_417); +lean_ctor_set(x_436, 1, x_427); +lean_ctor_set(x_436, 2, x_428); +lean_ctor_set(x_436, 3, x_430); +lean_ctor_set_uint8(x_436, sizeof(void*)*4, x_435); +if (lean_is_scalar(x_429)) { + x_437 = lean_alloc_ctor(1, 4, 1); +} else { + x_437 = x_429; +} +lean_ctor_set(x_437, 0, x_433); +lean_ctor_set(x_437, 1, x_326); +lean_ctor_set(x_437, 2, x_327); +lean_ctor_set(x_437, 3, x_328); +lean_ctor_set_uint8(x_437, sizeof(void*)*4, x_435); +x_438 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_438, 0, x_436); +lean_ctor_set(x_438, 1, x_431); +lean_ctor_set(x_438, 2, x_432); +lean_ctor_set(x_438, 3, x_437); +lean_ctor_set_uint8(x_438, sizeof(void*)*4, x_426); +return x_438; +} +else +{ +lean_object* x_439; lean_object* x_440; lean_object* x_441; uint8_t x_442; lean_object* x_443; lean_object* x_444; +x_439 = lean_ctor_get(x_416, 1); +lean_inc(x_439); +x_440 = lean_ctor_get(x_416, 2); +lean_inc(x_440); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_441 = x_416; +} else { + lean_dec_ref(x_416); + x_441 = lean_box(0); +} +x_442 = 0; +if (lean_is_scalar(x_441)) { + x_443 = lean_alloc_ctor(1, 4, 1); +} else { + x_443 = x_441; +} +lean_ctor_set(x_443, 0, x_417); +lean_ctor_set(x_443, 1, x_439); +lean_ctor_set(x_443, 2, x_440); +lean_ctor_set(x_443, 3, x_418); +lean_ctor_set_uint8(x_443, sizeof(void*)*4, x_442); +x_444 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_444, 0, x_443); +lean_ctor_set(x_444, 1, x_326); +lean_ctor_set(x_444, 2, x_327); +lean_ctor_set(x_444, 3, x_328); +lean_ctor_set_uint8(x_444, sizeof(void*)*4, x_426); +return x_444; +} +} +} +else +{ +uint8_t x_445; +x_445 = lean_ctor_get_uint8(x_417, sizeof(void*)*4); +if (x_445 == 0) +{ +lean_object* x_446; lean_object* x_447; lean_object* x_448; lean_object* x_449; lean_object* x_450; lean_object* x_451; lean_object* x_452; lean_object* x_453; lean_object* x_454; uint8_t x_455; lean_object* x_456; lean_object* x_457; lean_object* x_458; +x_446 = lean_ctor_get(x_416, 1); +lean_inc(x_446); +x_447 = lean_ctor_get(x_416, 2); +lean_inc(x_447); +x_448 = lean_ctor_get(x_416, 3); +lean_inc(x_448); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_449 = x_416; +} else { + lean_dec_ref(x_416); + x_449 = lean_box(0); +} +x_450 = lean_ctor_get(x_417, 0); +lean_inc(x_450); +x_451 = lean_ctor_get(x_417, 1); +lean_inc(x_451); +x_452 = lean_ctor_get(x_417, 2); +lean_inc(x_452); +x_453 = lean_ctor_get(x_417, 3); +lean_inc(x_453); +if (lean_is_exclusive(x_417)) { + lean_ctor_release(x_417, 0); + lean_ctor_release(x_417, 1); + lean_ctor_release(x_417, 2); + lean_ctor_release(x_417, 3); + x_454 = x_417; +} else { + lean_dec_ref(x_417); + x_454 = lean_box(0); +} +x_455 = 1; +if (lean_is_scalar(x_454)) { + x_456 = lean_alloc_ctor(1, 4, 1); +} else { + x_456 = x_454; +} +lean_ctor_set(x_456, 0, x_450); +lean_ctor_set(x_456, 1, x_451); +lean_ctor_set(x_456, 2, x_452); +lean_ctor_set(x_456, 3, x_453); +lean_ctor_set_uint8(x_456, sizeof(void*)*4, x_455); +if (lean_is_scalar(x_449)) { + x_457 = lean_alloc_ctor(1, 4, 1); +} else { + x_457 = x_449; +} +lean_ctor_set(x_457, 0, x_448); +lean_ctor_set(x_457, 1, x_326); +lean_ctor_set(x_457, 2, x_327); +lean_ctor_set(x_457, 3, x_328); +lean_ctor_set_uint8(x_457, sizeof(void*)*4, x_455); +x_458 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_458, 0, x_456); +lean_ctor_set(x_458, 1, x_446); +lean_ctor_set(x_458, 2, x_447); +lean_ctor_set(x_458, 3, x_457); +lean_ctor_set_uint8(x_458, sizeof(void*)*4, x_445); +return x_458; +} +else +{ +lean_object* x_459; +x_459 = lean_ctor_get(x_416, 3); +lean_inc(x_459); +if (lean_obj_tag(x_459) == 0) +{ +lean_object* x_460; lean_object* x_461; lean_object* x_462; uint8_t x_463; lean_object* x_464; lean_object* x_465; +x_460 = lean_ctor_get(x_416, 1); +lean_inc(x_460); +x_461 = lean_ctor_get(x_416, 2); +lean_inc(x_461); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_462 = x_416; +} else { + lean_dec_ref(x_416); + x_462 = lean_box(0); +} +x_463 = 0; +if (lean_is_scalar(x_462)) { + x_464 = lean_alloc_ctor(1, 4, 1); +} else { + x_464 = x_462; +} +lean_ctor_set(x_464, 0, x_417); +lean_ctor_set(x_464, 1, x_460); +lean_ctor_set(x_464, 2, x_461); +lean_ctor_set(x_464, 3, x_459); +lean_ctor_set_uint8(x_464, sizeof(void*)*4, x_463); +x_465 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_465, 0, x_464); +lean_ctor_set(x_465, 1, x_326); +lean_ctor_set(x_465, 2, x_327); +lean_ctor_set(x_465, 3, x_328); +lean_ctor_set_uint8(x_465, sizeof(void*)*4, x_445); +return x_465; +} +else +{ +uint8_t x_466; +x_466 = lean_ctor_get_uint8(x_459, sizeof(void*)*4); +if (x_466 == 0) +{ +lean_object* x_467; lean_object* x_468; lean_object* x_469; lean_object* x_470; lean_object* x_471; lean_object* x_472; lean_object* x_473; lean_object* x_474; lean_object* x_475; lean_object* x_476; lean_object* x_477; lean_object* x_478; +x_467 = lean_ctor_get(x_416, 1); +lean_inc(x_467); +x_468 = lean_ctor_get(x_416, 2); +lean_inc(x_468); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_469 = x_416; +} else { + lean_dec_ref(x_416); + x_469 = lean_box(0); +} +x_470 = lean_ctor_get(x_459, 0); +lean_inc(x_470); +x_471 = lean_ctor_get(x_459, 1); +lean_inc(x_471); +x_472 = lean_ctor_get(x_459, 2); +lean_inc(x_472); +x_473 = lean_ctor_get(x_459, 3); +lean_inc(x_473); +if (lean_is_exclusive(x_459)) { + lean_ctor_release(x_459, 0); + lean_ctor_release(x_459, 1); + lean_ctor_release(x_459, 2); + lean_ctor_release(x_459, 3); + x_474 = x_459; +} else { + lean_dec_ref(x_459); + x_474 = lean_box(0); +} +lean_inc(x_417); +if (lean_is_scalar(x_474)) { + x_475 = lean_alloc_ctor(1, 4, 1); +} else { + x_475 = x_474; +} +lean_ctor_set(x_475, 0, x_417); +lean_ctor_set(x_475, 1, x_467); +lean_ctor_set(x_475, 2, x_468); +lean_ctor_set(x_475, 3, x_470); +if (lean_is_exclusive(x_417)) { + lean_ctor_release(x_417, 0); + lean_ctor_release(x_417, 1); + lean_ctor_release(x_417, 2); + lean_ctor_release(x_417, 3); + x_476 = x_417; +} else { + lean_dec_ref(x_417); + x_476 = lean_box(0); +} +lean_ctor_set_uint8(x_475, sizeof(void*)*4, x_445); +if (lean_is_scalar(x_476)) { + x_477 = lean_alloc_ctor(1, 4, 1); +} else { + x_477 = x_476; +} +lean_ctor_set(x_477, 0, x_473); +lean_ctor_set(x_477, 1, x_326); +lean_ctor_set(x_477, 2, x_327); +lean_ctor_set(x_477, 3, x_328); +lean_ctor_set_uint8(x_477, sizeof(void*)*4, x_445); +if (lean_is_scalar(x_469)) { + x_478 = lean_alloc_ctor(1, 4, 1); +} else { + x_478 = x_469; +} +lean_ctor_set(x_478, 0, x_475); +lean_ctor_set(x_478, 1, x_471); +lean_ctor_set(x_478, 2, x_472); +lean_ctor_set(x_478, 3, x_477); +lean_ctor_set_uint8(x_478, sizeof(void*)*4, x_466); +return x_478; +} +else +{ +lean_object* x_479; lean_object* x_480; lean_object* x_481; lean_object* x_482; lean_object* x_483; lean_object* x_484; lean_object* x_485; lean_object* x_486; lean_object* x_487; uint8_t x_488; lean_object* x_489; lean_object* x_490; +x_479 = lean_ctor_get(x_416, 1); +lean_inc(x_479); +x_480 = lean_ctor_get(x_416, 2); +lean_inc(x_480); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_481 = x_416; +} else { + lean_dec_ref(x_416); + x_481 = lean_box(0); +} +x_482 = lean_ctor_get(x_417, 0); +lean_inc(x_482); +x_483 = lean_ctor_get(x_417, 1); +lean_inc(x_483); +x_484 = lean_ctor_get(x_417, 2); +lean_inc(x_484); +x_485 = lean_ctor_get(x_417, 3); +lean_inc(x_485); +if (lean_is_exclusive(x_417)) { + lean_ctor_release(x_417, 0); + lean_ctor_release(x_417, 1); + lean_ctor_release(x_417, 2); + lean_ctor_release(x_417, 3); + x_486 = x_417; +} else { + lean_dec_ref(x_417); + x_486 = lean_box(0); +} +if (lean_is_scalar(x_486)) { + x_487 = lean_alloc_ctor(1, 4, 1); +} else { + x_487 = x_486; +} +lean_ctor_set(x_487, 0, x_482); +lean_ctor_set(x_487, 1, x_483); +lean_ctor_set(x_487, 2, x_484); +lean_ctor_set(x_487, 3, x_485); +lean_ctor_set_uint8(x_487, sizeof(void*)*4, x_466); +x_488 = 0; +if (lean_is_scalar(x_481)) { + x_489 = lean_alloc_ctor(1, 4, 1); +} else { + x_489 = x_481; +} +lean_ctor_set(x_489, 0, x_487); +lean_ctor_set(x_489, 1, x_479); +lean_ctor_set(x_489, 2, x_480); +lean_ctor_set(x_489, 3, x_459); +lean_ctor_set_uint8(x_489, sizeof(void*)*4, x_488); +x_490 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_490, 0, x_489); +lean_ctor_set(x_490, 1, x_326); +lean_ctor_set(x_490, 2, x_327); +lean_ctor_set(x_490, 3, x_328); +lean_ctor_set_uint8(x_490, sizeof(void*)*4, x_466); +return x_490; +} +} +} +} +} +} +} +} +} +} +} +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg(lean_object* x_1, uint32_t x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +uint8_t x_4; lean_object* x_5; lean_object* x_6; +x_4 = 0; +x_5 = lean_box_uint32(x_2); +x_6 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_6, 0, x_1); +lean_ctor_set(x_6, 1, x_5); +lean_ctor_set(x_6, 2, x_3); +lean_ctor_set(x_6, 3, x_1); +lean_ctor_set_uint8(x_6, sizeof(void*)*4, x_4); +return x_6; +} +else +{ +uint8_t x_7; +x_7 = lean_ctor_get_uint8(x_1, sizeof(void*)*4); +if (x_7 == 0) +{ +uint8_t x_8; +x_8 = !lean_is_exclusive(x_1); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; uint32_t x_13; uint8_t x_14; +x_9 = lean_ctor_get(x_1, 0); +x_10 = lean_ctor_get(x_1, 1); +x_11 = lean_ctor_get(x_1, 2); +x_12 = lean_ctor_get(x_1, 3); +x_13 = lean_unbox_uint32(x_10); +x_14 = x_2 < x_13; +if (x_14 == 0) +{ +uint32_t x_15; uint8_t x_16; +x_15 = lean_unbox_uint32(x_10); +x_16 = x_15 < x_2; +if (x_16 == 0) +{ +lean_object* x_17; +lean_dec(x_11); +lean_dec(x_10); +x_17 = lean_box_uint32(x_2); +lean_ctor_set(x_1, 2, x_3); +lean_ctor_set(x_1, 1, x_17); +return x_1; +} +else +{ +lean_object* x_18; +x_18 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg(x_12, x_2, x_3); +lean_ctor_set(x_1, 3, x_18); +return x_1; +} +} +else +{ +lean_object* x_19; +x_19 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg(x_9, x_2, x_3); +lean_ctor_set(x_1, 0, x_19); +return x_1; +} +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; uint32_t x_24; uint8_t x_25; +x_20 = lean_ctor_get(x_1, 0); +x_21 = lean_ctor_get(x_1, 1); +x_22 = lean_ctor_get(x_1, 2); +x_23 = lean_ctor_get(x_1, 3); +lean_inc(x_23); +lean_inc(x_22); +lean_inc(x_21); +lean_inc(x_20); +lean_dec(x_1); +x_24 = lean_unbox_uint32(x_21); +x_25 = x_2 < x_24; +if (x_25 == 0) +{ +uint32_t x_26; uint8_t x_27; +x_26 = lean_unbox_uint32(x_21); +x_27 = x_26 < x_2; +if (x_27 == 0) +{ +lean_object* x_28; lean_object* x_29; +lean_dec(x_22); +lean_dec(x_21); +x_28 = lean_box_uint32(x_2); +x_29 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_29, 0, x_20); +lean_ctor_set(x_29, 1, x_28); +lean_ctor_set(x_29, 2, x_3); +lean_ctor_set(x_29, 3, x_23); +lean_ctor_set_uint8(x_29, sizeof(void*)*4, x_7); +return x_29; +} +else +{ +lean_object* x_30; lean_object* x_31; +x_30 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg(x_23, x_2, x_3); +x_31 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_31, 0, x_20); +lean_ctor_set(x_31, 1, x_21); +lean_ctor_set(x_31, 2, x_22); +lean_ctor_set(x_31, 3, x_30); +lean_ctor_set_uint8(x_31, sizeof(void*)*4, x_7); +return x_31; +} +} +else +{ +lean_object* x_32; lean_object* x_33; +x_32 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg(x_20, x_2, x_3); +x_33 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_33, 0, x_32); +lean_ctor_set(x_33, 1, x_21); +lean_ctor_set(x_33, 2, x_22); +lean_ctor_set(x_33, 3, x_23); +lean_ctor_set_uint8(x_33, sizeof(void*)*4, x_7); +return x_33; +} +} +} +else +{ +uint8_t x_34; +x_34 = !lean_is_exclusive(x_1); +if (x_34 == 0) +{ +lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; uint32_t x_39; uint8_t x_40; +x_35 = lean_ctor_get(x_1, 0); +x_36 = lean_ctor_get(x_1, 1); +x_37 = lean_ctor_get(x_1, 2); +x_38 = lean_ctor_get(x_1, 3); +x_39 = lean_unbox_uint32(x_36); +x_40 = x_2 < x_39; +if (x_40 == 0) +{ +uint32_t x_41; uint8_t x_42; +x_41 = lean_unbox_uint32(x_36); +x_42 = x_41 < x_2; +if (x_42 == 0) +{ +lean_object* x_43; +lean_dec(x_37); +lean_dec(x_36); +x_43 = lean_box_uint32(x_2); +lean_ctor_set(x_1, 2, x_3); +lean_ctor_set(x_1, 1, x_43); +return x_1; +} +else +{ +uint8_t x_44; +x_44 = l_RBNode_isRed___rarg(x_38); +if (x_44 == 0) +{ +lean_object* x_45; +x_45 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg(x_38, x_2, x_3); +lean_ctor_set(x_1, 3, x_45); +return x_1; +} +else +{ +lean_object* x_46; lean_object* x_47; +x_46 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg(x_38, x_2, x_3); +x_47 = lean_ctor_get(x_46, 0); +lean_inc(x_47); +if (lean_obj_tag(x_47) == 0) +{ +lean_object* x_48; +x_48 = lean_ctor_get(x_46, 3); +lean_inc(x_48); +if (lean_obj_tag(x_48) == 0) +{ +uint8_t x_49; +x_49 = !lean_is_exclusive(x_46); +if (x_49 == 0) +{ +lean_object* x_50; lean_object* x_51; uint8_t x_52; uint8_t x_53; +x_50 = lean_ctor_get(x_46, 3); +lean_dec(x_50); +x_51 = lean_ctor_get(x_46, 0); +lean_dec(x_51); +x_52 = 0; +lean_ctor_set(x_46, 0, x_48); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_52); +x_53 = 1; +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_53); +return x_1; +} +else +{ +lean_object* x_54; lean_object* x_55; uint8_t x_56; lean_object* x_57; uint8_t x_58; +x_54 = lean_ctor_get(x_46, 1); +x_55 = lean_ctor_get(x_46, 2); +lean_inc(x_55); +lean_inc(x_54); +lean_dec(x_46); +x_56 = 0; +x_57 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_57, 0, x_48); +lean_ctor_set(x_57, 1, x_54); +lean_ctor_set(x_57, 2, x_55); +lean_ctor_set(x_57, 3, x_48); +lean_ctor_set_uint8(x_57, sizeof(void*)*4, x_56); +x_58 = 1; +lean_ctor_set(x_1, 3, x_57); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_58); +return x_1; +} +} +else +{ +uint8_t x_59; +x_59 = lean_ctor_get_uint8(x_48, sizeof(void*)*4); +if (x_59 == 0) +{ +uint8_t x_60; +x_60 = !lean_is_exclusive(x_46); +if (x_60 == 0) +{ +lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; uint8_t x_65; +x_61 = lean_ctor_get(x_46, 1); +x_62 = lean_ctor_get(x_46, 2); +x_63 = lean_ctor_get(x_46, 3); +lean_dec(x_63); +x_64 = lean_ctor_get(x_46, 0); +lean_dec(x_64); +x_65 = !lean_is_exclusive(x_48); +if (x_65 == 0) +{ +lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; uint8_t x_70; +x_66 = lean_ctor_get(x_48, 0); +x_67 = lean_ctor_get(x_48, 1); +x_68 = lean_ctor_get(x_48, 2); +x_69 = lean_ctor_get(x_48, 3); +x_70 = 1; +lean_ctor_set(x_48, 3, x_47); +lean_ctor_set(x_48, 2, x_37); +lean_ctor_set(x_48, 1, x_36); +lean_ctor_set(x_48, 0, x_35); +lean_ctor_set_uint8(x_48, sizeof(void*)*4, x_70); +lean_ctor_set(x_46, 3, x_69); +lean_ctor_set(x_46, 2, x_68); +lean_ctor_set(x_46, 1, x_67); +lean_ctor_set(x_46, 0, x_66); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_70); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set(x_1, 2, x_62); +lean_ctor_set(x_1, 1, x_61); +lean_ctor_set(x_1, 0, x_48); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +else +{ +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 = lean_ctor_get(x_48, 0); +x_72 = lean_ctor_get(x_48, 1); +x_73 = lean_ctor_get(x_48, 2); +x_74 = lean_ctor_get(x_48, 3); +lean_inc(x_74); +lean_inc(x_73); +lean_inc(x_72); +lean_inc(x_71); +lean_dec(x_48); +x_75 = 1; +x_76 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_76, 0, x_35); +lean_ctor_set(x_76, 1, x_36); +lean_ctor_set(x_76, 2, x_37); +lean_ctor_set(x_76, 3, x_47); +lean_ctor_set_uint8(x_76, sizeof(void*)*4, x_75); +lean_ctor_set(x_46, 3, x_74); +lean_ctor_set(x_46, 2, x_73); +lean_ctor_set(x_46, 1, x_72); +lean_ctor_set(x_46, 0, x_71); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_75); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set(x_1, 2, x_62); +lean_ctor_set(x_1, 1, x_61); +lean_ctor_set(x_1, 0, x_76); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +} +else +{ +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; uint8_t x_84; lean_object* x_85; lean_object* x_86; +x_77 = lean_ctor_get(x_46, 1); +x_78 = lean_ctor_get(x_46, 2); +lean_inc(x_78); +lean_inc(x_77); +lean_dec(x_46); +x_79 = lean_ctor_get(x_48, 0); +lean_inc(x_79); +x_80 = lean_ctor_get(x_48, 1); +lean_inc(x_80); +x_81 = lean_ctor_get(x_48, 2); +lean_inc(x_81); +x_82 = lean_ctor_get(x_48, 3); +lean_inc(x_82); +if (lean_is_exclusive(x_48)) { + lean_ctor_release(x_48, 0); + lean_ctor_release(x_48, 1); + lean_ctor_release(x_48, 2); + lean_ctor_release(x_48, 3); + x_83 = x_48; +} else { + lean_dec_ref(x_48); + x_83 = lean_box(0); +} +x_84 = 1; +if (lean_is_scalar(x_83)) { + x_85 = lean_alloc_ctor(1, 4, 1); +} else { + x_85 = x_83; +} +lean_ctor_set(x_85, 0, x_35); +lean_ctor_set(x_85, 1, x_36); +lean_ctor_set(x_85, 2, x_37); +lean_ctor_set(x_85, 3, x_47); +lean_ctor_set_uint8(x_85, sizeof(void*)*4, x_84); +x_86 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_86, 0, x_79); +lean_ctor_set(x_86, 1, x_80); +lean_ctor_set(x_86, 2, x_81); +lean_ctor_set(x_86, 3, x_82); +lean_ctor_set_uint8(x_86, sizeof(void*)*4, x_84); +lean_ctor_set(x_1, 3, x_86); +lean_ctor_set(x_1, 2, x_78); +lean_ctor_set(x_1, 1, x_77); +lean_ctor_set(x_1, 0, x_85); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +} +else +{ +uint8_t x_87; +x_87 = !lean_is_exclusive(x_46); +if (x_87 == 0) +{ +lean_object* x_88; lean_object* x_89; uint8_t x_90; +x_88 = lean_ctor_get(x_46, 3); +lean_dec(x_88); +x_89 = lean_ctor_get(x_46, 0); +lean_dec(x_89); +x_90 = 0; +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_90); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +else +{ +lean_object* x_91; lean_object* x_92; uint8_t x_93; lean_object* x_94; +x_91 = lean_ctor_get(x_46, 1); +x_92 = lean_ctor_get(x_46, 2); +lean_inc(x_92); +lean_inc(x_91); +lean_dec(x_46); +x_93 = 0; +x_94 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_94, 0, x_47); +lean_ctor_set(x_94, 1, x_91); +lean_ctor_set(x_94, 2, x_92); +lean_ctor_set(x_94, 3, x_48); +lean_ctor_set_uint8(x_94, sizeof(void*)*4, x_93); +lean_ctor_set(x_1, 3, x_94); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_59); +return x_1; +} +} +} +} +else +{ +uint8_t x_95; +x_95 = lean_ctor_get_uint8(x_47, sizeof(void*)*4); +if (x_95 == 0) +{ +uint8_t x_96; +x_96 = !lean_is_exclusive(x_46); +if (x_96 == 0) +{ +lean_object* x_97; uint8_t x_98; +x_97 = lean_ctor_get(x_46, 0); +lean_dec(x_97); +x_98 = !lean_is_exclusive(x_47); +if (x_98 == 0) +{ +lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; uint8_t x_103; +x_99 = lean_ctor_get(x_47, 0); +x_100 = lean_ctor_get(x_47, 1); +x_101 = lean_ctor_get(x_47, 2); +x_102 = lean_ctor_get(x_47, 3); +x_103 = 1; +lean_ctor_set(x_47, 3, x_99); +lean_ctor_set(x_47, 2, x_37); +lean_ctor_set(x_47, 1, x_36); +lean_ctor_set(x_47, 0, x_35); +lean_ctor_set_uint8(x_47, sizeof(void*)*4, x_103); +lean_ctor_set(x_46, 0, x_102); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_103); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set(x_1, 2, x_101); +lean_ctor_set(x_1, 1, x_100); +lean_ctor_set(x_1, 0, x_47); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +else +{ +lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; uint8_t x_108; lean_object* x_109; +x_104 = lean_ctor_get(x_47, 0); +x_105 = lean_ctor_get(x_47, 1); +x_106 = lean_ctor_get(x_47, 2); +x_107 = lean_ctor_get(x_47, 3); +lean_inc(x_107); +lean_inc(x_106); +lean_inc(x_105); +lean_inc(x_104); +lean_dec(x_47); +x_108 = 1; +x_109 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_109, 0, x_35); +lean_ctor_set(x_109, 1, x_36); +lean_ctor_set(x_109, 2, x_37); +lean_ctor_set(x_109, 3, x_104); +lean_ctor_set_uint8(x_109, sizeof(void*)*4, x_108); +lean_ctor_set(x_46, 0, x_107); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_108); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set(x_1, 2, x_106); +lean_ctor_set(x_1, 1, x_105); +lean_ctor_set(x_1, 0, x_109); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +} +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; uint8_t x_118; lean_object* x_119; lean_object* x_120; +x_110 = lean_ctor_get(x_46, 1); +x_111 = lean_ctor_get(x_46, 2); +x_112 = lean_ctor_get(x_46, 3); +lean_inc(x_112); +lean_inc(x_111); +lean_inc(x_110); +lean_dec(x_46); +x_113 = lean_ctor_get(x_47, 0); +lean_inc(x_113); +x_114 = lean_ctor_get(x_47, 1); +lean_inc(x_114); +x_115 = lean_ctor_get(x_47, 2); +lean_inc(x_115); +x_116 = lean_ctor_get(x_47, 3); +lean_inc(x_116); +if (lean_is_exclusive(x_47)) { + lean_ctor_release(x_47, 0); + lean_ctor_release(x_47, 1); + lean_ctor_release(x_47, 2); + lean_ctor_release(x_47, 3); + x_117 = x_47; +} else { + lean_dec_ref(x_47); + x_117 = lean_box(0); +} +x_118 = 1; +if (lean_is_scalar(x_117)) { + x_119 = lean_alloc_ctor(1, 4, 1); +} else { + x_119 = x_117; +} +lean_ctor_set(x_119, 0, x_35); +lean_ctor_set(x_119, 1, x_36); +lean_ctor_set(x_119, 2, x_37); +lean_ctor_set(x_119, 3, x_113); +lean_ctor_set_uint8(x_119, sizeof(void*)*4, x_118); +x_120 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_120, 0, x_116); +lean_ctor_set(x_120, 1, x_110); +lean_ctor_set(x_120, 2, x_111); +lean_ctor_set(x_120, 3, x_112); +lean_ctor_set_uint8(x_120, sizeof(void*)*4, x_118); +lean_ctor_set(x_1, 3, x_120); +lean_ctor_set(x_1, 2, x_115); +lean_ctor_set(x_1, 1, x_114); +lean_ctor_set(x_1, 0, x_119); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +} +else +{ +lean_object* x_121; +x_121 = lean_ctor_get(x_46, 3); +lean_inc(x_121); +if (lean_obj_tag(x_121) == 0) +{ +uint8_t x_122; +x_122 = !lean_is_exclusive(x_46); +if (x_122 == 0) +{ +lean_object* x_123; lean_object* x_124; uint8_t x_125; +x_123 = lean_ctor_get(x_46, 3); +lean_dec(x_123); +x_124 = lean_ctor_get(x_46, 0); +lean_dec(x_124); +x_125 = 0; +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_125); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +else +{ +lean_object* x_126; lean_object* x_127; uint8_t x_128; lean_object* x_129; +x_126 = lean_ctor_get(x_46, 1); +x_127 = lean_ctor_get(x_46, 2); +lean_inc(x_127); +lean_inc(x_126); +lean_dec(x_46); +x_128 = 0; +x_129 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_129, 0, x_47); +lean_ctor_set(x_129, 1, x_126); +lean_ctor_set(x_129, 2, x_127); +lean_ctor_set(x_129, 3, x_121); +lean_ctor_set_uint8(x_129, sizeof(void*)*4, x_128); +lean_ctor_set(x_1, 3, x_129); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_95); +return x_1; +} +} +else +{ +uint8_t x_130; +x_130 = lean_ctor_get_uint8(x_121, sizeof(void*)*4); +if (x_130 == 0) +{ +uint8_t x_131; +lean_free_object(x_1); +x_131 = !lean_is_exclusive(x_46); +if (x_131 == 0) +{ +lean_object* x_132; lean_object* x_133; uint8_t x_134; +x_132 = lean_ctor_get(x_46, 3); +lean_dec(x_132); +x_133 = lean_ctor_get(x_46, 0); +lean_dec(x_133); +x_134 = !lean_is_exclusive(x_121); +if (x_134 == 0) +{ +lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; uint8_t x_139; +x_135 = lean_ctor_get(x_121, 0); +x_136 = lean_ctor_get(x_121, 1); +x_137 = lean_ctor_get(x_121, 2); +x_138 = lean_ctor_get(x_121, 3); +lean_inc(x_47); +lean_ctor_set(x_121, 3, x_47); +lean_ctor_set(x_121, 2, x_37); +lean_ctor_set(x_121, 1, x_36); +lean_ctor_set(x_121, 0, x_35); +x_139 = !lean_is_exclusive(x_47); +if (x_139 == 0) +{ +lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; +x_140 = lean_ctor_get(x_47, 3); +lean_dec(x_140); +x_141 = lean_ctor_get(x_47, 2); +lean_dec(x_141); +x_142 = lean_ctor_get(x_47, 1); +lean_dec(x_142); +x_143 = lean_ctor_get(x_47, 0); +lean_dec(x_143); +lean_ctor_set_uint8(x_121, sizeof(void*)*4, x_95); +lean_ctor_set(x_47, 3, x_138); +lean_ctor_set(x_47, 2, x_137); +lean_ctor_set(x_47, 1, x_136); +lean_ctor_set(x_47, 0, x_135); +lean_ctor_set(x_46, 3, x_47); +lean_ctor_set(x_46, 0, x_121); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_130); +return x_46; +} +else +{ +lean_object* x_144; +lean_dec(x_47); +lean_ctor_set_uint8(x_121, sizeof(void*)*4, x_95); +x_144 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_144, 0, x_135); +lean_ctor_set(x_144, 1, x_136); +lean_ctor_set(x_144, 2, x_137); +lean_ctor_set(x_144, 3, x_138); +lean_ctor_set_uint8(x_144, sizeof(void*)*4, x_95); +lean_ctor_set(x_46, 3, x_144); +lean_ctor_set(x_46, 0, x_121); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_130); +return x_46; +} +} +else +{ +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; +x_145 = lean_ctor_get(x_121, 0); +x_146 = lean_ctor_get(x_121, 1); +x_147 = lean_ctor_get(x_121, 2); +x_148 = lean_ctor_get(x_121, 3); +lean_inc(x_148); +lean_inc(x_147); +lean_inc(x_146); +lean_inc(x_145); +lean_dec(x_121); +lean_inc(x_47); +x_149 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_149, 0, x_35); +lean_ctor_set(x_149, 1, x_36); +lean_ctor_set(x_149, 2, x_37); +lean_ctor_set(x_149, 3, x_47); +if (lean_is_exclusive(x_47)) { + lean_ctor_release(x_47, 0); + lean_ctor_release(x_47, 1); + lean_ctor_release(x_47, 2); + lean_ctor_release(x_47, 3); + x_150 = x_47; +} else { + lean_dec_ref(x_47); + x_150 = lean_box(0); +} +lean_ctor_set_uint8(x_149, sizeof(void*)*4, x_95); +if (lean_is_scalar(x_150)) { + x_151 = lean_alloc_ctor(1, 4, 1); +} else { + x_151 = x_150; +} +lean_ctor_set(x_151, 0, x_145); +lean_ctor_set(x_151, 1, x_146); +lean_ctor_set(x_151, 2, x_147); +lean_ctor_set(x_151, 3, x_148); +lean_ctor_set_uint8(x_151, sizeof(void*)*4, x_95); +lean_ctor_set(x_46, 3, x_151); +lean_ctor_set(x_46, 0, x_149); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_130); +return x_46; +} +} +else +{ +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; +x_152 = lean_ctor_get(x_46, 1); +x_153 = lean_ctor_get(x_46, 2); +lean_inc(x_153); +lean_inc(x_152); +lean_dec(x_46); +x_154 = lean_ctor_get(x_121, 0); +lean_inc(x_154); +x_155 = lean_ctor_get(x_121, 1); +lean_inc(x_155); +x_156 = lean_ctor_get(x_121, 2); +lean_inc(x_156); +x_157 = lean_ctor_get(x_121, 3); +lean_inc(x_157); +if (lean_is_exclusive(x_121)) { + lean_ctor_release(x_121, 0); + lean_ctor_release(x_121, 1); + lean_ctor_release(x_121, 2); + lean_ctor_release(x_121, 3); + x_158 = x_121; +} else { + lean_dec_ref(x_121); + x_158 = lean_box(0); +} +lean_inc(x_47); +if (lean_is_scalar(x_158)) { + x_159 = lean_alloc_ctor(1, 4, 1); +} else { + x_159 = x_158; +} +lean_ctor_set(x_159, 0, x_35); +lean_ctor_set(x_159, 1, x_36); +lean_ctor_set(x_159, 2, x_37); +lean_ctor_set(x_159, 3, x_47); +if (lean_is_exclusive(x_47)) { + lean_ctor_release(x_47, 0); + lean_ctor_release(x_47, 1); + lean_ctor_release(x_47, 2); + lean_ctor_release(x_47, 3); + x_160 = x_47; +} else { + lean_dec_ref(x_47); + x_160 = lean_box(0); +} +lean_ctor_set_uint8(x_159, sizeof(void*)*4, x_95); +if (lean_is_scalar(x_160)) { + x_161 = lean_alloc_ctor(1, 4, 1); +} else { + x_161 = x_160; +} +lean_ctor_set(x_161, 0, x_154); +lean_ctor_set(x_161, 1, x_155); +lean_ctor_set(x_161, 2, x_156); +lean_ctor_set(x_161, 3, x_157); +lean_ctor_set_uint8(x_161, sizeof(void*)*4, x_95); +x_162 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_162, 0, x_159); +lean_ctor_set(x_162, 1, x_152); +lean_ctor_set(x_162, 2, x_153); +lean_ctor_set(x_162, 3, x_161); +lean_ctor_set_uint8(x_162, sizeof(void*)*4, x_130); +return x_162; +} +} +else +{ +uint8_t x_163; +x_163 = !lean_is_exclusive(x_46); +if (x_163 == 0) +{ +lean_object* x_164; lean_object* x_165; uint8_t x_166; +x_164 = lean_ctor_get(x_46, 3); +lean_dec(x_164); +x_165 = lean_ctor_get(x_46, 0); +lean_dec(x_165); +x_166 = !lean_is_exclusive(x_47); +if (x_166 == 0) +{ +uint8_t x_167; +lean_ctor_set_uint8(x_47, sizeof(void*)*4, x_130); +x_167 = 0; +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_167); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_130); +return x_1; +} +else +{ +lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; uint8_t x_173; +x_168 = lean_ctor_get(x_47, 0); +x_169 = lean_ctor_get(x_47, 1); +x_170 = lean_ctor_get(x_47, 2); +x_171 = lean_ctor_get(x_47, 3); +lean_inc(x_171); +lean_inc(x_170); +lean_inc(x_169); +lean_inc(x_168); +lean_dec(x_47); +x_172 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_172, 0, x_168); +lean_ctor_set(x_172, 1, x_169); +lean_ctor_set(x_172, 2, x_170); +lean_ctor_set(x_172, 3, x_171); +lean_ctor_set_uint8(x_172, sizeof(void*)*4, x_130); +x_173 = 0; +lean_ctor_set(x_46, 0, x_172); +lean_ctor_set_uint8(x_46, sizeof(void*)*4, x_173); +lean_ctor_set(x_1, 3, x_46); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_130); +return x_1; +} +} +else +{ +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; uint8_t x_182; lean_object* x_183; +x_174 = lean_ctor_get(x_46, 1); +x_175 = lean_ctor_get(x_46, 2); +lean_inc(x_175); +lean_inc(x_174); +lean_dec(x_46); +x_176 = lean_ctor_get(x_47, 0); +lean_inc(x_176); +x_177 = lean_ctor_get(x_47, 1); +lean_inc(x_177); +x_178 = lean_ctor_get(x_47, 2); +lean_inc(x_178); +x_179 = lean_ctor_get(x_47, 3); +lean_inc(x_179); +if (lean_is_exclusive(x_47)) { + lean_ctor_release(x_47, 0); + lean_ctor_release(x_47, 1); + lean_ctor_release(x_47, 2); + lean_ctor_release(x_47, 3); + x_180 = x_47; +} else { + lean_dec_ref(x_47); + x_180 = lean_box(0); +} +if (lean_is_scalar(x_180)) { + x_181 = lean_alloc_ctor(1, 4, 1); +} else { + x_181 = x_180; +} +lean_ctor_set(x_181, 0, x_176); +lean_ctor_set(x_181, 1, x_177); +lean_ctor_set(x_181, 2, x_178); +lean_ctor_set(x_181, 3, x_179); +lean_ctor_set_uint8(x_181, sizeof(void*)*4, x_130); +x_182 = 0; +x_183 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_183, 0, x_181); +lean_ctor_set(x_183, 1, x_174); +lean_ctor_set(x_183, 2, x_175); +lean_ctor_set(x_183, 3, x_121); +lean_ctor_set_uint8(x_183, sizeof(void*)*4, x_182); +lean_ctor_set(x_1, 3, x_183); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_130); +return x_1; +} +} +} +} +} +} +} +} +else +{ +uint8_t x_184; +x_184 = l_RBNode_isRed___rarg(x_35); +if (x_184 == 0) +{ +lean_object* x_185; +x_185 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg(x_35, x_2, x_3); +lean_ctor_set(x_1, 0, x_185); +return x_1; +} +else +{ +lean_object* x_186; lean_object* x_187; +x_186 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg(x_35, x_2, x_3); +x_187 = lean_ctor_get(x_186, 0); +lean_inc(x_187); +if (lean_obj_tag(x_187) == 0) +{ +lean_object* x_188; +x_188 = lean_ctor_get(x_186, 3); +lean_inc(x_188); +if (lean_obj_tag(x_188) == 0) +{ +uint8_t x_189; +x_189 = !lean_is_exclusive(x_186); +if (x_189 == 0) +{ +lean_object* x_190; lean_object* x_191; uint8_t x_192; uint8_t x_193; +x_190 = lean_ctor_get(x_186, 3); +lean_dec(x_190); +x_191 = lean_ctor_get(x_186, 0); +lean_dec(x_191); +x_192 = 0; +lean_ctor_set(x_186, 0, x_188); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_192); +x_193 = 1; +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_193); +return x_1; +} +else +{ +lean_object* x_194; lean_object* x_195; uint8_t x_196; lean_object* x_197; uint8_t x_198; +x_194 = lean_ctor_get(x_186, 1); +x_195 = lean_ctor_get(x_186, 2); +lean_inc(x_195); +lean_inc(x_194); +lean_dec(x_186); +x_196 = 0; +x_197 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_197, 0, x_188); +lean_ctor_set(x_197, 1, x_194); +lean_ctor_set(x_197, 2, x_195); +lean_ctor_set(x_197, 3, x_188); +lean_ctor_set_uint8(x_197, sizeof(void*)*4, x_196); +x_198 = 1; +lean_ctor_set(x_1, 0, x_197); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_198); +return x_1; +} +} +else +{ +uint8_t x_199; +x_199 = lean_ctor_get_uint8(x_188, sizeof(void*)*4); +if (x_199 == 0) +{ +uint8_t x_200; +x_200 = !lean_is_exclusive(x_186); +if (x_200 == 0) +{ +lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; uint8_t x_205; +x_201 = lean_ctor_get(x_186, 1); +x_202 = lean_ctor_get(x_186, 2); +x_203 = lean_ctor_get(x_186, 3); +lean_dec(x_203); +x_204 = lean_ctor_get(x_186, 0); +lean_dec(x_204); +x_205 = !lean_is_exclusive(x_188); +if (x_205 == 0) +{ +lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; uint8_t x_210; +x_206 = lean_ctor_get(x_188, 0); +x_207 = lean_ctor_get(x_188, 1); +x_208 = lean_ctor_get(x_188, 2); +x_209 = lean_ctor_get(x_188, 3); +x_210 = 1; +lean_ctor_set(x_188, 3, x_206); +lean_ctor_set(x_188, 2, x_202); +lean_ctor_set(x_188, 1, x_201); +lean_ctor_set(x_188, 0, x_187); +lean_ctor_set_uint8(x_188, sizeof(void*)*4, x_210); +lean_ctor_set(x_186, 3, x_38); +lean_ctor_set(x_186, 2, x_37); +lean_ctor_set(x_186, 1, x_36); +lean_ctor_set(x_186, 0, x_209); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_210); +lean_ctor_set(x_1, 3, x_186); +lean_ctor_set(x_1, 2, x_208); +lean_ctor_set(x_1, 1, x_207); +lean_ctor_set(x_1, 0, x_188); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +else +{ +lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; uint8_t x_215; lean_object* x_216; +x_211 = lean_ctor_get(x_188, 0); +x_212 = lean_ctor_get(x_188, 1); +x_213 = lean_ctor_get(x_188, 2); +x_214 = lean_ctor_get(x_188, 3); +lean_inc(x_214); +lean_inc(x_213); +lean_inc(x_212); +lean_inc(x_211); +lean_dec(x_188); +x_215 = 1; +x_216 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_216, 0, x_187); +lean_ctor_set(x_216, 1, x_201); +lean_ctor_set(x_216, 2, x_202); +lean_ctor_set(x_216, 3, x_211); +lean_ctor_set_uint8(x_216, sizeof(void*)*4, x_215); +lean_ctor_set(x_186, 3, x_38); +lean_ctor_set(x_186, 2, x_37); +lean_ctor_set(x_186, 1, x_36); +lean_ctor_set(x_186, 0, x_214); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_215); +lean_ctor_set(x_1, 3, x_186); +lean_ctor_set(x_1, 2, x_213); +lean_ctor_set(x_1, 1, x_212); +lean_ctor_set(x_1, 0, x_216); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +} +else +{ +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; uint8_t x_224; lean_object* x_225; lean_object* x_226; +x_217 = lean_ctor_get(x_186, 1); +x_218 = lean_ctor_get(x_186, 2); +lean_inc(x_218); +lean_inc(x_217); +lean_dec(x_186); +x_219 = lean_ctor_get(x_188, 0); +lean_inc(x_219); +x_220 = lean_ctor_get(x_188, 1); +lean_inc(x_220); +x_221 = lean_ctor_get(x_188, 2); +lean_inc(x_221); +x_222 = lean_ctor_get(x_188, 3); +lean_inc(x_222); +if (lean_is_exclusive(x_188)) { + lean_ctor_release(x_188, 0); + lean_ctor_release(x_188, 1); + lean_ctor_release(x_188, 2); + lean_ctor_release(x_188, 3); + x_223 = x_188; +} else { + lean_dec_ref(x_188); + x_223 = lean_box(0); +} +x_224 = 1; +if (lean_is_scalar(x_223)) { + x_225 = lean_alloc_ctor(1, 4, 1); +} else { + x_225 = x_223; +} +lean_ctor_set(x_225, 0, x_187); +lean_ctor_set(x_225, 1, x_217); +lean_ctor_set(x_225, 2, x_218); +lean_ctor_set(x_225, 3, x_219); +lean_ctor_set_uint8(x_225, sizeof(void*)*4, x_224); +x_226 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_226, 0, x_222); +lean_ctor_set(x_226, 1, x_36); +lean_ctor_set(x_226, 2, x_37); +lean_ctor_set(x_226, 3, x_38); +lean_ctor_set_uint8(x_226, sizeof(void*)*4, x_224); +lean_ctor_set(x_1, 3, x_226); +lean_ctor_set(x_1, 2, x_221); +lean_ctor_set(x_1, 1, x_220); +lean_ctor_set(x_1, 0, x_225); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +} +else +{ +uint8_t x_227; +x_227 = !lean_is_exclusive(x_186); +if (x_227 == 0) +{ +lean_object* x_228; lean_object* x_229; uint8_t x_230; +x_228 = lean_ctor_get(x_186, 3); +lean_dec(x_228); +x_229 = lean_ctor_get(x_186, 0); +lean_dec(x_229); +x_230 = 0; +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_230); +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +else +{ +lean_object* x_231; lean_object* x_232; uint8_t x_233; lean_object* x_234; +x_231 = lean_ctor_get(x_186, 1); +x_232 = lean_ctor_get(x_186, 2); +lean_inc(x_232); +lean_inc(x_231); +lean_dec(x_186); +x_233 = 0; +x_234 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_234, 0, x_187); +lean_ctor_set(x_234, 1, x_231); +lean_ctor_set(x_234, 2, x_232); +lean_ctor_set(x_234, 3, x_188); +lean_ctor_set_uint8(x_234, sizeof(void*)*4, x_233); +lean_ctor_set(x_1, 0, x_234); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_199); +return x_1; +} +} +} +} +else +{ +uint8_t x_235; +x_235 = lean_ctor_get_uint8(x_187, sizeof(void*)*4); +if (x_235 == 0) +{ +uint8_t x_236; +x_236 = !lean_is_exclusive(x_186); +if (x_236 == 0) +{ +lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; uint8_t x_241; +x_237 = lean_ctor_get(x_186, 1); +x_238 = lean_ctor_get(x_186, 2); +x_239 = lean_ctor_get(x_186, 3); +x_240 = lean_ctor_get(x_186, 0); +lean_dec(x_240); +x_241 = !lean_is_exclusive(x_187); +if (x_241 == 0) +{ +uint8_t x_242; +x_242 = 1; +lean_ctor_set_uint8(x_187, sizeof(void*)*4, x_242); +lean_ctor_set(x_186, 3, x_38); +lean_ctor_set(x_186, 2, x_37); +lean_ctor_set(x_186, 1, x_36); +lean_ctor_set(x_186, 0, x_239); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_242); +lean_ctor_set(x_1, 3, x_186); +lean_ctor_set(x_1, 2, x_238); +lean_ctor_set(x_1, 1, x_237); +lean_ctor_set(x_1, 0, x_187); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +else +{ +lean_object* x_243; lean_object* x_244; lean_object* x_245; lean_object* x_246; uint8_t x_247; lean_object* x_248; +x_243 = lean_ctor_get(x_187, 0); +x_244 = lean_ctor_get(x_187, 1); +x_245 = lean_ctor_get(x_187, 2); +x_246 = lean_ctor_get(x_187, 3); +lean_inc(x_246); +lean_inc(x_245); +lean_inc(x_244); +lean_inc(x_243); +lean_dec(x_187); +x_247 = 1; +x_248 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_248, 0, x_243); +lean_ctor_set(x_248, 1, x_244); +lean_ctor_set(x_248, 2, x_245); +lean_ctor_set(x_248, 3, x_246); +lean_ctor_set_uint8(x_248, sizeof(void*)*4, x_247); +lean_ctor_set(x_186, 3, x_38); +lean_ctor_set(x_186, 2, x_37); +lean_ctor_set(x_186, 1, x_36); +lean_ctor_set(x_186, 0, x_239); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_247); +lean_ctor_set(x_1, 3, x_186); +lean_ctor_set(x_1, 2, x_238); +lean_ctor_set(x_1, 1, x_237); +lean_ctor_set(x_1, 0, x_248); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +} +else +{ +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; uint8_t x_257; lean_object* x_258; lean_object* x_259; +x_249 = lean_ctor_get(x_186, 1); +x_250 = lean_ctor_get(x_186, 2); +x_251 = lean_ctor_get(x_186, 3); +lean_inc(x_251); +lean_inc(x_250); +lean_inc(x_249); +lean_dec(x_186); +x_252 = lean_ctor_get(x_187, 0); +lean_inc(x_252); +x_253 = lean_ctor_get(x_187, 1); +lean_inc(x_253); +x_254 = lean_ctor_get(x_187, 2); +lean_inc(x_254); +x_255 = lean_ctor_get(x_187, 3); +lean_inc(x_255); +if (lean_is_exclusive(x_187)) { + lean_ctor_release(x_187, 0); + lean_ctor_release(x_187, 1); + lean_ctor_release(x_187, 2); + lean_ctor_release(x_187, 3); + x_256 = x_187; +} else { + lean_dec_ref(x_187); + x_256 = lean_box(0); +} +x_257 = 1; +if (lean_is_scalar(x_256)) { + x_258 = lean_alloc_ctor(1, 4, 1); +} else { + x_258 = x_256; +} +lean_ctor_set(x_258, 0, x_252); +lean_ctor_set(x_258, 1, x_253); +lean_ctor_set(x_258, 2, x_254); +lean_ctor_set(x_258, 3, x_255); +lean_ctor_set_uint8(x_258, sizeof(void*)*4, x_257); +x_259 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_259, 0, x_251); +lean_ctor_set(x_259, 1, x_36); +lean_ctor_set(x_259, 2, x_37); +lean_ctor_set(x_259, 3, x_38); +lean_ctor_set_uint8(x_259, sizeof(void*)*4, x_257); +lean_ctor_set(x_1, 3, x_259); +lean_ctor_set(x_1, 2, x_250); +lean_ctor_set(x_1, 1, x_249); +lean_ctor_set(x_1, 0, x_258); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +} +else +{ +lean_object* x_260; +x_260 = lean_ctor_get(x_186, 3); +lean_inc(x_260); +if (lean_obj_tag(x_260) == 0) +{ +uint8_t x_261; +x_261 = !lean_is_exclusive(x_186); +if (x_261 == 0) +{ +lean_object* x_262; lean_object* x_263; uint8_t x_264; +x_262 = lean_ctor_get(x_186, 3); +lean_dec(x_262); +x_263 = lean_ctor_get(x_186, 0); +lean_dec(x_263); +x_264 = 0; +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_264); +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +else +{ +lean_object* x_265; lean_object* x_266; uint8_t x_267; lean_object* x_268; +x_265 = lean_ctor_get(x_186, 1); +x_266 = lean_ctor_get(x_186, 2); +lean_inc(x_266); +lean_inc(x_265); +lean_dec(x_186); +x_267 = 0; +x_268 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_268, 0, x_187); +lean_ctor_set(x_268, 1, x_265); +lean_ctor_set(x_268, 2, x_266); +lean_ctor_set(x_268, 3, x_260); +lean_ctor_set_uint8(x_268, sizeof(void*)*4, x_267); +lean_ctor_set(x_1, 0, x_268); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_235); +return x_1; +} +} +else +{ +uint8_t x_269; +x_269 = lean_ctor_get_uint8(x_260, sizeof(void*)*4); +if (x_269 == 0) +{ +uint8_t x_270; +lean_free_object(x_1); +x_270 = !lean_is_exclusive(x_186); +if (x_270 == 0) +{ +lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; uint8_t x_275; +x_271 = lean_ctor_get(x_186, 1); +x_272 = lean_ctor_get(x_186, 2); +x_273 = lean_ctor_get(x_186, 3); +lean_dec(x_273); +x_274 = lean_ctor_get(x_186, 0); +lean_dec(x_274); +x_275 = !lean_is_exclusive(x_260); +if (x_275 == 0) +{ +lean_object* x_276; lean_object* x_277; lean_object* x_278; lean_object* x_279; uint8_t x_280; +x_276 = lean_ctor_get(x_260, 0); +x_277 = lean_ctor_get(x_260, 1); +x_278 = lean_ctor_get(x_260, 2); +x_279 = lean_ctor_get(x_260, 3); +lean_inc(x_187); +lean_ctor_set(x_260, 3, x_276); +lean_ctor_set(x_260, 2, x_272); +lean_ctor_set(x_260, 1, x_271); +lean_ctor_set(x_260, 0, x_187); +x_280 = !lean_is_exclusive(x_187); +if (x_280 == 0) +{ +lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; +x_281 = lean_ctor_get(x_187, 3); +lean_dec(x_281); +x_282 = lean_ctor_get(x_187, 2); +lean_dec(x_282); +x_283 = lean_ctor_get(x_187, 1); +lean_dec(x_283); +x_284 = lean_ctor_get(x_187, 0); +lean_dec(x_284); +lean_ctor_set_uint8(x_260, sizeof(void*)*4, x_235); +lean_ctor_set(x_187, 3, x_38); +lean_ctor_set(x_187, 2, x_37); +lean_ctor_set(x_187, 1, x_36); +lean_ctor_set(x_187, 0, x_279); +lean_ctor_set(x_186, 3, x_187); +lean_ctor_set(x_186, 2, x_278); +lean_ctor_set(x_186, 1, x_277); +lean_ctor_set(x_186, 0, x_260); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_269); +return x_186; +} +else +{ +lean_object* x_285; +lean_dec(x_187); +lean_ctor_set_uint8(x_260, sizeof(void*)*4, x_235); +x_285 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_285, 0, x_279); +lean_ctor_set(x_285, 1, x_36); +lean_ctor_set(x_285, 2, x_37); +lean_ctor_set(x_285, 3, x_38); +lean_ctor_set_uint8(x_285, sizeof(void*)*4, x_235); +lean_ctor_set(x_186, 3, x_285); +lean_ctor_set(x_186, 2, x_278); +lean_ctor_set(x_186, 1, x_277); +lean_ctor_set(x_186, 0, x_260); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_269); +return x_186; +} +} +else +{ +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; +x_286 = lean_ctor_get(x_260, 0); +x_287 = lean_ctor_get(x_260, 1); +x_288 = lean_ctor_get(x_260, 2); +x_289 = lean_ctor_get(x_260, 3); +lean_inc(x_289); +lean_inc(x_288); +lean_inc(x_287); +lean_inc(x_286); +lean_dec(x_260); +lean_inc(x_187); +x_290 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_290, 0, x_187); +lean_ctor_set(x_290, 1, x_271); +lean_ctor_set(x_290, 2, x_272); +lean_ctor_set(x_290, 3, x_286); +if (lean_is_exclusive(x_187)) { + lean_ctor_release(x_187, 0); + lean_ctor_release(x_187, 1); + lean_ctor_release(x_187, 2); + lean_ctor_release(x_187, 3); + x_291 = x_187; +} else { + lean_dec_ref(x_187); + x_291 = lean_box(0); +} +lean_ctor_set_uint8(x_290, sizeof(void*)*4, x_235); +if (lean_is_scalar(x_291)) { + x_292 = lean_alloc_ctor(1, 4, 1); +} else { + x_292 = x_291; +} +lean_ctor_set(x_292, 0, x_289); +lean_ctor_set(x_292, 1, x_36); +lean_ctor_set(x_292, 2, x_37); +lean_ctor_set(x_292, 3, x_38); +lean_ctor_set_uint8(x_292, sizeof(void*)*4, x_235); +lean_ctor_set(x_186, 3, x_292); +lean_ctor_set(x_186, 2, x_288); +lean_ctor_set(x_186, 1, x_287); +lean_ctor_set(x_186, 0, x_290); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_269); +return x_186; +} +} +else +{ +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; +x_293 = lean_ctor_get(x_186, 1); +x_294 = lean_ctor_get(x_186, 2); +lean_inc(x_294); +lean_inc(x_293); +lean_dec(x_186); +x_295 = lean_ctor_get(x_260, 0); +lean_inc(x_295); +x_296 = lean_ctor_get(x_260, 1); +lean_inc(x_296); +x_297 = lean_ctor_get(x_260, 2); +lean_inc(x_297); +x_298 = lean_ctor_get(x_260, 3); +lean_inc(x_298); +if (lean_is_exclusive(x_260)) { + lean_ctor_release(x_260, 0); + lean_ctor_release(x_260, 1); + lean_ctor_release(x_260, 2); + lean_ctor_release(x_260, 3); + x_299 = x_260; +} else { + lean_dec_ref(x_260); + x_299 = lean_box(0); +} +lean_inc(x_187); +if (lean_is_scalar(x_299)) { + x_300 = lean_alloc_ctor(1, 4, 1); +} else { + x_300 = x_299; +} +lean_ctor_set(x_300, 0, x_187); +lean_ctor_set(x_300, 1, x_293); +lean_ctor_set(x_300, 2, x_294); +lean_ctor_set(x_300, 3, x_295); +if (lean_is_exclusive(x_187)) { + lean_ctor_release(x_187, 0); + lean_ctor_release(x_187, 1); + lean_ctor_release(x_187, 2); + lean_ctor_release(x_187, 3); + x_301 = x_187; +} else { + lean_dec_ref(x_187); + x_301 = lean_box(0); +} +lean_ctor_set_uint8(x_300, sizeof(void*)*4, x_235); +if (lean_is_scalar(x_301)) { + x_302 = lean_alloc_ctor(1, 4, 1); +} else { + x_302 = x_301; +} +lean_ctor_set(x_302, 0, x_298); +lean_ctor_set(x_302, 1, x_36); +lean_ctor_set(x_302, 2, x_37); +lean_ctor_set(x_302, 3, x_38); +lean_ctor_set_uint8(x_302, sizeof(void*)*4, x_235); +x_303 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_303, 0, x_300); +lean_ctor_set(x_303, 1, x_296); +lean_ctor_set(x_303, 2, x_297); +lean_ctor_set(x_303, 3, x_302); +lean_ctor_set_uint8(x_303, sizeof(void*)*4, x_269); +return x_303; +} +} +else +{ +uint8_t x_304; +x_304 = !lean_is_exclusive(x_186); +if (x_304 == 0) +{ +lean_object* x_305; lean_object* x_306; uint8_t x_307; +x_305 = lean_ctor_get(x_186, 3); +lean_dec(x_305); +x_306 = lean_ctor_get(x_186, 0); +lean_dec(x_306); +x_307 = !lean_is_exclusive(x_187); +if (x_307 == 0) +{ +uint8_t x_308; +lean_ctor_set_uint8(x_187, sizeof(void*)*4, x_269); +x_308 = 0; +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_308); +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_269); +return x_1; +} +else +{ +lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_object* x_312; lean_object* x_313; uint8_t x_314; +x_309 = lean_ctor_get(x_187, 0); +x_310 = lean_ctor_get(x_187, 1); +x_311 = lean_ctor_get(x_187, 2); +x_312 = lean_ctor_get(x_187, 3); +lean_inc(x_312); +lean_inc(x_311); +lean_inc(x_310); +lean_inc(x_309); +lean_dec(x_187); +x_313 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_313, 0, x_309); +lean_ctor_set(x_313, 1, x_310); +lean_ctor_set(x_313, 2, x_311); +lean_ctor_set(x_313, 3, x_312); +lean_ctor_set_uint8(x_313, sizeof(void*)*4, x_269); +x_314 = 0; +lean_ctor_set(x_186, 0, x_313); +lean_ctor_set_uint8(x_186, sizeof(void*)*4, x_314); +lean_ctor_set(x_1, 0, x_186); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_269); +return x_1; +} +} +else +{ +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; uint8_t x_323; lean_object* x_324; +x_315 = lean_ctor_get(x_186, 1); +x_316 = lean_ctor_get(x_186, 2); +lean_inc(x_316); +lean_inc(x_315); +lean_dec(x_186); +x_317 = lean_ctor_get(x_187, 0); +lean_inc(x_317); +x_318 = lean_ctor_get(x_187, 1); +lean_inc(x_318); +x_319 = lean_ctor_get(x_187, 2); +lean_inc(x_319); +x_320 = lean_ctor_get(x_187, 3); +lean_inc(x_320); +if (lean_is_exclusive(x_187)) { + lean_ctor_release(x_187, 0); + lean_ctor_release(x_187, 1); + lean_ctor_release(x_187, 2); + lean_ctor_release(x_187, 3); + x_321 = x_187; +} else { + lean_dec_ref(x_187); + x_321 = lean_box(0); +} +if (lean_is_scalar(x_321)) { + x_322 = lean_alloc_ctor(1, 4, 1); +} else { + x_322 = x_321; +} +lean_ctor_set(x_322, 0, x_317); +lean_ctor_set(x_322, 1, x_318); +lean_ctor_set(x_322, 2, x_319); +lean_ctor_set(x_322, 3, x_320); +lean_ctor_set_uint8(x_322, sizeof(void*)*4, x_269); +x_323 = 0; +x_324 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_324, 0, x_322); +lean_ctor_set(x_324, 1, x_315); +lean_ctor_set(x_324, 2, x_316); +lean_ctor_set(x_324, 3, x_260); +lean_ctor_set_uint8(x_324, sizeof(void*)*4, x_323); +lean_ctor_set(x_1, 0, x_324); +lean_ctor_set_uint8(x_1, sizeof(void*)*4, x_269); +return x_1; +} +} +} +} +} +} +} +} +else +{ +lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_328; uint32_t x_329; uint8_t x_330; +x_325 = lean_ctor_get(x_1, 0); +x_326 = lean_ctor_get(x_1, 1); +x_327 = lean_ctor_get(x_1, 2); +x_328 = lean_ctor_get(x_1, 3); +lean_inc(x_328); +lean_inc(x_327); +lean_inc(x_326); +lean_inc(x_325); +lean_dec(x_1); +x_329 = lean_unbox_uint32(x_326); +x_330 = x_2 < x_329; +if (x_330 == 0) +{ +uint32_t x_331; uint8_t x_332; +x_331 = lean_unbox_uint32(x_326); +x_332 = x_331 < x_2; +if (x_332 == 0) +{ +lean_object* x_333; lean_object* x_334; +lean_dec(x_327); +lean_dec(x_326); +x_333 = lean_box_uint32(x_2); +x_334 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_334, 0, x_325); +lean_ctor_set(x_334, 1, x_333); +lean_ctor_set(x_334, 2, x_3); +lean_ctor_set(x_334, 3, x_328); +lean_ctor_set_uint8(x_334, sizeof(void*)*4, x_7); +return x_334; +} +else +{ +uint8_t x_335; +x_335 = l_RBNode_isRed___rarg(x_328); +if (x_335 == 0) +{ +lean_object* x_336; lean_object* x_337; +x_336 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg(x_328, x_2, x_3); +x_337 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_337, 0, x_325); +lean_ctor_set(x_337, 1, x_326); +lean_ctor_set(x_337, 2, x_327); +lean_ctor_set(x_337, 3, x_336); +lean_ctor_set_uint8(x_337, sizeof(void*)*4, x_7); +return x_337; +} +else +{ +lean_object* x_338; lean_object* x_339; +x_338 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg(x_328, x_2, x_3); +x_339 = lean_ctor_get(x_338, 0); +lean_inc(x_339); +if (lean_obj_tag(x_339) == 0) +{ +lean_object* x_340; +x_340 = lean_ctor_get(x_338, 3); +lean_inc(x_340); +if (lean_obj_tag(x_340) == 0) +{ +lean_object* x_341; lean_object* x_342; lean_object* x_343; uint8_t x_344; lean_object* x_345; uint8_t x_346; lean_object* x_347; +x_341 = lean_ctor_get(x_338, 1); +lean_inc(x_341); +x_342 = lean_ctor_get(x_338, 2); +lean_inc(x_342); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_343 = x_338; +} else { + lean_dec_ref(x_338); + x_343 = lean_box(0); +} +x_344 = 0; +if (lean_is_scalar(x_343)) { + x_345 = lean_alloc_ctor(1, 4, 1); +} else { + x_345 = x_343; +} +lean_ctor_set(x_345, 0, x_340); +lean_ctor_set(x_345, 1, x_341); +lean_ctor_set(x_345, 2, x_342); +lean_ctor_set(x_345, 3, x_340); +lean_ctor_set_uint8(x_345, sizeof(void*)*4, x_344); +x_346 = 1; +x_347 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_347, 0, x_325); +lean_ctor_set(x_347, 1, x_326); +lean_ctor_set(x_347, 2, x_327); +lean_ctor_set(x_347, 3, x_345); +lean_ctor_set_uint8(x_347, sizeof(void*)*4, x_346); +return x_347; +} +else +{ +uint8_t x_348; +x_348 = lean_ctor_get_uint8(x_340, sizeof(void*)*4); +if (x_348 == 0) +{ +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; uint8_t x_357; lean_object* x_358; lean_object* x_359; lean_object* x_360; +x_349 = lean_ctor_get(x_338, 1); +lean_inc(x_349); +x_350 = lean_ctor_get(x_338, 2); +lean_inc(x_350); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_351 = x_338; +} else { + lean_dec_ref(x_338); + x_351 = lean_box(0); +} +x_352 = lean_ctor_get(x_340, 0); +lean_inc(x_352); +x_353 = lean_ctor_get(x_340, 1); +lean_inc(x_353); +x_354 = lean_ctor_get(x_340, 2); +lean_inc(x_354); +x_355 = lean_ctor_get(x_340, 3); +lean_inc(x_355); +if (lean_is_exclusive(x_340)) { + lean_ctor_release(x_340, 0); + lean_ctor_release(x_340, 1); + lean_ctor_release(x_340, 2); + lean_ctor_release(x_340, 3); + x_356 = x_340; +} else { + lean_dec_ref(x_340); + x_356 = lean_box(0); +} +x_357 = 1; +if (lean_is_scalar(x_356)) { + x_358 = lean_alloc_ctor(1, 4, 1); +} else { + x_358 = x_356; +} +lean_ctor_set(x_358, 0, x_325); +lean_ctor_set(x_358, 1, x_326); +lean_ctor_set(x_358, 2, x_327); +lean_ctor_set(x_358, 3, x_339); +lean_ctor_set_uint8(x_358, sizeof(void*)*4, x_357); +if (lean_is_scalar(x_351)) { + x_359 = lean_alloc_ctor(1, 4, 1); +} else { + x_359 = x_351; +} +lean_ctor_set(x_359, 0, x_352); +lean_ctor_set(x_359, 1, x_353); +lean_ctor_set(x_359, 2, x_354); +lean_ctor_set(x_359, 3, x_355); +lean_ctor_set_uint8(x_359, sizeof(void*)*4, x_357); +x_360 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_360, 0, x_358); +lean_ctor_set(x_360, 1, x_349); +lean_ctor_set(x_360, 2, x_350); +lean_ctor_set(x_360, 3, x_359); +lean_ctor_set_uint8(x_360, sizeof(void*)*4, x_348); +return x_360; +} +else +{ +lean_object* x_361; lean_object* x_362; lean_object* x_363; uint8_t x_364; lean_object* x_365; lean_object* x_366; +x_361 = lean_ctor_get(x_338, 1); +lean_inc(x_361); +x_362 = lean_ctor_get(x_338, 2); +lean_inc(x_362); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_363 = x_338; +} else { + lean_dec_ref(x_338); + x_363 = lean_box(0); +} +x_364 = 0; +if (lean_is_scalar(x_363)) { + x_365 = lean_alloc_ctor(1, 4, 1); +} else { + x_365 = x_363; +} +lean_ctor_set(x_365, 0, x_339); +lean_ctor_set(x_365, 1, x_361); +lean_ctor_set(x_365, 2, x_362); +lean_ctor_set(x_365, 3, x_340); +lean_ctor_set_uint8(x_365, sizeof(void*)*4, x_364); +x_366 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_366, 0, x_325); +lean_ctor_set(x_366, 1, x_326); +lean_ctor_set(x_366, 2, x_327); +lean_ctor_set(x_366, 3, x_365); +lean_ctor_set_uint8(x_366, sizeof(void*)*4, x_348); +return x_366; +} +} +} +else +{ +uint8_t x_367; +x_367 = lean_ctor_get_uint8(x_339, sizeof(void*)*4); +if (x_367 == 0) +{ +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; uint8_t x_377; lean_object* x_378; lean_object* x_379; lean_object* x_380; +x_368 = lean_ctor_get(x_338, 1); +lean_inc(x_368); +x_369 = lean_ctor_get(x_338, 2); +lean_inc(x_369); +x_370 = lean_ctor_get(x_338, 3); +lean_inc(x_370); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_371 = x_338; +} else { + lean_dec_ref(x_338); + x_371 = lean_box(0); +} +x_372 = lean_ctor_get(x_339, 0); +lean_inc(x_372); +x_373 = lean_ctor_get(x_339, 1); +lean_inc(x_373); +x_374 = lean_ctor_get(x_339, 2); +lean_inc(x_374); +x_375 = lean_ctor_get(x_339, 3); +lean_inc(x_375); +if (lean_is_exclusive(x_339)) { + lean_ctor_release(x_339, 0); + lean_ctor_release(x_339, 1); + lean_ctor_release(x_339, 2); + lean_ctor_release(x_339, 3); + x_376 = x_339; +} else { + lean_dec_ref(x_339); + x_376 = lean_box(0); +} +x_377 = 1; +if (lean_is_scalar(x_376)) { + x_378 = lean_alloc_ctor(1, 4, 1); +} else { + x_378 = x_376; +} +lean_ctor_set(x_378, 0, x_325); +lean_ctor_set(x_378, 1, x_326); +lean_ctor_set(x_378, 2, x_327); +lean_ctor_set(x_378, 3, x_372); +lean_ctor_set_uint8(x_378, sizeof(void*)*4, x_377); +if (lean_is_scalar(x_371)) { + x_379 = lean_alloc_ctor(1, 4, 1); +} else { + x_379 = x_371; +} +lean_ctor_set(x_379, 0, x_375); +lean_ctor_set(x_379, 1, x_368); +lean_ctor_set(x_379, 2, x_369); +lean_ctor_set(x_379, 3, x_370); +lean_ctor_set_uint8(x_379, sizeof(void*)*4, x_377); +x_380 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_380, 0, x_378); +lean_ctor_set(x_380, 1, x_373); +lean_ctor_set(x_380, 2, x_374); +lean_ctor_set(x_380, 3, x_379); +lean_ctor_set_uint8(x_380, sizeof(void*)*4, x_367); +return x_380; +} +else +{ +lean_object* x_381; +x_381 = lean_ctor_get(x_338, 3); +lean_inc(x_381); +if (lean_obj_tag(x_381) == 0) +{ +lean_object* x_382; lean_object* x_383; lean_object* x_384; uint8_t x_385; lean_object* x_386; lean_object* x_387; +x_382 = lean_ctor_get(x_338, 1); +lean_inc(x_382); +x_383 = lean_ctor_get(x_338, 2); +lean_inc(x_383); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_384 = x_338; +} else { + lean_dec_ref(x_338); + x_384 = lean_box(0); +} +x_385 = 0; +if (lean_is_scalar(x_384)) { + x_386 = lean_alloc_ctor(1, 4, 1); +} else { + x_386 = x_384; +} +lean_ctor_set(x_386, 0, x_339); +lean_ctor_set(x_386, 1, x_382); +lean_ctor_set(x_386, 2, x_383); +lean_ctor_set(x_386, 3, x_381); +lean_ctor_set_uint8(x_386, sizeof(void*)*4, x_385); +x_387 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_387, 0, x_325); +lean_ctor_set(x_387, 1, x_326); +lean_ctor_set(x_387, 2, x_327); +lean_ctor_set(x_387, 3, x_386); +lean_ctor_set_uint8(x_387, sizeof(void*)*4, x_367); +return x_387; +} +else +{ +uint8_t x_388; +x_388 = lean_ctor_get_uint8(x_381, sizeof(void*)*4); +if (x_388 == 0) +{ +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; +x_389 = lean_ctor_get(x_338, 1); +lean_inc(x_389); +x_390 = lean_ctor_get(x_338, 2); +lean_inc(x_390); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_391 = x_338; +} else { + lean_dec_ref(x_338); + x_391 = lean_box(0); +} +x_392 = lean_ctor_get(x_381, 0); +lean_inc(x_392); +x_393 = lean_ctor_get(x_381, 1); +lean_inc(x_393); +x_394 = lean_ctor_get(x_381, 2); +lean_inc(x_394); +x_395 = lean_ctor_get(x_381, 3); +lean_inc(x_395); +if (lean_is_exclusive(x_381)) { + lean_ctor_release(x_381, 0); + lean_ctor_release(x_381, 1); + lean_ctor_release(x_381, 2); + lean_ctor_release(x_381, 3); + x_396 = x_381; +} else { + lean_dec_ref(x_381); + x_396 = lean_box(0); +} +lean_inc(x_339); +if (lean_is_scalar(x_396)) { + x_397 = lean_alloc_ctor(1, 4, 1); +} else { + x_397 = x_396; +} +lean_ctor_set(x_397, 0, x_325); +lean_ctor_set(x_397, 1, x_326); +lean_ctor_set(x_397, 2, x_327); +lean_ctor_set(x_397, 3, x_339); +if (lean_is_exclusive(x_339)) { + lean_ctor_release(x_339, 0); + lean_ctor_release(x_339, 1); + lean_ctor_release(x_339, 2); + lean_ctor_release(x_339, 3); + x_398 = x_339; +} else { + lean_dec_ref(x_339); + x_398 = lean_box(0); +} +lean_ctor_set_uint8(x_397, sizeof(void*)*4, x_367); +if (lean_is_scalar(x_398)) { + x_399 = lean_alloc_ctor(1, 4, 1); +} else { + x_399 = x_398; +} +lean_ctor_set(x_399, 0, x_392); +lean_ctor_set(x_399, 1, x_393); +lean_ctor_set(x_399, 2, x_394); +lean_ctor_set(x_399, 3, x_395); +lean_ctor_set_uint8(x_399, sizeof(void*)*4, x_367); +if (lean_is_scalar(x_391)) { + x_400 = lean_alloc_ctor(1, 4, 1); +} else { + x_400 = x_391; +} +lean_ctor_set(x_400, 0, x_397); +lean_ctor_set(x_400, 1, x_389); +lean_ctor_set(x_400, 2, x_390); +lean_ctor_set(x_400, 3, x_399); +lean_ctor_set_uint8(x_400, sizeof(void*)*4, x_388); +return x_400; +} +else +{ +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; uint8_t x_410; lean_object* x_411; lean_object* x_412; +x_401 = lean_ctor_get(x_338, 1); +lean_inc(x_401); +x_402 = lean_ctor_get(x_338, 2); +lean_inc(x_402); +if (lean_is_exclusive(x_338)) { + lean_ctor_release(x_338, 0); + lean_ctor_release(x_338, 1); + lean_ctor_release(x_338, 2); + lean_ctor_release(x_338, 3); + x_403 = x_338; +} else { + lean_dec_ref(x_338); + x_403 = lean_box(0); +} +x_404 = lean_ctor_get(x_339, 0); +lean_inc(x_404); +x_405 = lean_ctor_get(x_339, 1); +lean_inc(x_405); +x_406 = lean_ctor_get(x_339, 2); +lean_inc(x_406); +x_407 = lean_ctor_get(x_339, 3); +lean_inc(x_407); +if (lean_is_exclusive(x_339)) { + lean_ctor_release(x_339, 0); + lean_ctor_release(x_339, 1); + lean_ctor_release(x_339, 2); + lean_ctor_release(x_339, 3); + x_408 = x_339; +} else { + lean_dec_ref(x_339); + x_408 = lean_box(0); +} +if (lean_is_scalar(x_408)) { + x_409 = lean_alloc_ctor(1, 4, 1); +} else { + x_409 = x_408; +} +lean_ctor_set(x_409, 0, x_404); +lean_ctor_set(x_409, 1, x_405); +lean_ctor_set(x_409, 2, x_406); +lean_ctor_set(x_409, 3, x_407); +lean_ctor_set_uint8(x_409, sizeof(void*)*4, x_388); +x_410 = 0; +if (lean_is_scalar(x_403)) { + x_411 = lean_alloc_ctor(1, 4, 1); +} else { + x_411 = x_403; +} +lean_ctor_set(x_411, 0, x_409); +lean_ctor_set(x_411, 1, x_401); +lean_ctor_set(x_411, 2, x_402); +lean_ctor_set(x_411, 3, x_381); +lean_ctor_set_uint8(x_411, sizeof(void*)*4, x_410); +x_412 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_412, 0, x_325); +lean_ctor_set(x_412, 1, x_326); +lean_ctor_set(x_412, 2, x_327); +lean_ctor_set(x_412, 3, x_411); +lean_ctor_set_uint8(x_412, sizeof(void*)*4, x_388); +return x_412; +} +} +} +} +} +} +} +else +{ +uint8_t x_413; +x_413 = l_RBNode_isRed___rarg(x_325); +if (x_413 == 0) +{ +lean_object* x_414; lean_object* x_415; +x_414 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg(x_325, x_2, x_3); +x_415 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_415, 0, x_414); +lean_ctor_set(x_415, 1, x_326); +lean_ctor_set(x_415, 2, x_327); +lean_ctor_set(x_415, 3, x_328); +lean_ctor_set_uint8(x_415, sizeof(void*)*4, x_7); +return x_415; +} +else +{ +lean_object* x_416; lean_object* x_417; +x_416 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg(x_325, x_2, x_3); +x_417 = lean_ctor_get(x_416, 0); +lean_inc(x_417); +if (lean_obj_tag(x_417) == 0) +{ +lean_object* x_418; +x_418 = lean_ctor_get(x_416, 3); +lean_inc(x_418); +if (lean_obj_tag(x_418) == 0) +{ +lean_object* x_419; lean_object* x_420; lean_object* x_421; uint8_t x_422; lean_object* x_423; uint8_t x_424; lean_object* x_425; +x_419 = lean_ctor_get(x_416, 1); +lean_inc(x_419); +x_420 = lean_ctor_get(x_416, 2); +lean_inc(x_420); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_421 = x_416; +} else { + lean_dec_ref(x_416); + x_421 = lean_box(0); +} +x_422 = 0; +if (lean_is_scalar(x_421)) { + x_423 = lean_alloc_ctor(1, 4, 1); +} else { + x_423 = x_421; +} +lean_ctor_set(x_423, 0, x_418); +lean_ctor_set(x_423, 1, x_419); +lean_ctor_set(x_423, 2, x_420); +lean_ctor_set(x_423, 3, x_418); +lean_ctor_set_uint8(x_423, sizeof(void*)*4, x_422); +x_424 = 1; +x_425 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_425, 0, x_423); +lean_ctor_set(x_425, 1, x_326); +lean_ctor_set(x_425, 2, x_327); +lean_ctor_set(x_425, 3, x_328); +lean_ctor_set_uint8(x_425, sizeof(void*)*4, x_424); +return x_425; +} +else +{ +uint8_t x_426; +x_426 = lean_ctor_get_uint8(x_418, sizeof(void*)*4); +if (x_426 == 0) +{ +lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; lean_object* x_431; lean_object* x_432; lean_object* x_433; lean_object* x_434; uint8_t x_435; lean_object* x_436; lean_object* x_437; lean_object* x_438; +x_427 = lean_ctor_get(x_416, 1); +lean_inc(x_427); +x_428 = lean_ctor_get(x_416, 2); +lean_inc(x_428); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_429 = x_416; +} else { + lean_dec_ref(x_416); + x_429 = lean_box(0); +} +x_430 = lean_ctor_get(x_418, 0); +lean_inc(x_430); +x_431 = lean_ctor_get(x_418, 1); +lean_inc(x_431); +x_432 = lean_ctor_get(x_418, 2); +lean_inc(x_432); +x_433 = lean_ctor_get(x_418, 3); +lean_inc(x_433); +if (lean_is_exclusive(x_418)) { + lean_ctor_release(x_418, 0); + lean_ctor_release(x_418, 1); + lean_ctor_release(x_418, 2); + lean_ctor_release(x_418, 3); + x_434 = x_418; +} else { + lean_dec_ref(x_418); + x_434 = lean_box(0); +} +x_435 = 1; +if (lean_is_scalar(x_434)) { + x_436 = lean_alloc_ctor(1, 4, 1); +} else { + x_436 = x_434; +} +lean_ctor_set(x_436, 0, x_417); +lean_ctor_set(x_436, 1, x_427); +lean_ctor_set(x_436, 2, x_428); +lean_ctor_set(x_436, 3, x_430); +lean_ctor_set_uint8(x_436, sizeof(void*)*4, x_435); +if (lean_is_scalar(x_429)) { + x_437 = lean_alloc_ctor(1, 4, 1); +} else { + x_437 = x_429; +} +lean_ctor_set(x_437, 0, x_433); +lean_ctor_set(x_437, 1, x_326); +lean_ctor_set(x_437, 2, x_327); +lean_ctor_set(x_437, 3, x_328); +lean_ctor_set_uint8(x_437, sizeof(void*)*4, x_435); +x_438 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_438, 0, x_436); +lean_ctor_set(x_438, 1, x_431); +lean_ctor_set(x_438, 2, x_432); +lean_ctor_set(x_438, 3, x_437); +lean_ctor_set_uint8(x_438, sizeof(void*)*4, x_426); +return x_438; +} +else +{ +lean_object* x_439; lean_object* x_440; lean_object* x_441; uint8_t x_442; lean_object* x_443; lean_object* x_444; +x_439 = lean_ctor_get(x_416, 1); +lean_inc(x_439); +x_440 = lean_ctor_get(x_416, 2); +lean_inc(x_440); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_441 = x_416; +} else { + lean_dec_ref(x_416); + x_441 = lean_box(0); +} +x_442 = 0; +if (lean_is_scalar(x_441)) { + x_443 = lean_alloc_ctor(1, 4, 1); +} else { + x_443 = x_441; +} +lean_ctor_set(x_443, 0, x_417); +lean_ctor_set(x_443, 1, x_439); +lean_ctor_set(x_443, 2, x_440); +lean_ctor_set(x_443, 3, x_418); +lean_ctor_set_uint8(x_443, sizeof(void*)*4, x_442); +x_444 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_444, 0, x_443); +lean_ctor_set(x_444, 1, x_326); +lean_ctor_set(x_444, 2, x_327); +lean_ctor_set(x_444, 3, x_328); +lean_ctor_set_uint8(x_444, sizeof(void*)*4, x_426); +return x_444; +} +} +} +else +{ +uint8_t x_445; +x_445 = lean_ctor_get_uint8(x_417, sizeof(void*)*4); +if (x_445 == 0) +{ +lean_object* x_446; lean_object* x_447; lean_object* x_448; lean_object* x_449; lean_object* x_450; lean_object* x_451; lean_object* x_452; lean_object* x_453; lean_object* x_454; uint8_t x_455; lean_object* x_456; lean_object* x_457; lean_object* x_458; +x_446 = lean_ctor_get(x_416, 1); +lean_inc(x_446); +x_447 = lean_ctor_get(x_416, 2); +lean_inc(x_447); +x_448 = lean_ctor_get(x_416, 3); +lean_inc(x_448); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_449 = x_416; +} else { + lean_dec_ref(x_416); + x_449 = lean_box(0); +} +x_450 = lean_ctor_get(x_417, 0); +lean_inc(x_450); +x_451 = lean_ctor_get(x_417, 1); +lean_inc(x_451); +x_452 = lean_ctor_get(x_417, 2); +lean_inc(x_452); +x_453 = lean_ctor_get(x_417, 3); +lean_inc(x_453); +if (lean_is_exclusive(x_417)) { + lean_ctor_release(x_417, 0); + lean_ctor_release(x_417, 1); + lean_ctor_release(x_417, 2); + lean_ctor_release(x_417, 3); + x_454 = x_417; +} else { + lean_dec_ref(x_417); + x_454 = lean_box(0); +} +x_455 = 1; +if (lean_is_scalar(x_454)) { + x_456 = lean_alloc_ctor(1, 4, 1); +} else { + x_456 = x_454; +} +lean_ctor_set(x_456, 0, x_450); +lean_ctor_set(x_456, 1, x_451); +lean_ctor_set(x_456, 2, x_452); +lean_ctor_set(x_456, 3, x_453); +lean_ctor_set_uint8(x_456, sizeof(void*)*4, x_455); +if (lean_is_scalar(x_449)) { + x_457 = lean_alloc_ctor(1, 4, 1); +} else { + x_457 = x_449; +} +lean_ctor_set(x_457, 0, x_448); +lean_ctor_set(x_457, 1, x_326); +lean_ctor_set(x_457, 2, x_327); +lean_ctor_set(x_457, 3, x_328); +lean_ctor_set_uint8(x_457, sizeof(void*)*4, x_455); +x_458 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_458, 0, x_456); +lean_ctor_set(x_458, 1, x_446); +lean_ctor_set(x_458, 2, x_447); +lean_ctor_set(x_458, 3, x_457); +lean_ctor_set_uint8(x_458, sizeof(void*)*4, x_445); +return x_458; +} +else +{ +lean_object* x_459; +x_459 = lean_ctor_get(x_416, 3); +lean_inc(x_459); +if (lean_obj_tag(x_459) == 0) +{ +lean_object* x_460; lean_object* x_461; lean_object* x_462; uint8_t x_463; lean_object* x_464; lean_object* x_465; +x_460 = lean_ctor_get(x_416, 1); +lean_inc(x_460); +x_461 = lean_ctor_get(x_416, 2); +lean_inc(x_461); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_462 = x_416; +} else { + lean_dec_ref(x_416); + x_462 = lean_box(0); +} +x_463 = 0; +if (lean_is_scalar(x_462)) { + x_464 = lean_alloc_ctor(1, 4, 1); +} else { + x_464 = x_462; +} +lean_ctor_set(x_464, 0, x_417); +lean_ctor_set(x_464, 1, x_460); +lean_ctor_set(x_464, 2, x_461); +lean_ctor_set(x_464, 3, x_459); +lean_ctor_set_uint8(x_464, sizeof(void*)*4, x_463); +x_465 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_465, 0, x_464); +lean_ctor_set(x_465, 1, x_326); +lean_ctor_set(x_465, 2, x_327); +lean_ctor_set(x_465, 3, x_328); +lean_ctor_set_uint8(x_465, sizeof(void*)*4, x_445); +return x_465; +} +else +{ +uint8_t x_466; +x_466 = lean_ctor_get_uint8(x_459, sizeof(void*)*4); +if (x_466 == 0) +{ +lean_object* x_467; lean_object* x_468; lean_object* x_469; lean_object* x_470; lean_object* x_471; lean_object* x_472; lean_object* x_473; lean_object* x_474; lean_object* x_475; lean_object* x_476; lean_object* x_477; lean_object* x_478; +x_467 = lean_ctor_get(x_416, 1); +lean_inc(x_467); +x_468 = lean_ctor_get(x_416, 2); +lean_inc(x_468); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_469 = x_416; +} else { + lean_dec_ref(x_416); + x_469 = lean_box(0); +} +x_470 = lean_ctor_get(x_459, 0); +lean_inc(x_470); +x_471 = lean_ctor_get(x_459, 1); +lean_inc(x_471); +x_472 = lean_ctor_get(x_459, 2); +lean_inc(x_472); +x_473 = lean_ctor_get(x_459, 3); +lean_inc(x_473); +if (lean_is_exclusive(x_459)) { + lean_ctor_release(x_459, 0); + lean_ctor_release(x_459, 1); + lean_ctor_release(x_459, 2); + lean_ctor_release(x_459, 3); + x_474 = x_459; +} else { + lean_dec_ref(x_459); + x_474 = lean_box(0); +} +lean_inc(x_417); +if (lean_is_scalar(x_474)) { + x_475 = lean_alloc_ctor(1, 4, 1); +} else { + x_475 = x_474; +} +lean_ctor_set(x_475, 0, x_417); +lean_ctor_set(x_475, 1, x_467); +lean_ctor_set(x_475, 2, x_468); +lean_ctor_set(x_475, 3, x_470); +if (lean_is_exclusive(x_417)) { + lean_ctor_release(x_417, 0); + lean_ctor_release(x_417, 1); + lean_ctor_release(x_417, 2); + lean_ctor_release(x_417, 3); + x_476 = x_417; +} else { + lean_dec_ref(x_417); + x_476 = lean_box(0); +} +lean_ctor_set_uint8(x_475, sizeof(void*)*4, x_445); +if (lean_is_scalar(x_476)) { + x_477 = lean_alloc_ctor(1, 4, 1); +} else { + x_477 = x_476; +} +lean_ctor_set(x_477, 0, x_473); +lean_ctor_set(x_477, 1, x_326); +lean_ctor_set(x_477, 2, x_327); +lean_ctor_set(x_477, 3, x_328); +lean_ctor_set_uint8(x_477, sizeof(void*)*4, x_445); +if (lean_is_scalar(x_469)) { + x_478 = lean_alloc_ctor(1, 4, 1); +} else { + x_478 = x_469; +} +lean_ctor_set(x_478, 0, x_475); +lean_ctor_set(x_478, 1, x_471); +lean_ctor_set(x_478, 2, x_472); +lean_ctor_set(x_478, 3, x_477); +lean_ctor_set_uint8(x_478, sizeof(void*)*4, x_466); +return x_478; +} +else +{ +lean_object* x_479; lean_object* x_480; lean_object* x_481; lean_object* x_482; lean_object* x_483; lean_object* x_484; lean_object* x_485; lean_object* x_486; lean_object* x_487; uint8_t x_488; lean_object* x_489; lean_object* x_490; +x_479 = lean_ctor_get(x_416, 1); +lean_inc(x_479); +x_480 = lean_ctor_get(x_416, 2); +lean_inc(x_480); +if (lean_is_exclusive(x_416)) { + lean_ctor_release(x_416, 0); + lean_ctor_release(x_416, 1); + lean_ctor_release(x_416, 2); + lean_ctor_release(x_416, 3); + x_481 = x_416; +} else { + lean_dec_ref(x_416); + x_481 = lean_box(0); +} +x_482 = lean_ctor_get(x_417, 0); +lean_inc(x_482); +x_483 = lean_ctor_get(x_417, 1); +lean_inc(x_483); +x_484 = lean_ctor_get(x_417, 2); +lean_inc(x_484); +x_485 = lean_ctor_get(x_417, 3); +lean_inc(x_485); +if (lean_is_exclusive(x_417)) { + lean_ctor_release(x_417, 0); + lean_ctor_release(x_417, 1); + lean_ctor_release(x_417, 2); + lean_ctor_release(x_417, 3); + x_486 = x_417; +} else { + lean_dec_ref(x_417); + x_486 = lean_box(0); +} +if (lean_is_scalar(x_486)) { + x_487 = lean_alloc_ctor(1, 4, 1); +} else { + x_487 = x_486; +} +lean_ctor_set(x_487, 0, x_482); +lean_ctor_set(x_487, 1, x_483); +lean_ctor_set(x_487, 2, x_484); +lean_ctor_set(x_487, 3, x_485); +lean_ctor_set_uint8(x_487, sizeof(void*)*4, x_466); +x_488 = 0; +if (lean_is_scalar(x_481)) { + x_489 = lean_alloc_ctor(1, 4, 1); +} else { + x_489 = x_481; +} +lean_ctor_set(x_489, 0, x_487); +lean_ctor_set(x_489, 1, x_479); +lean_ctor_set(x_489, 2, x_480); +lean_ctor_set(x_489, 3, x_459); +lean_ctor_set_uint8(x_489, sizeof(void*)*4, x_488); +x_490 = lean_alloc_ctor(1, 4, 1); +lean_ctor_set(x_490, 0, x_489); +lean_ctor_set(x_490, 1, x_326); +lean_ctor_set(x_490, 2, x_327); +lean_ctor_set(x_490, 3, x_328); +lean_ctor_set_uint8(x_490, sizeof(void*)*4, x_466); +return x_490; +} +} +} +} +} +} +} +} +} +} +} +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__5___rarg(lean_object* x_1, uint32_t x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = l_RBNode_isRed___rarg(x_1); +if (x_4 == 0) +{ +lean_object* x_5; +x_5 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg(x_1, x_2, x_3); +return x_5; +} +else +{ +lean_object* x_6; lean_object* x_7; +x_6 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg(x_1, x_2, x_3); +x_7 = l_RBNode_setBlack___rarg(x_6); +return x_7; +} +} +} +lean_object* l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__5(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__5___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; +x_5 = !lean_is_exclusive(x_3); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; uint8_t x_8; +x_6 = lean_ctor_get(x_3, 0); +x_7 = lean_ctor_get(x_3, 1); +x_8 = lean_string_utf8_at_end(x_1, x_4); +if (x_8 == 0) +{ +uint32_t x_9; lean_object* x_10; lean_object* x_11; +x_9 = lean_string_utf8_get(x_1, x_4); +x_10 = lean_string_utf8_next(x_1, x_4); +lean_inc(x_7); +x_11 = l_RBNode_find___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__1___rarg(x_7, x_9); +if (lean_obj_tag(x_11) == 0) +{ +lean_object* x_12; lean_object* x_13; +x_12 = l___private_Init_Lean_Data_Trie_1__insertEmptyAux___main___rarg(x_1, x_2, x_10); +lean_dec(x_10); +x_13 = l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__2___rarg(x_7, x_9, x_12); +lean_ctor_set(x_3, 1, x_13); +return x_3; +} +else +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_14 = lean_ctor_get(x_11, 0); +lean_inc(x_14); +lean_dec(x_11); +x_15 = l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg(x_1, x_2, x_14, x_10); +lean_dec(x_10); +x_16 = l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__5___rarg(x_7, x_9, x_15); +lean_ctor_set(x_3, 1, x_16); +return x_3; +} +} +else +{ +lean_object* x_17; +lean_dec(x_6); +x_17 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_17, 0, x_2); +lean_ctor_set(x_3, 0, x_17); +return x_3; +} +} +else +{ +lean_object* x_18; lean_object* x_19; uint8_t x_20; +x_18 = lean_ctor_get(x_3, 0); +x_19 = lean_ctor_get(x_3, 1); +lean_inc(x_19); +lean_inc(x_18); +lean_dec(x_3); +x_20 = lean_string_utf8_at_end(x_1, x_4); +if (x_20 == 0) +{ +uint32_t x_21; lean_object* x_22; lean_object* x_23; +x_21 = lean_string_utf8_get(x_1, x_4); +x_22 = lean_string_utf8_next(x_1, x_4); +lean_inc(x_19); +x_23 = l_RBNode_find___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__1___rarg(x_19, x_21); +if (lean_obj_tag(x_23) == 0) +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_24 = l___private_Init_Lean_Data_Trie_1__insertEmptyAux___main___rarg(x_1, x_2, x_22); +lean_dec(x_22); +x_25 = l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__2___rarg(x_19, x_21, x_24); +x_26 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_26, 0, x_18); +lean_ctor_set(x_26, 1, x_25); +return x_26; +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_27 = lean_ctor_get(x_23, 0); +lean_inc(x_27); +lean_dec(x_23); +x_28 = l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg(x_1, x_2, x_27, x_22); +lean_dec(x_22); +x_29 = l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__5___rarg(x_19, x_21, x_28); +x_30 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_30, 0, x_18); +lean_ctor_set(x_30, 1, x_29); +return x_30; +} +} +else +{ +lean_object* x_31; lean_object* x_32; +lean_dec(x_18); +x_31 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_31, 0, x_2); +x_32 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_32, 0, x_31); +lean_ctor_set(x_32, 1, x_19); +return x_32; +} +} +} +} +lean_object* l___private_Init_Lean_Data_Trie_2__insertAux___main(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg___boxed), 4, 0); +return x_2; +} +} +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint32_t x_3; lean_object* x_4; +x_3 = lean_unbox_uint32(x_2); +lean_dec(x_2); +x_4 = l_RBNode_find___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__1___rarg(x_1, x_3); +return x_4; +} +} +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint32_t x_4; lean_object* x_5; +x_4 = lean_unbox_uint32(x_2); +lean_dec(x_2); +x_5 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__3___rarg(x_1, x_4, x_3); +return x_5; +} +} +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint32_t x_4; lean_object* x_5; +x_4 = lean_unbox_uint32(x_2); +lean_dec(x_2); +x_5 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__4___rarg(x_1, x_4, x_3); +return x_5; +} +} +lean_object* l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__2___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint32_t x_4; lean_object* x_5; +x_4 = lean_unbox_uint32(x_2); +lean_dec(x_2); +x_5 = l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__2___rarg(x_1, x_4, x_3); +return x_5; +} +} +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint32_t x_4; lean_object* x_5; +x_4 = lean_unbox_uint32(x_2); +lean_dec(x_2); +x_5 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__6___rarg(x_1, x_4, x_3); +return x_5; +} +} +lean_object* l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint32_t x_4; lean_object* x_5; +x_4 = lean_unbox_uint32(x_2); +lean_dec(x_2); +x_5 = l_RBNode_ins___main___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__7___rarg(x_1, x_4, x_3); +return x_5; +} +} +lean_object* l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__5___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint32_t x_4; lean_object* x_5; +x_4 = lean_unbox_uint32(x_2); +lean_dec(x_2); +x_5 = l_RBNode_insert___at___private_Init_Lean_Data_Trie_2__insertAux___main___spec__5___rarg(x_1, x_4, x_3); +return x_5; +} +} +lean_object* l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg(x_1, x_2, x_3, x_4); +lean_dec(x_4); +lean_dec(x_1); +return x_5; +} +} +lean_object* l___private_Init_Lean_Data_Trie_2__insertAux___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg(x_1, x_2, x_3, x_4); +return x_5; +} +} +lean_object* l___private_Init_Lean_Data_Trie_2__insertAux(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Data_Trie_2__insertAux___rarg___boxed), 4, 0); +return x_2; +} +} +lean_object* l___private_Init_Lean_Data_Trie_2__insertAux___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l___private_Init_Lean_Data_Trie_2__insertAux___rarg(x_1, x_2, x_3, x_4); +lean_dec(x_4); +lean_dec(x_1); +return x_5; +} +} +lean_object* l_Lean_Parser_Trie_insert___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_unsigned_to_nat(0u); +x_5 = l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg(x_2, x_3, x_1, x_4); +return x_5; +} +} +lean_object* l_Lean_Parser_Trie_insert(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Parser_Trie_insert___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l_Lean_Parser_Trie_insert___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Parser_Trie_insert___rarg(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_3__findAux___main___spec__1___rarg(lean_object* x_1, uint32_t x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; uint32_t x_8; uint8_t x_9; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_1, 1); +lean_inc(x_5); +x_6 = lean_ctor_get(x_1, 2); +lean_inc(x_6); +x_7 = lean_ctor_get(x_1, 3); +lean_inc(x_7); +lean_dec(x_1); +x_8 = lean_unbox_uint32(x_5); +x_9 = x_2 < x_8; +if (x_9 == 0) +{ +uint32_t x_10; uint8_t x_11; +lean_dec(x_4); +x_10 = lean_unbox_uint32(x_5); +lean_dec(x_5); +x_11 = x_10 < x_2; +if (x_11 == 0) +{ +lean_object* x_12; +lean_dec(x_7); +x_12 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_12, 0, x_6); +return x_12; +} +else +{ +lean_dec(x_6); +x_1 = x_7; +goto _start; +} +} +else +{ +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +x_1 = x_4; +goto _start; +} +} +} +} +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_3__findAux___main___spec__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_RBNode_find___main___at___private_Init_Lean_Data_Trie_3__findAux___main___spec__1___rarg___boxed), 2, 0); +return x_2; +} +} +lean_object* l___private_Init_Lean_Data_Trie_3__findAux___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; uint8_t x_6; +x_4 = lean_ctor_get(x_2, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_2, 1); +lean_inc(x_5); +lean_dec(x_2); +x_6 = lean_string_utf8_at_end(x_1, x_3); +if (x_6 == 0) +{ +uint32_t x_7; lean_object* x_8; lean_object* x_9; +lean_dec(x_4); +x_7 = lean_string_utf8_get(x_1, x_3); +x_8 = lean_string_utf8_next(x_1, x_3); +lean_dec(x_3); +x_9 = l_RBNode_find___main___at___private_Init_Lean_Data_Trie_3__findAux___main___spec__1___rarg(x_5, x_7); +if (lean_obj_tag(x_9) == 0) +{ +lean_object* x_10; +lean_dec(x_8); +x_10 = lean_box(0); +return x_10; +} +else +{ +lean_object* x_11; +x_11 = lean_ctor_get(x_9, 0); +lean_inc(x_11); +lean_dec(x_9); +x_2 = x_11; +x_3 = x_8; +goto _start; +} +} +else +{ +lean_dec(x_5); +lean_dec(x_3); +return x_4; +} +} +} +lean_object* l___private_Init_Lean_Data_Trie_3__findAux___main(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Data_Trie_3__findAux___main___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_3__findAux___main___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint32_t x_3; lean_object* x_4; +x_3 = lean_unbox_uint32(x_2); +lean_dec(x_2); +x_4 = l_RBNode_find___main___at___private_Init_Lean_Data_Trie_3__findAux___main___spec__1___rarg(x_1, x_3); +return x_4; +} +} +lean_object* l___private_Init_Lean_Data_Trie_3__findAux___main___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_Lean_Data_Trie_3__findAux___main___rarg(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l___private_Init_Lean_Data_Trie_3__findAux___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_Lean_Data_Trie_3__findAux___main___rarg(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l___private_Init_Lean_Data_Trie_3__findAux(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Data_Trie_3__findAux___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l___private_Init_Lean_Data_Trie_3__findAux___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_Lean_Data_Trie_3__findAux___rarg(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Lean_Parser_Trie_find___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; +x_3 = lean_unsigned_to_nat(0u); +x_4 = l___private_Init_Lean_Data_Trie_3__findAux___main___rarg(x_2, x_1, x_3); +return x_4; +} +} +lean_object* l_Lean_Parser_Trie_find(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Parser_Trie_find___rarg___boxed), 2, 0); +return x_2; +} +} +lean_object* l_Lean_Parser_Trie_find___rarg___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Parser_Trie_find___rarg(x_1, x_2); +lean_dec(x_2); +return x_3; +} +} +lean_object* l___private_Init_Lean_Data_Trie_4__updtAcc___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_dec(x_2); +lean_inc(x_3); +return x_3; +} +else +{ +lean_object* x_4; +x_4 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_4, 0, x_2); +lean_ctor_set(x_4, 1, x_1); +return x_4; +} +} +} +lean_object* l___private_Init_Lean_Data_Trie_4__updtAcc(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Data_Trie_4__updtAcc___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l___private_Init_Lean_Data_Trie_4__updtAcc___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_Lean_Data_Trie_4__updtAcc___rarg(x_1, x_2, x_3); +lean_dec(x_3); +return x_4; +} +} +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_5__matchPrefixAux___main___spec__1___rarg(lean_object* x_1, uint32_t x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_3; +x_3 = lean_box(0); +return x_3; +} +else +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; uint32_t x_8; uint8_t x_9; +x_4 = lean_ctor_get(x_1, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_1, 1); +lean_inc(x_5); +x_6 = lean_ctor_get(x_1, 2); +lean_inc(x_6); +x_7 = lean_ctor_get(x_1, 3); +lean_inc(x_7); +lean_dec(x_1); +x_8 = lean_unbox_uint32(x_5); +x_9 = x_2 < x_8; +if (x_9 == 0) +{ +uint32_t x_10; uint8_t x_11; +lean_dec(x_4); +x_10 = lean_unbox_uint32(x_5); +lean_dec(x_5); +x_11 = x_10 < x_2; +if (x_11 == 0) +{ +lean_object* x_12; +lean_dec(x_7); +x_12 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_12, 0, x_6); +return x_12; +} +else +{ +lean_dec(x_6); +x_1 = x_7; +goto _start; +} +} +else +{ +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +x_1 = x_4; +goto _start; +} +} +} +} +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_5__matchPrefixAux___main___spec__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_RBNode_find___main___at___private_Init_Lean_Data_Trie_5__matchPrefixAux___main___spec__1___rarg___boxed), 2, 0); +return x_2; +} +} +lean_object* l___private_Init_Lean_Data_Trie_5__matchPrefixAux___main___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; uint8_t x_7; +x_5 = lean_ctor_get(x_2, 0); +lean_inc(x_5); +x_6 = lean_ctor_get(x_2, 1); +lean_inc(x_6); +lean_dec(x_2); +x_7 = lean_string_utf8_at_end(x_1, x_3); +if (x_7 == 0) +{ +lean_object* x_8; uint32_t x_9; lean_object* x_10; lean_object* x_11; +lean_inc(x_3); +x_8 = l___private_Init_Lean_Data_Trie_4__updtAcc___rarg(x_5, x_3, x_4); +lean_dec(x_4); +x_9 = lean_string_utf8_get(x_1, x_3); +x_10 = lean_string_utf8_next(x_1, x_3); +lean_dec(x_3); +x_11 = l_RBNode_find___main___at___private_Init_Lean_Data_Trie_5__matchPrefixAux___main___spec__1___rarg(x_6, x_9); +if (lean_obj_tag(x_11) == 0) +{ +lean_dec(x_10); +return x_8; +} +else +{ +lean_object* x_12; +x_12 = lean_ctor_get(x_11, 0); +lean_inc(x_12); +lean_dec(x_11); +x_2 = x_12; +x_3 = x_10; +x_4 = x_8; +goto _start; +} +} +else +{ +lean_object* x_14; +lean_dec(x_6); +x_14 = l___private_Init_Lean_Data_Trie_4__updtAcc___rarg(x_5, x_3, x_4); +lean_dec(x_4); +return x_14; +} +} +} +lean_object* l___private_Init_Lean_Data_Trie_5__matchPrefixAux___main(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Data_Trie_5__matchPrefixAux___main___rarg___boxed), 4, 0); +return x_2; +} +} +lean_object* l_RBNode_find___main___at___private_Init_Lean_Data_Trie_5__matchPrefixAux___main___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint32_t x_3; lean_object* x_4; +x_3 = lean_unbox_uint32(x_2); +lean_dec(x_2); +x_4 = l_RBNode_find___main___at___private_Init_Lean_Data_Trie_5__matchPrefixAux___main___spec__1___rarg(x_1, x_3); +return x_4; +} +} +lean_object* l___private_Init_Lean_Data_Trie_5__matchPrefixAux___main___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l___private_Init_Lean_Data_Trie_5__matchPrefixAux___main___rarg(x_1, x_2, x_3, x_4); +lean_dec(x_1); +return x_5; +} +} +lean_object* l___private_Init_Lean_Data_Trie_5__matchPrefixAux___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l___private_Init_Lean_Data_Trie_5__matchPrefixAux___main___rarg(x_1, x_2, x_3, x_4); +return x_5; +} +} +lean_object* l___private_Init_Lean_Data_Trie_5__matchPrefixAux(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Data_Trie_5__matchPrefixAux___rarg___boxed), 4, 0); +return x_2; +} +} +lean_object* l___private_Init_Lean_Data_Trie_5__matchPrefixAux___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l___private_Init_Lean_Data_Trie_5__matchPrefixAux___rarg(x_1, x_2, x_3, x_4); +lean_dec(x_1); +return x_5; +} +} +lean_object* l_Lean_Parser_Trie_matchPrefix___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = lean_box(0); +lean_inc(x_3); +x_5 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_5, 0, x_3); +lean_ctor_set(x_5, 1, x_4); +x_6 = l___private_Init_Lean_Data_Trie_5__matchPrefixAux___main___rarg(x_1, x_2, x_3, x_5); +return x_6; +} +} +lean_object* l_Lean_Parser_Trie_matchPrefix(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Parser_Trie_matchPrefix___rarg___boxed), 3, 0); +return x_2; +} +} +lean_object* l_Lean_Parser_Trie_matchPrefix___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Parser_Trie_matchPrefix___rarg(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Lean_Format_joinSep___main___at___private_Init_Lean_Data_Trie_6__toStringAux___main___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_3; +lean_dec(x_2); +x_3 = lean_box(0); +return x_3; +} +else +{ +lean_object* x_4; +x_4 = lean_ctor_get(x_1, 1); +if (lean_obj_tag(x_4) == 0) +{ +lean_object* x_5; +lean_dec(x_2); +x_5 = lean_ctor_get(x_1, 0); +lean_inc(x_5); +return x_5; +} +else +{ +lean_object* x_6; uint8_t x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_6 = lean_ctor_get(x_1, 0); +x_7 = 0; +lean_inc(x_2); +lean_inc(x_6); +x_8 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_8, 0, x_6); +lean_ctor_set(x_8, 1, x_2); +lean_ctor_set_uint8(x_8, sizeof(void*)*2, x_7); +x_9 = l_Lean_Format_joinSep___main___at___private_Init_Lean_Data_Trie_6__toStringAux___main___spec__1(x_4, x_2); +x_10 = lean_alloc_ctor(4, 2, 1); +lean_ctor_set(x_10, 0, x_8); +lean_ctor_set(x_10, 1, x_9); +lean_ctor_set_uint8(x_10, sizeof(void*)*2, x_7); +return x_10; +} +} +} +} +lean_object* l_RBNode_fold___main___at___private_Init_Lean_Data_Trie_6__toStringAux___main___spec__2___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +return x_1; +} +else +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; uint32_t x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_3 = lean_ctor_get(x_2, 0); +lean_inc(x_3); +x_4 = lean_ctor_get(x_2, 1); +lean_inc(x_4); +x_5 = lean_ctor_get(x_2, 2); +lean_inc(x_5); +x_6 = lean_ctor_get(x_2, 3); +lean_inc(x_6); +lean_dec(x_2); +x_7 = l_RBNode_fold___main___at___private_Init_Lean_Data_Trie_6__toStringAux___main___spec__2___rarg(x_1, x_3); +x_8 = lean_unbox_uint32(x_4); +lean_dec(x_4); +x_9 = l_Char_quoteCore(x_8); +x_10 = l_Char_HasRepr___closed__1; +x_11 = lean_string_append(x_10, x_9); +lean_dec(x_9); +x_12 = lean_string_append(x_11, x_10); +x_13 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_13, 0, x_12); +x_14 = l___private_Init_Lean_Data_Trie_6__toStringAux___main___rarg(x_5); +x_15 = lean_box(1); +x_16 = l_Lean_Format_joinSep___main___at___private_Init_Lean_Data_Trie_6__toStringAux___main___spec__1(x_14, x_15); +lean_dec(x_14); +x_17 = lean_unsigned_to_nat(2u); +x_18 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_18, 0, x_17); +lean_ctor_set(x_18, 1, x_16); +x_19 = lean_format_group(x_18); +x_20 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_20, 0, x_19); +lean_ctor_set(x_20, 1, x_7); +x_21 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_21, 0, x_13); +lean_ctor_set(x_21, 1, x_20); +x_1 = x_21; +x_2 = x_6; +goto _start; +} +} +} +lean_object* l_RBNode_fold___main___at___private_Init_Lean_Data_Trie_6__toStringAux___main___spec__2(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_RBNode_fold___main___at___private_Init_Lean_Data_Trie_6__toStringAux___main___spec__2___rarg), 2, 0); +return x_2; +} +} +lean_object* l___private_Init_Lean_Data_Trie_6__toStringAux___main___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = lean_ctor_get(x_1, 1); +lean_inc(x_2); +lean_dec(x_1); +x_3 = lean_box(0); +x_4 = l_RBNode_fold___main___at___private_Init_Lean_Data_Trie_6__toStringAux___main___spec__2___rarg(x_3, x_2); +return x_4; +} +} +lean_object* l___private_Init_Lean_Data_Trie_6__toStringAux___main(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Data_Trie_6__toStringAux___main___rarg), 1, 0); +return x_2; +} +} +lean_object* l_Lean_Format_joinSep___main___at___private_Init_Lean_Data_Trie_6__toStringAux___main___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Format_joinSep___main___at___private_Init_Lean_Data_Trie_6__toStringAux___main___spec__1(x_1, x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l___private_Init_Lean_Data_Trie_6__toStringAux___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l___private_Init_Lean_Data_Trie_6__toStringAux___main___rarg(x_1); +return x_2; +} +} +lean_object* l___private_Init_Lean_Data_Trie_6__toStringAux(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Data_Trie_6__toStringAux___rarg), 1, 0); +return x_2; +} +} +lean_object* l_Lean_Parser_Trie_HasToString___rarg(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_2 = l___private_Init_Lean_Data_Trie_6__toStringAux___main___rarg(x_1); +x_3 = lean_box(1); +x_4 = l_Lean_Format_joinSep___main___at___private_Init_Lean_Data_Trie_6__toStringAux___main___spec__1(x_2, x_3); +lean_dec(x_2); +x_5 = l_Lean_Options_empty; +x_6 = l_Lean_Format_pretty(x_4, x_5); +return x_6; +} +} +lean_object* l_Lean_Parser_Trie_HasToString(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Parser_Trie_HasToString___rarg), 1, 0); +return x_2; +} +} +lean_object* initialize_Init_Data_RBMap(lean_object*); +lean_object* initialize_Init_Lean_Data_Format(lean_object*); +static bool _G_initialized = false; +lean_object* initialize_Init_Lean_Data_Trie(lean_object* w) { +lean_object * res; +if (_G_initialized) return lean_mk_io_result(lean_box(0)); +_G_initialized = true; +res = initialize_Init_Data_RBMap(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Lean_Data_Format(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Parser_Trie_empty___closed__1 = _init_l_Lean_Parser_Trie_empty___closed__1(); +lean_mark_persistent(l_Lean_Parser_Trie_empty___closed__1); +l_Lean_Parser_Trie_HasEmptyc___closed__1 = _init_l_Lean_Parser_Trie_HasEmptyc___closed__1(); +lean_mark_persistent(l_Lean_Parser_Trie_HasEmptyc___closed__1); +return lean_mk_io_result(lean_box(0)); +} +#ifdef __cplusplus +} +#endif diff --git a/stage0/stdlib/Init/Lean/Elaborator/Basic.c b/stage0/stdlib/Init/Lean/Elaborator/Basic.c index 108bd04ceb..79c4d4e6d7 100644 --- a/stage0/stdlib/Init/Lean/Elaborator/Basic.c +++ b/stage0/stdlib/Init/Lean/Elaborator/Basic.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Elaborator.Basic -// Imports: Init.Control.Reader Init.Lean.MetavarContext Init.Lean.NameGenerator Init.Lean.Scopes Init.Lean.Parser.Module +// Imports: Init.Control.Reader Init.Lean.MetavarContext Init.Lean.Scopes Init.Lean.Parser.Module #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -310,7 +310,6 @@ lean_object* l_PersistentHashMap_insertAtCollisionNodeAux___main___at_Lean_addBu lean_object* l_Lean_registerBuiltinCommandElabAttr___closed__2; extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__1; lean_object* l_Lean_registerBuiltinCommandElabAttr___closed__1; -lean_object* l_Lean_mkCAppN(lean_object*, lean_object*); uint8_t l_HashMapImp_contains___at_Lean_addBuiltinCommandElab___spec__2(lean_object*, lean_object*); lean_object* l_Lean_Elab_withInPattern(lean_object*); lean_object* l_Lean_addBuiltinCommandElab(lean_object*, lean_object*, lean_object*, lean_object*); @@ -425,6 +424,7 @@ extern lean_object* l_System_FilePath_dirName___closed__1; lean_object* l_Lean_Elab_runIO___rarg(lean_object*); lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Inhabited(lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); lean_object* l_Lean_registerBuiltinTermElabAttr___closed__5; lean_object* l_AssocList_foldlM___main___at_Lean_addBuiltinCommandElab___spec__14(lean_object*, lean_object*); @@ -3863,70 +3863,72 @@ return x_1; lean_object* l_Lean_declareBuiltinElab(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { -lean_object* x_6; lean_object* x_7; lean_object* x_8; 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; uint8_t x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; uint8_t x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; x_6 = l_Lean_declareBuiltinElab___closed__2; lean_inc(x_4); x_7 = l_Lean_Name_append___main(x_6, x_4); x_8 = lean_box(0); -x_9 = l_Lean_nameToExprAux___main(x_3); +x_9 = l_Lean_mkConst(x_2, x_8); +x_10 = l_Lean_nameToExprAux___main(x_3); lean_inc(x_4); -x_10 = l_Lean_nameToExprAux___main(x_4); +x_11 = l_Lean_nameToExprAux___main(x_4); lean_inc(x_4); -x_11 = l_Lean_mkConst(x_4, x_8); -x_12 = l_Lean_Parser_declareBuiltinParser___closed__8; -x_13 = lean_array_push(x_12, x_9); +x_12 = l_Lean_mkConst(x_4, x_8); +x_13 = l_Lean_Parser_declareBuiltinParser___closed__8; x_14 = lean_array_push(x_13, x_10); x_15 = lean_array_push(x_14, x_11); -x_16 = l_Lean_mkCAppN(x_2, x_15); -lean_dec(x_15); -x_17 = l_Lean_Parser_declareBuiltinParser___closed__7; +x_16 = lean_array_push(x_15, x_12); +x_17 = lean_unsigned_to_nat(0u); +x_18 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_16, x_16, x_17, x_9); +lean_dec(x_16); +x_19 = l_Lean_Parser_declareBuiltinParser___closed__7; lean_inc(x_7); -x_18 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_18, 0, x_7); -lean_ctor_set(x_18, 1, x_8); -lean_ctor_set(x_18, 2, x_17); -x_19 = lean_box(0); -x_20 = 0; -x_21 = lean_alloc_ctor(0, 3, 1); -lean_ctor_set(x_21, 0, x_18); -lean_ctor_set(x_21, 1, x_16); -lean_ctor_set(x_21, 2, x_19); -lean_ctor_set_uint8(x_21, sizeof(void*)*3, x_20); -x_22 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_22, 0, x_21); -x_23 = l_Lean_Options_empty; -x_24 = l_Lean_Environment_addAndCompile(x_1, x_23, x_22); -lean_dec(x_22); -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; +x_20 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_20, 0, x_7); +lean_ctor_set(x_20, 1, x_8); +lean_ctor_set(x_20, 2, x_19); +x_21 = lean_box(0); +x_22 = 0; +x_23 = lean_alloc_ctor(0, 3, 1); +lean_ctor_set(x_23, 0, x_20); +lean_ctor_set(x_23, 1, x_18); +lean_ctor_set(x_23, 2, x_21); +lean_ctor_set_uint8(x_23, sizeof(void*)*3, x_22); +x_24 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_24, 0, x_23); +x_25 = l_Lean_Options_empty; +x_26 = l_Lean_Environment_addAndCompile(x_1, x_25, x_24); lean_dec(x_24); -lean_dec(x_7); -x_25 = l_System_FilePath_dirName___closed__1; -x_26 = l_Lean_Name_toStringWithSep___main(x_25, x_4); -x_27 = l_Lean_declareBuiltinElab___closed__3; -x_28 = lean_string_append(x_27, x_26); +if (lean_obj_tag(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_dec(x_26); -x_29 = l_Char_HasRepr___closed__1; -x_30 = lean_string_append(x_28, x_29); -x_31 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_31, 0, x_30); -lean_ctor_set(x_31, 1, x_5); -return x_31; +lean_dec(x_7); +x_27 = l_System_FilePath_dirName___closed__1; +x_28 = l_Lean_Name_toStringWithSep___main(x_27, x_4); +x_29 = l_Lean_declareBuiltinElab___closed__3; +x_30 = lean_string_append(x_29, x_28); +lean_dec(x_28); +x_31 = l_Char_HasRepr___closed__1; +x_32 = lean_string_append(x_30, x_31); +x_33 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_33, 0, x_32); +lean_ctor_set(x_33, 1, x_5); +return x_33; } else { -lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; +lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_dec(x_4); -x_32 = lean_ctor_get(x_24, 0); -lean_inc(x_32); -lean_dec(x_24); -x_33 = l_Lean_initAttr; -x_34 = lean_box(0); -x_35 = l_Lean_ParametricAttribute_setParam___rarg(x_33, x_32, x_7, x_34); -x_36 = l_IO_ofExcept___at_Lean_Parser_declareBuiltinParser___spec__1(x_35, x_5); -lean_dec(x_35); -return x_36; +x_34 = lean_ctor_get(x_26, 0); +lean_inc(x_34); +lean_dec(x_26); +x_35 = l_Lean_initAttr; +x_36 = lean_box(0); +x_37 = l_Lean_ParametricAttribute_setParam___rarg(x_35, x_34, x_7, x_36); +x_38 = l_IO_ofExcept___at_Lean_Parser_declareBuiltinParser___spec__1(x_37, x_5); +lean_dec(x_37); +return x_38; } } } @@ -13201,7 +13203,6 @@ return x_4; } lean_object* initialize_Init_Control_Reader(lean_object*); lean_object* initialize_Init_Lean_MetavarContext(lean_object*); -lean_object* initialize_Init_Lean_NameGenerator(lean_object*); lean_object* initialize_Init_Lean_Scopes(lean_object*); lean_object* initialize_Init_Lean_Parser_Module(lean_object*); static bool _G_initialized = false; @@ -13215,9 +13216,6 @@ lean_dec_ref(res); res = initialize_Init_Lean_MetavarContext(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_NameGenerator(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); res = initialize_Init_Lean_Scopes(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); diff --git a/stage0/stdlib/Init/Lean/Environment.c b/stage0/stdlib/Init/Lean/Environment.c index a9ce8a10eb..ed81e9b925 100644 --- a/stage0/stdlib/Init/Lean/Environment.c +++ b/stage0/stdlib/Init/Lean/Environment.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Environment -// Imports: Init.System.IO Init.Util Init.Data.ByteArray Init.Lean.Declaration Init.Lean.SMap Init.Lean.Path Init.Lean.LocalContext +// Imports: Init.System.IO Init.Util Init.Data.ByteArray Init.Lean.Data.SMap Init.Lean.Declaration Init.Lean.Path Init.Lean.LocalContext #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -12115,8 +12115,8 @@ return x_2; lean_object* initialize_Init_System_IO(lean_object*); lean_object* initialize_Init_Util(lean_object*); lean_object* initialize_Init_Data_ByteArray(lean_object*); +lean_object* initialize_Init_Lean_Data_SMap(lean_object*); lean_object* initialize_Init_Lean_Declaration(lean_object*); -lean_object* initialize_Init_Lean_SMap(lean_object*); lean_object* initialize_Init_Lean_Path(lean_object*); lean_object* initialize_Init_Lean_LocalContext(lean_object*); static bool _G_initialized = false; @@ -12133,10 +12133,10 @@ lean_dec_ref(res); res = initialize_Init_Data_ByteArray(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_Declaration(lean_io_mk_world()); +res = initialize_Init_Lean_Data_SMap(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_SMap(lean_io_mk_world()); +res = initialize_Init_Lean_Declaration(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); res = initialize_Init_Lean_Path(lean_io_mk_world()); diff --git a/stage0/stdlib/Init/Lean/Expr.c b/stage0/stdlib/Init/Lean/Expr.c index c8b552fa38..aef5f1b0e7 100644 --- a/stage0/stdlib/Init/Lean/Expr.c +++ b/stage0/stdlib/Init/Lean/Expr.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Expr -// Imports: Init.Lean.Level Init.Lean.KVMap Init.Data.HashMap Init.Data.HashSet Init.Data.PersistentHashMap Init.Data.PersistentHashSet +// Imports: Init.Data.HashMap Init.Data.HashSet Init.Data.PersistentHashMap Init.Data.PersistentHashSet Init.Lean.Data.KVMap Init.Lean.Level #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -40,6 +40,7 @@ lean_object* l_Lean_mkDecIsTrue___closed__3; lean_object* l_unreachable_x21___rarg(lean_object*); lean_object* l_Lean_Expr_withApp(lean_object*); size_t l_UInt32_toUSize(uint32_t); +lean_object* l_Lean_mkApp6(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_eqv___boxed(lean_object*, lean_object*); uint8_t l_Lean_Expr_isMData(lean_object*); lean_object* l_Lean_Expr_withAppAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*); @@ -84,7 +85,6 @@ lean_object* l_Lean_Expr_getAppFn___main___boxed(lean_object*); lean_object* l_Lean_Expr_constName_x21___closed__1; extern lean_object* l_Lean_Level_mkData___closed__1; lean_object* l_Lean_Expr_mvarId_x21___closed__1; -lean_object* l_Lean_mkCAppB(lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Level_hasMVar(lean_object*); lean_object* l_Lean_Expr_constName_x21___boxed(lean_object*); lean_object* l_Lean_Expr_withAppRev___rarg(lean_object*, lean_object*); @@ -118,6 +118,7 @@ lean_object* l_List_map___main___rarg(lean_object*, lean_object*); lean_object* l_Nat_max(lean_object*, lean_object*); lean_object* l_Lean_Expr_getAppFn___main(lean_object*); extern lean_object* l_Lean_Name_inhabited; +extern lean_object* l_Lean_Level_Inhabited; lean_object* l_Lean_Expr_getRevArgD(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Expr_11__getParamSubst___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_getAppArgs___closed__1; @@ -191,6 +192,7 @@ lean_object* l_Lean_Expr_updateApp___boxed(lean_object*, lean_object*, lean_obje lean_object* l_Lean_ExprStructEq_beq___boxed(lean_object*, lean_object*); lean_object* l_Lean_Expr_updateSort_x21(lean_object*, lean_object*); uint8_t lean_expr_has_expr_mvar(lean_object*); +extern lean_object* l_List_Monad; lean_object* l_Lean_Literal_type___closed__6; lean_object* l___private_Init_Lean_Expr_2__mkAppRangeAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Expr_hasLevelParam(lean_object*); @@ -235,7 +237,6 @@ lean_object* l_Lean_Expr_hasMVarEx___boxed(lean_object*); lean_object* l_Lean_mkAppRange___boxed(lean_object*, lean_object*, lean_object*, lean_object*); extern uint64_t l_UInt64_Inhabited; lean_object* l_Lean_Expr_fvarId_x21___boxed(lean_object*); -lean_object* l_Lean_mkCAppN___boxed(lean_object*, lean_object*); lean_object* l_Lean_Literal_inhabited; lean_object* l_Lean_Expr_fvarId_x21___closed__1; lean_object* lean_expr_mk_bvar(lean_object*); @@ -250,7 +251,6 @@ lean_object* l_Lean_Expr_bindingDomain_x21___closed__1; lean_object* l_Lean_Expr_InstantiateLevelParams_instantiate(lean_object*, lean_object*); lean_object* lean_expr_mk_const(lean_object*, lean_object*); lean_object* l_Lean_mkAppRange(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_mkCApp(lean_object*, lean_object*); lean_object* l_Lean_Literal_type___closed__4; lean_object* l_Lean_mkDecIsTrue___closed__4; lean_object* lean_expr_mk_lit(lean_object*); @@ -302,6 +302,7 @@ size_t l_Lean_ExprStructEq_hash(lean_object*); lean_object* l_Lean_Level_instantiateParams___main(lean_object*, lean_object*); uint8_t l_Lean_Expr_isLambda(lean_object*); lean_object* l_Lean_Expr_updateSort_x21___closed__2; +lean_object* l_Lean_mkApp9(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_data___boxed(lean_object*); lean_object* lean_expr_update_proj(lean_object*, lean_object*); lean_object* l_Lean_ExprStructEq_HasToString(lean_object*); @@ -322,7 +323,6 @@ lean_object* l_Lean_Expr_updateProj_x21___closed__1; uint8_t l_Lean_BinderInfo_inhabited; lean_object* lean_level_update_imax(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Expr_2__mkAppRangeAux(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_mkCAppN(lean_object*, lean_object*); lean_object* l_Lean_Expr_HasRepr; lean_object* l_Lean_Expr_isProj___boxed(lean_object*); lean_object* l_Lean_Expr_updateLambda_x21___closed__2; @@ -352,6 +352,7 @@ lean_object* l_Lean_Expr_getRevArg_x21___main(lean_object*, lean_object*); lean_object* l_Lean_Expr_hasAnyFVar(lean_object*, lean_object*); lean_object* l_Lean_Expr_hasMVar___boxed(lean_object*); lean_object* l_Lean_mkForall___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Expr_constLevels_x21___closed__2; lean_object* l_Lean_mkApp(lean_object*, lean_object*); lean_object* l_Lean_Expr_getAppNumArgsAux___boxed(lean_object*, lean_object*); size_t l_Lean_Literal_hash(lean_object*); @@ -360,6 +361,7 @@ uint8_t l_Lean_Expr_hasMVar(lean_object*); lean_object* l_Lean_Expr_betaRev(lean_object*, lean_object*); lean_object* l_Lean_BinderInfo_isInstImplicit___boxed(lean_object*); lean_object* l_Lean_Expr_getRevArg_x21___main___boxed(lean_object*, lean_object*); +lean_object* l_Lean_mkApp5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_Data_looseBVarRange___boxed(lean_object*); lean_object* l_Lean_mkAppRev(lean_object*, lean_object*); lean_object* l_Lean_Expr_InstantiateLevelParams_visit(lean_object*, lean_object*); @@ -377,6 +379,7 @@ uint64_t l_UInt64_shiftLeft(uint64_t, uint64_t); lean_object* l_Lean_Expr_binderInfo___boxed(lean_object*); lean_object* l_Lean_Literal_lt___boxed(lean_object*, lean_object*); lean_object* l_Lean_Expr_updateFn___main(lean_object*, lean_object*); +lean_object* l_Lean_mkApp7(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_updateLambda_x21___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_expr_mk_proj(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_appFn_x21___closed__2; @@ -390,6 +393,7 @@ lean_object* l_Lean_Expr_dbgToString___boxed(lean_object*); lean_object* l_Lean_Expr_isForall___boxed(lean_object*); lean_object* l_Lean_Expr_isMData___boxed(lean_object*); lean_object* l_Lean_Expr_bvarIdx_x21___boxed(lean_object*); +lean_object* l_Lean_mkApp4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_withAppRev(lean_object*); lean_object* l_Lean_Expr_quickLt___boxed(lean_object*, lean_object*); uint64_t l_UInt32_toUInt64(uint32_t); @@ -429,6 +433,7 @@ uint8_t l_Lean_Expr_binderInfo(lean_object*); size_t lean_usize_mix_hash(size_t, size_t); lean_object* lean_expr_abstract(lean_object*, lean_object*); lean_object* l_Lean_Expr_getArg_x21(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkApp2(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_InstantiateLevelParams_instantiate___main___at_Lean_Expr_instantiateLevelParams___spec__1___boxed(lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Expr_Data_hasBeq(uint64_t, uint64_t); uint32_t lean_expr_loose_bvar_range(lean_object*); @@ -469,8 +474,10 @@ extern lean_object* l_List_get_x21___main___rarg___closed__2; lean_object* l___private_Init_Lean_Expr_7__betaRevAux(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkAppB(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_getRevArgD___main(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkApp10(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Expr_isApp___boxed(lean_object*); lean_object* l_Lean_Expr_HasBeq; +lean_object* l_Lean_mkApp8(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkBVar(lean_object*); uint8_t l_Lean_Expr_hasFVar(lean_object*); lean_object* lean_expr_mk_lambda(lean_object*, lean_object*, lean_object*, uint8_t); @@ -499,6 +506,7 @@ size_t lean_string_hash(lean_object*); lean_object* l___private_Init_Lean_Expr_1__Expr_mkDataCore___boxed__const__1; lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_mkAppRev___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkLocal___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkApp3(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Expr_isSort(lean_object*); uint8_t l_Lean_Expr_isLet(lean_object*); uint8_t lean_string_dec_lt(lean_object*, lean_object*); @@ -510,6 +518,7 @@ uint8_t lean_string_dec_eq(lean_object*, lean_object*); uint32_t l_Lean_Expr_Data_looseBVarRange(uint64_t); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); uint64_t l_Lean_Expr_mkData(size_t, lean_object*, uint8_t, uint8_t, uint8_t, uint8_t); +lean_object* l_monadInhabited___rarg(lean_object*, lean_object*); lean_object* l_Lean_ExprStructEq_HasBeq; uint8_t lean_expr_has_level_param(lean_object*); lean_object* _init_l_Lean_Literal_inhabited___closed__1() { @@ -4377,16 +4386,6 @@ x_6 = lean_expr_mk_local(x_1, x_2, x_3, x_5); return x_6; } } -lean_object* l_Lean_mkCApp(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; lean_object* x_4; lean_object* x_5; -x_3 = lean_box(0); -x_4 = l_Lean_mkConst(x_1, x_3); -x_5 = l_Lean_mkApp(x_4, x_2); -return x_5; -} -} lean_object* l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -5420,7 +5419,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(476u); +x_2 = lean_unsigned_to_nat(473u); x_3 = lean_unsigned_to_nat(20u); x_4 = l_List_get_x21___main___rarg___closed__2; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -5674,7 +5673,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(496u); +x_2 = lean_unsigned_to_nat(493u); x_3 = lean_unsigned_to_nat(15u); x_4 = l_Lean_Expr_appFn_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -5715,7 +5714,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(500u); +x_2 = lean_unsigned_to_nat(497u); x_3 = lean_unsigned_to_nat(15u); x_4 = l_Lean_Expr_appFn_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -5764,7 +5763,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(504u); +x_2 = lean_unsigned_to_nat(501u); x_3 = lean_unsigned_to_nat(17u); x_4 = l_Lean_Expr_constName_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -5803,9 +5802,19 @@ return x_2; lean_object* _init_l_Lean_Expr_constLevels_x21___closed__1() { _start: { +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_List_Monad; +x_2 = l_Lean_Level_Inhabited; +x_3 = l_monadInhabited___rarg(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Expr_constLevels_x21___closed__2() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(508u); +x_2 = lean_unsigned_to_nat(505u); x_3 = lean_unsigned_to_nat(18u); x_4 = l_Lean_Expr_constName_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -5825,8 +5834,8 @@ return x_2; else { lean_object* x_3; lean_object* x_4; lean_object* x_5; -x_3 = lean_box(0); -x_4 = l_Lean_Expr_constLevels_x21___closed__1; +x_3 = l_Lean_Expr_constLevels_x21___closed__1; +x_4 = l_Lean_Expr_constLevels_x21___closed__2; x_5 = lean_panic_fn(x_4); return x_5; } @@ -5854,7 +5863,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(512u); +x_2 = lean_unsigned_to_nat(509u); x_3 = lean_unsigned_to_nat(16u); x_4 = l_Lean_Expr_bvarIdx_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -5903,7 +5912,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(516u); +x_2 = lean_unsigned_to_nat(513u); x_3 = lean_unsigned_to_nat(14u); x_4 = l_Lean_Expr_fvarId_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -5952,7 +5961,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(520u); +x_2 = lean_unsigned_to_nat(517u); x_3 = lean_unsigned_to_nat(14u); x_4 = l_Lean_Expr_mvarId_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -6001,7 +6010,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(525u); +x_2 = lean_unsigned_to_nat(522u); x_3 = lean_unsigned_to_nat(21u); x_4 = l_Lean_Expr_bindingName_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -6051,7 +6060,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(530u); +x_2 = lean_unsigned_to_nat(527u); x_3 = lean_unsigned_to_nat(21u); x_4 = l_Lean_Expr_bindingName_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -6101,7 +6110,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(535u); +x_2 = lean_unsigned_to_nat(532u); x_3 = lean_unsigned_to_nat(21u); x_4 = l_Lean_Expr_bindingName_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -6159,7 +6168,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(539u); +x_2 = lean_unsigned_to_nat(536u); x_3 = lean_unsigned_to_nat(20u); x_4 = l_Lean_Expr_letName_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -6324,26 +6333,6 @@ x_1 = l_Lean_Expr_HasToString___closed__1; return x_1; } } -lean_object* l_Lean_mkCAppN(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; -x_3 = lean_box(0); -x_4 = l_Lean_mkConst(x_1, x_3); -x_5 = lean_unsigned_to_nat(0u); -x_6 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_2, x_2, x_5, x_4); -return x_6; -} -} -lean_object* l_Lean_mkCAppN___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_Lean_mkCAppN(x_1, x_2); -lean_dec(x_2); -return x_3; -} -} lean_object* l_Lean_mkAppB(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -6353,16 +6342,86 @@ x_5 = l_Lean_mkApp(x_4, x_3); return x_5; } } -lean_object* l_Lean_mkCAppB(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_mkApp2(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_4; lean_object* x_5; lean_object* x_6; -x_4 = lean_box(0); -x_5 = l_Lean_mkConst(x_1, x_4); -x_6 = l_Lean_mkAppB(x_5, x_2, x_3); +lean_object* x_4; +x_4 = l_Lean_mkAppB(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l_Lean_mkApp3(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; +x_5 = l_Lean_mkAppB(x_1, x_2, x_3); +x_6 = l_Lean_mkApp(x_5, x_4); return x_6; } } +lean_object* l_Lean_mkApp4(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; +x_6 = l_Lean_mkAppB(x_1, x_2, x_3); +x_7 = l_Lean_mkAppB(x_6, x_4, x_5); +return x_7; +} +} +lean_object* l_Lean_mkApp5(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: +{ +lean_object* x_7; lean_object* x_8; +x_7 = l_Lean_mkApp4(x_1, x_2, x_3, x_4, x_5); +x_8 = l_Lean_mkApp(x_7, x_6); +return x_8; +} +} +lean_object* l_Lean_mkApp6(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) { +_start: +{ +lean_object* x_8; lean_object* x_9; +x_8 = l_Lean_mkApp4(x_1, x_2, x_3, x_4, x_5); +x_9 = l_Lean_mkAppB(x_8, x_6, x_7); +return x_9; +} +} +lean_object* l_Lean_mkApp7(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; +x_9 = l_Lean_mkApp4(x_1, x_2, x_3, x_4, x_5); +x_10 = l_Lean_mkApp3(x_9, x_6, x_7, x_8); +return x_10; +} +} +lean_object* l_Lean_mkApp8(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9) { +_start: +{ +lean_object* x_10; lean_object* x_11; +x_10 = l_Lean_mkApp4(x_1, x_2, x_3, x_4, x_5); +x_11 = l_Lean_mkApp4(x_10, x_6, x_7, x_8, x_9); +return x_11; +} +} +lean_object* l_Lean_mkApp9(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10) { +_start: +{ +lean_object* x_11; lean_object* x_12; +x_11 = l_Lean_mkApp4(x_1, x_2, x_3, x_4, x_5); +x_12 = l_Lean_mkApp5(x_11, x_6, x_7, x_8, x_9, x_10); +return x_12; +} +} +lean_object* l_Lean_mkApp10(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) { +_start: +{ +lean_object* x_12; lean_object* x_13; +x_12 = l_Lean_mkApp4(x_1, x_2, x_3, x_4, x_5); +x_13 = l_Lean_mkApp6(x_12, x_6, x_7, x_8, x_9, x_10, x_11); +return x_13; +} +} lean_object* _init_l_Lean_mkDecIsTrue___closed__1() { _start: { @@ -7190,7 +7249,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(727u); +x_2 = lean_unsigned_to_nat(726u); x_3 = lean_unsigned_to_nat(18u); x_4 = l_Lean_Expr_appFn_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -7232,7 +7291,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(736u); +x_2 = lean_unsigned_to_nat(735u); x_3 = lean_unsigned_to_nat(18u); x_4 = l_Lean_Expr_constName_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -7281,7 +7340,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(745u); +x_2 = lean_unsigned_to_nat(744u); x_3 = lean_unsigned_to_nat(14u); x_4 = l_Lean_Expr_updateSort_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -7338,7 +7397,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(762u); +x_2 = lean_unsigned_to_nat(761u); x_3 = lean_unsigned_to_nat(17u); x_4 = l_Lean_Expr_updateMData_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -7379,7 +7438,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(767u); +x_2 = lean_unsigned_to_nat(766u); x_3 = lean_unsigned_to_nat(18u); x_4 = l_Lean_Expr_updateProj_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -7430,7 +7489,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(776u); +x_2 = lean_unsigned_to_nat(775u); x_3 = lean_unsigned_to_nat(21u); x_4 = l_Lean_Expr_updateForall_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -7474,7 +7533,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(781u); +x_2 = lean_unsigned_to_nat(780u); x_3 = lean_unsigned_to_nat(21u); x_4 = l_Lean_Expr_updateForall_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -7528,7 +7587,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(790u); +x_2 = lean_unsigned_to_nat(789u); x_3 = lean_unsigned_to_nat(17u); x_4 = l_Lean_Expr_updateLambda_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -7572,7 +7631,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(795u); +x_2 = lean_unsigned_to_nat(794u); x_3 = lean_unsigned_to_nat(17u); x_4 = l_Lean_Expr_updateLambda_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -7616,7 +7675,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_1 = l___private_Init_Lean_Expr_1__Expr_mkDataCore___closed__1; -x_2 = lean_unsigned_to_nat(804u); +x_2 = lean_unsigned_to_nat(803u); x_3 = lean_unsigned_to_nat(20u); x_4 = l_Lean_Expr_letName_x21___closed__1; x_5 = l___private_Init_Util_1__mkPanicMessage(x_1, x_2, x_3, x_4); @@ -9434,23 +9493,17 @@ lean_dec(x_2); return x_4; } } -lean_object* initialize_Init_Lean_Level(lean_object*); -lean_object* initialize_Init_Lean_KVMap(lean_object*); lean_object* initialize_Init_Data_HashMap(lean_object*); lean_object* initialize_Init_Data_HashSet(lean_object*); lean_object* initialize_Init_Data_PersistentHashMap(lean_object*); lean_object* initialize_Init_Data_PersistentHashSet(lean_object*); +lean_object* initialize_Init_Lean_Data_KVMap(lean_object*); +lean_object* initialize_Init_Lean_Level(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Expr(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; -res = initialize_Init_Lean_Level(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); -res = initialize_Init_Lean_KVMap(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); res = initialize_Init_Data_HashMap(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); @@ -9463,6 +9516,12 @@ lean_dec_ref(res); res = initialize_Init_Data_PersistentHashSet(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Init_Lean_Data_KVMap(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Lean_Level(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); l_Lean_Literal_inhabited___closed__1 = _init_l_Lean_Literal_inhabited___closed__1(); lean_mark_persistent(l_Lean_Literal_inhabited___closed__1); l_Lean_Literal_inhabited = _init_l_Lean_Literal_inhabited(); @@ -9549,6 +9608,8 @@ l_Lean_Expr_constName_x21___closed__2 = _init_l_Lean_Expr_constName_x21___closed lean_mark_persistent(l_Lean_Expr_constName_x21___closed__2); l_Lean_Expr_constLevels_x21___closed__1 = _init_l_Lean_Expr_constLevels_x21___closed__1(); lean_mark_persistent(l_Lean_Expr_constLevels_x21___closed__1); +l_Lean_Expr_constLevels_x21___closed__2 = _init_l_Lean_Expr_constLevels_x21___closed__2(); +lean_mark_persistent(l_Lean_Expr_constLevels_x21___closed__2); l_Lean_Expr_bvarIdx_x21___closed__1 = _init_l_Lean_Expr_bvarIdx_x21___closed__1(); lean_mark_persistent(l_Lean_Expr_bvarIdx_x21___closed__1); l_Lean_Expr_bvarIdx_x21___closed__2 = _init_l_Lean_Expr_bvarIdx_x21___closed__2(); diff --git a/stage0/stdlib/Init/Lean/Level.c b/stage0/stdlib/Init/Lean/Level.c index f34deea62d..5cd93fb53c 100644 --- a/stage0/stdlib/Init/Lean/Level.c +++ b/stage0/stdlib/Init/Lean/Level.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Level -// Imports: Init.Data.Option.Basic Init.Data.HashMap Init.Data.PersistentHashMap Init.Lean.Name Init.Lean.Format +// Imports: Init.Data.Option.Basic Init.Data.HashMap Init.Data.PersistentHashMap Init.Lean.Data.Name Init.Lean.Data.Format #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -4078,8 +4078,8 @@ return x_2; lean_object* initialize_Init_Data_Option_Basic(lean_object*); lean_object* initialize_Init_Data_HashMap(lean_object*); lean_object* initialize_Init_Data_PersistentHashMap(lean_object*); -lean_object* initialize_Init_Lean_Name(lean_object*); -lean_object* initialize_Init_Lean_Format(lean_object*); +lean_object* initialize_Init_Lean_Data_Name(lean_object*); +lean_object* initialize_Init_Lean_Data_Format(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Level(lean_object* w) { lean_object * res; @@ -4094,10 +4094,10 @@ lean_dec_ref(res); res = initialize_Init_Data_PersistentHashMap(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_Name(lean_io_mk_world()); +res = initialize_Init_Lean_Data_Name(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_Format(lean_io_mk_world()); +res = initialize_Init_Lean_Data_Format(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); l_Lean_Level_Data_inhabited = _init_l_Lean_Level_Data_inhabited(); diff --git a/stage0/stdlib/Init/Lean/Message.c b/stage0/stdlib/Init/Lean/Message.c index e549e50a27..8ad1ecfaeb 100644 --- a/stage0/stdlib/Init/Lean/Message.c +++ b/stage0/stdlib/Init/Lean/Message.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Message -// Imports: Init.Data.ToString Init.Lean.Position Init.Lean.Syntax Init.Lean.MetavarContext Init.Lean.Environment +// Imports: Init.Data.ToString Init.Lean.Data.Position Init.Lean.Syntax Init.Lean.MetavarContext Init.Lean.Environment #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -939,7 +939,7 @@ return x_2; } } lean_object* initialize_Init_Data_ToString(lean_object*); -lean_object* initialize_Init_Lean_Position(lean_object*); +lean_object* initialize_Init_Lean_Data_Position(lean_object*); lean_object* initialize_Init_Lean_Syntax(lean_object*); lean_object* initialize_Init_Lean_MetavarContext(lean_object*); lean_object* initialize_Init_Lean_Environment(lean_object*); @@ -951,7 +951,7 @@ _G_initialized = true; res = initialize_Init_Data_ToString(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_Position(lean_io_mk_world()); +res = initialize_Init_Lean_Data_Position(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); res = initialize_Init_Lean_Syntax(lean_io_mk_world()); diff --git a/stage0/stdlib/Init/Lean/Meta.c b/stage0/stdlib/Init/Lean/Meta.c index 279f7fd058..1c9c6bf3d2 100644 --- a/stage0/stdlib/Init/Lean/Meta.c +++ b/stage0/stdlib/Init/Lean/Meta.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Meta -// Imports: Init.Lean.Meta.Basic Init.Lean.Meta.LevelDefEq Init.Lean.Meta.WHNF Init.Lean.Meta.InferType Init.Lean.Meta.FunInfo Init.Lean.Meta.ExprDefEq Init.Lean.Meta.DiscrTree Init.Lean.Meta.Reduce Init.Lean.Meta.Instances Init.Lean.Meta.AbstractMVars Init.Lean.Meta.SynthInstance +// Imports: Init.Lean.Meta.Basic Init.Lean.Meta.LevelDefEq Init.Lean.Meta.WHNF Init.Lean.Meta.InferType Init.Lean.Meta.FunInfo Init.Lean.Meta.ExprDefEq Init.Lean.Meta.DiscrTree Init.Lean.Meta.Reduce Init.Lean.Meta.Instances Init.Lean.Meta.AbstractMVars Init.Lean.Meta.SynthInstance Init.Lean.Meta.AppBuilder #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -24,6 +24,7 @@ lean_object* initialize_Init_Lean_Meta_Reduce(lean_object*); lean_object* initialize_Init_Lean_Meta_Instances(lean_object*); lean_object* initialize_Init_Lean_Meta_AbstractMVars(lean_object*); lean_object* initialize_Init_Lean_Meta_SynthInstance(lean_object*); +lean_object* initialize_Init_Lean_Meta_AppBuilder(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Meta(lean_object* w) { lean_object * res; @@ -62,6 +63,9 @@ lean_dec_ref(res); res = initialize_Init_Lean_Meta_SynthInstance(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Init_Lean_Meta_AppBuilder(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Init/Lean/Meta/AppBuilder.c b/stage0/stdlib/Init/Lean/Meta/AppBuilder.c index 2f6fa6e50e..854bdcd4d9 100644 --- a/stage0/stdlib/Init/Lean/Meta/AppBuilder.c +++ b/stage0/stdlib/Init/Lean/Meta/AppBuilder.c @@ -13,16 +13,120 @@ #ifdef __cplusplus extern "C" { #endif +lean_object* l_Lean_Expr_eq_x3f___closed__1; +lean_object* l_Lean_Expr_eq_x3f___closed__2; +lean_object* l_Lean_Expr_mvarId_x21(lean_object*); +lean_object* l_Lean_Expr_eq_x3f___boxed(lean_object*); +lean_object* l_Lean_Meta_mkHEqSymm___closed__2; +lean_object* lean_mk_empty_array_with_capacity(lean_object*); +lean_object* l_Lean_Meta_mkCongr___closed__1; +lean_object* l_Lean_mkApp6(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__3; +lean_object* l_Lean_Meta_mkHEqSymm___closed__1; +lean_object* l_Lean_Meta_mkEqSymm___closed__1; +lean_object* l_Lean_Meta_mkEqTrans___closed__3; +lean_object* l_Lean_Meta_mkAppM(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkCongr___closed__2; +extern lean_object* l_Array_empty___closed__1; +lean_object* l_Lean_Meta_mkCongr(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkCongrFun(lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l_Lean_Expr_isAppOf(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* lean_array_push(lean_object*, lean_object*); +lean_object* lean_array_get_size(lean_object*); +lean_object* l_Lean_Meta_mkCongrArg___closed__2; +lean_object* lean_nat_add(lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkEqRefl(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Expr_getAppNumArgsAux___main(lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_isLevelDefEqAux___main___closed__2; +lean_object* l_Lean_Meta_mkAppM___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_mkOptionalNode___rarg___closed__1; +lean_object* lean_array_fget(lean_object*, lean_object*); +lean_object* lean_expr_instantiate_rev_range(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main___closed__1; +uint8_t lean_nat_dec_eq(lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkCongrArg___closed__1; +lean_object* l_Lean_Meta_mkEqSymm___closed__2; +lean_object* l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_SimpleMonadTracerAdapter_isTracingEnabledFor___rarg___lambda__1___closed__2; +lean_object* lean_nat_sub(lean_object*, lean_object*); +lean_object* l_Lean_Name_append___main(lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkEqSymm(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_AppBuilder_1__infer(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkCongrArg___closed__3; +lean_object* l_Lean_Expr_heq_x3f___closed__2; +lean_object* l_Lean_Expr_heq_x3f(lean_object*); +lean_object* lean_instantiate_type_lparams(lean_object*, lean_object*); +lean_object* l_Array_forMAux___main___at___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkHEqRefl___closed__1; +lean_object* l_Lean_Expr_eq_x3f(lean_object*); +lean_object* l_Lean_Meta_mkEqTrans___closed__1; +lean_object* l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_name_mk_string(lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkEqTrans___closed__2; +lean_object* l_Lean_Meta_mkAppM___closed__2; +lean_object* l_Lean_Meta_mkCongrFun___closed__1; +lean_object* l_Lean_mkLambda(lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkCongrFun___closed__2; +lean_object* l_Lean_Meta_mkEqSymm___closed__3; +uint8_t l_Lean_Expr_isForall(lean_object*); +lean_object* l_Lean_Meta_mkEqRefl___closed__1; +lean_object* l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l_Lean_Expr_isAppOfArity___main(lean_object*, lean_object*, lean_object*); +uint8_t l_Lean_Expr_Data_binderInfo(uint64_t); +lean_object* l_Lean_Meta_mkEqRefl___closed__2; +lean_object* l_Lean_Expr_heq_x3f___closed__1; +lean_object* l_Lean_Expr_heq_x3f___boxed(lean_object*); +lean_object* l_Lean_ConstantInfo_lparams(lean_object*); +lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_synthInstance(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_hasAssignableMVar(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Trace_1__addNode___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__7(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Expr_arrow_x3f(lean_object*); +lean_object* l_List_mapM___main___at_Lean_Meta_mkAppM___spec__1(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Expr_getRevArg_x21___main(lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkFreshExprMVar(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_mkApp(lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkHEqSymm(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_whnfUsingDefault(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkApp5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkAppM___closed__1; +lean_object* l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_MetavarContext_incDepth(lean_object*); +lean_object* l_Lean_Meta_mkEqTrans(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkHEqTrans(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkApp4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getLevel(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkCongrArg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__1; +lean_object* l_List_mapM___main___at_Lean_Meta_mkAppM___spec__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_inferType(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_mkEq___closed__2; -lean_object* l_Lean_Meta_mkEq___closed__1; +lean_object* l_Lean_Meta_isExprDefEq(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_forMAux___main___at___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_getConstInfo(lean_object*, lean_object*, lean_object*); +uint8_t l_Lean_Expr_hasLooseBVars(lean_object*); +lean_object* l_Lean_Expr_arrow_x3f___boxed(lean_object*); +lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_instantiateMVars(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Trace_2__getResetTraces___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__6___rarg(lean_object*); +lean_object* l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkFreshLevelMVar___rarg(lean_object*); +extern lean_object* l_Lean_Meta_Exception_toMessageData___closed__68; +lean_object* l_Lean_Meta_mkHEq(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkHEqTrans___closed__1; +lean_object* l___private_Init_Lean_Trace_4__checkTraceOption___at_Lean_Meta_trace___spec__1(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_mkHEqRefl(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkEq(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkAppB(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkApp8(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkConst(lean_object*, lean_object*); -lean_object* _init_l_Lean_Meta_mkEq___closed__1() { +lean_object* l_Lean_Meta_mkCongrFun___closed__3; +lean_object* l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__2; +lean_object* l_Lean_mkApp3(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t lean_nat_dec_lt(lean_object*, lean_object*); +lean_object* _init_l_Lean_Expr_eq_x3f___closed__1() { _start: { lean_object* x_1; @@ -30,16 +134,194 @@ x_1 = lean_mk_string("Eq"); return x_1; } } -lean_object* _init_l_Lean_Meta_mkEq___closed__2() { +lean_object* _init_l_Lean_Expr_eq_x3f___closed__2() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); -x_2 = l_Lean_Meta_mkEq___closed__1; +x_2 = l_Lean_Expr_eq_x3f___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } +lean_object* l_Lean_Expr_eq_x3f(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; uint8_t x_4; +x_2 = l_Lean_Expr_eq_x3f___closed__2; +x_3 = lean_unsigned_to_nat(3u); +x_4 = l_Lean_Expr_isAppOfArity___main(x_1, x_2, x_3); +if (x_4 == 0) +{ +lean_object* x_5; +x_5 = lean_box(0); +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; 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_6 = lean_unsigned_to_nat(0u); +x_7 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_6); +x_8 = lean_nat_sub(x_7, x_6); +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_sub(x_8, x_9); +lean_dec(x_8); +x_11 = l_Lean_Expr_getRevArg_x21___main(x_1, x_10); +x_12 = lean_nat_sub(x_7, x_9); +x_13 = lean_nat_sub(x_12, x_9); +lean_dec(x_12); +x_14 = l_Lean_Expr_getRevArg_x21___main(x_1, x_13); +x_15 = lean_unsigned_to_nat(2u); +x_16 = lean_nat_sub(x_7, x_15); +lean_dec(x_7); +x_17 = lean_nat_sub(x_16, x_9); +lean_dec(x_16); +x_18 = l_Lean_Expr_getRevArg_x21___main(x_1, x_17); +x_19 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_19, 0, x_14); +lean_ctor_set(x_19, 1, x_18); +x_20 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_20, 0, x_11); +lean_ctor_set(x_20, 1, x_19); +x_21 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_21, 0, x_20); +return x_21; +} +} +} +lean_object* l_Lean_Expr_eq_x3f___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Expr_eq_x3f(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Expr_heq_x3f___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("HEq"); +return x_1; +} +} +lean_object* _init_l_Lean_Expr_heq_x3f___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Expr_heq_x3f___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Expr_heq_x3f(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; uint8_t x_4; +x_2 = l_Lean_Expr_heq_x3f___closed__2; +x_3 = lean_unsigned_to_nat(4u); +x_4 = l_Lean_Expr_isAppOfArity___main(x_1, x_2, x_3); +if (x_4 == 0) +{ +lean_object* x_5; +x_5 = lean_box(0); +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; 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; +x_6 = lean_unsigned_to_nat(0u); +x_7 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_6); +x_8 = lean_nat_sub(x_7, x_6); +x_9 = lean_unsigned_to_nat(1u); +x_10 = lean_nat_sub(x_8, x_9); +lean_dec(x_8); +x_11 = l_Lean_Expr_getRevArg_x21___main(x_1, x_10); +x_12 = lean_nat_sub(x_7, x_9); +x_13 = lean_nat_sub(x_12, x_9); +lean_dec(x_12); +x_14 = l_Lean_Expr_getRevArg_x21___main(x_1, x_13); +x_15 = lean_unsigned_to_nat(2u); +x_16 = lean_nat_sub(x_7, x_15); +x_17 = lean_nat_sub(x_16, x_9); +lean_dec(x_16); +x_18 = l_Lean_Expr_getRevArg_x21___main(x_1, x_17); +x_19 = lean_nat_sub(x_7, x_3); +lean_dec(x_7); +x_20 = lean_nat_sub(x_19, x_9); +lean_dec(x_19); +x_21 = l_Lean_Expr_getRevArg_x21___main(x_1, x_20); +x_22 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_22, 0, x_18); +lean_ctor_set(x_22, 1, x_21); +x_23 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_23, 0, x_14); +lean_ctor_set(x_23, 1, x_22); +x_24 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_24, 0, x_11); +lean_ctor_set(x_24, 1, x_23); +x_25 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_25, 0, x_24); +return x_25; +} +} +} +lean_object* l_Lean_Expr_heq_x3f___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Expr_heq_x3f(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_Expr_arrow_x3f(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 7) +{ +lean_object* x_2; lean_object* x_3; uint8_t x_4; +x_2 = lean_ctor_get(x_1, 1); +x_3 = lean_ctor_get(x_1, 2); +x_4 = l_Lean_Expr_hasLooseBVars(x_3); +if (x_4 == 0) +{ +lean_object* x_5; lean_object* x_6; +lean_inc(x_3); +lean_inc(x_2); +x_5 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_5, 0, x_2); +lean_ctor_set(x_5, 1, x_3); +x_6 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_6, 0, x_5); +return x_6; +} +else +{ +lean_object* x_7; +x_7 = lean_box(0); +return x_7; +} +} +else +{ +lean_object* x_8; +x_8 = lean_box(0); +return x_8; +} +} +} +lean_object* l_Lean_Expr_arrow_x3f___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Expr_arrow_x3f(x_1); +lean_dec(x_1); +return x_2; +} +} lean_object* l_Lean_Meta_mkEq(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -63,94 +345,6398 @@ uint8_t x_9; x_9 = !lean_is_exclusive(x_8); if (x_9 == 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_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; x_10 = lean_ctor_get(x_8, 0); x_11 = lean_box(0); x_12 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_12, 0, x_10); lean_ctor_set(x_12, 1, x_11); -x_13 = l_Lean_Meta_mkEq___closed__2; +x_13 = l_Lean_Expr_eq_x3f___closed__2; x_14 = l_Lean_mkConst(x_13, x_12); -x_15 = l_Lean_mkApp(x_14, x_6); -x_16 = l_Lean_mkAppB(x_15, x_1, x_2); -lean_ctor_set(x_8, 0, x_16); +x_15 = l_Lean_mkApp3(x_14, x_6, x_1, x_2); +lean_ctor_set(x_8, 0, x_15); return x_8; } else { -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_8, 0); -x_18 = lean_ctor_get(x_8, 1); -lean_inc(x_18); +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_8, 0); +x_17 = lean_ctor_get(x_8, 1); lean_inc(x_17); +lean_inc(x_16); lean_dec(x_8); -x_19 = lean_box(0); -x_20 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_20, 0, x_17); -lean_ctor_set(x_20, 1, x_19); -x_21 = l_Lean_Meta_mkEq___closed__2; -x_22 = l_Lean_mkConst(x_21, x_20); -x_23 = l_Lean_mkApp(x_22, x_6); -x_24 = l_Lean_mkAppB(x_23, x_1, x_2); -x_25 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_25, 0, x_24); -lean_ctor_set(x_25, 1, x_18); -return x_25; +x_18 = lean_box(0); +x_19 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_19, 0, x_16); +lean_ctor_set(x_19, 1, x_18); +x_20 = l_Lean_Expr_eq_x3f___closed__2; +x_21 = l_Lean_mkConst(x_20, x_19); +x_22 = l_Lean_mkApp3(x_21, x_6, x_1, x_2); +x_23 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_23, 0, x_22); +lean_ctor_set(x_23, 1, x_17); +return x_23; } } else { -uint8_t x_26; +uint8_t x_24; lean_dec(x_6); lean_dec(x_2); lean_dec(x_1); -x_26 = !lean_is_exclusive(x_8); -if (x_26 == 0) +x_24 = !lean_is_exclusive(x_8); +if (x_24 == 0) { return x_8; } else { -lean_object* x_27; lean_object* x_28; lean_object* x_29; -x_27 = lean_ctor_get(x_8, 0); -x_28 = lean_ctor_get(x_8, 1); -lean_inc(x_28); -lean_inc(x_27); +lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_25 = lean_ctor_get(x_8, 0); +x_26 = lean_ctor_get(x_8, 1); +lean_inc(x_26); +lean_inc(x_25); lean_dec(x_8); -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; +x_27 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_27, 0, x_25); +lean_ctor_set(x_27, 1, x_26); +return x_27; } } } else { -uint8_t x_30; +uint8_t x_28; lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_30 = !lean_is_exclusive(x_5); -if (x_30 == 0) +x_28 = !lean_is_exclusive(x_5); +if (x_28 == 0) { return x_5; } else { -lean_object* x_31; lean_object* x_32; lean_object* x_33; -x_31 = lean_ctor_get(x_5, 0); -x_32 = lean_ctor_get(x_5, 1); -lean_inc(x_32); -lean_inc(x_31); +lean_object* x_29; lean_object* x_30; lean_object* x_31; +x_29 = lean_ctor_get(x_5, 0); +x_30 = lean_ctor_get(x_5, 1); +lean_inc(x_30); +lean_inc(x_29); lean_dec(x_5); -x_33 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_33, 0, x_31); -lean_ctor_set(x_33, 1, x_32); -return x_33; +x_31 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_31, 0, x_29); +lean_ctor_set(x_31, 1, x_30); +return x_31; } } } } +lean_object* l_Lean_Meta_mkHEq(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +lean_inc(x_3); +lean_inc(x_1); +x_5 = l_Lean_Meta_inferType(x_1, x_3, x_4); +if (lean_obj_tag(x_5) == 0) +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +x_7 = lean_ctor_get(x_5, 1); +lean_inc(x_7); +lean_dec(x_5); +lean_inc(x_3); +lean_inc(x_2); +x_8 = l_Lean_Meta_inferType(x_2, x_3, x_7); +if (lean_obj_tag(x_8) == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +lean_dec(x_8); +lean_inc(x_6); +x_11 = l_Lean_Meta_getLevel(x_6, x_3, x_10); +if (lean_obj_tag(x_11) == 0) +{ +uint8_t x_12; +x_12 = !lean_is_exclusive(x_11); +if (x_12 == 0) +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_13 = lean_ctor_get(x_11, 0); +x_14 = lean_box(0); +x_15 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_15, 0, x_13); +lean_ctor_set(x_15, 1, x_14); +x_16 = l_Lean_Expr_heq_x3f___closed__2; +x_17 = l_Lean_mkConst(x_16, x_15); +x_18 = l_Lean_mkApp4(x_17, x_6, x_1, x_9, x_2); +lean_ctor_set(x_11, 0, x_18); +return x_11; +} +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; lean_object* x_26; +x_19 = lean_ctor_get(x_11, 0); +x_20 = lean_ctor_get(x_11, 1); +lean_inc(x_20); +lean_inc(x_19); +lean_dec(x_11); +x_21 = lean_box(0); +x_22 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_22, 0, x_19); +lean_ctor_set(x_22, 1, x_21); +x_23 = l_Lean_Expr_heq_x3f___closed__2; +x_24 = l_Lean_mkConst(x_23, x_22); +x_25 = l_Lean_mkApp4(x_24, x_6, x_1, x_9, x_2); +x_26 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_26, 0, x_25); +lean_ctor_set(x_26, 1, x_20); +return x_26; +} +} +else +{ +uint8_t x_27; +lean_dec(x_9); +lean_dec(x_6); +lean_dec(x_2); +lean_dec(x_1); +x_27 = !lean_is_exclusive(x_11); +if (x_27 == 0) +{ +return x_11; +} +else +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_28 = lean_ctor_get(x_11, 0); +x_29 = lean_ctor_get(x_11, 1); +lean_inc(x_29); +lean_inc(x_28); +lean_dec(x_11); +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_6); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_31 = !lean_is_exclusive(x_8); +if (x_31 == 0) +{ +return x_8; +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_32 = lean_ctor_get(x_8, 0); +x_33 = lean_ctor_get(x_8, 1); +lean_inc(x_33); +lean_inc(x_32); +lean_dec(x_8); +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_3); +lean_dec(x_2); +lean_dec(x_1); +x_35 = !lean_is_exclusive(x_5); +if (x_35 == 0) +{ +return x_5; +} +else +{ +lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_36 = lean_ctor_get(x_5, 0); +x_37 = lean_ctor_get(x_5, 1); +lean_inc(x_37); +lean_inc(x_36); +lean_dec(x_5); +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; +} +} +} +} +lean_object* _init_l_Lean_Meta_mkEqRefl___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("refl"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkEqRefl___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Expr_eq_x3f___closed__2; +x_2 = l_Lean_Meta_mkEqRefl___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_mkEqRefl(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +lean_inc(x_2); +lean_inc(x_1); +x_4 = l_Lean_Meta_inferType(x_1, x_2, x_3); +if (lean_obj_tag(x_4) == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_5 = lean_ctor_get(x_4, 0); +lean_inc(x_5); +x_6 = lean_ctor_get(x_4, 1); +lean_inc(x_6); +lean_dec(x_4); +lean_inc(x_5); +x_7 = l_Lean_Meta_getLevel(x_5, x_2, x_6); +if (lean_obj_tag(x_7) == 0) +{ +uint8_t x_8; +x_8 = !lean_is_exclusive(x_7); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_9 = lean_ctor_get(x_7, 0); +x_10 = lean_box(0); +x_11 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_11, 0, x_9); +lean_ctor_set(x_11, 1, x_10); +x_12 = l_Lean_Meta_mkEqRefl___closed__2; +x_13 = l_Lean_mkConst(x_12, x_11); +x_14 = l_Lean_mkAppB(x_13, x_5, x_1); +lean_ctor_set(x_7, 0, x_14); +return x_7; +} +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_22; +x_15 = lean_ctor_get(x_7, 0); +x_16 = lean_ctor_get(x_7, 1); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_7); +x_17 = lean_box(0); +x_18 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_18, 0, x_15); +lean_ctor_set(x_18, 1, x_17); +x_19 = l_Lean_Meta_mkEqRefl___closed__2; +x_20 = l_Lean_mkConst(x_19, x_18); +x_21 = l_Lean_mkAppB(x_20, x_5, x_1); +x_22 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_22, 0, x_21); +lean_ctor_set(x_22, 1, x_16); +return x_22; +} +} +else +{ +uint8_t x_23; +lean_dec(x_5); +lean_dec(x_1); +x_23 = !lean_is_exclusive(x_7); +if (x_23 == 0) +{ +return x_7; +} +else +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_24 = lean_ctor_get(x_7, 0); +x_25 = lean_ctor_get(x_7, 1); +lean_inc(x_25); +lean_inc(x_24); +lean_dec(x_7); +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_2); +lean_dec(x_1); +x_27 = !lean_is_exclusive(x_4); +if (x_27 == 0) +{ +return x_4; +} +else +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_28 = lean_ctor_get(x_4, 0); +x_29 = lean_ctor_get(x_4, 1); +lean_inc(x_29); +lean_inc(x_28); +lean_dec(x_4); +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* _init_l_Lean_Meta_mkHEqRefl___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Expr_heq_x3f___closed__2; +x_2 = l_Lean_Meta_mkEqRefl___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_mkHEqRefl(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +lean_inc(x_2); +lean_inc(x_1); +x_4 = l_Lean_Meta_inferType(x_1, x_2, x_3); +if (lean_obj_tag(x_4) == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_5 = lean_ctor_get(x_4, 0); +lean_inc(x_5); +x_6 = lean_ctor_get(x_4, 1); +lean_inc(x_6); +lean_dec(x_4); +lean_inc(x_5); +x_7 = l_Lean_Meta_getLevel(x_5, x_2, x_6); +if (lean_obj_tag(x_7) == 0) +{ +uint8_t x_8; +x_8 = !lean_is_exclusive(x_7); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_9 = lean_ctor_get(x_7, 0); +x_10 = lean_box(0); +x_11 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_11, 0, x_9); +lean_ctor_set(x_11, 1, x_10); +x_12 = l_Lean_Meta_mkHEqRefl___closed__1; +x_13 = l_Lean_mkConst(x_12, x_11); +x_14 = l_Lean_mkAppB(x_13, x_5, x_1); +lean_ctor_set(x_7, 0, x_14); +return x_7; +} +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_22; +x_15 = lean_ctor_get(x_7, 0); +x_16 = lean_ctor_get(x_7, 1); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_7); +x_17 = lean_box(0); +x_18 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_18, 0, x_15); +lean_ctor_set(x_18, 1, x_17); +x_19 = l_Lean_Meta_mkHEqRefl___closed__1; +x_20 = l_Lean_mkConst(x_19, x_18); +x_21 = l_Lean_mkAppB(x_20, x_5, x_1); +x_22 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_22, 0, x_21); +lean_ctor_set(x_22, 1, x_16); +return x_22; +} +} +else +{ +uint8_t x_23; +lean_dec(x_5); +lean_dec(x_1); +x_23 = !lean_is_exclusive(x_7); +if (x_23 == 0) +{ +return x_7; +} +else +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_24 = lean_ctor_get(x_7, 0); +x_25 = lean_ctor_get(x_7, 1); +lean_inc(x_25); +lean_inc(x_24); +lean_dec(x_7); +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_2); +lean_dec(x_1); +x_27 = !lean_is_exclusive(x_4); +if (x_27 == 0) +{ +return x_4; +} +else +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_28 = lean_ctor_get(x_4, 0); +x_29 = lean_ctor_get(x_4, 1); +lean_inc(x_29); +lean_inc(x_28); +lean_dec(x_4); +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_AppBuilder_1__infer(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +lean_inc(x_2); +x_4 = l_Lean_Meta_inferType(x_1, x_2, x_3); +if (lean_obj_tag(x_4) == 0) +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_5 = lean_ctor_get(x_4, 0); +lean_inc(x_5); +x_6 = lean_ctor_get(x_4, 1); +lean_inc(x_6); +lean_dec(x_4); +x_7 = l_Lean_Meta_whnfUsingDefault(x_5, x_2, x_6); +return x_7; +} +else +{ +uint8_t x_8; +lean_dec(x_2); +x_8 = !lean_is_exclusive(x_4); +if (x_8 == 0) +{ +return x_4; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; +x_9 = lean_ctor_get(x_4, 0); +x_10 = lean_ctor_get(x_4, 1); +lean_inc(x_10); +lean_inc(x_9); +lean_dec(x_4); +x_11 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_11, 0, x_9); +lean_ctor_set(x_11, 1, x_10); +return x_11; +} +} +} +} +lean_object* _init_l_Lean_Meta_mkEqSymm___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("symm"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkEqSymm___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Expr_eq_x3f___closed__2; +x_2 = l_Lean_Meta_mkEqSymm___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_mkEqSymm___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("equality proof expected"); +return x_1; +} +} +lean_object* l_Lean_Meta_mkEqSymm(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Meta_mkEqRefl___closed__2; +x_5 = l_Lean_Expr_isAppOf(x_1, x_4); +if (x_5 == 0) +{ +lean_object* x_6; +lean_inc(x_2); +lean_inc(x_1); +x_6 = l___private_Init_Lean_Meta_AppBuilder_1__infer(x_1, x_2, x_3); +if (lean_obj_tag(x_6) == 0) +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_6); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; +x_8 = lean_ctor_get(x_6, 0); +x_9 = lean_ctor_get(x_6, 1); +x_10 = l_Lean_Expr_eq_x3f___closed__2; +x_11 = lean_unsigned_to_nat(3u); +x_12 = l_Lean_Expr_isAppOfArity___main(x_8, x_10, x_11); +if (x_12 == 0) +{ +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_dec(x_8); +x_13 = lean_ctor_get(x_9, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_9, 1); +lean_inc(x_14); +x_15 = lean_ctor_get(x_2, 1); +lean_inc(x_15); +lean_dec(x_2); +x_16 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_16, 0, x_13); +lean_ctor_set(x_16, 1, x_14); +lean_ctor_set(x_16, 2, x_15); +x_17 = l_Lean_mkOptionalNode___rarg___closed__1; +x_18 = lean_array_push(x_17, x_1); +x_19 = l_Lean_Meta_mkEqSymm___closed__2; +x_20 = l_Lean_Meta_mkEqSymm___closed__3; +x_21 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_21, 0, x_19); +lean_ctor_set(x_21, 1, x_20); +lean_ctor_set(x_21, 2, x_18); +lean_ctor_set(x_21, 3, x_16); +lean_ctor_set_tag(x_6, 1); +lean_ctor_set(x_6, 0, x_21); +return x_6; +} +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; 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_free_object(x_6); +x_22 = lean_unsigned_to_nat(0u); +x_23 = l_Lean_Expr_getAppNumArgsAux___main(x_8, x_22); +x_24 = lean_nat_sub(x_23, x_22); +x_25 = lean_unsigned_to_nat(1u); +x_26 = lean_nat_sub(x_24, x_25); +lean_dec(x_24); +x_27 = l_Lean_Expr_getRevArg_x21___main(x_8, x_26); +x_28 = lean_nat_sub(x_23, x_25); +x_29 = lean_nat_sub(x_28, x_25); +lean_dec(x_28); +x_30 = l_Lean_Expr_getRevArg_x21___main(x_8, x_29); +x_31 = lean_unsigned_to_nat(2u); +x_32 = lean_nat_sub(x_23, x_31); +lean_dec(x_23); +x_33 = lean_nat_sub(x_32, x_25); +lean_dec(x_32); +x_34 = l_Lean_Expr_getRevArg_x21___main(x_8, x_33); +lean_dec(x_8); +lean_inc(x_27); +x_35 = l_Lean_Meta_getLevel(x_27, x_2, x_9); +if (lean_obj_tag(x_35) == 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; +x_37 = lean_ctor_get(x_35, 0); +x_38 = lean_box(0); +x_39 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_39, 0, x_37); +lean_ctor_set(x_39, 1, x_38); +x_40 = l_Lean_Meta_mkEqSymm___closed__2; +x_41 = l_Lean_mkConst(x_40, x_39); +x_42 = l_Lean_mkApp4(x_41, x_27, x_30, x_34, x_1); +lean_ctor_set(x_35, 0, x_42); +return x_35; +} +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; +x_43 = lean_ctor_get(x_35, 0); +x_44 = lean_ctor_get(x_35, 1); +lean_inc(x_44); +lean_inc(x_43); +lean_dec(x_35); +x_45 = lean_box(0); +x_46 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_46, 0, x_43); +lean_ctor_set(x_46, 1, x_45); +x_47 = l_Lean_Meta_mkEqSymm___closed__2; +x_48 = l_Lean_mkConst(x_47, x_46); +x_49 = l_Lean_mkApp4(x_48, x_27, x_30, x_34, x_1); +x_50 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_50, 0, x_49); +lean_ctor_set(x_50, 1, x_44); +return x_50; +} +} +else +{ +uint8_t x_51; +lean_dec(x_34); +lean_dec(x_30); +lean_dec(x_27); +lean_dec(x_1); +x_51 = !lean_is_exclusive(x_35); +if (x_51 == 0) +{ +return x_35; +} +else +{ +lean_object* x_52; lean_object* x_53; lean_object* x_54; +x_52 = lean_ctor_get(x_35, 0); +x_53 = lean_ctor_get(x_35, 1); +lean_inc(x_53); +lean_inc(x_52); +lean_dec(x_35); +x_54 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_54, 0, x_52); +lean_ctor_set(x_54, 1, x_53); +return x_54; +} +} +} +} +else +{ +lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; uint8_t x_59; +x_55 = lean_ctor_get(x_6, 0); +x_56 = lean_ctor_get(x_6, 1); +lean_inc(x_56); +lean_inc(x_55); +lean_dec(x_6); +x_57 = l_Lean_Expr_eq_x3f___closed__2; +x_58 = lean_unsigned_to_nat(3u); +x_59 = l_Lean_Expr_isAppOfArity___main(x_55, x_57, x_58); +if (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_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; +lean_dec(x_55); +x_60 = lean_ctor_get(x_56, 0); +lean_inc(x_60); +x_61 = lean_ctor_get(x_56, 1); +lean_inc(x_61); +x_62 = lean_ctor_get(x_2, 1); +lean_inc(x_62); +lean_dec(x_2); +x_63 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_63, 0, x_60); +lean_ctor_set(x_63, 1, x_61); +lean_ctor_set(x_63, 2, x_62); +x_64 = l_Lean_mkOptionalNode___rarg___closed__1; +x_65 = lean_array_push(x_64, x_1); +x_66 = l_Lean_Meta_mkEqSymm___closed__2; +x_67 = l_Lean_Meta_mkEqSymm___closed__3; +x_68 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_68, 0, x_66); +lean_ctor_set(x_68, 1, x_67); +lean_ctor_set(x_68, 2, x_65); +lean_ctor_set(x_68, 3, x_63); +x_69 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_69, 0, x_68); +lean_ctor_set(x_69, 1, x_56); +return x_69; +} +else +{ +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; +x_70 = lean_unsigned_to_nat(0u); +x_71 = l_Lean_Expr_getAppNumArgsAux___main(x_55, x_70); +x_72 = lean_nat_sub(x_71, x_70); +x_73 = lean_unsigned_to_nat(1u); +x_74 = lean_nat_sub(x_72, x_73); +lean_dec(x_72); +x_75 = l_Lean_Expr_getRevArg_x21___main(x_55, x_74); +x_76 = lean_nat_sub(x_71, x_73); +x_77 = lean_nat_sub(x_76, x_73); +lean_dec(x_76); +x_78 = l_Lean_Expr_getRevArg_x21___main(x_55, x_77); +x_79 = lean_unsigned_to_nat(2u); +x_80 = lean_nat_sub(x_71, x_79); +lean_dec(x_71); +x_81 = lean_nat_sub(x_80, x_73); +lean_dec(x_80); +x_82 = l_Lean_Expr_getRevArg_x21___main(x_55, x_81); +lean_dec(x_55); +lean_inc(x_75); +x_83 = l_Lean_Meta_getLevel(x_75, x_2, x_56); +if (lean_obj_tag(x_83) == 0) +{ +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; +x_84 = lean_ctor_get(x_83, 0); +lean_inc(x_84); +x_85 = lean_ctor_get(x_83, 1); +lean_inc(x_85); +if (lean_is_exclusive(x_83)) { + lean_ctor_release(x_83, 0); + lean_ctor_release(x_83, 1); + x_86 = x_83; +} else { + lean_dec_ref(x_83); + x_86 = lean_box(0); +} +x_87 = lean_box(0); +x_88 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_88, 0, x_84); +lean_ctor_set(x_88, 1, x_87); +x_89 = l_Lean_Meta_mkEqSymm___closed__2; +x_90 = l_Lean_mkConst(x_89, x_88); +x_91 = l_Lean_mkApp4(x_90, x_75, x_78, x_82, x_1); +if (lean_is_scalar(x_86)) { + x_92 = lean_alloc_ctor(0, 2, 0); +} else { + x_92 = x_86; +} +lean_ctor_set(x_92, 0, x_91); +lean_ctor_set(x_92, 1, x_85); +return x_92; +} +else +{ +lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; +lean_dec(x_82); +lean_dec(x_78); +lean_dec(x_75); +lean_dec(x_1); +x_93 = lean_ctor_get(x_83, 0); +lean_inc(x_93); +x_94 = lean_ctor_get(x_83, 1); +lean_inc(x_94); +if (lean_is_exclusive(x_83)) { + lean_ctor_release(x_83, 0); + lean_ctor_release(x_83, 1); + x_95 = x_83; +} else { + lean_dec_ref(x_83); + x_95 = lean_box(0); +} +if (lean_is_scalar(x_95)) { + x_96 = lean_alloc_ctor(1, 2, 0); +} else { + x_96 = x_95; +} +lean_ctor_set(x_96, 0, x_93); +lean_ctor_set(x_96, 1, x_94); +return x_96; +} +} +} +} +else +{ +uint8_t x_97; +lean_dec(x_2); +lean_dec(x_1); +x_97 = !lean_is_exclusive(x_6); +if (x_97 == 0) +{ +return x_6; +} +else +{ +lean_object* x_98; lean_object* x_99; lean_object* x_100; +x_98 = lean_ctor_get(x_6, 0); +x_99 = lean_ctor_get(x_6, 1); +lean_inc(x_99); +lean_inc(x_98); +lean_dec(x_6); +x_100 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_100, 0, x_98); +lean_ctor_set(x_100, 1, x_99); +return x_100; +} +} +} +else +{ +lean_object* x_101; +lean_dec(x_2); +x_101 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_101, 0, x_1); +lean_ctor_set(x_101, 1, x_3); +return x_101; +} +} +} +lean_object* _init_l_Lean_Meta_mkEqTrans___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("trans"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkEqTrans___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Expr_eq_x3f___closed__2; +x_2 = l_Lean_Meta_mkEqTrans___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_mkEqTrans___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = lean_unsigned_to_nat(2u); +x_2 = lean_mk_empty_array_with_capacity(x_1); +return x_2; +} +} +lean_object* l_Lean_Meta_mkEqTrans(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; uint8_t x_6; +x_5 = l_Lean_Meta_mkEqRefl___closed__2; +x_6 = l_Lean_Expr_isAppOf(x_1, x_5); +if (x_6 == 0) +{ +uint8_t x_7; +x_7 = l_Lean_Expr_isAppOf(x_2, x_5); +if (x_7 == 0) +{ +lean_object* x_8; +lean_inc(x_3); +lean_inc(x_1); +x_8 = l___private_Init_Lean_Meta_AppBuilder_1__infer(x_1, x_3, x_4); +if (lean_obj_tag(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_8, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +if (lean_is_exclusive(x_8)) { + lean_ctor_release(x_8, 0); + lean_ctor_release(x_8, 1); + x_11 = x_8; +} else { + lean_dec_ref(x_8); + x_11 = lean_box(0); +} +lean_inc(x_3); +lean_inc(x_2); +x_12 = l___private_Init_Lean_Meta_AppBuilder_1__infer(x_2, x_3, x_10); +if (lean_obj_tag(x_12) == 0) +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_57; lean_object* x_104; lean_object* x_105; uint8_t x_106; uint8_t x_107; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +if (lean_is_exclusive(x_12)) { + lean_ctor_release(x_12, 0); + lean_ctor_release(x_12, 1); + x_15 = x_12; +} else { + lean_dec_ref(x_12); + x_15 = lean_box(0); +} +x_104 = l_Lean_Expr_eq_x3f___closed__2; +x_105 = lean_unsigned_to_nat(3u); +x_106 = l_Lean_Expr_isAppOfArity___main(x_9, x_104, x_105); +x_107 = l_Lean_Expr_isAppOfArity___main(x_13, x_104, x_105); +if (x_106 == 0) +{ +lean_dec(x_9); +if (x_107 == 0) +{ +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_dec(x_15); +lean_dec(x_13); +lean_dec(x_11); +x_108 = lean_ctor_get(x_14, 0); +lean_inc(x_108); +x_109 = lean_ctor_get(x_14, 1); +lean_inc(x_109); +x_110 = lean_ctor_get(x_3, 1); +lean_inc(x_110); +lean_dec(x_3); +x_111 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_111, 0, x_108); +lean_ctor_set(x_111, 1, x_109); +lean_ctor_set(x_111, 2, x_110); +x_112 = l_Lean_Meta_mkEqTrans___closed__3; +x_113 = lean_array_push(x_112, x_1); +x_114 = lean_array_push(x_113, x_2); +x_115 = l_Lean_Meta_mkEqTrans___closed__2; +x_116 = l_Lean_Meta_mkEqSymm___closed__3; +x_117 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_117, 0, x_115); +lean_ctor_set(x_117, 1, x_116); +lean_ctor_set(x_117, 2, x_114); +lean_ctor_set(x_117, 3, x_111); +x_118 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_118, 0, x_117); +lean_ctor_set(x_118, 1, x_14); +return x_118; +} +else +{ +lean_object* x_119; +x_119 = lean_box(0); +x_57 = x_119; +goto block_103; +} +} +else +{ +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; +x_120 = lean_unsigned_to_nat(0u); +x_121 = l_Lean_Expr_getAppNumArgsAux___main(x_9, x_120); +x_122 = lean_nat_sub(x_121, x_120); +x_123 = lean_unsigned_to_nat(1u); +x_124 = lean_nat_sub(x_122, x_123); +lean_dec(x_122); +x_125 = l_Lean_Expr_getRevArg_x21___main(x_9, x_124); +x_126 = lean_nat_sub(x_121, x_123); +x_127 = lean_nat_sub(x_126, x_123); +lean_dec(x_126); +x_128 = l_Lean_Expr_getRevArg_x21___main(x_9, x_127); +x_129 = lean_unsigned_to_nat(2u); +x_130 = lean_nat_sub(x_121, x_129); +lean_dec(x_121); +x_131 = lean_nat_sub(x_130, x_123); +lean_dec(x_130); +x_132 = l_Lean_Expr_getRevArg_x21___main(x_9, x_131); +lean_dec(x_9); +x_133 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_133, 0, x_128); +lean_ctor_set(x_133, 1, x_132); +x_134 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_134, 0, x_125); +lean_ctor_set(x_134, 1, x_133); +if (x_107 == 0) +{ +lean_object* x_135; +lean_dec(x_13); +lean_dec(x_11); +x_135 = lean_box(0); +x_16 = x_135; +x_17 = x_134; +goto block_56; +} +else +{ +lean_object* x_136; +x_136 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_136, 0, x_134); +x_57 = x_136; +goto block_103; +} +} +block_56: +{ +lean_object* x_18; +x_18 = lean_ctor_get(x_17, 1); +lean_inc(x_18); +if (lean_obj_tag(x_16) == 0) +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; +lean_dec(x_18); +lean_dec(x_17); +x_19 = lean_ctor_get(x_14, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_14, 1); +lean_inc(x_20); +x_21 = lean_ctor_get(x_3, 1); +lean_inc(x_21); +lean_dec(x_3); +x_22 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_22, 0, x_19); +lean_ctor_set(x_22, 1, x_20); +lean_ctor_set(x_22, 2, x_21); +x_23 = l_Lean_Meta_mkEqTrans___closed__3; +x_24 = lean_array_push(x_23, x_1); +x_25 = lean_array_push(x_24, x_2); +x_26 = l_Lean_Meta_mkEqTrans___closed__2; +x_27 = l_Lean_Meta_mkEqSymm___closed__3; +x_28 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_28, 0, x_26); +lean_ctor_set(x_28, 1, x_27); +lean_ctor_set(x_28, 2, x_25); +lean_ctor_set(x_28, 3, x_22); +if (lean_is_scalar(x_15)) { + x_29 = lean_alloc_ctor(1, 2, 0); +} else { + x_29 = x_15; + lean_ctor_set_tag(x_29, 1); +} +lean_ctor_set(x_29, 0, x_28); +lean_ctor_set(x_29, 1, x_14); +return x_29; +} +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_dec(x_15); +x_30 = lean_ctor_get(x_16, 0); +lean_inc(x_30); +lean_dec(x_16); +x_31 = lean_ctor_get(x_30, 1); +lean_inc(x_31); +lean_dec(x_30); +x_32 = lean_ctor_get(x_17, 0); +lean_inc(x_32); +lean_dec(x_17); +x_33 = lean_ctor_get(x_18, 0); +lean_inc(x_33); +x_34 = lean_ctor_get(x_18, 1); +lean_inc(x_34); +lean_dec(x_18); +x_35 = lean_ctor_get(x_31, 1); +lean_inc(x_35); +lean_dec(x_31); +lean_inc(x_32); +x_36 = l_Lean_Meta_getLevel(x_32, x_3, x_14); +if (lean_obj_tag(x_36) == 0) +{ +uint8_t x_37; +x_37 = !lean_is_exclusive(x_36); +if (x_37 == 0) +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_38 = lean_ctor_get(x_36, 0); +x_39 = lean_box(0); +x_40 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_40, 0, x_38); +lean_ctor_set(x_40, 1, x_39); +x_41 = l_Lean_Meta_mkEqTrans___closed__2; +x_42 = l_Lean_mkConst(x_41, x_40); +x_43 = l_Lean_mkApp6(x_42, x_32, x_33, x_34, x_35, x_1, x_2); +lean_ctor_set(x_36, 0, x_43); +return x_36; +} +else +{ +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; +x_44 = lean_ctor_get(x_36, 0); +x_45 = lean_ctor_get(x_36, 1); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_36); +x_46 = lean_box(0); +x_47 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_47, 0, x_44); +lean_ctor_set(x_47, 1, x_46); +x_48 = l_Lean_Meta_mkEqTrans___closed__2; +x_49 = l_Lean_mkConst(x_48, x_47); +x_50 = l_Lean_mkApp6(x_49, x_32, x_33, x_34, x_35, x_1, x_2); +x_51 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_51, 0, x_50); +lean_ctor_set(x_51, 1, x_45); +return x_51; +} +} +else +{ +uint8_t x_52; +lean_dec(x_35); +lean_dec(x_34); +lean_dec(x_33); +lean_dec(x_32); +lean_dec(x_2); +lean_dec(x_1); +x_52 = !lean_is_exclusive(x_36); +if (x_52 == 0) +{ +return x_36; +} +else +{ +lean_object* x_53; lean_object* x_54; lean_object* x_55; +x_53 = lean_ctor_get(x_36, 0); +x_54 = lean_ctor_get(x_36, 1); +lean_inc(x_54); +lean_inc(x_53); +lean_dec(x_36); +x_55 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_55, 0, x_53); +lean_ctor_set(x_55, 1, x_54); +return x_55; +} +} +} +} +block_103: +{ +if (lean_obj_tag(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_dec(x_15); +lean_dec(x_13); +x_58 = lean_ctor_get(x_14, 0); +lean_inc(x_58); +x_59 = lean_ctor_get(x_14, 1); +lean_inc(x_59); +x_60 = lean_ctor_get(x_3, 1); +lean_inc(x_60); +lean_dec(x_3); +x_61 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_61, 0, x_58); +lean_ctor_set(x_61, 1, x_59); +lean_ctor_set(x_61, 2, x_60); +x_62 = l_Lean_Meta_mkEqTrans___closed__3; +x_63 = lean_array_push(x_62, x_1); +x_64 = lean_array_push(x_63, x_2); +x_65 = l_Lean_Meta_mkEqTrans___closed__2; +x_66 = l_Lean_Meta_mkEqSymm___closed__3; +x_67 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_67, 0, x_65); +lean_ctor_set(x_67, 1, x_66); +lean_ctor_set(x_67, 2, x_64); +lean_ctor_set(x_67, 3, x_61); +if (lean_is_scalar(x_11)) { + x_68 = lean_alloc_ctor(1, 2, 0); +} else { + x_68 = x_11; + lean_ctor_set_tag(x_68, 1); +} +lean_ctor_set(x_68, 0, x_67); +lean_ctor_set(x_68, 1, x_14); +return x_68; +} +else +{ +uint8_t x_69; +lean_dec(x_11); +x_69 = !lean_is_exclusive(x_57); +if (x_69 == 0) +{ +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; +x_70 = lean_ctor_get(x_57, 0); +x_71 = lean_unsigned_to_nat(0u); +x_72 = l_Lean_Expr_getAppNumArgsAux___main(x_13, x_71); +x_73 = lean_nat_sub(x_72, x_71); +x_74 = lean_unsigned_to_nat(1u); +x_75 = lean_nat_sub(x_73, x_74); +lean_dec(x_73); +x_76 = l_Lean_Expr_getRevArg_x21___main(x_13, x_75); +x_77 = lean_nat_sub(x_72, x_74); +x_78 = lean_nat_sub(x_77, x_74); +lean_dec(x_77); +x_79 = l_Lean_Expr_getRevArg_x21___main(x_13, x_78); +x_80 = lean_unsigned_to_nat(2u); +x_81 = lean_nat_sub(x_72, x_80); +lean_dec(x_72); +x_82 = lean_nat_sub(x_81, x_74); +lean_dec(x_81); +x_83 = l_Lean_Expr_getRevArg_x21___main(x_13, x_82); +lean_dec(x_13); +x_84 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_84, 0, x_79); +lean_ctor_set(x_84, 1, x_83); +x_85 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_85, 0, x_76); +lean_ctor_set(x_85, 1, x_84); +lean_ctor_set(x_57, 0, x_85); +x_16 = x_57; +x_17 = x_70; +goto block_56; +} +else +{ +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; +x_86 = lean_ctor_get(x_57, 0); +lean_inc(x_86); +lean_dec(x_57); +x_87 = lean_unsigned_to_nat(0u); +x_88 = l_Lean_Expr_getAppNumArgsAux___main(x_13, x_87); +x_89 = lean_nat_sub(x_88, x_87); +x_90 = lean_unsigned_to_nat(1u); +x_91 = lean_nat_sub(x_89, x_90); +lean_dec(x_89); +x_92 = l_Lean_Expr_getRevArg_x21___main(x_13, x_91); +x_93 = lean_nat_sub(x_88, x_90); +x_94 = lean_nat_sub(x_93, x_90); +lean_dec(x_93); +x_95 = l_Lean_Expr_getRevArg_x21___main(x_13, x_94); +x_96 = lean_unsigned_to_nat(2u); +x_97 = lean_nat_sub(x_88, x_96); +lean_dec(x_88); +x_98 = lean_nat_sub(x_97, x_90); +lean_dec(x_97); +x_99 = l_Lean_Expr_getRevArg_x21___main(x_13, x_98); +lean_dec(x_13); +x_100 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_100, 0, x_95); +lean_ctor_set(x_100, 1, x_99); +x_101 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_101, 0, x_92); +lean_ctor_set(x_101, 1, x_100); +x_102 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_102, 0, x_101); +x_16 = x_102; +x_17 = x_86; +goto block_56; +} +} +} +} +else +{ +uint8_t x_137; +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_137 = !lean_is_exclusive(x_12); +if (x_137 == 0) +{ +return x_12; +} +else +{ +lean_object* x_138; lean_object* x_139; lean_object* x_140; +x_138 = lean_ctor_get(x_12, 0); +x_139 = lean_ctor_get(x_12, 1); +lean_inc(x_139); +lean_inc(x_138); +lean_dec(x_12); +x_140 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_140, 0, x_138); +lean_ctor_set(x_140, 1, x_139); +return x_140; +} +} +} +else +{ +uint8_t x_141; +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_141 = !lean_is_exclusive(x_8); +if (x_141 == 0) +{ +return x_8; +} +else +{ +lean_object* x_142; lean_object* x_143; lean_object* x_144; +x_142 = lean_ctor_get(x_8, 0); +x_143 = lean_ctor_get(x_8, 1); +lean_inc(x_143); +lean_inc(x_142); +lean_dec(x_8); +x_144 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_144, 0, x_142); +lean_ctor_set(x_144, 1, x_143); +return x_144; +} +} +} +else +{ +lean_object* x_145; +lean_dec(x_3); +lean_dec(x_2); +x_145 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_145, 0, x_1); +lean_ctor_set(x_145, 1, x_4); +return x_145; +} +} +else +{ +lean_object* x_146; +lean_dec(x_3); +lean_dec(x_1); +x_146 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_146, 0, x_2); +lean_ctor_set(x_146, 1, x_4); +return x_146; +} +} +} +lean_object* _init_l_Lean_Meta_mkHEqSymm___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Expr_heq_x3f___closed__2; +x_2 = l_Lean_Meta_mkEqSymm___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_mkHEqSymm___closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("heterogeneous equality proof expected"); +return x_1; +} +} +lean_object* l_Lean_Meta_mkHEqSymm(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; uint8_t x_5; +x_4 = l_Lean_Meta_mkHEqRefl___closed__1; +x_5 = l_Lean_Expr_isAppOf(x_1, x_4); +if (x_5 == 0) +{ +lean_object* x_6; +lean_inc(x_2); +lean_inc(x_1); +x_6 = l___private_Init_Lean_Meta_AppBuilder_1__infer(x_1, x_2, x_3); +if (lean_obj_tag(x_6) == 0) +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_6); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; +x_8 = lean_ctor_get(x_6, 0); +x_9 = lean_ctor_get(x_6, 1); +x_10 = l_Lean_Expr_heq_x3f___closed__2; +x_11 = lean_unsigned_to_nat(4u); +x_12 = l_Lean_Expr_isAppOfArity___main(x_8, x_10, x_11); +if (x_12 == 0) +{ +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_dec(x_8); +x_13 = lean_ctor_get(x_9, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_9, 1); +lean_inc(x_14); +x_15 = lean_ctor_get(x_2, 1); +lean_inc(x_15); +lean_dec(x_2); +x_16 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_16, 0, x_13); +lean_ctor_set(x_16, 1, x_14); +lean_ctor_set(x_16, 2, x_15); +x_17 = l_Lean_mkOptionalNode___rarg___closed__1; +x_18 = lean_array_push(x_17, x_1); +x_19 = l_Lean_Meta_mkHEqSymm___closed__1; +x_20 = l_Lean_Meta_mkHEqSymm___closed__2; +x_21 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_21, 0, x_19); +lean_ctor_set(x_21, 1, x_20); +lean_ctor_set(x_21, 2, x_18); +lean_ctor_set(x_21, 3, x_16); +lean_ctor_set_tag(x_6, 1); +lean_ctor_set(x_6, 0, x_21); +return x_6; +} +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; 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_free_object(x_6); +x_22 = lean_unsigned_to_nat(0u); +x_23 = l_Lean_Expr_getAppNumArgsAux___main(x_8, x_22); +x_24 = lean_nat_sub(x_23, x_22); +x_25 = lean_unsigned_to_nat(1u); +x_26 = lean_nat_sub(x_24, x_25); +lean_dec(x_24); +x_27 = l_Lean_Expr_getRevArg_x21___main(x_8, x_26); +x_28 = lean_nat_sub(x_23, x_25); +x_29 = lean_nat_sub(x_28, x_25); +lean_dec(x_28); +x_30 = l_Lean_Expr_getRevArg_x21___main(x_8, x_29); +x_31 = lean_unsigned_to_nat(2u); +x_32 = lean_nat_sub(x_23, x_31); +x_33 = lean_nat_sub(x_32, x_25); +lean_dec(x_32); +x_34 = l_Lean_Expr_getRevArg_x21___main(x_8, x_33); +x_35 = lean_nat_sub(x_23, x_11); +lean_dec(x_23); +x_36 = lean_nat_sub(x_35, x_25); +lean_dec(x_35); +x_37 = l_Lean_Expr_getRevArg_x21___main(x_8, x_36); +lean_dec(x_8); +lean_inc(x_27); +x_38 = l_Lean_Meta_getLevel(x_27, x_2, x_9); +if (lean_obj_tag(x_38) == 0) +{ +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; +x_40 = lean_ctor_get(x_38, 0); +x_41 = lean_box(0); +x_42 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_42, 0, x_40); +lean_ctor_set(x_42, 1, x_41); +x_43 = l_Lean_Meta_mkHEqSymm___closed__1; +x_44 = l_Lean_mkConst(x_43, x_42); +x_45 = l_Lean_mkApp5(x_44, x_27, x_34, x_30, x_37, x_1); +lean_ctor_set(x_38, 0, x_45); +return x_38; +} +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; +x_46 = lean_ctor_get(x_38, 0); +x_47 = lean_ctor_get(x_38, 1); +lean_inc(x_47); +lean_inc(x_46); +lean_dec(x_38); +x_48 = lean_box(0); +x_49 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_49, 0, x_46); +lean_ctor_set(x_49, 1, x_48); +x_50 = l_Lean_Meta_mkHEqSymm___closed__1; +x_51 = l_Lean_mkConst(x_50, x_49); +x_52 = l_Lean_mkApp5(x_51, x_27, x_34, x_30, x_37, x_1); +x_53 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_53, 0, x_52); +lean_ctor_set(x_53, 1, x_47); +return x_53; +} +} +else +{ +uint8_t x_54; +lean_dec(x_37); +lean_dec(x_34); +lean_dec(x_30); +lean_dec(x_27); +lean_dec(x_1); +x_54 = !lean_is_exclusive(x_38); +if (x_54 == 0) +{ +return x_38; +} +else +{ +lean_object* x_55; lean_object* x_56; lean_object* x_57; +x_55 = lean_ctor_get(x_38, 0); +x_56 = lean_ctor_get(x_38, 1); +lean_inc(x_56); +lean_inc(x_55); +lean_dec(x_38); +x_57 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_57, 0, x_55); +lean_ctor_set(x_57, 1, x_56); +return x_57; +} +} +} +} +else +{ +lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; uint8_t x_62; +x_58 = lean_ctor_get(x_6, 0); +x_59 = lean_ctor_get(x_6, 1); +lean_inc(x_59); +lean_inc(x_58); +lean_dec(x_6); +x_60 = l_Lean_Expr_heq_x3f___closed__2; +x_61 = lean_unsigned_to_nat(4u); +x_62 = l_Lean_Expr_isAppOfArity___main(x_58, x_60, x_61); +if (x_62 == 0) +{ +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_dec(x_58); +x_63 = lean_ctor_get(x_59, 0); +lean_inc(x_63); +x_64 = lean_ctor_get(x_59, 1); +lean_inc(x_64); +x_65 = lean_ctor_get(x_2, 1); +lean_inc(x_65); +lean_dec(x_2); +x_66 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_66, 0, x_63); +lean_ctor_set(x_66, 1, x_64); +lean_ctor_set(x_66, 2, x_65); +x_67 = l_Lean_mkOptionalNode___rarg___closed__1; +x_68 = lean_array_push(x_67, x_1); +x_69 = l_Lean_Meta_mkHEqSymm___closed__1; +x_70 = l_Lean_Meta_mkHEqSymm___closed__2; +x_71 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_71, 0, x_69); +lean_ctor_set(x_71, 1, x_70); +lean_ctor_set(x_71, 2, x_68); +lean_ctor_set(x_71, 3, x_66); +x_72 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_72, 0, x_71); +lean_ctor_set(x_72, 1, x_59); +return x_72; +} +else +{ +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; +x_73 = lean_unsigned_to_nat(0u); +x_74 = l_Lean_Expr_getAppNumArgsAux___main(x_58, x_73); +x_75 = lean_nat_sub(x_74, x_73); +x_76 = lean_unsigned_to_nat(1u); +x_77 = lean_nat_sub(x_75, x_76); +lean_dec(x_75); +x_78 = l_Lean_Expr_getRevArg_x21___main(x_58, x_77); +x_79 = lean_nat_sub(x_74, x_76); +x_80 = lean_nat_sub(x_79, x_76); +lean_dec(x_79); +x_81 = l_Lean_Expr_getRevArg_x21___main(x_58, x_80); +x_82 = lean_unsigned_to_nat(2u); +x_83 = lean_nat_sub(x_74, x_82); +x_84 = lean_nat_sub(x_83, x_76); +lean_dec(x_83); +x_85 = l_Lean_Expr_getRevArg_x21___main(x_58, x_84); +x_86 = lean_nat_sub(x_74, x_61); +lean_dec(x_74); +x_87 = lean_nat_sub(x_86, x_76); +lean_dec(x_86); +x_88 = l_Lean_Expr_getRevArg_x21___main(x_58, x_87); +lean_dec(x_58); +lean_inc(x_78); +x_89 = l_Lean_Meta_getLevel(x_78, x_2, x_59); +if (lean_obj_tag(x_89) == 0) +{ +lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; +x_90 = lean_ctor_get(x_89, 0); +lean_inc(x_90); +x_91 = lean_ctor_get(x_89, 1); +lean_inc(x_91); +if (lean_is_exclusive(x_89)) { + lean_ctor_release(x_89, 0); + lean_ctor_release(x_89, 1); + x_92 = x_89; +} else { + lean_dec_ref(x_89); + x_92 = lean_box(0); +} +x_93 = lean_box(0); +x_94 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_94, 0, x_90); +lean_ctor_set(x_94, 1, x_93); +x_95 = l_Lean_Meta_mkHEqSymm___closed__1; +x_96 = l_Lean_mkConst(x_95, x_94); +x_97 = l_Lean_mkApp5(x_96, x_78, x_85, x_81, x_88, x_1); +if (lean_is_scalar(x_92)) { + x_98 = lean_alloc_ctor(0, 2, 0); +} else { + x_98 = x_92; +} +lean_ctor_set(x_98, 0, x_97); +lean_ctor_set(x_98, 1, x_91); +return x_98; +} +else +{ +lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; +lean_dec(x_88); +lean_dec(x_85); +lean_dec(x_81); +lean_dec(x_78); +lean_dec(x_1); +x_99 = lean_ctor_get(x_89, 0); +lean_inc(x_99); +x_100 = lean_ctor_get(x_89, 1); +lean_inc(x_100); +if (lean_is_exclusive(x_89)) { + lean_ctor_release(x_89, 0); + lean_ctor_release(x_89, 1); + x_101 = x_89; +} else { + lean_dec_ref(x_89); + x_101 = lean_box(0); +} +if (lean_is_scalar(x_101)) { + x_102 = lean_alloc_ctor(1, 2, 0); +} else { + x_102 = x_101; +} +lean_ctor_set(x_102, 0, x_99); +lean_ctor_set(x_102, 1, x_100); +return x_102; +} +} +} +} +else +{ +uint8_t x_103; +lean_dec(x_2); +lean_dec(x_1); +x_103 = !lean_is_exclusive(x_6); +if (x_103 == 0) +{ +return x_6; +} +else +{ +lean_object* x_104; lean_object* x_105; lean_object* x_106; +x_104 = lean_ctor_get(x_6, 0); +x_105 = lean_ctor_get(x_6, 1); +lean_inc(x_105); +lean_inc(x_104); +lean_dec(x_6); +x_106 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_106, 0, x_104); +lean_ctor_set(x_106, 1, x_105); +return x_106; +} +} +} +else +{ +lean_object* x_107; +lean_dec(x_2); +x_107 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_107, 0, x_1); +lean_ctor_set(x_107, 1, x_3); +return x_107; +} +} +} +lean_object* _init_l_Lean_Meta_mkHEqTrans___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Expr_heq_x3f___closed__2; +x_2 = l_Lean_Meta_mkEqTrans___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_mkHEqTrans(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; uint8_t x_6; +x_5 = l_Lean_Meta_mkHEqRefl___closed__1; +x_6 = l_Lean_Expr_isAppOf(x_1, x_5); +if (x_6 == 0) +{ +uint8_t x_7; +x_7 = l_Lean_Expr_isAppOf(x_2, x_5); +if (x_7 == 0) +{ +lean_object* x_8; +lean_inc(x_3); +lean_inc(x_1); +x_8 = l___private_Init_Lean_Meta_AppBuilder_1__infer(x_1, x_3, x_4); +if (lean_obj_tag(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_8, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +if (lean_is_exclusive(x_8)) { + lean_ctor_release(x_8, 0); + lean_ctor_release(x_8, 1); + x_11 = x_8; +} else { + lean_dec_ref(x_8); + x_11 = lean_box(0); +} +lean_inc(x_3); +lean_inc(x_2); +x_12 = l___private_Init_Lean_Meta_AppBuilder_1__infer(x_2, x_3, x_10); +if (lean_obj_tag(x_12) == 0) +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_61; lean_object* x_118; lean_object* x_119; uint8_t x_120; uint8_t x_121; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +if (lean_is_exclusive(x_12)) { + lean_ctor_release(x_12, 0); + lean_ctor_release(x_12, 1); + x_15 = x_12; +} else { + lean_dec_ref(x_12); + x_15 = lean_box(0); +} +x_118 = l_Lean_Expr_heq_x3f___closed__2; +x_119 = lean_unsigned_to_nat(4u); +x_120 = l_Lean_Expr_isAppOfArity___main(x_9, x_118, x_119); +x_121 = l_Lean_Expr_isAppOfArity___main(x_13, x_118, x_119); +if (x_120 == 0) +{ +lean_dec(x_9); +if (x_121 == 0) +{ +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_dec(x_15); +lean_dec(x_13); +lean_dec(x_11); +x_122 = lean_ctor_get(x_14, 0); +lean_inc(x_122); +x_123 = lean_ctor_get(x_14, 1); +lean_inc(x_123); +x_124 = lean_ctor_get(x_3, 1); +lean_inc(x_124); +lean_dec(x_3); +x_125 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_125, 0, x_122); +lean_ctor_set(x_125, 1, x_123); +lean_ctor_set(x_125, 2, x_124); +x_126 = l_Lean_Meta_mkEqTrans___closed__3; +x_127 = lean_array_push(x_126, x_1); +x_128 = lean_array_push(x_127, x_2); +x_129 = l_Lean_Meta_mkHEqTrans___closed__1; +x_130 = l_Lean_Meta_mkHEqSymm___closed__2; +x_131 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_131, 0, x_129); +lean_ctor_set(x_131, 1, x_130); +lean_ctor_set(x_131, 2, x_128); +lean_ctor_set(x_131, 3, x_125); +x_132 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_132, 0, x_131); +lean_ctor_set(x_132, 1, x_14); +return x_132; +} +else +{ +lean_object* x_133; +x_133 = lean_box(0); +x_61 = x_133; +goto block_117; +} +} +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; 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_134 = lean_unsigned_to_nat(0u); +x_135 = l_Lean_Expr_getAppNumArgsAux___main(x_9, x_134); +x_136 = lean_nat_sub(x_135, x_134); +x_137 = lean_unsigned_to_nat(1u); +x_138 = lean_nat_sub(x_136, x_137); +lean_dec(x_136); +x_139 = l_Lean_Expr_getRevArg_x21___main(x_9, x_138); +x_140 = lean_nat_sub(x_135, x_137); +x_141 = lean_nat_sub(x_140, x_137); +lean_dec(x_140); +x_142 = l_Lean_Expr_getRevArg_x21___main(x_9, x_141); +x_143 = lean_unsigned_to_nat(2u); +x_144 = lean_nat_sub(x_135, x_143); +x_145 = lean_nat_sub(x_144, x_137); +lean_dec(x_144); +x_146 = l_Lean_Expr_getRevArg_x21___main(x_9, x_145); +x_147 = lean_nat_sub(x_135, x_119); +lean_dec(x_135); +x_148 = lean_nat_sub(x_147, x_137); +lean_dec(x_147); +x_149 = l_Lean_Expr_getRevArg_x21___main(x_9, x_148); +lean_dec(x_9); +x_150 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_150, 0, x_146); +lean_ctor_set(x_150, 1, x_149); +x_151 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_151, 0, x_142); +lean_ctor_set(x_151, 1, x_150); +x_152 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_152, 0, x_139); +lean_ctor_set(x_152, 1, x_151); +if (x_121 == 0) +{ +lean_object* x_153; +lean_dec(x_13); +lean_dec(x_11); +x_153 = lean_box(0); +x_16 = x_153; +x_17 = x_152; +goto block_60; +} +else +{ +lean_object* x_154; +x_154 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_154, 0, x_152); +x_61 = x_154; +goto block_117; +} +} +block_60: +{ +lean_object* x_18; lean_object* x_19; +x_18 = lean_ctor_get(x_17, 1); +lean_inc(x_18); +x_19 = lean_ctor_get(x_18, 1); +lean_inc(x_19); +if (lean_obj_tag(x_16) == 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_dec(x_19); +lean_dec(x_18); +lean_dec(x_17); +x_20 = lean_ctor_get(x_14, 0); +lean_inc(x_20); +x_21 = lean_ctor_get(x_14, 1); +lean_inc(x_21); +x_22 = lean_ctor_get(x_3, 1); +lean_inc(x_22); +lean_dec(x_3); +x_23 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_23, 0, x_20); +lean_ctor_set(x_23, 1, x_21); +lean_ctor_set(x_23, 2, x_22); +x_24 = l_Lean_Meta_mkEqTrans___closed__3; +x_25 = lean_array_push(x_24, x_1); +x_26 = lean_array_push(x_25, x_2); +x_27 = l_Lean_Meta_mkHEqTrans___closed__1; +x_28 = l_Lean_Meta_mkHEqSymm___closed__2; +x_29 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_29, 0, x_27); +lean_ctor_set(x_29, 1, x_28); +lean_ctor_set(x_29, 2, x_26); +lean_ctor_set(x_29, 3, x_23); +if (lean_is_scalar(x_15)) { + x_30 = lean_alloc_ctor(1, 2, 0); +} else { + x_30 = x_15; + lean_ctor_set_tag(x_30, 1); +} +lean_ctor_set(x_30, 0, x_29); +lean_ctor_set(x_30, 1, x_14); +return x_30; +} +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_dec(x_15); +x_31 = lean_ctor_get(x_16, 0); +lean_inc(x_31); +lean_dec(x_16); +x_32 = lean_ctor_get(x_31, 1); +lean_inc(x_32); +lean_dec(x_31); +x_33 = lean_ctor_get(x_32, 1); +lean_inc(x_33); +lean_dec(x_32); +x_34 = lean_ctor_get(x_17, 0); +lean_inc(x_34); +lean_dec(x_17); +x_35 = lean_ctor_get(x_18, 0); +lean_inc(x_35); +lean_dec(x_18); +x_36 = lean_ctor_get(x_19, 0); +lean_inc(x_36); +x_37 = lean_ctor_get(x_19, 1); +lean_inc(x_37); +lean_dec(x_19); +x_38 = lean_ctor_get(x_33, 0); +lean_inc(x_38); +x_39 = lean_ctor_get(x_33, 1); +lean_inc(x_39); +lean_dec(x_33); +lean_inc(x_34); +x_40 = l_Lean_Meta_getLevel(x_34, x_3, x_14); +if (lean_obj_tag(x_40) == 0) +{ +uint8_t x_41; +x_41 = !lean_is_exclusive(x_40); +if (x_41 == 0) +{ +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_42 = lean_ctor_get(x_40, 0); +x_43 = lean_box(0); +x_44 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_44, 0, x_42); +lean_ctor_set(x_44, 1, x_43); +x_45 = l_Lean_Meta_mkHEqTrans___closed__1; +x_46 = l_Lean_mkConst(x_45, x_44); +x_47 = l_Lean_mkApp8(x_46, x_34, x_36, x_38, x_35, x_37, x_39, x_1, x_2); +lean_ctor_set(x_40, 0, x_47); +return x_40; +} +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; +x_48 = lean_ctor_get(x_40, 0); +x_49 = lean_ctor_get(x_40, 1); +lean_inc(x_49); +lean_inc(x_48); +lean_dec(x_40); +x_50 = lean_box(0); +x_51 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_51, 0, x_48); +lean_ctor_set(x_51, 1, x_50); +x_52 = l_Lean_Meta_mkHEqTrans___closed__1; +x_53 = l_Lean_mkConst(x_52, x_51); +x_54 = l_Lean_mkApp8(x_53, x_34, x_36, x_38, x_35, x_37, x_39, x_1, x_2); +x_55 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_55, 0, x_54); +lean_ctor_set(x_55, 1, x_49); +return x_55; +} +} +else +{ +uint8_t x_56; +lean_dec(x_39); +lean_dec(x_38); +lean_dec(x_37); +lean_dec(x_36); +lean_dec(x_35); +lean_dec(x_34); +lean_dec(x_2); +lean_dec(x_1); +x_56 = !lean_is_exclusive(x_40); +if (x_56 == 0) +{ +return x_40; +} +else +{ +lean_object* x_57; lean_object* x_58; lean_object* x_59; +x_57 = lean_ctor_get(x_40, 0); +x_58 = lean_ctor_get(x_40, 1); +lean_inc(x_58); +lean_inc(x_57); +lean_dec(x_40); +x_59 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_59, 0, x_57); +lean_ctor_set(x_59, 1, x_58); +return x_59; +} +} +} +} +block_117: +{ +if (lean_obj_tag(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_dec(x_15); +lean_dec(x_13); +x_62 = lean_ctor_get(x_14, 0); +lean_inc(x_62); +x_63 = lean_ctor_get(x_14, 1); +lean_inc(x_63); +x_64 = lean_ctor_get(x_3, 1); +lean_inc(x_64); +lean_dec(x_3); +x_65 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_65, 0, x_62); +lean_ctor_set(x_65, 1, x_63); +lean_ctor_set(x_65, 2, x_64); +x_66 = l_Lean_Meta_mkEqTrans___closed__3; +x_67 = lean_array_push(x_66, x_1); +x_68 = lean_array_push(x_67, x_2); +x_69 = l_Lean_Meta_mkHEqTrans___closed__1; +x_70 = l_Lean_Meta_mkHEqSymm___closed__2; +x_71 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_71, 0, x_69); +lean_ctor_set(x_71, 1, x_70); +lean_ctor_set(x_71, 2, x_68); +lean_ctor_set(x_71, 3, x_65); +if (lean_is_scalar(x_11)) { + x_72 = lean_alloc_ctor(1, 2, 0); +} else { + x_72 = x_11; + lean_ctor_set_tag(x_72, 1); +} +lean_ctor_set(x_72, 0, x_71); +lean_ctor_set(x_72, 1, x_14); +return x_72; +} +else +{ +uint8_t x_73; +lean_dec(x_11); +x_73 = !lean_is_exclusive(x_61); +if (x_73 == 0) +{ +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; +x_74 = lean_ctor_get(x_61, 0); +x_75 = lean_unsigned_to_nat(0u); +x_76 = l_Lean_Expr_getAppNumArgsAux___main(x_13, x_75); +x_77 = lean_nat_sub(x_76, x_75); +x_78 = lean_unsigned_to_nat(1u); +x_79 = lean_nat_sub(x_77, x_78); +lean_dec(x_77); +x_80 = l_Lean_Expr_getRevArg_x21___main(x_13, x_79); +x_81 = lean_nat_sub(x_76, x_78); +x_82 = lean_nat_sub(x_81, x_78); +lean_dec(x_81); +x_83 = l_Lean_Expr_getRevArg_x21___main(x_13, x_82); +x_84 = lean_unsigned_to_nat(2u); +x_85 = lean_nat_sub(x_76, x_84); +x_86 = lean_nat_sub(x_85, x_78); +lean_dec(x_85); +x_87 = l_Lean_Expr_getRevArg_x21___main(x_13, x_86); +x_88 = lean_unsigned_to_nat(4u); +x_89 = lean_nat_sub(x_76, x_88); +lean_dec(x_76); +x_90 = lean_nat_sub(x_89, x_78); +lean_dec(x_89); +x_91 = l_Lean_Expr_getRevArg_x21___main(x_13, x_90); +lean_dec(x_13); +x_92 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_92, 0, x_87); +lean_ctor_set(x_92, 1, x_91); +x_93 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_93, 0, x_83); +lean_ctor_set(x_93, 1, x_92); +x_94 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_94, 0, x_80); +lean_ctor_set(x_94, 1, x_93); +lean_ctor_set(x_61, 0, x_94); +x_16 = x_61; +x_17 = x_74; +goto block_60; +} +else +{ +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_95 = lean_ctor_get(x_61, 0); +lean_inc(x_95); +lean_dec(x_61); +x_96 = lean_unsigned_to_nat(0u); +x_97 = l_Lean_Expr_getAppNumArgsAux___main(x_13, x_96); +x_98 = lean_nat_sub(x_97, x_96); +x_99 = lean_unsigned_to_nat(1u); +x_100 = lean_nat_sub(x_98, x_99); +lean_dec(x_98); +x_101 = l_Lean_Expr_getRevArg_x21___main(x_13, x_100); +x_102 = lean_nat_sub(x_97, x_99); +x_103 = lean_nat_sub(x_102, x_99); +lean_dec(x_102); +x_104 = l_Lean_Expr_getRevArg_x21___main(x_13, x_103); +x_105 = lean_unsigned_to_nat(2u); +x_106 = lean_nat_sub(x_97, x_105); +x_107 = lean_nat_sub(x_106, x_99); +lean_dec(x_106); +x_108 = l_Lean_Expr_getRevArg_x21___main(x_13, x_107); +x_109 = lean_unsigned_to_nat(4u); +x_110 = lean_nat_sub(x_97, x_109); +lean_dec(x_97); +x_111 = lean_nat_sub(x_110, x_99); +lean_dec(x_110); +x_112 = l_Lean_Expr_getRevArg_x21___main(x_13, x_111); +lean_dec(x_13); +x_113 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_113, 0, x_108); +lean_ctor_set(x_113, 1, x_112); +x_114 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_114, 0, x_104); +lean_ctor_set(x_114, 1, x_113); +x_115 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_115, 0, x_101); +lean_ctor_set(x_115, 1, x_114); +x_116 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_116, 0, x_115); +x_16 = x_116; +x_17 = x_95; +goto block_60; +} +} +} +} +else +{ +uint8_t x_155; +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_155 = !lean_is_exclusive(x_12); +if (x_155 == 0) +{ +return x_12; +} +else +{ +lean_object* x_156; lean_object* x_157; lean_object* x_158; +x_156 = lean_ctor_get(x_12, 0); +x_157 = lean_ctor_get(x_12, 1); +lean_inc(x_157); +lean_inc(x_156); +lean_dec(x_12); +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; +} +} +} +else +{ +uint8_t x_159; +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_159 = !lean_is_exclusive(x_8); +if (x_159 == 0) +{ +return x_8; +} +else +{ +lean_object* x_160; lean_object* x_161; lean_object* x_162; +x_160 = lean_ctor_get(x_8, 0); +x_161 = lean_ctor_get(x_8, 1); +lean_inc(x_161); +lean_inc(x_160); +lean_dec(x_8); +x_162 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_162, 0, x_160); +lean_ctor_set(x_162, 1, x_161); +return x_162; +} +} +} +else +{ +lean_object* x_163; +lean_dec(x_3); +lean_dec(x_2); +x_163 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_163, 0, x_1); +lean_ctor_set(x_163, 1, x_4); +return x_163; +} +} +else +{ +lean_object* x_164; +lean_dec(x_3); +lean_dec(x_1); +x_164 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_164, 0, x_2); +lean_ctor_set(x_164, 1, x_4); +return x_164; +} +} +} +lean_object* _init_l_Lean_Meta_mkCongrArg___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("congrArg"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkCongrArg___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_mkCongrArg___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_mkCongrArg___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("non-dependent function expected"); +return x_1; +} +} +lean_object* l_Lean_Meta_mkCongrArg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +lean_inc(x_3); +lean_inc(x_2); +x_5 = l___private_Init_Lean_Meta_AppBuilder_1__infer(x_2, x_3, x_4); +if (lean_obj_tag(x_5) == 0) +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +x_7 = lean_ctor_get(x_5, 1); +lean_inc(x_7); +if (lean_is_exclusive(x_5)) { + lean_ctor_release(x_5, 0); + lean_ctor_release(x_5, 1); + x_8 = x_5; +} else { + lean_dec_ref(x_5); + x_8 = lean_box(0); +} +lean_inc(x_3); +lean_inc(x_1); +x_9 = l___private_Init_Lean_Meta_AppBuilder_1__infer(x_1, x_3, x_7); +if (lean_obj_tag(x_9) == 0) +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_62; lean_object* x_77; lean_object* x_124; lean_object* x_125; uint8_t x_126; +x_10 = lean_ctor_get(x_9, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_9, 1); +lean_inc(x_11); +if (lean_is_exclusive(x_9)) { + lean_ctor_release(x_9, 0); + lean_ctor_release(x_9, 1); + x_12 = x_9; +} else { + lean_dec_ref(x_9); + x_12 = lean_box(0); +} +x_124 = l_Lean_Expr_eq_x3f___closed__2; +x_125 = lean_unsigned_to_nat(3u); +x_126 = l_Lean_Expr_isAppOfArity___main(x_6, x_124, x_125); +if (lean_obj_tag(x_10) == 7) +{ +lean_object* x_127; lean_object* x_128; uint8_t x_129; +x_127 = lean_ctor_get(x_10, 1); +lean_inc(x_127); +x_128 = lean_ctor_get(x_10, 2); +lean_inc(x_128); +lean_dec(x_10); +x_129 = l_Lean_Expr_hasLooseBVars(x_128); +if (x_129 == 0) +{ +lean_object* x_130; lean_object* x_131; +x_130 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_130, 0, x_127); +lean_ctor_set(x_130, 1, x_128); +x_131 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_131, 0, x_130); +if (x_126 == 0) +{ +lean_dec(x_6); +x_62 = x_131; +goto block_76; +} +else +{ +lean_dec(x_8); +x_77 = x_131; +goto block_123; +} +} +else +{ +lean_object* x_132; +lean_dec(x_128); +lean_dec(x_127); +x_132 = lean_box(0); +if (x_126 == 0) +{ +lean_dec(x_6); +x_62 = x_132; +goto block_76; +} +else +{ +lean_dec(x_8); +x_77 = x_132; +goto block_123; +} +} +} +else +{ +lean_object* x_133; +lean_dec(x_10); +x_133 = lean_box(0); +if (x_126 == 0) +{ +lean_dec(x_6); +x_62 = x_133; +goto block_76; +} +else +{ +lean_dec(x_8); +x_77 = x_133; +goto block_123; +} +} +block_61: +{ +if (lean_obj_tag(x_13) == 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; lean_object* x_23; lean_object* x_24; lean_object* x_25; +lean_dec(x_14); +x_15 = lean_ctor_get(x_11, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_11, 1); +lean_inc(x_16); +x_17 = lean_ctor_get(x_3, 1); +lean_inc(x_17); +lean_dec(x_3); +x_18 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_18, 0, x_15); +lean_ctor_set(x_18, 1, x_16); +lean_ctor_set(x_18, 2, x_17); +x_19 = l_Lean_Meta_mkEqTrans___closed__3; +x_20 = lean_array_push(x_19, x_1); +x_21 = lean_array_push(x_20, x_2); +x_22 = l_Lean_Meta_mkCongrArg___closed__2; +x_23 = l_Lean_Meta_mkEqSymm___closed__3; +x_24 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_24, 0, x_22); +lean_ctor_set(x_24, 1, x_23); +lean_ctor_set(x_24, 2, x_21); +lean_ctor_set(x_24, 3, x_18); +if (lean_is_scalar(x_12)) { + x_25 = lean_alloc_ctor(1, 2, 0); +} else { + x_25 = x_12; + lean_ctor_set_tag(x_25, 1); +} +lean_ctor_set(x_25, 0, x_24); +lean_ctor_set(x_25, 1, x_11); +return x_25; +} +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_dec(x_12); +x_26 = lean_ctor_get(x_13, 0); +lean_inc(x_26); +lean_dec(x_13); +x_27 = lean_ctor_get(x_26, 1); +lean_inc(x_27); +lean_dec(x_26); +x_28 = lean_ctor_get(x_14, 0); +lean_inc(x_28); +x_29 = lean_ctor_get(x_14, 1); +lean_inc(x_29); +lean_dec(x_14); +x_30 = lean_ctor_get(x_27, 0); +lean_inc(x_30); +x_31 = lean_ctor_get(x_27, 1); +lean_inc(x_31); +lean_dec(x_27); +lean_inc(x_3); +lean_inc(x_28); +x_32 = l_Lean_Meta_getLevel(x_28, x_3, x_11); +if (lean_obj_tag(x_32) == 0) +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; +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); +lean_inc(x_29); +x_35 = l_Lean_Meta_getLevel(x_29, x_3, x_34); +if (lean_obj_tag(x_35) == 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; +x_37 = lean_ctor_get(x_35, 0); +x_38 = lean_box(0); +x_39 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_39, 0, x_37); +lean_ctor_set(x_39, 1, x_38); +x_40 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_40, 0, x_33); +lean_ctor_set(x_40, 1, x_39); +x_41 = l_Lean_Meta_mkCongrArg___closed__2; +x_42 = l_Lean_mkConst(x_41, x_40); +x_43 = l_Lean_mkApp6(x_42, x_28, x_29, x_30, x_31, x_1, x_2); +lean_ctor_set(x_35, 0, x_43); +return x_35; +} +else +{ +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_44 = lean_ctor_get(x_35, 0); +x_45 = lean_ctor_get(x_35, 1); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_35); +x_46 = lean_box(0); +x_47 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_47, 0, x_44); +lean_ctor_set(x_47, 1, x_46); +x_48 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_48, 0, x_33); +lean_ctor_set(x_48, 1, x_47); +x_49 = l_Lean_Meta_mkCongrArg___closed__2; +x_50 = l_Lean_mkConst(x_49, x_48); +x_51 = l_Lean_mkApp6(x_50, x_28, x_29, x_30, x_31, x_1, x_2); +x_52 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_52, 0, x_51); +lean_ctor_set(x_52, 1, x_45); +return x_52; +} +} +else +{ +uint8_t x_53; +lean_dec(x_33); +lean_dec(x_31); +lean_dec(x_30); +lean_dec(x_29); +lean_dec(x_28); +lean_dec(x_2); +lean_dec(x_1); +x_53 = !lean_is_exclusive(x_35); +if (x_53 == 0) +{ +return x_35; +} +else +{ +lean_object* x_54; lean_object* x_55; lean_object* x_56; +x_54 = lean_ctor_get(x_35, 0); +x_55 = lean_ctor_get(x_35, 1); +lean_inc(x_55); +lean_inc(x_54); +lean_dec(x_35); +x_56 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_56, 0, x_54); +lean_ctor_set(x_56, 1, x_55); +return x_56; +} +} +} +else +{ +uint8_t x_57; +lean_dec(x_31); +lean_dec(x_30); +lean_dec(x_29); +lean_dec(x_28); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_57 = !lean_is_exclusive(x_32); +if (x_57 == 0) +{ +return x_32; +} +else +{ +lean_object* x_58; lean_object* x_59; lean_object* x_60; +x_58 = lean_ctor_get(x_32, 0); +x_59 = lean_ctor_get(x_32, 1); +lean_inc(x_59); +lean_inc(x_58); +lean_dec(x_32); +x_60 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_60, 0, x_58); +lean_ctor_set(x_60, 1, x_59); +return x_60; +} +} +} +} +block_76: +{ +if (lean_obj_tag(x_62) == 0) +{ +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_dec(x_12); +x_63 = lean_ctor_get(x_11, 0); +lean_inc(x_63); +x_64 = lean_ctor_get(x_11, 1); +lean_inc(x_64); +x_65 = lean_ctor_get(x_3, 1); +lean_inc(x_65); +lean_dec(x_3); +x_66 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_66, 0, x_63); +lean_ctor_set(x_66, 1, x_64); +lean_ctor_set(x_66, 2, x_65); +x_67 = l_Lean_Meta_mkEqTrans___closed__3; +x_68 = lean_array_push(x_67, x_1); +x_69 = lean_array_push(x_68, x_2); +x_70 = l_Lean_Meta_mkCongrArg___closed__2; +x_71 = l_Lean_Meta_mkCongrArg___closed__3; +x_72 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_72, 0, x_70); +lean_ctor_set(x_72, 1, x_71); +lean_ctor_set(x_72, 2, x_69); +lean_ctor_set(x_72, 3, x_66); +if (lean_is_scalar(x_8)) { + x_73 = lean_alloc_ctor(1, 2, 0); +} else { + x_73 = x_8; + lean_ctor_set_tag(x_73, 1); +} +lean_ctor_set(x_73, 0, x_72); +lean_ctor_set(x_73, 1, x_11); +return x_73; +} +else +{ +lean_object* x_74; lean_object* x_75; +lean_dec(x_8); +x_74 = lean_ctor_get(x_62, 0); +lean_inc(x_74); +lean_dec(x_62); +x_75 = lean_box(0); +x_13 = x_75; +x_14 = x_74; +goto block_61; +} +} +block_123: +{ +if (lean_obj_tag(x_77) == 0) +{ +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_dec(x_12); +lean_dec(x_6); +x_78 = lean_ctor_get(x_11, 0); +lean_inc(x_78); +x_79 = lean_ctor_get(x_11, 1); +lean_inc(x_79); +x_80 = lean_ctor_get(x_3, 1); +lean_inc(x_80); +lean_dec(x_3); +x_81 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_81, 0, x_78); +lean_ctor_set(x_81, 1, x_79); +lean_ctor_set(x_81, 2, x_80); +x_82 = l_Lean_Meta_mkEqTrans___closed__3; +x_83 = lean_array_push(x_82, x_1); +x_84 = lean_array_push(x_83, x_2); +x_85 = l_Lean_Meta_mkCongrArg___closed__2; +x_86 = l_Lean_Meta_mkCongrArg___closed__3; +x_87 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_87, 0, x_85); +lean_ctor_set(x_87, 1, x_86); +lean_ctor_set(x_87, 2, x_84); +lean_ctor_set(x_87, 3, x_81); +x_88 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_88, 0, x_87); +lean_ctor_set(x_88, 1, x_11); +return x_88; +} +else +{ +uint8_t x_89; +x_89 = !lean_is_exclusive(x_77); +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; +x_90 = lean_ctor_get(x_77, 0); +x_91 = lean_unsigned_to_nat(0u); +x_92 = l_Lean_Expr_getAppNumArgsAux___main(x_6, x_91); +x_93 = lean_nat_sub(x_92, x_91); +x_94 = lean_unsigned_to_nat(1u); +x_95 = lean_nat_sub(x_93, x_94); +lean_dec(x_93); +x_96 = l_Lean_Expr_getRevArg_x21___main(x_6, x_95); +x_97 = lean_nat_sub(x_92, x_94); +x_98 = lean_nat_sub(x_97, x_94); +lean_dec(x_97); +x_99 = l_Lean_Expr_getRevArg_x21___main(x_6, x_98); +x_100 = lean_unsigned_to_nat(2u); +x_101 = lean_nat_sub(x_92, x_100); +lean_dec(x_92); +x_102 = lean_nat_sub(x_101, x_94); +lean_dec(x_101); +x_103 = l_Lean_Expr_getRevArg_x21___main(x_6, x_102); +lean_dec(x_6); +x_104 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_104, 0, x_99); +lean_ctor_set(x_104, 1, x_103); +x_105 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_105, 0, x_96); +lean_ctor_set(x_105, 1, x_104); +lean_ctor_set(x_77, 0, x_105); +x_13 = x_77; +x_14 = x_90; +goto block_61; +} +else +{ +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_106 = lean_ctor_get(x_77, 0); +lean_inc(x_106); +lean_dec(x_77); +x_107 = lean_unsigned_to_nat(0u); +x_108 = l_Lean_Expr_getAppNumArgsAux___main(x_6, x_107); +x_109 = lean_nat_sub(x_108, x_107); +x_110 = lean_unsigned_to_nat(1u); +x_111 = lean_nat_sub(x_109, x_110); +lean_dec(x_109); +x_112 = l_Lean_Expr_getRevArg_x21___main(x_6, x_111); +x_113 = lean_nat_sub(x_108, x_110); +x_114 = lean_nat_sub(x_113, x_110); +lean_dec(x_113); +x_115 = l_Lean_Expr_getRevArg_x21___main(x_6, x_114); +x_116 = lean_unsigned_to_nat(2u); +x_117 = lean_nat_sub(x_108, x_116); +lean_dec(x_108); +x_118 = lean_nat_sub(x_117, x_110); +lean_dec(x_117); +x_119 = l_Lean_Expr_getRevArg_x21___main(x_6, x_118); +lean_dec(x_6); +x_120 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_120, 0, x_115); +lean_ctor_set(x_120, 1, x_119); +x_121 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_121, 0, x_112); +lean_ctor_set(x_121, 1, x_120); +x_122 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_122, 0, x_121); +x_13 = x_122; +x_14 = x_106; +goto block_61; +} +} +} +} +else +{ +uint8_t x_134; +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_134 = !lean_is_exclusive(x_9); +if (x_134 == 0) +{ +return x_9; +} +else +{ +lean_object* x_135; lean_object* x_136; lean_object* x_137; +x_135 = lean_ctor_get(x_9, 0); +x_136 = lean_ctor_get(x_9, 1); +lean_inc(x_136); +lean_inc(x_135); +lean_dec(x_9); +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; +} +} +} +else +{ +uint8_t x_138; +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_138 = !lean_is_exclusive(x_5); +if (x_138 == 0) +{ +return x_5; +} +else +{ +lean_object* x_139; lean_object* x_140; lean_object* x_141; +x_139 = lean_ctor_get(x_5, 0); +x_140 = lean_ctor_get(x_5, 1); +lean_inc(x_140); +lean_inc(x_139); +lean_dec(x_5); +x_141 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_141, 0, x_139); +lean_ctor_set(x_141, 1, x_140); +return x_141; +} +} +} +} +lean_object* _init_l_Lean_Meta_mkCongrFun___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("congrFun"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkCongrFun___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_mkCongrFun___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_mkCongrFun___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("equality proof between functions expected"); +return x_1; +} +} +lean_object* l_Lean_Meta_mkCongrFun(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +lean_inc(x_3); +lean_inc(x_1); +x_5 = l___private_Init_Lean_Meta_AppBuilder_1__infer(x_1, x_3, x_4); +if (lean_obj_tag(x_5) == 0) +{ +uint8_t x_6; +x_6 = !lean_is_exclusive(x_5); +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_5, 0); +x_8 = lean_ctor_get(x_5, 1); +x_9 = l_Lean_Expr_eq_x3f___closed__2; +x_10 = lean_unsigned_to_nat(3u); +x_11 = l_Lean_Expr_isAppOfArity___main(x_7, x_9, x_10); +if (x_11 == 0) +{ +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_dec(x_7); +x_12 = lean_ctor_get(x_8, 0); +lean_inc(x_12); +x_13 = lean_ctor_get(x_8, 1); +lean_inc(x_13); +x_14 = lean_ctor_get(x_3, 1); +lean_inc(x_14); +lean_dec(x_3); +x_15 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_15, 0, x_12); +lean_ctor_set(x_15, 1, x_13); +lean_ctor_set(x_15, 2, x_14); +x_16 = l_Lean_Meta_mkEqTrans___closed__3; +x_17 = lean_array_push(x_16, x_1); +x_18 = lean_array_push(x_17, x_2); +x_19 = l_Lean_Meta_mkCongrFun___closed__2; +x_20 = l_Lean_Meta_mkEqSymm___closed__3; +x_21 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_21, 0, x_19); +lean_ctor_set(x_21, 1, x_20); +lean_ctor_set(x_21, 2, x_18); +lean_ctor_set(x_21, 3, x_15); +lean_ctor_set_tag(x_5, 1); +lean_ctor_set(x_5, 0, x_21); +return x_5; +} +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; 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_free_object(x_5); +x_22 = lean_unsigned_to_nat(0u); +x_23 = l_Lean_Expr_getAppNumArgsAux___main(x_7, x_22); +x_24 = lean_nat_sub(x_23, x_22); +x_25 = lean_unsigned_to_nat(1u); +x_26 = lean_nat_sub(x_24, x_25); +lean_dec(x_24); +x_27 = l_Lean_Expr_getRevArg_x21___main(x_7, x_26); +x_28 = lean_nat_sub(x_23, x_25); +x_29 = lean_nat_sub(x_28, x_25); +lean_dec(x_28); +x_30 = l_Lean_Expr_getRevArg_x21___main(x_7, x_29); +x_31 = lean_unsigned_to_nat(2u); +x_32 = lean_nat_sub(x_23, x_31); +lean_dec(x_23); +x_33 = lean_nat_sub(x_32, x_25); +lean_dec(x_32); +x_34 = l_Lean_Expr_getRevArg_x21___main(x_7, x_33); +lean_dec(x_7); +lean_inc(x_3); +x_35 = l_Lean_Meta_whnfUsingDefault(x_27, x_3, x_8); +if (lean_obj_tag(x_35) == 0) +{ +lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_36 = lean_ctor_get(x_35, 0); +lean_inc(x_36); +x_37 = lean_ctor_get(x_35, 1); +lean_inc(x_37); +if (lean_is_exclusive(x_35)) { + lean_ctor_release(x_35, 0); + lean_ctor_release(x_35, 1); + x_38 = x_35; +} else { + lean_dec_ref(x_35); + x_38 = lean_box(0); +} +if (lean_obj_tag(x_36) == 7) +{ +lean_object* x_52; lean_object* x_53; lean_object* x_54; uint8_t x_55; lean_object* x_56; lean_object* x_57; +lean_dec(x_38); +x_52 = lean_ctor_get(x_36, 0); +lean_inc(x_52); +x_53 = lean_ctor_get(x_36, 1); +lean_inc(x_53); +x_54 = lean_ctor_get(x_36, 2); +lean_inc(x_54); +lean_dec(x_36); +x_55 = 0; +lean_inc(x_53); +x_56 = l_Lean_mkLambda(x_52, x_55, x_53, x_54); +lean_inc(x_3); +lean_inc(x_53); +x_57 = l_Lean_Meta_getLevel(x_53, x_3, x_37); +if (lean_obj_tag(x_57) == 0) +{ +lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; +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); +lean_inc(x_2); +lean_inc(x_56); +x_60 = l_Lean_mkApp(x_56, x_2); +x_61 = l_Lean_Meta_getLevel(x_60, x_3, x_59); +if (lean_obj_tag(x_61) == 0) +{ +uint8_t x_62; +x_62 = !lean_is_exclusive(x_61); +if (x_62 == 0) +{ +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_63 = lean_ctor_get(x_61, 0); +x_64 = lean_box(0); +x_65 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_65, 0, x_63); +lean_ctor_set(x_65, 1, x_64); +x_66 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_66, 0, x_58); +lean_ctor_set(x_66, 1, x_65); +x_67 = l_Lean_Meta_mkCongrFun___closed__2; +x_68 = l_Lean_mkConst(x_67, x_66); +x_69 = l_Lean_mkApp6(x_68, x_53, x_56, x_30, x_34, x_1, x_2); +lean_ctor_set(x_61, 0, x_69); +return x_61; +} +else +{ +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_70 = lean_ctor_get(x_61, 0); +x_71 = lean_ctor_get(x_61, 1); +lean_inc(x_71); +lean_inc(x_70); +lean_dec(x_61); +x_72 = lean_box(0); +x_73 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_73, 0, x_70); +lean_ctor_set(x_73, 1, x_72); +x_74 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_74, 0, x_58); +lean_ctor_set(x_74, 1, x_73); +x_75 = l_Lean_Meta_mkCongrFun___closed__2; +x_76 = l_Lean_mkConst(x_75, x_74); +x_77 = l_Lean_mkApp6(x_76, x_53, x_56, x_30, x_34, x_1, x_2); +x_78 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_78, 0, x_77); +lean_ctor_set(x_78, 1, x_71); +return x_78; +} +} +else +{ +uint8_t x_79; +lean_dec(x_58); +lean_dec(x_56); +lean_dec(x_53); +lean_dec(x_34); +lean_dec(x_30); +lean_dec(x_2); +lean_dec(x_1); +x_79 = !lean_is_exclusive(x_61); +if (x_79 == 0) +{ +return x_61; +} +else +{ +lean_object* x_80; lean_object* x_81; lean_object* x_82; +x_80 = lean_ctor_get(x_61, 0); +x_81 = lean_ctor_get(x_61, 1); +lean_inc(x_81); +lean_inc(x_80); +lean_dec(x_61); +x_82 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_82, 0, x_80); +lean_ctor_set(x_82, 1, x_81); +return x_82; +} +} +} +else +{ +uint8_t x_83; +lean_dec(x_56); +lean_dec(x_53); +lean_dec(x_34); +lean_dec(x_30); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_83 = !lean_is_exclusive(x_57); +if (x_83 == 0) +{ +return x_57; +} +else +{ +lean_object* x_84; lean_object* x_85; lean_object* x_86; +x_84 = lean_ctor_get(x_57, 0); +x_85 = lean_ctor_get(x_57, 1); +lean_inc(x_85); +lean_inc(x_84); +lean_dec(x_57); +x_86 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_86, 0, x_84); +lean_ctor_set(x_86, 1, x_85); +return x_86; +} +} +} +else +{ +lean_object* x_87; +lean_dec(x_36); +lean_dec(x_34); +lean_dec(x_30); +x_87 = lean_box(0); +x_39 = x_87; +goto block_51; +} +block_51: +{ +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_dec(x_39); +x_40 = lean_ctor_get(x_37, 0); +lean_inc(x_40); +x_41 = lean_ctor_get(x_37, 1); +lean_inc(x_41); +x_42 = lean_ctor_get(x_3, 1); +lean_inc(x_42); +lean_dec(x_3); +x_43 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_43, 0, x_40); +lean_ctor_set(x_43, 1, x_41); +lean_ctor_set(x_43, 2, x_42); +x_44 = l_Lean_Meta_mkEqTrans___closed__3; +x_45 = lean_array_push(x_44, x_1); +x_46 = lean_array_push(x_45, x_2); +x_47 = l_Lean_Meta_mkCongrFun___closed__2; +x_48 = l_Lean_Meta_mkCongrFun___closed__3; +x_49 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_49, 0, x_47); +lean_ctor_set(x_49, 1, x_48); +lean_ctor_set(x_49, 2, x_46); +lean_ctor_set(x_49, 3, x_43); +if (lean_is_scalar(x_38)) { + x_50 = lean_alloc_ctor(1, 2, 0); +} else { + x_50 = x_38; + lean_ctor_set_tag(x_50, 1); +} +lean_ctor_set(x_50, 0, x_49); +lean_ctor_set(x_50, 1, x_37); +return x_50; +} +} +else +{ +uint8_t x_88; +lean_dec(x_34); +lean_dec(x_30); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_88 = !lean_is_exclusive(x_35); +if (x_88 == 0) +{ +return x_35; +} +else +{ +lean_object* x_89; lean_object* x_90; lean_object* x_91; +x_89 = lean_ctor_get(x_35, 0); +x_90 = lean_ctor_get(x_35, 1); +lean_inc(x_90); +lean_inc(x_89); +lean_dec(x_35); +x_91 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_91, 0, x_89); +lean_ctor_set(x_91, 1, x_90); +return x_91; +} +} +} +} +else +{ +lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; uint8_t x_96; +x_92 = lean_ctor_get(x_5, 0); +x_93 = lean_ctor_get(x_5, 1); +lean_inc(x_93); +lean_inc(x_92); +lean_dec(x_5); +x_94 = l_Lean_Expr_eq_x3f___closed__2; +x_95 = lean_unsigned_to_nat(3u); +x_96 = l_Lean_Expr_isAppOfArity___main(x_92, x_94, x_95); +if (x_96 == 0) +{ +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_dec(x_92); +x_97 = lean_ctor_get(x_93, 0); +lean_inc(x_97); +x_98 = lean_ctor_get(x_93, 1); +lean_inc(x_98); +x_99 = lean_ctor_get(x_3, 1); +lean_inc(x_99); +lean_dec(x_3); +x_100 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_100, 0, x_97); +lean_ctor_set(x_100, 1, x_98); +lean_ctor_set(x_100, 2, x_99); +x_101 = l_Lean_Meta_mkEqTrans___closed__3; +x_102 = lean_array_push(x_101, x_1); +x_103 = lean_array_push(x_102, x_2); +x_104 = l_Lean_Meta_mkCongrFun___closed__2; +x_105 = l_Lean_Meta_mkEqSymm___closed__3; +x_106 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_106, 0, x_104); +lean_ctor_set(x_106, 1, x_105); +lean_ctor_set(x_106, 2, x_103); +lean_ctor_set(x_106, 3, x_100); +x_107 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_107, 0, x_106); +lean_ctor_set(x_107, 1, x_93); +return x_107; +} +else +{ +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; +x_108 = lean_unsigned_to_nat(0u); +x_109 = l_Lean_Expr_getAppNumArgsAux___main(x_92, x_108); +x_110 = lean_nat_sub(x_109, x_108); +x_111 = lean_unsigned_to_nat(1u); +x_112 = lean_nat_sub(x_110, x_111); +lean_dec(x_110); +x_113 = l_Lean_Expr_getRevArg_x21___main(x_92, x_112); +x_114 = lean_nat_sub(x_109, x_111); +x_115 = lean_nat_sub(x_114, x_111); +lean_dec(x_114); +x_116 = l_Lean_Expr_getRevArg_x21___main(x_92, x_115); +x_117 = lean_unsigned_to_nat(2u); +x_118 = lean_nat_sub(x_109, x_117); +lean_dec(x_109); +x_119 = lean_nat_sub(x_118, x_111); +lean_dec(x_118); +x_120 = l_Lean_Expr_getRevArg_x21___main(x_92, x_119); +lean_dec(x_92); +lean_inc(x_3); +x_121 = l_Lean_Meta_whnfUsingDefault(x_113, x_3, x_93); +if (lean_obj_tag(x_121) == 0) +{ +lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; +x_122 = lean_ctor_get(x_121, 0); +lean_inc(x_122); +x_123 = lean_ctor_get(x_121, 1); +lean_inc(x_123); +if (lean_is_exclusive(x_121)) { + lean_ctor_release(x_121, 0); + lean_ctor_release(x_121, 1); + x_124 = x_121; +} else { + lean_dec_ref(x_121); + x_124 = lean_box(0); +} +if (lean_obj_tag(x_122) == 7) +{ +lean_object* x_138; lean_object* x_139; lean_object* x_140; uint8_t x_141; lean_object* x_142; lean_object* x_143; +lean_dec(x_124); +x_138 = lean_ctor_get(x_122, 0); +lean_inc(x_138); +x_139 = lean_ctor_get(x_122, 1); +lean_inc(x_139); +x_140 = lean_ctor_get(x_122, 2); +lean_inc(x_140); +lean_dec(x_122); +x_141 = 0; +lean_inc(x_139); +x_142 = l_Lean_mkLambda(x_138, x_141, x_139, x_140); +lean_inc(x_3); +lean_inc(x_139); +x_143 = l_Lean_Meta_getLevel(x_139, x_3, x_123); +if (lean_obj_tag(x_143) == 0) +{ +lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; +x_144 = lean_ctor_get(x_143, 0); +lean_inc(x_144); +x_145 = lean_ctor_get(x_143, 1); +lean_inc(x_145); +lean_dec(x_143); +lean_inc(x_2); +lean_inc(x_142); +x_146 = l_Lean_mkApp(x_142, x_2); +x_147 = l_Lean_Meta_getLevel(x_146, x_3, x_145); +if (lean_obj_tag(x_147) == 0) +{ +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_148 = lean_ctor_get(x_147, 0); +lean_inc(x_148); +x_149 = lean_ctor_get(x_147, 1); +lean_inc(x_149); +if (lean_is_exclusive(x_147)) { + lean_ctor_release(x_147, 0); + lean_ctor_release(x_147, 1); + x_150 = x_147; +} else { + lean_dec_ref(x_147); + x_150 = lean_box(0); +} +x_151 = lean_box(0); +x_152 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_152, 0, x_148); +lean_ctor_set(x_152, 1, x_151); +x_153 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_153, 0, x_144); +lean_ctor_set(x_153, 1, x_152); +x_154 = l_Lean_Meta_mkCongrFun___closed__2; +x_155 = l_Lean_mkConst(x_154, x_153); +x_156 = l_Lean_mkApp6(x_155, x_139, x_142, x_116, x_120, x_1, x_2); +if (lean_is_scalar(x_150)) { + x_157 = lean_alloc_ctor(0, 2, 0); +} else { + x_157 = x_150; +} +lean_ctor_set(x_157, 0, x_156); +lean_ctor_set(x_157, 1, x_149); +return x_157; +} +else +{ +lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; +lean_dec(x_144); +lean_dec(x_142); +lean_dec(x_139); +lean_dec(x_120); +lean_dec(x_116); +lean_dec(x_2); +lean_dec(x_1); +x_158 = lean_ctor_get(x_147, 0); +lean_inc(x_158); +x_159 = lean_ctor_get(x_147, 1); +lean_inc(x_159); +if (lean_is_exclusive(x_147)) { + lean_ctor_release(x_147, 0); + lean_ctor_release(x_147, 1); + x_160 = x_147; +} else { + lean_dec_ref(x_147); + x_160 = lean_box(0); +} +if (lean_is_scalar(x_160)) { + x_161 = lean_alloc_ctor(1, 2, 0); +} else { + x_161 = x_160; +} +lean_ctor_set(x_161, 0, x_158); +lean_ctor_set(x_161, 1, x_159); +return x_161; +} +} +else +{ +lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; +lean_dec(x_142); +lean_dec(x_139); +lean_dec(x_120); +lean_dec(x_116); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_162 = lean_ctor_get(x_143, 0); +lean_inc(x_162); +x_163 = lean_ctor_get(x_143, 1); +lean_inc(x_163); +if (lean_is_exclusive(x_143)) { + lean_ctor_release(x_143, 0); + lean_ctor_release(x_143, 1); + x_164 = x_143; +} else { + lean_dec_ref(x_143); + x_164 = lean_box(0); +} +if (lean_is_scalar(x_164)) { + x_165 = lean_alloc_ctor(1, 2, 0); +} else { + x_165 = x_164; +} +lean_ctor_set(x_165, 0, x_162); +lean_ctor_set(x_165, 1, x_163); +return x_165; +} +} +else +{ +lean_object* x_166; +lean_dec(x_122); +lean_dec(x_120); +lean_dec(x_116); +x_166 = lean_box(0); +x_125 = x_166; +goto block_137; +} +block_137: +{ +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_dec(x_125); +x_126 = lean_ctor_get(x_123, 0); +lean_inc(x_126); +x_127 = lean_ctor_get(x_123, 1); +lean_inc(x_127); +x_128 = lean_ctor_get(x_3, 1); +lean_inc(x_128); +lean_dec(x_3); +x_129 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_129, 0, x_126); +lean_ctor_set(x_129, 1, x_127); +lean_ctor_set(x_129, 2, x_128); +x_130 = l_Lean_Meta_mkEqTrans___closed__3; +x_131 = lean_array_push(x_130, x_1); +x_132 = lean_array_push(x_131, x_2); +x_133 = l_Lean_Meta_mkCongrFun___closed__2; +x_134 = l_Lean_Meta_mkCongrFun___closed__3; +x_135 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_135, 0, x_133); +lean_ctor_set(x_135, 1, x_134); +lean_ctor_set(x_135, 2, x_132); +lean_ctor_set(x_135, 3, x_129); +if (lean_is_scalar(x_124)) { + x_136 = lean_alloc_ctor(1, 2, 0); +} else { + x_136 = x_124; + lean_ctor_set_tag(x_136, 1); +} +lean_ctor_set(x_136, 0, x_135); +lean_ctor_set(x_136, 1, x_123); +return x_136; +} +} +else +{ +lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; +lean_dec(x_120); +lean_dec(x_116); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_167 = lean_ctor_get(x_121, 0); +lean_inc(x_167); +x_168 = lean_ctor_get(x_121, 1); +lean_inc(x_168); +if (lean_is_exclusive(x_121)) { + lean_ctor_release(x_121, 0); + lean_ctor_release(x_121, 1); + x_169 = x_121; +} else { + lean_dec_ref(x_121); + x_169 = lean_box(0); +} +if (lean_is_scalar(x_169)) { + x_170 = lean_alloc_ctor(1, 2, 0); +} else { + x_170 = x_169; +} +lean_ctor_set(x_170, 0, x_167); +lean_ctor_set(x_170, 1, x_168); +return x_170; +} +} +} +} +else +{ +uint8_t x_171; +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_171 = !lean_is_exclusive(x_5); +if (x_171 == 0) +{ +return x_5; +} +else +{ +lean_object* x_172; lean_object* x_173; lean_object* x_174; +x_172 = lean_ctor_get(x_5, 0); +x_173 = lean_ctor_get(x_5, 1); +lean_inc(x_173); +lean_inc(x_172); +lean_dec(x_5); +x_174 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_174, 0, x_172); +lean_ctor_set(x_174, 1, x_173); +return x_174; +} +} +} +} +lean_object* _init_l_Lean_Meta_mkCongr___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("congr"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_mkCongr___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_mkCongr___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_mkCongr(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +lean_inc(x_3); +lean_inc(x_1); +x_5 = l___private_Init_Lean_Meta_AppBuilder_1__infer(x_1, x_3, x_4); +if (lean_obj_tag(x_5) == 0) +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +x_7 = lean_ctor_get(x_5, 1); +lean_inc(x_7); +lean_dec(x_5); +lean_inc(x_3); +lean_inc(x_2); +x_8 = l___private_Init_Lean_Meta_AppBuilder_1__infer(x_2, x_3, x_7); +if (lean_obj_tag(x_8) == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_25; lean_object* x_26; lean_object* x_92; lean_object* x_93; uint8_t x_94; +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +if (lean_is_exclusive(x_8)) { + lean_ctor_release(x_8, 0); + lean_ctor_release(x_8, 1); + x_11 = x_8; +} else { + lean_dec_ref(x_8); + x_11 = lean_box(0); +} +x_92 = l_Lean_Expr_eq_x3f___closed__2; +x_93 = lean_unsigned_to_nat(3u); +x_94 = l_Lean_Expr_isAppOfArity___main(x_6, x_92, x_93); +if (x_94 == 0) +{ +lean_object* x_95; +lean_dec(x_9); +lean_dec(x_6); +x_95 = lean_box(0); +x_12 = x_95; +goto block_24; +} +else +{ +uint8_t x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_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; +x_96 = l_Lean_Expr_isAppOfArity___main(x_9, x_92, x_93); +x_97 = lean_unsigned_to_nat(0u); +x_98 = l_Lean_Expr_getAppNumArgsAux___main(x_6, x_97); +x_99 = lean_nat_sub(x_98, x_97); +x_100 = lean_unsigned_to_nat(1u); +x_101 = lean_nat_sub(x_99, x_100); +lean_dec(x_99); +x_102 = l_Lean_Expr_getRevArg_x21___main(x_6, x_101); +x_103 = lean_nat_sub(x_98, x_100); +x_104 = lean_nat_sub(x_103, x_100); +lean_dec(x_103); +x_105 = l_Lean_Expr_getRevArg_x21___main(x_6, x_104); +x_106 = lean_unsigned_to_nat(2u); +x_107 = lean_nat_sub(x_98, x_106); +lean_dec(x_98); +x_108 = lean_nat_sub(x_107, x_100); +lean_dec(x_107); +x_109 = l_Lean_Expr_getRevArg_x21___main(x_6, x_108); +lean_dec(x_6); +x_110 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_110, 0, x_105); +lean_ctor_set(x_110, 1, x_109); +x_111 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_111, 0, x_102); +lean_ctor_set(x_111, 1, x_110); +if (x_96 == 0) +{ +lean_object* x_112; +lean_dec(x_9); +x_112 = lean_box(0); +x_25 = x_112; +x_26 = x_111; +goto block_91; +} +else +{ +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_113 = l_Lean_Expr_getAppNumArgsAux___main(x_9, x_97); +x_114 = lean_nat_sub(x_113, x_97); +x_115 = lean_nat_sub(x_114, x_100); +lean_dec(x_114); +x_116 = l_Lean_Expr_getRevArg_x21___main(x_9, x_115); +x_117 = lean_nat_sub(x_113, x_100); +x_118 = lean_nat_sub(x_117, x_100); +lean_dec(x_117); +x_119 = l_Lean_Expr_getRevArg_x21___main(x_9, x_118); +x_120 = lean_nat_sub(x_113, x_106); +lean_dec(x_113); +x_121 = lean_nat_sub(x_120, x_100); +lean_dec(x_120); +x_122 = l_Lean_Expr_getRevArg_x21___main(x_9, x_121); +lean_dec(x_9); +x_123 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_123, 0, x_119); +lean_ctor_set(x_123, 1, x_122); +x_124 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_124, 0, x_116); +lean_ctor_set(x_124, 1, x_123); +x_125 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_125, 0, x_124); +x_25 = x_125; +x_26 = x_111; +goto block_91; +} +} +block_24: +{ +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_12); +x_13 = lean_ctor_get(x_10, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_10, 1); +lean_inc(x_14); +x_15 = lean_ctor_get(x_3, 1); +lean_inc(x_15); +lean_dec(x_3); +x_16 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_16, 0, x_13); +lean_ctor_set(x_16, 1, x_14); +lean_ctor_set(x_16, 2, x_15); +x_17 = l_Lean_Meta_mkEqTrans___closed__3; +x_18 = lean_array_push(x_17, x_1); +x_19 = lean_array_push(x_18, x_2); +x_20 = l_Lean_Meta_mkCongr___closed__2; +x_21 = l_Lean_Meta_mkEqSymm___closed__3; +x_22 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_22, 0, x_20); +lean_ctor_set(x_22, 1, x_21); +lean_ctor_set(x_22, 2, x_19); +lean_ctor_set(x_22, 3, x_16); +if (lean_is_scalar(x_11)) { + x_23 = lean_alloc_ctor(1, 2, 0); +} else { + x_23 = x_11; + lean_ctor_set_tag(x_23, 1); +} +lean_ctor_set(x_23, 0, x_22); +lean_ctor_set(x_23, 1, x_10); +return x_23; +} +block_91: +{ +lean_object* x_27; +x_27 = lean_ctor_get(x_26, 1); +lean_inc(x_27); +if (lean_obj_tag(x_25) == 0) +{ +lean_object* x_28; +lean_dec(x_27); +lean_dec(x_26); +x_28 = lean_box(0); +x_12 = x_28; +goto block_24; +} +else +{ +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_dec(x_11); +x_29 = lean_ctor_get(x_25, 0); +lean_inc(x_29); +lean_dec(x_25); +x_30 = lean_ctor_get(x_29, 1); +lean_inc(x_30); +x_31 = lean_ctor_get(x_26, 0); +lean_inc(x_31); +lean_dec(x_26); +x_32 = lean_ctor_get(x_27, 0); +lean_inc(x_32); +x_33 = lean_ctor_get(x_27, 1); +lean_inc(x_33); +lean_dec(x_27); +x_34 = lean_ctor_get(x_29, 0); +lean_inc(x_34); +lean_dec(x_29); +x_35 = lean_ctor_get(x_30, 0); +lean_inc(x_35); +x_36 = lean_ctor_get(x_30, 1); +lean_inc(x_36); +lean_dec(x_30); +lean_inc(x_3); +x_37 = l_Lean_Meta_whnfUsingDefault(x_31, x_3, x_10); +if (lean_obj_tag(x_37) == 0) +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; +x_38 = lean_ctor_get(x_37, 0); +lean_inc(x_38); +x_39 = lean_ctor_get(x_37, 1); +lean_inc(x_39); +if (lean_is_exclusive(x_37)) { + lean_ctor_release(x_37, 0); + lean_ctor_release(x_37, 1); + x_40 = x_37; +} else { + lean_dec_ref(x_37); + x_40 = lean_box(0); +} +if (lean_obj_tag(x_38) == 7) +{ +lean_object* x_54; uint8_t x_55; +x_54 = lean_ctor_get(x_38, 2); +lean_inc(x_54); +lean_dec(x_38); +x_55 = l_Lean_Expr_hasLooseBVars(x_54); +if (x_55 == 0) +{ +lean_object* x_56; +lean_dec(x_40); +lean_inc(x_3); +lean_inc(x_34); +x_56 = l_Lean_Meta_getLevel(x_34, x_3, x_39); +if (lean_obj_tag(x_56) == 0) +{ +lean_object* x_57; lean_object* x_58; lean_object* x_59; +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); +lean_inc(x_54); +x_59 = l_Lean_Meta_getLevel(x_54, x_3, x_58); +if (lean_obj_tag(x_59) == 0) +{ +uint8_t x_60; +x_60 = !lean_is_exclusive(x_59); +if (x_60 == 0) +{ +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; +x_61 = lean_ctor_get(x_59, 0); +x_62 = lean_box(0); +x_63 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_63, 0, x_61); +lean_ctor_set(x_63, 1, x_62); +x_64 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_64, 0, x_57); +lean_ctor_set(x_64, 1, x_63); +x_65 = l_Lean_Meta_mkCongr___closed__2; +x_66 = l_Lean_mkConst(x_65, x_64); +x_67 = l_Lean_mkApp8(x_66, x_34, x_54, x_32, x_33, x_35, x_36, x_1, x_2); +lean_ctor_set(x_59, 0, x_67); +return x_59; +} +else +{ +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; +x_68 = lean_ctor_get(x_59, 0); +x_69 = lean_ctor_get(x_59, 1); +lean_inc(x_69); +lean_inc(x_68); +lean_dec(x_59); +x_70 = lean_box(0); +x_71 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_71, 0, x_68); +lean_ctor_set(x_71, 1, x_70); +x_72 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_72, 0, x_57); +lean_ctor_set(x_72, 1, x_71); +x_73 = l_Lean_Meta_mkCongr___closed__2; +x_74 = l_Lean_mkConst(x_73, x_72); +x_75 = l_Lean_mkApp8(x_74, x_34, x_54, x_32, x_33, x_35, x_36, x_1, x_2); +x_76 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_76, 0, x_75); +lean_ctor_set(x_76, 1, x_69); +return x_76; +} +} +else +{ +uint8_t x_77; +lean_dec(x_57); +lean_dec(x_54); +lean_dec(x_36); +lean_dec(x_35); +lean_dec(x_34); +lean_dec(x_33); +lean_dec(x_32); +lean_dec(x_2); +lean_dec(x_1); +x_77 = !lean_is_exclusive(x_59); +if (x_77 == 0) +{ +return x_59; +} +else +{ +lean_object* x_78; lean_object* x_79; lean_object* x_80; +x_78 = lean_ctor_get(x_59, 0); +x_79 = lean_ctor_get(x_59, 1); +lean_inc(x_79); +lean_inc(x_78); +lean_dec(x_59); +x_80 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_80, 0, x_78); +lean_ctor_set(x_80, 1, x_79); +return x_80; +} +} +} +else +{ +uint8_t x_81; +lean_dec(x_54); +lean_dec(x_36); +lean_dec(x_35); +lean_dec(x_34); +lean_dec(x_33); +lean_dec(x_32); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_81 = !lean_is_exclusive(x_56); +if (x_81 == 0) +{ +return x_56; +} +else +{ +lean_object* x_82; lean_object* x_83; lean_object* x_84; +x_82 = lean_ctor_get(x_56, 0); +x_83 = lean_ctor_get(x_56, 1); +lean_inc(x_83); +lean_inc(x_82); +lean_dec(x_56); +x_84 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_84, 0, x_82); +lean_ctor_set(x_84, 1, x_83); +return x_84; +} +} +} +else +{ +lean_object* x_85; +lean_dec(x_54); +lean_dec(x_36); +lean_dec(x_35); +lean_dec(x_34); +lean_dec(x_33); +lean_dec(x_32); +x_85 = lean_box(0); +x_41 = x_85; +goto block_53; +} +} +else +{ +lean_object* x_86; +lean_dec(x_38); +lean_dec(x_36); +lean_dec(x_35); +lean_dec(x_34); +lean_dec(x_33); +lean_dec(x_32); +x_86 = lean_box(0); +x_41 = x_86; +goto block_53; +} +block_53: +{ +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_dec(x_41); +x_42 = lean_ctor_get(x_39, 0); +lean_inc(x_42); +x_43 = lean_ctor_get(x_39, 1); +lean_inc(x_43); +x_44 = lean_ctor_get(x_3, 1); +lean_inc(x_44); +lean_dec(x_3); +x_45 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_45, 0, x_42); +lean_ctor_set(x_45, 1, x_43); +lean_ctor_set(x_45, 2, x_44); +x_46 = l_Lean_Meta_mkEqTrans___closed__3; +x_47 = lean_array_push(x_46, x_1); +x_48 = lean_array_push(x_47, x_2); +x_49 = l_Lean_Meta_mkCongr___closed__2; +x_50 = l_Lean_Meta_mkCongrArg___closed__3; +x_51 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_51, 0, x_49); +lean_ctor_set(x_51, 1, x_50); +lean_ctor_set(x_51, 2, x_48); +lean_ctor_set(x_51, 3, x_45); +if (lean_is_scalar(x_40)) { + x_52 = lean_alloc_ctor(1, 2, 0); +} else { + x_52 = x_40; + lean_ctor_set_tag(x_52, 1); +} +lean_ctor_set(x_52, 0, x_51); +lean_ctor_set(x_52, 1, x_39); +return x_52; +} +} +else +{ +uint8_t x_87; +lean_dec(x_36); +lean_dec(x_35); +lean_dec(x_34); +lean_dec(x_33); +lean_dec(x_32); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_87 = !lean_is_exclusive(x_37); +if (x_87 == 0) +{ +return x_37; +} +else +{ +lean_object* x_88; lean_object* x_89; lean_object* x_90; +x_88 = lean_ctor_get(x_37, 0); +x_89 = lean_ctor_get(x_37, 1); +lean_inc(x_89); +lean_inc(x_88); +lean_dec(x_37); +x_90 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_90, 0, x_88); +lean_ctor_set(x_90, 1, x_89); +return x_90; +} +} +} +} +} +else +{ +uint8_t x_126; +lean_dec(x_6); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_126 = !lean_is_exclusive(x_8); +if (x_126 == 0) +{ +return x_8; +} +else +{ +lean_object* x_127; lean_object* x_128; lean_object* x_129; +x_127 = lean_ctor_get(x_8, 0); +x_128 = lean_ctor_get(x_8, 1); +lean_inc(x_128); +lean_inc(x_127); +lean_dec(x_8); +x_129 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_129, 0, x_127); +lean_ctor_set(x_129, 1, x_128); +return x_129; +} +} +} +else +{ +uint8_t x_130; +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_130 = !lean_is_exclusive(x_5); +if (x_130 == 0) +{ +return x_5; +} +else +{ +lean_object* x_131; lean_object* x_132; lean_object* x_133; +x_131 = lean_ctor_get(x_5, 0); +x_132 = lean_ctor_get(x_5, 1); +lean_inc(x_132); +lean_inc(x_131); +lean_dec(x_5); +x_133 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_133, 0, x_131); +lean_ctor_set(x_133, 1, x_132); +return x_133; +} +} +} +} +lean_object* l_Array_forMAux___main___at___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; uint8_t x_6; +x_5 = lean_array_get_size(x_1); +x_6 = lean_nat_dec_lt(x_2, x_5); +lean_dec(x_5); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; +lean_dec(x_3); +lean_dec(x_2); +x_7 = lean_box(0); +x_8 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_8, 0, x_7); +lean_ctor_set(x_8, 1, x_4); +return x_8; +} +else +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_9 = lean_array_fget(x_1, x_2); +x_10 = lean_unsigned_to_nat(1u); +x_11 = lean_nat_add(x_2, x_10); +lean_dec(x_2); +lean_inc(x_9); +x_12 = l_Lean_Meta_getMVarDecl(x_9, x_3, x_4); +if (lean_obj_tag(x_12) == 0) +{ +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_13 = lean_ctor_get(x_12, 0); +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, 2); +lean_inc(x_15); +lean_dec(x_13); +x_16 = lean_unsigned_to_nat(10000u); +lean_inc(x_3); +x_17 = l_Lean_Meta_synthInstance(x_15, x_16, x_3, x_14); +if (lean_obj_tag(x_17) == 0) +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; +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_Meta_assignExprMVar(x_9, x_18, x_3, x_19); +if (lean_obj_tag(x_20) == 0) +{ +lean_object* x_21; +x_21 = lean_ctor_get(x_20, 1); +lean_inc(x_21); +lean_dec(x_20); +x_2 = x_11; +x_4 = x_21; +goto _start; +} +else +{ +uint8_t x_23; +lean_dec(x_11); +lean_dec(x_3); +x_23 = !lean_is_exclusive(x_20); +if (x_23 == 0) +{ +return x_20; +} +else +{ +lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_24 = lean_ctor_get(x_20, 0); +x_25 = lean_ctor_get(x_20, 1); +lean_inc(x_25); +lean_inc(x_24); +lean_dec(x_20); +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_11); +lean_dec(x_9); +lean_dec(x_3); +x_27 = !lean_is_exclusive(x_17); +if (x_27 == 0) +{ +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; +} +} +} +else +{ +uint8_t x_31; +lean_dec(x_11); +lean_dec(x_9); +lean_dec(x_3); +x_31 = !lean_is_exclusive(x_12); +if (x_31 == 0) +{ +return x_12; +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_32 = lean_ctor_get(x_12, 0); +x_33 = lean_ctor_get(x_12, 1); +lean_inc(x_33); +lean_inc(x_32); +lean_dec(x_12); +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_32); +lean_ctor_set(x_34, 1, x_33); +return x_34; +} +} +} +} +} +lean_object* _init_l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("mkAppM"); +return x_1; +} +} +lean_object* _init_l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("result contains metavariables"); +return x_1; +} +} +lean_object* l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; +x_6 = lean_unsigned_to_nat(0u); +lean_inc(x_4); +x_7 = l_Array_forMAux___main___at___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___spec__1(x_3, x_6, x_4, x_5); +if (lean_obj_tag(x_7) == 0) +{ +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_ctor_get(x_7, 1); +lean_inc(x_8); +lean_dec(x_7); +x_9 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_2, x_2, x_6, x_1); +x_10 = l_Lean_Meta_instantiateMVars(x_9, x_4, x_8); +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 = l_Lean_Meta_hasAssignableMVar(x_11, x_4, x_12); +x_14 = lean_ctor_get(x_13, 0); +lean_inc(x_14); +x_15 = lean_unbox(x_14); +lean_dec(x_14); +if (x_15 == 0) +{ +uint8_t x_16; +lean_dec(x_4); +x_16 = !lean_is_exclusive(x_13); +if (x_16 == 0) +{ +lean_object* x_17; +x_17 = lean_ctor_get(x_13, 0); +lean_dec(x_17); +lean_ctor_set(x_13, 0, x_11); +return x_13; +} +else +{ +lean_object* x_18; lean_object* x_19; +x_18 = lean_ctor_get(x_13, 1); +lean_inc(x_18); +lean_dec(x_13); +x_19 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_19, 0, x_11); +lean_ctor_set(x_19, 1, x_18); +return x_19; +} +} +else +{ +uint8_t x_20; +x_20 = !lean_is_exclusive(x_13); +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; +x_21 = lean_ctor_get(x_13, 1); +x_22 = lean_ctor_get(x_13, 0); +lean_dec(x_22); +x_23 = lean_ctor_get(x_21, 0); +lean_inc(x_23); +x_24 = lean_ctor_get(x_21, 1); +lean_inc(x_24); +x_25 = lean_ctor_get(x_4, 1); +lean_inc(x_25); +lean_dec(x_4); +x_26 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_26, 0, x_23); +lean_ctor_set(x_26, 1, x_24); +lean_ctor_set(x_26, 2, x_25); +x_27 = l_Lean_mkOptionalNode___rarg___closed__1; +x_28 = lean_array_push(x_27, x_11); +x_29 = l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__2; +x_30 = l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__3; +x_31 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_31, 0, x_29); +lean_ctor_set(x_31, 1, x_30); +lean_ctor_set(x_31, 2, x_28); +lean_ctor_set(x_31, 3, x_26); +lean_ctor_set_tag(x_13, 1); +lean_ctor_set(x_13, 0, x_31); +return x_13; +} +else +{ +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_32 = lean_ctor_get(x_13, 1); +lean_inc(x_32); +lean_dec(x_13); +x_33 = lean_ctor_get(x_32, 0); +lean_inc(x_33); +x_34 = lean_ctor_get(x_32, 1); +lean_inc(x_34); +x_35 = lean_ctor_get(x_4, 1); +lean_inc(x_35); +lean_dec(x_4); +x_36 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_36, 0, x_33); +lean_ctor_set(x_36, 1, x_34); +lean_ctor_set(x_36, 2, x_35); +x_37 = l_Lean_mkOptionalNode___rarg___closed__1; +x_38 = lean_array_push(x_37, x_11); +x_39 = l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__2; +x_40 = l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__3; +x_41 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_41, 0, x_39); +lean_ctor_set(x_41, 1, x_40); +lean_ctor_set(x_41, 2, x_38); +lean_ctor_set(x_41, 3, x_36); +x_42 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_42, 0, x_41); +lean_ctor_set(x_42, 1, x_32); +return x_42; +} +} +} +else +{ +uint8_t x_43; +lean_dec(x_4); +lean_dec(x_1); +x_43 = !lean_is_exclusive(x_7); +if (x_43 == 0) +{ +return x_7; +} +else +{ +lean_object* x_44; lean_object* x_45; lean_object* x_46; +x_44 = lean_ctor_get(x_7, 0); +x_45 = lean_ctor_get(x_7, 1); +lean_inc(x_45); +lean_inc(x_44); +lean_dec(x_7); +x_46 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_46, 0, x_44); +lean_ctor_set(x_46, 1, x_45); +return x_46; +} +} +} +} +lean_object* l_Array_forMAux___main___at___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_Array_forMAux___main___at___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___spec__1(x_1, x_2, x_3, x_4); +lean_dec(x_1); +return x_5; +} +} +lean_object* l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___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_AppBuilder_2__mkAppMFinal(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_3); +lean_dec(x_2); +return x_6; +} +} +lean_object* _init_l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("too many explicit arguments provided"); +return x_1; +} +} +lean_object* l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___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, lean_object* x_7, lean_object* x_8, lean_object* x_9) { +_start: +{ +lean_object* x_10; +if (lean_obj_tag(x_7) == 7) +{ +lean_object* x_57; lean_object* x_58; lean_object* x_59; uint64_t x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; uint8_t x_107; lean_object* x_108; +x_57 = lean_ctor_get(x_7, 0); +lean_inc(x_57); +x_58 = lean_ctor_get(x_7, 1); +lean_inc(x_58); +x_59 = lean_ctor_get(x_7, 2); +lean_inc(x_59); +x_60 = lean_ctor_get_uint64(x_7, sizeof(void*)*3); +lean_dec(x_7); +x_61 = lean_array_get_size(x_4); +lean_inc(x_4); +x_62 = lean_expr_instantiate_rev_range(x_58, x_5, x_61, x_4); +lean_dec(x_61); +lean_dec(x_58); +x_107 = (uint8_t)((x_60 << 24) >> 61); +x_108 = lean_box(x_107); +switch (lean_obj_tag(x_108)) { +case 1: +{ +uint8_t x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; +x_109 = 0; +lean_inc(x_8); +x_110 = l_Lean_Meta_mkFreshExprMVar(x_62, x_57, x_109, x_8, x_9); +x_111 = lean_ctor_get(x_110, 0); +lean_inc(x_111); +x_112 = lean_ctor_get(x_110, 1); +lean_inc(x_112); +lean_dec(x_110); +x_113 = lean_array_push(x_4, x_111); +x_4 = x_113; +x_7 = x_59; +x_9 = x_112; +goto _start; +} +case 3: +{ +uint8_t 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; +x_115 = 1; +lean_inc(x_8); +x_116 = l_Lean_Meta_mkFreshExprMVar(x_62, x_57, x_115, x_8, x_9); +x_117 = lean_ctor_get(x_116, 0); +lean_inc(x_117); +x_118 = lean_ctor_get(x_116, 1); +lean_inc(x_118); +lean_dec(x_116); +lean_inc(x_117); +x_119 = lean_array_push(x_4, x_117); +x_120 = l_Lean_Expr_mvarId_x21(x_117); +lean_dec(x_117); +x_121 = lean_array_push(x_6, x_120); +x_4 = x_119; +x_6 = x_121; +x_7 = x_59; +x_9 = x_118; +goto _start; +} +default: +{ +lean_object* x_123; +lean_dec(x_108); +lean_dec(x_57); +x_123 = lean_box(0); +x_63 = x_123; +goto block_106; +} +} +block_106: +{ +lean_object* x_64; uint8_t x_65; +lean_dec(x_63); +x_64 = lean_array_get_size(x_2); +x_65 = lean_nat_dec_lt(x_3, x_64); +lean_dec(x_64); +if (x_65 == 0) +{ +lean_object* x_66; +lean_dec(x_62); +lean_dec(x_59); +lean_dec(x_5); +lean_dec(x_3); +x_66 = l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal(x_1, x_4, x_6, x_8, x_9); +lean_dec(x_6); +lean_dec(x_4); +return x_66; +} +else +{ +lean_object* x_67; lean_object* x_68; +x_67 = lean_array_fget(x_2, x_3); +lean_inc(x_8); +lean_inc(x_67); +x_68 = l_Lean_Meta_inferType(x_67, x_8, x_9); +if (lean_obj_tag(x_68) == 0) +{ +lean_object* x_69; lean_object* x_70; lean_object* x_71; +x_69 = lean_ctor_get(x_68, 0); +lean_inc(x_69); +x_70 = lean_ctor_get(x_68, 1); +lean_inc(x_70); +lean_dec(x_68); +lean_inc(x_8); +x_71 = l_Lean_Meta_isExprDefEq(x_62, x_69, x_8, x_70); +if (lean_obj_tag(x_71) == 0) +{ +lean_object* x_72; uint8_t x_73; +x_72 = lean_ctor_get(x_71, 0); +lean_inc(x_72); +x_73 = lean_unbox(x_72); +lean_dec(x_72); +if (x_73 == 0) +{ +uint8_t x_74; +lean_dec(x_59); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_3); +x_74 = !lean_is_exclusive(x_71); +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; lean_object* x_83; +x_75 = lean_ctor_get(x_71, 1); +x_76 = lean_ctor_get(x_71, 0); +lean_dec(x_76); +x_77 = lean_ctor_get(x_75, 0); +lean_inc(x_77); +x_78 = lean_ctor_get(x_75, 1); +lean_inc(x_78); +x_79 = lean_ctor_get(x_8, 1); +lean_inc(x_79); +lean_dec(x_8); +x_80 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_80, 0, x_77); +lean_ctor_set(x_80, 1, x_78); +lean_ctor_set(x_80, 2, x_79); +x_81 = lean_unsigned_to_nat(0u); +x_82 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_4, x_4, x_81, x_1); +lean_dec(x_4); +x_83 = lean_alloc_ctor(14, 3, 0); +lean_ctor_set(x_83, 0, x_82); +lean_ctor_set(x_83, 1, x_67); +lean_ctor_set(x_83, 2, x_80); +lean_ctor_set_tag(x_71, 1); +lean_ctor_set(x_71, 0, x_83); +return x_71; +} +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; lean_object* x_92; +x_84 = lean_ctor_get(x_71, 1); +lean_inc(x_84); +lean_dec(x_71); +x_85 = lean_ctor_get(x_84, 0); +lean_inc(x_85); +x_86 = lean_ctor_get(x_84, 1); +lean_inc(x_86); +x_87 = lean_ctor_get(x_8, 1); +lean_inc(x_87); +lean_dec(x_8); +x_88 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_88, 0, x_85); +lean_ctor_set(x_88, 1, x_86); +lean_ctor_set(x_88, 2, x_87); +x_89 = lean_unsigned_to_nat(0u); +x_90 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_4, x_4, x_89, x_1); +lean_dec(x_4); +x_91 = lean_alloc_ctor(14, 3, 0); +lean_ctor_set(x_91, 0, x_90); +lean_ctor_set(x_91, 1, x_67); +lean_ctor_set(x_91, 2, x_88); +x_92 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_92, 0, x_91); +lean_ctor_set(x_92, 1, x_84); +return x_92; +} +} +else +{ +lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; +x_93 = lean_ctor_get(x_71, 1); +lean_inc(x_93); +lean_dec(x_71); +x_94 = lean_unsigned_to_nat(1u); +x_95 = lean_nat_add(x_3, x_94); +lean_dec(x_3); +x_96 = lean_array_push(x_4, x_67); +x_3 = x_95; +x_4 = x_96; +x_7 = x_59; +x_9 = x_93; +goto _start; +} +} +else +{ +uint8_t x_98; +lean_dec(x_67); +lean_dec(x_59); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_98 = !lean_is_exclusive(x_71); +if (x_98 == 0) +{ +return x_71; +} +else +{ +lean_object* x_99; lean_object* x_100; lean_object* x_101; +x_99 = lean_ctor_get(x_71, 0); +x_100 = lean_ctor_get(x_71, 1); +lean_inc(x_100); +lean_inc(x_99); +lean_dec(x_71); +x_101 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_101, 0, x_99); +lean_ctor_set(x_101, 1, x_100); +return x_101; +} +} +} +else +{ +uint8_t x_102; +lean_dec(x_67); +lean_dec(x_62); +lean_dec(x_59); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_102 = !lean_is_exclusive(x_68); +if (x_102 == 0) +{ +return x_68; +} +else +{ +lean_object* x_103; lean_object* x_104; lean_object* x_105; +x_103 = lean_ctor_get(x_68, 0); +x_104 = lean_ctor_get(x_68, 1); +lean_inc(x_104); +lean_inc(x_103); +lean_dec(x_68); +x_105 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_105, 0, x_103); +lean_ctor_set(x_105, 1, x_104); +return x_105; +} +} +} +} +} +else +{ +lean_object* x_124; +x_124 = lean_box(0); +x_10 = x_124; +goto block_56; +} +block_56: +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +lean_dec(x_10); +x_11 = lean_array_get_size(x_4); +lean_inc(x_4); +x_12 = lean_expr_instantiate_rev_range(x_7, x_5, x_11, x_4); +lean_dec(x_5); +lean_dec(x_7); +lean_inc(x_8); +x_13 = l_Lean_Meta_whnfUsingDefault(x_12, x_8, x_9); +if (lean_obj_tag(x_13) == 0) +{ +uint8_t x_14; +x_14 = !lean_is_exclusive(x_13); +if (x_14 == 0) +{ +lean_object* x_15; lean_object* x_16; uint8_t x_17; +x_15 = lean_ctor_get(x_13, 0); +x_16 = lean_ctor_get(x_13, 1); +x_17 = l_Lean_Expr_isForall(x_15); +if (x_17 == 0) +{ +lean_object* x_18; uint8_t x_19; +lean_dec(x_15); +lean_dec(x_11); +x_18 = lean_array_get_size(x_2); +x_19 = lean_nat_dec_eq(x_3, x_18); +lean_dec(x_18); +lean_dec(x_3); +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_dec(x_6); +lean_dec(x_4); +x_20 = lean_ctor_get(x_16, 0); +lean_inc(x_20); +x_21 = lean_ctor_get(x_16, 1); +lean_inc(x_21); +x_22 = lean_ctor_get(x_8, 1); +lean_inc(x_22); +lean_dec(x_8); +x_23 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_23, 0, x_20); +lean_ctor_set(x_23, 1, x_21); +lean_ctor_set(x_23, 2, x_22); +x_24 = l_Lean_mkOptionalNode___rarg___closed__1; +x_25 = lean_array_push(x_24, x_1); +x_26 = lean_unsigned_to_nat(0u); +x_27 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_2, x_2, x_26, x_25); +x_28 = l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__2; +x_29 = l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main___closed__1; +x_30 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_30, 0, x_28); +lean_ctor_set(x_30, 1, x_29); +lean_ctor_set(x_30, 2, x_27); +lean_ctor_set(x_30, 3, x_23); +lean_ctor_set_tag(x_13, 1); +lean_ctor_set(x_13, 0, x_30); +return x_13; +} +else +{ +lean_object* x_31; +lean_free_object(x_13); +x_31 = l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal(x_1, x_4, x_6, x_8, x_16); +lean_dec(x_6); +lean_dec(x_4); +return x_31; +} +} +else +{ +lean_free_object(x_13); +x_5 = x_11; +x_7 = x_15; +x_9 = x_16; +goto _start; +} +} +else +{ +lean_object* x_33; lean_object* x_34; uint8_t x_35; +x_33 = lean_ctor_get(x_13, 0); +x_34 = lean_ctor_get(x_13, 1); +lean_inc(x_34); +lean_inc(x_33); +lean_dec(x_13); +x_35 = l_Lean_Expr_isForall(x_33); +if (x_35 == 0) +{ +lean_object* x_36; uint8_t x_37; +lean_dec(x_33); +lean_dec(x_11); +x_36 = lean_array_get_size(x_2); +x_37 = lean_nat_dec_eq(x_3, x_36); +lean_dec(x_36); +lean_dec(x_3); +if (x_37 == 0) +{ +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_dec(x_6); +lean_dec(x_4); +x_38 = lean_ctor_get(x_34, 0); +lean_inc(x_38); +x_39 = lean_ctor_get(x_34, 1); +lean_inc(x_39); +x_40 = lean_ctor_get(x_8, 1); +lean_inc(x_40); +lean_dec(x_8); +x_41 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_41, 0, x_38); +lean_ctor_set(x_41, 1, x_39); +lean_ctor_set(x_41, 2, x_40); +x_42 = l_Lean_mkOptionalNode___rarg___closed__1; +x_43 = lean_array_push(x_42, x_1); +x_44 = lean_unsigned_to_nat(0u); +x_45 = l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(x_2, x_2, x_44, x_43); +x_46 = l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__2; +x_47 = l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main___closed__1; +x_48 = lean_alloc_ctor(16, 4, 0); +lean_ctor_set(x_48, 0, x_46); +lean_ctor_set(x_48, 1, x_47); +lean_ctor_set(x_48, 2, x_45); +lean_ctor_set(x_48, 3, x_41); +x_49 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_49, 0, x_48); +lean_ctor_set(x_49, 1, x_34); +return x_49; +} +else +{ +lean_object* x_50; +x_50 = l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal(x_1, x_4, x_6, x_8, x_34); +lean_dec(x_6); +lean_dec(x_4); +return x_50; +} +} +else +{ +x_5 = x_11; +x_7 = x_33; +x_9 = x_34; +goto _start; +} +} +} +else +{ +uint8_t x_52; +lean_dec(x_11); +lean_dec(x_8); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_52 = !lean_is_exclusive(x_13); +if (x_52 == 0) +{ +return x_13; +} +else +{ +lean_object* x_53; lean_object* x_54; lean_object* x_55; +x_53 = lean_ctor_get(x_13, 0); +x_54 = lean_ctor_get(x_13, 1); +lean_inc(x_54); +lean_inc(x_53); +lean_dec(x_13); +x_55 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_55, 0, x_53); +lean_ctor_set(x_55, 1, x_54); +return x_55; +} +} +} +} +} +lean_object* l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9) { +_start: +{ +lean_object* x_10; +x_10 = l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9); +lean_dec(x_2); +return x_10; +} +} +lean_object* l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9) { +_start: +{ +lean_object* x_10; +x_10 = l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9); +return x_10; +} +} +lean_object* l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9) { +_start: +{ +lean_object* x_10; +x_10 = l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9); +lean_dec(x_2); +return x_10; +} +} +lean_object* l_List_mapM___main___at_Lean_Meta_mkAppM___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +if (lean_obj_tag(x_1) == 0) +{ +lean_object* x_4; lean_object* x_5; +x_4 = lean_box(0); +x_5 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_5, 0, x_4); +lean_ctor_set(x_5, 1, x_3); +return x_5; +} +else +{ +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; lean_object* x_11; lean_object* x_12; uint8_t x_13; +x_7 = lean_ctor_get(x_1, 1); +x_8 = lean_ctor_get(x_1, 0); +lean_dec(x_8); +x_9 = l_Lean_Meta_mkFreshLevelMVar___rarg(x_3); +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 = l_List_mapM___main___at_Lean_Meta_mkAppM___spec__1(x_7, x_2, x_11); +x_13 = !lean_is_exclusive(x_12); +if (x_13 == 0) +{ +lean_object* x_14; +x_14 = lean_ctor_get(x_12, 0); +lean_ctor_set(x_1, 1, x_14); +lean_ctor_set(x_1, 0, x_10); +lean_ctor_set(x_12, 0, x_1); +return x_12; +} +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = lean_ctor_get(x_12, 0); +x_16 = lean_ctor_get(x_12, 1); +lean_inc(x_16); +lean_inc(x_15); +lean_dec(x_12); +lean_ctor_set(x_1, 1, x_15); +lean_ctor_set(x_1, 0, x_10); +x_17 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_17, 0, x_1); +lean_ctor_set(x_17, 1, x_16); +return x_17; +} +} +else +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_18 = lean_ctor_get(x_1, 1); +lean_inc(x_18); +lean_dec(x_1); +x_19 = l_Lean_Meta_mkFreshLevelMVar___rarg(x_3); +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 = l_List_mapM___main___at_Lean_Meta_mkAppM___spec__1(x_18, x_2, x_21); +x_23 = lean_ctor_get(x_22, 0); +lean_inc(x_23); +x_24 = lean_ctor_get(x_22, 1); +lean_inc(x_24); +if (lean_is_exclusive(x_22)) { + lean_ctor_release(x_22, 0); + lean_ctor_release(x_22, 1); + x_25 = x_22; +} else { + lean_dec_ref(x_22); + x_25 = lean_box(0); +} +x_26 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_26, 0, x_20); +lean_ctor_set(x_26, 1, x_23); +if (lean_is_scalar(x_25)) { + x_27 = lean_alloc_ctor(0, 2, 0); +} else { + x_27 = x_25; +} +lean_ctor_set(x_27, 0, x_26); +lean_ctor_set(x_27, 1, x_24); +return x_27; +} +} +} +} +lean_object* _init_l_Lean_Meta_mkAppM___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Meta_isLevelDefEqAux___main___closed__2; +x_2 = l_Lean_Meta_Exception_toMessageData___closed__68; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_mkAppM___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_SimpleMonadTracerAdapter_isTracingEnabledFor___rarg___lambda__1___closed__2; +x_2 = l_Lean_Meta_mkAppM___closed__1; +x_3 = l_Lean_Name_append___main(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Meta_mkAppM(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +uint8_t x_5; lean_object* x_6; lean_object* x_384; uint8_t x_385; +x_384 = lean_ctor_get(x_4, 4); +lean_inc(x_384); +x_385 = lean_ctor_get_uint8(x_384, sizeof(void*)*1); +lean_dec(x_384); +if (x_385 == 0) +{ +uint8_t x_386; +x_386 = 0; +x_5 = x_386; +x_6 = x_4; +goto block_383; +} +else +{ +lean_object* x_387; lean_object* x_388; lean_object* x_389; lean_object* x_390; uint8_t x_391; +x_387 = l_Lean_Meta_mkAppM___closed__2; +x_388 = l___private_Init_Lean_Trace_4__checkTraceOption___at_Lean_Meta_trace___spec__1(x_387, x_3, x_4); +x_389 = lean_ctor_get(x_388, 0); +lean_inc(x_389); +x_390 = lean_ctor_get(x_388, 1); +lean_inc(x_390); +lean_dec(x_388); +x_391 = lean_unbox(x_389); +lean_dec(x_389); +x_5 = x_391; +x_6 = x_390; +goto block_383; +} +block_383: +{ +if (x_5 == 0) +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_6); +if (x_7 == 0) +{ +lean_object* x_8; uint8_t x_9; +x_8 = lean_ctor_get(x_6, 4); +x_9 = !lean_is_exclusive(x_8); +if (x_9 == 0) +{ +lean_object* x_10; uint8_t x_11; uint8_t x_12; lean_object* x_13; lean_object* x_14; +x_10 = lean_ctor_get(x_6, 1); +x_11 = lean_ctor_get_uint8(x_8, sizeof(void*)*1); +x_12 = 0; +lean_ctor_set_uint8(x_8, sizeof(void*)*1, x_12); +lean_inc(x_10); +x_13 = l_Lean_MetavarContext_incDepth(x_10); +lean_ctor_set(x_6, 1, x_13); +lean_inc(x_1); +x_14 = l_Lean_Meta_getConstInfo(x_1, x_3, x_6); +if (lean_obj_tag(x_14) == 0) +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; 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_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 = l_Lean_ConstantInfo_lparams(x_15); +x_18 = l_List_mapM___main___at_Lean_Meta_mkAppM___spec__1(x_17, x_3, x_16); +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); +lean_inc(x_19); +x_21 = l_Lean_mkConst(x_1, x_19); +x_22 = lean_instantiate_type_lparams(x_15, x_19); +x_23 = lean_unsigned_to_nat(0u); +x_24 = l_Array_empty___closed__1; +x_25 = l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main(x_21, x_2, x_23, x_24, x_23, x_24, x_22, x_3, x_20); +if (lean_obj_tag(x_25) == 0) +{ +lean_object* x_26; lean_object* x_27; uint8_t x_28; +x_26 = lean_ctor_get(x_25, 1); +lean_inc(x_26); +x_27 = lean_ctor_get(x_26, 4); +lean_inc(x_27); +x_28 = !lean_is_exclusive(x_25); +if (x_28 == 0) +{ +lean_object* x_29; uint8_t x_30; +x_29 = lean_ctor_get(x_25, 1); +lean_dec(x_29); +x_30 = !lean_is_exclusive(x_26); +if (x_30 == 0) +{ +lean_object* x_31; lean_object* x_32; uint8_t x_33; +x_31 = lean_ctor_get(x_26, 4); +lean_dec(x_31); +x_32 = lean_ctor_get(x_26, 1); +lean_dec(x_32); +x_33 = !lean_is_exclusive(x_27); +if (x_33 == 0) +{ +lean_ctor_set_uint8(x_27, sizeof(void*)*1, x_11); +lean_ctor_set(x_26, 1, x_10); +return x_25; +} +else +{ +lean_object* x_34; lean_object* x_35; +x_34 = lean_ctor_get(x_27, 0); +lean_inc(x_34); +lean_dec(x_27); +x_35 = lean_alloc_ctor(0, 1, 1); +lean_ctor_set(x_35, 0, x_34); +lean_ctor_set_uint8(x_35, sizeof(void*)*1, x_11); +lean_ctor_set(x_26, 4, x_35); +lean_ctor_set(x_26, 1, x_10); +return x_25; +} +} +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; +x_36 = lean_ctor_get(x_26, 0); +x_37 = lean_ctor_get(x_26, 2); +x_38 = lean_ctor_get(x_26, 3); +x_39 = lean_ctor_get(x_26, 5); +lean_inc(x_39); +lean_inc(x_38); +lean_inc(x_37); +lean_inc(x_36); +lean_dec(x_26); +x_40 = lean_ctor_get(x_27, 0); +lean_inc(x_40); +if (lean_is_exclusive(x_27)) { + lean_ctor_release(x_27, 0); + x_41 = x_27; +} else { + lean_dec_ref(x_27); + x_41 = lean_box(0); +} +if (lean_is_scalar(x_41)) { + x_42 = lean_alloc_ctor(0, 1, 1); +} else { + x_42 = x_41; +} +lean_ctor_set(x_42, 0, x_40); +lean_ctor_set_uint8(x_42, sizeof(void*)*1, x_11); +x_43 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_43, 0, x_36); +lean_ctor_set(x_43, 1, x_10); +lean_ctor_set(x_43, 2, x_37); +lean_ctor_set(x_43, 3, x_38); +lean_ctor_set(x_43, 4, x_42); +lean_ctor_set(x_43, 5, x_39); +lean_ctor_set(x_25, 1, x_43); +return x_25; +} +} +else +{ +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_44 = lean_ctor_get(x_25, 0); +lean_inc(x_44); +lean_dec(x_25); +x_45 = lean_ctor_get(x_26, 0); +lean_inc(x_45); +x_46 = lean_ctor_get(x_26, 2); +lean_inc(x_46); +x_47 = lean_ctor_get(x_26, 3); +lean_inc(x_47); +x_48 = lean_ctor_get(x_26, 5); +lean_inc(x_48); +if (lean_is_exclusive(x_26)) { + lean_ctor_release(x_26, 0); + lean_ctor_release(x_26, 1); + lean_ctor_release(x_26, 2); + lean_ctor_release(x_26, 3); + lean_ctor_release(x_26, 4); + lean_ctor_release(x_26, 5); + x_49 = x_26; +} else { + lean_dec_ref(x_26); + x_49 = lean_box(0); +} +x_50 = lean_ctor_get(x_27, 0); +lean_inc(x_50); +if (lean_is_exclusive(x_27)) { + lean_ctor_release(x_27, 0); + x_51 = x_27; +} else { + lean_dec_ref(x_27); + x_51 = lean_box(0); +} +if (lean_is_scalar(x_51)) { + x_52 = lean_alloc_ctor(0, 1, 1); +} else { + x_52 = x_51; +} +lean_ctor_set(x_52, 0, x_50); +lean_ctor_set_uint8(x_52, sizeof(void*)*1, x_11); +if (lean_is_scalar(x_49)) { + x_53 = lean_alloc_ctor(0, 6, 0); +} else { + x_53 = x_49; +} +lean_ctor_set(x_53, 0, x_45); +lean_ctor_set(x_53, 1, x_10); +lean_ctor_set(x_53, 2, x_46); +lean_ctor_set(x_53, 3, x_47); +lean_ctor_set(x_53, 4, x_52); +lean_ctor_set(x_53, 5, x_48); +x_54 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_54, 0, x_44); +lean_ctor_set(x_54, 1, x_53); +return x_54; +} +} +else +{ +lean_object* x_55; lean_object* x_56; uint8_t x_57; +x_55 = lean_ctor_get(x_25, 1); +lean_inc(x_55); +x_56 = lean_ctor_get(x_55, 4); +lean_inc(x_56); +x_57 = !lean_is_exclusive(x_25); +if (x_57 == 0) +{ +lean_object* x_58; uint8_t x_59; +x_58 = lean_ctor_get(x_25, 1); +lean_dec(x_58); +x_59 = !lean_is_exclusive(x_55); +if (x_59 == 0) +{ +lean_object* x_60; lean_object* x_61; uint8_t x_62; +x_60 = lean_ctor_get(x_55, 4); +lean_dec(x_60); +x_61 = lean_ctor_get(x_55, 1); +lean_dec(x_61); +x_62 = !lean_is_exclusive(x_56); +if (x_62 == 0) +{ +lean_ctor_set_uint8(x_56, sizeof(void*)*1, x_11); +lean_ctor_set(x_55, 1, x_10); +return x_25; +} +else +{ +lean_object* x_63; lean_object* x_64; +x_63 = lean_ctor_get(x_56, 0); +lean_inc(x_63); +lean_dec(x_56); +x_64 = lean_alloc_ctor(0, 1, 1); +lean_ctor_set(x_64, 0, x_63); +lean_ctor_set_uint8(x_64, sizeof(void*)*1, x_11); +lean_ctor_set(x_55, 4, x_64); +lean_ctor_set(x_55, 1, x_10); +return x_25; +} +} +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; +x_65 = lean_ctor_get(x_55, 0); +x_66 = lean_ctor_get(x_55, 2); +x_67 = lean_ctor_get(x_55, 3); +x_68 = lean_ctor_get(x_55, 5); +lean_inc(x_68); +lean_inc(x_67); +lean_inc(x_66); +lean_inc(x_65); +lean_dec(x_55); +x_69 = lean_ctor_get(x_56, 0); +lean_inc(x_69); +if (lean_is_exclusive(x_56)) { + lean_ctor_release(x_56, 0); + x_70 = x_56; +} else { + lean_dec_ref(x_56); + x_70 = lean_box(0); +} +if (lean_is_scalar(x_70)) { + x_71 = lean_alloc_ctor(0, 1, 1); +} else { + x_71 = x_70; +} +lean_ctor_set(x_71, 0, x_69); +lean_ctor_set_uint8(x_71, sizeof(void*)*1, x_11); +x_72 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_72, 0, x_65); +lean_ctor_set(x_72, 1, x_10); +lean_ctor_set(x_72, 2, x_66); +lean_ctor_set(x_72, 3, x_67); +lean_ctor_set(x_72, 4, x_71); +lean_ctor_set(x_72, 5, x_68); +lean_ctor_set(x_25, 1, x_72); +return x_25; +} +} +else +{ +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; +x_73 = lean_ctor_get(x_25, 0); +lean_inc(x_73); +lean_dec(x_25); +x_74 = lean_ctor_get(x_55, 0); +lean_inc(x_74); +x_75 = lean_ctor_get(x_55, 2); +lean_inc(x_75); +x_76 = lean_ctor_get(x_55, 3); +lean_inc(x_76); +x_77 = lean_ctor_get(x_55, 5); +lean_inc(x_77); +if (lean_is_exclusive(x_55)) { + lean_ctor_release(x_55, 0); + lean_ctor_release(x_55, 1); + lean_ctor_release(x_55, 2); + lean_ctor_release(x_55, 3); + lean_ctor_release(x_55, 4); + lean_ctor_release(x_55, 5); + x_78 = x_55; +} else { + lean_dec_ref(x_55); + x_78 = lean_box(0); +} +x_79 = lean_ctor_get(x_56, 0); +lean_inc(x_79); +if (lean_is_exclusive(x_56)) { + lean_ctor_release(x_56, 0); + x_80 = x_56; +} else { + lean_dec_ref(x_56); + x_80 = lean_box(0); +} +if (lean_is_scalar(x_80)) { + x_81 = lean_alloc_ctor(0, 1, 1); +} else { + x_81 = x_80; +} +lean_ctor_set(x_81, 0, x_79); +lean_ctor_set_uint8(x_81, sizeof(void*)*1, x_11); +if (lean_is_scalar(x_78)) { + x_82 = lean_alloc_ctor(0, 6, 0); +} else { + x_82 = x_78; +} +lean_ctor_set(x_82, 0, x_74); +lean_ctor_set(x_82, 1, x_10); +lean_ctor_set(x_82, 2, x_75); +lean_ctor_set(x_82, 3, x_76); +lean_ctor_set(x_82, 4, x_81); +lean_ctor_set(x_82, 5, x_77); +x_83 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_83, 0, x_73); +lean_ctor_set(x_83, 1, x_82); +return x_83; +} +} +} +else +{ +lean_object* x_84; lean_object* x_85; uint8_t x_86; +lean_dec(x_3); +lean_dec(x_1); +x_84 = lean_ctor_get(x_14, 1); +lean_inc(x_84); +x_85 = lean_ctor_get(x_84, 4); +lean_inc(x_85); +x_86 = !lean_is_exclusive(x_14); +if (x_86 == 0) +{ +lean_object* x_87; uint8_t x_88; +x_87 = lean_ctor_get(x_14, 1); +lean_dec(x_87); +x_88 = !lean_is_exclusive(x_84); +if (x_88 == 0) +{ +lean_object* x_89; lean_object* x_90; uint8_t x_91; +x_89 = lean_ctor_get(x_84, 4); +lean_dec(x_89); +x_90 = lean_ctor_get(x_84, 1); +lean_dec(x_90); +x_91 = !lean_is_exclusive(x_85); +if (x_91 == 0) +{ +lean_ctor_set_uint8(x_85, sizeof(void*)*1, x_11); +lean_ctor_set(x_84, 1, x_10); +return x_14; +} +else +{ +lean_object* x_92; lean_object* x_93; +x_92 = lean_ctor_get(x_85, 0); +lean_inc(x_92); +lean_dec(x_85); +x_93 = lean_alloc_ctor(0, 1, 1); +lean_ctor_set(x_93, 0, x_92); +lean_ctor_set_uint8(x_93, sizeof(void*)*1, x_11); +lean_ctor_set(x_84, 4, x_93); +lean_ctor_set(x_84, 1, x_10); +return x_14; +} +} +else +{ +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_94 = lean_ctor_get(x_84, 0); +x_95 = lean_ctor_get(x_84, 2); +x_96 = lean_ctor_get(x_84, 3); +x_97 = lean_ctor_get(x_84, 5); +lean_inc(x_97); +lean_inc(x_96); +lean_inc(x_95); +lean_inc(x_94); +lean_dec(x_84); +x_98 = lean_ctor_get(x_85, 0); +lean_inc(x_98); +if (lean_is_exclusive(x_85)) { + lean_ctor_release(x_85, 0); + x_99 = x_85; +} else { + lean_dec_ref(x_85); + x_99 = lean_box(0); +} +if (lean_is_scalar(x_99)) { + x_100 = lean_alloc_ctor(0, 1, 1); +} else { + x_100 = x_99; +} +lean_ctor_set(x_100, 0, x_98); +lean_ctor_set_uint8(x_100, sizeof(void*)*1, x_11); +x_101 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_101, 0, x_94); +lean_ctor_set(x_101, 1, x_10); +lean_ctor_set(x_101, 2, x_95); +lean_ctor_set(x_101, 3, x_96); +lean_ctor_set(x_101, 4, x_100); +lean_ctor_set(x_101, 5, x_97); +lean_ctor_set(x_14, 1, x_101); +return x_14; +} +} +else +{ +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; +x_102 = lean_ctor_get(x_14, 0); +lean_inc(x_102); +lean_dec(x_14); +x_103 = lean_ctor_get(x_84, 0); +lean_inc(x_103); +x_104 = lean_ctor_get(x_84, 2); +lean_inc(x_104); +x_105 = lean_ctor_get(x_84, 3); +lean_inc(x_105); +x_106 = lean_ctor_get(x_84, 5); +lean_inc(x_106); +if (lean_is_exclusive(x_84)) { + lean_ctor_release(x_84, 0); + lean_ctor_release(x_84, 1); + lean_ctor_release(x_84, 2); + lean_ctor_release(x_84, 3); + lean_ctor_release(x_84, 4); + lean_ctor_release(x_84, 5); + x_107 = x_84; +} else { + lean_dec_ref(x_84); + x_107 = lean_box(0); +} +x_108 = lean_ctor_get(x_85, 0); +lean_inc(x_108); +if (lean_is_exclusive(x_85)) { + lean_ctor_release(x_85, 0); + x_109 = x_85; +} else { + lean_dec_ref(x_85); + x_109 = lean_box(0); +} +if (lean_is_scalar(x_109)) { + x_110 = lean_alloc_ctor(0, 1, 1); +} else { + x_110 = x_109; +} +lean_ctor_set(x_110, 0, x_108); +lean_ctor_set_uint8(x_110, sizeof(void*)*1, x_11); +if (lean_is_scalar(x_107)) { + x_111 = lean_alloc_ctor(0, 6, 0); +} else { + x_111 = x_107; +} +lean_ctor_set(x_111, 0, x_103); +lean_ctor_set(x_111, 1, x_10); +lean_ctor_set(x_111, 2, x_104); +lean_ctor_set(x_111, 3, x_105); +lean_ctor_set(x_111, 4, x_110); +lean_ctor_set(x_111, 5, x_106); +x_112 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_112, 0, x_102); +lean_ctor_set(x_112, 1, x_111); +return x_112; +} +} +} +else +{ +lean_object* x_113; uint8_t x_114; lean_object* x_115; uint8_t x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; +x_113 = lean_ctor_get(x_6, 1); +x_114 = lean_ctor_get_uint8(x_8, sizeof(void*)*1); +x_115 = lean_ctor_get(x_8, 0); +lean_inc(x_115); +lean_dec(x_8); +x_116 = 0; +x_117 = lean_alloc_ctor(0, 1, 1); +lean_ctor_set(x_117, 0, x_115); +lean_ctor_set_uint8(x_117, sizeof(void*)*1, x_116); +lean_inc(x_113); +x_118 = l_Lean_MetavarContext_incDepth(x_113); +lean_ctor_set(x_6, 4, x_117); +lean_ctor_set(x_6, 1, x_118); +lean_inc(x_1); +x_119 = l_Lean_Meta_getConstInfo(x_1, x_3, x_6); +if (lean_obj_tag(x_119) == 0) +{ +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_120 = lean_ctor_get(x_119, 0); +lean_inc(x_120); +x_121 = lean_ctor_get(x_119, 1); +lean_inc(x_121); +lean_dec(x_119); +x_122 = l_Lean_ConstantInfo_lparams(x_120); +x_123 = l_List_mapM___main___at_Lean_Meta_mkAppM___spec__1(x_122, x_3, x_121); +x_124 = lean_ctor_get(x_123, 0); +lean_inc(x_124); +x_125 = lean_ctor_get(x_123, 1); +lean_inc(x_125); +lean_dec(x_123); +lean_inc(x_124); +x_126 = l_Lean_mkConst(x_1, x_124); +x_127 = lean_instantiate_type_lparams(x_120, x_124); +x_128 = lean_unsigned_to_nat(0u); +x_129 = l_Array_empty___closed__1; +x_130 = l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main(x_126, x_2, x_128, x_129, x_128, x_129, x_127, x_3, x_125); +if (lean_obj_tag(x_130) == 0) +{ +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; +x_131 = lean_ctor_get(x_130, 1); +lean_inc(x_131); +x_132 = lean_ctor_get(x_131, 4); +lean_inc(x_132); +x_133 = lean_ctor_get(x_130, 0); +lean_inc(x_133); +if (lean_is_exclusive(x_130)) { + lean_ctor_release(x_130, 0); + lean_ctor_release(x_130, 1); + x_134 = x_130; +} else { + lean_dec_ref(x_130); + x_134 = lean_box(0); +} +x_135 = lean_ctor_get(x_131, 0); +lean_inc(x_135); +x_136 = lean_ctor_get(x_131, 2); +lean_inc(x_136); +x_137 = lean_ctor_get(x_131, 3); +lean_inc(x_137); +x_138 = lean_ctor_get(x_131, 5); +lean_inc(x_138); +if (lean_is_exclusive(x_131)) { + lean_ctor_release(x_131, 0); + lean_ctor_release(x_131, 1); + lean_ctor_release(x_131, 2); + lean_ctor_release(x_131, 3); + lean_ctor_release(x_131, 4); + lean_ctor_release(x_131, 5); + x_139 = x_131; +} else { + lean_dec_ref(x_131); + x_139 = lean_box(0); +} +x_140 = lean_ctor_get(x_132, 0); +lean_inc(x_140); +if (lean_is_exclusive(x_132)) { + lean_ctor_release(x_132, 0); + x_141 = x_132; +} else { + lean_dec_ref(x_132); + x_141 = lean_box(0); +} +if (lean_is_scalar(x_141)) { + x_142 = lean_alloc_ctor(0, 1, 1); +} else { + x_142 = x_141; +} +lean_ctor_set(x_142, 0, x_140); +lean_ctor_set_uint8(x_142, sizeof(void*)*1, x_114); +if (lean_is_scalar(x_139)) { + x_143 = lean_alloc_ctor(0, 6, 0); +} else { + x_143 = x_139; +} +lean_ctor_set(x_143, 0, x_135); +lean_ctor_set(x_143, 1, x_113); +lean_ctor_set(x_143, 2, x_136); +lean_ctor_set(x_143, 3, x_137); +lean_ctor_set(x_143, 4, x_142); +lean_ctor_set(x_143, 5, x_138); +if (lean_is_scalar(x_134)) { + x_144 = lean_alloc_ctor(0, 2, 0); +} else { + x_144 = x_134; +} +lean_ctor_set(x_144, 0, x_133); +lean_ctor_set(x_144, 1, x_143); +return x_144; +} +else +{ +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; +x_145 = lean_ctor_get(x_130, 1); +lean_inc(x_145); +x_146 = lean_ctor_get(x_145, 4); +lean_inc(x_146); +x_147 = lean_ctor_get(x_130, 0); +lean_inc(x_147); +if (lean_is_exclusive(x_130)) { + lean_ctor_release(x_130, 0); + lean_ctor_release(x_130, 1); + x_148 = x_130; +} else { + lean_dec_ref(x_130); + x_148 = lean_box(0); +} +x_149 = lean_ctor_get(x_145, 0); +lean_inc(x_149); +x_150 = lean_ctor_get(x_145, 2); +lean_inc(x_150); +x_151 = lean_ctor_get(x_145, 3); +lean_inc(x_151); +x_152 = lean_ctor_get(x_145, 5); +lean_inc(x_152); +if (lean_is_exclusive(x_145)) { + lean_ctor_release(x_145, 0); + lean_ctor_release(x_145, 1); + lean_ctor_release(x_145, 2); + lean_ctor_release(x_145, 3); + lean_ctor_release(x_145, 4); + lean_ctor_release(x_145, 5); + x_153 = x_145; +} else { + lean_dec_ref(x_145); + x_153 = lean_box(0); +} +x_154 = lean_ctor_get(x_146, 0); +lean_inc(x_154); +if (lean_is_exclusive(x_146)) { + lean_ctor_release(x_146, 0); + x_155 = x_146; +} else { + lean_dec_ref(x_146); + x_155 = lean_box(0); +} +if (lean_is_scalar(x_155)) { + x_156 = lean_alloc_ctor(0, 1, 1); +} else { + x_156 = x_155; +} +lean_ctor_set(x_156, 0, x_154); +lean_ctor_set_uint8(x_156, sizeof(void*)*1, x_114); +if (lean_is_scalar(x_153)) { + x_157 = lean_alloc_ctor(0, 6, 0); +} else { + x_157 = x_153; +} +lean_ctor_set(x_157, 0, x_149); +lean_ctor_set(x_157, 1, x_113); +lean_ctor_set(x_157, 2, x_150); +lean_ctor_set(x_157, 3, x_151); +lean_ctor_set(x_157, 4, x_156); +lean_ctor_set(x_157, 5, x_152); +if (lean_is_scalar(x_148)) { + x_158 = lean_alloc_ctor(1, 2, 0); +} else { + x_158 = x_148; +} +lean_ctor_set(x_158, 0, x_147); +lean_ctor_set(x_158, 1, x_157); +return x_158; +} +} +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; 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_dec(x_3); +lean_dec(x_1); +x_159 = lean_ctor_get(x_119, 1); +lean_inc(x_159); +x_160 = lean_ctor_get(x_159, 4); +lean_inc(x_160); +x_161 = lean_ctor_get(x_119, 0); +lean_inc(x_161); +if (lean_is_exclusive(x_119)) { + lean_ctor_release(x_119, 0); + lean_ctor_release(x_119, 1); + x_162 = x_119; +} else { + lean_dec_ref(x_119); + x_162 = lean_box(0); +} +x_163 = lean_ctor_get(x_159, 0); +lean_inc(x_163); +x_164 = lean_ctor_get(x_159, 2); +lean_inc(x_164); +x_165 = lean_ctor_get(x_159, 3); +lean_inc(x_165); +x_166 = lean_ctor_get(x_159, 5); +lean_inc(x_166); +if (lean_is_exclusive(x_159)) { + lean_ctor_release(x_159, 0); + lean_ctor_release(x_159, 1); + lean_ctor_release(x_159, 2); + lean_ctor_release(x_159, 3); + lean_ctor_release(x_159, 4); + lean_ctor_release(x_159, 5); + x_167 = x_159; +} else { + lean_dec_ref(x_159); + x_167 = lean_box(0); +} +x_168 = lean_ctor_get(x_160, 0); +lean_inc(x_168); +if (lean_is_exclusive(x_160)) { + lean_ctor_release(x_160, 0); + x_169 = x_160; +} else { + lean_dec_ref(x_160); + x_169 = lean_box(0); +} +if (lean_is_scalar(x_169)) { + x_170 = lean_alloc_ctor(0, 1, 1); +} else { + x_170 = x_169; +} +lean_ctor_set(x_170, 0, x_168); +lean_ctor_set_uint8(x_170, sizeof(void*)*1, x_114); +if (lean_is_scalar(x_167)) { + x_171 = lean_alloc_ctor(0, 6, 0); +} else { + x_171 = x_167; +} +lean_ctor_set(x_171, 0, x_163); +lean_ctor_set(x_171, 1, x_113); +lean_ctor_set(x_171, 2, x_164); +lean_ctor_set(x_171, 3, x_165); +lean_ctor_set(x_171, 4, x_170); +lean_ctor_set(x_171, 5, x_166); +if (lean_is_scalar(x_162)) { + x_172 = lean_alloc_ctor(1, 2, 0); +} else { + x_172 = x_162; +} +lean_ctor_set(x_172, 0, x_161); +lean_ctor_set(x_172, 1, x_171); +return x_172; +} +} +} +else +{ +lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; uint8_t x_179; lean_object* x_180; lean_object* x_181; uint8_t x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; +x_173 = lean_ctor_get(x_6, 4); +x_174 = lean_ctor_get(x_6, 0); +x_175 = lean_ctor_get(x_6, 1); +x_176 = lean_ctor_get(x_6, 2); +x_177 = lean_ctor_get(x_6, 3); +x_178 = lean_ctor_get(x_6, 5); +lean_inc(x_178); +lean_inc(x_173); +lean_inc(x_177); +lean_inc(x_176); +lean_inc(x_175); +lean_inc(x_174); +lean_dec(x_6); +x_179 = lean_ctor_get_uint8(x_173, sizeof(void*)*1); +x_180 = lean_ctor_get(x_173, 0); +lean_inc(x_180); +if (lean_is_exclusive(x_173)) { + lean_ctor_release(x_173, 0); + x_181 = x_173; +} else { + lean_dec_ref(x_173); + x_181 = lean_box(0); +} +x_182 = 0; +if (lean_is_scalar(x_181)) { + x_183 = lean_alloc_ctor(0, 1, 1); +} else { + x_183 = x_181; +} +lean_ctor_set(x_183, 0, x_180); +lean_ctor_set_uint8(x_183, sizeof(void*)*1, x_182); +lean_inc(x_175); +x_184 = l_Lean_MetavarContext_incDepth(x_175); +x_185 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_185, 0, x_174); +lean_ctor_set(x_185, 1, x_184); +lean_ctor_set(x_185, 2, x_176); +lean_ctor_set(x_185, 3, x_177); +lean_ctor_set(x_185, 4, x_183); +lean_ctor_set(x_185, 5, x_178); +lean_inc(x_1); +x_186 = l_Lean_Meta_getConstInfo(x_1, x_3, x_185); +if (lean_obj_tag(x_186) == 0) +{ +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; +x_187 = lean_ctor_get(x_186, 0); +lean_inc(x_187); +x_188 = lean_ctor_get(x_186, 1); +lean_inc(x_188); +lean_dec(x_186); +x_189 = l_Lean_ConstantInfo_lparams(x_187); +x_190 = l_List_mapM___main___at_Lean_Meta_mkAppM___spec__1(x_189, x_3, x_188); +x_191 = lean_ctor_get(x_190, 0); +lean_inc(x_191); +x_192 = lean_ctor_get(x_190, 1); +lean_inc(x_192); +lean_dec(x_190); +lean_inc(x_191); +x_193 = l_Lean_mkConst(x_1, x_191); +x_194 = lean_instantiate_type_lparams(x_187, x_191); +x_195 = lean_unsigned_to_nat(0u); +x_196 = l_Array_empty___closed__1; +x_197 = l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main(x_193, x_2, x_195, x_196, x_195, x_196, x_194, x_3, x_192); +if (lean_obj_tag(x_197) == 0) +{ +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; +x_198 = lean_ctor_get(x_197, 1); +lean_inc(x_198); +x_199 = lean_ctor_get(x_198, 4); +lean_inc(x_199); +x_200 = lean_ctor_get(x_197, 0); +lean_inc(x_200); +if (lean_is_exclusive(x_197)) { + lean_ctor_release(x_197, 0); + lean_ctor_release(x_197, 1); + x_201 = x_197; +} else { + lean_dec_ref(x_197); + x_201 = lean_box(0); +} +x_202 = lean_ctor_get(x_198, 0); +lean_inc(x_202); +x_203 = lean_ctor_get(x_198, 2); +lean_inc(x_203); +x_204 = lean_ctor_get(x_198, 3); +lean_inc(x_204); +x_205 = lean_ctor_get(x_198, 5); +lean_inc(x_205); +if (lean_is_exclusive(x_198)) { + lean_ctor_release(x_198, 0); + lean_ctor_release(x_198, 1); + lean_ctor_release(x_198, 2); + lean_ctor_release(x_198, 3); + lean_ctor_release(x_198, 4); + lean_ctor_release(x_198, 5); + x_206 = x_198; +} else { + lean_dec_ref(x_198); + x_206 = lean_box(0); +} +x_207 = lean_ctor_get(x_199, 0); +lean_inc(x_207); +if (lean_is_exclusive(x_199)) { + lean_ctor_release(x_199, 0); + x_208 = x_199; +} else { + lean_dec_ref(x_199); + x_208 = lean_box(0); +} +if (lean_is_scalar(x_208)) { + x_209 = lean_alloc_ctor(0, 1, 1); +} else { + x_209 = x_208; +} +lean_ctor_set(x_209, 0, x_207); +lean_ctor_set_uint8(x_209, sizeof(void*)*1, x_179); +if (lean_is_scalar(x_206)) { + x_210 = lean_alloc_ctor(0, 6, 0); +} else { + x_210 = x_206; +} +lean_ctor_set(x_210, 0, x_202); +lean_ctor_set(x_210, 1, x_175); +lean_ctor_set(x_210, 2, x_203); +lean_ctor_set(x_210, 3, x_204); +lean_ctor_set(x_210, 4, x_209); +lean_ctor_set(x_210, 5, x_205); +if (lean_is_scalar(x_201)) { + x_211 = lean_alloc_ctor(0, 2, 0); +} else { + x_211 = x_201; +} +lean_ctor_set(x_211, 0, x_200); +lean_ctor_set(x_211, 1, x_210); +return x_211; +} +else +{ +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; +x_212 = lean_ctor_get(x_197, 1); +lean_inc(x_212); +x_213 = lean_ctor_get(x_212, 4); +lean_inc(x_213); +x_214 = lean_ctor_get(x_197, 0); +lean_inc(x_214); +if (lean_is_exclusive(x_197)) { + lean_ctor_release(x_197, 0); + lean_ctor_release(x_197, 1); + x_215 = x_197; +} else { + lean_dec_ref(x_197); + x_215 = lean_box(0); +} +x_216 = lean_ctor_get(x_212, 0); +lean_inc(x_216); +x_217 = lean_ctor_get(x_212, 2); +lean_inc(x_217); +x_218 = lean_ctor_get(x_212, 3); +lean_inc(x_218); +x_219 = lean_ctor_get(x_212, 5); +lean_inc(x_219); +if (lean_is_exclusive(x_212)) { + lean_ctor_release(x_212, 0); + lean_ctor_release(x_212, 1); + lean_ctor_release(x_212, 2); + lean_ctor_release(x_212, 3); + lean_ctor_release(x_212, 4); + lean_ctor_release(x_212, 5); + x_220 = x_212; +} else { + lean_dec_ref(x_212); + x_220 = lean_box(0); +} +x_221 = lean_ctor_get(x_213, 0); +lean_inc(x_221); +if (lean_is_exclusive(x_213)) { + lean_ctor_release(x_213, 0); + x_222 = x_213; +} else { + lean_dec_ref(x_213); + x_222 = lean_box(0); +} +if (lean_is_scalar(x_222)) { + x_223 = lean_alloc_ctor(0, 1, 1); +} else { + x_223 = x_222; +} +lean_ctor_set(x_223, 0, x_221); +lean_ctor_set_uint8(x_223, sizeof(void*)*1, x_179); +if (lean_is_scalar(x_220)) { + x_224 = lean_alloc_ctor(0, 6, 0); +} else { + x_224 = x_220; +} +lean_ctor_set(x_224, 0, x_216); +lean_ctor_set(x_224, 1, x_175); +lean_ctor_set(x_224, 2, x_217); +lean_ctor_set(x_224, 3, x_218); +lean_ctor_set(x_224, 4, x_223); +lean_ctor_set(x_224, 5, x_219); +if (lean_is_scalar(x_215)) { + x_225 = lean_alloc_ctor(1, 2, 0); +} else { + x_225 = x_215; +} +lean_ctor_set(x_225, 0, x_214); +lean_ctor_set(x_225, 1, x_224); +return x_225; +} +} +else +{ +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_dec(x_3); +lean_dec(x_1); +x_226 = lean_ctor_get(x_186, 1); +lean_inc(x_226); +x_227 = lean_ctor_get(x_226, 4); +lean_inc(x_227); +x_228 = lean_ctor_get(x_186, 0); +lean_inc(x_228); +if (lean_is_exclusive(x_186)) { + lean_ctor_release(x_186, 0); + lean_ctor_release(x_186, 1); + x_229 = x_186; +} else { + lean_dec_ref(x_186); + x_229 = lean_box(0); +} +x_230 = lean_ctor_get(x_226, 0); +lean_inc(x_230); +x_231 = lean_ctor_get(x_226, 2); +lean_inc(x_231); +x_232 = lean_ctor_get(x_226, 3); +lean_inc(x_232); +x_233 = lean_ctor_get(x_226, 5); +lean_inc(x_233); +if (lean_is_exclusive(x_226)) { + lean_ctor_release(x_226, 0); + lean_ctor_release(x_226, 1); + lean_ctor_release(x_226, 2); + lean_ctor_release(x_226, 3); + lean_ctor_release(x_226, 4); + lean_ctor_release(x_226, 5); + x_234 = x_226; +} else { + lean_dec_ref(x_226); + x_234 = lean_box(0); +} +x_235 = lean_ctor_get(x_227, 0); +lean_inc(x_235); +if (lean_is_exclusive(x_227)) { + lean_ctor_release(x_227, 0); + x_236 = x_227; +} else { + lean_dec_ref(x_227); + x_236 = lean_box(0); +} +if (lean_is_scalar(x_236)) { + x_237 = lean_alloc_ctor(0, 1, 1); +} else { + x_237 = x_236; +} +lean_ctor_set(x_237, 0, x_235); +lean_ctor_set_uint8(x_237, sizeof(void*)*1, x_179); +if (lean_is_scalar(x_234)) { + x_238 = lean_alloc_ctor(0, 6, 0); +} else { + x_238 = x_234; +} +lean_ctor_set(x_238, 0, x_230); +lean_ctor_set(x_238, 1, x_175); +lean_ctor_set(x_238, 2, x_231); +lean_ctor_set(x_238, 3, x_232); +lean_ctor_set(x_238, 4, x_237); +lean_ctor_set(x_238, 5, x_233); +if (lean_is_scalar(x_229)) { + x_239 = lean_alloc_ctor(1, 2, 0); +} else { + x_239 = x_229; +} +lean_ctor_set(x_239, 0, x_228); +lean_ctor_set(x_239, 1, x_238); +return x_239; +} +} +} +else +{ +lean_object* x_240; lean_object* x_241; lean_object* x_242; uint8_t x_243; +x_240 = l___private_Init_Lean_Trace_2__getResetTraces___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__6___rarg(x_6); +x_241 = lean_ctor_get(x_240, 1); +lean_inc(x_241); +x_242 = lean_ctor_get(x_240, 0); +lean_inc(x_242); +lean_dec(x_240); +x_243 = !lean_is_exclusive(x_241); +if (x_243 == 0) +{ +lean_object* x_244; lean_object* x_245; lean_object* x_246; +x_244 = lean_ctor_get(x_241, 1); +lean_inc(x_244); +x_245 = l_Lean_MetavarContext_incDepth(x_244); +lean_ctor_set(x_241, 1, x_245); +lean_inc(x_1); +x_246 = l_Lean_Meta_getConstInfo(x_1, x_3, x_241); +if (lean_obj_tag(x_246) == 0) +{ +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; +x_247 = lean_ctor_get(x_246, 0); +lean_inc(x_247); +x_248 = lean_ctor_get(x_246, 1); +lean_inc(x_248); +lean_dec(x_246); +x_249 = l_Lean_ConstantInfo_lparams(x_247); +x_250 = l_List_mapM___main___at_Lean_Meta_mkAppM___spec__1(x_249, x_3, x_248); +x_251 = lean_ctor_get(x_250, 0); +lean_inc(x_251); +x_252 = lean_ctor_get(x_250, 1); +lean_inc(x_252); +lean_dec(x_250); +lean_inc(x_251); +x_253 = l_Lean_mkConst(x_1, x_251); +x_254 = lean_instantiate_type_lparams(x_247, x_251); +x_255 = lean_unsigned_to_nat(0u); +x_256 = l_Array_empty___closed__1; +lean_inc(x_3); +x_257 = l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main(x_253, x_2, x_255, x_256, x_255, x_256, x_254, x_3, x_252); +if (lean_obj_tag(x_257) == 0) +{ +lean_object* x_258; lean_object* x_259; uint8_t x_260; +x_258 = lean_ctor_get(x_257, 1); +lean_inc(x_258); +x_259 = lean_ctor_get(x_257, 0); +lean_inc(x_259); +lean_dec(x_257); +x_260 = !lean_is_exclusive(x_258); +if (x_260 == 0) +{ +lean_object* x_261; lean_object* x_262; lean_object* x_263; uint8_t x_264; +x_261 = lean_ctor_get(x_258, 1); +lean_dec(x_261); +lean_ctor_set(x_258, 1, x_244); +x_262 = l_Lean_Meta_mkAppM___closed__1; +x_263 = l___private_Init_Lean_Trace_1__addNode___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__7(x_242, x_262, x_3, x_258); +lean_dec(x_3); +x_264 = !lean_is_exclusive(x_263); +if (x_264 == 0) +{ +lean_object* x_265; +x_265 = lean_ctor_get(x_263, 0); +lean_dec(x_265); +lean_ctor_set(x_263, 0, x_259); +return x_263; +} +else +{ +lean_object* x_266; lean_object* x_267; +x_266 = lean_ctor_get(x_263, 1); +lean_inc(x_266); +lean_dec(x_263); +x_267 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_267, 0, x_259); +lean_ctor_set(x_267, 1, x_266); +return x_267; +} +} +else +{ +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; +x_268 = lean_ctor_get(x_258, 0); +x_269 = lean_ctor_get(x_258, 2); +x_270 = lean_ctor_get(x_258, 3); +x_271 = lean_ctor_get(x_258, 4); +x_272 = lean_ctor_get(x_258, 5); +lean_inc(x_272); +lean_inc(x_271); +lean_inc(x_270); +lean_inc(x_269); +lean_inc(x_268); +lean_dec(x_258); +x_273 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_273, 0, x_268); +lean_ctor_set(x_273, 1, x_244); +lean_ctor_set(x_273, 2, x_269); +lean_ctor_set(x_273, 3, x_270); +lean_ctor_set(x_273, 4, x_271); +lean_ctor_set(x_273, 5, x_272); +x_274 = l_Lean_Meta_mkAppM___closed__1; +x_275 = l___private_Init_Lean_Trace_1__addNode___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__7(x_242, x_274, x_3, x_273); +lean_dec(x_3); +x_276 = lean_ctor_get(x_275, 1); +lean_inc(x_276); +if (lean_is_exclusive(x_275)) { + lean_ctor_release(x_275, 0); + lean_ctor_release(x_275, 1); + x_277 = x_275; +} else { + lean_dec_ref(x_275); + x_277 = lean_box(0); +} +if (lean_is_scalar(x_277)) { + x_278 = lean_alloc_ctor(0, 2, 0); +} else { + x_278 = x_277; +} +lean_ctor_set(x_278, 0, x_259); +lean_ctor_set(x_278, 1, x_276); +return x_278; +} +} +else +{ +lean_object* x_279; lean_object* x_280; uint8_t x_281; +x_279 = lean_ctor_get(x_257, 1); +lean_inc(x_279); +x_280 = lean_ctor_get(x_257, 0); +lean_inc(x_280); +lean_dec(x_257); +x_281 = !lean_is_exclusive(x_279); +if (x_281 == 0) +{ +lean_object* x_282; lean_object* x_283; lean_object* x_284; uint8_t x_285; +x_282 = lean_ctor_get(x_279, 1); +lean_dec(x_282); +lean_ctor_set(x_279, 1, x_244); +x_283 = l_Lean_Meta_mkAppM___closed__1; +x_284 = l___private_Init_Lean_Trace_1__addNode___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__7(x_242, x_283, x_3, x_279); +lean_dec(x_3); +x_285 = !lean_is_exclusive(x_284); +if (x_285 == 0) +{ +lean_object* x_286; +x_286 = lean_ctor_get(x_284, 0); +lean_dec(x_286); +lean_ctor_set_tag(x_284, 1); +lean_ctor_set(x_284, 0, x_280); +return x_284; +} +else +{ +lean_object* x_287; lean_object* x_288; +x_287 = lean_ctor_get(x_284, 1); +lean_inc(x_287); +lean_dec(x_284); +x_288 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_288, 0, x_280); +lean_ctor_set(x_288, 1, x_287); +return x_288; +} +} +else +{ +lean_object* x_289; 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; +x_289 = lean_ctor_get(x_279, 0); +x_290 = lean_ctor_get(x_279, 2); +x_291 = lean_ctor_get(x_279, 3); +x_292 = lean_ctor_get(x_279, 4); +x_293 = lean_ctor_get(x_279, 5); +lean_inc(x_293); +lean_inc(x_292); +lean_inc(x_291); +lean_inc(x_290); +lean_inc(x_289); +lean_dec(x_279); +x_294 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_294, 0, x_289); +lean_ctor_set(x_294, 1, x_244); +lean_ctor_set(x_294, 2, x_290); +lean_ctor_set(x_294, 3, x_291); +lean_ctor_set(x_294, 4, x_292); +lean_ctor_set(x_294, 5, x_293); +x_295 = l_Lean_Meta_mkAppM___closed__1; +x_296 = l___private_Init_Lean_Trace_1__addNode___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__7(x_242, x_295, x_3, x_294); +lean_dec(x_3); +x_297 = lean_ctor_get(x_296, 1); +lean_inc(x_297); +if (lean_is_exclusive(x_296)) { + lean_ctor_release(x_296, 0); + lean_ctor_release(x_296, 1); + x_298 = x_296; +} else { + lean_dec_ref(x_296); + x_298 = lean_box(0); +} +if (lean_is_scalar(x_298)) { + x_299 = lean_alloc_ctor(1, 2, 0); +} else { + x_299 = x_298; + lean_ctor_set_tag(x_299, 1); +} +lean_ctor_set(x_299, 0, x_280); +lean_ctor_set(x_299, 1, x_297); +return x_299; +} +} +} +else +{ +lean_object* x_300; lean_object* x_301; uint8_t x_302; +lean_dec(x_1); +x_300 = lean_ctor_get(x_246, 1); +lean_inc(x_300); +x_301 = lean_ctor_get(x_246, 0); +lean_inc(x_301); +lean_dec(x_246); +x_302 = !lean_is_exclusive(x_300); +if (x_302 == 0) +{ +lean_object* x_303; lean_object* x_304; lean_object* x_305; uint8_t x_306; +x_303 = lean_ctor_get(x_300, 1); +lean_dec(x_303); +lean_ctor_set(x_300, 1, x_244); +x_304 = l_Lean_Meta_mkAppM___closed__1; +x_305 = l___private_Init_Lean_Trace_1__addNode___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__7(x_242, x_304, x_3, x_300); +lean_dec(x_3); +x_306 = !lean_is_exclusive(x_305); +if (x_306 == 0) +{ +lean_object* x_307; +x_307 = lean_ctor_get(x_305, 0); +lean_dec(x_307); +lean_ctor_set_tag(x_305, 1); +lean_ctor_set(x_305, 0, x_301); +return x_305; +} +else +{ +lean_object* x_308; lean_object* x_309; +x_308 = lean_ctor_get(x_305, 1); +lean_inc(x_308); +lean_dec(x_305); +x_309 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_309, 0, x_301); +lean_ctor_set(x_309, 1, x_308); +return x_309; +} +} +else +{ +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; +x_310 = lean_ctor_get(x_300, 0); +x_311 = lean_ctor_get(x_300, 2); +x_312 = lean_ctor_get(x_300, 3); +x_313 = lean_ctor_get(x_300, 4); +x_314 = lean_ctor_get(x_300, 5); +lean_inc(x_314); +lean_inc(x_313); +lean_inc(x_312); +lean_inc(x_311); +lean_inc(x_310); +lean_dec(x_300); +x_315 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_315, 0, x_310); +lean_ctor_set(x_315, 1, x_244); +lean_ctor_set(x_315, 2, x_311); +lean_ctor_set(x_315, 3, x_312); +lean_ctor_set(x_315, 4, x_313); +lean_ctor_set(x_315, 5, x_314); +x_316 = l_Lean_Meta_mkAppM___closed__1; +x_317 = l___private_Init_Lean_Trace_1__addNode___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__7(x_242, x_316, x_3, x_315); +lean_dec(x_3); +x_318 = lean_ctor_get(x_317, 1); +lean_inc(x_318); +if (lean_is_exclusive(x_317)) { + lean_ctor_release(x_317, 0); + lean_ctor_release(x_317, 1); + x_319 = x_317; +} else { + lean_dec_ref(x_317); + x_319 = lean_box(0); +} +if (lean_is_scalar(x_319)) { + x_320 = lean_alloc_ctor(1, 2, 0); +} else { + x_320 = x_319; + lean_ctor_set_tag(x_320, 1); +} +lean_ctor_set(x_320, 0, x_301); +lean_ctor_set(x_320, 1, x_318); +return x_320; +} +} +} +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; lean_object* x_327; lean_object* x_328; lean_object* x_329; +x_321 = lean_ctor_get(x_241, 0); +x_322 = lean_ctor_get(x_241, 1); +x_323 = lean_ctor_get(x_241, 2); +x_324 = lean_ctor_get(x_241, 3); +x_325 = lean_ctor_get(x_241, 4); +x_326 = lean_ctor_get(x_241, 5); +lean_inc(x_326); +lean_inc(x_325); +lean_inc(x_324); +lean_inc(x_323); +lean_inc(x_322); +lean_inc(x_321); +lean_dec(x_241); +lean_inc(x_322); +x_327 = l_Lean_MetavarContext_incDepth(x_322); +x_328 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_328, 0, x_321); +lean_ctor_set(x_328, 1, x_327); +lean_ctor_set(x_328, 2, x_323); +lean_ctor_set(x_328, 3, x_324); +lean_ctor_set(x_328, 4, x_325); +lean_ctor_set(x_328, 5, x_326); +lean_inc(x_1); +x_329 = l_Lean_Meta_getConstInfo(x_1, x_3, x_328); +if (lean_obj_tag(x_329) == 0) +{ +lean_object* x_330; lean_object* x_331; lean_object* x_332; lean_object* x_333; 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; +x_330 = lean_ctor_get(x_329, 0); +lean_inc(x_330); +x_331 = lean_ctor_get(x_329, 1); +lean_inc(x_331); +lean_dec(x_329); +x_332 = l_Lean_ConstantInfo_lparams(x_330); +x_333 = l_List_mapM___main___at_Lean_Meta_mkAppM___spec__1(x_332, x_3, x_331); +x_334 = lean_ctor_get(x_333, 0); +lean_inc(x_334); +x_335 = lean_ctor_get(x_333, 1); +lean_inc(x_335); +lean_dec(x_333); +lean_inc(x_334); +x_336 = l_Lean_mkConst(x_1, x_334); +x_337 = lean_instantiate_type_lparams(x_330, x_334); +x_338 = lean_unsigned_to_nat(0u); +x_339 = l_Array_empty___closed__1; +lean_inc(x_3); +x_340 = l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main(x_336, x_2, x_338, x_339, x_338, x_339, x_337, x_3, x_335); +if (lean_obj_tag(x_340) == 0) +{ +lean_object* x_341; lean_object* x_342; 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; +x_341 = lean_ctor_get(x_340, 1); +lean_inc(x_341); +x_342 = lean_ctor_get(x_340, 0); +lean_inc(x_342); +lean_dec(x_340); +x_343 = lean_ctor_get(x_341, 0); +lean_inc(x_343); +x_344 = lean_ctor_get(x_341, 2); +lean_inc(x_344); +x_345 = lean_ctor_get(x_341, 3); +lean_inc(x_345); +x_346 = lean_ctor_get(x_341, 4); +lean_inc(x_346); +x_347 = lean_ctor_get(x_341, 5); +lean_inc(x_347); +if (lean_is_exclusive(x_341)) { + lean_ctor_release(x_341, 0); + lean_ctor_release(x_341, 1); + lean_ctor_release(x_341, 2); + lean_ctor_release(x_341, 3); + lean_ctor_release(x_341, 4); + lean_ctor_release(x_341, 5); + x_348 = x_341; +} else { + lean_dec_ref(x_341); + x_348 = lean_box(0); +} +if (lean_is_scalar(x_348)) { + x_349 = lean_alloc_ctor(0, 6, 0); +} else { + x_349 = x_348; +} +lean_ctor_set(x_349, 0, x_343); +lean_ctor_set(x_349, 1, x_322); +lean_ctor_set(x_349, 2, x_344); +lean_ctor_set(x_349, 3, x_345); +lean_ctor_set(x_349, 4, x_346); +lean_ctor_set(x_349, 5, x_347); +x_350 = l_Lean_Meta_mkAppM___closed__1; +x_351 = l___private_Init_Lean_Trace_1__addNode___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__7(x_242, x_350, x_3, x_349); +lean_dec(x_3); +x_352 = lean_ctor_get(x_351, 1); +lean_inc(x_352); +if (lean_is_exclusive(x_351)) { + lean_ctor_release(x_351, 0); + lean_ctor_release(x_351, 1); + x_353 = x_351; +} else { + lean_dec_ref(x_351); + x_353 = lean_box(0); +} +if (lean_is_scalar(x_353)) { + x_354 = lean_alloc_ctor(0, 2, 0); +} else { + x_354 = x_353; +} +lean_ctor_set(x_354, 0, x_342); +lean_ctor_set(x_354, 1, x_352); +return x_354; +} +else +{ +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; +x_355 = lean_ctor_get(x_340, 1); +lean_inc(x_355); +x_356 = lean_ctor_get(x_340, 0); +lean_inc(x_356); +lean_dec(x_340); +x_357 = lean_ctor_get(x_355, 0); +lean_inc(x_357); +x_358 = lean_ctor_get(x_355, 2); +lean_inc(x_358); +x_359 = lean_ctor_get(x_355, 3); +lean_inc(x_359); +x_360 = lean_ctor_get(x_355, 4); +lean_inc(x_360); +x_361 = lean_ctor_get(x_355, 5); +lean_inc(x_361); +if (lean_is_exclusive(x_355)) { + lean_ctor_release(x_355, 0); + lean_ctor_release(x_355, 1); + lean_ctor_release(x_355, 2); + lean_ctor_release(x_355, 3); + lean_ctor_release(x_355, 4); + lean_ctor_release(x_355, 5); + x_362 = x_355; +} else { + lean_dec_ref(x_355); + x_362 = lean_box(0); +} +if (lean_is_scalar(x_362)) { + x_363 = lean_alloc_ctor(0, 6, 0); +} else { + x_363 = x_362; +} +lean_ctor_set(x_363, 0, x_357); +lean_ctor_set(x_363, 1, x_322); +lean_ctor_set(x_363, 2, x_358); +lean_ctor_set(x_363, 3, x_359); +lean_ctor_set(x_363, 4, x_360); +lean_ctor_set(x_363, 5, x_361); +x_364 = l_Lean_Meta_mkAppM___closed__1; +x_365 = l___private_Init_Lean_Trace_1__addNode___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__7(x_242, x_364, x_3, x_363); +lean_dec(x_3); +x_366 = lean_ctor_get(x_365, 1); +lean_inc(x_366); +if (lean_is_exclusive(x_365)) { + lean_ctor_release(x_365, 0); + lean_ctor_release(x_365, 1); + x_367 = x_365; +} else { + lean_dec_ref(x_365); + x_367 = lean_box(0); +} +if (lean_is_scalar(x_367)) { + x_368 = lean_alloc_ctor(1, 2, 0); +} else { + x_368 = x_367; + lean_ctor_set_tag(x_368, 1); +} +lean_ctor_set(x_368, 0, x_356); +lean_ctor_set(x_368, 1, x_366); +return x_368; +} +} +else +{ +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_dec(x_1); +x_369 = lean_ctor_get(x_329, 1); +lean_inc(x_369); +x_370 = lean_ctor_get(x_329, 0); +lean_inc(x_370); +lean_dec(x_329); +x_371 = lean_ctor_get(x_369, 0); +lean_inc(x_371); +x_372 = lean_ctor_get(x_369, 2); +lean_inc(x_372); +x_373 = lean_ctor_get(x_369, 3); +lean_inc(x_373); +x_374 = lean_ctor_get(x_369, 4); +lean_inc(x_374); +x_375 = lean_ctor_get(x_369, 5); +lean_inc(x_375); +if (lean_is_exclusive(x_369)) { + lean_ctor_release(x_369, 0); + lean_ctor_release(x_369, 1); + lean_ctor_release(x_369, 2); + lean_ctor_release(x_369, 3); + lean_ctor_release(x_369, 4); + lean_ctor_release(x_369, 5); + x_376 = x_369; +} else { + lean_dec_ref(x_369); + x_376 = lean_box(0); +} +if (lean_is_scalar(x_376)) { + x_377 = lean_alloc_ctor(0, 6, 0); +} else { + x_377 = x_376; +} +lean_ctor_set(x_377, 0, x_371); +lean_ctor_set(x_377, 1, x_322); +lean_ctor_set(x_377, 2, x_372); +lean_ctor_set(x_377, 3, x_373); +lean_ctor_set(x_377, 4, x_374); +lean_ctor_set(x_377, 5, x_375); +x_378 = l_Lean_Meta_mkAppM___closed__1; +x_379 = l___private_Init_Lean_Trace_1__addNode___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__7(x_242, x_378, x_3, x_377); +lean_dec(x_3); +x_380 = lean_ctor_get(x_379, 1); +lean_inc(x_380); +if (lean_is_exclusive(x_379)) { + lean_ctor_release(x_379, 0); + lean_ctor_release(x_379, 1); + x_381 = x_379; +} else { + lean_dec_ref(x_379); + x_381 = lean_box(0); +} +if (lean_is_scalar(x_381)) { + x_382 = lean_alloc_ctor(1, 2, 0); +} else { + x_382 = x_381; + lean_ctor_set_tag(x_382, 1); +} +lean_ctor_set(x_382, 0, x_370); +lean_ctor_set(x_382, 1, x_380); +return x_382; +} +} +} +} +} +} +lean_object* l_List_mapM___main___at_Lean_Meta_mkAppM___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_List_mapM___main___at_Lean_Meta_mkAppM___spec__1(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} +lean_object* l_Lean_Meta_mkAppM___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_Lean_Meta_mkAppM(x_1, x_2, x_3, x_4); +lean_dec(x_2); +return x_5; +} +} lean_object* initialize_Init_Default(lean_object*); lean_object* initialize_Init_Lean_Meta_SynthInstance(lean_object*); static bool _G_initialized = false; @@ -164,10 +6750,66 @@ lean_dec_ref(res); res = initialize_Init_Lean_Meta_SynthInstance(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -l_Lean_Meta_mkEq___closed__1 = _init_l_Lean_Meta_mkEq___closed__1(); -lean_mark_persistent(l_Lean_Meta_mkEq___closed__1); -l_Lean_Meta_mkEq___closed__2 = _init_l_Lean_Meta_mkEq___closed__2(); -lean_mark_persistent(l_Lean_Meta_mkEq___closed__2); +l_Lean_Expr_eq_x3f___closed__1 = _init_l_Lean_Expr_eq_x3f___closed__1(); +lean_mark_persistent(l_Lean_Expr_eq_x3f___closed__1); +l_Lean_Expr_eq_x3f___closed__2 = _init_l_Lean_Expr_eq_x3f___closed__2(); +lean_mark_persistent(l_Lean_Expr_eq_x3f___closed__2); +l_Lean_Expr_heq_x3f___closed__1 = _init_l_Lean_Expr_heq_x3f___closed__1(); +lean_mark_persistent(l_Lean_Expr_heq_x3f___closed__1); +l_Lean_Expr_heq_x3f___closed__2 = _init_l_Lean_Expr_heq_x3f___closed__2(); +lean_mark_persistent(l_Lean_Expr_heq_x3f___closed__2); +l_Lean_Meta_mkEqRefl___closed__1 = _init_l_Lean_Meta_mkEqRefl___closed__1(); +lean_mark_persistent(l_Lean_Meta_mkEqRefl___closed__1); +l_Lean_Meta_mkEqRefl___closed__2 = _init_l_Lean_Meta_mkEqRefl___closed__2(); +lean_mark_persistent(l_Lean_Meta_mkEqRefl___closed__2); +l_Lean_Meta_mkHEqRefl___closed__1 = _init_l_Lean_Meta_mkHEqRefl___closed__1(); +lean_mark_persistent(l_Lean_Meta_mkHEqRefl___closed__1); +l_Lean_Meta_mkEqSymm___closed__1 = _init_l_Lean_Meta_mkEqSymm___closed__1(); +lean_mark_persistent(l_Lean_Meta_mkEqSymm___closed__1); +l_Lean_Meta_mkEqSymm___closed__2 = _init_l_Lean_Meta_mkEqSymm___closed__2(); +lean_mark_persistent(l_Lean_Meta_mkEqSymm___closed__2); +l_Lean_Meta_mkEqSymm___closed__3 = _init_l_Lean_Meta_mkEqSymm___closed__3(); +lean_mark_persistent(l_Lean_Meta_mkEqSymm___closed__3); +l_Lean_Meta_mkEqTrans___closed__1 = _init_l_Lean_Meta_mkEqTrans___closed__1(); +lean_mark_persistent(l_Lean_Meta_mkEqTrans___closed__1); +l_Lean_Meta_mkEqTrans___closed__2 = _init_l_Lean_Meta_mkEqTrans___closed__2(); +lean_mark_persistent(l_Lean_Meta_mkEqTrans___closed__2); +l_Lean_Meta_mkEqTrans___closed__3 = _init_l_Lean_Meta_mkEqTrans___closed__3(); +lean_mark_persistent(l_Lean_Meta_mkEqTrans___closed__3); +l_Lean_Meta_mkHEqSymm___closed__1 = _init_l_Lean_Meta_mkHEqSymm___closed__1(); +lean_mark_persistent(l_Lean_Meta_mkHEqSymm___closed__1); +l_Lean_Meta_mkHEqSymm___closed__2 = _init_l_Lean_Meta_mkHEqSymm___closed__2(); +lean_mark_persistent(l_Lean_Meta_mkHEqSymm___closed__2); +l_Lean_Meta_mkHEqTrans___closed__1 = _init_l_Lean_Meta_mkHEqTrans___closed__1(); +lean_mark_persistent(l_Lean_Meta_mkHEqTrans___closed__1); +l_Lean_Meta_mkCongrArg___closed__1 = _init_l_Lean_Meta_mkCongrArg___closed__1(); +lean_mark_persistent(l_Lean_Meta_mkCongrArg___closed__1); +l_Lean_Meta_mkCongrArg___closed__2 = _init_l_Lean_Meta_mkCongrArg___closed__2(); +lean_mark_persistent(l_Lean_Meta_mkCongrArg___closed__2); +l_Lean_Meta_mkCongrArg___closed__3 = _init_l_Lean_Meta_mkCongrArg___closed__3(); +lean_mark_persistent(l_Lean_Meta_mkCongrArg___closed__3); +l_Lean_Meta_mkCongrFun___closed__1 = _init_l_Lean_Meta_mkCongrFun___closed__1(); +lean_mark_persistent(l_Lean_Meta_mkCongrFun___closed__1); +l_Lean_Meta_mkCongrFun___closed__2 = _init_l_Lean_Meta_mkCongrFun___closed__2(); +lean_mark_persistent(l_Lean_Meta_mkCongrFun___closed__2); +l_Lean_Meta_mkCongrFun___closed__3 = _init_l_Lean_Meta_mkCongrFun___closed__3(); +lean_mark_persistent(l_Lean_Meta_mkCongrFun___closed__3); +l_Lean_Meta_mkCongr___closed__1 = _init_l_Lean_Meta_mkCongr___closed__1(); +lean_mark_persistent(l_Lean_Meta_mkCongr___closed__1); +l_Lean_Meta_mkCongr___closed__2 = _init_l_Lean_Meta_mkCongr___closed__2(); +lean_mark_persistent(l_Lean_Meta_mkCongr___closed__2); +l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__1 = _init_l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__1); +l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__2 = _init_l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__2(); +lean_mark_persistent(l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__2); +l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__3 = _init_l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__3(); +lean_mark_persistent(l___private_Init_Lean_Meta_AppBuilder_2__mkAppMFinal___closed__3); +l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main___closed__1 = _init_l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Meta_AppBuilder_3__mkAppMAux___main___closed__1); +l_Lean_Meta_mkAppM___closed__1 = _init_l_Lean_Meta_mkAppM___closed__1(); +lean_mark_persistent(l_Lean_Meta_mkAppM___closed__1); +l_Lean_Meta_mkAppM___closed__2 = _init_l_Lean_Meta_mkAppM___closed__2(); +lean_mark_persistent(l_Lean_Meta_mkAppM___closed__2); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Init/Lean/Meta/Basic.c b/stage0/stdlib/Init/Lean/Meta/Basic.c index 88f1e04ce1..5dc8aa55fa 100644 --- a/stage0/stdlib/Init/Lean/Meta/Basic.c +++ b/stage0/stdlib/Init/Lean/Meta/Basic.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Meta.Basic -// Imports: Init.Control.Reader Init.Lean.NameGenerator Init.Lean.Environment Init.Lean.LOption Init.Lean.Trace Init.Lean.Class Init.Lean.ReducibilityAttrs Init.Lean.Meta.Exception Init.Lean.Meta.DiscrTreeTypes +// Imports: Init.Control.Reader Init.Lean.Data.LOption Init.Lean.Data.NameGenerator Init.Lean.Environment Init.Lean.Trace Init.Lean.Class Init.Lean.ReducibilityAttrs Init.Lean.Meta.Exception Init.Lean.Meta.DiscrTreeTypes #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -106,6 +106,7 @@ lean_object* l_Lean_Meta_MetaM_inhabited___boxed(lean_object*, lean_object*); lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallTelescope___spec__4(lean_object*); lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_isClassExpensive___main___spec__6(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_Basic_5__forallTelescopeReducingAuxAux___main___at_Lean_Meta_isClassExpensive___main___spec__2(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_withLocalDeclD(lean_object*); lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallBoundedTelescope___spec__3___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getConst___boxed(lean_object*, lean_object*, lean_object*); lean_object* lean_nat_add(lean_object*, lean_object*); @@ -312,6 +313,7 @@ lean_object* l_Lean_Meta_tracer___closed__1; lean_object* l_Lean_Meta_lambdaTelescope___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_Basic_4__liftMkBindingM___rarg(lean_object*, lean_object*, lean_object*); lean_object* lean_io_ref_reset(lean_object*, lean_object*); +lean_object* l_Lean_Meta_withLocalDeclD___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_assignLevelMVar___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isExprMVarAssigned(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_tracer___lambda__1___boxed(lean_object*, lean_object*, lean_object*); @@ -337,6 +339,7 @@ lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_Meta_mkMetaExtension___ uint8_t l_Lean_Meta_TransparencyMode_lt(uint8_t, uint8_t); lean_object* l_Lean_Meta_assignExprMVar___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkInferTypeRef(lean_object*); +lean_object* l_Lean_Meta_getConstInfo(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkLambda(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getMVarDecl(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getTransparency(lean_object*, lean_object*); @@ -358,6 +361,7 @@ lean_object* l_Lean_Meta_getMCtx___rarg(lean_object*); lean_object* l___private_Init_Lean_Meta_Basic_7__lambdaTelescopeAux___main(lean_object*); lean_object* l___private_Init_Lean_Meta_Basic_4__liftMkBindingM(lean_object*); lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallBoundedTelescope___spec__4___rarg(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_whnfD(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_Basic_5__forallTelescopeReducingAuxAux___main___at_Lean_Meta_forallTelescopeReducing___spec__2(lean_object*); lean_object* l_Lean_Meta_mkWHNFRef___closed__1; lean_object* l_Lean_Meta_mkFreshLevelMVar___rarg(lean_object*); @@ -400,6 +404,7 @@ lean_object* l___private_Init_Lean_Meta_Basic_5__forallTelescopeReducingAuxAux__ lean_object* l_Lean_Meta_getLCtx(lean_object*, lean_object*); lean_object* l_Lean_Meta_withMCtx(lean_object*); lean_object* l_Lean_Meta_isClassExpensive(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_getConstInfo___boxed(lean_object*, lean_object*, lean_object*); lean_object* lean_name_mk_numeral(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_Basic_9__lambdaMetaTelescopeAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_shouldReduceAll___boxed(lean_object*, lean_object*); @@ -970,7 +975,7 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Meta_mkWHNFRef___lambda__1___closed__1; -x_2 = lean_alloc_ctor(17, 1, 0); +x_2 = lean_alloc_ctor(19, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } @@ -1026,7 +1031,7 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Meta_mkInferTypeRef___lambda__1___closed__1; -x_2 = lean_alloc_ctor(17, 1, 0); +x_2 = lean_alloc_ctor(19, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } @@ -1082,7 +1087,7 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Meta_mkIsExprDefEqAuxRef___lambda__1___closed__1; -x_2 = lean_alloc_ctor(17, 1, 0); +x_2 = lean_alloc_ctor(19, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } @@ -2252,7 +2257,7 @@ x_7 = lean_alloc_ctor(0, 3, 0); lean_ctor_set(x_7, 0, x_4); lean_ctor_set(x_7, 1, x_5); lean_ctor_set(x_7, 2, x_6); -x_8 = lean_alloc_ctor(16, 2, 0); +x_8 = lean_alloc_ctor(18, 2, 0); lean_ctor_set(x_8, 0, x_1); lean_ctor_set(x_8, 1, x_7); x_9 = lean_alloc_ctor(1, 2, 0); @@ -3824,6 +3829,59 @@ lean_dec(x_2); return x_4; } } +lean_object* l_Lean_Meta_getConstInfo(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_4 = lean_ctor_get(x_3, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_3, 1); +lean_inc(x_5); +lean_inc(x_1); +lean_inc(x_4); +x_6 = lean_environment_find(x_4, x_1); +if (lean_obj_tag(x_6) == 0) +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_7 = lean_ctor_get(x_2, 1); +lean_inc(x_7); +x_8 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_8, 0, x_4); +lean_ctor_set(x_8, 1, x_5); +lean_ctor_set(x_8, 2, x_7); +x_9 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_9, 0, x_1); +lean_ctor_set(x_9, 1, x_8); +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_11; lean_object* x_12; +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_1); +x_11 = lean_ctor_get(x_6, 0); +lean_inc(x_11); +lean_dec(x_6); +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; +} +} +} +lean_object* l_Lean_Meta_getConstInfo___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Meta_getConstInfo(x_1, x_2, x_3); +lean_dec(x_2); +return x_4; +} +} lean_object* l_Lean_Meta_getLocalDecl(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -40703,6 +40761,14 @@ return x_31; } } } +lean_object* l_Lean_Meta_whnfD(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Meta_whnfUsingDefault(x_1, x_2, x_3); +return x_4; +} +} lean_object* l_Lean_Meta_approxDefEq___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -42987,6 +43053,23 @@ x_8 = l_Lean_Meta_withLocalDecl___rarg(x_1, x_2, x_7, x_4, x_5, x_6); return x_8; } } +lean_object* l_Lean_Meta_withLocalDeclD___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +uint8_t x_6; lean_object* x_7; +x_6 = 0; +x_7 = l_Lean_Meta_withLocalDecl___rarg(x_1, x_2, x_6, x_3, x_4, x_5); +return x_7; +} +} +lean_object* l_Lean_Meta_withLocalDeclD(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Meta_withLocalDeclD___rarg), 5, 0); +return x_2; +} +} lean_object* l_Lean_Meta_withLetDecl___rarg(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: { @@ -45858,9 +45941,9 @@ return x_2; } } lean_object* initialize_Init_Control_Reader(lean_object*); -lean_object* initialize_Init_Lean_NameGenerator(lean_object*); +lean_object* initialize_Init_Lean_Data_LOption(lean_object*); +lean_object* initialize_Init_Lean_Data_NameGenerator(lean_object*); lean_object* initialize_Init_Lean_Environment(lean_object*); -lean_object* initialize_Init_Lean_LOption(lean_object*); lean_object* initialize_Init_Lean_Trace(lean_object*); lean_object* initialize_Init_Lean_Class(lean_object*); lean_object* initialize_Init_Lean_ReducibilityAttrs(lean_object*); @@ -45874,15 +45957,15 @@ _G_initialized = true; res = initialize_Init_Control_Reader(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_NameGenerator(lean_io_mk_world()); +res = initialize_Init_Lean_Data_LOption(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Lean_Data_NameGenerator(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); res = initialize_Init_Lean_Environment(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_LOption(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); res = initialize_Init_Lean_Trace(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); diff --git a/stage0/stdlib/Init/Lean/Meta/Exception.c b/stage0/stdlib/Init/Lean/Meta/Exception.c index 1e797fc482..62c25da8bd 100644 --- a/stage0/stdlib/Init/Lean/Meta/Exception.c +++ b/stage0/stdlib/Init/Lean/Meta/Exception.c @@ -34,11 +34,13 @@ lean_object* l_Lean_Meta_Exception_toMessageData___closed__31; lean_object* l_Lean_mkMVar(lean_object*); extern lean_object* l_Lean_Format_flatten___main___closed__1; lean_object* l_Lean_Meta_Exception_toMessageData___closed__59; +lean_object* l_Lean_MessageData_arrayExpr_toMessageData___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_Exception_toMessageData___closed__43; lean_object* l_Lean_Meta_Exception_toStr___closed__13; lean_object* lean_string_append(lean_object*, lean_object*); lean_object* l_Lean_Meta_Exception_toStr___closed__1; lean_object* l_Lean_Meta_Exception_toMessageData___closed__26; +lean_object* l_Lean_Meta_Exception_toMessageData___closed__75; extern lean_object* l_String_splitAux___main___closed__1; lean_object* l_Lean_Meta_Exception_Inhabited___closed__1; extern lean_object* l_List_repr___rarg___closed__3; @@ -63,15 +65,18 @@ lean_object* l_Lean_Meta_Exception_toMessageData___closed__34; lean_object* l_Lean_Meta_Exception_toMessageData___closed__64; lean_object* l_Lean_Meta_Exception_toMessageData___closed__69; lean_object* l_Lean_Meta_Exception_toMessageData___closed__11; +lean_object* l_Lean_Meta_Exception_toStr___closed__19; lean_object* l_Lean_Meta_Exception_toMessageData___closed__19; lean_object* l_Nat_repr(lean_object*); extern lean_object* l_Char_HasRepr___closed__1; +extern lean_object* l_Lean_MessageData_coeOfArrayExpr___closed__2; lean_object* l_Lean_Meta_Exception_toMessageData___closed__44; lean_object* l_Lean_Meta_Exception_toMessageData___closed__1; lean_object* lean_name_mk_string(lean_object*, lean_object*); extern lean_object* l_List_repr___rarg___closed__2; extern lean_object* l_List_reprAux___main___rarg___closed__1; lean_object* l_Lean_Meta_Exception_toStr___closed__11; +lean_object* l_Lean_Meta_Exception_toMessageData___closed__74; lean_object* l_Lean_Meta_Exception_toMessageData___closed__60; lean_object* l_Lean_Meta_Exception_toMessageData___closed__2; lean_object* l_Lean_Meta_Exception_toMessageData___closed__47; @@ -98,14 +103,18 @@ lean_object* l_Lean_Meta_Exception_toMessageData___closed__41; lean_object* l_Lean_mkApp(lean_object*, lean_object*); lean_object* l_Lean_Meta_Exception_toMessageData___closed__13; lean_object* l_Lean_Meta_Exception_toMessageData___closed__62; +lean_object* l_Lean_Meta_Exception_toMessageData___closed__72; lean_object* l_Lean_Meta_Exception_toMessageData___closed__52; lean_object* l_Lean_Meta_Exception_toMessageData___closed__54; lean_object* l_Lean_Meta_Exception_toMessageData___closed__29; +lean_object* l_Lean_Meta_Exception_toMessageData___closed__78; lean_object* l_Lean_Meta_Exception_toStr___closed__10; lean_object* l_List_toStringAux___main___at_Lean_Meta_Exception_toStr___spec__2(uint8_t, lean_object*); lean_object* l_Lean_Meta_Exception_toMessageData___closed__10; lean_object* l_Lean_Meta_Exception_toMessageData___closed__32; +lean_object* l_Lean_Meta_Exception_toMessageData___closed__73; lean_object* l_Lean_Meta_Exception_toMessageData___closed__7; +lean_object* l_Lean_Meta_Exception_toMessageData___closed__71; lean_object* l_Lean_Meta_Exception_toMessageData___closed__49; lean_object* l___private_Init_Lean_Meta_Exception_1__mkCtx(lean_object*, lean_object*); lean_object* l_Lean_Meta_Exception_toMessageData___closed__24; @@ -114,9 +123,11 @@ lean_object* l_Lean_Meta_Exception_toStr(lean_object*); lean_object* l_Lean_Meta_Exception_HasToString___closed__1; lean_object* l_Lean_Meta_Exception_toStr___closed__6; lean_object* l_Lean_Meta_Exception_toMessageData___closed__68; +lean_object* l_Lean_Meta_Exception_toStr___closed__18; lean_object* l_Lean_Meta_Exception_toStr___closed__15; lean_object* l_Lean_Meta_Exception_toMessageData___closed__18; lean_object* l_Lean_Meta_Exception_toMessageData___closed__30; +lean_object* l_Lean_Meta_Exception_toMessageData___closed__76; lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); lean_object* l_Lean_Meta_Exception_toMessageData___closed__5; lean_object* l_Lean_Meta_Exception_toStr___closed__5; @@ -130,6 +141,7 @@ lean_object* l_Lean_Meta_Exception_toMessageData___closed__15; lean_object* l_Lean_Meta_Exception_toMessageData___closed__16; lean_object* l_Lean_Meta_Exception_toStr___closed__14; lean_object* l_Lean_Meta_Exception_toMessageData___closed__56; +lean_object* l_Lean_Meta_Exception_toMessageData___closed__77; lean_object* l_Lean_Meta_Exception_toMessageData___closed__66; lean_object* l_List_toString___at_Lean_Meta_Exception_toStr___spec__1(lean_object*); lean_object* l_Lean_Meta_Exception_toMessageData___closed__20; @@ -138,7 +150,7 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_String_splitAux___main___closed__1; -x_2 = lean_alloc_ctor(17, 1, 0); +x_2 = lean_alloc_ctor(19, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } @@ -365,6 +377,22 @@ lean_object* _init_l_Lean_Meta_Exception_toStr___closed__17() { _start: { lean_object* x_1; +x_1 = lean_mk_string("application builder failure"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_Exception_toStr___closed__18() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("type class instance synthesis failed"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_Exception_toStr___closed__19() { +_start: +{ +lean_object* x_1; x_1 = lean_mk_string("bug"); return x_1; } @@ -531,18 +559,32 @@ return x_52; case 17: { lean_object* x_53; -x_53 = lean_ctor_get(x_1, 0); -lean_inc(x_53); lean_dec(x_1); +x_53 = l_Lean_Meta_Exception_toStr___closed__18; return x_53; } -default: +case 18: { lean_object* x_54; lean_dec(x_1); -x_54 = l_Lean_Meta_Exception_toStr___closed__13; +x_54 = l_Lean_Meta_Exception_toStr___closed__19; return x_54; } +case 19: +{ +lean_object* x_55; +x_55 = lean_ctor_get(x_1, 0); +lean_inc(x_55); +lean_dec(x_1); +return x_55; +} +default: +{ +lean_object* x_56; +lean_dec(x_1); +x_56 = l_Lean_Meta_Exception_toStr___closed__13; +return x_56; +} } } } @@ -1269,18 +1311,18 @@ lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__68() { _start: { lean_object* x_1; -x_1 = lean_mk_string("internal bug"); +x_1 = lean_mk_string("appBuilder"); return x_1; } } lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__69() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Meta_Exception_toMessageData___closed__68; -x_2 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_Exception_toMessageData___closed__68; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; } } lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__70() { @@ -1288,6 +1330,86 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Meta_Exception_toMessageData___closed__69; +x_2 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__71() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Meta_Exception_toMessageData___closed__70; +x_2 = l_Lean_Meta_Exception_toMessageData___closed__4; +x_3 = lean_alloc_ctor(8, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__72() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("synthInstance"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__73() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_Exception_toMessageData___closed__72; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__74() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_Exception_toMessageData___closed__73; +x_2 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__75() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Meta_Exception_toMessageData___closed__74; +x_2 = l_Lean_Meta_Exception_toMessageData___closed__4; +x_3 = lean_alloc_ctor(8, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__76() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("internal bug"); +return x_1; +} +} +lean_object* _init_l_Lean_Meta_Exception_toMessageData___closed__77() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_Exception_toMessageData___closed__76; +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__78() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Meta_Exception_toMessageData___closed__77; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; @@ -1617,22 +1739,83 @@ return x_116; } case 16: { -lean_object* x_117; +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; +x_117 = lean_ctor_get(x_1, 0); +lean_inc(x_117); +x_118 = lean_ctor_get(x_1, 1); +lean_inc(x_118); +x_119 = lean_ctor_get(x_1, 2); +lean_inc(x_119); +x_120 = lean_ctor_get(x_1, 3); +lean_inc(x_120); lean_dec(x_1); -x_117 = l_Lean_Meta_Exception_toMessageData___closed__70; -return x_117; +x_121 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_121, 0, x_117); +x_122 = l_Lean_Meta_Exception_toMessageData___closed__71; +x_123 = lean_alloc_ctor(8, 2, 0); +lean_ctor_set(x_123, 0, x_122); +lean_ctor_set(x_123, 1, x_121); +x_124 = l_Lean_Meta_Exception_toMessageData___closed__4; +x_125 = lean_alloc_ctor(8, 2, 0); +lean_ctor_set(x_125, 0, x_123); +lean_ctor_set(x_125, 1, x_124); +x_126 = lean_unsigned_to_nat(0u); +x_127 = l_Lean_MessageData_coeOfArrayExpr___closed__2; +x_128 = l_Lean_MessageData_arrayExpr_toMessageData___main(x_119, x_126, x_127); +lean_dec(x_119); +x_129 = lean_alloc_ctor(8, 2, 0); +lean_ctor_set(x_129, 0, x_125); +lean_ctor_set(x_129, 1, x_128); +x_130 = lean_alloc_ctor(8, 2, 0); +lean_ctor_set(x_130, 0, x_129); +lean_ctor_set(x_130, 1, x_124); +x_131 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_131, 0, x_118); +x_132 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_132, 0, x_131); +x_133 = lean_alloc_ctor(8, 2, 0); +lean_ctor_set(x_133, 0, x_130); +lean_ctor_set(x_133, 1, x_132); +x_134 = l___private_Init_Lean_Meta_Exception_1__mkCtx(x_120, x_133); +lean_dec(x_120); +return x_134; +} +case 17: +{ +lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; +x_135 = lean_ctor_get(x_1, 0); +lean_inc(x_135); +x_136 = lean_ctor_get(x_1, 1); +lean_inc(x_136); +lean_dec(x_1); +x_137 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_137, 0, x_135); +x_138 = l_Lean_Meta_Exception_toMessageData___closed__75; +x_139 = lean_alloc_ctor(8, 2, 0); +lean_ctor_set(x_139, 0, x_138); +lean_ctor_set(x_139, 1, x_137); +x_140 = l___private_Init_Lean_Meta_Exception_1__mkCtx(x_136, x_139); +lean_dec(x_136); +return x_140; +} +case 18: +{ +lean_object* x_141; +lean_dec(x_1); +x_141 = l_Lean_Meta_Exception_toMessageData___closed__78; +return x_141; } default: { -lean_object* x_118; lean_object* x_119; lean_object* x_120; -x_118 = lean_ctor_get(x_1, 0); -lean_inc(x_118); +lean_object* x_142; lean_object* x_143; lean_object* x_144; +x_142 = lean_ctor_get(x_1, 0); +lean_inc(x_142); lean_dec(x_1); -x_119 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_119, 0, x_118); -x_120 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_120, 0, x_119); -return x_120; +x_143 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_143, 0, x_142); +x_144 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_144, 0, x_143); +return x_144; } } } @@ -1692,6 +1875,10 @@ l_Lean_Meta_Exception_toStr___closed__16 = _init_l_Lean_Meta_Exception_toStr___c lean_mark_persistent(l_Lean_Meta_Exception_toStr___closed__16); l_Lean_Meta_Exception_toStr___closed__17 = _init_l_Lean_Meta_Exception_toStr___closed__17(); lean_mark_persistent(l_Lean_Meta_Exception_toStr___closed__17); +l_Lean_Meta_Exception_toStr___closed__18 = _init_l_Lean_Meta_Exception_toStr___closed__18(); +lean_mark_persistent(l_Lean_Meta_Exception_toStr___closed__18); +l_Lean_Meta_Exception_toStr___closed__19 = _init_l_Lean_Meta_Exception_toStr___closed__19(); +lean_mark_persistent(l_Lean_Meta_Exception_toStr___closed__19); l_Lean_Meta_Exception_HasToString___closed__1 = _init_l_Lean_Meta_Exception_HasToString___closed__1(); lean_mark_persistent(l_Lean_Meta_Exception_HasToString___closed__1); l_Lean_Meta_Exception_HasToString = _init_l_Lean_Meta_Exception_HasToString(); @@ -1836,6 +2023,22 @@ l_Lean_Meta_Exception_toMessageData___closed__69 = _init_l_Lean_Meta_Exception_t lean_mark_persistent(l_Lean_Meta_Exception_toMessageData___closed__69); l_Lean_Meta_Exception_toMessageData___closed__70 = _init_l_Lean_Meta_Exception_toMessageData___closed__70(); lean_mark_persistent(l_Lean_Meta_Exception_toMessageData___closed__70); +l_Lean_Meta_Exception_toMessageData___closed__71 = _init_l_Lean_Meta_Exception_toMessageData___closed__71(); +lean_mark_persistent(l_Lean_Meta_Exception_toMessageData___closed__71); +l_Lean_Meta_Exception_toMessageData___closed__72 = _init_l_Lean_Meta_Exception_toMessageData___closed__72(); +lean_mark_persistent(l_Lean_Meta_Exception_toMessageData___closed__72); +l_Lean_Meta_Exception_toMessageData___closed__73 = _init_l_Lean_Meta_Exception_toMessageData___closed__73(); +lean_mark_persistent(l_Lean_Meta_Exception_toMessageData___closed__73); +l_Lean_Meta_Exception_toMessageData___closed__74 = _init_l_Lean_Meta_Exception_toMessageData___closed__74(); +lean_mark_persistent(l_Lean_Meta_Exception_toMessageData___closed__74); +l_Lean_Meta_Exception_toMessageData___closed__75 = _init_l_Lean_Meta_Exception_toMessageData___closed__75(); +lean_mark_persistent(l_Lean_Meta_Exception_toMessageData___closed__75); +l_Lean_Meta_Exception_toMessageData___closed__76 = _init_l_Lean_Meta_Exception_toMessageData___closed__76(); +lean_mark_persistent(l_Lean_Meta_Exception_toMessageData___closed__76); +l_Lean_Meta_Exception_toMessageData___closed__77 = _init_l_Lean_Meta_Exception_toMessageData___closed__77(); +lean_mark_persistent(l_Lean_Meta_Exception_toMessageData___closed__77); +l_Lean_Meta_Exception_toMessageData___closed__78 = _init_l_Lean_Meta_Exception_toMessageData___closed__78(); +lean_mark_persistent(l_Lean_Meta_Exception_toMessageData___closed__78); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Init/Lean/Meta/InferType.c b/stage0/stdlib/Init/Lean/Meta/InferType.c index fa817de22d..c7e8eb5a79 100644 --- a/stage0/stdlib/Init/Lean/Meta/InferType.c +++ b/stage0/stdlib/Init/Lean/Meta/InferType.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Meta.InferType -// Imports: Init.Lean.LBool Init.Lean.Meta.Basic +// Imports: Init.Lean.Data.LBool Init.Lean.Meta.Basic #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -1722,7 +1722,7 @@ x_6 = lean_ctor_get(x_4, 1); lean_inc(x_6); lean_dec(x_4); lean_inc(x_2); -x_7 = l_Lean_Meta_whnf(x_5, x_2, x_6); +x_7 = l_Lean_Meta_whnfUsingDefault(x_5, x_2, x_6); if (lean_obj_tag(x_7) == 0) { lean_object* x_8; @@ -7445,14 +7445,14 @@ return x_56; } } } -lean_object* initialize_Init_Lean_LBool(lean_object*); +lean_object* initialize_Init_Lean_Data_LBool(lean_object*); lean_object* initialize_Init_Lean_Meta_Basic(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Meta_InferType(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; -res = initialize_Init_Lean_LBool(lean_io_mk_world()); +res = initialize_Init_Lean_Data_LBool(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); res = initialize_Init_Lean_Meta_Basic(lean_io_mk_world()); diff --git a/stage0/stdlib/Init/Lean/Meta/Offset.c b/stage0/stdlib/Init/Lean/Meta/Offset.c index bb0c15c9d1..f7e099c782 100644 --- a/stage0/stdlib/Init/Lean/Meta/Offset.c +++ b/stage0/stdlib/Init/Lean/Meta/Offset.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Meta.Offset -// Imports: Init.Lean.LBool Init.Lean.Meta.InferType +// Imports: Init.Lean.Data.LBool Init.Lean.Meta.InferType #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -14,10 +14,10 @@ extern "C" { #endif lean_object* l_Lean_Meta_isExprDefEqAux(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_mkCAppB(lean_object*, lean_object*, lean_object*); uint8_t lean_name_eq(lean_object*, lean_object*); lean_object* l_Lean_Meta_evalNat___main___closed__10; lean_object* l___private_Init_Lean_Meta_Offset_1__getOffset___main(lean_object*); +lean_object* l_Lean_Meta_isDefEqOffset___closed__1; lean_object* l___private_Init_Lean_Meta_Offset_1__getOffset(lean_object*); lean_object* l_Lean_Expr_getAppFn___main(lean_object*); lean_object* l_Lean_Meta_evalNat(lean_object*); @@ -51,6 +51,8 @@ lean_object* l_Lean_Meta_evalNat___main___closed__1; lean_object* l_Lean_Meta_evalNat___main___boxed(lean_object*); lean_object* l_Lean_mkNatLit(lean_object*); lean_object* l___private_Init_Lean_Meta_Offset_2__isOffset(lean_object*); +lean_object* l_Lean_mkAppB(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_mkConst(lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Syntax_9__decodeNatLitVal___closed__1; uint8_t lean_string_dec_eq(lean_object*, lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); @@ -1427,6 +1429,16 @@ return x_38; } } } +lean_object* _init_l_Lean_Meta_isDefEqOffset___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Meta_evalNat___main___closed__12; +x_3 = l_Lean_mkConst(x_2, x_1); +return x_3; +} +} lean_object* l_Lean_Meta_isDefEqOffset(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -1728,8 +1740,8 @@ x_81 = lean_nat_sub(x_47, x_78); lean_dec(x_78); lean_dec(x_47); x_82 = l_Lean_mkNatLit(x_81); -x_83 = l_Lean_Meta_evalNat___main___closed__12; -x_84 = l_Lean_mkCAppB(x_83, x_46, x_82); +x_83 = l_Lean_Meta_isDefEqOffset___closed__1; +x_84 = l_Lean_mkAppB(x_83, x_46, x_82); x_85 = l_Lean_Meta_isExprDefEqAux(x_84, x_77, x_3, x_4); if (lean_obj_tag(x_85) == 0) { @@ -1794,8 +1806,8 @@ x_101 = lean_nat_sub(x_78, x_47); lean_dec(x_47); lean_dec(x_78); x_102 = l_Lean_mkNatLit(x_101); -x_103 = l_Lean_Meta_evalNat___main___closed__12; -x_104 = l_Lean_mkCAppB(x_103, x_77, x_102); +x_103 = l_Lean_Meta_isDefEqOffset___closed__1; +x_104 = l_Lean_mkAppB(x_103, x_77, x_102); x_105 = l_Lean_Meta_isExprDefEqAux(x_46, x_104, x_3, x_4); if (lean_obj_tag(x_105) == 0) { @@ -1920,14 +1932,14 @@ return x_136; } } } -lean_object* initialize_Init_Lean_LBool(lean_object*); +lean_object* initialize_Init_Lean_Data_LBool(lean_object*); lean_object* initialize_Init_Lean_Meta_InferType(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Meta_Offset(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; -res = initialize_Init_Lean_LBool(lean_io_mk_world()); +res = initialize_Init_Lean_Data_LBool(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); res = initialize_Init_Lean_Meta_InferType(lean_io_mk_world()); @@ -1961,6 +1973,8 @@ l_Lean_Meta_evalNat___main___closed__13 = _init_l_Lean_Meta_evalNat___main___clo lean_mark_persistent(l_Lean_Meta_evalNat___main___closed__13); l_Lean_Meta_evalNat___main___closed__14 = _init_l_Lean_Meta_evalNat___main___closed__14(); lean_mark_persistent(l_Lean_Meta_evalNat___main___closed__14); +l_Lean_Meta_isDefEqOffset___closed__1 = _init_l_Lean_Meta_isDefEqOffset___closed__1(); +lean_mark_persistent(l_Lean_Meta_isDefEqOffset___closed__1); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Init/Lean/Meta/SynthInstance.c b/stage0/stdlib/Init/Lean/Meta/SynthInstance.c index 7fe8a9d7da..e76ee0e5b3 100644 --- a/stage0/stdlib/Init/Lean/Meta/SynthInstance.c +++ b/stage0/stdlib/Init/Lean/Meta/SynthInstance.c @@ -45,13 +45,12 @@ lean_object* l___private_Init_Lean_Meta_SynthInstance_4__preprocess___lambda__1( lean_object* l_Array_anyRangeMAux___main___at_Lean_Meta_SynthInstance_addAnswer___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_expr_update_mdata(lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_generate___closed__5; -lean_object* l_Array_iterateMAux___main___at_Lean_Meta_synthInstance___spec__7(size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Meta_SynthInstance_getInstances___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkForall(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_PersistentHashMap_find___at_Lean_Meta_synthInstance_x3f___spec__1(lean_object*, lean_object*); extern size_t l_PersistentHashMap_insertAux___main___rarg___closed__2; lean_object* l_Lean_Meta_SynthInstance_mkTableKey___closed__3; lean_object* lean_array_uset(lean_object*, size_t, lean_object*); -lean_object* l_PersistentHashMap_find___at_Lean_Meta_synthInstance___spec__1___boxed(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_SynthInstance_2__getOptions___boxed(lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_tryResolveCore___lambda__1___closed__2; lean_object* l___private_Init_Lean_Trace_4__checkTraceOption___at_Lean_Meta_SynthInstance_trace___spec__1___boxed(lean_object*, lean_object*, lean_object*); @@ -61,6 +60,7 @@ size_t l_USize_sub(size_t, size_t); extern lean_object* l_Array_empty___closed__1; lean_object* l_HashMapImp_expand___at_Lean_Meta_SynthInstance_MkTableKey_normExpr___main___spec__5(lean_object*, lean_object*); lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_SynthInstance_8__resolveReplacements___spec__3___lambda__1(uint8_t, 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_Lean_Meta_isExprDefEqAux(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_tryResolveCore___lambda__1___closed__7; @@ -97,7 +97,6 @@ lean_object* l_Lean_Meta_SynthInstance_tryResolveCore___lambda__1___closed__5; lean_object* l_Lean_Meta_SynthInstance_traceCore___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_findEntry___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_Exception_Inhabited___closed__1; -lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); size_t l_USize_shiftRight(size_t, size_t); lean_object* l_Lean_Meta_SynthInstance_mkTableKey___closed__2; lean_object* l_Lean_Meta_SynthInstance_main(lean_object*, lean_object*, lean_object*, lean_object*); @@ -156,7 +155,6 @@ 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_MkTableKey_normLevel___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_getEntry___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Array_contains___at_Lean_Meta_SynthInstance_addAnswer___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_modifyTop(lean_object*, lean_object*, lean_object*); @@ -177,13 +175,14 @@ lean_object* l_Array_iterateMAux___main___at_Lean_Meta_SynthInstance_getInstance lean_object* l_Lean_Meta_SynthInstance_GeneratorNode_inhabited; 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___private_Init_Lean_Trace_4__checkTraceOption___at_Lean_Meta_SynthInstance_trace___spec__1(lean_object*, 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*); lean_object* l___private_Init_Lean_Meta_LevelDefEq_12__restore(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_step(lean_object*, lean_object*); -lean_object* l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance___spec__2___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_SynthInstance_5__preprocessLevels___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_SynthInstance_8__resolveReplacements(lean_object*, lean_object*, lean_object*); size_t lean_usize_modn(size_t, lean_object*); @@ -191,10 +190,10 @@ lean_object* l___private_Init_Lean_Meta_SynthInstance_5__preprocessLevels___clos lean_object* l_mkHashMap___at_Lean_Meta_SynthInstance_main___spec__1(lean_object*); uint8_t l_Array_isEmpty___rarg(lean_object*); lean_object* l_HashMapImp_find___at_Lean_Meta_SynthInstance_MkTableKey_normExpr___main___spec__1(lean_object*, lean_object*); +lean_object* l_Lean_Meta_synthInstance_x3f(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_newSubgoal(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_List_foldlM___main___at___private_Init_Lean_Meta_SynthInstance_5__preprocessLevels___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); size_t l_USize_mul(size_t, size_t); -lean_object* l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance___spec__2(lean_object*, size_t, lean_object*); lean_object* l_HashMapImp_moveEntries___main___at_Lean_Meta_SynthInstance_newSubgoal___spec__4(lean_object*, lean_object*, lean_object*); lean_object* l_mkHashMapImp___rarg(lean_object*); lean_object* l___private_Init_Lean_Expr_3__getAppArgsAux___main(lean_object*, lean_object*, lean_object*); @@ -205,12 +204,13 @@ uint8_t l_Lean_BinderInfo_isInstImplicit(uint8_t); lean_object* l_HashMapImp_find___at_Lean_Meta_SynthInstance_findEntry___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Meta_whnf(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_MkTableKey_normExpr___main___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_PersistentHashMap_find___at_Lean_Meta_synthInstance___spec__1(lean_object*, lean_object*); 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___private_Init_Lean_Meta_SynthInstance_7__preprocessOutParam___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, 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_synth___main___closed__1; lean_object* l_Lean_Meta_SynthInstance_tryResolveCore___lambda__1___closed__9; lean_object* l_Array_iterateMAux___main___at_Lean_Meta_SynthInstance_consume___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -223,6 +223,7 @@ 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*); lean_object* l_Lean_Meta_SynthInstance_synth(lean_object*, lean_object*, lean_object*); lean_object* l_AssocList_find___main___at_Lean_Meta_SynthInstance_findEntry___spec__2(lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_getEntry___closed__2; @@ -236,7 +237,6 @@ 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_Lean_Meta_SynthInstance_wakeUp___closed__2; lean_object* l_Lean_Meta_synthInstance(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_PersistentHashMap_insert___at_Lean_Meta_synthInstance___spec__4(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_trySynthInstance(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_hasAssignableMVar(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_SynthInstance_7__preprocessOutParam___lambda__2___closed__1; @@ -244,6 +244,7 @@ lean_object* l___private_Init_Lean_Trace_1__addNode___at___private_Init_Lean_Met 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_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*); @@ -264,6 +265,7 @@ lean_object* l_List_mapM___main___at_Lean_Meta_SynthInstance_MkTableKey_normExpr lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_SynthInstance_8__resolveReplacements___spec__3___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Meta_SynthInstance_getInstances___spec__2___closed__1; lean_object* l_Lean_Meta_try___at___private_Init_Lean_Meta_SynthInstance_8__resolveReplacements___spec__3___lambda__1___boxed(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_Exception_toMessageData___closed__72; lean_object* l_Lean_Meta_SynthInstance_Waiter_isRoot___boxed(lean_object*); uint8_t l_AssocList_contains___main___at_Lean_Meta_SynthInstance_MkTableKey_normLevel___main___spec__4(lean_object*, lean_object*); lean_object* l_panic(lean_object*, lean_object*, lean_object*); @@ -300,6 +302,7 @@ lean_object* l_Lean_Meta_SynthInstance_generate___closed__2; lean_object* l_Lean_Meta_SynthInstance_MkTableKey_normLevel___main___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Expr_Inhabited; lean_object* l_Lean_Meta_SynthInstance_generate___closed__1; +lean_object* l_PersistentHashMap_find___at_Lean_Meta_synthInstance_x3f___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Meta_instantiateMVars(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_mkTableKeyFor(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_pop(lean_object*); @@ -312,10 +315,7 @@ lean_object* l_HashMapImp_moveEntries___main___at_Lean_Meta_SynthInstance_MkTabl lean_object* l_Lean_Meta_SynthInstance_tryResolveCore(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_AssocList_find___main___at_Lean_Meta_SynthInstance_MkTableKey_normLevel___main___spec__2___boxed(lean_object*, lean_object*); extern lean_object* l_Lean_Meta_AbstractMVarsResult_inhabited; -lean_object* l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__5; -lean_object* l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_getInstances___closed__1; -lean_object* l_PersistentHashMap_insertAtCollisionNodeAux___main___at_Lean_Meta_synthInstance___spec__6(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_MetavarContext_isExprAssignable(lean_object*, lean_object*); lean_object* l_AssocList_find___main___at_Lean_Meta_SynthInstance_MkTableKey_normExpr___main___spec__2___boxed(lean_object*, lean_object*); lean_object* l_Lean_Meta_mkFreshLevelMVar___rarg(lean_object*); @@ -325,6 +325,7 @@ lean_object* l_Lean_Meta_SynthInstance_MkTableKey_normLevel___main(lean_object*, extern lean_object* l_Lean_Meta_isClassQuick___main___closed__1; lean_object* l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_SynthInstance_traceCore___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_tryResolveCore___lambda__1___closed__6; +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_try___at___private_Init_Lean_Meta_SynthInstance_8__resolveReplacements___spec__3(lean_object*, lean_object*, lean_object*); lean_object* l_AssocList_find___main___at_Lean_Meta_SynthInstance_findEntry___spec__2___boxed(lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_consume(lean_object*, lean_object*, lean_object*); @@ -338,7 +339,6 @@ lean_object* lean_usize_to_nat(size_t); 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___private_Init_Lean_Meta_SynthInstance_6__preprocessArgs___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Array_iterateMAux___main___at_Lean_Meta_synthInstance___spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Meta_SynthInstance_2__getOptions(lean_object*, lean_object*); lean_object* l_HashMapImp_find___at_Lean_Meta_SynthInstance_MkTableKey_normExpr___main___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__3; @@ -352,10 +352,10 @@ 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*); -lean_object* l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance___spec__5(lean_object*, size_t, size_t, lean_object*, lean_object*); lean_object* l_HashMapImp_moveEntries___main___at_Lean_Meta_SynthInstance_MkTableKey_normExpr___main___spec__6(lean_object*, lean_object*, lean_object*); lean_object* lean_expr_update_const(lean_object*, lean_object*); extern lean_object* l_Lean_Level_updateIMax_x21___closed__2; @@ -373,6 +373,7 @@ lean_object* l_AssocList_contains___main___at_Lean_Meta_SynthInstance_MkTableKey lean_object* l_Lean_Meta_SynthInstance_liftMeta(lean_object*); lean_object* l_Array_anyRangeMAux___main___at___private_Init_Lean_Meta_SynthInstance_8__resolveReplacements___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, 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: { @@ -4009,22 +4010,14 @@ goto _start; lean_object* _init_l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("synthInstance"); -return x_1; -} -} -lean_object* _init_l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2() { -_start: -{ lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Meta_isLevelDefEqAux___main___closed__2; -x_2 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; +x_2 = l_Lean_Meta_Exception_toMessageData___closed__72; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* _init_l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__3() { +lean_object* _init_l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2() { _start: { lean_object* x_1; @@ -4032,22 +4025,22 @@ x_1 = lean_mk_string("globalInstances"); return x_1; } } -lean_object* _init_l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__4() { +lean_object* _init_l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__3() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; -x_2 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__3; +x_1 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; +x_2 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* _init_l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__5() { +lean_object* _init_l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__4() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_SimpleMonadTracerAdapter_isTracingEnabledFor___rarg___lambda__1___closed__2; -x_2 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__4; +x_2 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__3; x_3 = l_Lean_Name_append___main(x_1, x_2); return x_3; } @@ -4176,7 +4169,7 @@ goto block_39; else { lean_object* x_42; lean_object* x_43; lean_object* x_44; uint8_t x_45; -x_42 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__5; +x_42 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__4; x_43 = l___private_Init_Lean_Trace_4__checkTraceOption___at_Lean_Meta_trace___spec__1(x_42, x_3, x_33); x_44 = lean_ctor_get(x_43, 0); lean_inc(x_44); @@ -4220,7 +4213,7 @@ lean_ctor_set(x_57, 0, x_48); lean_ctor_set(x_57, 1, x_49); lean_ctor_set(x_57, 2, x_50); lean_ctor_set(x_57, 3, x_56); -x_58 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__4; +x_58 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__3; x_59 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_trace___spec__2(x_58, x_57, x_3, x_47); x_60 = lean_ctor_get(x_59, 1); lean_inc(x_60); @@ -4695,7 +4688,7 @@ lean_object* _init_l_Lean_Meta_SynthInstance_newSubgoal___closed__2() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; +x_1 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; x_2 = l_Lean_Meta_SynthInstance_newSubgoal___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; @@ -6847,7 +6840,7 @@ lean_object* _init_l_Lean_Meta_SynthInstance_tryResolveCore___lambda__1___closed _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; +x_1 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; x_2 = l_Lean_Meta_SynthInstance_tryResolveCore___lambda__1___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; @@ -9253,7 +9246,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_SimpleMonadTracerAdapter_isTracingEnabledFor___rarg___lambda__1___closed__2; -x_2 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; +x_2 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; x_3 = l_Lean_Name_append___main(x_1, x_2); return x_3; } @@ -9589,7 +9582,7 @@ x_26 = l_Lean_Meta_SynthInstance_wakeUp___closed__4; x_27 = lean_alloc_ctor(8, 2, 0); lean_ctor_set(x_27, 0, x_26); lean_ctor_set(x_27, 1, x_25); -x_28 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; +x_28 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; x_29 = l_Lean_Meta_SynthInstance_traceCore(x_28, x_27, x_3, x_24); lean_dec(x_3); x_30 = !lean_is_exclusive(x_29); @@ -11025,7 +11018,7 @@ lean_object* _init_l_Lean_Meta_SynthInstance_generate___closed__2() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; +x_1 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; x_2 = l_Lean_Meta_SynthInstance_generate___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; @@ -12815,7 +12808,7 @@ lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; uint x_28 = lean_ctor_get(x_19, 1); lean_inc(x_28); lean_dec(x_19); -x_29 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; +x_29 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; x_30 = l_Lean_Meta_SynthInstance_synth___main___closed__3; x_31 = l_Lean_Meta_SynthInstance_traceCore(x_29, x_30, x_2, x_28); lean_dec(x_2); @@ -12906,7 +12899,7 @@ lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean x_52 = lean_ctor_get(x_45, 1); lean_inc(x_52); lean_dec(x_45); -x_53 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; +x_53 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; x_54 = l_Lean_Meta_SynthInstance_synth___main___closed__3; x_55 = l_Lean_Meta_SynthInstance_traceCore(x_53, x_54, x_2, x_52); lean_dec(x_2); @@ -13097,7 +13090,7 @@ lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; uint x_94 = lean_ctor_get(x_85, 1); lean_inc(x_94); lean_dec(x_85); -x_95 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; +x_95 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; x_96 = l_Lean_Meta_SynthInstance_synth___main___closed__6; x_97 = l_Lean_Meta_SynthInstance_traceCore(x_95, x_96, x_2, x_94); lean_dec(x_2); @@ -14267,7 +14260,7 @@ lean_ctor_set(x_357, 0, x_351); lean_ctor_set(x_357, 1, x_352); lean_ctor_set(x_357, 2, x_353); lean_ctor_set(x_357, 3, x_356); -x_358 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; +x_358 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; x_359 = l_Lean_MonadTracerAdapter_addTrace___at_Lean_Meta_trace___spec__2(x_358, x_357, x_3, x_350); x_360 = lean_ctor_get(x_359, 1); lean_inc(x_360); @@ -14327,7 +14320,7 @@ lean_dec(x_274); x_277 = lean_ctor_get(x_276, 0); lean_inc(x_277); lean_dec(x_276); -x_278 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; +x_278 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; x_279 = l___private_Init_Lean_Trace_1__addNode___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__7(x_256, x_278, x_3, x_277); lean_dec(x_3); x_280 = !lean_is_exclusive(x_279); @@ -14362,7 +14355,7 @@ lean_dec(x_274); x_286 = lean_ctor_get(x_285, 0); lean_inc(x_286); lean_dec(x_285); -x_287 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; +x_287 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; x_288 = l___private_Init_Lean_Trace_1__addNode___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__7(x_256, x_287, x_3, x_286); lean_dec(x_3); x_289 = !lean_is_exclusive(x_288); @@ -14400,7 +14393,7 @@ lean_dec(x_272); x_295 = lean_ctor_get(x_294, 0); lean_inc(x_295); lean_dec(x_294); -x_296 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; +x_296 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; x_297 = l___private_Init_Lean_Trace_1__addNode___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__7(x_256, x_296, x_3, x_295); lean_dec(x_3); x_298 = !lean_is_exclusive(x_297); @@ -14482,7 +14475,7 @@ lean_dec(x_317); x_320 = lean_ctor_get(x_319, 0); lean_inc(x_320); lean_dec(x_319); -x_321 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; +x_321 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; x_322 = l___private_Init_Lean_Trace_1__addNode___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__7(x_256, x_321, x_3, x_320); lean_dec(x_3); x_323 = lean_ctor_get(x_322, 1); @@ -14515,7 +14508,7 @@ lean_dec(x_317); x_328 = lean_ctor_get(x_327, 0); lean_inc(x_328); lean_dec(x_327); -x_329 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; +x_329 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; x_330 = l___private_Init_Lean_Trace_1__addNode___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__7(x_256, x_329, x_3, x_328); lean_dec(x_3); x_331 = lean_ctor_get(x_330, 1); @@ -14551,7 +14544,7 @@ lean_dec(x_315); x_336 = lean_ctor_get(x_335, 0); lean_inc(x_336); lean_dec(x_335); -x_337 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__2; +x_337 = l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__1; x_338 = l___private_Init_Lean_Trace_1__addNode___at___private_Init_Lean_Meta_LevelDefEq_9__processPostponedStep___spec__7(x_256, x_337, x_3, x_336); lean_dec(x_3); x_339 = lean_ctor_get(x_338, 1); @@ -14959,7 +14952,7 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l___private_Init_Lean_Meta_SynthInstance_6__preprocessArgs___main___closed__1; -x_2 = lean_alloc_ctor(17, 1, 0); +x_2 = lean_alloc_ctor(19, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } @@ -16311,7 +16304,7 @@ lean_dec(x_1); return x_6; } } -lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +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; @@ -16353,7 +16346,7 @@ return x_15; } } } -lean_object* l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance___spec__2(lean_object* x_1, size_t x_2, lean_object* x_3) { +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) @@ -16400,7 +16393,7 @@ x_16 = lean_ctor_get(x_10, 0); lean_inc(x_16); lean_dec(x_10); x_17 = x_2 >> x_5; -x_18 = l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance___spec__2(x_16, x_17, x_3); +x_18 = l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance_x3f___spec__2(x_16, x_17, x_3); lean_dec(x_16); return x_18; } @@ -16418,22 +16411,22 @@ lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; x_20 = lean_ctor_get(x_1, 0); x_21 = lean_ctor_get(x_1, 1); x_22 = lean_unsigned_to_nat(0u); -x_23 = l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance___spec__3(x_20, x_21, lean_box(0), x_22, x_3); +x_23 = l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance_x3f___spec__3(x_20, x_21, lean_box(0), x_22, x_3); return x_23; } } } -lean_object* l_PersistentHashMap_find___at_Lean_Meta_synthInstance___spec__1(lean_object* x_1, lean_object* x_2) { +lean_object* l_PersistentHashMap_find___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); x_4 = l_Lean_Expr_hash(x_2); -x_5 = l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance___spec__2(x_3, x_4, 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___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__6(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; @@ -16525,7 +16518,7 @@ return x_29; } } } -lean_object* l_Array_iterateMAux___main___at_Lean_Meta_synthInstance___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__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) { _start: { lean_object* x_7; uint8_t x_8; @@ -16548,7 +16541,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___spec__5(x_6, x_16, x_1, x_9, x_10); +x_17 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5(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); @@ -16558,7 +16551,7 @@ goto _start; } } } -lean_object* l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance___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__5(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) @@ -16671,7 +16664,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___spec__5(x_35, x_36, x_37, x_4, x_5); +x_38 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5(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); @@ -16686,7 +16679,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___spec__5(x_40, x_41, x_42, x_4, x_5); +x_43 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5(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); @@ -16802,7 +16795,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___spec__5(x_71, x_73, x_74, x_4, x_5); +x_75 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5(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 { @@ -16835,7 +16828,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___spec__6(x_1, x_82, x_4, x_5); +x_83 = l_PersistentHashMap_insertAtCollisionNodeAux___main___at_Lean_Meta_synthInstance_x3f___spec__6(x_1, x_82, x_4, x_5); x_84 = 7; x_85 = x_84 <= x_3; if (x_85 == 0) @@ -16854,7 +16847,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___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__7(x_3, x_89, x_90, x_89, x_82, x_91); lean_dec(x_90); lean_dec(x_89); return x_92; @@ -16871,7 +16864,7 @@ return x_83; } } } -lean_object* l_PersistentHashMap_insert___at_Lean_Meta_synthInstance___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__4(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { uint8_t x_4; @@ -16883,7 +16876,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___spec__5(x_5, x_7, x_8, x_2, x_3); +x_9 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5(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); @@ -16901,7 +16894,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___spec__5(x_12, x_14, x_15, x_2, x_3); +x_16 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5(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); @@ -16912,7 +16905,7 @@ return x_19; } } } -lean_object* l_Lean_Meta_synthInstance(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Lean_Meta_synthInstance_x3f(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { uint8_t x_5; @@ -16972,7 +16965,7 @@ x_23 = lean_ctor_get(x_15, 5); lean_inc(x_23); x_24 = lean_ctor_get(x_20, 2); lean_inc(x_24); -x_25 = l_PersistentHashMap_find___at_Lean_Meta_synthInstance___spec__1(x_24, x_16); +x_25 = l_PersistentHashMap_find___at_Lean_Meta_synthInstance_x3f___spec__1(x_24, x_16); lean_dec(x_24); if (lean_obj_tag(x_25) == 0) { @@ -17284,7 +17277,76 @@ lean_ctor_set(x_28, 1, x_19); x_36 = l_Lean_Expr_hasMVar(x_16); if (x_36 == 0) { -lean_object* x_37; +uint8_t x_37; +lean_dec(x_28); +x_37 = !lean_is_exclusive(x_31); +if (x_37 == 0) +{ +lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; +x_38 = lean_ctor_get(x_31, 2); +lean_inc(x_27); +x_39 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance_x3f___spec__4(x_38, x_16, x_27); +lean_ctor_set(x_31, 2, x_39); +if (lean_is_scalar(x_26)) { + x_40 = lean_alloc_ctor(0, 6, 0); +} else { + x_40 = x_26; +} +lean_ctor_set(x_40, 0, x_30); +lean_ctor_set(x_40, 1, x_19); +lean_ctor_set(x_40, 2, x_31); +lean_ctor_set(x_40, 3, x_32); +lean_ctor_set(x_40, 4, x_33); +lean_ctor_set(x_40, 5, x_34); +if (lean_is_scalar(x_17)) { + x_41 = lean_alloc_ctor(0, 2, 0); +} else { + x_41 = x_17; +} +lean_ctor_set(x_41, 0, x_27); +lean_ctor_set(x_41, 1, x_40); +return x_41; +} +else +{ +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_42 = lean_ctor_get(x_31, 0); +x_43 = lean_ctor_get(x_31, 1); +x_44 = lean_ctor_get(x_31, 2); +lean_inc(x_44); +lean_inc(x_43); +lean_inc(x_42); +lean_dec(x_31); +lean_inc(x_27); +x_45 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance_x3f___spec__4(x_44, x_16, x_27); +x_46 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_46, 0, x_42); +lean_ctor_set(x_46, 1, x_43); +lean_ctor_set(x_46, 2, x_45); +if (lean_is_scalar(x_26)) { + x_47 = lean_alloc_ctor(0, 6, 0); +} else { + x_47 = x_26; +} +lean_ctor_set(x_47, 0, x_30); +lean_ctor_set(x_47, 1, x_19); +lean_ctor_set(x_47, 2, x_46); +lean_ctor_set(x_47, 3, x_32); +lean_ctor_set(x_47, 4, x_33); +lean_ctor_set(x_47, 5, x_34); +if (lean_is_scalar(x_17)) { + x_48 = lean_alloc_ctor(0, 2, 0); +} else { + x_48 = x_17; +} +lean_ctor_set(x_48, 0, x_27); +lean_ctor_set(x_48, 1, x_47); +return x_48; +} +} +else +{ +lean_object* x_49; lean_dec(x_34); lean_dec(x_33); lean_dec(x_32); @@ -17293,85 +17355,16 @@ lean_dec(x_30); lean_dec(x_26); lean_dec(x_19); lean_dec(x_16); -if (lean_is_scalar(x_17)) { - x_37 = lean_alloc_ctor(0, 2, 0); -} else { - x_37 = x_17; -} -lean_ctor_set(x_37, 0, x_27); -lean_ctor_set(x_37, 1, x_28); -return x_37; -} -else -{ -uint8_t x_38; -lean_dec(x_28); -x_38 = !lean_is_exclusive(x_31); -if (x_38 == 0) -{ -lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; -x_39 = lean_ctor_get(x_31, 2); -lean_inc(x_27); -x_40 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance___spec__4(x_39, x_16, x_27); -lean_ctor_set(x_31, 2, x_40); -if (lean_is_scalar(x_26)) { - x_41 = lean_alloc_ctor(0, 6, 0); -} else { - x_41 = x_26; -} -lean_ctor_set(x_41, 0, x_30); -lean_ctor_set(x_41, 1, x_19); -lean_ctor_set(x_41, 2, x_31); -lean_ctor_set(x_41, 3, x_32); -lean_ctor_set(x_41, 4, x_33); -lean_ctor_set(x_41, 5, x_34); -if (lean_is_scalar(x_17)) { - x_42 = lean_alloc_ctor(0, 2, 0); -} else { - x_42 = x_17; -} -lean_ctor_set(x_42, 0, x_27); -lean_ctor_set(x_42, 1, x_41); -return x_42; -} -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; -x_43 = lean_ctor_get(x_31, 0); -x_44 = lean_ctor_get(x_31, 1); -x_45 = lean_ctor_get(x_31, 2); -lean_inc(x_45); -lean_inc(x_44); -lean_inc(x_43); -lean_dec(x_31); -lean_inc(x_27); -x_46 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance___spec__4(x_45, x_16, x_27); -x_47 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_47, 0, x_43); -lean_ctor_set(x_47, 1, x_44); -lean_ctor_set(x_47, 2, x_46); -if (lean_is_scalar(x_26)) { - x_48 = lean_alloc_ctor(0, 6, 0); -} else { - x_48 = x_26; -} -lean_ctor_set(x_48, 0, x_30); -lean_ctor_set(x_48, 1, x_19); -lean_ctor_set(x_48, 2, x_47); -lean_ctor_set(x_48, 3, x_32); -lean_ctor_set(x_48, 4, x_33); -lean_ctor_set(x_48, 5, x_34); if (lean_is_scalar(x_17)) { x_49 = lean_alloc_ctor(0, 2, 0); } else { x_49 = x_17; } lean_ctor_set(x_49, 0, x_27); -lean_ctor_set(x_49, 1, x_48); +lean_ctor_set(x_49, 1, x_28); 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; uint8_t x_56; @@ -17402,7 +17395,56 @@ lean_ctor_set(x_55, 5, x_54); x_56 = l_Lean_Expr_hasMVar(x_16); if (x_56 == 0) { -lean_object* x_57; +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_dec(x_55); +x_57 = lean_ctor_get(x_51, 0); +lean_inc(x_57); +x_58 = lean_ctor_get(x_51, 1); +lean_inc(x_58); +x_59 = lean_ctor_get(x_51, 2); +lean_inc(x_59); +if (lean_is_exclusive(x_51)) { + lean_ctor_release(x_51, 0); + lean_ctor_release(x_51, 1); + lean_ctor_release(x_51, 2); + x_60 = x_51; +} else { + lean_dec_ref(x_51); + x_60 = lean_box(0); +} +lean_inc(x_27); +x_61 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance_x3f___spec__4(x_59, x_16, x_27); +if (lean_is_scalar(x_60)) { + x_62 = lean_alloc_ctor(0, 3, 0); +} else { + x_62 = x_60; +} +lean_ctor_set(x_62, 0, x_57); +lean_ctor_set(x_62, 1, x_58); +lean_ctor_set(x_62, 2, x_61); +if (lean_is_scalar(x_26)) { + x_63 = lean_alloc_ctor(0, 6, 0); +} else { + x_63 = x_26; +} +lean_ctor_set(x_63, 0, x_50); +lean_ctor_set(x_63, 1, x_19); +lean_ctor_set(x_63, 2, x_62); +lean_ctor_set(x_63, 3, x_52); +lean_ctor_set(x_63, 4, x_53); +lean_ctor_set(x_63, 5, x_54); +if (lean_is_scalar(x_17)) { + x_64 = lean_alloc_ctor(0, 2, 0); +} else { + x_64 = x_17; +} +lean_ctor_set(x_64, 0, x_27); +lean_ctor_set(x_64, 1, x_63); +return x_64; +} +else +{ +lean_object* x_65; lean_dec(x_54); lean_dec(x_53); lean_dec(x_52); @@ -17411,62 +17453,13 @@ lean_dec(x_50); lean_dec(x_26); lean_dec(x_19); lean_dec(x_16); -if (lean_is_scalar(x_17)) { - x_57 = lean_alloc_ctor(0, 2, 0); -} else { - x_57 = x_17; -} -lean_ctor_set(x_57, 0, x_27); -lean_ctor_set(x_57, 1, x_55); -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_dec(x_55); -x_58 = lean_ctor_get(x_51, 0); -lean_inc(x_58); -x_59 = lean_ctor_get(x_51, 1); -lean_inc(x_59); -x_60 = lean_ctor_get(x_51, 2); -lean_inc(x_60); -if (lean_is_exclusive(x_51)) { - lean_ctor_release(x_51, 0); - lean_ctor_release(x_51, 1); - lean_ctor_release(x_51, 2); - x_61 = x_51; -} else { - lean_dec_ref(x_51); - x_61 = lean_box(0); -} -lean_inc(x_27); -x_62 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance___spec__4(x_60, x_16, x_27); -if (lean_is_scalar(x_61)) { - x_63 = lean_alloc_ctor(0, 3, 0); -} else { - x_63 = x_61; -} -lean_ctor_set(x_63, 0, x_58); -lean_ctor_set(x_63, 1, x_59); -lean_ctor_set(x_63, 2, x_62); -if (lean_is_scalar(x_26)) { - x_64 = lean_alloc_ctor(0, 6, 0); -} else { - x_64 = x_26; -} -lean_ctor_set(x_64, 0, x_50); -lean_ctor_set(x_64, 1, x_19); -lean_ctor_set(x_64, 2, x_63); -lean_ctor_set(x_64, 3, x_52); -lean_ctor_set(x_64, 4, x_53); -lean_ctor_set(x_64, 5, x_54); if (lean_is_scalar(x_17)) { x_65 = lean_alloc_ctor(0, 2, 0); } else { x_65 = x_17; } lean_ctor_set(x_65, 0, x_27); -lean_ctor_set(x_65, 1, x_64); +lean_ctor_set(x_65, 1, x_55); return x_65; } } @@ -17642,7 +17635,7 @@ x_161 = lean_ctor_get(x_153, 5); lean_inc(x_161); x_162 = lean_ctor_get(x_158, 2); lean_inc(x_162); -x_163 = l_PersistentHashMap_find___at_Lean_Meta_synthInstance___spec__1(x_162, x_154); +x_163 = l_PersistentHashMap_find___at_Lean_Meta_synthInstance_x3f___spec__1(x_162, x_154); lean_dec(x_162); if (lean_obj_tag(x_163) == 0) { @@ -17892,7 +17885,56 @@ lean_ctor_set(x_173, 5, x_171); x_174 = l_Lean_Expr_hasMVar(x_154); if (x_174 == 0) { -lean_object* x_175; +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_dec(x_173); +x_175 = lean_ctor_get(x_168, 0); +lean_inc(x_175); +x_176 = lean_ctor_get(x_168, 1); +lean_inc(x_176); +x_177 = lean_ctor_get(x_168, 2); +lean_inc(x_177); +if (lean_is_exclusive(x_168)) { + lean_ctor_release(x_168, 0); + lean_ctor_release(x_168, 1); + lean_ctor_release(x_168, 2); + x_178 = x_168; +} else { + lean_dec_ref(x_168); + x_178 = lean_box(0); +} +lean_inc(x_165); +x_179 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance_x3f___spec__4(x_177, x_154, x_165); +if (lean_is_scalar(x_178)) { + x_180 = lean_alloc_ctor(0, 3, 0); +} else { + x_180 = x_178; +} +lean_ctor_set(x_180, 0, x_175); +lean_ctor_set(x_180, 1, x_176); +lean_ctor_set(x_180, 2, x_179); +if (lean_is_scalar(x_164)) { + x_181 = lean_alloc_ctor(0, 6, 0); +} else { + x_181 = x_164; +} +lean_ctor_set(x_181, 0, x_167); +lean_ctor_set(x_181, 1, x_157); +lean_ctor_set(x_181, 2, x_180); +lean_ctor_set(x_181, 3, x_169); +lean_ctor_set(x_181, 4, x_170); +lean_ctor_set(x_181, 5, x_171); +if (lean_is_scalar(x_155)) { + x_182 = lean_alloc_ctor(0, 2, 0); +} else { + x_182 = x_155; +} +lean_ctor_set(x_182, 0, x_165); +lean_ctor_set(x_182, 1, x_181); +return x_182; +} +else +{ +lean_object* x_183; lean_dec(x_171); lean_dec(x_170); lean_dec(x_169); @@ -17901,62 +17943,13 @@ lean_dec(x_167); lean_dec(x_164); lean_dec(x_157); lean_dec(x_154); -if (lean_is_scalar(x_155)) { - x_175 = lean_alloc_ctor(0, 2, 0); -} else { - x_175 = x_155; -} -lean_ctor_set(x_175, 0, x_165); -lean_ctor_set(x_175, 1, x_173); -return x_175; -} -else -{ -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_dec(x_173); -x_176 = lean_ctor_get(x_168, 0); -lean_inc(x_176); -x_177 = lean_ctor_get(x_168, 1); -lean_inc(x_177); -x_178 = lean_ctor_get(x_168, 2); -lean_inc(x_178); -if (lean_is_exclusive(x_168)) { - lean_ctor_release(x_168, 0); - lean_ctor_release(x_168, 1); - lean_ctor_release(x_168, 2); - x_179 = x_168; -} else { - lean_dec_ref(x_168); - x_179 = lean_box(0); -} -lean_inc(x_165); -x_180 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance___spec__4(x_178, x_154, x_165); -if (lean_is_scalar(x_179)) { - x_181 = lean_alloc_ctor(0, 3, 0); -} else { - x_181 = x_179; -} -lean_ctor_set(x_181, 0, x_176); -lean_ctor_set(x_181, 1, x_177); -lean_ctor_set(x_181, 2, x_180); -if (lean_is_scalar(x_164)) { - x_182 = lean_alloc_ctor(0, 6, 0); -} else { - x_182 = x_164; -} -lean_ctor_set(x_182, 0, x_167); -lean_ctor_set(x_182, 1, x_157); -lean_ctor_set(x_182, 2, x_181); -lean_ctor_set(x_182, 3, x_169); -lean_ctor_set(x_182, 4, x_170); -lean_ctor_set(x_182, 5, x_171); if (lean_is_scalar(x_155)) { x_183 = lean_alloc_ctor(0, 2, 0); } else { x_183 = x_155; } lean_ctor_set(x_183, 0, x_165); -lean_ctor_set(x_183, 1, x_182); +lean_ctor_set(x_183, 1, x_173); return x_183; } } @@ -18148,7 +18141,7 @@ x_264 = lean_ctor_get(x_256, 5); lean_inc(x_264); x_265 = lean_ctor_get(x_261, 2); lean_inc(x_265); -x_266 = l_PersistentHashMap_find___at_Lean_Meta_synthInstance___spec__1(x_265, x_257); +x_266 = l_PersistentHashMap_find___at_Lean_Meta_synthInstance_x3f___spec__1(x_265, x_257); lean_dec(x_265); if (lean_obj_tag(x_266) == 0) { @@ -18398,7 +18391,56 @@ lean_ctor_set(x_276, 5, x_274); x_277 = l_Lean_Expr_hasMVar(x_257); if (x_277 == 0) { -lean_object* x_278; +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_dec(x_276); +x_278 = lean_ctor_get(x_271, 0); +lean_inc(x_278); +x_279 = lean_ctor_get(x_271, 1); +lean_inc(x_279); +x_280 = lean_ctor_get(x_271, 2); +lean_inc(x_280); +if (lean_is_exclusive(x_271)) { + lean_ctor_release(x_271, 0); + lean_ctor_release(x_271, 1); + lean_ctor_release(x_271, 2); + x_281 = x_271; +} else { + lean_dec_ref(x_271); + x_281 = lean_box(0); +} +lean_inc(x_268); +x_282 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance_x3f___spec__4(x_280, x_257, x_268); +if (lean_is_scalar(x_281)) { + x_283 = lean_alloc_ctor(0, 3, 0); +} else { + x_283 = x_281; +} +lean_ctor_set(x_283, 0, x_278); +lean_ctor_set(x_283, 1, x_279); +lean_ctor_set(x_283, 2, x_282); +if (lean_is_scalar(x_267)) { + x_284 = lean_alloc_ctor(0, 6, 0); +} else { + x_284 = x_267; +} +lean_ctor_set(x_284, 0, x_270); +lean_ctor_set(x_284, 1, x_260); +lean_ctor_set(x_284, 2, x_283); +lean_ctor_set(x_284, 3, x_272); +lean_ctor_set(x_284, 4, x_273); +lean_ctor_set(x_284, 5, x_274); +if (lean_is_scalar(x_258)) { + x_285 = lean_alloc_ctor(0, 2, 0); +} else { + x_285 = x_258; +} +lean_ctor_set(x_285, 0, x_268); +lean_ctor_set(x_285, 1, x_284); +return x_285; +} +else +{ +lean_object* x_286; lean_dec(x_274); lean_dec(x_273); lean_dec(x_272); @@ -18407,62 +18449,13 @@ lean_dec(x_270); lean_dec(x_267); lean_dec(x_260); lean_dec(x_257); -if (lean_is_scalar(x_258)) { - x_278 = lean_alloc_ctor(0, 2, 0); -} else { - x_278 = x_258; -} -lean_ctor_set(x_278, 0, x_268); -lean_ctor_set(x_278, 1, x_276); -return x_278; -} -else -{ -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_dec(x_276); -x_279 = lean_ctor_get(x_271, 0); -lean_inc(x_279); -x_280 = lean_ctor_get(x_271, 1); -lean_inc(x_280); -x_281 = lean_ctor_get(x_271, 2); -lean_inc(x_281); -if (lean_is_exclusive(x_271)) { - lean_ctor_release(x_271, 0); - lean_ctor_release(x_271, 1); - lean_ctor_release(x_271, 2); - x_282 = x_271; -} else { - lean_dec_ref(x_271); - x_282 = lean_box(0); -} -lean_inc(x_268); -x_283 = l_PersistentHashMap_insert___at_Lean_Meta_synthInstance___spec__4(x_281, x_257, x_268); -if (lean_is_scalar(x_282)) { - x_284 = lean_alloc_ctor(0, 3, 0); -} else { - x_284 = x_282; -} -lean_ctor_set(x_284, 0, x_279); -lean_ctor_set(x_284, 1, x_280); -lean_ctor_set(x_284, 2, x_283); -if (lean_is_scalar(x_267)) { - x_285 = lean_alloc_ctor(0, 6, 0); -} else { - x_285 = x_267; -} -lean_ctor_set(x_285, 0, x_270); -lean_ctor_set(x_285, 1, x_260); -lean_ctor_set(x_285, 2, x_284); -lean_ctor_set(x_285, 3, x_272); -lean_ctor_set(x_285, 4, x_273); -lean_ctor_set(x_285, 5, x_274); if (lean_is_scalar(x_258)) { x_286 = lean_alloc_ctor(0, 2, 0); } else { x_286 = x_258; } lean_ctor_set(x_286, 0, x_268); -lean_ctor_set(x_286, 1, x_285); +lean_ctor_set(x_286, 1, x_276); return x_286; } } @@ -18569,53 +18562,53 @@ return x_339; } } } -lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance___spec__3___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_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___spec__3(x_1, x_2, x_3, x_4, x_5); +x_6 = l_PersistentHashMap_findAtAux___main___at_Lean_Meta_synthInstance_x3f___spec__3(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___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +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: { 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___spec__2(x_1, x_4, x_3); +x_5 = l_PersistentHashMap_findAux___main___at_Lean_Meta_synthInstance_x3f___spec__2(x_1, x_4, x_3); lean_dec(x_3); lean_dec(x_1); return x_5; } } -lean_object* l_PersistentHashMap_find___at_Lean_Meta_synthInstance___spec__1___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_PersistentHashMap_find___at_Lean_Meta_synthInstance_x3f___spec__1___boxed(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = l_PersistentHashMap_find___at_Lean_Meta_synthInstance___spec__1(x_1, x_2); +x_3 = l_PersistentHashMap_find___at_Lean_Meta_synthInstance_x3f___spec__1(x_1, x_2); lean_dec(x_2); lean_dec(x_1); return x_3; } } -lean_object* l_Array_iterateMAux___main___at_Lean_Meta_synthInstance___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) { +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) { _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___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__7(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___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__5___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; @@ -18623,7 +18616,7 @@ 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___spec__5(x_1, x_6, x_7, x_4, x_5); +x_8 = l_PersistentHashMap_insertAux___main___at_Lean_Meta_synthInstance_x3f___spec__5(x_1, x_6, x_7, x_4, x_5); return x_8; } } @@ -18642,7 +18635,7 @@ if (x_7 == 0) uint8_t x_8; lean_object* x_9; x_8 = 1; lean_ctor_set_uint8(x_6, sizeof(void*)*1 + 3, x_8); -x_9 = l_Lean_Meta_synthInstance(x_1, x_2, x_3, x_4); +x_9 = l_Lean_Meta_synthInstance_x3f(x_1, x_2, x_3, x_4); if (lean_obj_tag(x_9) == 0) { uint8_t x_10; @@ -18781,7 +18774,7 @@ lean_ctor_set_uint8(x_41, sizeof(void*)*1 + 3, x_40); lean_ctor_set_uint8(x_41, sizeof(void*)*1 + 4, x_38); lean_ctor_set_uint8(x_41, sizeof(void*)*1 + 5, x_39); lean_ctor_set(x_3, 0, x_41); -x_42 = l_Lean_Meta_synthInstance(x_1, x_2, x_3, x_4); +x_42 = l_Lean_Meta_synthInstance_x3f(x_1, x_2, x_3, x_4); if (lean_obj_tag(x_42) == 0) { lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; @@ -18931,7 +18924,7 @@ x_72 = lean_alloc_ctor(0, 3, 0); lean_ctor_set(x_72, 0, x_71); lean_ctor_set(x_72, 1, x_61); lean_ctor_set(x_72, 2, x_62); -x_73 = l_Lean_Meta_synthInstance(x_1, x_2, x_72, x_4); +x_73 = l_Lean_Meta_synthInstance_x3f(x_1, x_2, x_72, x_4); if (lean_obj_tag(x_73) == 0) { lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; @@ -19041,6 +19034,131 @@ return x_90; } } } +lean_object* l_Lean_Meta_synthInstance(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +lean_inc(x_3); +lean_inc(x_1); +x_5 = l_Lean_Meta_synthInstance_x3f(x_1, x_2, x_3, x_4); +if (lean_obj_tag(x_5) == 0) +{ +lean_object* x_6; +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +if (lean_obj_tag(x_6) == 0) +{ +uint8_t x_7; +x_7 = !lean_is_exclusive(x_5); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_8 = lean_ctor_get(x_5, 1); +x_9 = lean_ctor_get(x_5, 0); +lean_dec(x_9); +x_10 = lean_ctor_get(x_8, 0); +lean_inc(x_10); +x_11 = lean_ctor_get(x_8, 1); +lean_inc(x_11); +x_12 = lean_ctor_get(x_3, 1); +lean_inc(x_12); +lean_dec(x_3); +x_13 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_13, 0, x_10); +lean_ctor_set(x_13, 1, x_11); +lean_ctor_set(x_13, 2, x_12); +x_14 = lean_alloc_ctor(17, 2, 0); +lean_ctor_set(x_14, 0, x_1); +lean_ctor_set(x_14, 1, x_13); +lean_ctor_set_tag(x_5, 1); +lean_ctor_set(x_5, 0, x_14); +return x_5; +} +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; +x_15 = lean_ctor_get(x_5, 1); +lean_inc(x_15); +lean_dec(x_5); +x_16 = lean_ctor_get(x_15, 0); +lean_inc(x_16); +x_17 = lean_ctor_get(x_15, 1); +lean_inc(x_17); +x_18 = lean_ctor_get(x_3, 1); +lean_inc(x_18); +lean_dec(x_3); +x_19 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_19, 0, x_16); +lean_ctor_set(x_19, 1, x_17); +lean_ctor_set(x_19, 2, x_18); +x_20 = lean_alloc_ctor(17, 2, 0); +lean_ctor_set(x_20, 0, x_1); +lean_ctor_set(x_20, 1, x_19); +x_21 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_21, 0, x_20); +lean_ctor_set(x_21, 1, x_15); +return x_21; +} +} +else +{ +uint8_t x_22; +lean_dec(x_3); +lean_dec(x_1); +x_22 = !lean_is_exclusive(x_5); +if (x_22 == 0) +{ +lean_object* x_23; lean_object* x_24; +x_23 = lean_ctor_get(x_5, 0); +lean_dec(x_23); +x_24 = lean_ctor_get(x_6, 0); +lean_inc(x_24); +lean_dec(x_6); +lean_ctor_set(x_5, 0, x_24); +return x_5; +} +else +{ +lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_25 = lean_ctor_get(x_5, 1); +lean_inc(x_25); +lean_dec(x_5); +x_26 = lean_ctor_get(x_6, 0); +lean_inc(x_26); +lean_dec(x_6); +x_27 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_27, 0, x_26); +lean_ctor_set(x_27, 1, x_25); +return x_27; +} +} +} +else +{ +uint8_t x_28; +lean_dec(x_3); +lean_dec(x_1); +x_28 = !lean_is_exclusive(x_5); +if (x_28 == 0) +{ +return x_5; +} +else +{ +lean_object* x_29; lean_object* x_30; lean_object* x_31; +x_29 = lean_ctor_get(x_5, 0); +x_30 = lean_ctor_get(x_5, 1); +lean_inc(x_30); +lean_inc(x_29); +lean_dec(x_5); +x_31 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_31, 0, x_29); +lean_ctor_set(x_31, 1, x_30); +return x_31; +} +} +} +} lean_object* initialize_Init_Default(lean_object*); lean_object* initialize_Init_Lean_Meta_Basic(lean_object*); lean_object* initialize_Init_Lean_Meta_Instances(lean_object*); @@ -19112,8 +19230,6 @@ l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__3 = _init_l_Lean_Me lean_mark_persistent(l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__3); l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__4 = _init_l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__4(); lean_mark_persistent(l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__4); -l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__5 = _init_l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__5(); -lean_mark_persistent(l_Lean_Meta_SynthInstance_getInstances___lambda__1___closed__5); l_Lean_Meta_SynthInstance_getInstances___closed__1 = _init_l_Lean_Meta_SynthInstance_getInstances___closed__1(); lean_mark_persistent(l_Lean_Meta_SynthInstance_getInstances___closed__1); l_Lean_Meta_SynthInstance_newSubgoal___closed__1 = _init_l_Lean_Meta_SynthInstance_newSubgoal___closed__1(); diff --git a/stage0/stdlib/Init/Lean/MetavarContext.c b/stage0/stdlib/Init/Lean/MetavarContext.c index 48c23c4873..8ed9302f68 100644 --- a/stage0/stdlib/Init/Lean/MetavarContext.c +++ b/stage0/stdlib/Init/Lean/MetavarContext.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.MetavarContext -// Imports: Init.Data.Nat Init.Data.Option Init.Control.Reader Init.Lean.LocalContext Init.Lean.MonadCache Init.Lean.NameGenerator +// Imports: Init.Control.Reader Init.Data.Nat Init.Data.Option Init.Lean.Data.NameGenerator Init.Lean.LocalContext Init.Lean.MonadCache #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -32968,24 +32968,27 @@ x_4 = l_Lean_MetavarContext_isWellFormed___main(x_1, x_2, x_3); return x_4; } } +lean_object* initialize_Init_Control_Reader(lean_object*); lean_object* initialize_Init_Data_Nat(lean_object*); lean_object* initialize_Init_Data_Option(lean_object*); -lean_object* initialize_Init_Control_Reader(lean_object*); +lean_object* initialize_Init_Lean_Data_NameGenerator(lean_object*); lean_object* initialize_Init_Lean_LocalContext(lean_object*); lean_object* initialize_Init_Lean_MonadCache(lean_object*); -lean_object* initialize_Init_Lean_NameGenerator(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_MetavarContext(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; +res = initialize_Init_Control_Reader(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); res = initialize_Init_Data_Nat(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); res = initialize_Init_Data_Option(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Control_Reader(lean_io_mk_world()); +res = initialize_Init_Lean_Data_NameGenerator(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); res = initialize_Init_Lean_LocalContext(lean_io_mk_world()); @@ -32994,9 +32997,6 @@ lean_dec_ref(res); res = initialize_Init_Lean_MonadCache(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_NameGenerator(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); l_Lean_LocalInstance_hasBeq___closed__1 = _init_l_Lean_LocalInstance_hasBeq___closed__1(); lean_mark_persistent(l_Lean_LocalInstance_hasBeq___closed__1); l_Lean_LocalInstance_hasBeq = _init_l_Lean_LocalInstance_hasBeq(); diff --git a/stage0/stdlib/Init/Lean/NameGenerator.c b/stage0/stdlib/Init/Lean/NameGenerator.c index 1ee02d2680..29fa2f9d68 100644 --- a/stage0/stdlib/Init/Lean/NameGenerator.c +++ b/stage0/stdlib/Init/Lean/NameGenerator.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.NameGenerator -// Imports: Init.Lean.Name +// Imports: Init.Lean.Data.Name #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -160,13 +160,13 @@ return x_17; } } } -lean_object* initialize_Init_Lean_Name(lean_object*); +lean_object* initialize_Init_Lean_Data_Name(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_NameGenerator(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; -res = initialize_Init_Lean_Name(lean_io_mk_world()); +res = initialize_Init_Lean_Data_Name(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); l_Lean_NameGenerator_Inhabited___closed__1 = _init_l_Lean_NameGenerator_Inhabited___closed__1(); diff --git a/stage0/stdlib/Init/Lean/Options.c b/stage0/stdlib/Init/Lean/Options.c index 8f6df66cb9..ccb5592bfc 100644 --- a/stage0/stdlib/Init/Lean/Options.c +++ b/stage0/stdlib/Init/Lean/Options.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Options -// Imports: Init.System.IO Init.Data.ToString Init.Lean.KVMap +// Imports: Init.System.IO Init.Data.ToString Init.Lean.Data.KVMap #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -1009,7 +1009,7 @@ return x_129; } lean_object* initialize_Init_System_IO(lean_object*); lean_object* initialize_Init_Data_ToString(lean_object*); -lean_object* initialize_Init_Lean_KVMap(lean_object*); +lean_object* initialize_Init_Lean_Data_KVMap(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Options(lean_object* w) { lean_object * res; @@ -1021,7 +1021,7 @@ lean_dec_ref(res); res = initialize_Init_Data_ToString(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_KVMap(lean_io_mk_world()); +res = initialize_Init_Lean_Data_KVMap(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); l_Lean_Options_empty = _init_l_Lean_Options_empty(); diff --git a/stage0/stdlib/Init/Lean/Parser/Parser.c b/stage0/stdlib/Init/Lean/Parser/Parser.c index 513f5667c0..5c035573e8 100644 --- a/stage0/stdlib/Init/Lean/Parser/Parser.c +++ b/stage0/stdlib/Init/Lean/Parser/Parser.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Parser.Parser -// Imports: Init.Lean.Position Init.Lean.Syntax Init.Lean.ToExpr Init.Lean.Message Init.Lean.Environment Init.Lean.Attributes Init.Lean.Parser.Trie Init.Lean.Parser.Identifier Init.Lean.Compiler.InitAttr +// Imports: Init.Lean.Data.Trie Init.Lean.Data.Position Init.Lean.Syntax Init.Lean.ToExpr Init.Lean.Message Init.Lean.Environment Init.Lean.Attributes Init.Lean.Parser.Identifier Init.Lean.Compiler.InitAttr #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -212,7 +212,6 @@ lean_object* l_Lean_Parser_identFnAux___main___closed__1; lean_object* l_Lean_Parser_registerBuiltinParserAttribute___lambda__1___closed__3; lean_object* l_Lean_Parser_symbolInfo___elambda__1(lean_object*); lean_object* l_Lean_Parser_symbolFnAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Parser_Trie_3__findAux___main___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_insertToken___closed__4; lean_object* l_Lean_Parser_mkNodeToken___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_initCacheForInput___boxed(lean_object*); @@ -242,7 +241,6 @@ lean_object* l_Lean_Parser_charLitFn___rarg___closed__1; lean_object* l_Lean_Syntax_mfoldArgsAux___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_registerBuiltinParserAttribute___lambda__1___closed__2; extern lean_object* l_joinM___rarg___closed__1; -lean_object* l___private_Init_Lean_Parser_Trie_2__insertAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_Parser_mkTokenTableAttribute___spec__2(lean_object*, lean_object*); lean_object* l_Lean_Parser_ident___closed__1; lean_object* l_Lean_Parser_finishCommentBlock___main(lean_object*, lean_object*, lean_object*); @@ -515,6 +513,7 @@ lean_object* l_Lean_Parser_takeWhileFn___at_Lean_Parser_binNumberFn___spec__2___ lean_object* l_Lean_Parser_strLitFnAux___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_rawIdent___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Error_toString___closed__2; +lean_object* l___private_Init_Lean_Data_Trie_3__findAux___main___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_mfoldArgsAux___main___at_Lean_Syntax_mforSepArgs___spec__1___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Syntax_isOfKind___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_longestMatchMkResult(lean_object*, lean_object*); @@ -600,7 +599,6 @@ lean_object* l_Lean_Parser_numLit(uint8_t); lean_object* l_Lean_Parser_leadingParser___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_registerParserAttribute___lambda__2___closed__2; lean_object* l_Lean_Parser_hexDigitFn(lean_object*, lean_object*); -lean_object* l_Lean_mkCAppN(lean_object*, lean_object*); lean_object* l_Lean_Parser_runBuiltinParser___rarg___boxed(lean_object*); lean_object* l_Lean_Parser_FirstTokens_HasToString___closed__1; lean_object* l_Lean_Parser_FirstTokens_HasToString; @@ -802,6 +800,7 @@ lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object* lean_object* l_List_elem___main___at_Lean_Parser_addBuiltinLeadingParser___spec__4___boxed(lean_object*, lean_object*); uint8_t l_List_isEmpty___rarg(lean_object*); lean_object* l_Lean_Parser_unicodeSymbolInfo(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_keepPrevError___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_strAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -846,6 +845,7 @@ lean_object* l_Lean_Parser_unicodeSymbolInfo___closed__1; lean_object* l_Lean_Parser_checkColGe___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_numLitFn___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_unicodeSymbolFn___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_takeWhileFn___at_Lean_Parser_identFnAux___main___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_charLitFn___rarg(lean_object*, lean_object*); lean_object* l_Lean_Syntax_foldArgs___rarg___boxed(lean_object*, lean_object*, lean_object*); @@ -8892,7 +8892,7 @@ if (x_5 == 0) lean_object* x_6; lean_object* x_7; x_6 = lean_unsigned_to_nat(0u); lean_inc(x_3); -x_7 = l___private_Init_Lean_Parser_Trie_3__findAux___main___rarg(x_1, x_3, x_6); +x_7 = l___private_Init_Lean_Data_Trie_3__findAux___main___rarg(x_1, x_3, x_6); if (lean_obj_tag(x_7) == 0) { lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; @@ -8902,7 +8902,7 @@ x_9 = lean_alloc_ctor(0, 3, 0); lean_ctor_set(x_9, 0, x_1); lean_ctor_set(x_9, 1, x_2); lean_ctor_set(x_9, 2, x_8); -x_10 = l___private_Init_Lean_Parser_Trie_2__insertAux___main___rarg(x_1, x_9, x_3, x_6); +x_10 = l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg(x_1, x_9, x_3, x_6); lean_dec(x_1); x_11 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_11, 0, x_10); @@ -8937,7 +8937,7 @@ lean_object* x_16; lean_object* x_17; lean_object* x_18; x_16 = lean_ctor_get(x_13, 1); lean_dec(x_16); lean_ctor_set(x_13, 1, x_2); -x_17 = l___private_Init_Lean_Parser_Trie_2__insertAux___main___rarg(x_1, x_13, x_3, x_6); +x_17 = l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg(x_1, x_13, x_3, x_6); lean_dec(x_1); x_18 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_18, 0, x_17); @@ -8955,7 +8955,7 @@ x_21 = lean_alloc_ctor(0, 3, 0); lean_ctor_set(x_21, 0, x_19); lean_ctor_set(x_21, 1, x_2); lean_ctor_set(x_21, 2, x_20); -x_22 = l___private_Init_Lean_Parser_Trie_2__insertAux___main___rarg(x_1, x_21, x_3, x_6); +x_22 = l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg(x_1, x_21, x_3, x_6); lean_dec(x_1); x_23 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_23, 0, x_22); @@ -9847,7 +9847,7 @@ if (x_5 == 0) lean_object* x_6; lean_object* x_7; x_6 = lean_unsigned_to_nat(0u); lean_inc(x_3); -x_7 = l___private_Init_Lean_Parser_Trie_3__findAux___main___rarg(x_1, x_3, x_6); +x_7 = l___private_Init_Lean_Data_Trie_3__findAux___main___rarg(x_1, x_3, x_6); if (lean_obj_tag(x_7) == 0) { lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; @@ -9857,7 +9857,7 @@ x_9 = lean_alloc_ctor(0, 3, 0); lean_ctor_set(x_9, 0, x_1); lean_ctor_set(x_9, 1, x_8); lean_ctor_set(x_9, 2, x_2); -x_10 = l___private_Init_Lean_Parser_Trie_2__insertAux___main___rarg(x_1, x_9, x_3, x_6); +x_10 = l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg(x_1, x_9, x_3, x_6); lean_dec(x_1); x_11 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_11, 0, x_10); @@ -9892,7 +9892,7 @@ lean_object* x_16; lean_object* x_17; lean_object* x_18; x_16 = lean_ctor_get(x_13, 2); lean_dec(x_16); lean_ctor_set(x_13, 2, x_2); -x_17 = l___private_Init_Lean_Parser_Trie_2__insertAux___main___rarg(x_1, x_13, x_3, x_6); +x_17 = l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg(x_1, x_13, x_3, x_6); lean_dec(x_1); x_18 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_18, 0, x_17); @@ -9910,7 +9910,7 @@ x_21 = lean_alloc_ctor(0, 3, 0); lean_ctor_set(x_21, 0, x_19); lean_ctor_set(x_21, 1, x_20); lean_ctor_set(x_21, 2, x_2); -x_22 = l___private_Init_Lean_Parser_Trie_2__insertAux___main___rarg(x_1, x_21, x_3, x_6); +x_22 = l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg(x_1, x_21, x_3, x_6); lean_dec(x_1); x_23 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_23, 0, x_22); @@ -26680,70 +26680,72 @@ return x_1; lean_object* l_Lean_Parser_declareBuiltinParser(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { -lean_object* x_6; lean_object* x_7; lean_object* x_8; 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; uint8_t x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; uint8_t x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; x_6 = l_Lean_Parser_declareBuiltinParser___closed__2; lean_inc(x_4); x_7 = l_Lean_Name_append___main(x_6, x_4); x_8 = lean_box(0); -x_9 = l_Lean_mkConst(x_3, x_8); +x_9 = l_Lean_mkConst(x_2, x_8); +x_10 = l_Lean_mkConst(x_3, x_8); lean_inc(x_4); -x_10 = l_Lean_nameToExprAux___main(x_4); +x_11 = l_Lean_nameToExprAux___main(x_4); lean_inc(x_4); -x_11 = l_Lean_mkConst(x_4, x_8); -x_12 = l_Lean_Parser_declareBuiltinParser___closed__8; -x_13 = lean_array_push(x_12, x_9); +x_12 = l_Lean_mkConst(x_4, x_8); +x_13 = l_Lean_Parser_declareBuiltinParser___closed__8; x_14 = lean_array_push(x_13, x_10); x_15 = lean_array_push(x_14, x_11); -x_16 = l_Lean_mkCAppN(x_2, x_15); -lean_dec(x_15); -x_17 = l_Lean_Parser_declareBuiltinParser___closed__7; +x_16 = lean_array_push(x_15, x_12); +x_17 = lean_unsigned_to_nat(0u); +x_18 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_16, x_16, x_17, x_9); +lean_dec(x_16); +x_19 = l_Lean_Parser_declareBuiltinParser___closed__7; lean_inc(x_7); -x_18 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_18, 0, x_7); -lean_ctor_set(x_18, 1, x_8); -lean_ctor_set(x_18, 2, x_17); -x_19 = lean_box(0); -x_20 = 0; -x_21 = lean_alloc_ctor(0, 3, 1); -lean_ctor_set(x_21, 0, x_18); -lean_ctor_set(x_21, 1, x_16); -lean_ctor_set(x_21, 2, x_19); -lean_ctor_set_uint8(x_21, sizeof(void*)*3, x_20); -x_22 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_22, 0, x_21); -x_23 = l_Lean_Options_empty; -x_24 = l_Lean_Environment_addAndCompile(x_1, x_23, x_22); -lean_dec(x_22); -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; +x_20 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_20, 0, x_7); +lean_ctor_set(x_20, 1, x_8); +lean_ctor_set(x_20, 2, x_19); +x_21 = lean_box(0); +x_22 = 0; +x_23 = lean_alloc_ctor(0, 3, 1); +lean_ctor_set(x_23, 0, x_20); +lean_ctor_set(x_23, 1, x_18); +lean_ctor_set(x_23, 2, x_21); +lean_ctor_set_uint8(x_23, sizeof(void*)*3, x_22); +x_24 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_24, 0, x_23); +x_25 = l_Lean_Options_empty; +x_26 = l_Lean_Environment_addAndCompile(x_1, x_25, x_24); lean_dec(x_24); -lean_dec(x_7); -x_25 = l_Lean_Name_toString___closed__1; -x_26 = l_Lean_Name_toStringWithSep___main(x_25, x_4); -x_27 = l_Lean_Parser_declareBuiltinParser___closed__9; -x_28 = lean_string_append(x_27, x_26); +if (lean_obj_tag(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_dec(x_26); -x_29 = l_Char_HasRepr___closed__1; -x_30 = lean_string_append(x_28, x_29); -x_31 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_31, 0, x_30); -lean_ctor_set(x_31, 1, x_5); -return x_31; +lean_dec(x_7); +x_27 = l_Lean_Name_toString___closed__1; +x_28 = l_Lean_Name_toStringWithSep___main(x_27, x_4); +x_29 = l_Lean_Parser_declareBuiltinParser___closed__9; +x_30 = lean_string_append(x_29, x_28); +lean_dec(x_28); +x_31 = l_Char_HasRepr___closed__1; +x_32 = lean_string_append(x_30, x_31); +x_33 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_33, 0, x_32); +lean_ctor_set(x_33, 1, x_5); +return x_33; } else { -lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; +lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_dec(x_4); -x_32 = lean_ctor_get(x_24, 0); -lean_inc(x_32); -lean_dec(x_24); -x_33 = l_Lean_initAttr; -x_34 = lean_box(0); -x_35 = l_Lean_ParametricAttribute_setParam___rarg(x_33, x_32, x_7, x_34); -x_36 = l_IO_ofExcept___at_Lean_Parser_declareBuiltinParser___spec__1(x_35, x_5); -lean_dec(x_35); -return x_36; +x_34 = lean_ctor_get(x_26, 0); +lean_inc(x_34); +lean_dec(x_26); +x_35 = l_Lean_initAttr; +x_36 = lean_box(0); +x_37 = l_Lean_ParametricAttribute_setParam___rarg(x_35, x_34, x_7, x_36); +x_38 = l_IO_ofExcept___at_Lean_Parser_declareBuiltinParser___spec__1(x_37, x_5); +lean_dec(x_37); +return x_38; } } } @@ -29401,13 +29403,13 @@ lean_dec(x_2); return x_3; } } -lean_object* initialize_Init_Lean_Position(lean_object*); +lean_object* initialize_Init_Lean_Data_Trie(lean_object*); +lean_object* initialize_Init_Lean_Data_Position(lean_object*); lean_object* initialize_Init_Lean_Syntax(lean_object*); lean_object* initialize_Init_Lean_ToExpr(lean_object*); lean_object* initialize_Init_Lean_Message(lean_object*); lean_object* initialize_Init_Lean_Environment(lean_object*); lean_object* initialize_Init_Lean_Attributes(lean_object*); -lean_object* initialize_Init_Lean_Parser_Trie(lean_object*); lean_object* initialize_Init_Lean_Parser_Identifier(lean_object*); lean_object* initialize_Init_Lean_Compiler_InitAttr(lean_object*); static bool _G_initialized = false; @@ -29415,7 +29417,10 @@ lean_object* initialize_Init_Lean_Parser_Parser(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; -res = initialize_Init_Lean_Position(lean_io_mk_world()); +res = initialize_Init_Lean_Data_Trie(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Lean_Data_Position(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); res = initialize_Init_Lean_Syntax(lean_io_mk_world()); @@ -29433,9 +29438,6 @@ lean_dec_ref(res); res = initialize_Init_Lean_Attributes(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_Parser_Trie(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); res = initialize_Init_Lean_Parser_Identifier(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); diff --git a/stage0/stdlib/Init/Lean/Parser/Trie.c b/stage0/stdlib/Init/Lean/Parser/Trie.c index a11a082664..c683113e7f 100644 --- a/stage0/stdlib/Init/Lean/Parser/Trie.c +++ b/stage0/stdlib/Init/Lean/Parser/Trie.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Parser.Trie -// Imports: Init.Data.RBMap Init.Lean.Format +// Imports: Init.Data.RBMap Init.Lean.Data.Format #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -10806,7 +10806,7 @@ return x_2; } } lean_object* initialize_Init_Data_RBMap(lean_object*); -lean_object* initialize_Init_Lean_Format(lean_object*); +lean_object* initialize_Init_Lean_Data_Format(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Parser_Trie(lean_object* w) { lean_object * res; @@ -10815,7 +10815,7 @@ _G_initialized = true; res = initialize_Init_Data_RBMap(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_Format(lean_io_mk_world()); +res = initialize_Init_Lean_Data_Format(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); l_Lean_Parser_Trie_empty___closed__1 = _init_l_Lean_Parser_Trie_empty___closed__1(); diff --git a/stage0/stdlib/Init/Lean/Path.c b/stage0/stdlib/Init/Lean/Path.c index 1154e4abaa..39ff316075 100644 --- a/stage0/stdlib/Init/Lean/Path.c +++ b/stage0/stdlib/Init/Lean/Path.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Path -// Imports: Init.System.IO Init.System.FilePath Init.Data.Array Init.Data.List.Control Init.Lean.Name Init.Data.HashMap Init.Data.Nat.Control +// Imports: Init.System.IO Init.System.FilePath Init.Data.Array Init.Data.List.Control Init.Data.HashMap Init.Data.Nat.Control Init.Lean.Data.Name #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -2621,9 +2621,9 @@ lean_object* initialize_Init_System_IO(lean_object*); lean_object* initialize_Init_System_FilePath(lean_object*); lean_object* initialize_Init_Data_Array(lean_object*); lean_object* initialize_Init_Data_List_Control(lean_object*); -lean_object* initialize_Init_Lean_Name(lean_object*); lean_object* initialize_Init_Data_HashMap(lean_object*); lean_object* initialize_Init_Data_Nat_Control(lean_object*); +lean_object* initialize_Init_Lean_Data_Name(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Path(lean_object* w) { lean_object * res; @@ -2641,15 +2641,15 @@ lean_dec_ref(res); res = initialize_Init_Data_List_Control(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_Name(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); res = initialize_Init_Data_HashMap(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); res = initialize_Init_Data_Nat_Control(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Init_Lean_Data_Name(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); l___private_Init_Lean_Path_1__pathSep___closed__1 = _init_l___private_Init_Lean_Path_1__pathSep___closed__1(); lean_mark_persistent(l___private_Init_Lean_Path_1__pathSep___closed__1); l___private_Init_Lean_Path_1__pathSep = _init_l___private_Init_Lean_Path_1__pathSep(); diff --git a/stage0/stdlib/Init/Lean/Position.c b/stage0/stdlib/Init/Lean/Position.c index 2f363bc67c..4b4e237381 100644 --- a/stage0/stdlib/Init/Lean/Position.c +++ b/stage0/stdlib/Init/Lean/Position.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Position -// Imports: Init.Data.Nat Init.Data.RBMap Init.Lean.Format +// Imports: Init.Data.Nat Init.Data.RBMap Init.Lean.Data.Format #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -590,7 +590,7 @@ return x_2; } lean_object* initialize_Init_Data_Nat(lean_object*); lean_object* initialize_Init_Data_RBMap(lean_object*); -lean_object* initialize_Init_Lean_Format(lean_object*); +lean_object* initialize_Init_Lean_Data_Format(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Position(lean_object* w) { lean_object * res; @@ -602,7 +602,7 @@ lean_dec_ref(res); res = initialize_Init_Data_RBMap(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_Format(lean_io_mk_world()); +res = initialize_Init_Lean_Data_Format(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); l_Lean_Position_lt___closed__1 = _init_l_Lean_Position_lt___closed__1(); diff --git a/stage0/stdlib/Init/Lean/Syntax.c b/stage0/stdlib/Init/Lean/Syntax.c index 6c35e35d68..0efbce52b0 100644 --- a/stage0/stdlib/Init/Lean/Syntax.c +++ b/stage0/stdlib/Init/Lean/Syntax.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Syntax -// Imports: Init.Lean.Name Init.Lean.Format Init.Data.Array +// Imports: Init.Data.Array Init.Lean.Data.Name Init.Lean.Data.Format #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -5762,23 +5762,23 @@ lean_dec(x_1); return x_3; } } -lean_object* initialize_Init_Lean_Name(lean_object*); -lean_object* initialize_Init_Lean_Format(lean_object*); lean_object* initialize_Init_Data_Array(lean_object*); +lean_object* initialize_Init_Lean_Data_Name(lean_object*); +lean_object* initialize_Init_Lean_Data_Format(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Syntax(lean_object* w) { lean_object * res; if (_G_initialized) return lean_mk_io_result(lean_box(0)); _G_initialized = true; -res = initialize_Init_Lean_Name(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); -res = initialize_Init_Lean_Format(lean_io_mk_world()); -if (lean_io_result_is_error(res)) return res; -lean_dec_ref(res); res = initialize_Init_Data_Array(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Init_Lean_Data_Name(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +res = initialize_Init_Lean_Data_Format(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); l_Lean_choiceKind___closed__1 = _init_l_Lean_choiceKind___closed__1(); lean_mark_persistent(l_Lean_choiceKind___closed__1); l_Lean_choiceKind___closed__2 = _init_l_Lean_choiceKind___closed__2(); diff --git a/stage0/stdlib/Init/Lean/ToExpr.c b/stage0/stdlib/Init/Lean/ToExpr.c index 9e272025f2..1f7e1cb925 100644 --- a/stage0/stdlib/Init/Lean/ToExpr.c +++ b/stage0/stdlib/Init/Lean/ToExpr.c @@ -17,22 +17,24 @@ lean_object* l_Lean_nameToExprAux___main___closed__1; lean_object* l_Lean_nameToExprAux___main___closed__2; lean_object* l_Lean_nameToExprAux___main___closed__8; lean_object* l_Lean_nameToExprAux___main___closed__4; -lean_object* l_Lean_mkCAppB(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_nameToExprAux___main___closed__7; lean_object* l_Lean_nameToExprAux___main___closed__5; lean_object* l_Lean_natToExpr___closed__1; lean_object* l_Lean_nameToExprAux___main___closed__3; +extern lean_object* l_joinM___rarg___closed__1; lean_object* l_Lean_nameToExpr; lean_object* l_Lean_nameToExpr___closed__1; lean_object* l_Lean_natToExpr; lean_object* lean_name_mk_string(lean_object*, lean_object*); +lean_object* l_Lean_nameToExprAux___main___closed__10; lean_object* l_Lean_nameToExprAux(lean_object*); +lean_object* l_Lean_nameToExprAux___main___closed__9; lean_object* l_Lean_nameToExprAux___main(lean_object*); -extern lean_object* l_liftRefl___closed__1; lean_object* l_Lean_mkNatLit(lean_object*); lean_object* l_Lean_mkStrLit(lean_object*); lean_object* l_Lean_exprToExpr; lean_object* l_Lean_nameToExprAux___main___closed__6; +lean_object* l_Lean_mkAppB(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_strToExpr; lean_object* l_Lean_mkConst(lean_object*, lean_object*); lean_object* l_Lean_strToExpr___closed__1; @@ -40,7 +42,7 @@ lean_object* _init_l_Lean_exprToExpr() { _start: { lean_object* x_1; -x_1 = l_liftRefl___closed__1; +x_1 = l_joinM___rarg___closed__1; return x_1; } } @@ -131,21 +133,41 @@ return x_3; lean_object* _init_l_Lean_nameToExprAux___main___closed__7() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("mkNameNum"); -return x_1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_nameToExprAux___main___closed__6; +x_3 = l_Lean_mkConst(x_2, x_1); +return x_3; } } lean_object* _init_l_Lean_nameToExprAux___main___closed__8() { _start: { +lean_object* x_1; +x_1 = lean_mk_string("mkNameNum"); +return x_1; +} +} +lean_object* _init_l_Lean_nameToExprAux___main___closed__9() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_nameToExprAux___main___closed__4; -x_2 = l_Lean_nameToExprAux___main___closed__7; +x_2 = l_Lean_nameToExprAux___main___closed__8; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } +lean_object* _init_l_Lean_nameToExprAux___main___closed__10() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_nameToExprAux___main___closed__9; +x_3 = l_Lean_mkConst(x_2, x_1); +return x_3; +} +} lean_object* l_Lean_nameToExprAux___main(lean_object* x_1) { _start: { @@ -173,8 +195,8 @@ lean_inc(x_11); lean_dec(x_1); x_12 = l_Lean_nameToExprAux___main(x_10); x_13 = l_Lean_mkStrLit(x_11); -x_14 = l_Lean_nameToExprAux___main___closed__6; -x_15 = l_Lean_mkCAppB(x_14, x_12, x_13); +x_14 = l_Lean_nameToExprAux___main___closed__7; +x_15 = l_Lean_mkAppB(x_14, x_12, x_13); return x_15; } default: @@ -187,8 +209,8 @@ lean_inc(x_17); lean_dec(x_1); x_18 = l_Lean_nameToExprAux___main(x_16); x_19 = l_Lean_mkNatLit(x_17); -x_20 = l_Lean_nameToExprAux___main___closed__8; -x_21 = l_Lean_mkCAppB(x_20, x_18, x_19); +x_20 = l_Lean_nameToExprAux___main___closed__10; +x_21 = l_Lean_mkAppB(x_20, x_18, x_19); return x_21; } } @@ -253,6 +275,10 @@ l_Lean_nameToExprAux___main___closed__7 = _init_l_Lean_nameToExprAux___main___cl lean_mark_persistent(l_Lean_nameToExprAux___main___closed__7); l_Lean_nameToExprAux___main___closed__8 = _init_l_Lean_nameToExprAux___main___closed__8(); lean_mark_persistent(l_Lean_nameToExprAux___main___closed__8); +l_Lean_nameToExprAux___main___closed__9 = _init_l_Lean_nameToExprAux___main___closed__9(); +lean_mark_persistent(l_Lean_nameToExprAux___main___closed__9); +l_Lean_nameToExprAux___main___closed__10 = _init_l_Lean_nameToExprAux___main___closed__10(); +lean_mark_persistent(l_Lean_nameToExprAux___main___closed__10); l_Lean_nameToExpr___closed__1 = _init_l_Lean_nameToExpr___closed__1(); lean_mark_persistent(l_Lean_nameToExpr___closed__1); l_Lean_nameToExpr = _init_l_Lean_nameToExpr(); diff --git a/stage0/stdlib/Init/Lean/Util.c b/stage0/stdlib/Init/Lean/Util.c index 6c8803354a..3264575831 100644 --- a/stage0/stdlib/Init/Lean/Util.c +++ b/stage0/stdlib/Init/Lean/Util.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Init.Lean.Util -// Imports: Init.System.IO Init.Lean.Position +// Imports: Init.System.IO Init.Lean.Data.Position #include "runtime/lean.h" #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -58,7 +58,7 @@ return x_5; } } lean_object* initialize_Init_System_IO(lean_object*); -lean_object* initialize_Init_Lean_Position(lean_object*); +lean_object* initialize_Init_Lean_Data_Position(lean_object*); static bool _G_initialized = false; lean_object* initialize_Init_Lean_Util(lean_object* w) { lean_object * res; @@ -67,7 +67,7 @@ _G_initialized = true; res = initialize_Init_System_IO(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = initialize_Init_Lean_Position(lean_io_mk_world()); +res = initialize_Init_Lean_Data_Position(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));