lean4-htt/src/boot/init/lean/compiler/ir.cpp
2019-03-12 14:11:27 -07:00

4279 lines
71 KiB
C++

// Lean compiler output
// Module: init.lean.compiler.ir
// Imports: init.default init.lean.name init.lean.kvmap
#include "runtime/object.h"
#include "runtime/apply.h"
typedef lean::object obj; typedef lean::usize usize;
typedef lean::uint8 uint8; typedef lean::uint16 uint16;
typedef lean::uint32 uint32; typedef lean::uint64 uint64;
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
#pragma clang diagnostic ignored "-Wunused-label"
#elif defined(__GNUC__) && !defined(__CLANG__)
#pragma GCC diagnostic ignored "-Wunused-parameter"
#pragma GCC diagnostic ignored "-Wunused-label"
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
uint8 l_lean_ir_alts_is__pure(obj*);
obj* l_rbnode_find___main___at_lean_name__map_contains___spec__2(obj*, obj*, obj*, obj*);
obj* l_list_foldl___main___at_lean_ir_insert__params___spec__1(obj*, obj*);
uint8 l_lean_ir_ctor__info_beq___main(obj*, obj*);
obj* l_lean_ir_expr_has__aeqv;
obj* l___private_init_lean_compiler_ir_3__with__bv(obj*, obj*, obj*, obj*);
obj* l_lean_ir_args_alpha__eqv___boxed(obj*, obj*, obj*);
obj* l_lean_ir_ctor__info_beq___main___boxed(obj*, obj*);
obj* l___private_init_lean_compiler_ir_9__alts_collect(obj*, obj*, obj*);
obj* l_lean_ir_expr_alpha__eqv___boxed(obj*, obj*, obj*);
obj* l_lean_ir_args_alpha__eqv___main___boxed(obj*, obj*, obj*);
obj* l_lean_ir_alt_alpha__eqv___main___boxed(obj*, obj*, obj*);
obj* l_lean_ir_varid_has__aeqv;
obj* l_lean_ir_add__params__rename___main(obj*, obj*, obj*);
obj* l_lean_ir_fnbody_alpha__eqv___main___boxed(obj*, obj*, obj*);
uint8 l_lean_ir_litval_beq(obj*, obj*);
obj* l_lean_ir_arg_has__aeqv;
obj* l_lean_ir_litval_beq___boxed(obj*, obj*);
obj* l_rbmap_insert___main___at_lean_name__map_insert___spec__1___rarg(obj*, obj*, obj*);
uint8 l_lean_ir_expr_is__pure___main(obj*);
obj* l_lean_ir_add__param__rename(obj*, obj*, obj*);
uint8 l_lean_ir_expr_is__pure(obj*);
obj* l_lean_ir_alt_alpha__eqv___boxed(obj*, obj*, obj*);
uint8 l_lean_ir_fnbody_alpha__eqv___main(obj*, obj*, obj*);
obj* l_lean_ir_alt_ctor(obj*, obj*);
uint8 l_lean_ir_type_beq___main(uint8, uint8);
uint8 l_lean_ir_fnbody_beq(obj*, obj*);
obj* l_lean_ir_args_has__aeqv;
obj* l_lean_ir_alts_is__pure___boxed(obj*);
obj* l___private_init_lean_compiler_ir_1__skip___boxed(obj*);
obj* l___private_init_lean_compiler_ir_4__with__params(obj*, obj*, obj*, obj*);
obj* l_lean_ir_add__var__rename(obj*, obj*, obj*);
obj* l_lean_ir_type_has__beq;
obj* l_lean_ir_arg_alpha__eqv___main___boxed(obj*, obj*, obj*);
obj* l___private_init_lean_compiler_ir_2__var_collect(obj*, obj*, obj*);
uint8 l_lean_ir_fnbody_is__pure(obj*);
obj* l___private_init_lean_compiler_ir_1__skip(obj*);
obj* l_lean_ir_ctor__info_beq___boxed(obj*, obj*);
obj* l_lean_ir_litval_has__beq;
obj* l_lean_ir_alt_is__pure___main___boxed(obj*);
obj* l_rbmap_insert___main___at_lean_name__set_insert___spec__1(obj*, obj*, obj*);
obj* l_lean_ir_fnbody_is__pure___main___boxed(obj*);
obj* l___private_init_lean_compiler_ir_9__alt_collect(obj*, obj*, obj*);
uint8 l_lean_ir_expr_alpha__eqv___main(obj*, obj*, obj*);
obj* l_rbmap_find___main___at_lean_ir_varid_alpha__eqv___spec__1___boxed(obj*, obj*);
obj* l___private_init_lean_compiler_ir_9__alts_collect___main(obj*, obj*, obj*);
obj* l_lean_ir_ctor__info_has__beq;
namespace lean {
uint8 nat_dec_eq(obj*, obj*);
}
uint8 l_lean_ir_args_alpha__eqv___main(obj*, obj*, obj*);
obj* l_lean_ir_fnbody_has__beq;
obj* l_lean_ir_free__vars(obj*);
obj* l_lean_ir_fnbody_alpha__eqv___boxed(obj*, obj*, obj*);
uint8 l_lean_ir_alts_is__pure___main(obj*);
obj* l___private_init_lean_compiler_ir_6__arg_collect___main(obj*, obj*, obj*);
obj* l___private_init_lean_compiler_ir_7__args_collect___main(obj*, obj*, obj*);
obj* l_lean_ir_type_beq___boxed(obj*, obj*);
uint8 l_lean_kvmap_eqv(obj*, obj*);
uint8 l_lean_ir_fnbody_is__pure___main(obj*);
uint8 l_lean_ir_litval_beq___main(obj*, obj*);
obj* l___private_init_lean_compiler_ir_8__expr_collect(obj*, obj*, obj*);
obj* l_lean_ir_fnbody_is__pure___boxed(obj*);
obj* l_lean_ir_alts_alpha__eqv___boxed(obj*, obj*, obj*);
uint8 l_lean_ir_alts_alpha__eqv___main(obj*, obj*, obj*);
obj* l_lean_ir_litval_beq___main___boxed(obj*, obj*);
obj* l___private_init_lean_compiler_ir_5__seq(obj*, obj*, obj*, obj*);
uint8 l_lean_ir_expr_alpha__eqv(obj*, obj*, obj*);
uint8 l_lean_ir_fnbody_alpha__eqv(obj*, obj*, obj*);
obj* l_lean_ir_varid_alpha__eqv___boxed(obj*, obj*, obj*);
uint8 l_lean_name__set_contains(obj*, obj*);
obj* l_lean_ir_arg_alpha__eqv___boxed(obj*, obj*, obj*);
obj* l_lean_ir_alt_default(obj*);
extern "C" uint8 lean_name_dec_eq(obj*, obj*);
obj* l_lean_ir_insert__params(obj*, obj*);
uint8 l_lean_ir_varid_alpha__eqv(obj*, obj*, obj*);
namespace lean {
uint8 string_dec_eq(obj*, obj*);
}
obj* l_lean_ir_expr_alpha__eqv___main___boxed(obj*, obj*, obj*);
obj* l___private_init_lean_compiler_ir_9__fnbody_collect___main(obj*, obj*, obj*);
obj* l_rbmap_find___main___at_lean_ir_varid_alpha__eqv___spec__1(obj*, obj*);
obj* l_lean_ir_type_beq___main___boxed(obj*, obj*);
obj* l___private_init_lean_compiler_ir_9__alt_collect___main(obj*, obj*, obj*);
obj* l_lean_ir_alts_alpha__eqv___main___boxed(obj*, obj*, obj*);
uint8 l_lean_ir_alts_alpha__eqv(obj*, obj*, obj*);
obj* l_lean_ir_alt_is__pure___boxed(obj*);
obj* l___private_init_lean_compiler_ir_6__arg_collect(obj*, obj*, obj*);
uint8 l_lean_ir_type_beq(uint8, uint8);
obj* l___private_init_lean_compiler_ir_9__fnbody_collect(obj*, obj*, obj*);
obj* l___private_init_lean_compiler_ir_1__skip___rarg___boxed(obj*);
uint8 l_lean_ir_ctor__info_beq(obj*, obj*);
obj* l_lean_ir_fnbody_beq___boxed(obj*, obj*);
uint8 l_lean_ir_alt_is__pure(obj*);
uint8 l_lean_ir_arg_alpha__eqv___main(obj*, obj*, obj*);
obj* l_lean_ir_expr_is__pure___main___boxed(obj*);
uint8 l_lean_ir_args_alpha__eqv(obj*, obj*, obj*);
obj* l_lean_ir_alts_is__pure___main___boxed(obj*);
uint8 l_lean_ir_alt_alpha__eqv___main(obj*, obj*, obj*);
uint8 l_lean_ir_arg_alpha__eqv(obj*, obj*, obj*);
obj* l___private_init_lean_compiler_ir_8__expr_collect___main(obj*, obj*, obj*);
obj* l_lean_ir_add__params__rename(obj*, obj*, obj*);
obj* l___private_init_lean_compiler_ir_7__args_collect(obj*, obj*, obj*);
uint8 l_lean_ir_alt_is__pure___main(obj*);
obj* l___private_init_lean_compiler_ir_1__skip___rarg(obj*);
uint8 l_lean_ir_alt_alpha__eqv(obj*, obj*, obj*);
obj* l_lean_ir_expr_is__pure___boxed(obj*);
uint8 l_lean_ir_type_beq___main(uint8 x_0, uint8 x_1) {
_start:
{
switch (x_0) {
case 0:
{
switch (x_1) {
case 0:
{
uint8 x_2;
x_2 = 1;
return x_2;
}
default:
{
uint8 x_3;
x_3 = 0;
return x_3;
}
}
}
case 1:
{
switch (x_1) {
case 1:
{
uint8 x_4;
x_4 = 1;
return x_4;
}
default:
{
uint8 x_5;
x_5 = 0;
return x_5;
}
}
}
case 2:
{
switch (x_1) {
case 2:
{
uint8 x_6;
x_6 = 1;
return x_6;
}
default:
{
uint8 x_7;
x_7 = 0;
return x_7;
}
}
}
case 3:
{
switch (x_1) {
case 3:
{
uint8 x_8;
x_8 = 1;
return x_8;
}
default:
{
uint8 x_9;
x_9 = 0;
return x_9;
}
}
}
case 4:
{
switch (x_1) {
case 4:
{
uint8 x_10;
x_10 = 1;
return x_10;
}
default:
{
uint8 x_11;
x_11 = 0;
return x_11;
}
}
}
case 5:
{
switch (x_1) {
case 5:
{
uint8 x_12;
x_12 = 1;
return x_12;
}
default:
{
uint8 x_13;
x_13 = 0;
return x_13;
}
}
}
case 6:
{
switch (x_1) {
case 6:
{
uint8 x_14;
x_14 = 1;
return x_14;
}
default:
{
uint8 x_15;
x_15 = 0;
return x_15;
}
}
}
case 7:
{
switch (x_1) {
case 7:
{
uint8 x_16;
x_16 = 1;
return x_16;
}
default:
{
uint8 x_17;
x_17 = 0;
return x_17;
}
}
}
default:
{
switch (x_1) {
case 8:
{
uint8 x_18;
x_18 = 1;
return x_18;
}
default:
{
uint8 x_19;
x_19 = 0;
return x_19;
}
}
}
}
}
}
obj* l_lean_ir_type_beq___main___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; uint8 x_3; uint8 x_4; obj* x_5;
x_2 = lean::unbox(x_0);
x_3 = lean::unbox(x_1);
x_4 = l_lean_ir_type_beq___main(x_2, x_3);
x_5 = lean::box(x_4);
return x_5;
}
}
uint8 l_lean_ir_type_beq(uint8 x_0, uint8 x_1) {
_start:
{
uint8 x_2;
x_2 = l_lean_ir_type_beq___main(x_0, x_1);
return x_2;
}
}
obj* l_lean_ir_type_beq___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; uint8 x_3; uint8 x_4; obj* x_5;
x_2 = lean::unbox(x_0);
x_3 = lean::unbox(x_1);
x_4 = l_lean_ir_type_beq(x_2, x_3);
x_5 = lean::box(x_4);
return x_5;
}
}
obj* _init_l_lean_ir_type_has__beq() {
_start:
{
obj* x_0;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_ir_type_beq___boxed), 2, 0);
return x_0;
}
}
uint8 l_lean_ir_litval_beq___main(obj* x_0, obj* x_1) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
if (lean::obj_tag(x_1) == 0)
{
obj* x_2; obj* x_3; uint8 x_4;
x_2 = lean::cnstr_get(x_0, 0);
x_3 = lean::cnstr_get(x_1, 0);
x_4 = lean::nat_dec_eq(x_2, x_3);
if (x_4 == 0)
{
uint8 x_5;
x_5 = 0;
return x_5;
}
else
{
uint8 x_6;
x_6 = 1;
return x_6;
}
}
else
{
uint8 x_7;
x_7 = 0;
return x_7;
}
}
else
{
if (lean::obj_tag(x_1) == 0)
{
uint8 x_8;
x_8 = 0;
return x_8;
}
else
{
obj* x_9; obj* x_10; uint8 x_11;
x_9 = lean::cnstr_get(x_0, 0);
x_10 = lean::cnstr_get(x_1, 0);
x_11 = lean::string_dec_eq(x_9, x_10);
if (x_11 == 0)
{
uint8 x_12;
x_12 = 0;
return x_12;
}
else
{
uint8 x_13;
x_13 = 1;
return x_13;
}
}
}
}
}
obj* l_lean_ir_litval_beq___main___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; obj* x_3;
x_2 = l_lean_ir_litval_beq___main(x_0, x_1);
x_3 = lean::box(x_2);
lean::dec(x_0);
lean::dec(x_1);
return x_3;
}
}
uint8 l_lean_ir_litval_beq(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2;
x_2 = l_lean_ir_litval_beq___main(x_0, x_1);
return x_2;
}
}
obj* l_lean_ir_litval_beq___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; obj* x_3;
x_2 = l_lean_ir_litval_beq(x_0, x_1);
x_3 = lean::box(x_2);
lean::dec(x_0);
lean::dec(x_1);
return x_3;
}
}
obj* _init_l_lean_ir_litval_has__beq() {
_start:
{
obj* x_0;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_ir_litval_beq___boxed), 2, 0);
return x_0;
}
}
uint8 l_lean_ir_ctor__info_beq___main(obj* x_0, obj* x_1) {
_start:
{
obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; uint8 x_10;
x_2 = lean::cnstr_get(x_0, 0);
x_3 = lean::cnstr_get(x_0, 1);
x_4 = lean::cnstr_get(x_0, 2);
x_5 = lean::cnstr_get(x_0, 3);
x_6 = lean::cnstr_get(x_1, 0);
x_7 = lean::cnstr_get(x_1, 1);
x_8 = lean::cnstr_get(x_1, 2);
x_9 = lean::cnstr_get(x_1, 3);
x_10 = lean_name_dec_eq(x_2, x_6);
if (x_10 == 0)
{
uint8 x_11;
x_11 = 0;
return x_11;
}
else
{
uint8 x_12;
x_12 = lean::nat_dec_eq(x_3, x_7);
if (x_12 == 0)
{
uint8 x_13;
x_13 = 0;
return x_13;
}
else
{
uint8 x_14;
x_14 = lean::nat_dec_eq(x_4, x_8);
if (x_14 == 0)
{
uint8 x_15;
x_15 = 0;
return x_15;
}
else
{
uint8 x_16;
x_16 = lean::nat_dec_eq(x_5, x_9);
if (x_16 == 0)
{
uint8 x_17;
x_17 = 0;
return x_17;
}
else
{
uint8 x_18;
x_18 = 1;
return x_18;
}
}
}
}
}
}
obj* l_lean_ir_ctor__info_beq___main___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; obj* x_3;
x_2 = l_lean_ir_ctor__info_beq___main(x_0, x_1);
x_3 = lean::box(x_2);
lean::dec(x_0);
lean::dec(x_1);
return x_3;
}
}
uint8 l_lean_ir_ctor__info_beq(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2;
x_2 = l_lean_ir_ctor__info_beq___main(x_0, x_1);
return x_2;
}
}
obj* l_lean_ir_ctor__info_beq___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; obj* x_3;
x_2 = l_lean_ir_ctor__info_beq(x_0, x_1);
x_3 = lean::box(x_2);
lean::dec(x_0);
lean::dec(x_1);
return x_3;
}
}
obj* _init_l_lean_ir_ctor__info_has__beq() {
_start:
{
obj* x_0;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_ir_ctor__info_beq___boxed), 2, 0);
return x_0;
}
}
obj* l_lean_ir_alt_ctor(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::alloc_cnstr(0, 2, 0);
lean::cnstr_set(x_2, 0, x_0);
lean::cnstr_set(x_2, 1, x_1);
return x_2;
}
}
obj* l_lean_ir_alt_default(obj* x_0) {
_start:
{
obj* x_1;
x_1 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_1, 0, x_0);
return x_1;
}
}
uint8 l_lean_ir_expr_is__pure___main(obj* x_0) {
_start:
{
switch (lean::obj_tag(x_0)) {
case 1:
{
uint8 x_1;
x_1 = 0;
return x_1;
}
case 2:
{
uint8 x_2;
x_2 = 0;
return x_2;
}
case 9:
{
uint8 x_3;
x_3 = 0;
return x_3;
}
case 10:
{
uint8 x_4;
x_4 = 0;
return x_4;
}
case 12:
{
uint8 x_5;
x_5 = 0;
return x_5;
}
case 13:
{
uint8 x_6;
x_6 = 0;
return x_6;
}
default:
{
uint8 x_7;
x_7 = 1;
return x_7;
}
}
}
}
obj* l_lean_ir_expr_is__pure___main___boxed(obj* x_0) {
_start:
{
uint8 x_1; obj* x_2;
x_1 = l_lean_ir_expr_is__pure___main(x_0);
x_2 = lean::box(x_1);
lean::dec(x_0);
return x_2;
}
}
uint8 l_lean_ir_expr_is__pure(obj* x_0) {
_start:
{
uint8 x_1;
x_1 = l_lean_ir_expr_is__pure___main(x_0);
return x_1;
}
}
obj* l_lean_ir_expr_is__pure___boxed(obj* x_0) {
_start:
{
uint8 x_1; obj* x_2;
x_1 = l_lean_ir_expr_is__pure(x_0);
x_2 = lean::box(x_1);
lean::dec(x_0);
return x_2;
}
}
uint8 l_lean_ir_fnbody_is__pure___main(obj* x_0) {
_start:
{
switch (lean::obj_tag(x_0)) {
case 0:
{
obj* x_1; obj* x_2; uint8 x_3;
x_1 = lean::cnstr_get(x_0, 1);
x_2 = lean::cnstr_get(x_0, 2);
x_3 = l_lean_ir_expr_is__pure___main(x_1);
if (x_3 == 0)
{
return x_3;
}
else
{
x_0 = x_2;
goto _start;
}
}
case 1:
{
obj* x_5; obj* x_6; uint8 x_7;
x_5 = lean::cnstr_get(x_0, 2);
x_6 = lean::cnstr_get(x_0, 3);
x_7 = l_lean_ir_fnbody_is__pure___main(x_5);
if (x_7 == 0)
{
return x_7;
}
else
{
x_0 = x_6;
goto _start;
}
}
case 3:
{
obj* x_9;
x_9 = lean::cnstr_get(x_0, 3);
x_0 = x_9;
goto _start;
}
case 4:
{
obj* x_11;
x_11 = lean::cnstr_get(x_0, 4);
x_0 = x_11;
goto _start;
}
case 8:
{
obj* x_13;
x_13 = lean::cnstr_get(x_0, 1);
x_0 = x_13;
goto _start;
}
case 9:
{
obj* x_15; uint8 x_16;
x_15 = lean::cnstr_get(x_0, 2);
x_16 = l_lean_ir_alts_is__pure___main(x_15);
return x_16;
}
case 10:
{
uint8 x_17;
x_17 = 1;
return x_17;
}
case 11:
{
uint8 x_18;
x_18 = 1;
return x_18;
}
case 12:
{
uint8 x_19;
x_19 = 1;
return x_19;
}
default:
{
uint8 x_20;
x_20 = 0;
return x_20;
}
}
}
}
uint8 l_lean_ir_alts_is__pure___main(obj* x_0) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
uint8 x_1;
x_1 = 1;
return x_1;
}
else
{
obj* x_2; obj* x_3; uint8 x_4;
x_2 = lean::cnstr_get(x_0, 0);
x_3 = lean::cnstr_get(x_0, 1);
x_4 = l_lean_ir_alt_is__pure___main(x_2);
if (x_4 == 0)
{
return x_4;
}
else
{
x_0 = x_3;
goto _start;
}
}
}
}
uint8 l_lean_ir_alt_is__pure___main(obj* x_0) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
obj* x_1; uint8 x_2;
x_1 = lean::cnstr_get(x_0, 1);
x_2 = l_lean_ir_fnbody_is__pure___main(x_1);
return x_2;
}
else
{
uint8 x_3;
x_3 = 0;
return x_3;
}
}
}
obj* l_lean_ir_fnbody_is__pure___main___boxed(obj* x_0) {
_start:
{
uint8 x_1; obj* x_2;
x_1 = l_lean_ir_fnbody_is__pure___main(x_0);
x_2 = lean::box(x_1);
lean::dec(x_0);
return x_2;
}
}
obj* l_lean_ir_alts_is__pure___main___boxed(obj* x_0) {
_start:
{
uint8 x_1; obj* x_2;
x_1 = l_lean_ir_alts_is__pure___main(x_0);
x_2 = lean::box(x_1);
lean::dec(x_0);
return x_2;
}
}
obj* l_lean_ir_alt_is__pure___main___boxed(obj* x_0) {
_start:
{
uint8 x_1; obj* x_2;
x_1 = l_lean_ir_alt_is__pure___main(x_0);
x_2 = lean::box(x_1);
lean::dec(x_0);
return x_2;
}
}
uint8 l_lean_ir_fnbody_is__pure(obj* x_0) {
_start:
{
uint8 x_1;
x_1 = l_lean_ir_fnbody_is__pure___main(x_0);
return x_1;
}
}
obj* l_lean_ir_fnbody_is__pure___boxed(obj* x_0) {
_start:
{
uint8 x_1; obj* x_2;
x_1 = l_lean_ir_fnbody_is__pure(x_0);
x_2 = lean::box(x_1);
lean::dec(x_0);
return x_2;
}
}
uint8 l_lean_ir_alts_is__pure(obj* x_0) {
_start:
{
uint8 x_1;
x_1 = l_lean_ir_alts_is__pure___main(x_0);
return x_1;
}
}
obj* l_lean_ir_alts_is__pure___boxed(obj* x_0) {
_start:
{
uint8 x_1; obj* x_2;
x_1 = l_lean_ir_alts_is__pure(x_0);
x_2 = lean::box(x_1);
lean::dec(x_0);
return x_2;
}
}
uint8 l_lean_ir_alt_is__pure(obj* x_0) {
_start:
{
uint8 x_1;
x_1 = l_lean_ir_alt_is__pure___main(x_0);
return x_1;
}
}
obj* l_lean_ir_alt_is__pure___boxed(obj* x_0) {
_start:
{
uint8 x_1; obj* x_2;
x_1 = l_lean_ir_alt_is__pure(x_0);
x_2 = lean::box(x_1);
lean::dec(x_0);
return x_2;
}
}
obj* l_rbmap_find___main___at_lean_ir_varid_alpha__eqv___spec__1(obj* x_0, obj* x_1) {
_start:
{
obj* x_2; obj* x_3;
x_2 = lean::box(0);
x_3 = l_rbnode_find___main___at_lean_name__map_contains___spec__2(x_2, lean::box(0), x_0, x_1);
return x_3;
}
}
uint8 l_lean_ir_varid_alpha__eqv(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_rbmap_find___main___at_lean_ir_varid_alpha__eqv___spec__1(x_0, x_1);
if (lean::obj_tag(x_3) == 0)
{
uint8 x_4;
x_4 = lean_name_dec_eq(x_1, x_2);
if (x_4 == 0)
{
uint8 x_5;
x_5 = 0;
return x_5;
}
else
{
uint8 x_6;
x_6 = 1;
return x_6;
}
}
else
{
obj* x_7; uint8 x_10;
x_7 = lean::cnstr_get(x_3, 0);
lean::inc(x_7);
lean::dec(x_3);
x_10 = lean_name_dec_eq(x_7, x_2);
lean::dec(x_7);
if (x_10 == 0)
{
uint8 x_12;
x_12 = 0;
return x_12;
}
else
{
uint8 x_13;
x_13 = 1;
return x_13;
}
}
}
}
obj* l_rbmap_find___main___at_lean_ir_varid_alpha__eqv___spec__1___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_rbmap_find___main___at_lean_ir_varid_alpha__eqv___spec__1(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_lean_ir_varid_alpha__eqv___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3; obj* x_4;
x_3 = l_lean_ir_varid_alpha__eqv(x_0, x_1, x_2);
x_4 = lean::box(x_3);
lean::dec(x_1);
lean::dec(x_2);
return x_4;
}
}
obj* _init_l_lean_ir_varid_has__aeqv() {
_start:
{
obj* x_0;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_ir_varid_alpha__eqv___boxed), 3, 0);
return x_0;
}
}
uint8 l_lean_ir_arg_alpha__eqv___main(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_1) == 0)
{
if (lean::obj_tag(x_2) == 0)
{
obj* x_3; obj* x_4; uint8 x_5;
x_3 = lean::cnstr_get(x_1, 0);
x_4 = lean::cnstr_get(x_2, 0);
x_5 = l_lean_ir_varid_alpha__eqv(x_0, x_3, x_4);
return x_5;
}
else
{
uint8 x_7;
lean::dec(x_0);
x_7 = 0;
return x_7;
}
}
else
{
lean::dec(x_0);
if (lean::obj_tag(x_2) == 0)
{
uint8 x_9;
x_9 = 0;
return x_9;
}
else
{
uint8 x_10;
x_10 = 1;
return x_10;
}
}
}
}
obj* l_lean_ir_arg_alpha__eqv___main___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3; obj* x_4;
x_3 = l_lean_ir_arg_alpha__eqv___main(x_0, x_1, x_2);
x_4 = lean::box(x_3);
lean::dec(x_1);
lean::dec(x_2);
return x_4;
}
}
uint8 l_lean_ir_arg_alpha__eqv(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3;
x_3 = l_lean_ir_arg_alpha__eqv___main(x_0, x_1, x_2);
return x_3;
}
}
obj* l_lean_ir_arg_alpha__eqv___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3; obj* x_4;
x_3 = l_lean_ir_arg_alpha__eqv(x_0, x_1, x_2);
x_4 = lean::box(x_3);
lean::dec(x_1);
lean::dec(x_2);
return x_4;
}
}
obj* _init_l_lean_ir_arg_has__aeqv() {
_start:
{
obj* x_0;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_ir_arg_alpha__eqv___boxed), 3, 0);
return x_0;
}
}
uint8 l_lean_ir_args_alpha__eqv___main(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_1) == 0)
{
lean::dec(x_0);
if (lean::obj_tag(x_2) == 0)
{
uint8 x_4;
x_4 = 1;
return x_4;
}
else
{
uint8 x_5;
x_5 = 0;
return x_5;
}
}
else
{
if (lean::obj_tag(x_2) == 0)
{
uint8 x_7;
lean::dec(x_0);
x_7 = 0;
return x_7;
}
else
{
obj* x_8; obj* x_9; obj* x_10; obj* x_11; uint8 x_13;
x_8 = lean::cnstr_get(x_1, 0);
x_9 = lean::cnstr_get(x_1, 1);
x_10 = lean::cnstr_get(x_2, 0);
x_11 = lean::cnstr_get(x_2, 1);
lean::inc(x_0);
x_13 = l_lean_ir_arg_alpha__eqv___main(x_0, x_8, x_10);
if (x_13 == 0)
{
lean::dec(x_0);
return x_13;
}
else
{
x_1 = x_9;
x_2 = x_11;
goto _start;
}
}
}
}
}
obj* l_lean_ir_args_alpha__eqv___main___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3; obj* x_4;
x_3 = l_lean_ir_args_alpha__eqv___main(x_0, x_1, x_2);
x_4 = lean::box(x_3);
lean::dec(x_1);
lean::dec(x_2);
return x_4;
}
}
uint8 l_lean_ir_args_alpha__eqv(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3;
x_3 = l_lean_ir_args_alpha__eqv___main(x_0, x_1, x_2);
return x_3;
}
}
obj* l_lean_ir_args_alpha__eqv___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3; obj* x_4;
x_3 = l_lean_ir_args_alpha__eqv(x_0, x_1, x_2);
x_4 = lean::box(x_3);
lean::dec(x_1);
lean::dec(x_2);
return x_4;
}
}
obj* _init_l_lean_ir_args_has__aeqv() {
_start:
{
obj* x_0;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_ir_args_alpha__eqv___boxed), 3, 0);
return x_0;
}
}
uint8 l_lean_ir_expr_alpha__eqv___main(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
switch (lean::obj_tag(x_1)) {
case 0:
{
switch (lean::obj_tag(x_2)) {
case 0:
{
obj* x_3; obj* x_4; obj* x_5; obj* x_6; uint8 x_7;
x_3 = lean::cnstr_get(x_1, 0);
x_4 = lean::cnstr_get(x_1, 1);
x_5 = lean::cnstr_get(x_2, 0);
x_6 = lean::cnstr_get(x_2, 1);
x_7 = l_lean_ir_ctor__info_beq___main(x_3, x_5);
if (x_7 == 0)
{
lean::dec(x_0);
return x_7;
}
else
{
uint8 x_9;
x_9 = l_lean_ir_args_alpha__eqv___main(x_0, x_4, x_6);
return x_9;
}
}
default:
{
uint8 x_11;
lean::dec(x_0);
x_11 = 0;
return x_11;
}
}
}
case 1:
{
switch (lean::obj_tag(x_2)) {
case 1:
{
obj* x_12; obj* x_13; uint8 x_14;
x_12 = lean::cnstr_get(x_1, 0);
x_13 = lean::cnstr_get(x_2, 0);
x_14 = l_lean_ir_varid_alpha__eqv(x_0, x_12, x_13);
return x_14;
}
default:
{
uint8 x_16;
lean::dec(x_0);
x_16 = 0;
return x_16;
}
}
}
case 2:
{
switch (lean::obj_tag(x_2)) {
case 2:
{
obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; uint8 x_24;
x_17 = lean::cnstr_get(x_1, 0);
x_18 = lean::cnstr_get(x_1, 1);
x_19 = lean::cnstr_get(x_1, 2);
x_20 = lean::cnstr_get(x_2, 0);
x_21 = lean::cnstr_get(x_2, 1);
x_22 = lean::cnstr_get(x_2, 2);
lean::inc(x_0);
x_24 = l_lean_ir_varid_alpha__eqv(x_0, x_17, x_20);
if (x_24 == 0)
{
if (x_24 == 0)
{
lean::dec(x_0);
return x_24;
}
else
{
uint8 x_26;
x_26 = l_lean_ir_args_alpha__eqv___main(x_0, x_19, x_22);
return x_26;
}
}
else
{
uint8 x_27;
x_27 = l_lean_ir_ctor__info_beq___main(x_18, x_21);
if (x_27 == 0)
{
lean::dec(x_0);
return x_27;
}
else
{
uint8 x_29;
x_29 = l_lean_ir_args_alpha__eqv___main(x_0, x_19, x_22);
return x_29;
}
}
}
default:
{
uint8 x_31;
lean::dec(x_0);
x_31 = 0;
return x_31;
}
}
}
case 3:
{
switch (lean::obj_tag(x_2)) {
case 3:
{
obj* x_32; obj* x_33; obj* x_34; obj* x_35; uint8 x_36;
x_32 = lean::cnstr_get(x_1, 0);
x_33 = lean::cnstr_get(x_1, 1);
x_34 = lean::cnstr_get(x_2, 0);
x_35 = lean::cnstr_get(x_2, 1);
x_36 = lean::nat_dec_eq(x_32, x_34);
if (x_36 == 0)
{
uint8 x_38;
lean::dec(x_0);
x_38 = 0;
return x_38;
}
else
{
uint8 x_39;
x_39 = l_lean_ir_varid_alpha__eqv(x_0, x_33, x_35);
return x_39;
}
}
default:
{
uint8 x_41;
lean::dec(x_0);
x_41 = 0;
return x_41;
}
}
}
case 4:
{
switch (lean::obj_tag(x_2)) {
case 4:
{
obj* x_42; obj* x_43; obj* x_44; obj* x_45; uint8 x_46;
x_42 = lean::cnstr_get(x_1, 0);
x_43 = lean::cnstr_get(x_1, 1);
x_44 = lean::cnstr_get(x_2, 0);
x_45 = lean::cnstr_get(x_2, 1);
x_46 = lean::nat_dec_eq(x_42, x_44);
if (x_46 == 0)
{
uint8 x_48;
lean::dec(x_0);
x_48 = 0;
return x_48;
}
else
{
uint8 x_49;
x_49 = l_lean_ir_varid_alpha__eqv(x_0, x_43, x_45);
return x_49;
}
}
default:
{
uint8 x_51;
lean::dec(x_0);
x_51 = 0;
return x_51;
}
}
}
case 5:
{
switch (lean::obj_tag(x_2)) {
case 5:
{
obj* x_52; obj* x_53; obj* x_54; obj* x_55; uint8 x_56;
x_52 = lean::cnstr_get(x_1, 0);
x_53 = lean::cnstr_get(x_1, 1);
x_54 = lean::cnstr_get(x_2, 0);
x_55 = lean::cnstr_get(x_2, 1);
x_56 = lean::nat_dec_eq(x_52, x_54);
if (x_56 == 0)
{
uint8 x_58;
lean::dec(x_0);
x_58 = 0;
return x_58;
}
else
{
uint8 x_59;
x_59 = l_lean_ir_varid_alpha__eqv(x_0, x_53, x_55);
return x_59;
}
}
default:
{
uint8 x_61;
lean::dec(x_0);
x_61 = 0;
return x_61;
}
}
}
case 6:
{
switch (lean::obj_tag(x_2)) {
case 6:
{
obj* x_62; obj* x_63; obj* x_64; obj* x_65; uint8 x_66;
x_62 = lean::cnstr_get(x_1, 0);
x_63 = lean::cnstr_get(x_1, 1);
x_64 = lean::cnstr_get(x_2, 0);
x_65 = lean::cnstr_get(x_2, 1);
x_66 = lean_name_dec_eq(x_62, x_64);
if (x_66 == 0)
{
uint8 x_68;
lean::dec(x_0);
x_68 = 0;
return x_68;
}
else
{
uint8 x_69;
x_69 = l_lean_ir_args_alpha__eqv___main(x_0, x_63, x_65);
return x_69;
}
}
default:
{
uint8 x_71;
lean::dec(x_0);
x_71 = 0;
return x_71;
}
}
}
case 7:
{
switch (lean::obj_tag(x_2)) {
case 7:
{
obj* x_72; obj* x_73; obj* x_74; uint8 x_75;
x_72 = lean::cnstr_get(x_1, 0);
x_73 = lean::cnstr_get(x_2, 0);
x_74 = lean::cnstr_get(x_2, 1);
x_75 = lean_name_dec_eq(x_72, x_73);
if (x_75 == 0)
{
uint8 x_77;
lean::dec(x_0);
x_77 = 0;
return x_77;
}
else
{
uint8 x_78;
x_78 = l_lean_ir_args_alpha__eqv___main(x_0, x_74, x_74);
return x_78;
}
}
default:
{
uint8 x_80;
lean::dec(x_0);
x_80 = 0;
return x_80;
}
}
}
case 8:
{
switch (lean::obj_tag(x_2)) {
case 8:
{
obj* x_81; obj* x_82; obj* x_83; obj* x_84; uint8 x_86;
x_81 = lean::cnstr_get(x_1, 0);
x_82 = lean::cnstr_get(x_1, 1);
x_83 = lean::cnstr_get(x_2, 0);
x_84 = lean::cnstr_get(x_2, 1);
lean::inc(x_0);
x_86 = l_lean_ir_varid_alpha__eqv(x_0, x_81, x_83);
if (x_86 == 0)
{
lean::dec(x_0);
return x_86;
}
else
{
uint8 x_88;
x_88 = l_lean_ir_args_alpha__eqv___main(x_0, x_82, x_84);
return x_88;
}
}
default:
{
uint8 x_90;
lean::dec(x_0);
x_90 = 0;
return x_90;
}
}
}
case 9:
{
uint8 x_91;
x_91 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*1);
switch (lean::obj_tag(x_2)) {
case 9:
{
obj* x_92; uint8 x_93; obj* x_94; uint8 x_95;
x_92 = lean::cnstr_get(x_1, 0);
x_93 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*1);
x_94 = lean::cnstr_get(x_2, 0);
x_95 = l_lean_ir_type_beq___main(x_91, x_93);
if (x_95 == 0)
{
lean::dec(x_0);
return x_95;
}
else
{
uint8 x_97;
x_97 = l_lean_ir_varid_alpha__eqv(x_0, x_92, x_94);
return x_97;
}
}
default:
{
uint8 x_99;
lean::dec(x_0);
x_99 = 0;
return x_99;
}
}
}
case 10:
{
switch (lean::obj_tag(x_2)) {
case 10:
{
obj* x_100; obj* x_101; uint8 x_102;
x_100 = lean::cnstr_get(x_1, 0);
x_101 = lean::cnstr_get(x_2, 0);
x_102 = l_lean_ir_varid_alpha__eqv(x_0, x_100, x_101);
return x_102;
}
default:
{
uint8 x_104;
lean::dec(x_0);
x_104 = 0;
return x_104;
}
}
}
case 11:
{
lean::dec(x_0);
switch (lean::obj_tag(x_2)) {
case 11:
{
obj* x_106; obj* x_107; uint8 x_108;
x_106 = lean::cnstr_get(x_1, 0);
x_107 = lean::cnstr_get(x_2, 0);
x_108 = l_lean_ir_litval_beq___main(x_106, x_107);
return x_108;
}
default:
{
uint8 x_109;
x_109 = 0;
return x_109;
}
}
}
case 12:
{
switch (lean::obj_tag(x_2)) {
case 12:
{
obj* x_110; obj* x_111; uint8 x_112;
x_110 = lean::cnstr_get(x_1, 0);
x_111 = lean::cnstr_get(x_2, 0);
x_112 = l_lean_ir_varid_alpha__eqv(x_0, x_110, x_111);
return x_112;
}
default:
{
uint8 x_114;
lean::dec(x_0);
x_114 = 0;
return x_114;
}
}
}
default:
{
switch (lean::obj_tag(x_2)) {
case 13:
{
obj* x_115; obj* x_116; uint8 x_117;
x_115 = lean::cnstr_get(x_1, 0);
x_116 = lean::cnstr_get(x_2, 0);
x_117 = l_lean_ir_varid_alpha__eqv(x_0, x_115, x_116);
return x_117;
}
default:
{
uint8 x_119;
lean::dec(x_0);
x_119 = 0;
return x_119;
}
}
}
}
}
}
obj* l_lean_ir_expr_alpha__eqv___main___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3; obj* x_4;
x_3 = l_lean_ir_expr_alpha__eqv___main(x_0, x_1, x_2);
x_4 = lean::box(x_3);
lean::dec(x_1);
lean::dec(x_2);
return x_4;
}
}
uint8 l_lean_ir_expr_alpha__eqv(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3;
x_3 = l_lean_ir_expr_alpha__eqv___main(x_0, x_1, x_2);
return x_3;
}
}
obj* l_lean_ir_expr_alpha__eqv___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3; obj* x_4;
x_3 = l_lean_ir_expr_alpha__eqv(x_0, x_1, x_2);
x_4 = lean::box(x_3);
lean::dec(x_1);
lean::dec(x_2);
return x_4;
}
}
obj* _init_l_lean_ir_expr_has__aeqv() {
_start:
{
obj* x_0;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_ir_expr_alpha__eqv___boxed), 3, 0);
return x_0;
}
}
obj* l_lean_ir_add__var__rename(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3;
x_3 = lean_name_dec_eq(x_1, x_2);
if (x_3 == 0)
{
obj* x_4;
x_4 = l_rbmap_insert___main___at_lean_name__map_insert___spec__1___rarg(x_0, x_1, x_2);
return x_4;
}
else
{
lean::dec(x_1);
lean::dec(x_2);
return x_0;
}
}
}
obj* l_lean_ir_add__param__rename(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3; uint8 x_4; uint8 x_5;
x_3 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*1 + 1);
x_4 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*1 + 1);
x_5 = l_lean_ir_type_beq___main(x_3, x_4);
if (x_5 == 0)
{
if (x_5 == 0)
{
obj* x_9;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_9 = lean::box(0);
return x_9;
}
else
{
obj* x_10; obj* x_13; obj* x_16; obj* x_17;
x_10 = lean::cnstr_get(x_1, 0);
lean::inc(x_10);
lean::dec(x_1);
x_13 = lean::cnstr_get(x_2, 0);
lean::inc(x_13);
lean::dec(x_2);
x_16 = l_lean_ir_add__var__rename(x_0, x_10, x_13);
x_17 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_17, 0, x_16);
return x_17;
}
}
else
{
uint8 x_18; uint8 x_19;
x_18 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*1);
x_19 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*1);
if (x_18 == 0)
{
if (x_19 == 0)
{
if (x_5 == 0)
{
obj* x_23;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_23 = lean::box(0);
return x_23;
}
else
{
obj* x_24; obj* x_27; obj* x_30; obj* x_31;
x_24 = lean::cnstr_get(x_1, 0);
lean::inc(x_24);
lean::dec(x_1);
x_27 = lean::cnstr_get(x_2, 0);
lean::inc(x_27);
lean::dec(x_2);
x_30 = l_lean_ir_add__var__rename(x_0, x_24, x_27);
x_31 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_31, 0, x_30);
return x_31;
}
}
else
{
obj* x_35;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_35 = lean::box(0);
return x_35;
}
}
else
{
if (x_19 == 0)
{
obj* x_39;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_39 = lean::box(0);
return x_39;
}
else
{
if (x_5 == 0)
{
obj* x_43;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_43 = lean::box(0);
return x_43;
}
else
{
obj* x_44; obj* x_47; obj* x_50; obj* x_51;
x_44 = lean::cnstr_get(x_1, 0);
lean::inc(x_44);
lean::dec(x_1);
x_47 = lean::cnstr_get(x_2, 0);
lean::inc(x_47);
lean::dec(x_2);
x_50 = l_lean_ir_add__var__rename(x_0, x_44, x_47);
x_51 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_51, 0, x_50);
return x_51;
}
}
}
}
}
}
obj* l_lean_ir_add__params__rename___main(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_1) == 0)
{
if (lean::obj_tag(x_2) == 0)
{
obj* x_3;
x_3 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_3, 0, x_0);
return x_3;
}
else
{
obj* x_6;
lean::dec(x_0);
lean::dec(x_2);
x_6 = lean::box(0);
return x_6;
}
}
else
{
if (lean::obj_tag(x_2) == 0)
{
obj* x_9;
lean::dec(x_1);
lean::dec(x_0);
x_9 = lean::box(0);
return x_9;
}
else
{
obj* x_10; obj* x_12; obj* x_15; obj* x_17; obj* x_20;
x_10 = lean::cnstr_get(x_1, 0);
lean::inc(x_10);
x_12 = lean::cnstr_get(x_1, 1);
lean::inc(x_12);
lean::dec(x_1);
x_15 = lean::cnstr_get(x_2, 0);
lean::inc(x_15);
x_17 = lean::cnstr_get(x_2, 1);
lean::inc(x_17);
lean::dec(x_2);
x_20 = l_lean_ir_add__param__rename(x_0, x_10, x_15);
if (lean::obj_tag(x_20) == 0)
{
obj* x_23;
lean::dec(x_17);
lean::dec(x_12);
x_23 = lean::box(0);
return x_23;
}
else
{
obj* x_24;
x_24 = lean::cnstr_get(x_20, 0);
lean::inc(x_24);
lean::dec(x_20);
x_0 = x_24;
x_1 = x_12;
x_2 = x_17;
goto _start;
}
}
}
}
}
obj* l_lean_ir_add__params__rename(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_lean_ir_add__params__rename___main(x_0, x_1, x_2);
return x_3;
}
}
uint8 l_lean_ir_fnbody_alpha__eqv___main(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
switch (lean::obj_tag(x_1)) {
case 0:
{
uint8 x_3;
x_3 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*3);
switch (lean::obj_tag(x_2)) {
case 0:
{
obj* x_4; obj* x_6; obj* x_8; obj* x_11; uint8 x_13; obj* x_14; obj* x_16; uint8 x_19;
x_4 = lean::cnstr_get(x_1, 0);
lean::inc(x_4);
x_6 = lean::cnstr_get(x_1, 1);
lean::inc(x_6);
x_8 = lean::cnstr_get(x_1, 2);
lean::inc(x_8);
lean::dec(x_1);
x_11 = lean::cnstr_get(x_2, 0);
lean::inc(x_11);
x_13 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*3);
x_14 = lean::cnstr_get(x_2, 1);
lean::inc(x_14);
x_16 = lean::cnstr_get(x_2, 2);
lean::inc(x_16);
lean::dec(x_2);
x_19 = l_lean_ir_type_beq___main(x_3, x_13);
if (x_19 == 0)
{
lean::dec(x_6);
lean::dec(x_14);
if (x_19 == 0)
{
lean::dec(x_8);
lean::dec(x_11);
lean::dec(x_0);
lean::dec(x_4);
lean::dec(x_16);
return x_19;
}
else
{
obj* x_27;
x_27 = l_lean_ir_add__var__rename(x_0, x_4, x_11);
x_0 = x_27;
x_1 = x_8;
x_2 = x_16;
goto _start;
}
}
else
{
uint8 x_30;
lean::inc(x_0);
x_30 = l_lean_ir_expr_alpha__eqv___main(x_0, x_6, x_14);
lean::dec(x_14);
lean::dec(x_6);
if (x_30 == 0)
{
lean::dec(x_8);
lean::dec(x_11);
lean::dec(x_0);
lean::dec(x_4);
lean::dec(x_16);
return x_30;
}
else
{
obj* x_38;
x_38 = l_lean_ir_add__var__rename(x_0, x_4, x_11);
x_0 = x_38;
x_1 = x_8;
x_2 = x_16;
goto _start;
}
}
}
case 12:
{
uint8 x_42;
lean::dec(x_1);
lean::dec(x_0);
x_42 = 0;
return x_42;
}
default:
{
uint8 x_46;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_46 = 0;
return x_46;
}
}
}
case 1:
{
uint8 x_47;
x_47 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*4);
switch (lean::obj_tag(x_2)) {
case 1:
{
obj* x_48; obj* x_50; obj* x_52; obj* x_54; obj* x_57; obj* x_59; uint8 x_61; obj* x_62; obj* x_64; obj* x_68;
x_48 = lean::cnstr_get(x_1, 0);
lean::inc(x_48);
x_50 = lean::cnstr_get(x_1, 1);
lean::inc(x_50);
x_52 = lean::cnstr_get(x_1, 2);
lean::inc(x_52);
x_54 = lean::cnstr_get(x_1, 3);
lean::inc(x_54);
lean::dec(x_1);
x_57 = lean::cnstr_get(x_2, 0);
lean::inc(x_57);
x_59 = lean::cnstr_get(x_2, 1);
lean::inc(x_59);
x_61 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*4);
x_62 = lean::cnstr_get(x_2, 2);
lean::inc(x_62);
x_64 = lean::cnstr_get(x_2, 3);
lean::inc(x_64);
lean::dec(x_2);
lean::inc(x_0);
x_68 = l_lean_ir_add__params__rename___main(x_0, x_50, x_59);
if (lean::obj_tag(x_68) == 0)
{
uint8 x_76;
lean::dec(x_0);
lean::dec(x_52);
lean::dec(x_54);
lean::dec(x_64);
lean::dec(x_62);
lean::dec(x_48);
lean::dec(x_57);
x_76 = 0;
return x_76;
}
else
{
obj* x_77; uint8 x_80;
x_77 = lean::cnstr_get(x_68, 0);
lean::inc(x_77);
lean::dec(x_68);
x_80 = l_lean_ir_type_beq___main(x_47, x_61);
if (x_80 == 0)
{
lean::dec(x_77);
lean::dec(x_52);
lean::dec(x_62);
if (x_80 == 0)
{
lean::dec(x_0);
lean::dec(x_54);
lean::dec(x_64);
lean::dec(x_48);
lean::dec(x_57);
return x_80;
}
else
{
obj* x_89;
x_89 = l_lean_ir_add__var__rename(x_0, x_48, x_57);
x_0 = x_89;
x_1 = x_54;
x_2 = x_64;
goto _start;
}
}
else
{
uint8 x_91;
x_91 = l_lean_ir_fnbody_alpha__eqv___main(x_77, x_52, x_62);
if (x_91 == 0)
{
lean::dec(x_0);
lean::dec(x_54);
lean::dec(x_64);
lean::dec(x_48);
lean::dec(x_57);
return x_91;
}
else
{
obj* x_97;
x_97 = l_lean_ir_add__var__rename(x_0, x_48, x_57);
x_0 = x_97;
x_1 = x_54;
x_2 = x_64;
goto _start;
}
}
}
}
case 12:
{
uint8 x_101;
lean::dec(x_1);
lean::dec(x_0);
x_101 = 0;
return x_101;
}
default:
{
uint8 x_105;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_105 = 0;
return x_105;
}
}
}
case 2:
{
switch (lean::obj_tag(x_2)) {
case 2:
{
obj* x_106; obj* x_108; obj* x_110; obj* x_112; obj* x_115; obj* x_117; obj* x_119; obj* x_121; uint8 x_125;
x_106 = lean::cnstr_get(x_1, 0);
lean::inc(x_106);
x_108 = lean::cnstr_get(x_1, 1);
lean::inc(x_108);
x_110 = lean::cnstr_get(x_1, 2);
lean::inc(x_110);
x_112 = lean::cnstr_get(x_1, 3);
lean::inc(x_112);
lean::dec(x_1);
x_115 = lean::cnstr_get(x_2, 0);
lean::inc(x_115);
x_117 = lean::cnstr_get(x_2, 1);
lean::inc(x_117);
x_119 = lean::cnstr_get(x_2, 2);
lean::inc(x_119);
x_121 = lean::cnstr_get(x_2, 3);
lean::inc(x_121);
lean::dec(x_2);
lean::inc(x_0);
x_125 = l_lean_ir_varid_alpha__eqv(x_0, x_106, x_115);
lean::dec(x_115);
lean::dec(x_106);
if (x_125 == 0)
{
lean::dec(x_108);
lean::dec(x_117);
if (x_125 == 0)
{
lean::dec(x_119);
lean::dec(x_110);
if (x_125 == 0)
{
lean::dec(x_121);
lean::dec(x_112);
lean::dec(x_0);
return x_125;
}
else
{
x_1 = x_112;
x_2 = x_121;
goto _start;
}
}
else
{
uint8 x_137;
lean::inc(x_0);
x_137 = l_lean_ir_varid_alpha__eqv(x_0, x_110, x_119);
lean::dec(x_119);
lean::dec(x_110);
if (x_137 == 0)
{
lean::dec(x_121);
lean::dec(x_112);
lean::dec(x_0);
return x_137;
}
else
{
x_1 = x_112;
x_2 = x_121;
goto _start;
}
}
}
else
{
uint8 x_144;
x_144 = lean::nat_dec_eq(x_108, x_117);
lean::dec(x_117);
lean::dec(x_108);
if (x_144 == 0)
{
uint8 x_152;
lean::dec(x_119);
lean::dec(x_121);
lean::dec(x_110);
lean::dec(x_112);
lean::dec(x_0);
x_152 = 0;
return x_152;
}
else
{
if (x_125 == 0)
{
lean::dec(x_119);
lean::dec(x_110);
if (x_125 == 0)
{
lean::dec(x_121);
lean::dec(x_112);
lean::dec(x_0);
return x_125;
}
else
{
x_1 = x_112;
x_2 = x_121;
goto _start;
}
}
else
{
uint8 x_160;
lean::inc(x_0);
x_160 = l_lean_ir_varid_alpha__eqv(x_0, x_110, x_119);
lean::dec(x_119);
lean::dec(x_110);
if (x_160 == 0)
{
lean::dec(x_121);
lean::dec(x_112);
lean::dec(x_0);
return x_160;
}
else
{
x_1 = x_112;
x_2 = x_121;
goto _start;
}
}
}
}
}
case 12:
{
uint8 x_169;
lean::dec(x_1);
lean::dec(x_0);
x_169 = 0;
return x_169;
}
default:
{
uint8 x_173;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_173 = 0;
return x_173;
}
}
}
case 3:
{
switch (lean::obj_tag(x_2)) {
case 3:
{
obj* x_174; obj* x_176; obj* x_178; obj* x_180; obj* x_183; obj* x_185; obj* x_187; obj* x_189; uint8 x_193;
x_174 = lean::cnstr_get(x_1, 0);
lean::inc(x_174);
x_176 = lean::cnstr_get(x_1, 1);
lean::inc(x_176);
x_178 = lean::cnstr_get(x_1, 2);
lean::inc(x_178);
x_180 = lean::cnstr_get(x_1, 3);
lean::inc(x_180);
lean::dec(x_1);
x_183 = lean::cnstr_get(x_2, 0);
lean::inc(x_183);
x_185 = lean::cnstr_get(x_2, 1);
lean::inc(x_185);
x_187 = lean::cnstr_get(x_2, 2);
lean::inc(x_187);
x_189 = lean::cnstr_get(x_2, 3);
lean::inc(x_189);
lean::dec(x_2);
lean::inc(x_0);
x_193 = l_lean_ir_varid_alpha__eqv(x_0, x_174, x_183);
lean::dec(x_183);
lean::dec(x_174);
if (x_193 == 0)
{
lean::dec(x_185);
lean::dec(x_176);
if (x_193 == 0)
{
lean::dec(x_178);
lean::dec(x_187);
if (x_193 == 0)
{
lean::dec(x_180);
lean::dec(x_0);
lean::dec(x_189);
return x_193;
}
else
{
x_1 = x_180;
x_2 = x_189;
goto _start;
}
}
else
{
uint8 x_205;
lean::inc(x_0);
x_205 = l_lean_ir_varid_alpha__eqv(x_0, x_178, x_187);
lean::dec(x_187);
lean::dec(x_178);
if (x_205 == 0)
{
lean::dec(x_180);
lean::dec(x_0);
lean::dec(x_189);
return x_205;
}
else
{
x_1 = x_180;
x_2 = x_189;
goto _start;
}
}
}
else
{
uint8 x_212;
x_212 = lean::nat_dec_eq(x_176, x_185);
lean::dec(x_185);
lean::dec(x_176);
if (x_212 == 0)
{
uint8 x_220;
lean::dec(x_180);
lean::dec(x_178);
lean::dec(x_0);
lean::dec(x_189);
lean::dec(x_187);
x_220 = 0;
return x_220;
}
else
{
if (x_193 == 0)
{
lean::dec(x_178);
lean::dec(x_187);
if (x_193 == 0)
{
lean::dec(x_180);
lean::dec(x_0);
lean::dec(x_189);
return x_193;
}
else
{
x_1 = x_180;
x_2 = x_189;
goto _start;
}
}
else
{
uint8 x_228;
lean::inc(x_0);
x_228 = l_lean_ir_varid_alpha__eqv(x_0, x_178, x_187);
lean::dec(x_187);
lean::dec(x_178);
if (x_228 == 0)
{
lean::dec(x_180);
lean::dec(x_0);
lean::dec(x_189);
return x_228;
}
else
{
x_1 = x_180;
x_2 = x_189;
goto _start;
}
}
}
}
}
case 12:
{
uint8 x_237;
lean::dec(x_1);
lean::dec(x_0);
x_237 = 0;
return x_237;
}
default:
{
uint8 x_241;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_241 = 0;
return x_241;
}
}
}
case 4:
{
uint8 x_242;
x_242 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*5);
switch (lean::obj_tag(x_2)) {
case 4:
{
obj* x_243; obj* x_245; obj* x_247; obj* x_249; obj* x_251; obj* x_254; obj* x_256; obj* x_258; obj* x_260; uint8 x_262; obj* x_263; uint8 x_266; uint8 x_268; uint8 x_271;
x_243 = lean::cnstr_get(x_1, 0);
lean::inc(x_243);
x_245 = lean::cnstr_get(x_1, 1);
lean::inc(x_245);
x_247 = lean::cnstr_get(x_1, 2);
lean::inc(x_247);
x_249 = lean::cnstr_get(x_1, 3);
lean::inc(x_249);
x_251 = lean::cnstr_get(x_1, 4);
lean::inc(x_251);
lean::dec(x_1);
x_254 = lean::cnstr_get(x_2, 0);
lean::inc(x_254);
x_256 = lean::cnstr_get(x_2, 1);
lean::inc(x_256);
x_258 = lean::cnstr_get(x_2, 2);
lean::inc(x_258);
x_260 = lean::cnstr_get(x_2, 3);
lean::inc(x_260);
x_262 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*5);
x_263 = lean::cnstr_get(x_2, 4);
lean::inc(x_263);
lean::dec(x_2);
lean::inc(x_0);
x_271 = l_lean_ir_varid_alpha__eqv(x_0, x_243, x_254);
lean::dec(x_254);
lean::dec(x_243);
if (x_271 == 0)
{
lean::dec(x_245);
lean::dec(x_256);
if (x_271 == 0)
{
lean::dec(x_247);
lean::dec(x_258);
x_266 = x_271;
goto lbl_267;
}
else
{
x_268 = x_271;
goto lbl_269;
}
}
else
{
uint8 x_278;
x_278 = lean::nat_dec_eq(x_245, x_256);
lean::dec(x_256);
lean::dec(x_245);
if (x_278 == 0)
{
uint8 x_283;
lean::dec(x_247);
lean::dec(x_258);
x_283 = 0;
x_266 = x_283;
goto lbl_267;
}
else
{
if (x_271 == 0)
{
lean::dec(x_247);
lean::dec(x_258);
x_266 = x_271;
goto lbl_267;
}
else
{
x_268 = x_271;
goto lbl_269;
}
}
}
lbl_267:
{
if (x_266 == 0)
{
lean::dec(x_260);
lean::dec(x_249);
if (x_266 == 0)
{
if (x_266 == 0)
{
lean::dec(x_251);
lean::dec(x_263);
lean::dec(x_0);
return x_266;
}
else
{
x_1 = x_251;
x_2 = x_263;
goto _start;
}
}
else
{
uint8 x_292;
x_292 = l_lean_ir_type_beq___main(x_242, x_262);
if (x_292 == 0)
{
lean::dec(x_251);
lean::dec(x_263);
lean::dec(x_0);
return x_292;
}
else
{
x_1 = x_251;
x_2 = x_263;
goto _start;
}
}
}
else
{
uint8 x_298;
lean::inc(x_0);
x_298 = l_lean_ir_varid_alpha__eqv(x_0, x_249, x_260);
lean::dec(x_260);
lean::dec(x_249);
if (x_298 == 0)
{
if (x_298 == 0)
{
lean::dec(x_251);
lean::dec(x_263);
lean::dec(x_0);
return x_298;
}
else
{
x_1 = x_251;
x_2 = x_263;
goto _start;
}
}
else
{
uint8 x_305;
x_305 = l_lean_ir_type_beq___main(x_242, x_262);
if (x_305 == 0)
{
lean::dec(x_251);
lean::dec(x_263);
lean::dec(x_0);
return x_305;
}
else
{
x_1 = x_251;
x_2 = x_263;
goto _start;
}
}
}
}
lbl_269:
{
uint8 x_310;
x_310 = lean::nat_dec_eq(x_247, x_258);
lean::dec(x_258);
lean::dec(x_247);
if (x_310 == 0)
{
uint8 x_318;
lean::dec(x_251);
lean::dec(x_263);
lean::dec(x_260);
lean::dec(x_249);
lean::dec(x_0);
x_318 = 0;
return x_318;
}
else
{
if (x_268 == 0)
{
lean::dec(x_260);
lean::dec(x_249);
if (x_268 == 0)
{
if (x_268 == 0)
{
lean::dec(x_251);
lean::dec(x_263);
lean::dec(x_0);
return x_268;
}
else
{
x_1 = x_251;
x_2 = x_263;
goto _start;
}
}
else
{
uint8 x_325;
x_325 = l_lean_ir_type_beq___main(x_242, x_262);
if (x_325 == 0)
{
lean::dec(x_251);
lean::dec(x_263);
lean::dec(x_0);
return x_325;
}
else
{
x_1 = x_251;
x_2 = x_263;
goto _start;
}
}
}
else
{
uint8 x_331;
lean::inc(x_0);
x_331 = l_lean_ir_varid_alpha__eqv(x_0, x_249, x_260);
lean::dec(x_260);
lean::dec(x_249);
if (x_331 == 0)
{
if (x_331 == 0)
{
lean::dec(x_251);
lean::dec(x_263);
lean::dec(x_0);
return x_331;
}
else
{
x_1 = x_251;
x_2 = x_263;
goto _start;
}
}
else
{
uint8 x_338;
x_338 = l_lean_ir_type_beq___main(x_242, x_262);
if (x_338 == 0)
{
lean::dec(x_251);
lean::dec(x_263);
lean::dec(x_0);
return x_338;
}
else
{
x_1 = x_251;
x_2 = x_263;
goto _start;
}
}
}
}
}
}
case 12:
{
uint8 x_345;
lean::dec(x_1);
lean::dec(x_0);
x_345 = 0;
return x_345;
}
default:
{
uint8 x_349;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_349 = 0;
return x_349;
}
}
}
case 5:
{
switch (lean::obj_tag(x_2)) {
case 5:
{
obj* x_350; obj* x_352; obj* x_354; obj* x_357; obj* x_359; obj* x_361; uint8 x_365;
x_350 = lean::cnstr_get(x_1, 0);
lean::inc(x_350);
x_352 = lean::cnstr_get(x_1, 1);
lean::inc(x_352);
x_354 = lean::cnstr_get(x_1, 2);
lean::inc(x_354);
lean::dec(x_1);
x_357 = lean::cnstr_get(x_2, 0);
lean::inc(x_357);
x_359 = lean::cnstr_get(x_2, 1);
lean::inc(x_359);
x_361 = lean::cnstr_get(x_2, 2);
lean::inc(x_361);
lean::dec(x_2);
lean::inc(x_0);
x_365 = l_lean_ir_varid_alpha__eqv(x_0, x_350, x_357);
lean::dec(x_357);
lean::dec(x_350);
if (x_365 == 0)
{
lean::dec(x_359);
lean::dec(x_352);
if (x_365 == 0)
{
lean::dec(x_0);
lean::dec(x_361);
lean::dec(x_354);
return x_365;
}
else
{
x_1 = x_354;
x_2 = x_361;
goto _start;
}
}
else
{
uint8 x_374;
x_374 = lean::nat_dec_eq(x_352, x_359);
lean::dec(x_359);
lean::dec(x_352);
if (x_374 == 0)
{
uint8 x_380;
lean::dec(x_0);
lean::dec(x_361);
lean::dec(x_354);
x_380 = 0;
return x_380;
}
else
{
if (x_365 == 0)
{
lean::dec(x_0);
lean::dec(x_361);
lean::dec(x_354);
return x_365;
}
else
{
x_1 = x_354;
x_2 = x_361;
goto _start;
}
}
}
}
case 12:
{
uint8 x_387;
lean::dec(x_1);
lean::dec(x_0);
x_387 = 0;
return x_387;
}
default:
{
uint8 x_391;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_391 = 0;
return x_391;
}
}
}
case 6:
{
uint8 x_392;
x_392 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*3);
switch (lean::obj_tag(x_2)) {
case 6:
{
obj* x_393; obj* x_395; obj* x_397; obj* x_400; obj* x_402; uint8 x_404; obj* x_405; uint8 x_408; uint8 x_411;
x_393 = lean::cnstr_get(x_1, 0);
lean::inc(x_393);
x_395 = lean::cnstr_get(x_1, 1);
lean::inc(x_395);
x_397 = lean::cnstr_get(x_1, 2);
lean::inc(x_397);
lean::dec(x_1);
x_400 = lean::cnstr_get(x_2, 0);
lean::inc(x_400);
x_402 = lean::cnstr_get(x_2, 1);
lean::inc(x_402);
x_404 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*3);
x_405 = lean::cnstr_get(x_2, 2);
lean::inc(x_405);
lean::dec(x_2);
lean::inc(x_0);
x_411 = l_lean_ir_varid_alpha__eqv(x_0, x_393, x_400);
lean::dec(x_400);
lean::dec(x_393);
if (x_411 == 0)
{
lean::dec(x_395);
lean::dec(x_402);
if (x_411 == 0)
{
if (x_411 == 0)
{
lean::dec(x_405);
lean::dec(x_0);
lean::dec(x_397);
return x_411;
}
else
{
x_1 = x_397;
x_2 = x_405;
goto _start;
}
}
else
{
x_408 = x_411;
goto lbl_409;
}
}
else
{
uint8 x_420;
x_420 = lean::nat_dec_eq(x_395, x_402);
lean::dec(x_402);
lean::dec(x_395);
if (x_420 == 0)
{
uint8 x_426;
lean::dec(x_405);
lean::dec(x_0);
lean::dec(x_397);
x_426 = 0;
return x_426;
}
else
{
if (x_411 == 0)
{
if (x_411 == 0)
{
lean::dec(x_405);
lean::dec(x_0);
lean::dec(x_397);
return x_411;
}
else
{
x_1 = x_397;
x_2 = x_405;
goto _start;
}
}
else
{
x_408 = x_411;
goto lbl_409;
}
}
}
lbl_409:
{
if (x_392 == 0)
{
if (x_404 == 0)
{
if (x_408 == 0)
{
lean::dec(x_405);
lean::dec(x_0);
lean::dec(x_397);
return x_408;
}
else
{
x_1 = x_397;
x_2 = x_405;
goto _start;
}
}
else
{
uint8 x_438;
lean::dec(x_405);
lean::dec(x_0);
lean::dec(x_397);
x_438 = 0;
return x_438;
}
}
else
{
if (x_404 == 0)
{
uint8 x_442;
lean::dec(x_405);
lean::dec(x_0);
lean::dec(x_397);
x_442 = 0;
return x_442;
}
else
{
if (x_408 == 0)
{
lean::dec(x_405);
lean::dec(x_0);
lean::dec(x_397);
return x_408;
}
else
{
x_1 = x_397;
x_2 = x_405;
goto _start;
}
}
}
}
}
case 12:
{
uint8 x_449;
lean::dec(x_1);
lean::dec(x_0);
x_449 = 0;
return x_449;
}
default:
{
uint8 x_453;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_453 = 0;
return x_453;
}
}
}
case 7:
{
uint8 x_454;
x_454 = lean::cnstr_get_scalar<uint8>(x_1, sizeof(void*)*3);
switch (lean::obj_tag(x_2)) {
case 7:
{
obj* x_455; obj* x_457; obj* x_459; obj* x_462; obj* x_464; uint8 x_466; obj* x_467; uint8 x_470; uint8 x_473;
x_455 = lean::cnstr_get(x_1, 0);
lean::inc(x_455);
x_457 = lean::cnstr_get(x_1, 1);
lean::inc(x_457);
x_459 = lean::cnstr_get(x_1, 2);
lean::inc(x_459);
lean::dec(x_1);
x_462 = lean::cnstr_get(x_2, 0);
lean::inc(x_462);
x_464 = lean::cnstr_get(x_2, 1);
lean::inc(x_464);
x_466 = lean::cnstr_get_scalar<uint8>(x_2, sizeof(void*)*3);
x_467 = lean::cnstr_get(x_2, 2);
lean::inc(x_467);
lean::dec(x_2);
lean::inc(x_0);
x_473 = l_lean_ir_varid_alpha__eqv(x_0, x_455, x_462);
lean::dec(x_462);
lean::dec(x_455);
if (x_473 == 0)
{
lean::dec(x_464);
lean::dec(x_457);
if (x_473 == 0)
{
if (x_473 == 0)
{
lean::dec(x_467);
lean::dec(x_0);
lean::dec(x_459);
return x_473;
}
else
{
x_1 = x_459;
x_2 = x_467;
goto _start;
}
}
else
{
x_470 = x_473;
goto lbl_471;
}
}
else
{
uint8 x_482;
x_482 = lean::nat_dec_eq(x_457, x_464);
lean::dec(x_464);
lean::dec(x_457);
if (x_482 == 0)
{
uint8 x_488;
lean::dec(x_467);
lean::dec(x_0);
lean::dec(x_459);
x_488 = 0;
return x_488;
}
else
{
if (x_473 == 0)
{
if (x_473 == 0)
{
lean::dec(x_467);
lean::dec(x_0);
lean::dec(x_459);
return x_473;
}
else
{
x_1 = x_459;
x_2 = x_467;
goto _start;
}
}
else
{
x_470 = x_473;
goto lbl_471;
}
}
}
lbl_471:
{
if (x_454 == 0)
{
if (x_466 == 0)
{
if (x_470 == 0)
{
lean::dec(x_467);
lean::dec(x_0);
lean::dec(x_459);
return x_470;
}
else
{
x_1 = x_459;
x_2 = x_467;
goto _start;
}
}
else
{
uint8 x_500;
lean::dec(x_467);
lean::dec(x_0);
lean::dec(x_459);
x_500 = 0;
return x_500;
}
}
else
{
if (x_466 == 0)
{
uint8 x_504;
lean::dec(x_467);
lean::dec(x_0);
lean::dec(x_459);
x_504 = 0;
return x_504;
}
else
{
if (x_470 == 0)
{
lean::dec(x_467);
lean::dec(x_0);
lean::dec(x_459);
return x_470;
}
else
{
x_1 = x_459;
x_2 = x_467;
goto _start;
}
}
}
}
}
case 12:
{
uint8 x_511;
lean::dec(x_1);
lean::dec(x_0);
x_511 = 0;
return x_511;
}
default:
{
uint8 x_515;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_515 = 0;
return x_515;
}
}
}
case 8:
{
switch (lean::obj_tag(x_2)) {
case 8:
{
obj* x_516; obj* x_518; obj* x_521; obj* x_523; uint8 x_526;
x_516 = lean::cnstr_get(x_1, 0);
lean::inc(x_516);
x_518 = lean::cnstr_get(x_1, 1);
lean::inc(x_518);
lean::dec(x_1);
x_521 = lean::cnstr_get(x_2, 0);
lean::inc(x_521);
x_523 = lean::cnstr_get(x_2, 1);
lean::inc(x_523);
lean::dec(x_2);
x_526 = l_lean_kvmap_eqv(x_516, x_521);
if (x_526 == 0)
{
lean::dec(x_0);
lean::dec(x_518);
lean::dec(x_523);
return x_526;
}
else
{
x_1 = x_518;
x_2 = x_523;
goto _start;
}
}
case 12:
{
uint8 x_533;
lean::dec(x_1);
lean::dec(x_0);
x_533 = 0;
return x_533;
}
default:
{
uint8 x_537;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_537 = 0;
return x_537;
}
}
}
case 9:
{
switch (lean::obj_tag(x_2)) {
case 9:
{
obj* x_538; obj* x_540; obj* x_542; obj* x_545; obj* x_547; obj* x_549; uint8 x_552;
x_538 = lean::cnstr_get(x_1, 0);
lean::inc(x_538);
x_540 = lean::cnstr_get(x_1, 1);
lean::inc(x_540);
x_542 = lean::cnstr_get(x_1, 2);
lean::inc(x_542);
lean::dec(x_1);
x_545 = lean::cnstr_get(x_2, 0);
lean::inc(x_545);
x_547 = lean::cnstr_get(x_2, 1);
lean::inc(x_547);
x_549 = lean::cnstr_get(x_2, 2);
lean::inc(x_549);
lean::dec(x_2);
x_552 = lean_name_dec_eq(x_538, x_545);
lean::dec(x_545);
lean::dec(x_538);
if (x_552 == 0)
{
uint8 x_560;
lean::dec(x_0);
lean::dec(x_549);
lean::dec(x_547);
lean::dec(x_540);
lean::dec(x_542);
x_560 = 0;
return x_560;
}
else
{
uint8 x_562;
lean::inc(x_0);
x_562 = l_lean_ir_varid_alpha__eqv(x_0, x_540, x_547);
lean::dec(x_547);
lean::dec(x_540);
if (x_562 == 0)
{
lean::dec(x_0);
lean::dec(x_549);
lean::dec(x_542);
return x_562;
}
else
{
uint8 x_568;
x_568 = l_lean_ir_alts_alpha__eqv___main(x_0, x_542, x_549);
return x_568;
}
}
}
case 12:
{
uint8 x_571;
lean::dec(x_1);
lean::dec(x_0);
x_571 = 0;
return x_571;
}
default:
{
uint8 x_575;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_575 = 0;
return x_575;
}
}
}
case 10:
{
switch (lean::obj_tag(x_2)) {
case 10:
{
obj* x_576; obj* x_579; uint8 x_582;
x_576 = lean::cnstr_get(x_1, 0);
lean::inc(x_576);
lean::dec(x_1);
x_579 = lean::cnstr_get(x_2, 0);
lean::inc(x_579);
lean::dec(x_2);
x_582 = l_lean_ir_varid_alpha__eqv(x_0, x_576, x_579);
lean::dec(x_579);
lean::dec(x_576);
return x_582;
}
case 12:
{
uint8 x_587;
lean::dec(x_1);
lean::dec(x_0);
x_587 = 0;
return x_587;
}
default:
{
uint8 x_591;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_591 = 0;
return x_591;
}
}
}
case 11:
{
switch (lean::obj_tag(x_2)) {
case 11:
{
obj* x_592; obj* x_594; obj* x_597; obj* x_599; uint8 x_602;
x_592 = lean::cnstr_get(x_1, 0);
lean::inc(x_592);
x_594 = lean::cnstr_get(x_1, 1);
lean::inc(x_594);
lean::dec(x_1);
x_597 = lean::cnstr_get(x_2, 0);
lean::inc(x_597);
x_599 = lean::cnstr_get(x_2, 1);
lean::inc(x_599);
lean::dec(x_2);
x_602 = lean_name_dec_eq(x_592, x_597);
lean::dec(x_597);
lean::dec(x_592);
if (x_602 == 0)
{
uint8 x_608;
lean::dec(x_0);
lean::dec(x_599);
lean::dec(x_594);
x_608 = 0;
return x_608;
}
else
{
uint8 x_609;
x_609 = l_lean_ir_args_alpha__eqv___main(x_0, x_594, x_599);
lean::dec(x_599);
lean::dec(x_594);
return x_609;
}
}
case 12:
{
uint8 x_614;
lean::dec(x_1);
lean::dec(x_0);
x_614 = 0;
return x_614;
}
default:
{
uint8 x_618;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_618 = 0;
return x_618;
}
}
}
default:
{
lean::dec(x_0);
switch (lean::obj_tag(x_2)) {
case 12:
{
uint8 x_620;
x_620 = 1;
return x_620;
}
default:
{
uint8 x_622;
lean::dec(x_2);
x_622 = 0;
return x_622;
}
}
}
}
}
}
uint8 l_lean_ir_alts_alpha__eqv___main(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_1) == 0)
{
lean::dec(x_0);
if (lean::obj_tag(x_2) == 0)
{
uint8 x_4;
x_4 = 1;
return x_4;
}
else
{
uint8 x_6;
lean::dec(x_2);
x_6 = 0;
return x_6;
}
}
else
{
if (lean::obj_tag(x_2) == 0)
{
uint8 x_9;
lean::dec(x_1);
lean::dec(x_0);
x_9 = 0;
return x_9;
}
else
{
obj* x_10; obj* x_12; obj* x_15; obj* x_17; uint8 x_21;
x_10 = lean::cnstr_get(x_1, 0);
lean::inc(x_10);
x_12 = lean::cnstr_get(x_1, 1);
lean::inc(x_12);
lean::dec(x_1);
x_15 = lean::cnstr_get(x_2, 0);
lean::inc(x_15);
x_17 = lean::cnstr_get(x_2, 1);
lean::inc(x_17);
lean::dec(x_2);
lean::inc(x_0);
x_21 = l_lean_ir_alt_alpha__eqv___main(x_0, x_10, x_15);
if (x_21 == 0)
{
lean::dec(x_17);
lean::dec(x_0);
lean::dec(x_12);
return x_21;
}
else
{
x_1 = x_12;
x_2 = x_17;
goto _start;
}
}
}
}
}
uint8 l_lean_ir_alt_alpha__eqv___main(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_1) == 0)
{
if (lean::obj_tag(x_2) == 0)
{
obj* x_3; obj* x_5; obj* x_8; obj* x_10; uint8 x_13;
x_3 = lean::cnstr_get(x_1, 0);
lean::inc(x_3);
x_5 = lean::cnstr_get(x_1, 1);
lean::inc(x_5);
lean::dec(x_1);
x_8 = lean::cnstr_get(x_2, 0);
lean::inc(x_8);
x_10 = lean::cnstr_get(x_2, 1);
lean::inc(x_10);
lean::dec(x_2);
x_13 = l_lean_ir_ctor__info_beq___main(x_3, x_8);
lean::dec(x_8);
lean::dec(x_3);
if (x_13 == 0)
{
lean::dec(x_5);
lean::dec(x_0);
lean::dec(x_10);
return x_13;
}
else
{
uint8 x_19;
x_19 = l_lean_ir_fnbody_alpha__eqv___main(x_0, x_5, x_10);
return x_19;
}
}
else
{
uint8 x_23;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_23 = 0;
return x_23;
}
}
else
{
if (lean::obj_tag(x_2) == 0)
{
uint8 x_27;
lean::dec(x_1);
lean::dec(x_0);
lean::dec(x_2);
x_27 = 0;
return x_27;
}
else
{
obj* x_28; obj* x_31; uint8 x_34;
x_28 = lean::cnstr_get(x_1, 0);
lean::inc(x_28);
lean::dec(x_1);
x_31 = lean::cnstr_get(x_2, 0);
lean::inc(x_31);
lean::dec(x_2);
x_34 = l_lean_ir_fnbody_alpha__eqv___main(x_0, x_28, x_31);
return x_34;
}
}
}
}
obj* l_lean_ir_fnbody_alpha__eqv___main___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3; obj* x_4;
x_3 = l_lean_ir_fnbody_alpha__eqv___main(x_0, x_1, x_2);
x_4 = lean::box(x_3);
return x_4;
}
}
obj* l_lean_ir_alts_alpha__eqv___main___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3; obj* x_4;
x_3 = l_lean_ir_alts_alpha__eqv___main(x_0, x_1, x_2);
x_4 = lean::box(x_3);
return x_4;
}
}
obj* l_lean_ir_alt_alpha__eqv___main___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3; obj* x_4;
x_3 = l_lean_ir_alt_alpha__eqv___main(x_0, x_1, x_2);
x_4 = lean::box(x_3);
return x_4;
}
}
uint8 l_lean_ir_fnbody_alpha__eqv(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3;
x_3 = l_lean_ir_fnbody_alpha__eqv___main(x_0, x_1, x_2);
return x_3;
}
}
obj* l_lean_ir_fnbody_alpha__eqv___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3; obj* x_4;
x_3 = l_lean_ir_fnbody_alpha__eqv(x_0, x_1, x_2);
x_4 = lean::box(x_3);
return x_4;
}
}
uint8 l_lean_ir_alts_alpha__eqv(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3;
x_3 = l_lean_ir_alts_alpha__eqv___main(x_0, x_1, x_2);
return x_3;
}
}
obj* l_lean_ir_alts_alpha__eqv___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3; obj* x_4;
x_3 = l_lean_ir_alts_alpha__eqv(x_0, x_1, x_2);
x_4 = lean::box(x_3);
return x_4;
}
}
uint8 l_lean_ir_alt_alpha__eqv(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3;
x_3 = l_lean_ir_alt_alpha__eqv___main(x_0, x_1, x_2);
return x_3;
}
}
obj* l_lean_ir_alt_alpha__eqv___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3; obj* x_4;
x_3 = l_lean_ir_alt_alpha__eqv(x_0, x_1, x_2);
x_4 = lean::box(x_3);
return x_4;
}
}
uint8 l_lean_ir_fnbody_beq(obj* x_0, obj* x_1) {
_start:
{
obj* x_2; uint8 x_3;
x_2 = lean::box(0);
x_3 = l_lean_ir_fnbody_alpha__eqv___main(x_2, x_0, x_1);
return x_3;
}
}
obj* l_lean_ir_fnbody_beq___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; obj* x_3;
x_2 = l_lean_ir_fnbody_beq(x_0, x_1);
x_3 = lean::box(x_2);
return x_3;
}
}
obj* _init_l_lean_ir_fnbody_has__beq() {
_start:
{
obj* x_0;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_lean_ir_fnbody_beq___boxed), 2, 0);
return x_0;
}
}
obj* l___private_init_lean_compiler_ir_1__skip___rarg(obj* x_0) {
_start:
{
lean::inc(x_0);
return x_0;
}
}
obj* l___private_init_lean_compiler_ir_1__skip(obj* x_0) {
_start:
{
obj* x_1;
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l___private_init_lean_compiler_ir_1__skip___rarg___boxed), 1, 0);
return x_1;
}
}
obj* l___private_init_lean_compiler_ir_1__skip___rarg___boxed(obj* x_0) {
_start:
{
obj* x_1;
x_1 = l___private_init_lean_compiler_ir_1__skip___rarg(x_0);
lean::dec(x_0);
return x_1;
}
}
obj* l___private_init_lean_compiler_ir_1__skip___boxed(obj* x_0) {
_start:
{
obj* x_1;
x_1 = l___private_init_lean_compiler_ir_1__skip(x_0);
lean::dec(x_0);
return x_1;
}
}
obj* l___private_init_lean_compiler_ir_2__var_collect(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3;
x_3 = l_lean_name__set_contains(x_1, x_0);
if (x_3 == 0)
{
obj* x_4; obj* x_5;
x_4 = lean::box(0);
x_5 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_0, x_4);
return x_5;
}
else
{
lean::dec(x_0);
return x_2;
}
}
}
obj* l___private_init_lean_compiler_ir_3__with__bv(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4; obj* x_5; obj* x_6;
x_4 = lean::box(0);
x_5 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_0, x_4);
x_6 = lean::apply_2(x_1, x_5, x_3);
return x_6;
}
}
obj* l_list_foldl___main___at_lean_ir_insert__params___spec__1(obj* x_0, obj* x_1) {
_start:
{
if (lean::obj_tag(x_1) == 0)
{
return x_0;
}
else
{
obj* x_2; obj* x_4; obj* x_7; obj* x_10; obj* x_11;
x_2 = lean::cnstr_get(x_1, 0);
lean::inc(x_2);
x_4 = lean::cnstr_get(x_1, 1);
lean::inc(x_4);
lean::dec(x_1);
x_7 = lean::cnstr_get(x_2, 0);
lean::inc(x_7);
lean::dec(x_2);
x_10 = lean::box(0);
x_11 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_0, x_7, x_10);
x_0 = x_11;
x_1 = x_4;
goto _start;
}
}
}
obj* l_lean_ir_insert__params(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_list_foldl___main___at_lean_ir_insert__params___spec__1(x_0, x_1);
return x_2;
}
}
obj* l___private_init_lean_compiler_ir_4__with__params(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_4; obj* x_5;
x_4 = l_list_foldl___main___at_lean_ir_insert__params___spec__1(x_2, x_0);
x_5 = lean::apply_2(x_1, x_4, x_3);
return x_5;
}
}
obj* l___private_init_lean_compiler_ir_5__seq(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
obj* x_5; obj* x_6;
lean::inc(x_2);
x_5 = lean::apply_2(x_0, x_2, x_3);
x_6 = lean::apply_2(x_1, x_2, x_5);
return x_6;
}
}
obj* l___private_init_lean_compiler_ir_6__arg_collect___main(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
obj* x_3; uint8 x_6;
x_3 = lean::cnstr_get(x_0, 0);
lean::inc(x_3);
lean::dec(x_0);
x_6 = l_lean_name__set_contains(x_1, x_3);
if (x_6 == 0)
{
obj* x_7; obj* x_8;
x_7 = lean::box(0);
x_8 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_3, x_7);
return x_8;
}
else
{
lean::dec(x_3);
return x_2;
}
}
else
{
lean::dec(x_1);
return x_2;
}
}
}
obj* l___private_init_lean_compiler_ir_6__arg_collect(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l___private_init_lean_compiler_ir_6__arg_collect___main(x_0, x_1, x_2);
return x_3;
}
}
obj* l___private_init_lean_compiler_ir_7__args_collect___main(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
lean::dec(x_1);
return x_2;
}
else
{
obj* x_4; obj* x_6; obj* x_10;
x_4 = lean::cnstr_get(x_0, 0);
lean::inc(x_4);
x_6 = lean::cnstr_get(x_0, 1);
lean::inc(x_6);
lean::dec(x_0);
lean::inc(x_1);
x_10 = l___private_init_lean_compiler_ir_6__arg_collect___main(x_4, x_1, x_2);
x_0 = x_6;
x_2 = x_10;
goto _start;
}
}
}
obj* l___private_init_lean_compiler_ir_7__args_collect(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l___private_init_lean_compiler_ir_7__args_collect___main(x_0, x_1, x_2);
return x_3;
}
}
obj* l___private_init_lean_compiler_ir_8__expr_collect___main(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
switch (lean::obj_tag(x_0)) {
case 0:
{
obj* x_3; obj* x_6;
x_3 = lean::cnstr_get(x_0, 1);
lean::inc(x_3);
lean::dec(x_0);
x_6 = l___private_init_lean_compiler_ir_7__args_collect___main(x_3, x_1, x_2);
return x_6;
}
case 2:
{
obj* x_7; obj* x_9; uint8 x_13;
x_7 = lean::cnstr_get(x_0, 0);
lean::inc(x_7);
x_9 = lean::cnstr_get(x_0, 2);
lean::inc(x_9);
lean::dec(x_0);
lean::inc(x_1);
x_13 = l_lean_name__set_contains(x_1, x_7);
if (x_13 == 0)
{
obj* x_14; obj* x_15; obj* x_16;
x_14 = lean::box(0);
x_15 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_7, x_14);
x_16 = l___private_init_lean_compiler_ir_7__args_collect___main(x_9, x_1, x_15);
return x_16;
}
else
{
obj* x_18;
lean::dec(x_7);
x_18 = l___private_init_lean_compiler_ir_7__args_collect___main(x_9, x_1, x_2);
return x_18;
}
}
case 3:
{
obj* x_19; uint8 x_22;
x_19 = lean::cnstr_get(x_0, 1);
lean::inc(x_19);
lean::dec(x_0);
x_22 = l_lean_name__set_contains(x_1, x_19);
if (x_22 == 0)
{
obj* x_23; obj* x_24;
x_23 = lean::box(0);
x_24 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_19, x_23);
return x_24;
}
else
{
lean::dec(x_19);
return x_2;
}
}
case 4:
{
obj* x_26; uint8 x_29;
x_26 = lean::cnstr_get(x_0, 1);
lean::inc(x_26);
lean::dec(x_0);
x_29 = l_lean_name__set_contains(x_1, x_26);
if (x_29 == 0)
{
obj* x_30; obj* x_31;
x_30 = lean::box(0);
x_31 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_26, x_30);
return x_31;
}
else
{
lean::dec(x_26);
return x_2;
}
}
case 5:
{
obj* x_33; uint8 x_36;
x_33 = lean::cnstr_get(x_0, 1);
lean::inc(x_33);
lean::dec(x_0);
x_36 = l_lean_name__set_contains(x_1, x_33);
if (x_36 == 0)
{
obj* x_37; obj* x_38;
x_37 = lean::box(0);
x_38 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_33, x_37);
return x_38;
}
else
{
lean::dec(x_33);
return x_2;
}
}
case 6:
{
obj* x_40; obj* x_43;
x_40 = lean::cnstr_get(x_0, 1);
lean::inc(x_40);
lean::dec(x_0);
x_43 = l___private_init_lean_compiler_ir_7__args_collect___main(x_40, x_1, x_2);
return x_43;
}
case 7:
{
obj* x_44; obj* x_47;
x_44 = lean::cnstr_get(x_0, 1);
lean::inc(x_44);
lean::dec(x_0);
x_47 = l___private_init_lean_compiler_ir_7__args_collect___main(x_44, x_1, x_2);
return x_47;
}
case 8:
{
obj* x_48; obj* x_50; uint8 x_54;
x_48 = lean::cnstr_get(x_0, 0);
lean::inc(x_48);
x_50 = lean::cnstr_get(x_0, 1);
lean::inc(x_50);
lean::dec(x_0);
lean::inc(x_1);
x_54 = l_lean_name__set_contains(x_1, x_48);
if (x_54 == 0)
{
obj* x_55; obj* x_56; obj* x_57;
x_55 = lean::box(0);
x_56 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_48, x_55);
x_57 = l___private_init_lean_compiler_ir_7__args_collect___main(x_50, x_1, x_56);
return x_57;
}
else
{
obj* x_59;
lean::dec(x_48);
x_59 = l___private_init_lean_compiler_ir_7__args_collect___main(x_50, x_1, x_2);
return x_59;
}
}
case 11:
{
lean::dec(x_1);
lean::dec(x_0);
return x_2;
}
default:
{
obj* x_62; uint8 x_65;
x_62 = lean::cnstr_get(x_0, 0);
lean::inc(x_62);
lean::dec(x_0);
x_65 = l_lean_name__set_contains(x_1, x_62);
if (x_65 == 0)
{
obj* x_66; obj* x_67;
x_66 = lean::box(0);
x_67 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_62, x_66);
return x_67;
}
else
{
lean::dec(x_62);
return x_2;
}
}
}
}
}
obj* l___private_init_lean_compiler_ir_8__expr_collect(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l___private_init_lean_compiler_ir_8__expr_collect___main(x_0, x_1, x_2);
return x_3;
}
}
obj* l___private_init_lean_compiler_ir_9__fnbody_collect___main(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
switch (lean::obj_tag(x_0)) {
case 0:
{
obj* x_3; obj* x_5; obj* x_7; obj* x_11; obj* x_12; obj* x_13;
x_3 = lean::cnstr_get(x_0, 0);
lean::inc(x_3);
x_5 = lean::cnstr_get(x_0, 1);
lean::inc(x_5);
x_7 = lean::cnstr_get(x_0, 2);
lean::inc(x_7);
lean::dec(x_0);
lean::inc(x_1);
x_11 = l___private_init_lean_compiler_ir_8__expr_collect___main(x_5, x_1, x_2);
x_12 = lean::box(0);
x_13 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_1, x_3, x_12);
x_0 = x_7;
x_1 = x_13;
x_2 = x_11;
goto _start;
}
case 1:
{
obj* x_15; obj* x_17; obj* x_19; obj* x_21; obj* x_25; obj* x_26; obj* x_27; obj* x_28;
x_15 = lean::cnstr_get(x_0, 0);
lean::inc(x_15);
x_17 = lean::cnstr_get(x_0, 1);
lean::inc(x_17);
x_19 = lean::cnstr_get(x_0, 2);
lean::inc(x_19);
x_21 = lean::cnstr_get(x_0, 3);
lean::inc(x_21);
lean::dec(x_0);
lean::inc(x_1);
x_25 = l_list_foldl___main___at_lean_ir_insert__params___spec__1(x_1, x_17);
x_26 = l___private_init_lean_compiler_ir_9__fnbody_collect___main(x_19, x_25, x_2);
x_27 = lean::box(0);
x_28 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_1, x_15, x_27);
x_0 = x_21;
x_1 = x_28;
x_2 = x_26;
goto _start;
}
case 2:
{
obj* x_30; obj* x_32; obj* x_34; uint8 x_38; uint8 x_40;
x_30 = lean::cnstr_get(x_0, 0);
lean::inc(x_30);
x_32 = lean::cnstr_get(x_0, 2);
lean::inc(x_32);
x_34 = lean::cnstr_get(x_0, 3);
lean::inc(x_34);
lean::dec(x_0);
lean::inc(x_1);
x_38 = l_lean_name__set_contains(x_1, x_30);
lean::inc(x_1);
x_40 = l_lean_name__set_contains(x_1, x_32);
if (x_38 == 0)
{
obj* x_41; obj* x_42;
x_41 = lean::box(0);
x_42 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_30, x_41);
if (x_40 == 0)
{
obj* x_43;
x_43 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_42, x_32, x_41);
x_0 = x_34;
x_2 = x_43;
goto _start;
}
else
{
lean::dec(x_32);
x_0 = x_34;
x_2 = x_42;
goto _start;
}
}
else
{
lean::dec(x_30);
if (x_40 == 0)
{
obj* x_48; obj* x_49;
x_48 = lean::box(0);
x_49 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_32, x_48);
x_0 = x_34;
x_2 = x_49;
goto _start;
}
else
{
lean::dec(x_32);
x_0 = x_34;
goto _start;
}
}
}
case 3:
{
obj* x_53; obj* x_55; obj* x_57; uint8 x_61; uint8 x_63;
x_53 = lean::cnstr_get(x_0, 0);
lean::inc(x_53);
x_55 = lean::cnstr_get(x_0, 2);
lean::inc(x_55);
x_57 = lean::cnstr_get(x_0, 3);
lean::inc(x_57);
lean::dec(x_0);
lean::inc(x_1);
x_61 = l_lean_name__set_contains(x_1, x_53);
lean::inc(x_1);
x_63 = l_lean_name__set_contains(x_1, x_55);
if (x_61 == 0)
{
obj* x_64; obj* x_65;
x_64 = lean::box(0);
x_65 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_53, x_64);
if (x_63 == 0)
{
obj* x_66;
x_66 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_65, x_55, x_64);
x_0 = x_57;
x_2 = x_66;
goto _start;
}
else
{
lean::dec(x_55);
x_0 = x_57;
x_2 = x_65;
goto _start;
}
}
else
{
lean::dec(x_53);
if (x_63 == 0)
{
obj* x_71; obj* x_72;
x_71 = lean::box(0);
x_72 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_55, x_71);
x_0 = x_57;
x_2 = x_72;
goto _start;
}
else
{
lean::dec(x_55);
x_0 = x_57;
goto _start;
}
}
}
case 4:
{
obj* x_76; obj* x_78; obj* x_80; uint8 x_84; uint8 x_86;
x_76 = lean::cnstr_get(x_0, 0);
lean::inc(x_76);
x_78 = lean::cnstr_get(x_0, 3);
lean::inc(x_78);
x_80 = lean::cnstr_get(x_0, 4);
lean::inc(x_80);
lean::dec(x_0);
lean::inc(x_1);
x_84 = l_lean_name__set_contains(x_1, x_76);
lean::inc(x_1);
x_86 = l_lean_name__set_contains(x_1, x_78);
if (x_84 == 0)
{
obj* x_87; obj* x_88;
x_87 = lean::box(0);
x_88 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_76, x_87);
if (x_86 == 0)
{
obj* x_89;
x_89 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_88, x_78, x_87);
x_0 = x_80;
x_2 = x_89;
goto _start;
}
else
{
lean::dec(x_78);
x_0 = x_80;
x_2 = x_88;
goto _start;
}
}
else
{
lean::dec(x_76);
if (x_86 == 0)
{
obj* x_94; obj* x_95;
x_94 = lean::box(0);
x_95 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_78, x_94);
x_0 = x_80;
x_2 = x_95;
goto _start;
}
else
{
lean::dec(x_78);
x_0 = x_80;
goto _start;
}
}
}
case 8:
{
obj* x_99;
x_99 = lean::cnstr_get(x_0, 1);
lean::inc(x_99);
lean::dec(x_0);
x_0 = x_99;
goto _start;
}
case 9:
{
obj* x_103; obj* x_105; uint8 x_109;
x_103 = lean::cnstr_get(x_0, 1);
lean::inc(x_103);
x_105 = lean::cnstr_get(x_0, 2);
lean::inc(x_105);
lean::dec(x_0);
lean::inc(x_1);
x_109 = l_lean_name__set_contains(x_1, x_103);
if (x_109 == 0)
{
obj* x_110; obj* x_111; obj* x_112;
x_110 = lean::box(0);
x_111 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_103, x_110);
x_112 = l___private_init_lean_compiler_ir_9__alts_collect___main(x_105, x_1, x_111);
return x_112;
}
else
{
obj* x_114;
lean::dec(x_103);
x_114 = l___private_init_lean_compiler_ir_9__alts_collect___main(x_105, x_1, x_2);
return x_114;
}
}
case 10:
{
obj* x_115; uint8 x_118;
x_115 = lean::cnstr_get(x_0, 0);
lean::inc(x_115);
lean::dec(x_0);
x_118 = l_lean_name__set_contains(x_1, x_115);
if (x_118 == 0)
{
obj* x_119; obj* x_120;
x_119 = lean::box(0);
x_120 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_115, x_119);
return x_120;
}
else
{
lean::dec(x_115);
return x_2;
}
}
case 11:
{
obj* x_122; obj* x_124; uint8 x_128;
x_122 = lean::cnstr_get(x_0, 0);
lean::inc(x_122);
x_124 = lean::cnstr_get(x_0, 1);
lean::inc(x_124);
lean::dec(x_0);
lean::inc(x_1);
x_128 = l_lean_name__set_contains(x_1, x_122);
if (x_128 == 0)
{
obj* x_129; obj* x_130; obj* x_131;
x_129 = lean::box(0);
x_130 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_122, x_129);
x_131 = l___private_init_lean_compiler_ir_7__args_collect___main(x_124, x_1, x_130);
return x_131;
}
else
{
obj* x_133;
lean::dec(x_122);
x_133 = l___private_init_lean_compiler_ir_7__args_collect___main(x_124, x_1, x_2);
return x_133;
}
}
case 12:
{
lean::dec(x_1);
return x_2;
}
default:
{
obj* x_135; obj* x_137; uint8 x_141;
x_135 = lean::cnstr_get(x_0, 0);
lean::inc(x_135);
x_137 = lean::cnstr_get(x_0, 2);
lean::inc(x_137);
lean::dec(x_0);
lean::inc(x_1);
x_141 = l_lean_name__set_contains(x_1, x_135);
if (x_141 == 0)
{
obj* x_142; obj* x_143;
x_142 = lean::box(0);
x_143 = l_rbmap_insert___main___at_lean_name__set_insert___spec__1(x_2, x_135, x_142);
x_0 = x_137;
x_2 = x_143;
goto _start;
}
else
{
lean::dec(x_135);
x_0 = x_137;
goto _start;
}
}
}
}
}
obj* l___private_init_lean_compiler_ir_9__alts_collect___main(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
lean::dec(x_1);
return x_2;
}
else
{
obj* x_4; obj* x_6; obj* x_10;
x_4 = lean::cnstr_get(x_0, 0);
lean::inc(x_4);
x_6 = lean::cnstr_get(x_0, 1);
lean::inc(x_6);
lean::dec(x_0);
lean::inc(x_1);
x_10 = l___private_init_lean_compiler_ir_9__alt_collect___main(x_4, x_1, x_2);
x_0 = x_6;
x_2 = x_10;
goto _start;
}
}
}
obj* l___private_init_lean_compiler_ir_9__alt_collect___main(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_0) == 0)
{
obj* x_3; obj* x_6;
x_3 = lean::cnstr_get(x_0, 1);
lean::inc(x_3);
lean::dec(x_0);
x_6 = l___private_init_lean_compiler_ir_9__fnbody_collect___main(x_3, x_1, x_2);
return x_6;
}
else
{
obj* x_7; obj* x_10;
x_7 = lean::cnstr_get(x_0, 0);
lean::inc(x_7);
lean::dec(x_0);
x_10 = l___private_init_lean_compiler_ir_9__fnbody_collect___main(x_7, x_1, x_2);
return x_10;
}
}
}
obj* l___private_init_lean_compiler_ir_9__fnbody_collect(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l___private_init_lean_compiler_ir_9__fnbody_collect___main(x_0, x_1, x_2);
return x_3;
}
}
obj* l___private_init_lean_compiler_ir_9__alts_collect(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l___private_init_lean_compiler_ir_9__alts_collect___main(x_0, x_1, x_2);
return x_3;
}
}
obj* l___private_init_lean_compiler_ir_9__alt_collect(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l___private_init_lean_compiler_ir_9__alt_collect___main(x_0, x_1, x_2);
return x_3;
}
}
obj* l_lean_ir_free__vars(obj* x_0) {
_start:
{
obj* x_1; obj* x_2;
x_1 = lean::box(0);
x_2 = l___private_init_lean_compiler_ir_9__fnbody_collect___main(x_0, x_1, x_1);
return x_2;
}
}
void initialize_init_default();
void initialize_init_lean_name();
void initialize_init_lean_kvmap();
static bool _G_initialized = false;
void initialize_init_lean_compiler_ir() {
if (_G_initialized) return;
_G_initialized = true;
initialize_init_default();
initialize_init_lean_name();
initialize_init_lean_kvmap();
l_lean_ir_type_has__beq = _init_l_lean_ir_type_has__beq();
lean::mark_persistent(l_lean_ir_type_has__beq);
l_lean_ir_litval_has__beq = _init_l_lean_ir_litval_has__beq();
lean::mark_persistent(l_lean_ir_litval_has__beq);
l_lean_ir_ctor__info_has__beq = _init_l_lean_ir_ctor__info_has__beq();
lean::mark_persistent(l_lean_ir_ctor__info_has__beq);
l_lean_ir_varid_has__aeqv = _init_l_lean_ir_varid_has__aeqv();
lean::mark_persistent(l_lean_ir_varid_has__aeqv);
l_lean_ir_arg_has__aeqv = _init_l_lean_ir_arg_has__aeqv();
lean::mark_persistent(l_lean_ir_arg_has__aeqv);
l_lean_ir_args_has__aeqv = _init_l_lean_ir_args_has__aeqv();
lean::mark_persistent(l_lean_ir_args_has__aeqv);
l_lean_ir_expr_has__aeqv = _init_l_lean_ir_expr_has__aeqv();
lean::mark_persistent(l_lean_ir_expr_has__aeqv);
l_lean_ir_fnbody_has__beq = _init_l_lean_ir_fnbody_has__beq();
lean::mark_persistent(l_lean_ir_fnbody_has__beq);
}