// Lean compiler output // Module: init.data.fin.basic // Imports: init.data.nat.div #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 obj* l_fin_elim0(obj*, obj*); obj* l_fin_has__lt(obj*); obj* l_fin_dec__lt___boxed(obj*); obj* l_fin_of__nat___boxed(obj*, obj*); obj* l_fin_modn(obj*, obj*, obj*); obj* l_fin_has__one(obj*); obj* l_fin_elim0___main(obj*, obj*); uint8 l_fin_dec__lt___rarg(obj*, obj*); namespace lean { obj* nat_add(obj*, obj*); } obj* l_fin_mod(obj*, obj*, obj*); obj* l_fin_le; namespace lean { obj* nat_mod(obj*, obj*); } obj* l_fin_add___main___boxed(obj*, obj*, obj*); uint8 l_fin_dec__le___rarg(obj*, obj*); obj* l_fin_has__le(obj*); obj* l_fin_sub___boxed(obj*, obj*, obj*); obj* l_fin_sub(obj*, obj*, obj*); obj* l_fin_decidable__eq(obj*); obj* l_fin_modn___boxed(obj*, obj*, obj*); obj* l_fin_has__le___boxed(obj*); obj* l_fin_mod___main___boxed(obj*, obj*, obj*); obj* l_fin_mod___main(obj*, obj*, obj*); obj* l_fin_lt; obj* l_fin_mul___boxed(obj*, obj*, obj*); obj* l_fin_mod___boxed(obj*, obj*, obj*); obj* l_fin_mul___main___boxed(obj*, obj*, obj*); obj* l_fin_add(obj*, obj*, obj*); obj* l_fin_has__lt___boxed(obj*); obj* l_fin_decidable__eq___boxed(obj*); namespace lean { uint8 nat_dec_eq(obj*, obj*); } obj* l_fin_has__one___boxed(obj*); obj* l_fin_sub___main___boxed(obj*, obj*, obj*); obj* l_fin_add___main(obj*, obj*, obj*); obj* l_fin_of__nat(obj*, obj*); obj* l_fin_has__zero___boxed(obj*); obj* l_fin_add___boxed(obj*, obj*, obj*); obj* l_fin_div___boxed(obj*, obj*, obj*); namespace lean { uint8 nat_dec_le(obj*, obj*); } obj* l_fin_elim0___main___boxed(obj*, obj*); obj* l_fin_has__sub(obj*); namespace lean { obj* nat_div(obj*, obj*); } obj* l_fin_elim0___boxed(obj*, obj*); obj* l_fin_mul___main(obj*, obj*, obj*); obj* l_fin_modn___main___boxed(obj*, obj*, obj*); obj* l_fin_has__div(obj*); obj* l_fin_dec__le(obj*); obj* l_fin_has__zero(obj*); obj* l_fin_decidable__eq___rarg___boxed(obj*, obj*); obj* l_fin_sub___main(obj*, obj*, obj*); obj* l_fin_mul(obj*, obj*, obj*); obj* l_fin_has__modn(obj*); obj* l_fin_dec__le___rarg___boxed(obj*, obj*); obj* l_fin_dec__lt(obj*); obj* l_fin_dec__le___boxed(obj*); namespace lean { obj* nat_mul(obj*, obj*); } obj* l_fin_div___main(obj*, obj*, obj*); obj* l_fin_dec__lt___rarg___boxed(obj*, obj*); namespace lean { obj* nat_sub(obj*, obj*); } obj* l_fin_has__mod(obj*); obj* l_fin_has__mul(obj*); obj* l_fin_modn___main(obj*, obj*, obj*); obj* l_fin_div(obj*, obj*, obj*); obj* l_fin_has__add(obj*); obj* l_fin_div___main___boxed(obj*, obj*, obj*); namespace lean { uint8 nat_dec_lt(obj*, obj*); } uint8 l_fin_decidable__eq___rarg(obj*, obj*); obj* _init_l_fin_lt() { _start: { obj* x_0; x_0 = lean::box(0); return x_0; } } obj* _init_l_fin_le() { _start: { obj* x_0; x_0 = lean::box(0); return x_0; } } obj* l_fin_has__lt(obj* x_0) { _start: { obj* x_1; x_1 = lean::box(0); return x_1; } } obj* l_fin_has__lt___boxed(obj* x_0) { _start: { obj* x_1; x_1 = l_fin_has__lt(x_0); lean::dec(x_0); return x_1; } } obj* l_fin_has__le(obj* x_0) { _start: { obj* x_1; x_1 = lean::box(0); return x_1; } } obj* l_fin_has__le___boxed(obj* x_0) { _start: { obj* x_1; x_1 = l_fin_has__le(x_0); lean::dec(x_0); return x_1; } } uint8 l_fin_dec__lt___rarg(obj* x_0, obj* x_1) { _start: { uint8 x_2; x_2 = lean::nat_dec_lt(x_0, x_1); return x_2; } } obj* l_fin_dec__lt(obj* x_0) { _start: { obj* x_1; x_1 = lean::alloc_closure(reinterpret_cast(l_fin_dec__lt___rarg___boxed), 2, 0); return x_1; } } obj* l_fin_dec__lt___rarg___boxed(obj* x_0, obj* x_1) { _start: { uint8 x_2; obj* x_3; x_2 = l_fin_dec__lt___rarg(x_0, x_1); x_3 = lean::box(x_2); lean::dec(x_0); lean::dec(x_1); return x_3; } } obj* l_fin_dec__lt___boxed(obj* x_0) { _start: { obj* x_1; x_1 = l_fin_dec__lt(x_0); lean::dec(x_0); return x_1; } } uint8 l_fin_dec__le___rarg(obj* x_0, obj* x_1) { _start: { uint8 x_2; x_2 = lean::nat_dec_le(x_0, x_1); return x_2; } } obj* l_fin_dec__le(obj* x_0) { _start: { obj* x_1; x_1 = lean::alloc_closure(reinterpret_cast(l_fin_dec__le___rarg___boxed), 2, 0); return x_1; } } obj* l_fin_dec__le___rarg___boxed(obj* x_0, obj* x_1) { _start: { uint8 x_2; obj* x_3; x_2 = l_fin_dec__le___rarg(x_0, x_1); x_3 = lean::box(x_2); lean::dec(x_0); lean::dec(x_1); return x_3; } } obj* l_fin_dec__le___boxed(obj* x_0) { _start: { obj* x_1; x_1 = l_fin_dec__le(x_0); lean::dec(x_0); return x_1; } } obj* l_fin_elim0___main(obj* x_0, obj* x_1) { _start: { lean_unreachable(); } } obj* l_fin_elim0___main___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = l_fin_elim0___main(x_0, x_1); lean::dec(x_0); lean::dec(x_1); return x_2; } } obj* l_fin_elim0(obj* x_0, obj* x_1) { _start: { lean_unreachable(); } } obj* l_fin_elim0___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = l_fin_elim0(x_0, x_1); lean::dec(x_0); lean::dec(x_1); return x_2; } } obj* l_fin_of__nat(obj* x_0, obj* x_1) { _start: { obj* x_2; obj* x_3; obj* x_4; x_2 = lean::mk_nat_obj(1u); x_3 = lean::nat_add(x_0, x_2); x_4 = lean::nat_mod(x_1, x_3); lean::dec(x_3); return x_4; } } obj* l_fin_of__nat___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; x_2 = l_fin_of__nat(x_0, x_1); lean::dec(x_0); lean::dec(x_1); return x_2; } } obj* l_fin_add___main(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; obj* x_4; x_3 = lean::nat_add(x_1, x_2); x_4 = lean::nat_mod(x_3, x_0); lean::dec(x_3); return x_4; } } obj* l_fin_add___main___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_add___main(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_fin_add(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_add___main(x_0, x_1, x_2); return x_3; } } obj* l_fin_add___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_add(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_fin_mul___main(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; obj* x_4; x_3 = lean::nat_mul(x_1, x_2); x_4 = lean::nat_mod(x_3, x_0); lean::dec(x_3); return x_4; } } obj* l_fin_mul___main___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_mul___main(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_fin_mul(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_mul___main(x_0, x_1, x_2); return x_3; } } obj* l_fin_mul___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_mul(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_fin_sub___main(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; obj* x_4; obj* x_6; x_3 = lean::nat_sub(x_0, x_2); x_4 = lean::nat_add(x_1, x_3); lean::dec(x_3); x_6 = lean::nat_mod(x_4, x_0); lean::dec(x_4); return x_6; } } obj* l_fin_sub___main___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_sub___main(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_fin_sub(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_sub___main(x_0, x_1, x_2); return x_3; } } obj* l_fin_sub___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_sub(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_fin_mod___main(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; obj* x_4; x_3 = lean::nat_mod(x_1, x_2); x_4 = lean::nat_mod(x_3, x_0); lean::dec(x_3); return x_4; } } obj* l_fin_mod___main___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_mod___main(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_fin_mod(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_mod___main(x_0, x_1, x_2); return x_3; } } obj* l_fin_mod___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_mod(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_fin_div___main(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; obj* x_4; x_3 = lean::nat_div(x_1, x_2); x_4 = lean::nat_mod(x_3, x_0); lean::dec(x_3); return x_4; } } obj* l_fin_div___main___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_div___main(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_fin_div(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_div___main(x_0, x_1, x_2); return x_3; } } obj* l_fin_div___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_div(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_fin_modn___main(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; obj* x_4; x_3 = lean::nat_mod(x_1, x_2); x_4 = lean::nat_mod(x_3, x_0); lean::dec(x_3); return x_4; } } obj* l_fin_modn___main___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_modn___main(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_fin_modn(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_modn___main(x_0, x_1, x_2); return x_3; } } obj* l_fin_modn___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; x_3 = l_fin_modn(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); return x_3; } } obj* l_fin_has__zero(obj* x_0) { _start: { obj* x_1; x_1 = lean::mk_nat_obj(0u); return x_1; } } obj* l_fin_has__zero___boxed(obj* x_0) { _start: { obj* x_1; x_1 = l_fin_has__zero(x_0); lean::dec(x_0); return x_1; } } obj* l_fin_has__one(obj* x_0) { _start: { obj* x_1; obj* x_2; x_1 = lean::mk_nat_obj(1u); x_2 = l_fin_of__nat(x_0, x_1); return x_2; } } obj* l_fin_has__one___boxed(obj* x_0) { _start: { obj* x_1; x_1 = l_fin_has__one(x_0); lean::dec(x_0); return x_1; } } obj* l_fin_has__add(obj* x_0) { _start: { obj* x_1; x_1 = lean::alloc_closure(reinterpret_cast(l_fin_add___boxed), 3, 1); lean::closure_set(x_1, 0, x_0); return x_1; } } obj* l_fin_has__sub(obj* x_0) { _start: { obj* x_1; x_1 = lean::alloc_closure(reinterpret_cast(l_fin_sub___boxed), 3, 1); lean::closure_set(x_1, 0, x_0); return x_1; } } obj* l_fin_has__mul(obj* x_0) { _start: { obj* x_1; x_1 = lean::alloc_closure(reinterpret_cast(l_fin_mul___boxed), 3, 1); lean::closure_set(x_1, 0, x_0); return x_1; } } obj* l_fin_has__mod(obj* x_0) { _start: { obj* x_1; x_1 = lean::alloc_closure(reinterpret_cast(l_fin_mod___boxed), 3, 1); lean::closure_set(x_1, 0, x_0); return x_1; } } obj* l_fin_has__div(obj* x_0) { _start: { obj* x_1; x_1 = lean::alloc_closure(reinterpret_cast(l_fin_div___boxed), 3, 1); lean::closure_set(x_1, 0, x_0); return x_1; } } obj* l_fin_has__modn(obj* x_0) { _start: { obj* x_1; x_1 = lean::alloc_closure(reinterpret_cast(l_fin_modn___boxed), 3, 1); lean::closure_set(x_1, 0, x_0); return x_1; } } uint8 l_fin_decidable__eq___rarg(obj* x_0, obj* x_1) { _start: { uint8 x_2; x_2 = lean::nat_dec_eq(x_0, x_1); if (x_2 == 0) { uint8 x_3; x_3 = 0; return x_3; } else { uint8 x_4; x_4 = 1; return x_4; } } } obj* l_fin_decidable__eq(obj* x_0) { _start: { obj* x_1; x_1 = lean::alloc_closure(reinterpret_cast(l_fin_decidable__eq___rarg___boxed), 2, 0); return x_1; } } obj* l_fin_decidable__eq___rarg___boxed(obj* x_0, obj* x_1) { _start: { uint8 x_2; obj* x_3; x_2 = l_fin_decidable__eq___rarg(x_0, x_1); x_3 = lean::box(x_2); lean::dec(x_0); lean::dec(x_1); return x_3; } } obj* l_fin_decidable__eq___boxed(obj* x_0) { _start: { obj* x_1; x_1 = l_fin_decidable__eq(x_0); lean::dec(x_0); return x_1; } } void initialize_init_data_nat_div(); static bool _G_initialized = false; void initialize_init_data_fin_basic() { if (_G_initialized) return; _G_initialized = true; initialize_init_data_nat_div(); l_fin_lt = _init_l_fin_lt(); lean::mark_persistent(l_fin_lt); l_fin_le = _init_l_fin_le(); lean::mark_persistent(l_fin_le); }