max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: update stage0

Browse source
This commit is contained in:
Leonardo de Moura 2020-10-28 19:55:14 -07:00
parent 13a3215d0d
commit 777f4b9ecf
14 changed files with 2207 additions and 688 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
stage0/src/Init/Data/Array/Basic.lean generated
View file

@ -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

40
stage0/src/Init/Data/Array/Subarray.lean generated
View file

@ -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

2
stage0/src/Lean/Meta/ExprDefEq.lean generated
View file

@ -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

2
stage0/src/Lean/Meta/WHNF.lean generated
View file

@ -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

2
stage0/src/Lean/PrettyPrinter/Formatter.lean generated
View file

@ -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)

2
stage0/src/Lean/Syntax.lean generated
View file

@ -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

480
stage0/stdlib/Init/Data/Array/Basic.c generated
View file

@ -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:
{

1359
stage0/stdlib/Init/Data/Array/Subarray.c generated
View file

File diff suppressed because it is too large Load diff

1
stage0/stdlib/Lean/Elab/BuiltinNotation.c generated
View file

@ -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)
{

1
stage0/stdlib/Lean/Elab/Util.c generated
View file

@ -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;

354
stage0/stdlib/Lean/Meta/ExprDefEq.c generated
View file

@ -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));

157
stage0/stdlib/Lean/Meta/WHNF.c generated
View file

@ -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));

265
stage0/stdlib/Lean/PrettyPrinter/Formatter.c generated
View file

@ -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));

222
stage0/stdlib/Lean/Syntax.c generated
View file

@ -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:
{