From 777f4b9ecf91aeae957b0484358e95e10a4cdeae Mon Sep 17 00:00:00 2001 From: Leonardo de Moura Date: Wed, 28 Oct 2020 19:55:14 -0700 Subject: [PATCH] chore: update stage0 --- stage0/src/Init/Data/Array/Basic.lean | 8 +- stage0/src/Init/Data/Array/Subarray.lean | 40 + stage0/src/Lean/Meta/ExprDefEq.lean | 2 +- stage0/src/Lean/Meta/WHNF.lean | 2 +- stage0/src/Lean/PrettyPrinter/Formatter.lean | 2 +- stage0/src/Lean/Syntax.lean | 2 +- stage0/stdlib/Init/Data/Array/Basic.c | 480 +++---- stage0/stdlib/Init/Data/Array/Subarray.c | 1359 ++++++++++++++++++ stage0/stdlib/Lean/Elab/BuiltinNotation.c | 1 + stage0/stdlib/Lean/Elab/Util.c | 1 - stage0/stdlib/Lean/Meta/ExprDefEq.c | 354 ++--- stage0/stdlib/Lean/Meta/WHNF.c | 157 +- stage0/stdlib/Lean/PrettyPrinter/Formatter.c | 265 ++-- stage0/stdlib/Lean/Syntax.c | 222 +-- 14 files changed, 2207 insertions(+), 688 deletions(-) diff --git a/stage0/src/Init/Data/Array/Basic.lean b/stage0/src/Init/Data/Array/Basic.lean index 0388f51b0d..9850d33195 100644 --- a/stage0/src/Init/Data/Array/Basic.lean +++ b/stage0/src/Init/Data/Array/Basic.lean @@ -388,6 +388,10 @@ def anyM {α : Type u} {m : Type → Type w} [Monad m] (p : α → m Bool) (as : else any as.size (Nat.leRefl _) +@[inline] +def allM {α : Type u} {m : Type → Type w} [Monad m] (p : α → m Bool) (as : Array α) (start := 0) (stop := as.size) : m Bool := do + return !(← as.anyM fun v => do return !(← p v)) + @[inline] def findSomeRevM? {α : Type u} {β : Type v} {m : Type v → Type w} [Monad m] (as : Array α) (f : α → m (Option β)) : m (Option β) := let rec @[specialize] find : (i : Nat) → i ≤ as.size → m (Option β) @@ -406,10 +410,6 @@ def findSomeRevM? {α : Type u} {β : Type v} {m : Type v → Type w} [Monad m] def findRevM? {α : Type} {m : Type → Type w} [Monad m] (as : Array α) (p : α → m Bool) : m (Option α) := as.findSomeRevM? fun a => do return if (← p a) then some a else none -@[inline] -def allM {α : Type u} {m : Type → Type w} [Monad m] (p : α → m Bool) (as : Array α) (start := 0) (stop := as.size) : m Bool := do - return !(← as.anyM fun v => do return !(← p v)) - @[inline] def forM {α : Type u} {m : Type v → Type w} [Monad m] (f : α → m PUnit) (as : Array α) (start := 0) (stop := as.size) : m PUnit := as.foldlM (fun _ => f) ⟨⟩ start stop diff --git a/stage0/src/Init/Data/Array/Subarray.lean b/stage0/src/Init/Data/Array/Subarray.lean index 0e651cb62f..b885d17863 100644 --- a/stage0/src/Init/Data/Array/Subarray.lean +++ b/stage0/src/Init/Data/Array/Subarray.lean @@ -34,6 +34,46 @@ namespace Subarray constant forIn {α : Type u} {β : Type v} {m : Type v → Type w} [Monad m] (s : Subarray α) (b : β) (f : α → β → m (ForInStep β)) : m β := pure b +@[inline] +def foldlM {α : Type u} {β : Type v} {m : Type v → Type w} [Monad m] (f : β → α → m β) (init : β) (as : Subarray α) : m β := + as.as.foldlM f (init := init) (start := as.start) (stop := as.stop) + +@[inline] +def foldrM {α : Type u} {β : Type v} {m : Type v → Type w} [Monad m] (f : α → β → m β) (init : β) (as : Subarray α) : m β := + as.as.foldrM f (init := init) (start := as.stop) (stop := as.start) + +@[inline] +def anyM {α : Type u} {m : Type → Type w} [Monad m] (p : α → m Bool) (as : Subarray α) : m Bool := + as.as.anyM p (start := as.start) (stop := as.stop) + +@[inline] +def allM {α : Type u} {m : Type → Type w} [Monad m] (p : α → m Bool) (as : Subarray α) : m Bool := + as.as.allM p (start := as.start) (stop := as.stop) + +@[inline] +def forM {α : Type u} {m : Type v → Type w} [Monad m] (f : α → m PUnit) (as : Subarray α) : m PUnit := + as.as.forM f (start := as.start) (stop := as.stop) + +@[inline] +def forRevM {α : Type u} {m : Type v → Type w} [Monad m] (f : α → m PUnit) (as : Subarray α) : m PUnit := + as.as.forRevM f (start := as.stop) (stop := as.start) + +@[inline] +def foldl {α : Type u} {β : Type v} (f : β → α → β) (init : β) (as : Subarray α) : β := + Id.run $ as.foldlM f (init := init) + +@[inline] +def foldr {α : Type u} {β : Type v} (f : α → β → β) (init : β) (as : Subarray α) : β := + Id.run $ as.foldrM f (init := init) + +@[inline] +def any {α : Type u} (p : α → Bool) (as : Subarray α) : Bool := + Id.run $ as.anyM p + +@[inline] +def all {α : Type u} (p : α → Bool) (as : Subarray α) : Bool := + Id.run $ as.allM p + end Subarray namespace Array diff --git a/stage0/src/Lean/Meta/ExprDefEq.lean b/stage0/src/Lean/Meta/ExprDefEq.lean index 05f70f707b..fdaaa37be1 100644 --- a/stage0/src/Lean/Meta/ExprDefEq.lean +++ b/stage0/src/Lean/Meta/ExprDefEq.lean @@ -717,7 +717,7 @@ private partial def processAssignment (mvarApp : Expr) (v : Expr) : MetaM Bool : let args := args.set ⟨i, h⟩ arg match arg with | Expr.fvar fvarId _ => - if args.any (start := 0) (stop := i) fun prevArg => prevArg == arg then + if args[0:i].any fun prevArg => prevArg == arg then useFOApprox args else if mvarDecl.lctx.contains fvarId && !cfg.quasiPatternApprox then useFOApprox args diff --git a/stage0/src/Lean/Meta/WHNF.lean b/stage0/src/Lean/Meta/WHNF.lean index 0caa70490b..5fd2e52d54 100644 --- a/stage0/src/Lean/Meta/WHNF.lean +++ b/stage0/src/Lean/Meta/WHNF.lean @@ -72,7 +72,7 @@ private def toCtorWhenK (recVal : RecursorVal) (major : Expr) : MetaM (Option Ex let majorTypeI := majorType.getAppFn if !majorTypeI.isConstOf recVal.getInduct then pure none - else if majorType.hasExprMVar && majorType.getAppArgs.any (start := recVal.nparams) Expr.hasExprMVar then + else if majorType.hasExprMVar && majorType.getAppArgs[recVal.nparams:].any Expr.hasExprMVar then pure none else do let (some newCtorApp) ← mkNullaryCtor majorType recVal.nparams | pure none diff --git a/stage0/src/Lean/PrettyPrinter/Formatter.lean b/stage0/src/Lean/PrettyPrinter/Formatter.lean index 3a154a947c..30bebb2bab 100644 --- a/stage0/src/Lean/PrettyPrinter/Formatter.lean +++ b/stage0/src/Lean/PrettyPrinter/Formatter.lean @@ -177,7 +177,7 @@ def categoryParser.formatter (cat : Name) : Formatter := group $ indent do let sp ← getStackSize stx.getArgs.forM fun stx => formatterForKind stx.getKind let stack ← getStack - if stack.size > sp && stack.any (start := sp) (stop := stack.size) fun f => f.pretty != (stack.get! sp).pretty then + if stack.size > sp && stack[sp:stack.size].any fun f => f.pretty != (stack.get! sp).pretty then panic! "Formatter.visit: inequal choice children"; -- discard all but one child format setStack $ stack.extract 0 (sp+1) diff --git a/stage0/src/Lean/Syntax.lean b/stage0/src/Lean/Syntax.lean index cadc58d1d8..bac5b28b0f 100644 --- a/stage0/src/Lean/Syntax.lean +++ b/stage0/src/Lean/Syntax.lean @@ -283,7 +283,7 @@ partial def reprint : Syntax → Option String if args.size == 0 then failure else do let s ← reprint args[0] - args.foldlM (init := s) (start := 1) fun s stx => do + args[1:].foldlM (init := s) fun s stx => do let s' ← reprint stx guard (s == s') pure s diff --git a/stage0/stdlib/Init/Data/Array/Basic.c b/stage0/stdlib/Init/Data/Array/Basic.c index 8cb2ede172..f27bd6b608 100644 --- a/stage0/stdlib/Init/Data/Array/Basic.c +++ b/stage0/stdlib/Init/Data/Array/Basic.c @@ -4444,6 +4444,246 @@ x_3 = lean_alloc_closure((void*)(l_Array_anyM___rarg), 5, 0); return x_3; } } +lean_object* l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__1(lean_object* x_1, uint8_t x_2) { +_start: +{ +if (x_2 == 0) +{ +lean_object* x_3; lean_object* x_4; uint8_t x_5; lean_object* x_6; lean_object* x_7; +x_3 = lean_ctor_get(x_1, 0); +lean_inc(x_3); +lean_dec(x_1); +x_4 = lean_ctor_get(x_3, 1); +lean_inc(x_4); +lean_dec(x_3); +x_5 = 1; +x_6 = lean_box(x_5); +x_7 = lean_apply_2(x_4, lean_box(0), 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; +x_8 = lean_ctor_get(x_1, 0); +lean_inc(x_8); +lean_dec(x_1); +x_9 = lean_ctor_get(x_8, 1); +lean_inc(x_9); +lean_dec(x_8); +x_10 = 0; +x_11 = lean_box(x_10); +x_12 = lean_apply_2(x_9, lean_box(0), x_11); +return x_12; +} +} +} +lean_object* l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__2(size_t x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, size_t x_6, uint8_t x_7) { +_start: +{ +if (x_7 == 0) +{ +size_t x_8; size_t x_9; lean_object* x_10; +x_8 = 1; +x_9 = x_1 + x_8; +x_10 = l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg(x_2, x_3, x_4, x_5, x_9, x_6); +return x_10; +} +else +{ +lean_object* x_11; lean_object* x_12; uint8_t x_13; lean_object* x_14; lean_object* x_15; +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +x_11 = lean_ctor_get(x_2, 0); +lean_inc(x_11); +lean_dec(x_2); +x_12 = lean_ctor_get(x_11, 1); +lean_inc(x_12); +lean_dec(x_11); +x_13 = 1; +x_14 = lean_box(x_13); +x_15 = lean_apply_2(x_12, lean_box(0), x_14); +return x_15; +} +} +} +lean_object* l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, size_t x_5, size_t x_6) { +_start: +{ +uint8_t x_7; +x_7 = x_5 == x_6; +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; lean_object* x_15; lean_object* x_16; +x_8 = lean_ctor_get(x_1, 1); +lean_inc(x_8); +x_9 = lean_array_uget(x_4, x_5); +lean_inc(x_2); +x_10 = lean_apply_1(x_2, x_9); +lean_inc(x_1); +x_11 = lean_alloc_closure((void*)(l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__1___boxed), 2, 1); +lean_closure_set(x_11, 0, x_1); +lean_inc(x_3); +x_12 = lean_apply_4(x_3, lean_box(0), lean_box(0), x_10, x_11); +x_13 = lean_box_usize(x_5); +x_14 = lean_box_usize(x_6); +x_15 = lean_alloc_closure((void*)(l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__2___boxed), 7, 6); +lean_closure_set(x_15, 0, x_13); +lean_closure_set(x_15, 1, x_1); +lean_closure_set(x_15, 2, x_2); +lean_closure_set(x_15, 3, x_3); +lean_closure_set(x_15, 4, x_4); +lean_closure_set(x_15, 5, x_14); +x_16 = lean_apply_4(x_8, lean_box(0), lean_box(0), x_12, x_15); +return x_16; +} +else +{ +lean_object* x_17; lean_object* x_18; uint8_t x_19; lean_object* x_20; lean_object* x_21; +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_17 = lean_ctor_get(x_1, 0); +lean_inc(x_17); +lean_dec(x_1); +x_18 = lean_ctor_get(x_17, 1); +lean_inc(x_18); +lean_dec(x_17); +x_19 = 0; +x_20 = lean_box(x_19); +x_21 = lean_apply_2(x_18, lean_box(0), x_20); +return x_21; +} +} +} +lean_object* l_Array_anyMUnsafe_any___at_Array_allM___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___boxed), 6, 0); +return x_3; +} +} +lean_object* l_Array_allM___rarg(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; uint8_t x_9; lean_object* x_10; +x_6 = lean_ctor_get(x_1, 1); +lean_inc(x_6); +x_7 = lean_array_get_size(x_3); +x_8 = lean_unsigned_to_nat(0u); +x_9 = lean_nat_dec_lt(x_8, x_7); +lean_inc(x_1); +x_10 = lean_alloc_closure((void*)(l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__1___boxed), 2, 1); +lean_closure_set(x_10, 0, x_1); +if (x_9 == 0) +{ +lean_object* x_11; lean_object* x_12; uint8_t x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +lean_dec(x_7); +lean_dec(x_3); +lean_dec(x_2); +x_11 = lean_ctor_get(x_1, 0); +lean_inc(x_11); +lean_dec(x_1); +x_12 = lean_ctor_get(x_11, 1); +lean_inc(x_12); +lean_dec(x_11); +x_13 = 0; +x_14 = lean_box(x_13); +x_15 = lean_apply_2(x_12, lean_box(0), x_14); +x_16 = lean_apply_4(x_6, lean_box(0), lean_box(0), x_15, x_10); +return x_16; +} +else +{ +uint8_t x_17; +x_17 = lean_nat_dec_le(x_7, x_7); +if (x_17 == 0) +{ +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_dec(x_7); +lean_dec(x_3); +lean_dec(x_2); +x_18 = lean_ctor_get(x_1, 0); +lean_inc(x_18); +lean_dec(x_1); +x_19 = lean_ctor_get(x_18, 1); +lean_inc(x_19); +lean_dec(x_18); +x_20 = 0; +x_21 = lean_box(x_20); +x_22 = lean_apply_2(x_19, lean_box(0), x_21); +x_23 = lean_apply_4(x_6, lean_box(0), lean_box(0), x_22, x_10); +return x_23; +} +else +{ +size_t x_24; size_t x_25; lean_object* x_26; lean_object* x_27; +x_24 = 0; +x_25 = lean_usize_of_nat(x_7); +lean_dec(x_7); +lean_inc(x_6); +x_26 = l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg(x_1, x_2, x_6, x_3, x_24, x_25); +x_27 = lean_apply_4(x_6, lean_box(0), lean_box(0), x_26, x_10); +return x_27; +} +} +} +} +lean_object* l_Array_allM(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Array_allM___rarg___boxed), 5, 0); +return x_3; +} +} +lean_object* l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__1___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = lean_unbox(x_2); +lean_dec(x_2); +x_4 = l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__1(x_1, x_3); +return x_4; +} +} +lean_object* l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +_start: +{ +size_t x_8; size_t x_9; uint8_t x_10; lean_object* x_11; +x_8 = lean_unbox_usize(x_1); +lean_dec(x_1); +x_9 = lean_unbox_usize(x_6); +lean_dec(x_6); +x_10 = lean_unbox(x_7); +lean_dec(x_7); +x_11 = l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__2(x_8, x_2, x_3, x_4, x_5, x_9, x_10); +return x_11; +} +} +lean_object* l_Array_anyMUnsafe_any___at_Array_allM___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: +{ +size_t x_7; size_t x_8; lean_object* x_9; +x_7 = lean_unbox_usize(x_5); +lean_dec(x_5); +x_8 = lean_unbox_usize(x_6); +lean_dec(x_6); +x_9 = l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg(x_1, x_2, x_3, x_4, x_7, x_8); +return x_9; +} +} +lean_object* l_Array_allM___rarg___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_Array_allM___rarg(x_1, x_2, x_3, x_4, x_5); +lean_dec(x_5); +lean_dec(x_4); +return x_6; +} +} lean_object* l_Array_findSomeRevM_x3f_find_match__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -4795,246 +5035,6 @@ lean_dec(x_4); return x_6; } } -lean_object* l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__1(lean_object* x_1, uint8_t x_2) { -_start: -{ -if (x_2 == 0) -{ -lean_object* x_3; lean_object* x_4; uint8_t x_5; lean_object* x_6; lean_object* x_7; -x_3 = lean_ctor_get(x_1, 0); -lean_inc(x_3); -lean_dec(x_1); -x_4 = lean_ctor_get(x_3, 1); -lean_inc(x_4); -lean_dec(x_3); -x_5 = 1; -x_6 = lean_box(x_5); -x_7 = lean_apply_2(x_4, lean_box(0), 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; -x_8 = lean_ctor_get(x_1, 0); -lean_inc(x_8); -lean_dec(x_1); -x_9 = lean_ctor_get(x_8, 1); -lean_inc(x_9); -lean_dec(x_8); -x_10 = 0; -x_11 = lean_box(x_10); -x_12 = lean_apply_2(x_9, lean_box(0), x_11); -return x_12; -} -} -} -lean_object* l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__2(size_t x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, size_t x_6, uint8_t x_7) { -_start: -{ -if (x_7 == 0) -{ -size_t x_8; size_t x_9; lean_object* x_10; -x_8 = 1; -x_9 = x_1 + x_8; -x_10 = l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg(x_2, x_3, x_4, x_5, x_9, x_6); -return x_10; -} -else -{ -lean_object* x_11; lean_object* x_12; uint8_t x_13; lean_object* x_14; lean_object* x_15; -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_3); -x_11 = lean_ctor_get(x_2, 0); -lean_inc(x_11); -lean_dec(x_2); -x_12 = lean_ctor_get(x_11, 1); -lean_inc(x_12); -lean_dec(x_11); -x_13 = 1; -x_14 = lean_box(x_13); -x_15 = lean_apply_2(x_12, lean_box(0), x_14); -return x_15; -} -} -} -lean_object* l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, size_t x_5, size_t x_6) { -_start: -{ -uint8_t x_7; -x_7 = x_5 == x_6; -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; lean_object* x_15; lean_object* x_16; -x_8 = lean_ctor_get(x_1, 1); -lean_inc(x_8); -x_9 = lean_array_uget(x_4, x_5); -lean_inc(x_2); -x_10 = lean_apply_1(x_2, x_9); -lean_inc(x_1); -x_11 = lean_alloc_closure((void*)(l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__1___boxed), 2, 1); -lean_closure_set(x_11, 0, x_1); -lean_inc(x_3); -x_12 = lean_apply_4(x_3, lean_box(0), lean_box(0), x_10, x_11); -x_13 = lean_box_usize(x_5); -x_14 = lean_box_usize(x_6); -x_15 = lean_alloc_closure((void*)(l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__2___boxed), 7, 6); -lean_closure_set(x_15, 0, x_13); -lean_closure_set(x_15, 1, x_1); -lean_closure_set(x_15, 2, x_2); -lean_closure_set(x_15, 3, x_3); -lean_closure_set(x_15, 4, x_4); -lean_closure_set(x_15, 5, x_14); -x_16 = lean_apply_4(x_8, lean_box(0), lean_box(0), x_12, x_15); -return x_16; -} -else -{ -lean_object* x_17; lean_object* x_18; uint8_t x_19; lean_object* x_20; lean_object* x_21; -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -x_17 = lean_ctor_get(x_1, 0); -lean_inc(x_17); -lean_dec(x_1); -x_18 = lean_ctor_get(x_17, 1); -lean_inc(x_18); -lean_dec(x_17); -x_19 = 0; -x_20 = lean_box(x_19); -x_21 = lean_apply_2(x_18, lean_box(0), x_20); -return x_21; -} -} -} -lean_object* l_Array_anyMUnsafe_any___at_Array_allM___spec__1(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___boxed), 6, 0); -return x_3; -} -} -lean_object* l_Array_allM___rarg(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; uint8_t x_9; lean_object* x_10; -x_6 = lean_ctor_get(x_1, 1); -lean_inc(x_6); -x_7 = lean_array_get_size(x_3); -x_8 = lean_unsigned_to_nat(0u); -x_9 = lean_nat_dec_lt(x_8, x_7); -lean_inc(x_1); -x_10 = lean_alloc_closure((void*)(l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__1___boxed), 2, 1); -lean_closure_set(x_10, 0, x_1); -if (x_9 == 0) -{ -lean_object* x_11; lean_object* x_12; uint8_t x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; -lean_dec(x_7); -lean_dec(x_3); -lean_dec(x_2); -x_11 = lean_ctor_get(x_1, 0); -lean_inc(x_11); -lean_dec(x_1); -x_12 = lean_ctor_get(x_11, 1); -lean_inc(x_12); -lean_dec(x_11); -x_13 = 0; -x_14 = lean_box(x_13); -x_15 = lean_apply_2(x_12, lean_box(0), x_14); -x_16 = lean_apply_4(x_6, lean_box(0), lean_box(0), x_15, x_10); -return x_16; -} -else -{ -uint8_t x_17; -x_17 = lean_nat_dec_le(x_7, x_7); -if (x_17 == 0) -{ -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_dec(x_7); -lean_dec(x_3); -lean_dec(x_2); -x_18 = lean_ctor_get(x_1, 0); -lean_inc(x_18); -lean_dec(x_1); -x_19 = lean_ctor_get(x_18, 1); -lean_inc(x_19); -lean_dec(x_18); -x_20 = 0; -x_21 = lean_box(x_20); -x_22 = lean_apply_2(x_19, lean_box(0), x_21); -x_23 = lean_apply_4(x_6, lean_box(0), lean_box(0), x_22, x_10); -return x_23; -} -else -{ -size_t x_24; size_t x_25; lean_object* x_26; lean_object* x_27; -x_24 = 0; -x_25 = lean_usize_of_nat(x_7); -lean_dec(x_7); -lean_inc(x_6); -x_26 = l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg(x_1, x_2, x_6, x_3, x_24, x_25); -x_27 = lean_apply_4(x_6, lean_box(0), lean_box(0), x_26, x_10); -return x_27; -} -} -} -} -lean_object* l_Array_allM(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = lean_alloc_closure((void*)(l_Array_allM___rarg___boxed), 5, 0); -return x_3; -} -} -lean_object* l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__1___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -uint8_t x_3; lean_object* x_4; -x_3 = lean_unbox(x_2); -lean_dec(x_2); -x_4 = l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__1(x_1, x_3); -return x_4; -} -} -lean_object* l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { -_start: -{ -size_t x_8; size_t x_9; uint8_t x_10; lean_object* x_11; -x_8 = lean_unbox_usize(x_1); -lean_dec(x_1); -x_9 = lean_unbox_usize(x_6); -lean_dec(x_6); -x_10 = lean_unbox(x_7); -lean_dec(x_7); -x_11 = l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__2(x_8, x_2, x_3, x_4, x_5, x_9, x_10); -return x_11; -} -} -lean_object* l_Array_anyMUnsafe_any___at_Array_allM___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: -{ -size_t x_7; size_t x_8; lean_object* x_9; -x_7 = lean_unbox_usize(x_5); -lean_dec(x_5); -x_8 = lean_unbox_usize(x_6); -lean_dec(x_6); -x_9 = l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg(x_1, x_2, x_3, x_4, x_7, x_8); -return x_9; -} -} -lean_object* l_Array_allM___rarg___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_Array_allM___rarg(x_1, x_2, x_3, x_4, x_5); -lean_dec(x_5); -lean_dec(x_4); -return x_6; -} -} lean_object* l_Array_foldlMUnsafe_fold___at_Array_forM___spec__1___rarg___lambda__1(size_t x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, size_t x_5, lean_object* x_6) { _start: { diff --git a/stage0/stdlib/Init/Data/Array/Subarray.c b/stage0/stdlib/Init/Data/Array/Subarray.c index 7b196221c4..1b62129ecc 100644 --- a/stage0/stdlib/Init/Data/Array/Subarray.c +++ b/stage0/stdlib/Init/Data/Array/Subarray.c @@ -13,39 +13,101 @@ #ifdef __cplusplus extern "C" { #endif +lean_object* l_Array_foldrMUnsafe_fold___rarg(lean_object*, lean_object*, lean_object*, size_t, size_t, lean_object*); size_t l_USize_add(size_t, size_t); +lean_object* l_Array_foldlMUnsafe_fold___at_Subarray_forM___spec__1___rarg___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* l_Subarray_forInUnsafe_loop___at_Array_ofSubarray___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l_Array_anyMUnsafe_any___at_Subarray_any___spec__1___rarg(lean_object*, lean_object*, size_t, size_t); +uint8_t l_USize_decEq(size_t, size_t); lean_object* lean_array_uget(lean_object*, size_t); +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__2___rarg(lean_object*, lean_object*, lean_object*, size_t, size_t, lean_object*); +lean_object* l_Array_foldlMUnsafe_fold___at_Subarray_forM___spec__1___rarg___lambda__1(size_t, lean_object*, lean_object*, lean_object*, size_t, lean_object*); +lean_object* l_Array_anyMUnsafe_any___at_Subarray_any___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Subarray_foldr(lean_object*, lean_object*); lean_object* l_Array_extract___rarg(lean_object*, lean_object*, lean_object*); +size_t l_USize_sub(size_t, size_t); +lean_object* l_Subarray_anyM___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Subarray_forInUnsafe_loop_match__1___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Array_toSubarray___rarg(lean_object*, lean_object*, lean_object*); lean_object* lean_array_push(lean_object*, lean_object*); +lean_object* l_Subarray_forM(lean_object*, lean_object*); lean_object* lean_array_get_size(lean_object*); lean_object* l_Subarray_forInUnsafe_loop___at_Array_ofSubarray___spec__1(lean_object*); +lean_object* l_Array_anyMUnsafe_any___at_Subarray_all___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Subarray_foldlM___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_anyMUnsafe_any___at_Subarray_any___spec__1(lean_object*); uint8_t l_USize_decLt(size_t, size_t); +lean_object* l_Subarray_foldl___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_anyMUnsafe_any___at_Subarray_allM___spec__1(lean_object*, lean_object*); +lean_object* l_Subarray_any___rarg___boxed(lean_object*, lean_object*); lean_object* l_Array_Init_Data_Array_Subarray___instance__1___closed__1; +lean_object* l_Subarray_anyM(lean_object*, lean_object*); +lean_object* l_Subarray_all___rarg___boxed(lean_object*, lean_object*); +uint8_t l_Subarray_any___rarg(lean_object*, lean_object*); lean_object* l_Subarray_forIn___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__2___rarg(lean_object*, lean_object*, size_t, size_t, lean_object*); lean_object* lean_nat_sub(lean_object*, lean_object*); lean_object* l_Subarray_forInUnsafe_loop(lean_object*, lean_object*, lean_object*); lean_object* l_Subarray_forInUnsafe_loop_match__1(lean_object*, lean_object*); lean_object* l_Subarray_forInUnsafe_loop___at_Array_ofSubarray___spec__1___rarg(lean_object*, size_t, size_t, lean_object*); +lean_object* l_Array_foldlMUnsafe_fold___at_Subarray_forM___spec__1___rarg(lean_object*, lean_object*, lean_object*, size_t, size_t, lean_object*); +lean_object* l_Array_anyMUnsafe_any___at_Subarray_allM___spec__1___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Subarray_forInUnsafe_loop___rarg(lean_object*, lean_object*, lean_object*, size_t, size_t, lean_object*); +lean_object* l_Array_foldlMUnsafe_fold___at_Subarray_foldl___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Subarray_forInUnsafe(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_foldlMUnsafe_fold___rarg(lean_object*, lean_object*, lean_object*, size_t, size_t, lean_object*); +lean_object* l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__1___boxed(lean_object*, lean_object*); lean_object* l_Subarray_forInUnsafe_loop___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_foldlMUnsafe_fold___at_Subarray_foldl___spec__1___rarg(lean_object*, lean_object*, size_t, size_t, lean_object*); +lean_object* l_Subarray_foldl(lean_object*, lean_object*); +lean_object* l_Subarray_all(lean_object*); +lean_object* l_Array_anyMUnsafe_any___at_Subarray_allM___spec__1___rarg___lambda__1(size_t, lean_object*, lean_object*, lean_object*, lean_object*, size_t, uint8_t); +lean_object* l_Subarray_foldr___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Array_ofSubarray(lean_object*); lean_object* l_Subarray_forInUnsafe_loop___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_extract(lean_object*); +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__1(lean_object*, lean_object*); +lean_object* l_Array_anyMUnsafe_any___rarg(lean_object*, lean_object*, lean_object*, size_t, size_t); size_t lean_usize_of_nat(lean_object*); lean_object* l_Array_toSubarray(lean_object*); +lean_object* l_Subarray_allM___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_anyMUnsafe_any___at_Subarray_all___spec__1(lean_object*); +lean_object* l_Subarray_foldrM___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_ofSubarray___rarg___boxed(lean_object*); +lean_object* l_Subarray_foldlM(lean_object*, lean_object*, lean_object*); +lean_object* l_Subarray_foldrM(lean_object*, lean_object*, lean_object*); lean_object* l_Subarray_forInUnsafe_loop___rarg___lambda__1(lean_object*, size_t, lean_object*, lean_object*, size_t, lean_object*); lean_object* l_Array_Init_Data_Array_Subarray___instance__1(lean_object*); uint8_t lean_nat_dec_le(lean_object*, lean_object*); +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__2(lean_object*, lean_object*); +lean_object* l_Subarray_any(lean_object*); +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_anyMUnsafe_any___at_Subarray_allM___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Subarray_forInUnsafe___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__2(lean_object*, lean_object*); +lean_object* l_Subarray_forRevM___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__1___rarg(lean_object*, lean_object*, size_t, size_t, lean_object*); +lean_object* l_Subarray_forM___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Array_ofSubarray___rarg(lean_object*); +uint8_t l_Subarray_all___rarg(lean_object*, lean_object*); +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__1___rarg(lean_object*, lean_object*, lean_object*, size_t, size_t, lean_object*); +lean_object* l_Array_foldlMUnsafe_fold___at_Subarray_forM___spec__1___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Subarray_forRevM(lean_object*, lean_object*); +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__1(lean_object*, lean_object*); +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t l_Array_anyMUnsafe_any___at_Subarray_all___spec__1___rarg(lean_object*, lean_object*, size_t, size_t); +lean_object* l_Subarray_foldl___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Subarray_forIn___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Subarray_allM(lean_object*, lean_object*); +lean_object* l_Subarray_foldr___rarg___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_foldlMUnsafe_fold___at_Subarray_forM___spec__1(lean_object*, lean_object*); lean_object* l_Subarray_forIn(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_anyMUnsafe_any___at_Subarray_allM___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, size_t, size_t); +uint8_t lean_nat_dec_lt(lean_object*, lean_object*); +lean_object* l_Array_foldlMUnsafe_fold___at_Subarray_foldl___spec__1(lean_object*, lean_object*); lean_object* l_Subarray_forInUnsafe_loop_match__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -243,6 +305,1303 @@ lean_dec(x_2); return x_5; } } +lean_object* l_Subarray_foldlM___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; +x_5 = lean_ctor_get(x_4, 0); +lean_inc(x_5); +x_6 = lean_ctor_get(x_4, 1); +lean_inc(x_6); +x_7 = lean_ctor_get(x_4, 2); +lean_inc(x_7); +lean_dec(x_4); +x_8 = lean_nat_dec_lt(x_6, x_7); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_2); +x_9 = lean_ctor_get(x_1, 0); +lean_inc(x_9); +lean_dec(x_1); +x_10 = lean_ctor_get(x_9, 1); +lean_inc(x_10); +lean_dec(x_9); +x_11 = lean_apply_2(x_10, lean_box(0), x_3); +return x_11; +} +else +{ +lean_object* x_12; uint8_t x_13; +x_12 = lean_array_get_size(x_5); +x_13 = lean_nat_dec_le(x_7, x_12); +lean_dec(x_12); +if (x_13 == 0) +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_2); +x_14 = lean_ctor_get(x_1, 0); +lean_inc(x_14); +lean_dec(x_1); +x_15 = lean_ctor_get(x_14, 1); +lean_inc(x_15); +lean_dec(x_14); +x_16 = lean_apply_2(x_15, lean_box(0), x_3); +return x_16; +} +else +{ +size_t x_17; size_t x_18; lean_object* x_19; +x_17 = lean_usize_of_nat(x_6); +lean_dec(x_6); +x_18 = lean_usize_of_nat(x_7); +lean_dec(x_7); +x_19 = l_Array_foldlMUnsafe_fold___rarg(x_1, x_2, x_5, x_17, x_18, x_3); +return x_19; +} +} +} +} +lean_object* l_Subarray_foldlM(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l_Subarray_foldlM___rarg), 4, 0); +return x_4; +} +} +lean_object* l_Subarray_foldrM___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; uint8_t x_9; +x_5 = lean_ctor_get(x_4, 0); +lean_inc(x_5); +x_6 = lean_ctor_get(x_4, 2); +lean_inc(x_6); +x_7 = lean_ctor_get(x_4, 1); +lean_inc(x_7); +lean_dec(x_4); +x_8 = lean_array_get_size(x_5); +x_9 = lean_nat_dec_le(x_6, x_8); +if (x_9 == 0) +{ +uint8_t x_10; +lean_dec(x_6); +x_10 = lean_nat_dec_lt(x_7, x_8); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_2); +x_11 = lean_ctor_get(x_1, 0); +lean_inc(x_11); +lean_dec(x_1); +x_12 = lean_ctor_get(x_11, 1); +lean_inc(x_12); +lean_dec(x_11); +x_13 = lean_apply_2(x_12, lean_box(0), x_3); +return x_13; +} +else +{ +size_t x_14; size_t x_15; lean_object* x_16; +x_14 = lean_usize_of_nat(x_8); +lean_dec(x_8); +x_15 = lean_usize_of_nat(x_7); +lean_dec(x_7); +x_16 = l_Array_foldrMUnsafe_fold___rarg(x_1, x_2, x_5, x_14, x_15, x_3); +return x_16; +} +} +else +{ +uint8_t x_17; +lean_dec(x_8); +x_17 = lean_nat_dec_lt(x_7, x_6); +if (x_17 == 0) +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_2); +x_18 = lean_ctor_get(x_1, 0); +lean_inc(x_18); +lean_dec(x_1); +x_19 = lean_ctor_get(x_18, 1); +lean_inc(x_19); +lean_dec(x_18); +x_20 = lean_apply_2(x_19, lean_box(0), x_3); +return x_20; +} +else +{ +size_t x_21; size_t x_22; lean_object* x_23; +x_21 = lean_usize_of_nat(x_6); +lean_dec(x_6); +x_22 = lean_usize_of_nat(x_7); +lean_dec(x_7); +x_23 = l_Array_foldrMUnsafe_fold___rarg(x_1, x_2, x_5, x_21, x_22, x_3); +return x_23; +} +} +} +} +lean_object* l_Subarray_foldrM(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = lean_alloc_closure((void*)(l_Subarray_foldrM___rarg), 4, 0); +return x_4; +} +} +lean_object* l_Subarray_anyM___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; +x_4 = lean_ctor_get(x_3, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_3, 1); +lean_inc(x_5); +x_6 = lean_ctor_get(x_3, 2); +lean_inc(x_6); +lean_dec(x_3); +x_7 = lean_nat_dec_lt(x_5, x_6); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; uint8_t x_10; lean_object* x_11; lean_object* x_12; +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +x_8 = lean_ctor_get(x_1, 0); +lean_inc(x_8); +lean_dec(x_1); +x_9 = lean_ctor_get(x_8, 1); +lean_inc(x_9); +lean_dec(x_8); +x_10 = 0; +x_11 = lean_box(x_10); +x_12 = lean_apply_2(x_9, lean_box(0), x_11); +return x_12; +} +else +{ +lean_object* x_13; uint8_t x_14; +x_13 = lean_array_get_size(x_4); +x_14 = lean_nat_dec_le(x_6, x_13); +lean_dec(x_13); +if (x_14 == 0) +{ +lean_object* x_15; lean_object* x_16; uint8_t x_17; lean_object* x_18; lean_object* x_19; +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +x_15 = lean_ctor_get(x_1, 0); +lean_inc(x_15); +lean_dec(x_1); +x_16 = lean_ctor_get(x_15, 1); +lean_inc(x_16); +lean_dec(x_15); +x_17 = 0; +x_18 = lean_box(x_17); +x_19 = lean_apply_2(x_16, lean_box(0), x_18); +return x_19; +} +else +{ +size_t x_20; size_t x_21; lean_object* x_22; +x_20 = lean_usize_of_nat(x_5); +lean_dec(x_5); +x_21 = lean_usize_of_nat(x_6); +lean_dec(x_6); +x_22 = l_Array_anyMUnsafe_any___rarg(x_1, x_2, x_4, x_20, x_21); +return x_22; +} +} +} +} +lean_object* l_Subarray_anyM(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Subarray_anyM___rarg), 3, 0); +return x_3; +} +} +lean_object* l_Array_anyMUnsafe_any___at_Subarray_allM___spec__1___rarg___lambda__1(size_t x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, size_t x_6, uint8_t x_7) { +_start: +{ +if (x_7 == 0) +{ +size_t x_8; size_t x_9; lean_object* x_10; +x_8 = 1; +x_9 = x_1 + x_8; +x_10 = l_Array_anyMUnsafe_any___at_Subarray_allM___spec__1___rarg(x_2, x_3, x_4, x_5, x_9, x_6); +return x_10; +} +else +{ +lean_object* x_11; lean_object* x_12; uint8_t x_13; lean_object* x_14; lean_object* x_15; +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +x_11 = lean_ctor_get(x_2, 0); +lean_inc(x_11); +lean_dec(x_2); +x_12 = lean_ctor_get(x_11, 1); +lean_inc(x_12); +lean_dec(x_11); +x_13 = 1; +x_14 = lean_box(x_13); +x_15 = lean_apply_2(x_12, lean_box(0), x_14); +return x_15; +} +} +} +lean_object* l_Array_anyMUnsafe_any___at_Subarray_allM___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, size_t x_5, size_t x_6) { +_start: +{ +uint8_t x_7; +x_7 = x_5 == x_6; +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; lean_object* x_15; lean_object* x_16; +x_8 = lean_ctor_get(x_1, 1); +lean_inc(x_8); +x_9 = lean_array_uget(x_4, x_5); +lean_inc(x_2); +x_10 = lean_apply_1(x_2, x_9); +lean_inc(x_1); +x_11 = lean_alloc_closure((void*)(l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__1___boxed), 2, 1); +lean_closure_set(x_11, 0, x_1); +lean_inc(x_3); +x_12 = lean_apply_4(x_3, lean_box(0), lean_box(0), x_10, x_11); +x_13 = lean_box_usize(x_5); +x_14 = lean_box_usize(x_6); +x_15 = lean_alloc_closure((void*)(l_Array_anyMUnsafe_any___at_Subarray_allM___spec__1___rarg___lambda__1___boxed), 7, 6); +lean_closure_set(x_15, 0, x_13); +lean_closure_set(x_15, 1, x_1); +lean_closure_set(x_15, 2, x_2); +lean_closure_set(x_15, 3, x_3); +lean_closure_set(x_15, 4, x_4); +lean_closure_set(x_15, 5, x_14); +x_16 = lean_apply_4(x_8, lean_box(0), lean_box(0), x_12, x_15); +return x_16; +} +else +{ +lean_object* x_17; lean_object* x_18; uint8_t x_19; lean_object* x_20; lean_object* x_21; +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +x_17 = lean_ctor_get(x_1, 0); +lean_inc(x_17); +lean_dec(x_1); +x_18 = lean_ctor_get(x_17, 1); +lean_inc(x_18); +lean_dec(x_17); +x_19 = 0; +x_20 = lean_box(x_19); +x_21 = lean_apply_2(x_18, lean_box(0), x_20); +return x_21; +} +} +} +lean_object* l_Array_anyMUnsafe_any___at_Subarray_allM___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Array_anyMUnsafe_any___at_Subarray_allM___spec__1___rarg___boxed), 6, 0); +return x_3; +} +} +lean_object* l_Subarray_allM___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; lean_object* x_7; uint8_t x_8; lean_object* x_9; +x_4 = lean_ctor_get(x_3, 0); +lean_inc(x_4); +lean_dec(x_3); +x_5 = lean_ctor_get(x_1, 1); +lean_inc(x_5); +x_6 = lean_array_get_size(x_4); +x_7 = lean_unsigned_to_nat(0u); +x_8 = lean_nat_dec_lt(x_7, x_6); +lean_inc(x_1); +x_9 = lean_alloc_closure((void*)(l_Array_anyMUnsafe_any___at_Array_allM___spec__1___rarg___lambda__1___boxed), 2, 1); +lean_closure_set(x_9, 0, x_1); +if (x_8 == 0) +{ +lean_object* x_10; lean_object* x_11; uint8_t x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_2); +x_10 = lean_ctor_get(x_1, 0); +lean_inc(x_10); +lean_dec(x_1); +x_11 = lean_ctor_get(x_10, 1); +lean_inc(x_11); +lean_dec(x_10); +x_12 = 0; +x_13 = lean_box(x_12); +x_14 = lean_apply_2(x_11, lean_box(0), x_13); +x_15 = lean_apply_4(x_5, lean_box(0), lean_box(0), x_14, x_9); +return x_15; +} +else +{ +uint8_t x_16; +x_16 = lean_nat_dec_le(x_6, x_6); +if (x_16 == 0) +{ +lean_object* x_17; lean_object* x_18; uint8_t x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_2); +x_17 = lean_ctor_get(x_1, 0); +lean_inc(x_17); +lean_dec(x_1); +x_18 = lean_ctor_get(x_17, 1); +lean_inc(x_18); +lean_dec(x_17); +x_19 = 0; +x_20 = lean_box(x_19); +x_21 = lean_apply_2(x_18, lean_box(0), x_20); +x_22 = lean_apply_4(x_5, lean_box(0), lean_box(0), x_21, x_9); +return x_22; +} +else +{ +size_t x_23; size_t x_24; lean_object* x_25; lean_object* x_26; +x_23 = 0; +x_24 = lean_usize_of_nat(x_6); +lean_dec(x_6); +lean_inc(x_5); +x_25 = l_Array_anyMUnsafe_any___at_Subarray_allM___spec__1___rarg(x_1, x_2, x_5, x_4, x_23, x_24); +x_26 = lean_apply_4(x_5, lean_box(0), lean_box(0), x_25, x_9); +return x_26; +} +} +} +} +lean_object* l_Subarray_allM(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Subarray_allM___rarg), 3, 0); +return x_3; +} +} +lean_object* l_Array_anyMUnsafe_any___at_Subarray_allM___spec__1___rarg___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +_start: +{ +size_t x_8; size_t x_9; uint8_t x_10; lean_object* x_11; +x_8 = lean_unbox_usize(x_1); +lean_dec(x_1); +x_9 = lean_unbox_usize(x_6); +lean_dec(x_6); +x_10 = lean_unbox(x_7); +lean_dec(x_7); +x_11 = l_Array_anyMUnsafe_any___at_Subarray_allM___spec__1___rarg___lambda__1(x_8, x_2, x_3, x_4, x_5, x_9, x_10); +return x_11; +} +} +lean_object* l_Array_anyMUnsafe_any___at_Subarray_allM___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: +{ +size_t x_7; size_t x_8; lean_object* x_9; +x_7 = lean_unbox_usize(x_5); +lean_dec(x_5); +x_8 = lean_unbox_usize(x_6); +lean_dec(x_6); +x_9 = l_Array_anyMUnsafe_any___at_Subarray_allM___spec__1___rarg(x_1, x_2, x_3, x_4, x_7, x_8); +return x_9; +} +} +lean_object* l_Array_foldlMUnsafe_fold___at_Subarray_forM___spec__1___rarg___lambda__1(size_t x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, size_t x_5, lean_object* x_6) { +_start: +{ +size_t x_7; size_t x_8; lean_object* x_9; +x_7 = 1; +x_8 = x_1 + x_7; +x_9 = l_Array_foldlMUnsafe_fold___at_Subarray_forM___spec__1___rarg(x_2, x_3, x_4, x_8, x_5, x_6); +return x_9; +} +} +lean_object* l_Array_foldlMUnsafe_fold___at_Subarray_forM___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, size_t x_4, size_t x_5, lean_object* x_6) { +_start: +{ +uint8_t x_7; +x_7 = x_4 == 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; +lean_dec(x_6); +x_8 = lean_ctor_get(x_1, 1); +lean_inc(x_8); +x_9 = lean_array_uget(x_3, x_4); +lean_inc(x_2); +x_10 = lean_apply_1(x_2, x_9); +x_11 = lean_box_usize(x_4); +x_12 = lean_box_usize(x_5); +x_13 = lean_alloc_closure((void*)(l_Array_foldlMUnsafe_fold___at_Subarray_forM___spec__1___rarg___lambda__1___boxed), 6, 5); +lean_closure_set(x_13, 0, x_11); +lean_closure_set(x_13, 1, x_1); +lean_closure_set(x_13, 2, x_2); +lean_closure_set(x_13, 3, x_3); +lean_closure_set(x_13, 4, x_12); +x_14 = lean_apply_4(x_8, lean_box(0), lean_box(0), x_10, x_13); +return x_14; +} +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; +lean_dec(x_3); +lean_dec(x_2); +x_15 = lean_ctor_get(x_1, 0); +lean_inc(x_15); +lean_dec(x_1); +x_16 = lean_ctor_get(x_15, 1); +lean_inc(x_16); +lean_dec(x_15); +x_17 = lean_apply_2(x_16, lean_box(0), x_6); +return x_17; +} +} +} +lean_object* l_Array_foldlMUnsafe_fold___at_Subarray_forM___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Array_foldlMUnsafe_fold___at_Subarray_forM___spec__1___rarg___boxed), 6, 0); +return x_3; +} +} +lean_object* l_Subarray_forM___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; +x_4 = lean_ctor_get(x_3, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_3, 1); +lean_inc(x_5); +x_6 = lean_ctor_get(x_3, 2); +lean_inc(x_6); +lean_dec(x_3); +x_7 = lean_nat_dec_lt(x_5, x_6); +if (x_7 == 0) +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +x_8 = lean_ctor_get(x_1, 0); +lean_inc(x_8); +lean_dec(x_1); +x_9 = lean_ctor_get(x_8, 1); +lean_inc(x_9); +lean_dec(x_8); +x_10 = lean_box(0); +x_11 = lean_apply_2(x_9, lean_box(0), x_10); +return x_11; +} +else +{ +lean_object* x_12; uint8_t x_13; +x_12 = lean_array_get_size(x_4); +x_13 = lean_nat_dec_le(x_6, x_12); +lean_dec(x_12); +if (x_13 == 0) +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +x_14 = lean_ctor_get(x_1, 0); +lean_inc(x_14); +lean_dec(x_1); +x_15 = lean_ctor_get(x_14, 1); +lean_inc(x_15); +lean_dec(x_14); +x_16 = lean_box(0); +x_17 = lean_apply_2(x_15, lean_box(0), x_16); +return x_17; +} +else +{ +size_t x_18; size_t x_19; lean_object* x_20; lean_object* x_21; +x_18 = lean_usize_of_nat(x_5); +lean_dec(x_5); +x_19 = lean_usize_of_nat(x_6); +lean_dec(x_6); +x_20 = lean_box(0); +x_21 = l_Array_foldlMUnsafe_fold___at_Subarray_forM___spec__1___rarg(x_1, x_2, x_4, x_18, x_19, x_20); +return x_21; +} +} +} +} +lean_object* l_Subarray_forM(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Subarray_forM___rarg), 3, 0); +return x_3; +} +} +lean_object* l_Array_foldlMUnsafe_fold___at_Subarray_forM___spec__1___rarg___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +size_t x_7; size_t x_8; lean_object* x_9; +x_7 = lean_unbox_usize(x_1); +lean_dec(x_1); +x_8 = lean_unbox_usize(x_5); +lean_dec(x_5); +x_9 = l_Array_foldlMUnsafe_fold___at_Subarray_forM___spec__1___rarg___lambda__1(x_7, x_2, x_3, x_4, x_8, x_6); +return x_9; +} +} +lean_object* l_Array_foldlMUnsafe_fold___at_Subarray_forM___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: +{ +size_t x_7; size_t x_8; lean_object* x_9; +x_7 = lean_unbox_usize(x_4); +lean_dec(x_4); +x_8 = lean_unbox_usize(x_5); +lean_dec(x_5); +x_9 = l_Array_foldlMUnsafe_fold___at_Subarray_forM___spec__1___rarg(x_1, x_2, x_3, x_7, x_8, x_6); +return x_9; +} +} +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, size_t x_4, size_t x_5, lean_object* x_6) { +_start: +{ +uint8_t x_7; +x_7 = x_4 == x_5; +if (x_7 == 0) +{ +lean_object* x_8; size_t x_9; size_t x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +lean_dec(x_6); +x_8 = lean_ctor_get(x_1, 1); +lean_inc(x_8); +x_9 = 1; +x_10 = x_4 - x_9; +x_11 = lean_array_uget(x_3, x_10); +lean_inc(x_2); +x_12 = lean_apply_1(x_2, x_11); +x_13 = lean_box_usize(x_10); +x_14 = lean_box_usize(x_5); +x_15 = lean_alloc_closure((void*)(l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__1___rarg___boxed), 6, 5); +lean_closure_set(x_15, 0, x_1); +lean_closure_set(x_15, 1, x_2); +lean_closure_set(x_15, 2, x_3); +lean_closure_set(x_15, 3, x_13); +lean_closure_set(x_15, 4, x_14); +x_16 = lean_apply_4(x_8, lean_box(0), lean_box(0), x_12, x_15); +return x_16; +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +lean_dec(x_3); +lean_dec(x_2); +x_17 = lean_ctor_get(x_1, 0); +lean_inc(x_17); +lean_dec(x_1); +x_18 = lean_ctor_get(x_17, 1); +lean_inc(x_18); +lean_dec(x_17); +x_19 = lean_apply_2(x_18, lean_box(0), x_6); +return x_19; +} +} +} +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__1___rarg___boxed), 6, 0); +return x_3; +} +} +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__2___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, size_t x_4, size_t x_5, lean_object* x_6) { +_start: +{ +uint8_t x_7; +x_7 = x_4 == x_5; +if (x_7 == 0) +{ +lean_object* x_8; size_t x_9; size_t x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +lean_dec(x_6); +x_8 = lean_ctor_get(x_1, 1); +lean_inc(x_8); +x_9 = 1; +x_10 = x_4 - x_9; +x_11 = lean_array_uget(x_3, x_10); +lean_inc(x_2); +x_12 = lean_apply_1(x_2, x_11); +x_13 = lean_box_usize(x_10); +x_14 = lean_box_usize(x_5); +x_15 = lean_alloc_closure((void*)(l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__2___rarg___boxed), 6, 5); +lean_closure_set(x_15, 0, x_1); +lean_closure_set(x_15, 1, x_2); +lean_closure_set(x_15, 2, x_3); +lean_closure_set(x_15, 3, x_13); +lean_closure_set(x_15, 4, x_14); +x_16 = lean_apply_4(x_8, lean_box(0), lean_box(0), x_12, x_15); +return x_16; +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +lean_dec(x_3); +lean_dec(x_2); +x_17 = lean_ctor_get(x_1, 0); +lean_inc(x_17); +lean_dec(x_1); +x_18 = lean_ctor_get(x_17, 1); +lean_inc(x_18); +lean_dec(x_17); +x_19 = lean_apply_2(x_18, lean_box(0), x_6); +return x_19; +} +} +} +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__2(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__2___rarg___boxed), 6, 0); +return x_3; +} +} +lean_object* l_Subarray_forRevM___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; lean_object* x_7; uint8_t x_8; +x_4 = lean_ctor_get(x_3, 0); +lean_inc(x_4); +x_5 = lean_ctor_get(x_3, 2); +lean_inc(x_5); +x_6 = lean_ctor_get(x_3, 1); +lean_inc(x_6); +lean_dec(x_3); +x_7 = lean_array_get_size(x_4); +x_8 = lean_nat_dec_le(x_5, x_7); +if (x_8 == 0) +{ +uint8_t x_9; +lean_dec(x_5); +x_9 = lean_nat_dec_lt(x_6, x_7); +if (x_9 == 0) +{ +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_2); +x_10 = lean_ctor_get(x_1, 0); +lean_inc(x_10); +lean_dec(x_1); +x_11 = lean_ctor_get(x_10, 1); +lean_inc(x_11); +lean_dec(x_10); +x_12 = lean_box(0); +x_13 = lean_apply_2(x_11, lean_box(0), x_12); +return x_13; +} +else +{ +size_t x_14; size_t x_15; lean_object* x_16; lean_object* x_17; +x_14 = lean_usize_of_nat(x_7); +lean_dec(x_7); +x_15 = lean_usize_of_nat(x_6); +lean_dec(x_6); +x_16 = lean_box(0); +x_17 = l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__1___rarg(x_1, x_2, x_4, x_14, x_15, x_16); +return x_17; +} +} +else +{ +uint8_t x_18; +lean_dec(x_7); +x_18 = lean_nat_dec_lt(x_6, x_5); +if (x_18 == 0) +{ +lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_2); +x_19 = lean_ctor_get(x_1, 0); +lean_inc(x_19); +lean_dec(x_1); +x_20 = lean_ctor_get(x_19, 1); +lean_inc(x_20); +lean_dec(x_19); +x_21 = lean_box(0); +x_22 = lean_apply_2(x_20, lean_box(0), x_21); +return x_22; +} +else +{ +size_t x_23; size_t x_24; lean_object* x_25; lean_object* x_26; +x_23 = lean_usize_of_nat(x_5); +lean_dec(x_5); +x_24 = lean_usize_of_nat(x_6); +lean_dec(x_6); +x_25 = lean_box(0); +x_26 = l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__2___rarg(x_1, x_2, x_4, x_23, x_24, x_25); +return x_26; +} +} +} +} +lean_object* l_Subarray_forRevM(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Subarray_forRevM___rarg), 3, 0); +return x_3; +} +} +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___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: +{ +size_t x_7; size_t x_8; lean_object* x_9; +x_7 = lean_unbox_usize(x_4); +lean_dec(x_4); +x_8 = lean_unbox_usize(x_5); +lean_dec(x_5); +x_9 = l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__1___rarg(x_1, x_2, x_3, x_7, x_8, x_6); +return x_9; +} +} +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__2___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: +{ +size_t x_7; size_t x_8; lean_object* x_9; +x_7 = lean_unbox_usize(x_4); +lean_dec(x_4); +x_8 = lean_unbox_usize(x_5); +lean_dec(x_5); +x_9 = l_Array_foldrMUnsafe_fold___at_Subarray_forRevM___spec__2___rarg(x_1, x_2, x_3, x_7, x_8, x_6); +return x_9; +} +} +lean_object* l_Array_foldlMUnsafe_fold___at_Subarray_foldl___spec__1___rarg(lean_object* x_1, lean_object* x_2, size_t x_3, size_t x_4, lean_object* x_5) { +_start: +{ +uint8_t x_6; +x_6 = x_3 == x_4; +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; size_t x_9; size_t x_10; +x_7 = lean_array_uget(x_2, x_3); +lean_inc(x_1); +x_8 = lean_apply_2(x_1, x_5, x_7); +x_9 = 1; +x_10 = x_3 + x_9; +x_3 = x_10; +x_5 = x_8; +goto _start; +} +else +{ +lean_dec(x_1); +return x_5; +} +} +} +lean_object* l_Array_foldlMUnsafe_fold___at_Subarray_foldl___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Array_foldlMUnsafe_fold___at_Subarray_foldl___spec__1___rarg___boxed), 5, 0); +return x_3; +} +} +lean_object* l_Subarray_foldl___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; +x_4 = lean_ctor_get(x_3, 0); +x_5 = lean_ctor_get(x_3, 1); +x_6 = lean_ctor_get(x_3, 2); +x_7 = lean_nat_dec_lt(x_5, x_6); +if (x_7 == 0) +{ +lean_dec(x_1); +return x_2; +} +else +{ +lean_object* x_8; uint8_t x_9; +x_8 = lean_array_get_size(x_4); +x_9 = lean_nat_dec_le(x_6, x_8); +lean_dec(x_8); +if (x_9 == 0) +{ +lean_dec(x_1); +return x_2; +} +else +{ +size_t x_10; size_t x_11; lean_object* x_12; +x_10 = lean_usize_of_nat(x_5); +x_11 = lean_usize_of_nat(x_6); +x_12 = l_Array_foldlMUnsafe_fold___at_Subarray_foldl___spec__1___rarg(x_1, x_4, x_10, x_11, x_2); +return x_12; +} +} +} +} +lean_object* l_Subarray_foldl(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Subarray_foldl___rarg___boxed), 3, 0); +return x_3; +} +} +lean_object* l_Array_foldlMUnsafe_fold___at_Subarray_foldl___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +size_t x_6; size_t x_7; lean_object* x_8; +x_6 = lean_unbox_usize(x_3); +lean_dec(x_3); +x_7 = lean_unbox_usize(x_4); +lean_dec(x_4); +x_8 = l_Array_foldlMUnsafe_fold___at_Subarray_foldl___spec__1___rarg(x_1, x_2, x_6, x_7, x_5); +lean_dec(x_2); +return x_8; +} +} +lean_object* l_Subarray_foldl___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Subarray_foldl___rarg(x_1, x_2, x_3); +lean_dec(x_3); +return x_4; +} +} +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__1___rarg(lean_object* x_1, lean_object* x_2, size_t x_3, size_t x_4, lean_object* x_5) { +_start: +{ +uint8_t x_6; +x_6 = x_3 == x_4; +if (x_6 == 0) +{ +size_t x_7; size_t x_8; lean_object* x_9; lean_object* x_10; +x_7 = 1; +x_8 = x_3 - x_7; +x_9 = lean_array_uget(x_2, x_8); +lean_inc(x_1); +x_10 = lean_apply_2(x_1, x_9, x_5); +x_3 = x_8; +x_5 = x_10; +goto _start; +} +else +{ +lean_dec(x_1); +return x_5; +} +} +} +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__1___rarg___boxed), 5, 0); +return x_3; +} +} +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__2___rarg(lean_object* x_1, lean_object* x_2, size_t x_3, size_t x_4, lean_object* x_5) { +_start: +{ +uint8_t x_6; +x_6 = x_3 == x_4; +if (x_6 == 0) +{ +size_t x_7; size_t x_8; lean_object* x_9; lean_object* x_10; +x_7 = 1; +x_8 = x_3 - x_7; +x_9 = lean_array_uget(x_2, x_8); +lean_inc(x_1); +x_10 = lean_apply_2(x_1, x_9, x_5); +x_3 = x_8; +x_5 = x_10; +goto _start; +} +else +{ +lean_dec(x_1); +return x_5; +} +} +} +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__2(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__2___rarg___boxed), 5, 0); +return x_3; +} +} +lean_object* l_Subarray_foldr___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; lean_object* x_7; uint8_t x_8; +x_4 = lean_ctor_get(x_3, 0); +x_5 = lean_ctor_get(x_3, 2); +x_6 = lean_ctor_get(x_3, 1); +x_7 = lean_array_get_size(x_4); +x_8 = lean_nat_dec_le(x_5, x_7); +if (x_8 == 0) +{ +uint8_t x_9; +x_9 = lean_nat_dec_lt(x_6, x_7); +if (x_9 == 0) +{ +lean_dec(x_7); +lean_dec(x_1); +return x_2; +} +else +{ +size_t x_10; size_t x_11; lean_object* x_12; +x_10 = lean_usize_of_nat(x_7); +lean_dec(x_7); +x_11 = lean_usize_of_nat(x_6); +x_12 = l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__1___rarg(x_1, x_4, x_10, x_11, x_2); +return x_12; +} +} +else +{ +uint8_t x_13; +lean_dec(x_7); +x_13 = lean_nat_dec_lt(x_6, x_5); +if (x_13 == 0) +{ +lean_dec(x_1); +return x_2; +} +else +{ +size_t x_14; size_t x_15; lean_object* x_16; +x_14 = lean_usize_of_nat(x_5); +x_15 = lean_usize_of_nat(x_6); +x_16 = l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__2___rarg(x_1, x_4, x_14, x_15, x_2); +return x_16; +} +} +} +} +lean_object* l_Subarray_foldr(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = lean_alloc_closure((void*)(l_Subarray_foldr___rarg___boxed), 3, 0); +return x_3; +} +} +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +size_t x_6; size_t x_7; lean_object* x_8; +x_6 = lean_unbox_usize(x_3); +lean_dec(x_3); +x_7 = lean_unbox_usize(x_4); +lean_dec(x_4); +x_8 = l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__1___rarg(x_1, x_2, x_6, x_7, x_5); +lean_dec(x_2); +return x_8; +} +} +lean_object* l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__2___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +size_t x_6; size_t x_7; lean_object* x_8; +x_6 = lean_unbox_usize(x_3); +lean_dec(x_3); +x_7 = lean_unbox_usize(x_4); +lean_dec(x_4); +x_8 = l_Array_foldrMUnsafe_fold___at_Subarray_foldr___spec__2___rarg(x_1, x_2, x_6, x_7, x_5); +lean_dec(x_2); +return x_8; +} +} +lean_object* l_Subarray_foldr___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Subarray_foldr___rarg(x_1, x_2, x_3); +lean_dec(x_3); +return x_4; +} +} +uint8_t l_Array_anyMUnsafe_any___at_Subarray_any___spec__1___rarg(lean_object* x_1, lean_object* x_2, size_t x_3, size_t x_4) { +_start: +{ +uint8_t x_5; +x_5 = x_3 == x_4; +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; uint8_t x_8; +x_6 = lean_array_uget(x_2, x_3); +lean_inc(x_1); +x_7 = lean_apply_1(x_1, x_6); +x_8 = lean_unbox(x_7); +lean_dec(x_7); +if (x_8 == 0) +{ +size_t x_9; size_t x_10; +x_9 = 1; +x_10 = x_3 + x_9; +x_3 = x_10; +goto _start; +} +else +{ +uint8_t x_12; +lean_dec(x_1); +x_12 = 1; +return x_12; +} +} +else +{ +uint8_t x_13; +lean_dec(x_1); +x_13 = 0; +return x_13; +} +} +} +lean_object* l_Array_anyMUnsafe_any___at_Subarray_any___spec__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Array_anyMUnsafe_any___at_Subarray_any___spec__1___rarg___boxed), 4, 0); +return x_2; +} +} +uint8_t l_Subarray_any___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; uint8_t x_6; +x_3 = lean_ctor_get(x_2, 0); +x_4 = lean_ctor_get(x_2, 1); +x_5 = lean_ctor_get(x_2, 2); +x_6 = lean_nat_dec_lt(x_4, x_5); +if (x_6 == 0) +{ +uint8_t x_7; +lean_dec(x_1); +x_7 = 0; +return x_7; +} +else +{ +lean_object* x_8; uint8_t x_9; +x_8 = lean_array_get_size(x_3); +x_9 = lean_nat_dec_le(x_5, x_8); +lean_dec(x_8); +if (x_9 == 0) +{ +uint8_t x_10; +lean_dec(x_1); +x_10 = 0; +return x_10; +} +else +{ +size_t x_11; size_t x_12; uint8_t x_13; +x_11 = lean_usize_of_nat(x_4); +x_12 = lean_usize_of_nat(x_5); +x_13 = l_Array_anyMUnsafe_any___at_Subarray_any___spec__1___rarg(x_1, x_3, x_11, x_12); +return x_13; +} +} +} +} +lean_object* l_Subarray_any(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Subarray_any___rarg___boxed), 2, 0); +return x_2; +} +} +lean_object* l_Array_anyMUnsafe_any___at_Subarray_any___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +size_t x_5; size_t x_6; uint8_t x_7; lean_object* x_8; +x_5 = lean_unbox_usize(x_3); +lean_dec(x_3); +x_6 = lean_unbox_usize(x_4); +lean_dec(x_4); +x_7 = l_Array_anyMUnsafe_any___at_Subarray_any___spec__1___rarg(x_1, x_2, x_5, x_6); +lean_dec(x_2); +x_8 = lean_box(x_7); +return x_8; +} +} +lean_object* l_Subarray_any___rarg___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Subarray_any___rarg(x_1, x_2); +lean_dec(x_2); +x_4 = lean_box(x_3); +return x_4; +} +} +uint8_t l_Array_anyMUnsafe_any___at_Subarray_all___spec__1___rarg(lean_object* x_1, lean_object* x_2, size_t x_3, size_t x_4) { +_start: +{ +uint8_t x_5; +x_5 = x_3 == x_4; +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; uint8_t x_8; +x_6 = lean_array_uget(x_2, x_3); +lean_inc(x_1); +x_7 = lean_apply_1(x_1, x_6); +x_8 = lean_unbox(x_7); +lean_dec(x_7); +if (x_8 == 0) +{ +uint8_t x_9; +lean_dec(x_1); +x_9 = 1; +return x_9; +} +else +{ +size_t x_10; size_t x_11; +x_10 = 1; +x_11 = x_3 + x_10; +x_3 = x_11; +goto _start; +} +} +else +{ +uint8_t x_13; +lean_dec(x_1); +x_13 = 0; +return x_13; +} +} +} +lean_object* l_Array_anyMUnsafe_any___at_Subarray_all___spec__1(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Array_anyMUnsafe_any___at_Subarray_all___spec__1___rarg___boxed), 4, 0); +return x_2; +} +} +uint8_t l_Subarray_all___rarg(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; uint8_t x_6; +x_3 = lean_ctor_get(x_2, 0); +x_4 = lean_array_get_size(x_3); +x_5 = lean_unsigned_to_nat(0u); +x_6 = lean_nat_dec_lt(x_5, x_4); +if (x_6 == 0) +{ +uint8_t x_7; +lean_dec(x_4); +lean_dec(x_1); +x_7 = 1; +return x_7; +} +else +{ +uint8_t x_8; +x_8 = lean_nat_dec_le(x_4, x_4); +if (x_8 == 0) +{ +uint8_t x_9; +lean_dec(x_4); +lean_dec(x_1); +x_9 = 1; +return x_9; +} +else +{ +size_t x_10; size_t x_11; uint8_t x_12; +x_10 = 0; +x_11 = lean_usize_of_nat(x_4); +lean_dec(x_4); +x_12 = l_Array_anyMUnsafe_any___at_Subarray_all___spec__1___rarg(x_1, x_3, x_10, x_11); +if (x_12 == 0) +{ +uint8_t x_13; +x_13 = 1; +return x_13; +} +else +{ +uint8_t x_14; +x_14 = 0; +return x_14; +} +} +} +} +} +lean_object* l_Subarray_all(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Subarray_all___rarg___boxed), 2, 0); +return x_2; +} +} +lean_object* l_Array_anyMUnsafe_any___at_Subarray_all___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +size_t x_5; size_t x_6; uint8_t x_7; lean_object* x_8; +x_5 = lean_unbox_usize(x_3); +lean_dec(x_3); +x_6 = lean_unbox_usize(x_4); +lean_dec(x_4); +x_7 = l_Array_anyMUnsafe_any___at_Subarray_all___spec__1___rarg(x_1, x_2, x_5, x_6); +lean_dec(x_2); +x_8 = lean_box(x_7); +return x_8; +} +} +lean_object* l_Subarray_all___rarg___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Subarray_all___rarg(x_1, x_2); +lean_dec(x_2); +x_4 = lean_box(x_3); +return x_4; +} +} lean_object* l_Array_toSubarray___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { diff --git a/stage0/stdlib/Lean/Elab/BuiltinNotation.c b/stage0/stdlib/Lean/Elab/BuiltinNotation.c index 96a9910522..942b299614 100644 --- a/stage0/stdlib/Lean/Elab/BuiltinNotation.c +++ b/stage0/stdlib/Lean/Elab/BuiltinNotation.c @@ -12396,6 +12396,7 @@ x_4 = lean_unsigned_to_nat(1u); x_5 = l_Lean_Syntax_getArg(x_1, x_4); x_6 = lean_unsigned_to_nat(3u); x_7 = l_Lean_Syntax_getArg(x_1, x_6); +lean_inc(x_5); x_8 = l_Lean_Syntax_reprint(x_5); if (lean_obj_tag(x_8) == 0) { diff --git a/stage0/stdlib/Lean/Elab/Util.c b/stage0/stdlib/Lean/Elab/Util.c index b386a928d8..90949def5e 100644 --- a/stage0/stdlib/Lean/Elab/Util.c +++ b/stage0/stdlib/Lean/Elab/Util.c @@ -235,7 +235,6 @@ lean_object* x_2; lean_object* x_3; lean_inc(x_1); x_2 = l_Lean_Syntax_unsetTrailing(x_1); x_3 = l_Lean_Syntax_reprint(x_2); -lean_dec(x_2); if (lean_obj_tag(x_3) == 0) { lean_object* x_4; uint8_t x_5; lean_object* x_6; lean_object* x_7; diff --git a/stage0/stdlib/Lean/Meta/ExprDefEq.c b/stage0/stdlib/Lean/Meta/ExprDefEq.c index 77ace7676b..fb03d77330 100644 --- a/stage0/stdlib/Lean/Meta/ExprDefEq.c +++ b/stage0/stdlib/Lean/Meta/ExprDefEq.c @@ -116,6 +116,7 @@ uint8_t l_Lean_Expr_isAppOf(lean_object*, lean_object*); lean_object* l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_isDelayedAssignedHead(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_CheckAssignment_check___closed__5; lean_object* l_Lean_Meta_CheckAssignment_check_match__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_toSubarray___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_reduceNat_x3f(lean_object*, 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*); @@ -317,7 +318,6 @@ lean_object* l_Lean_Meta_CheckAssignmentQuick_check_visit_match__3___rarg(lean_o lean_object* l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_isDefEqArgsFirstPass_loop___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_commitWhen___at___private_Lean_Meta_ExprDefEq_0__Lean_Meta_tryHeuristic___spec__1___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7490____closed__1; extern lean_object* l_Lean_Expr_updateProj_x21___closed__3; lean_object* l_Lean_Meta_inferType___at_Lean_Meta_CheckAssignment_check___spec__9(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_simpAssignmentArg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -371,6 +371,7 @@ lean_object* lean_expr_update_proj(lean_object*, lean_object*); lean_object* l_Lean_Meta_CheckAssignment_checkMVar___closed__1; lean_object* l_Lean_registerInternalExceptionId(lean_object*, lean_object*); uint8_t l_Array_contains___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7493____closed__1; lean_object* l_Lean_addMessageContextFull___at_Lean_Meta_Lean_Meta_Basic___instance__10___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isDefEqNat_match__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyMUnsafe_any___at_Lean_Meta_CheckAssignment_check___spec__10(lean_object*, size_t, size_t); @@ -468,8 +469,8 @@ lean_object* l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_isSynthetic_match__1(l lean_object* l_Lean_Meta_CheckAssignment_checkMVar_match__2(lean_object*); uint8_t l_Lean_Expr_isFVar(lean_object*); lean_object* l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_isAssigned_match__1(lean_object*); -lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7499_(lean_object*); -lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7490_(lean_object*); +lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7502_(lean_object*); +lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7493_(lean_object*); lean_object* l_Std_HashMapImp_insert___at___private_Lean_Meta_ExprDefEq_0__Lean_Meta_CheckAssignment_cache___spec__1(lean_object*, lean_object*, lean_object*); lean_object* lean_expr_update_lambda(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Meta_CheckAssignment_throwCheckAssignmentFailure___rarg___closed__1; @@ -36430,51 +36431,69 @@ lean_inc(x_171); x_173 = lean_array_fset(x_4, x_3, x_171); if (lean_obj_tag(x_171) == 1) { -lean_object* x_174; lean_object* x_175; lean_object* x_200; uint8_t x_201; +lean_object* x_174; lean_object* x_175; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; uint8_t x_205; x_174 = lean_ctor_get(x_171, 0); lean_inc(x_174); x_200 = lean_unsigned_to_nat(0u); -x_201 = lean_nat_dec_lt(x_200, x_3); -if (x_201 == 0) +lean_inc(x_3); +lean_inc(x_173); +x_201 = l_Array_toSubarray___rarg(x_173, x_200, x_3); +x_202 = lean_ctor_get(x_201, 0); +lean_inc(x_202); +x_203 = lean_ctor_get(x_201, 1); +lean_inc(x_203); +x_204 = lean_ctor_get(x_201, 2); +lean_inc(x_204); +lean_dec(x_201); +x_205 = lean_nat_dec_lt(x_203, x_204); +if (x_205 == 0) { -lean_object* x_202; -lean_dec(x_171); -x_202 = lean_box(0); -x_175 = x_202; -goto block_199; -} -else -{ -lean_object* x_203; uint8_t x_204; -x_203 = lean_array_get_size(x_173); -x_204 = lean_nat_dec_le(x_3, x_203); -if (x_204 == 0) -{ -lean_object* x_205; +lean_object* x_206; +lean_dec(x_204); lean_dec(x_203); +lean_dec(x_202); lean_dec(x_171); -x_205 = lean_box(0); -x_175 = x_205; +x_206 = lean_box(0); +x_175 = x_206; goto block_199; } else { -size_t x_206; size_t x_207; uint8_t x_208; -x_206 = 0; -x_207 = lean_usize_of_nat(x_3); -x_208 = l_Array_anyMUnsafe_any___at___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processAssignment_process___spec__2(x_171, x_173, x_206, x_207); -lean_dec(x_171); +lean_object* x_207; uint8_t x_208; +x_207 = lean_array_get_size(x_202); +x_208 = lean_nat_dec_le(x_204, x_207); +lean_dec(x_207); if (x_208 == 0) { lean_object* x_209; +lean_dec(x_204); lean_dec(x_203); +lean_dec(x_202); +lean_dec(x_171); x_209 = lean_box(0); x_175 = x_209; goto block_199; } else { -lean_object* x_210; +size_t x_210; size_t x_211; uint8_t x_212; +x_210 = lean_usize_of_nat(x_203); +lean_dec(x_203); +x_211 = lean_usize_of_nat(x_204); +lean_dec(x_204); +x_212 = l_Array_anyMUnsafe_any___at___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processAssignment_process___spec__2(x_171, x_202, x_210, x_211); +lean_dec(x_202); +lean_dec(x_171); +if (x_212 == 0) +{ +lean_object* x_213; +x_213 = lean_box(0); +x_175 = x_213; +goto block_199; +} +else +{ +lean_object* x_214; lean_dec(x_174); lean_dec(x_12); lean_dec(x_3); @@ -36485,82 +36504,83 @@ lean_inc(x_7); lean_inc(x_6); lean_inc(x_5); lean_inc(x_1); -x_210 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processAssignmentFOApprox_loop(x_1, x_173, x_5, x_6, x_7, x_8, x_9, x_172); +x_214 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processAssignmentFOApprox_loop(x_1, x_173, x_5, x_6, x_7, x_8, x_9, x_172); +if (lean_obj_tag(x_214) == 0) +{ +lean_object* x_215; uint8_t x_216; +x_215 = lean_ctor_get(x_214, 0); +lean_inc(x_215); +x_216 = lean_unbox(x_215); +if (x_216 == 0) +{ +lean_object* x_217; lean_object* x_218; lean_object* x_219; +lean_dec(x_215); +x_217 = lean_ctor_get(x_214, 1); +lean_inc(x_217); +lean_dec(x_214); +x_218 = lean_array_get_size(x_173); lean_dec(x_173); -if (lean_obj_tag(x_210) == 0) +x_219 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processConstApprox(x_1, x_218, x_5, x_6, x_7, x_8, x_9, x_217); +return x_219; +} +else { -lean_object* x_211; uint8_t x_212; -x_211 = lean_ctor_get(x_210, 0); -lean_inc(x_211); -x_212 = lean_unbox(x_211); -if (x_212 == 0) +uint8_t x_220; +lean_dec(x_173); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_1); +x_220 = !lean_is_exclusive(x_214); +if (x_220 == 0) { -lean_object* x_213; lean_object* x_214; -lean_dec(x_211); -x_213 = lean_ctor_get(x_210, 1); -lean_inc(x_213); -lean_dec(x_210); -x_214 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processConstApprox(x_1, x_203, x_5, x_6, x_7, x_8, x_9, x_213); +lean_object* x_221; +x_221 = lean_ctor_get(x_214, 0); +lean_dec(x_221); return x_214; } else { -uint8_t x_215; -lean_dec(x_203); +lean_object* x_222; lean_object* x_223; +x_222 = lean_ctor_get(x_214, 1); +lean_inc(x_222); +lean_dec(x_214); +x_223 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_223, 0, x_215); +lean_ctor_set(x_223, 1, x_222); +return x_223; +} +} +} +else +{ +uint8_t x_224; +lean_dec(x_173); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); lean_dec(x_1); -x_215 = !lean_is_exclusive(x_210); -if (x_215 == 0) +x_224 = !lean_is_exclusive(x_214); +if (x_224 == 0) { -lean_object* x_216; -x_216 = lean_ctor_get(x_210, 0); -lean_dec(x_216); -return x_210; +return x_214; } else { -lean_object* x_217; lean_object* x_218; -x_217 = lean_ctor_get(x_210, 1); -lean_inc(x_217); -lean_dec(x_210); -x_218 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_218, 0, x_211); -lean_ctor_set(x_218, 1, x_217); -return x_218; -} -} -} -else -{ -uint8_t x_219; -lean_dec(x_203); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_1); -x_219 = !lean_is_exclusive(x_210); -if (x_219 == 0) -{ -return x_210; -} -else -{ -lean_object* x_220; lean_object* x_221; lean_object* x_222; -x_220 = lean_ctor_get(x_210, 0); -x_221 = lean_ctor_get(x_210, 1); -lean_inc(x_221); -lean_inc(x_220); -lean_dec(x_210); -x_222 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_222, 0, x_220); -lean_ctor_set(x_222, 1, x_221); -return x_222; +lean_object* x_225; lean_object* x_226; lean_object* x_227; +x_225 = lean_ctor_get(x_214, 0); +x_226 = lean_ctor_get(x_214, 1); +lean_inc(x_226); +lean_inc(x_225); +lean_dec(x_214); +x_227 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_227, 0, x_225); +lean_ctor_set(x_227, 1, x_226); +return x_227; } } } @@ -36698,7 +36718,7 @@ goto _start; } else { -lean_object* x_223; +lean_object* x_228; lean_dec(x_171); lean_dec(x_12); lean_dec(x_3); @@ -36709,28 +36729,59 @@ lean_inc(x_7); lean_inc(x_6); lean_inc(x_5); lean_inc(x_1); -x_223 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processAssignmentFOApprox_loop(x_1, x_173, x_5, x_6, x_7, x_8, x_9, x_172); -if (lean_obj_tag(x_223) == 0) +x_228 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processAssignmentFOApprox_loop(x_1, x_173, x_5, x_6, x_7, x_8, x_9, x_172); +if (lean_obj_tag(x_228) == 0) { -lean_object* x_224; uint8_t x_225; -x_224 = lean_ctor_get(x_223, 0); -lean_inc(x_224); -x_225 = lean_unbox(x_224); -if (x_225 == 0) +lean_object* x_229; uint8_t x_230; +x_229 = lean_ctor_get(x_228, 0); +lean_inc(x_229); +x_230 = lean_unbox(x_229); +if (x_230 == 0) { -lean_object* x_226; lean_object* x_227; lean_object* x_228; -lean_dec(x_224); -x_226 = lean_ctor_get(x_223, 1); -lean_inc(x_226); -lean_dec(x_223); -x_227 = lean_array_get_size(x_173); +lean_object* x_231; lean_object* x_232; lean_object* x_233; +lean_dec(x_229); +x_231 = lean_ctor_get(x_228, 1); +lean_inc(x_231); +lean_dec(x_228); +x_232 = lean_array_get_size(x_173); lean_dec(x_173); -x_228 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processConstApprox(x_1, x_227, x_5, x_6, x_7, x_8, x_9, x_226); +x_233 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processConstApprox(x_1, x_232, x_5, x_6, x_7, x_8, x_9, x_231); +return x_233; +} +else +{ +uint8_t x_234; +lean_dec(x_173); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_1); +x_234 = !lean_is_exclusive(x_228); +if (x_234 == 0) +{ +lean_object* x_235; +x_235 = lean_ctor_get(x_228, 0); +lean_dec(x_235); return x_228; } else { -uint8_t x_229; +lean_object* x_236; lean_object* x_237; +x_236 = lean_ctor_get(x_228, 1); +lean_inc(x_236); +lean_dec(x_228); +x_237 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_237, 0, x_229); +lean_ctor_set(x_237, 1, x_236); +return x_237; +} +} +} +else +{ +uint8_t x_238; lean_dec(x_173); lean_dec(x_9); lean_dec(x_8); @@ -36738,61 +36789,30 @@ lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); lean_dec(x_1); -x_229 = !lean_is_exclusive(x_223); -if (x_229 == 0) +x_238 = !lean_is_exclusive(x_228); +if (x_238 == 0) { -lean_object* x_230; -x_230 = lean_ctor_get(x_223, 0); -lean_dec(x_230); -return x_223; +return x_228; } else { -lean_object* x_231; lean_object* x_232; -x_231 = lean_ctor_get(x_223, 1); -lean_inc(x_231); -lean_dec(x_223); -x_232 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_232, 0, x_224); -lean_ctor_set(x_232, 1, x_231); -return x_232; -} -} -} -else -{ -uint8_t x_233; -lean_dec(x_173); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_1); -x_233 = !lean_is_exclusive(x_223); -if (x_233 == 0) -{ -return x_223; -} -else -{ -lean_object* x_234; lean_object* x_235; lean_object* x_236; -x_234 = lean_ctor_get(x_223, 0); -x_235 = lean_ctor_get(x_223, 1); -lean_inc(x_235); -lean_inc(x_234); -lean_dec(x_223); -x_236 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_236, 0, x_234); -lean_ctor_set(x_236, 1, x_235); -return x_236; +lean_object* x_239; lean_object* x_240; lean_object* x_241; +x_239 = lean_ctor_get(x_228, 0); +x_240 = lean_ctor_get(x_228, 1); +lean_inc(x_240); +lean_inc(x_239); +lean_dec(x_228); +x_241 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_241, 0, x_239); +lean_ctor_set(x_241, 1, x_240); +return x_241; } } } } else { -uint8_t x_237; +uint8_t x_242; lean_dec(x_12); lean_dec(x_9); lean_dec(x_8); @@ -36803,23 +36823,23 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_237 = !lean_is_exclusive(x_170); -if (x_237 == 0) +x_242 = !lean_is_exclusive(x_170); +if (x_242 == 0) { return x_170; } else { -lean_object* x_238; lean_object* x_239; lean_object* x_240; -x_238 = lean_ctor_get(x_170, 0); -x_239 = lean_ctor_get(x_170, 1); -lean_inc(x_239); -lean_inc(x_238); +lean_object* x_243; lean_object* x_244; lean_object* x_245; +x_243 = lean_ctor_get(x_170, 0); +x_244 = lean_ctor_get(x_170, 1); +lean_inc(x_244); +lean_inc(x_243); lean_dec(x_170); -x_240 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_240, 0, x_238); -lean_ctor_set(x_240, 1, x_239); -return x_240; +x_245 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_245, 0, x_243); +lean_ctor_set(x_245, 1, x_244); +return x_245; } } } @@ -54141,7 +54161,7 @@ x_11 = l_Lean_Meta_commitWhen___at_Lean_Meta_isExprDefEqAuxImpl___spec__1(x_1, x return x_11; } } -static lean_object* _init_l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7490____closed__1() { +static lean_object* _init_l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7493____closed__1() { _start: { lean_object* x_1; @@ -54149,12 +54169,12 @@ x_1 = lean_alloc_closure((void*)(l_Lean_Meta_isExprDefEqAuxImpl), 7, 0); return x_1; } } -lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7490_(lean_object* x_1) { +lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7493_(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; lean_object* x_4; uint8_t x_5; x_2 = l_Lean_Meta_isExprDefEqAuxRef; -x_3 = l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7490____closed__1; +x_3 = l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7493____closed__1; x_4 = lean_st_ref_set(x_2, x_3, x_1); x_5 = !lean_is_exclusive(x_4); if (x_5 == 0) @@ -54176,7 +54196,7 @@ return x_8; } } } -lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7499_(lean_object* x_1) { +lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7502_(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; @@ -54555,12 +54575,12 @@ l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_isDefEqQuickOther___closed__5 = _in lean_mark_persistent(l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_isDefEqQuickOther___closed__5); l_Lean_Meta_isExprDefEqAuxImpl___closed__1 = _init_l_Lean_Meta_isExprDefEqAuxImpl___closed__1(); lean_mark_persistent(l_Lean_Meta_isExprDefEqAuxImpl___closed__1); -l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7490____closed__1 = _init_l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7490____closed__1(); -lean_mark_persistent(l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7490____closed__1); -res = l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7490_(lean_io_mk_world()); +l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7493____closed__1 = _init_l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7493____closed__1(); +lean_mark_persistent(l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7493____closed__1); +res = l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7493_(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7499_(lean_io_mk_world()); +res = l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7502_(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); return lean_io_result_mk_ok(lean_box(0)); diff --git a/stage0/stdlib/Lean/Meta/WHNF.c b/stage0/stdlib/Lean/Meta/WHNF.c index f9a0918791..816398af2f 100644 --- a/stage0/stdlib/Lean/Meta/WHNF.c +++ b/stage0/stdlib/Lean/Meta/WHNF.c @@ -87,6 +87,7 @@ lean_object* l_Lean_Meta_reduceNative_x3f___closed__5; lean_object* l___private_Lean_Meta_WHNF_0__Lean_Meta_whnfEasyCases___at_Lean_Meta_whnfImp___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_setWHNFRef___closed__1; lean_object* lean_expr_instantiate1(lean_object*, lean_object*); +lean_object* l_Array_toSubarray___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_reduceNat_x3f(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_get_size(lean_object*); lean_object* l_Lean_Meta_getConfig___at___private_Lean_Meta_WHNF_0__Lean_Meta_whnfCoreImp___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -121,7 +122,6 @@ lean_object* l___private_Lean_Meta_WHNF_0__Lean_Meta_cached_x3f_match__1___rarg_ lean_object* l_Lean_Meta_whnfImp_match__4(lean_object*); lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l___private_Lean_Meta_WHNF_0__Lean_Meta_cached_x3f_match__1___rarg(uint8_t, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Meta_WHNF_0__Lean_Meta_toCtorWhenK___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_toCtorIfLit_match__1(lean_object*); lean_object* l_Lean_Meta_reduceNatNative___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkAppN(lean_object*, lean_object*); @@ -236,7 +236,7 @@ lean_object* l_Lean_evalConstCheck___at_Lean_Meta_reduceBoolNativeUnsafe___spec_ lean_object* l___private_Lean_Meta_WHNF_0__Lean_Meta_matchConstAux_match__1___rarg(lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Meta_WHNF_0__Lean_Meta_reduceRec___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_isAuxDef_x3f(lean_object*); -lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_WHNF___hyg_4514_(lean_object*); +lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_WHNF___hyg_4521_(lean_object*); lean_object* l___private_Lean_Meta_WHNF_0__Lean_Meta_whnfEasyCases___closed__1; lean_object* l_Lean_RecursorVal_getInduct(lean_object*); lean_object* l_Lean_ConstantInfo_lparams(lean_object*); @@ -1697,6 +1697,7 @@ lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); +lean_dec(x_1); x_18 = lean_box(0); if (lean_is_scalar(x_14)) { x_19 = lean_alloc_ctor(0, 2, 0); @@ -1709,7 +1710,7 @@ return x_19; } else { -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; uint8_t x_89; lean_object* x_151; uint8_t x_152; +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; uint8_t x_89; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; uint8_t x_156; x_20 = l_Lean_Expr_hasExprMVar(x_12); x_21 = lean_unsigned_to_nat(0u); x_22 = l_Lean_Expr_getAppNumArgsAux(x_12, x_21); @@ -1722,49 +1723,64 @@ lean_dec(x_22); lean_inc(x_12); x_27 = l___private_Lean_Expr_0__Lean_Expr_getAppArgsAux(x_12, x_24, x_26); x_28 = lean_ctor_get(x_1, 2); +lean_inc(x_28); +lean_dec(x_1); x_151 = lean_array_get_size(x_27); -x_152 = lean_nat_dec_lt(x_28, x_151); -if (x_152 == 0) +lean_inc(x_28); +x_152 = l_Array_toSubarray___rarg(x_27, x_28, x_151); +x_153 = lean_ctor_get(x_152, 0); +lean_inc(x_153); +x_154 = lean_ctor_get(x_152, 1); +lean_inc(x_154); +x_155 = lean_ctor_get(x_152, 2); +lean_inc(x_155); +lean_dec(x_152); +x_156 = lean_nat_dec_lt(x_154, x_155); +if (x_156 == 0) { -lean_dec(x_151); -lean_dec(x_27); +lean_dec(x_155); +lean_dec(x_154); +lean_dec(x_153); if (x_20 == 0) { -lean_object* x_153; +lean_object* x_157; lean_dec(x_14); -x_153 = lean_box(0); -x_29 = x_153; +x_157 = lean_box(0); +x_29 = x_157; goto block_88; } else { -uint8_t x_154; -x_154 = 0; -x_89 = x_154; +uint8_t x_158; +x_158 = 0; +x_89 = x_158; goto block_150; } } else { -uint8_t x_155; -x_155 = lean_nat_dec_le(x_151, x_151); -if (x_155 == 0) +lean_object* x_159; uint8_t x_160; +x_159 = lean_array_get_size(x_153); +x_160 = lean_nat_dec_le(x_155, x_159); +lean_dec(x_159); +if (x_160 == 0) { -lean_dec(x_151); -lean_dec(x_27); +lean_dec(x_155); +lean_dec(x_154); +lean_dec(x_153); if (x_20 == 0) { -lean_object* x_156; +lean_object* x_161; lean_dec(x_14); -x_156 = lean_box(0); -x_29 = x_156; +x_161 = lean_box(0); +x_29 = x_161; goto block_88; } else { -uint8_t x_157; -x_157 = 0; -x_89 = x_157; +uint8_t x_162; +x_162 = 0; +x_89 = x_162; goto block_150; } } @@ -1772,23 +1788,25 @@ else { if (x_20 == 0) { -lean_object* x_158; -lean_dec(x_151); -lean_dec(x_27); +lean_object* x_163; +lean_dec(x_155); +lean_dec(x_154); +lean_dec(x_153); lean_dec(x_14); -x_158 = lean_box(0); -x_29 = x_158; +x_163 = lean_box(0); +x_29 = x_163; goto block_88; } else { -size_t x_159; size_t x_160; uint8_t x_161; -x_159 = lean_usize_of_nat(x_28); -x_160 = lean_usize_of_nat(x_151); -lean_dec(x_151); -x_161 = l_Array_anyMUnsafe_any___at___private_Lean_Meta_WHNF_0__Lean_Meta_toCtorWhenK___spec__1(x_27, x_159, x_160); -lean_dec(x_27); -x_89 = x_161; +size_t x_164; size_t x_165; uint8_t x_166; +x_164 = lean_usize_of_nat(x_154); +lean_dec(x_154); +x_165 = lean_usize_of_nat(x_155); +lean_dec(x_155); +x_166 = l_Array_anyMUnsafe_any___at___private_Lean_Meta_WHNF_0__Lean_Meta_toCtorWhenK___spec__1(x_153, x_164, x_165); +lean_dec(x_153); +x_89 = x_166; goto block_150; } } @@ -1799,6 +1817,7 @@ lean_object* x_30; lean_object* x_31; lean_dec(x_29); lean_inc(x_12); x_30 = l___private_Lean_Meta_WHNF_0__Lean_Meta_mkNullaryCtor(x_12, x_28, x_3, x_4, x_5, x_6, x_13); +lean_dec(x_28); x_31 = lean_ctor_get(x_30, 0); lean_inc(x_31); if (lean_obj_tag(x_31) == 0) @@ -2117,6 +2136,7 @@ lean_object* x_90; lean_object* x_91; lean_dec(x_14); lean_inc(x_12); x_90 = l___private_Lean_Meta_WHNF_0__Lean_Meta_mkNullaryCtor(x_12, x_28, x_3, x_4, x_5, x_6, x_13); +lean_dec(x_28); x_91 = lean_ctor_get(x_90, 0); lean_inc(x_91); if (lean_obj_tag(x_91) == 0) @@ -2430,6 +2450,7 @@ return x_147; else { lean_object* x_148; lean_object* x_149; +lean_dec(x_28); lean_dec(x_12); lean_dec(x_6); lean_dec(x_5); @@ -2450,55 +2471,57 @@ return x_149; } else { -uint8_t x_162; +uint8_t x_167; lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); -x_162 = !lean_is_exclusive(x_11); -if (x_162 == 0) +lean_dec(x_1); +x_167 = !lean_is_exclusive(x_11); +if (x_167 == 0) { return x_11; } else { -lean_object* x_163; lean_object* x_164; lean_object* x_165; -x_163 = lean_ctor_get(x_11, 0); -x_164 = lean_ctor_get(x_11, 1); -lean_inc(x_164); -lean_inc(x_163); +lean_object* x_168; lean_object* x_169; lean_object* x_170; +x_168 = lean_ctor_get(x_11, 0); +x_169 = lean_ctor_get(x_11, 1); +lean_inc(x_169); +lean_inc(x_168); lean_dec(x_11); -x_165 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_165, 0, x_163); -lean_ctor_set(x_165, 1, x_164); -return x_165; +x_170 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_170, 0, x_168); +lean_ctor_set(x_170, 1, x_169); +return x_170; } } } else { -uint8_t x_166; +uint8_t x_171; lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); -x_166 = !lean_is_exclusive(x_8); -if (x_166 == 0) +lean_dec(x_1); +x_171 = !lean_is_exclusive(x_8); +if (x_171 == 0) { return x_8; } else { -lean_object* x_167; lean_object* x_168; lean_object* x_169; -x_167 = lean_ctor_get(x_8, 0); -x_168 = lean_ctor_get(x_8, 1); -lean_inc(x_168); -lean_inc(x_167); +lean_object* x_172; lean_object* x_173; lean_object* x_174; +x_172 = lean_ctor_get(x_8, 0); +x_173 = lean_ctor_get(x_8, 1); +lean_inc(x_173); +lean_inc(x_172); lean_dec(x_8); -x_169 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_169, 0, x_167); -lean_ctor_set(x_169, 1, x_168); -return x_169; +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; } } } @@ -2517,15 +2540,6 @@ x_7 = lean_box(x_6); return x_7; } } -lean_object* l___private_Lean_Meta_WHNF_0__Lean_Meta_toCtorWhenK___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) { -_start: -{ -lean_object* x_8; -x_8 = l___private_Lean_Meta_WHNF_0__Lean_Meta_toCtorWhenK(x_1, x_2, x_3, x_4, x_5, x_6, x_7); -lean_dec(x_1); -return x_8; -} -} lean_object* l___private_Lean_Meta_WHNF_0__Lean_Meta_reduceRec_match__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -2848,6 +2862,7 @@ lean_inc(x_8); lean_inc(x_7); lean_inc(x_6); lean_inc(x_23); +lean_inc(x_1); x_25 = l___private_Lean_Meta_WHNF_0__Lean_Meta_toCtorWhenK(x_1, x_23, x_6, x_7, x_8, x_9, x_24); if (lean_obj_tag(x_25) == 0) { @@ -24324,7 +24339,7 @@ lean_dec(x_1); return x_8; } } -lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_WHNF___hyg_4514_(lean_object* x_1) { +lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_WHNF___hyg_4521_(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; @@ -24489,7 +24504,7 @@ lean_mark_persistent(l_Lean_Meta_setWHNFRef___closed__1); res = l_Lean_Meta_setWHNFRef(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = l_Lean_Meta_initFn____x40_Lean_Meta_WHNF___hyg_4514_(lean_io_mk_world()); +res = l_Lean_Meta_initFn____x40_Lean_Meta_WHNF___hyg_4521_(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); return lean_io_result_mk_ok(lean_box(0)); diff --git a/stage0/stdlib/Lean/PrettyPrinter/Formatter.c b/stage0/stdlib/Lean/PrettyPrinter/Formatter.c index 4cac244629..db91f59627 100644 --- a/stage0/stdlib/Lean/PrettyPrinter/Formatter.c +++ b/stage0/stdlib/Lean/PrettyPrinter/Formatter.c @@ -93,6 +93,7 @@ lean_object* l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___lambda__3 lean_object* l_ReaderT_lift___rarg___boxed(lean_object*, lean_object*); lean_object* l_Lean_throwError___at_Lean_PrettyPrinter_format___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_ReaderT_map___at_Lean_PrettyPrinter_Formatter_Lean_PrettyPrinter_Formatter___instance__2___spec__2(lean_object*, lean_object*); +lean_object* l_Array_toSubarray___rarg(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_Syntax_MonadTraverser_goLeft___at_Lean_PrettyPrinter_Formatter_visitArgs___spec__2___boxed(lean_object*); @@ -374,7 +375,7 @@ lean_object* l_StateRefT_x27_get___at_Lean_PrettyPrinter_Formatter_Lean_PrettyPr lean_object* l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___lambda__3___closed__1; lean_object* l_Lean_PrettyPrinter_Formatter_rawIdent_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Formatter_rawIdent_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Formatter___hyg_2091_(lean_object*); +lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Formatter___hyg_2094_(lean_object*); lean_object* l_Array_back___at_Lean_Syntax_Traverser_up___spec__1(lean_object*); extern lean_object* l_Lean_ParserCompiler_CombinatorAttribute_Lean_ParserCompiler_Attribute___instance__1___closed__1; lean_object* l_Lean_PrettyPrinter_Formatter_symbol_formatter___closed__1; @@ -3469,90 +3470,90 @@ return x_6; lean_object* l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___lambda__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { _start: { -lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_41; lean_object* x_42; lean_object* x_43; uint8_t x_44; +lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_49; lean_object* x_50; lean_object* x_51; uint8_t x_52; x_8 = l_Lean_PrettyPrinter_Formatter_getStackSize___rarg(x_4, x_5, x_6, x_7); 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); -x_41 = l_Lean_Syntax_getArgs(x_2); -x_42 = lean_array_get_size(x_41); -x_43 = lean_unsigned_to_nat(0u); -x_44 = lean_nat_dec_lt(x_43, x_42); -if (x_44 == 0) +x_49 = l_Lean_Syntax_getArgs(x_2); +x_50 = lean_array_get_size(x_49); +x_51 = lean_unsigned_to_nat(0u); +x_52 = lean_nat_dec_lt(x_51, x_50); +if (x_52 == 0) { -lean_dec(x_42); -lean_dec(x_41); +lean_dec(x_50); +lean_dec(x_49); x_11 = x_10; -goto block_40; +goto block_48; } else { -uint8_t x_45; -x_45 = lean_nat_dec_le(x_42, x_42); -if (x_45 == 0) +uint8_t x_53; +x_53 = lean_nat_dec_le(x_50, x_50); +if (x_53 == 0) { -lean_dec(x_42); -lean_dec(x_41); +lean_dec(x_50); +lean_dec(x_49); x_11 = x_10; -goto block_40; +goto block_48; } else { -size_t x_46; size_t x_47; lean_object* x_48; lean_object* x_49; -x_46 = 0; -x_47 = lean_usize_of_nat(x_42); -lean_dec(x_42); -x_48 = lean_box(0); +size_t x_54; size_t x_55; lean_object* x_56; lean_object* x_57; +x_54 = 0; +x_55 = lean_usize_of_nat(x_50); +lean_dec(x_50); +x_56 = lean_box(0); lean_inc(x_6); lean_inc(x_5); lean_inc(x_4); lean_inc(x_3); -x_49 = l_Array_foldlMUnsafe_fold___at_Lean_PrettyPrinter_Formatter_categoryParser_formatter___spec__2(x_41, x_46, x_47, x_48, x_3, x_4, x_5, x_6, x_10); -lean_dec(x_41); -if (lean_obj_tag(x_49) == 0) -{ -lean_object* x_50; -x_50 = lean_ctor_get(x_49, 1); -lean_inc(x_50); +x_57 = l_Array_foldlMUnsafe_fold___at_Lean_PrettyPrinter_Formatter_categoryParser_formatter___spec__2(x_49, x_54, x_55, x_56, x_3, x_4, x_5, x_6, x_10); lean_dec(x_49); -x_11 = x_50; -goto block_40; +if (lean_obj_tag(x_57) == 0) +{ +lean_object* x_58; +x_58 = lean_ctor_get(x_57, 1); +lean_inc(x_58); +lean_dec(x_57); +x_11 = x_58; +goto block_48; } else { -uint8_t x_51; +uint8_t x_59; lean_dec(x_9); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); lean_dec(x_1); -x_51 = !lean_is_exclusive(x_49); -if (x_51 == 0) +x_59 = !lean_is_exclusive(x_57); +if (x_59 == 0) { -return x_49; +return x_57; } else { -lean_object* x_52; lean_object* x_53; lean_object* x_54; -x_52 = lean_ctor_get(x_49, 0); -x_53 = lean_ctor_get(x_49, 1); -lean_inc(x_53); -lean_inc(x_52); -lean_dec(x_49); -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; +lean_object* x_60; lean_object* x_61; lean_object* x_62; +x_60 = lean_ctor_get(x_57, 0); +x_61 = lean_ctor_get(x_57, 1); +lean_inc(x_61); +lean_inc(x_60); +lean_dec(x_57); +x_62 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_62, 0, x_60); +lean_ctor_set(x_62, 1, x_61); +return x_62; } } } } -block_40: +block_48: { -lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21; x_12 = l_Lean_PrettyPrinter_Formatter_getStack___rarg(x_4, x_5, x_6, x_11); x_13 = lean_ctor_get(x_12, 0); lean_inc(x_13); @@ -3561,115 +3562,153 @@ lean_inc(x_14); lean_dec(x_12); x_15 = lean_array_get_size(x_13); x_16 = lean_nat_dec_lt(x_9, x_15); +lean_inc(x_9); +lean_inc(x_13); +x_17 = l_Array_toSubarray___rarg(x_13, x_9, x_15); +x_18 = lean_ctor_get(x_17, 0); +lean_inc(x_18); +x_19 = lean_ctor_get(x_17, 1); +lean_inc(x_19); +x_20 = lean_ctor_get(x_17, 2); +lean_inc(x_20); +lean_dec(x_17); +x_21 = lean_nat_dec_lt(x_19, x_20); +if (x_21 == 0) +{ +lean_object* x_22; lean_object* x_23; +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_18); +lean_dec(x_1); +x_22 = lean_box(0); +x_23 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___lambda__1(x_9, x_13, x_22, x_3, x_4, x_5, x_6, x_14); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_9); +return x_23; +} +else +{ +lean_object* x_24; uint8_t x_25; +x_24 = lean_array_get_size(x_18); +x_25 = lean_nat_dec_le(x_20, x_24); +lean_dec(x_24); +if (x_25 == 0) +{ +lean_object* x_26; lean_object* x_27; +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_18); +lean_dec(x_1); +x_26 = lean_box(0); +x_27 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___lambda__1(x_9, x_13, x_26, x_3, x_4, x_5, x_6, x_14); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_9); +return x_27; +} +else +{ if (x_16 == 0) { -lean_object* x_17; lean_object* x_18; -lean_dec(x_15); +lean_object* x_28; lean_object* x_29; +lean_dec(x_20); +lean_dec(x_19); +lean_dec(x_18); lean_dec(x_1); -x_17 = lean_box(0); -x_18 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___lambda__1(x_9, x_13, x_17, x_3, x_4, x_5, x_6, x_14); +x_28 = lean_box(0); +x_29 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___lambda__1(x_9, x_13, x_28, x_3, x_4, x_5, x_6, x_14); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); lean_dec(x_9); -return x_18; +return x_29; } else { -uint8_t x_19; -x_19 = lean_nat_dec_le(x_15, x_15); -if (x_19 == 0) +size_t x_30; size_t x_31; uint8_t x_32; +x_30 = lean_usize_of_nat(x_19); +lean_dec(x_19); +x_31 = lean_usize_of_nat(x_20); +lean_dec(x_20); +x_32 = l_Array_anyMUnsafe_any___at_Lean_PrettyPrinter_Formatter_categoryParser_formatter___spec__1(x_9, x_13, x_18, x_30, x_31); +lean_dec(x_18); +if (x_32 == 0) { -lean_object* x_20; lean_object* x_21; -lean_dec(x_15); +lean_object* x_33; lean_object* x_34; lean_dec(x_1); -x_20 = lean_box(0); -x_21 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___lambda__1(x_9, x_13, x_20, x_3, x_4, x_5, x_6, x_14); +x_33 = lean_box(0); +x_34 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___lambda__1(x_9, x_13, x_33, x_3, x_4, x_5, x_6, x_14); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); lean_dec(x_9); -return x_21; +return x_34; } else { -size_t x_22; size_t x_23; uint8_t x_24; -x_22 = lean_usize_of_nat(x_9); -x_23 = lean_usize_of_nat(x_15); -lean_dec(x_15); -x_24 = l_Array_anyMUnsafe_any___at_Lean_PrettyPrinter_Formatter_categoryParser_formatter___spec__1(x_9, x_13, x_13, x_22, x_23); -if (x_24 == 0) -{ -lean_object* x_25; lean_object* x_26; -lean_dec(x_1); -x_25 = lean_box(0); -x_26 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___lambda__1(x_9, x_13, x_25, x_3, x_4, x_5, x_6, x_14); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_9); -return x_26; -} -else -{ -lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; -x_27 = l_Init_Core___instance__49; -x_28 = l_Init_Control_Monad___instance__2___rarg(x_1, x_27); -x_29 = lean_alloc_closure((void*)(l_Init_Control_Reader___instance__1___rarg___boxed), 2, 1); -lean_closure_set(x_29, 0, x_28); -x_30 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___lambda__2___closed__4; -x_31 = lean_panic_fn(x_29, x_30); +lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_35 = l_Init_Core___instance__49; +x_36 = l_Init_Control_Monad___instance__2___rarg(x_1, x_35); +x_37 = lean_alloc_closure((void*)(l_Init_Control_Reader___instance__1___rarg___boxed), 2, 1); +lean_closure_set(x_37, 0, x_36); +x_38 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___lambda__2___closed__4; +x_39 = lean_panic_fn(x_37, x_38); lean_inc(x_6); lean_inc(x_5); lean_inc(x_4); lean_inc(x_3); -x_32 = lean_apply_5(x_31, x_3, x_4, x_5, x_6, x_14); -if (lean_obj_tag(x_32) == 0) +x_40 = lean_apply_5(x_39, x_3, x_4, x_5, x_6, x_14); +if (lean_obj_tag(x_40) == 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); -x_35 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___lambda__1(x_9, x_13, x_33, x_3, x_4, x_5, x_6, x_34); +lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_41 = lean_ctor_get(x_40, 0); +lean_inc(x_41); +x_42 = lean_ctor_get(x_40, 1); +lean_inc(x_42); +lean_dec(x_40); +x_43 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter___lambda__1(x_9, x_13, x_41, x_3, x_4, x_5, x_6, x_42); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); -lean_dec(x_33); +lean_dec(x_41); lean_dec(x_9); -return x_35; +return x_43; } else { -uint8_t x_36; +uint8_t x_44; lean_dec(x_13); lean_dec(x_9); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); -x_36 = !lean_is_exclusive(x_32); -if (x_36 == 0) +x_44 = !lean_is_exclusive(x_40); +if (x_44 == 0) { -return x_32; +return x_40; } else { -lean_object* x_37; lean_object* x_38; lean_object* x_39; -x_37 = lean_ctor_get(x_32, 0); -x_38 = lean_ctor_get(x_32, 1); -lean_inc(x_38); -lean_inc(x_37); -lean_dec(x_32); -x_39 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_39, 0, x_37); -lean_ctor_set(x_39, 1, x_38); -return x_39; +lean_object* x_45; lean_object* x_46; lean_object* x_47; +x_45 = lean_ctor_get(x_40, 0); +x_46 = lean_ctor_get(x_40, 1); +lean_inc(x_46); +lean_inc(x_45); +lean_dec(x_40); +x_47 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_47, 0, x_45); +lean_ctor_set(x_47, 1, x_46); +return x_47; +} } } } @@ -8229,7 +8268,7 @@ x_6 = l_Lean_PrettyPrinter_format(x_5, x_1, x_2, x_3, x_4); return x_6; } } -lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Formatter___hyg_2091_(lean_object* x_1) { +lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Formatter___hyg_2094_(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; @@ -8429,7 +8468,7 @@ l_Lean_PrettyPrinter_formatTerm___closed__1 = _init_l_Lean_PrettyPrinter_formatT lean_mark_persistent(l_Lean_PrettyPrinter_formatTerm___closed__1); l_Lean_PrettyPrinter_formatCommand___closed__1 = _init_l_Lean_PrettyPrinter_formatCommand___closed__1(); lean_mark_persistent(l_Lean_PrettyPrinter_formatCommand___closed__1); -res = l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Formatter___hyg_2091_(lean_io_mk_world()); +res = l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Formatter___hyg_2094_(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); return lean_io_result_mk_ok(lean_box(0)); diff --git a/stage0/stdlib/Lean/Syntax.c b/stage0/stdlib/Lean/Syntax.c index 9a998b89b1..f535fa8a57 100644 --- a/stage0/stdlib/Lean/Syntax.c +++ b/stage0/stdlib/Lean/Syntax.c @@ -31,7 +31,6 @@ lean_object* l_Lean_Syntax_setTailInfoAux(lean_object*, lean_object*); lean_object* l_Lean_SyntaxNode_modifyArgs_match__1(lean_object*); lean_object* l_Lean_Syntax_isQuot_match__1___rarg___closed__1; lean_object* l___private_Lean_Syntax_0__Lean_Syntax_updateFirst_match__1(lean_object*, lean_object*); -lean_object* l_Lean_Syntax_reprint___boxed(lean_object*); lean_object* l_List_map___at_Lean_Syntax_formatStxAux___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_nullKind; lean_object* l_Lean_Syntax_reprint___closed__1; @@ -76,6 +75,7 @@ lean_object* l_Lean_Syntax_getAtomVal_x21___boxed(lean_object*); lean_object* l_Lean_Syntax_setAtomVal_match__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getAtomVal_x21___closed__1; lean_object* l_Lean_Syntax_formatStxAux___closed__8; +lean_object* l_Array_toSubarray___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_ifNodeKind(lean_object*); lean_object* lean_array_push(lean_object*, lean_object*); lean_object* lean_array_get_size(lean_object*); @@ -5311,7 +5311,6 @@ if (x_5 == 0) lean_object* x_6; lean_object* x_7; x_6 = lean_array_uget(x_1, x_2); x_7 = l_Lean_Syntax_reprint(x_6); -lean_dec(x_6); if (lean_obj_tag(x_7) == 0) { lean_object* x_8; @@ -5353,7 +5352,6 @@ if (x_5 == 0) lean_object* x_6; lean_object* x_7; x_6 = lean_array_uget(x_1, x_2); x_7 = l_Lean_Syntax_reprint(x_6); -lean_dec(x_6); if (lean_obj_tag(x_7) == 0) { lean_object* x_8; @@ -5419,9 +5417,13 @@ case 1: { lean_object* x_3; lean_object* x_4; lean_object* x_5; uint8_t 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 = l_Lean_choiceKind; x_6 = lean_name_eq(x_3, x_5); +lean_dec(x_3); if (x_6 == 0) { lean_object* x_7; lean_object* x_8; uint8_t x_9; @@ -5432,6 +5434,7 @@ if (x_9 == 0) { lean_object* x_10; lean_dec(x_7); +lean_dec(x_4); x_10 = l_Lean_Syntax_reprint___closed__1; return x_10; } @@ -5443,6 +5446,7 @@ if (x_11 == 0) { lean_object* x_12; lean_dec(x_7); +lean_dec(x_4); x_12 = l_Lean_Syntax_reprint___closed__1; return x_12; } @@ -5454,6 +5458,7 @@ x_14 = lean_usize_of_nat(x_7); lean_dec(x_7); x_15 = l_String_splitAux___closed__1; x_16 = l_Array_foldlMUnsafe_fold___at_Lean_Syntax_reprint___spec__1(x_4, x_13, x_14, x_15); +lean_dec(x_4); return x_16; } } @@ -5464,17 +5469,17 @@ lean_object* x_17; lean_object* x_18; uint8_t x_19; x_17 = lean_array_get_size(x_4); x_18 = lean_unsigned_to_nat(0u); x_19 = lean_nat_dec_eq(x_17, x_18); +lean_dec(x_17); if (x_19 == 0) { lean_object* x_20; lean_object* x_21; lean_object* x_22; x_20 = l_Lean_Init_LeanInit___instance__9; x_21 = lean_array_get(x_20, x_4, x_18); x_22 = l_Lean_Syntax_reprint(x_21); -lean_dec(x_21); if (lean_obj_tag(x_22) == 0) { lean_object* x_23; -lean_dec(x_17); +lean_dec(x_4); x_23 = lean_box(0); return x_23; } @@ -5484,72 +5489,106 @@ uint8_t x_24; x_24 = !lean_is_exclusive(x_22); if (x_24 == 0) { -lean_object* x_25; lean_object* x_26; uint8_t x_27; +lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; uint8_t x_32; x_25 = lean_ctor_get(x_22, 0); -x_26 = lean_unsigned_to_nat(1u); -x_27 = lean_nat_dec_lt(x_26, x_17); -if (x_27 == 0) +x_26 = lean_array_get_size(x_4); +x_27 = lean_unsigned_to_nat(1u); +x_28 = l_Array_toSubarray___rarg(x_4, x_27, x_26); +x_29 = lean_ctor_get(x_28, 0); +lean_inc(x_29); +x_30 = lean_ctor_get(x_28, 1); +lean_inc(x_30); +x_31 = lean_ctor_get(x_28, 2); +lean_inc(x_31); +lean_dec(x_28); +x_32 = lean_nat_dec_lt(x_30, x_31); +if (x_32 == 0) { -lean_dec(x_17); +lean_dec(x_31); +lean_dec(x_30); +lean_dec(x_29); return x_22; } else { -uint8_t x_28; -x_28 = lean_nat_dec_le(x_17, x_17); -if (x_28 == 0) -{ -lean_dec(x_17); -return x_22; -} -else -{ -size_t x_29; size_t x_30; lean_object* x_31; -lean_free_object(x_22); -x_29 = 1; -x_30 = lean_usize_of_nat(x_17); -lean_dec(x_17); -x_31 = l_Array_foldlMUnsafe_fold___at_Lean_Syntax_reprint___spec__2(x_4, x_29, x_30, x_25); -return x_31; -} -} -} -else -{ -lean_object* x_32; lean_object* x_33; uint8_t x_34; -x_32 = lean_ctor_get(x_22, 0); -lean_inc(x_32); -lean_dec(x_22); -x_33 = lean_unsigned_to_nat(1u); -x_34 = lean_nat_dec_lt(x_33, x_17); +lean_object* x_33; uint8_t x_34; +x_33 = lean_array_get_size(x_29); +x_34 = lean_nat_dec_le(x_31, x_33); +lean_dec(x_33); if (x_34 == 0) { -lean_object* x_35; -lean_dec(x_17); -x_35 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_35, 0, x_32); -return x_35; +lean_dec(x_31); +lean_dec(x_30); +lean_dec(x_29); +return x_22; } else { -uint8_t x_36; -x_36 = lean_nat_dec_le(x_17, x_17); -if (x_36 == 0) -{ -lean_object* x_37; -lean_dec(x_17); -x_37 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_37, 0, x_32); +size_t x_35; size_t x_36; lean_object* x_37; +lean_free_object(x_22); +x_35 = lean_usize_of_nat(x_30); +lean_dec(x_30); +x_36 = lean_usize_of_nat(x_31); +lean_dec(x_31); +x_37 = l_Array_foldlMUnsafe_fold___at_Lean_Syntax_reprint___spec__2(x_29, x_35, x_36, x_25); +lean_dec(x_29); return x_37; } +} +} else { -size_t x_38; size_t x_39; lean_object* x_40; -x_38 = 1; -x_39 = lean_usize_of_nat(x_17); -lean_dec(x_17); -x_40 = l_Array_foldlMUnsafe_fold___at_Lean_Syntax_reprint___spec__2(x_4, x_38, x_39, x_32); -return x_40; +lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; uint8_t x_45; +x_38 = lean_ctor_get(x_22, 0); +lean_inc(x_38); +lean_dec(x_22); +x_39 = lean_array_get_size(x_4); +x_40 = lean_unsigned_to_nat(1u); +x_41 = l_Array_toSubarray___rarg(x_4, x_40, x_39); +x_42 = lean_ctor_get(x_41, 0); +lean_inc(x_42); +x_43 = lean_ctor_get(x_41, 1); +lean_inc(x_43); +x_44 = lean_ctor_get(x_41, 2); +lean_inc(x_44); +lean_dec(x_41); +x_45 = lean_nat_dec_lt(x_43, x_44); +if (x_45 == 0) +{ +lean_object* x_46; +lean_dec(x_44); +lean_dec(x_43); +lean_dec(x_42); +x_46 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_46, 0, x_38); +return x_46; +} +else +{ +lean_object* x_47; uint8_t x_48; +x_47 = lean_array_get_size(x_42); +x_48 = lean_nat_dec_le(x_44, x_47); +lean_dec(x_47); +if (x_48 == 0) +{ +lean_object* x_49; +lean_dec(x_44); +lean_dec(x_43); +lean_dec(x_42); +x_49 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_49, 0, x_38); +return x_49; +} +else +{ +size_t x_50; size_t x_51; lean_object* x_52; +x_50 = lean_usize_of_nat(x_43); +lean_dec(x_43); +x_51 = lean_usize_of_nat(x_44); +lean_dec(x_44); +x_52 = l_Array_foldlMUnsafe_fold___at_Lean_Syntax_reprint___spec__2(x_42, x_50, x_51, x_38); +lean_dec(x_42); +return x_52; } } } @@ -5557,37 +5596,53 @@ return x_40; } else { -lean_object* x_41; -lean_dec(x_17); -x_41 = lean_box(0); -return x_41; +lean_object* x_53; +lean_dec(x_4); +x_53 = lean_box(0); +return x_53; } } } case 2: { -lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; -x_42 = lean_ctor_get(x_1, 0); -x_43 = lean_ctor_get(x_1, 1); -x_44 = l___private_Lean_Syntax_0__Lean_Syntax_reprintLeaf(x_42, x_43); -x_45 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_45, 0, x_44); -return x_45; +lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; +x_54 = lean_ctor_get(x_1, 0); +lean_inc(x_54); +x_55 = lean_ctor_get(x_1, 1); +lean_inc(x_55); +lean_dec(x_1); +x_56 = l___private_Lean_Syntax_0__Lean_Syntax_reprintLeaf(x_54, x_55); +lean_dec(x_55); +lean_dec(x_54); +x_57 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_57, 0, x_56); +return x_57; } default: { -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_1, 1); -x_47 = lean_ctor_get(x_1, 0); -x_48 = lean_ctor_get(x_46, 0); -x_49 = lean_ctor_get(x_46, 1); -x_50 = lean_ctor_get(x_46, 2); -x_51 = lean_string_utf8_extract(x_48, x_49, x_50); -x_52 = l___private_Lean_Syntax_0__Lean_Syntax_reprintLeaf(x_47, x_51); -lean_dec(x_51); -x_53 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_53, 0, x_52); -return x_53; +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_58 = lean_ctor_get(x_1, 1); +lean_inc(x_58); +x_59 = lean_ctor_get(x_1, 0); +lean_inc(x_59); +lean_dec(x_1); +x_60 = lean_ctor_get(x_58, 0); +lean_inc(x_60); +x_61 = lean_ctor_get(x_58, 1); +lean_inc(x_61); +x_62 = lean_ctor_get(x_58, 2); +lean_inc(x_62); +lean_dec(x_58); +x_63 = lean_string_utf8_extract(x_60, x_61, x_62); +lean_dec(x_62); +lean_dec(x_61); +lean_dec(x_60); +x_64 = l___private_Lean_Syntax_0__Lean_Syntax_reprintLeaf(x_59, x_63); +lean_dec(x_63); +lean_dec(x_59); +x_65 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_65, 0, x_64); +return x_65; } } } @@ -5618,15 +5673,6 @@ lean_dec(x_1); return x_7; } } -lean_object* l_Lean_Syntax_reprint___boxed(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = l_Lean_Syntax_reprint(x_1); -lean_dec(x_1); -return x_2; -} -} lean_object* l___private_Lean_Syntax_0__Lean_Syntax_formatInfo_match__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: {