diff --git a/library/init/data/array/basic.lean b/library/init/data/array/basic.lean index dafc7010df..c6fb5ab2e0 100644 --- a/library/init/data/array/basic.lean +++ b/library/init/data/array/basic.lean @@ -10,7 +10,7 @@ universes u v w /- The Compiler has special support for arrays. -They are implemented as a dynamic Array. +They are implemented using dynamic arrays: https://en.wikipedia.org/wiki/Dynamic_array -/ -- TODO(Leo): mark as opaque @@ -24,24 +24,28 @@ attribute [extern cpp inline "lean::array_sz(#2)"] Array.sz def Array.size {α : Type u} (a : @& Array α) : Nat := a.sz -@[extern cpp inline "lean::mk_array(#2, #3)"] -def mkArray {α : Type u} (n : Nat) (v : α) : Array α := -{ sz := n, - data := λ _, v} - -theorem szMkArrayEq {α : Type u} (n : Nat) (v : α) : (mkArray n v).sz = n := -rfl - namespace Array variables {α : Type u} {β : Type v} -@[extern cpp inline "lean::mk_empty_array()"] -def mkEmpty (_ : Unit) : Array α := +/- The parameter `c` is the initial capacity -/ +@[extern cpp inline "lean::mk_empty_array(#1)"] +def mkEmpty (c : @& Nat) : Array α := { sz := 0, data := λ ⟨x, h⟩, absurd h (Nat.notLtZero x) } +@[extern cpp inline "lean::array_push(#2, #3)"] +def push (a : Array α) (v : α) : Array α := +{ sz := Nat.succ a.sz, + data := λ ⟨j, h₁⟩, + if h₂ : j = a.sz then v + else a.data ⟨j, Nat.ltOfLeOfNe (Nat.leOfLtSucc h₁) h₂⟩ } + +def mkArray {α : Type u} (n : Nat) (v : α) : Array α := +let a : Array α := mkEmpty n in +n.repeat (λ _ a, a.push v) a + def empty : Array α := -mkEmpty () +mkEmpty 0 instance : HasEmptyc (Array α) := ⟨Array.empty⟩ @@ -94,13 +98,6 @@ if h : i < a.sz then a.update ⟨i, h⟩ v else a theorem szUpdateEq (a : Array α) (i : Fin a.sz) (v : α) : (update a i v).sz = a.sz := rfl -@[extern cpp inline "lean::array_push(#2, #3)"] -def push (a : Array α) (v : α) : Array α := -{ sz := Nat.succ a.sz, - data := λ ⟨j, h₁⟩, - if h₂ : j = a.sz then v - else a.data ⟨j, Nat.ltOfLeOfNe (Nat.leOfLtSucc h₁) h₂⟩ } - @[extern cpp inline "lean::array_pop(#2)"] def pop (a : Array α) : Array α := { sz := Nat.pred a.sz, @@ -184,9 +181,42 @@ else foreach b (λ ⟨i, h'⟩, f (a.index ⟨i, Nat.ltTrans h' (Nat.gtOfNotLe h end Array +export Array (mkArray) + +private theorem repeatCoreIndexIndep {α : Type u} (f : α → α) (n m₁ m₂ : Nat) : + ∀ (a : α), Nat.repeatCore (λ _ a, f a) m₁ n a = + Nat.repeatCore (λ _ a, f a) m₂ n a := +Nat.recOn n (λ a, rfl) (λ n ih a, + show Nat.repeatCore (λ _ a, f a) m₁ n (f a) = + Nat.repeatCore (λ _ a, f a) m₂ n (f a), from + ih (f a)) + +private theorem repeatCorePushSz {α : Type u} : ∀ (n m : Nat) (v : α) (a : Array α), + (Nat.repeatCore (λ _ (a : Array α), a.push v) m n (a.push v)).sz = + (Nat.repeatCore (λ _ (a : Array α), a.push v) m n a).sz.succ +| 0 _ _ _ := rfl +| (Nat.succ n) m v a := + show (Nat.repeatCore (λ _ (a : Array α), a.push v) m n ((a.push v).push v)).sz = + (Nat.repeatCore (λ _ (a : Array α), a.push v) m n (a.push v)).sz.succ, from + repeatCorePushSz n m v (a.push v) + +theorem szMkArrayEq {α : Type u} (n : Nat) (v : α) : (mkArray n v).sz = n := +Nat.recOn n rfl $ λ n ih, + have aux₁ : (Nat.repeatCore (λ _ (a : Array α), a.push v) n n (Array.mkEmpty n)).sz = n, from ih, + have aux₂ : (Nat.repeatCore (λ _ (a : Array α), a.push v) n.succ n (Array.mkEmpty n)).sz = n, from + repeatCoreIndexIndep (λ (a : Array α), a.push v) n n n.succ (Array.mkEmpty n) ▸ aux₁, + have aux₃ : (Nat.repeatCore (λ _ (a : Array α), a.push v) n.succ n ((Array.mkEmpty n).push v)).sz = + (Nat.repeatCore (λ _ (a : Array α), a.push v) n.succ n (Array.mkEmpty n)).sz.succ, from + repeatCorePushSz _ _ _ _, + have aux₄ : (Nat.repeatCore (λ _ (a : Array α), a.push v) n.succ n (Array.mkEmpty n)).sz.succ = n.succ, from + congrArg _ aux₂, + have aux₄ : (Nat.repeatCore (λ _ (a : Array α), a.push v) n.succ n ((Array.mkEmpty n).push v)).sz = n.succ, from + Eq.trans aux₃ aux₄, + aux₄ + @[inlineIfReduce] def List.toArrayAux {α : Type u} : List α → Array α → Array α | [] r := r | (a::as) r := List.toArrayAux as (r.push a) -@[inline] def List.toArray {α : Type u} (l : List α) : Array α := -l.toArrayAux ∅ +@[inline] def List.toArray {α : Type u} (as : List α) : Array α := +as.toArrayAux (Array.mkEmpty as.length) diff --git a/library/init/data/hashmap/basic.lean b/library/init/data/hashmap/basic.lean index 2de8c86559..7d4b499547 100644 --- a/library/init/data/hashmap/basic.lean +++ b/library/init/data/hashmap/basic.lean @@ -82,9 +82,10 @@ match m with if size' <= buckets.val.sz then ⟨size', buckets'⟩ else let nbuckets' := buckets.val.sz * 2 in - let nz' : nbuckets' > 0 := Nat.mulPos buckets.property (Nat.zeroLtBit0 Nat.oneNeZero) in + let aux₁ : nbuckets' > 0 := Nat.mulPos buckets.property (Nat.zeroLtBit0 Nat.oneNeZero) in + let aux₂ : (mkArray nbuckets' ([] : List (Σ a, β a))).sz = nbuckets' := szMkArrayEq _ _ in ⟨ size', - foldBuckets buckets' ⟨mkArray nbuckets' [], nz'⟩ (reinsertAux hash) ⟩ + foldBuckets buckets' ⟨mkArray nbuckets' [], aux₂.symm ▸ aux₁⟩ (reinsertAux hash) ⟩ def erase [DecidableEq α] [Hashable α] (m : HashmapImp α β) (a : α) : HashmapImp α β := match m with diff --git a/src/runtime/object.h b/src/runtime/object.h index 4930f3794b..cb89a54b95 100644 --- a/src/runtime/object.h +++ b/src/runtime/object.h @@ -1367,12 +1367,16 @@ inline object * array_get_size(b_obj_arg a) { return box(array_size(a)); } -object * mk_array(obj_arg n, obj_arg v); - inline object * mk_empty_array() { return alloc_array(0, 0); } +inline object * mk_empty_array(b_obj_arg capacity) { + if (!is_scalar(capacity)) throw std::bad_alloc(); // we will run out of memory + usize cap = unbox(capacity); + return alloc_array(0, cap); +} + inline object * array_idx(b_obj_arg a, usize i) { object * r = array_get(a, i); inc(r); return r; diff --git a/src/stage0/CMakeLists.txt b/src/stage0/CMakeLists.txt index c103224587..fff3f74475 100644 --- a/src/stage0/CMakeLists.txt +++ b/src/stage0/CMakeLists.txt @@ -1 +1 @@ -add_library (stage0 OBJECT ./init/coe.cpp ./init/control/alternative.cpp ./init/control/applicative.cpp ./init/control/combinators.cpp ./init/control/default.cpp ./init/control/estate.cpp ./init/control/except.cpp ./init/control/functor.cpp ./init/control/id.cpp ./init/control/lift.cpp ./init/control/monad.cpp ./init/control/monadfail.cpp ./init/control/option.cpp ./init/control/reader.cpp ./init/control/state.cpp ./init/core.cpp ./init/data/array/basic.cpp ./init/data/array/default.cpp ./init/data/basic.cpp ./init/data/char/basic.cpp ./init/data/char/default.cpp ./init/data/default.cpp ./init/data/dlist.cpp ./init/data/fin/basic.cpp ./init/data/fin/default.cpp ./init/data/hashable.cpp ./init/data/hashmap/basic.cpp ./init/data/int/basic.cpp ./init/data/int/default.cpp ./init/data/list/basic.cpp ./init/data/list/default.cpp ./init/data/list/instances.cpp ./init/data/nat/basic.cpp ./init/data/nat/bitwise.cpp ./init/data/nat/default.cpp ./init/data/nat/div.cpp ./init/data/option/basic.cpp ./init/data/option/instances.cpp ./init/data/ordering/basic.cpp ./init/data/ordering/default.cpp ./init/data/rbmap/basic.cpp ./init/data/rbmap/default.cpp ./init/data/rbtree/basic.cpp ./init/data/rbtree/default.cpp ./init/data/repr.cpp ./init/data/string/basic.cpp ./init/data/string/default.cpp ./init/data/tostring.cpp ./init/data/uint.cpp ./init/default.cpp ./init/env_ext.cpp ./init/io.cpp ./init/lean/compiler/constfolding.cpp ./init/lean/compiler/default.cpp ./init/lean/compiler/ir.cpp ./init/lean/compiler/util.cpp ./init/lean/config.cpp ./init/lean/declaration.cpp ./init/lean/default.cpp ./init/lean/disjoint_set.cpp ./init/lean/elaborator.cpp ./init/lean/expander.cpp ./init/lean/expr.cpp ./init/lean/extern.cpp ./init/lean/format.cpp ./init/lean/frontend.cpp ./init/lean/kvmap.cpp ./init/lean/level.cpp ./init/lean/message.cpp ./init/lean/name.cpp ./init/lean/name_mangling.cpp ./init/lean/options.cpp ./init/lean/parser/basic.cpp ./init/lean/parser/combinators.cpp ./init/lean/parser/command.cpp ./init/lean/parser/declaration.cpp ./init/lean/parser/identifier.cpp ./init/lean/parser/level.cpp ./init/lean/parser/module.cpp ./init/lean/parser/notation.cpp ./init/lean/parser/parsec.cpp ./init/lean/parser/pratt.cpp ./init/lean/parser/rec.cpp ./init/lean/parser/stringliteral.cpp ./init/lean/parser/syntax.cpp ./init/lean/parser/term.cpp ./init/lean/parser/token.cpp ./init/lean/parser/trie.cpp ./init/lean/position.cpp ./init/lean/trace.cpp ./init/lean/util.cpp ./init/platform.cpp ./init/util.cpp ./init/wf.cpp) +add_library (stage0 OBJECT ./init/coe.cpp ./init/control/alternative.cpp ./init/control/applicative.cpp ./init/control/combinators.cpp ./init/control/default.cpp ./init/control/estate.cpp ./init/control/except.cpp ./init/control/functor.cpp ./init/control/id.cpp ./init/control/lift.cpp ./init/control/monad.cpp ./init/control/monadfail.cpp ./init/control/option.cpp ./init/control/reader.cpp ./init/control/state.cpp ./init/core.cpp ./init/data/array/basic.cpp ./init/data/array/default.cpp ./init/data/basic.cpp ./init/data/char/basic.cpp ./init/data/char/default.cpp ./init/data/default.cpp ./init/data/dlist.cpp ./init/data/fin/basic.cpp ./init/data/fin/default.cpp ./init/data/hashable.cpp ./init/data/hashmap/basic.cpp ./init/data/int/basic.cpp ./init/data/int/default.cpp ./init/data/list/basic.cpp ./init/data/list/default.cpp ./init/data/list/instances.cpp ./init/data/nat/basic.cpp ./init/data/nat/bitwise.cpp ./init/data/nat/default.cpp ./init/data/nat/div.cpp ./init/data/option/basic.cpp ./init/data/option/instances.cpp ./init/data/ordering/basic.cpp ./init/data/ordering/default.cpp ./init/data/rbmap/basic.cpp ./init/data/rbmap/default.cpp ./init/data/rbtree/basic.cpp ./init/data/rbtree/default.cpp ./init/data/repr.cpp ./init/data/string/basic.cpp ./init/data/string/default.cpp ./init/data/tostring.cpp ./init/data/uint.cpp ./init/default.cpp ./init/env_ext.cpp ./init/fix.cpp ./init/io.cpp ./init/lean/compiler/constfolding.cpp ./init/lean/compiler/default.cpp ./init/lean/compiler/ir.cpp ./init/lean/compiler/util.cpp ./init/lean/config.cpp ./init/lean/declaration.cpp ./init/lean/default.cpp ./init/lean/disjoint_set.cpp ./init/lean/elaborator.cpp ./init/lean/expander.cpp ./init/lean/expr.cpp ./init/lean/extern.cpp ./init/lean/format.cpp ./init/lean/frontend.cpp ./init/lean/kvmap.cpp ./init/lean/level.cpp ./init/lean/message.cpp ./init/lean/name.cpp ./init/lean/name_mangling.cpp ./init/lean/options.cpp ./init/lean/parser/basic.cpp ./init/lean/parser/combinators.cpp ./init/lean/parser/command.cpp ./init/lean/parser/declaration.cpp ./init/lean/parser/identifier.cpp ./init/lean/parser/level.cpp ./init/lean/parser/module.cpp ./init/lean/parser/notation.cpp ./init/lean/parser/parsec.cpp ./init/lean/parser/pratt.cpp ./init/lean/parser/rec.cpp ./init/lean/parser/stringliteral.cpp ./init/lean/parser/syntax.cpp ./init/lean/parser/term.cpp ./init/lean/parser/token.cpp ./init/lean/parser/trie.cpp ./init/lean/position.cpp ./init/lean/trace.cpp ./init/lean/util.cpp ./init/platform.cpp ./init/util.cpp ./init/wf.cpp) diff --git a/src/stage0/init/control/monad.cpp b/src/stage0/init/control/monad.cpp index 18e7f7c43a..497e554e10 100644 --- a/src/stage0/init/control/monad.cpp +++ b/src/stage0/init/control/monad.cpp @@ -14,9 +14,12 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-label" #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif +obj* l_monadInhabited_x_27___rarg(obj*); obj* l_monadInhabited___rarg(obj*, obj*); obj* l_monadInhabited(obj*, obj*); +obj* l_monadInhabited_x_27___boxed(obj*, obj*); obj* l_monadInhabited___boxed(obj*, obj*); +obj* l_monadInhabited_x_27(obj*, obj*); obj* l_monadInhabited___rarg(obj* x_0, obj* x_1) { _start: { @@ -49,6 +52,38 @@ lean::dec(x_1); return x_2; } } +obj* l_monadInhabited_x_27___rarg(obj* x_0) { +_start: +{ +obj* x_1; obj* x_4; obj* x_7; +x_1 = lean::cnstr_get(x_0, 0); +lean::inc(x_1); +lean::dec(x_0); +x_4 = lean::cnstr_get(x_1, 1); +lean::inc(x_4); +lean::dec(x_1); +x_7 = lean::apply_1(x_4, lean::box(0)); +return x_7; +} +} +obj* l_monadInhabited_x_27(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_monadInhabited_x_27___rarg), 1, 0); +return x_2; +} +} +obj* l_monadInhabited_x_27___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_monadInhabited_x_27(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} obj* initialize_init_control_applicative(obj*); static bool _G_initialized = false; obj* initialize_init_control_monad(obj* w) { diff --git a/src/stage0/init/core.cpp b/src/stage0/init/core.cpp index 474fe992ac..45c2580149 100644 --- a/src/stage0/init/core.cpp +++ b/src/stage0/init/core.cpp @@ -33,6 +33,7 @@ obj* l_Fun_Inhabited(obj*, obj*); obj* l_inline___rarg(obj*); obj* l_inferInstanceAs___rarg(obj*); obj* l_Nat_Inhabited; +obj* l_strictAnd___boxed(obj*, obj*); obj* l_id___boxed(obj*); obj* l_Fun_Inhabited___rarg___boxed(obj*, obj*); obj* l_Quot_rec___rarg___boxed(obj*, obj*, obj*); @@ -236,6 +237,7 @@ obj* l_Quot_rec___boxed(obj*, obj*, obj*); obj* l_Prod_map___rarg(obj*, obj*, obj*); obj* l_PSigma_sizeof___at_PSigma_HasSizeof___spec__1(obj*, obj*); obj* l_Sum_HasSizeof___rarg(obj*, obj*); +obj* l_strictOr___boxed(obj*, obj*); obj* l_std_prec_arrow; obj* l_Quotient_DecidableEq___boxed(obj*); obj* l_bit0___rarg(obj*, obj*); @@ -257,6 +259,7 @@ obj* l_inline___boxed(obj*); namespace lean { obj* nat_add(obj*, obj*); } +uint8 l_strictOr(uint8, uint8); obj* l_Subtype_sizeof___boxed(obj*); obj* l_PSigma_sizeof___boxed(obj*, obj*); uint8 l_not___main(uint8); @@ -471,6 +474,7 @@ uint8 l_or___main(uint8, uint8); obj* l___private_init_core_21__funSetoid___boxed(obj*, obj*); obj* l_Or_Decidable___boxed(obj*, obj*); obj* l_Decidable_recOnFalse___boxed(obj*); +uint8 l_strictAnd(uint8, uint8); obj* l_Eq_mp___rarg(obj*); obj* l_Quotient_hrecOn___boxed(obj*, obj*, obj*); obj* l_id___rarg(obj* x_0) { @@ -685,7 +689,7 @@ obj* l_Thunk_get___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; -x_2 = lean::thunk_get(x_1); +x_2 = lean::thunk_get_own(x_1); lean::dec(x_1); return x_2; } @@ -2483,6 +2487,58 @@ x_5 = lean::box(x_4); return x_5; } } +uint8 l_strictOr(uint8 x_0, uint8 x_1) { +_start: +{ +if (x_0 == 0) +{ +return x_1; +} +else +{ +uint8 x_2; +x_2 = 1; +return x_2; +} +} +} +obj* l_strictOr___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_strictOr(x_2, x_3); +x_5 = lean::box(x_4); +return x_5; +} +} +uint8 l_strictAnd(uint8 x_0, uint8 x_1) { +_start: +{ +if (x_0 == 0) +{ +uint8 x_2; +x_2 = 0; +return x_2; +} +else +{ +return x_1; +} +} +} +obj* l_strictAnd___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_strictAnd(x_2, x_3); +x_5 = lean::box(x_4); +return x_5; +} +} uint8 l_bne___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { diff --git a/src/stage0/init/data/array/basic.cpp b/src/stage0/init/data/array/basic.cpp index 3d8ae601bb..42a172e9dc 100644 --- a/src/stage0/init/data/array/basic.cpp +++ b/src/stage0/init/data/array/basic.cpp @@ -1,6 +1,6 @@ // Lean compiler output // Module: init.data.array.basic -// Imports: init.data.nat.basic init.data.fin.basic init.data.uint init.data.repr init.data.tostring +// Imports: init.data.nat.basic init.data.fin.basic init.data.uint init.data.repr init.data.tostring init.control.id #include "runtime/object.h" #include "runtime/apply.h" typedef lean::object obj; typedef lean::usize usize; @@ -15,114 +15,139 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif obj* l_List_toArrayAux___rarg(obj*, obj*); +obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1(obj*); +obj* l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1___boxed(obj*, obj*); obj* l_Array_toList___rarg___boxed(obj*); obj* l_Array_empty___closed__1; namespace lean { obj* nat_sub(obj*, obj*); } -obj* l_Array_iterateAux___main(obj*, obj*); -obj* l_Array_iterateAux___main___at_Array_map_u_2082___spec__2___rarg(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Array_iterateAux___main___at_Array_map_u_2082___spec__1___boxed(obj*); +obj* l_Array_miterateAux___main___at_Array_mforeach___spec__1(obj*, obj*); +obj* l_Array_getOpt(obj*); obj* l_List_repr___rarg(obj*, obj*); obj* l_Array_update___boxed(obj*, obj*, obj*, obj*); obj* l___private_init_data_array_basic_1__revIterateAux___main___at_Array_toList___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Array_revFoldl(obj*, obj*); +obj* l_Array_miterate___boxed(obj*, obj*, obj*); +obj* l_Array_mkArray(obj*); obj* l_Array_isEmpty___boxed(obj*); -obj* l_Array_iterateAux___main___at___private_init_data_array_basic_2__foreachAux___spec__1___boxed(obj*); +obj* l_Array_mfoldl___rarg(obj*, obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_iterate___spec__1(obj*, obj*); +obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_Array_foreach___rarg(obj*, obj*); obj* l___private_init_data_array_basic_1__revIterateAux___main___at_Array_revFoldl___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Array_HasRepr(obj*); -obj* l_Array_iterateAux___main___rarg(obj*, obj*, obj*, obj*); +obj* l_Array_singleton___boxed(obj*); +obj* l_Array_miterateAux___main___at_Array_foreach___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_iterate___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Function_comp___rarg(obj*, obj*, obj*); obj* l___private_init_data_array_basic_1__revIterateAux___main___rarg___boxed(obj*, obj*, obj*, obj*, obj*); +obj* l_Array_miterate___rarg(obj*, obj*, obj*, obj*); obj* l_Array_iterate___boxed(obj*, obj*); obj* l_Array_size___boxed(obj*, obj*); +obj* l_Array_mforeach___rarg___lambda__1___boxed(obj*); +obj* l_Array_miterateAux___main___at_Array_map_u_2082___spec__2___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_List_toArrayAux___main___rarg(obj*, obj*); +obj* l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Array_foreach___boxed(obj*); -obj* l___private_init_data_array_basic_2__foreachAux___boxed(obj*); obj* l___private_init_data_array_basic_1__revIterateAux___rarg___boxed(obj*, obj*, obj*, obj*, obj*); +obj* l_Array_mfoldl___boxed(obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_mfoldl___spec__1(obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_iterate___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Array_pop___boxed(obj*, obj*); obj* l_Array_foreach(obj*); +obj* l_Array_Inhabited___boxed(obj*); +obj* l___private_init_data_array_basic_2__mforeachAux(obj*, obj*); obj* l_List_toArrayAux___main___boxed(obj*); obj* l_List_toArrayAux(obj*); +obj* l_Array_miterateAux___main___at_Array_map___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); +obj* l_Array_mforeach___rarg___closed__1; +obj* l_Array_mkArray___boxed(obj*); obj* l___private_init_data_array_basic_1__revIterateAux___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Array_toList___boxed(obj*); -obj* l_Array_iterateAux___main___at_Array_foldl___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Array_map___rarg(obj*, obj*); obj* l_Array_empty(obj*); obj* l_Array_HasEmptyc(obj*); obj* l_Array_map_u_2082(obj*); obj* l_Array_toList___rarg(obj*); obj* l___private_init_data_array_basic_1__revIterateAux___main___at_Array_revFoldl___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l___private_init_data_array_basic_2__foreachAux(obj*); obj* l_Array_get___boxed(obj*, obj*, obj*, obj*); -obj* l_Array_iterateAux___main___at_Array_map_u_2082___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Array_iterate(obj*, obj*); -obj* l_Array_iterateAux___rarg(obj*, obj*, obj*, obj*); -obj* l_Array_iterateAux___main___at_Array_map_u_2082___spec__1(obj*); -obj* l_Array_iterateAux___boxed(obj*, obj*); -obj* l_Array_iterateAux___main___at_Array_foreach___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_mfoldl___spec__1___boxed(obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_map_u_2082___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_Array_miterateAux___rarg(obj*, obj*, obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_map_u_2082___spec__2(obj*); +obj* l_Array_mforeach___boxed(obj*, obj*); obj* l___private_init_data_array_basic_1__revIterateAux___main(obj*, obj*); obj* l___private_init_data_array_basic_1__revIterateAux___main___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_List_toString___rarg(obj*, obj*); -obj* l_Array_iterateAux___main___at_Array_map_u_2082___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Array_iterateAux___main___at_Array_foldl___spec__1___boxed(obj*, obj*); -obj* l_Array_iterateAux___main___at_Array_foldl___spec__1(obj*, obj*); obj* l_Array_revIterate___boxed(obj*, obj*); obj* l_Array_revFoldl___rarg___boxed(obj*, obj*, obj*); namespace lean { uint8 nat_dec_lt(obj*, obj*); } +obj* l_Array_miterateAux___main(obj*, obj*, obj*); obj* l_Array_foldl(obj*, obj*); -obj* l_Array_iterateAux___main___at_Array_map___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); -obj* l___private_init_data_array_basic_2__foreachAux___rarg(obj*, obj*); +obj* l_Array_mforeach___rarg___lambda__1(obj*); obj* l_Array_foldl___boxed(obj*, obj*); -obj* l_Array_iterateAux___main___at___private_init_data_array_basic_2__foreachAux___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_mmap___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_Array_singleton___rarg(obj*); obj* l_Array_HasEmptyc___boxed(obj*); +obj* l_Array_miterateAux___main___at_Array_foldl___spec__1___boxed(obj*, obj*); obj* l_Array_map_u_2082___boxed(obj*); namespace lean { obj* nat_add(obj*, obj*); } -obj* l_Array_iterateAux___main___at_Array_map_u_2082___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Array_iterateAux___main___at___private_init_data_array_basic_2__foreachAux___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); +obj* l___private_init_data_array_basic_2__mforeachAux___boxed(obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_mforeach___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); namespace lean { uint8 nat_dec_eq(obj*, obj*); } obj* l___private_init_data_array_basic_1__revIterateAux___main___at_Array_revFoldl___spec__1(obj*, obj*); uint8 l_Array_isEmpty___rarg(obj*); -obj* l_Array_iterateAux___main___at_Array_foreach___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); -obj* l_Array_iterateAux___main___at_Array_map___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Array_push___boxed(obj*, obj*, obj*); obj* l_Array_map(obj*); obj* l_Array_map___boxed(obj*); +obj* l_Array_mkArray___rarg(obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_foldl___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); +obj* l_Array_mmap___rarg(obj*, obj*, obj*); obj* l___private_init_data_array_basic_1__revIterateAux___boxed(obj*, obj*); -obj* l_Array_iterateAux___main___at_Array_map___spec__1___boxed(obj*); obj* l___private_init_data_array_basic_1__revIterateAux___main___at_Array_toList___spec__1___boxed(obj*); obj* l___private_init_data_array_basic_1__revIterateAux___main___at_Array_toList___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); +obj* l_Array_miterateAux___main___boxed(obj*, obj*, obj*); obj* l_List_toArray(obj*); -obj* l_Array_iterateAux(obj*, obj*); -obj* l_mkArray___boxed(obj*, obj*, obj*); +obj* l_Array_getOpt___rarg(obj*, obj*); obj* l_List_toArrayAux___boxed(obj*); +obj* l___private_init_data_array_basic_2__mforeachAux___rarg(obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1(obj*, obj*); +obj* l_Array_Inhabited(obj*); obj* l_Array_revIterate___rarg(obj*, obj*, obj*); obj* l_Array_HasRepr___rarg___closed__1; obj* l_Array_HasToString(obj*); +obj* l_Array_singleton(obj*); obj* l_Array_updt___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_List_toArray___boxed(obj*); obj* l_Array_isEmpty___rarg___boxed(obj*); +obj* l_Array_miterateAux___main___at_Array_mforeach___spec__1___boxed(obj*, obj*); +obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1___boxed(obj*); obj* l_Array_iterate___rarg(obj*, obj*, obj*); obj* l_List_toArray___rarg(obj*); obj* l_Array_empty___boxed(obj*); +obj* l_Array_miterateAux___main___at_Array_mforeach___spec__1___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*); +obj* l_Array_mforeach___rarg(obj*, obj*, obj*); obj* l_Array_HasToString___boxed(obj*); -obj* l_Array_iterateAux___main___at_Array_foldl___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); -obj* l_Array_iterateAux___main___at_Array_map_u_2082___spec__2___boxed(obj*); -obj* l_Array_iterateAux___main___boxed(obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_foreach___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); +obj* l_Array_miterateAux(obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_map___spec__1(obj*); obj* l_Array_map_u_2082___rarg(obj*, obj*, obj*); obj* l_Array_isEmpty(obj*); -obj* l_Array_iterateAux___main___at_Array_foreach___spec__1___boxed(obj*); -obj* l_Array_iterateAux___main___at_Array_map___spec__1(obj*); +obj* l_Array_miterateAux___main___at_Array_map_u_2082___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_Array_mfoldl(obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_map_u_2082___spec__2___boxed(obj*); +obj* l_Array_miterate(obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_map_u_2082___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Array_index___boxed(obj*, obj*, obj*); obj* l_Array_revFoldl___boxed(obj*, obj*); -obj* l_Array_iterateAux___main___at_Array_map_u_2082___spec__2(obj*); obj* l_Array_HasRepr___boxed(obj*); obj* l___private_init_data_array_basic_1__revIterateAux___main___at_Array_toList___spec__1(obj*); obj* l___private_init_data_array_basic_1__revIterateAux(obj*, obj*); @@ -130,20 +155,42 @@ obj* l_Array_HasRepr___rarg(obj*); namespace lean { uint8 nat_dec_le(obj*, obj*); } -obj* l_Array_iterateAux___main___at_Array_foreach___spec__1(obj*); +obj* l_Array_miterateAux___main___at_Array_foreach___spec__1(obj*); obj* l_Array_revIterate___rarg___boxed(obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_foldl___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); +obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1___rarg(obj*, obj*, obj*, obj*); +obj* l_Array_getOpt___boxed(obj*); obj* l___private_init_data_array_basic_1__revIterateAux___main___boxed(obj*, obj*); +obj* l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*); obj* l_Array_HasToString___rarg(obj*); +obj* l_Array_miterateAux___main___at_Array_mfoldl___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_Array_mmap___boxed(obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_mmap___spec__1(obj*, obj*); +obj* l_Array_miterateAux___main___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Array_revIterate(obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_mfoldl___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_Array_getOpt___rarg___boxed(obj*, obj*); +obj* l_Array_mmap(obj*, obj*); obj* l_Array_toList(obj*); +obj* l_Array_miterateAux___main___at_Array_map_u_2082___spec__1(obj*); obj* l_Array_set___boxed(obj*, obj*, obj*, obj*); -obj* l_Array_iterateAux___main___at___private_init_data_array_basic_2__foreachAux___spec__1(obj*); obj* l_Array_revFoldl___rarg(obj*, obj*, obj*); +obj* l_Array_mforeach(obj*, obj*); obj* l___private_init_data_array_basic_1__revIterateAux___main___at_Array_revFoldl___spec__1___boxed(obj*, obj*); obj* l_Array_idx___boxed(obj*, obj*, obj*, obj*); obj* l_Array_foldl___rarg(obj*, obj*, obj*); obj* l_List_toArrayAux___main(obj*); +obj* l_Array_miterateAux___main___at_Array_mforeach___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_foldl___spec__1(obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_foreach___spec__1___boxed(obj*); +obj* l_Array_miterateAux___boxed(obj*, obj*, obj*); obj* l_Array_mkEmpty___boxed(obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_map_u_2082___spec__1___boxed(obj*); +obj* l_Array_miterateAux___main___at_Array_map___spec__1___boxed(obj*); +obj* l_Array_miterateAux___main___at_Array_iterate___spec__1___boxed(obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_map___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_Array_mmap___spec__1___boxed(obj*, obj*); +obj* l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*); obj* l_Array_size___boxed(obj* x_0, obj* x_1) { _start: { @@ -153,28 +200,109 @@ lean::dec(x_1); return x_2; } } -obj* l_mkArray___boxed(obj* x_0, obj* x_1, obj* x_2) { -_start: -{ -obj* x_3; -x_3 = lean::mk_array(x_1, x_2); -return x_3; -} -} obj* l_Array_mkEmpty___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; -x_2 = lean::mk_empty_array(); +x_2 = lean::mk_empty_array(x_0); +lean::dec(x_1); return x_2; } } +obj* l_Array_push___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = lean::array_push(x_1, x_2); +return x_3; +} +} +obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; uint8 x_5; +x_4 = lean::mk_nat_obj(0ul); +x_5 = lean::nat_dec_eq(x_2, x_4); +if (x_5 == 0) +{ +obj* x_6; obj* x_7; obj* x_10; +x_6 = lean::mk_nat_obj(1ul); +x_7 = lean::nat_sub(x_2, x_6); +lean::dec(x_2); +lean::inc(x_0); +x_10 = lean::array_push(x_3, x_0); +x_2 = x_7; +x_3 = x_10; +goto _start; +} +else +{ +lean::dec(x_0); +lean::dec(x_2); +return x_3; +} +} +} +obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_Nat_repeatCore___main___at_Array_mkArray___spec__1___rarg___boxed), 4, 0); +return x_1; +} +} +obj* l_Array_mkArray___rarg(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; obj* x_4; +x_2 = lean::mk_empty_array(lean::box(0)); +lean::inc(x_0); +x_4 = l_Nat_repeatCore___main___at_Array_mkArray___spec__1___rarg(x_1, x_0, x_0, x_2); +lean::dec(x_0); +return x_4; +} +} +obj* l_Array_mkArray(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_Array_mkArray___rarg), 2, 0); +return x_1; +} +} +obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; +x_4 = l_Nat_repeatCore___main___at_Array_mkArray___spec__1___rarg(x_0, x_1, x_2, x_3); +lean::dec(x_1); +return x_4; +} +} +obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_Nat_repeatCore___main___at_Array_mkArray___spec__1(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_Array_mkArray___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_Array_mkArray(x_0); +lean::dec(x_0); +return x_1; +} +} obj* _init_l_Array_empty___closed__1() { _start: { obj* x_0; obj* x_1; -x_0 = lean::box(0); -x_1 = lean::mk_empty_array(); +x_0 = lean::mk_nat_obj(0ul); +x_1 = lean::mk_empty_array(lean::box(0)); return x_1; } } @@ -212,6 +340,23 @@ lean::dec(x_0); return x_1; } } +obj* l_Array_Inhabited(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_Array_empty___closed__1; +return x_1; +} +} +obj* l_Array_Inhabited___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_Array_Inhabited(x_0); +lean::dec(x_0); +return x_1; +} +} uint8 l_Array_isEmpty___rarg(obj* x_0) { _start: { @@ -250,6 +395,32 @@ lean::dec(x_0); return x_1; } } +obj* l_Array_singleton___rarg(obj* x_0) { +_start: +{ +obj* x_1; obj* x_2; +x_1 = lean::mk_nat_obj(1ul); +x_2 = l_Array_mkArray___rarg(x_1, x_0); +return x_2; +} +} +obj* l_Array_singleton(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_Array_singleton___rarg), 1, 0); +return x_1; +} +} +obj* l_Array_singleton___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_Array_singleton(x_0); +lean::dec(x_0); +return x_1; +} +} obj* l_Array_index___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { @@ -280,6 +451,56 @@ lean::dec(x_3); return x_4; } } +obj* l_Array_getOpt___rarg(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; uint8 x_3; +x_2 = lean::array_get_size(x_0); +x_3 = lean::nat_dec_lt(x_1, x_2); +lean::dec(x_2); +if (x_3 == 0) +{ +obj* x_5; +x_5 = lean::box(0); +return x_5; +} +else +{ +obj* x_6; obj* x_7; +x_6 = lean::array_index(x_0, x_1); +x_7 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_7, 0, x_6); +return x_7; +} +} +} +obj* l_Array_getOpt(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_Array_getOpt___rarg___boxed), 2, 0); +return x_1; +} +} +obj* l_Array_getOpt___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_Array_getOpt___rarg(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_Array_getOpt___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_Array_getOpt(x_0); +lean::dec(x_0); +return x_1; +} +} obj* l_Array_update___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { @@ -309,14 +530,6 @@ lean::dec(x_2); return x_4; } } -obj* l_Array_push___boxed(obj* x_0, obj* x_1, obj* x_2) { -_start: -{ -obj* x_3; -x_3 = lean::array_push(x_1, x_2); -return x_3; -} -} obj* l_Array_pop___boxed(obj* x_0, obj* x_1) { _start: { @@ -325,107 +538,227 @@ x_2 = lean::array_pop(x_1); return x_2; } } -obj* l_Array_iterateAux___main___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +obj* l_Array_miterateAux___main___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_5; uint8 x_6; -lean::inc(x_0); -x_5 = lean::array_sz(x_0); -x_6 = lean::nat_dec_lt(x_2, x_5); -lean::dec(x_5); -if (x_6 == 0) +obj* x_6; uint8 x_7; +lean::inc(x_1); +x_6 = lean::array_sz(x_1); +x_7 = lean::nat_dec_lt(x_3, x_6); +lean::dec(x_6); +if (x_7 == 0) { +obj* x_12; obj* x_15; obj* x_18; lean::dec(x_1); -lean::dec(x_0); +lean::dec(x_3); lean::dec(x_2); -return x_3; +x_12 = lean::cnstr_get(x_0, 0); +lean::inc(x_12); +lean::dec(x_0); +x_15 = lean::cnstr_get(x_12, 1); +lean::inc(x_15); +lean::dec(x_12); +x_18 = lean::apply_2(x_15, lean::box(0), x_4); +return x_18; } else { -obj* x_11; obj* x_12; obj* x_13; obj* x_15; -x_11 = lean::mk_nat_obj(1ul); -x_12 = lean::nat_add(x_2, x_11); -x_13 = lean::array_index(x_0, x_2); +obj* x_19; obj* x_21; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; +x_19 = lean::cnstr_get(x_0, 1); +lean::inc(x_19); +x_21 = lean::array_index(x_1, x_3); +lean::inc(x_3); +lean::inc(x_2); +x_24 = lean::apply_3(x_2, x_3, x_21, x_4); +x_25 = lean::mk_nat_obj(1ul); +x_26 = lean::nat_add(x_3, x_25); +lean::dec(x_3); +x_28 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___rarg), 5, 4); +lean::closure_set(x_28, 0, x_0); +lean::closure_set(x_28, 1, x_1); +lean::closure_set(x_28, 2, x_2); +lean::closure_set(x_28, 3, x_26); +x_29 = lean::apply_4(x_19, lean::box(0), lean::box(0), x_24, x_28); +return x_29; +} +} +} +obj* l_Array_miterateAux___main(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___rarg), 5, 0); +return x_3; +} +} +obj* l_Array_miterateAux___main___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = l_Array_miterateAux___main(x_0, x_1, x_2); +lean::dec(x_0); +lean::dec(x_1); +lean::dec(x_2); +return x_3; +} +} +obj* l_Array_miterateAux___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +_start: +{ +obj* x_5; +x_5 = l_Array_miterateAux___main___rarg(x_0, x_1, x_2, x_3, x_4); +return x_5; +} +} +obj* l_Array_miterateAux(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___rarg), 5, 0); +return x_3; +} +} +obj* l_Array_miterateAux___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = l_Array_miterateAux(x_0, x_1, x_2); +lean::dec(x_0); +lean::dec(x_1); +lean::dec(x_2); +return x_3; +} +} +obj* l_Array_miterate___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; obj* x_5; +x_4 = lean::mk_nat_obj(0ul); +x_5 = l_Array_miterateAux___main___rarg(x_0, x_1, x_3, x_4, x_2); +return x_5; +} +} +obj* l_Array_miterate(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = lean::alloc_closure(reinterpret_cast(l_Array_miterate___rarg), 4, 0); +return x_3; +} +} +obj* l_Array_miterate___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = l_Array_miterate(x_0, x_1, x_2); +lean::dec(x_0); +lean::dec(x_1); +lean::dec(x_2); +return x_3; +} +} +obj* l_Array_miterateAux___main___at_Array_mfoldl___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +_start: +{ +obj* x_7; uint8 x_8; +lean::inc(x_3); +x_7 = lean::array_sz(x_3); +x_8 = lean::nat_dec_lt(x_4, x_7); +lean::dec(x_7); +if (x_8 == 0) +{ +obj* x_13; obj* x_16; obj* x_19; +lean::dec(x_1); +lean::dec(x_3); +lean::dec(x_2); +x_13 = lean::cnstr_get(x_0, 0); +lean::inc(x_13); +lean::dec(x_0); +x_16 = lean::cnstr_get(x_13, 1); +lean::inc(x_16); +lean::dec(x_13); +x_19 = lean::apply_2(x_16, lean::box(0), x_5); +return x_19; +} +else +{ +obj* x_20; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; +x_20 = lean::cnstr_get(x_0, 1); +lean::inc(x_20); +x_22 = lean::array_index(x_3, x_4); +lean::inc(x_2); +x_24 = lean::apply_2(x_2, x_22, x_5); +x_25 = lean::mk_nat_obj(1ul); +x_26 = lean::nat_add(x_4, x_25); +x_27 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at_Array_mfoldl___spec__1___rarg___boxed), 6, 5); +lean::closure_set(x_27, 0, x_0); +lean::closure_set(x_27, 1, x_1); +lean::closure_set(x_27, 2, x_2); +lean::closure_set(x_27, 3, x_3); +lean::closure_set(x_27, 4, x_26); +x_28 = lean::apply_4(x_20, lean::box(0), lean::box(0), x_24, x_27); +return x_28; +} +} +} +obj* l_Array_miterateAux___main___at_Array_mfoldl___spec__1(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at_Array_mfoldl___spec__1___rarg___boxed), 6, 0); +return x_3; +} +} +obj* l_Array_mfoldl___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; obj* x_6; +x_4 = lean::mk_nat_obj(0ul); lean::inc(x_1); -x_15 = lean::apply_3(x_1, x_2, x_13, x_3); -x_2 = x_12; -x_3 = x_15; -goto _start; +x_6 = l_Array_miterateAux___main___at_Array_mfoldl___spec__1___rarg(x_0, x_1, x_3, x_1, x_4, x_2); +return x_6; } } -} -obj* l_Array_iterateAux___main(obj* x_0, obj* x_1) { +obj* l_Array_mfoldl(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_2; -x_2 = lean::alloc_closure(reinterpret_cast(l_Array_iterateAux___main___rarg), 4, 0); -return x_2; +obj* x_3; +x_3 = lean::alloc_closure(reinterpret_cast(l_Array_mfoldl___rarg), 4, 0); +return x_3; } } -obj* l_Array_iterateAux___main___boxed(obj* x_0, obj* x_1) { +obj* l_Array_miterateAux___main___at_Array_mfoldl___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { -obj* x_2; -x_2 = l_Array_iterateAux___main(x_0, x_1); +obj* x_6; +x_6 = l_Array_miterateAux___main___at_Array_mfoldl___spec__1___rarg(x_0, x_1, x_2, x_3, x_4, x_5); +lean::dec(x_4); +return x_6; +} +} +obj* l_Array_miterateAux___main___at_Array_mfoldl___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = l_Array_miterateAux___main___at_Array_mfoldl___spec__1(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); -return x_2; +lean::dec(x_2); +return x_3; } } -obj* l_Array_iterateAux___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +obj* l_Array_mfoldl___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_4; -x_4 = l_Array_iterateAux___main___rarg(x_0, x_1, x_2, x_3); -return x_4; -} -} -obj* l_Array_iterateAux(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = lean::alloc_closure(reinterpret_cast(l_Array_iterateAux___rarg), 4, 0); -return x_2; -} -} -obj* l_Array_iterateAux___boxed(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = l_Array_iterateAux(x_0, x_1); +obj* x_3; +x_3 = l_Array_mfoldl(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); -return x_2; +lean::dec(x_2); +return x_3; } } -obj* l_Array_iterate___rarg(obj* x_0, obj* x_1, obj* x_2) { -_start: -{ -obj* x_3; obj* x_4; -x_3 = lean::mk_nat_obj(0ul); -x_4 = l_Array_iterateAux___main___rarg(x_0, x_2, x_3, x_1); -return x_4; -} -} -obj* l_Array_iterate(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = lean::alloc_closure(reinterpret_cast(l_Array_iterate___rarg), 3, 0); -return x_2; -} -} -obj* l_Array_iterate___boxed(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = l_Array_iterate(x_0, x_1); -lean::dec(x_0); -lean::dec(x_1); -return x_2; -} -} -obj* l_Array_iterateAux___main___at_Array_foldl___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_Array_miterateAux___main___at_Array_iterate___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_6; uint8 x_7; @@ -442,24 +775,111 @@ return x_4; } else { -obj* x_12; obj* x_13; obj* x_14; obj* x_17; -x_12 = lean::mk_nat_obj(1ul); -x_13 = lean::nat_add(x_3, x_12); -x_14 = lean::array_index(x_2, x_3); -lean::dec(x_3); +obj* x_12; obj* x_15; obj* x_16; obj* x_17; +x_12 = lean::array_index(x_2, x_3); +lean::inc(x_3); lean::inc(x_1); -x_17 = lean::apply_2(x_1, x_14, x_4); -x_3 = x_13; -x_4 = x_17; +x_15 = lean::apply_3(x_1, x_3, x_12, x_4); +x_16 = lean::mk_nat_obj(1ul); +x_17 = lean::nat_add(x_3, x_16); +lean::dec(x_3); +x_3 = x_17; +x_4 = x_15; goto _start; } } } -obj* l_Array_iterateAux___main___at_Array_foldl___spec__1(obj* x_0, obj* x_1) { +obj* l_Array_miterateAux___main___at_Array_iterate___spec__1(obj* x_0, obj* x_1) { _start: { obj* x_2; -x_2 = lean::alloc_closure(reinterpret_cast(l_Array_iterateAux___main___at_Array_foldl___spec__1___rarg___boxed), 5, 0); +x_2 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at_Array_iterate___spec__1___rarg___boxed), 5, 0); +return x_2; +} +} +obj* l_Array_iterate___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; obj* x_5; +x_3 = lean::mk_nat_obj(0ul); +lean::inc(x_0); +x_5 = l_Array_miterateAux___main___at_Array_iterate___spec__1___rarg(x_0, x_2, x_0, x_3, x_1); +lean::dec(x_0); +return x_5; +} +} +obj* l_Array_iterate(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_Array_iterate___rarg), 3, 0); +return x_2; +} +} +obj* l_Array_miterateAux___main___at_Array_iterate___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +_start: +{ +obj* x_5; +x_5 = l_Array_miterateAux___main___at_Array_iterate___spec__1___rarg(x_0, x_1, x_2, x_3, x_4); +lean::dec(x_0); +return x_5; +} +} +obj* l_Array_miterateAux___main___at_Array_iterate___spec__1___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_Array_miterateAux___main___at_Array_iterate___spec__1(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_Array_iterate___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_Array_iterate(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_Array_miterateAux___main___at_Array_foldl___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +_start: +{ +obj* x_6; uint8 x_7; +lean::inc(x_2); +x_6 = lean::array_sz(x_2); +x_7 = lean::nat_dec_lt(x_3, x_6); +lean::dec(x_6); +if (x_7 == 0) +{ +lean::dec(x_1); +lean::dec(x_3); +lean::dec(x_2); +return x_4; +} +else +{ +obj* x_12; obj* x_14; obj* x_15; obj* x_16; +x_12 = lean::array_index(x_2, x_3); +lean::inc(x_1); +x_14 = lean::apply_2(x_1, x_12, x_4); +x_15 = lean::mk_nat_obj(1ul); +x_16 = lean::nat_add(x_3, x_15); +lean::dec(x_3); +x_3 = x_16; +x_4 = x_14; +goto _start; +} +} +} +obj* l_Array_miterateAux___main___at_Array_foldl___spec__1(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at_Array_foldl___spec__1___rarg___boxed), 5, 0); return x_2; } } @@ -469,7 +889,7 @@ _start: obj* x_3; obj* x_5; x_3 = lean::mk_nat_obj(0ul); lean::inc(x_0); -x_5 = l_Array_iterateAux___main___at_Array_foldl___spec__1___rarg(x_0, x_2, x_0, x_3, x_1); +x_5 = l_Array_miterateAux___main___at_Array_foldl___spec__1___rarg(x_0, x_1, x_0, x_3, x_2); lean::dec(x_0); return x_5; } @@ -482,20 +902,20 @@ x_2 = lean::alloc_closure(reinterpret_cast(l_Array_foldl___rarg), 3, 0); return x_2; } } -obj* l_Array_iterateAux___main___at_Array_foldl___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_Array_miterateAux___main___at_Array_foldl___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; -x_5 = l_Array_iterateAux___main___at_Array_foldl___spec__1___rarg(x_0, x_1, x_2, x_3, x_4); +x_5 = l_Array_miterateAux___main___at_Array_foldl___spec__1___rarg(x_0, x_1, x_2, x_3, x_4); lean::dec(x_0); return x_5; } } -obj* l_Array_iterateAux___main___at_Array_foldl___spec__1___boxed(obj* x_0, obj* x_1) { +obj* l_Array_miterateAux___main___at_Array_foldl___spec__1___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; -x_2 = l_Array_iterateAux___main___at_Array_foldl___spec__1(x_0, x_1); +x_2 = l_Array_miterateAux___main___at_Array_foldl___spec__1(x_0, x_1); lean::dec(x_0); lean::dec(x_1); return x_2; @@ -893,7 +1313,407 @@ lean::dec(x_0); return x_1; } } -obj* l_Array_iterateAux___main___at___private_init_data_array_basic_2__foreachAux___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; obj* x_7; obj* x_10; obj* x_11; +x_4 = lean::cnstr_get(x_0, 0); +lean::inc(x_4); +lean::dec(x_0); +x_7 = lean::cnstr_get(x_4, 1); +lean::inc(x_7); +lean::dec(x_4); +x_10 = lean::array_update(x_1, x_2, x_3); +x_11 = lean::apply_2(x_7, lean::box(0), x_10); +return x_11; +} +} +obj* l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +_start: +{ +obj* x_7; uint8 x_8; +lean::inc(x_3); +x_7 = lean::array_sz(x_3); +x_8 = lean::nat_dec_lt(x_4, x_7); +lean::dec(x_7); +if (x_8 == 0) +{ +obj* x_14; obj* x_17; obj* x_20; +lean::dec(x_4); +lean::dec(x_1); +lean::dec(x_3); +lean::dec(x_2); +x_14 = lean::cnstr_get(x_0, 0); +lean::inc(x_14); +lean::dec(x_0); +x_17 = lean::cnstr_get(x_14, 1); +lean::inc(x_17); +lean::dec(x_14); +x_20 = lean::apply_2(x_17, lean::box(0), x_5); +return x_20; +} +else +{ +obj* x_21; obj* x_22; obj* x_26; obj* x_27; obj* x_29; obj* x_32; obj* x_33; obj* x_35; obj* x_36; +x_21 = lean::mk_nat_obj(1ul); +x_22 = lean::nat_add(x_4, x_21); +lean::inc(x_3); +lean::inc(x_2); +lean::inc(x_0); +x_26 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1___rarg), 6, 5); +lean::closure_set(x_26, 0, x_0); +lean::closure_set(x_26, 1, x_1); +lean::closure_set(x_26, 2, x_2); +lean::closure_set(x_26, 3, x_3); +lean::closure_set(x_26, 4, x_22); +x_27 = lean::cnstr_get(x_0, 1); +lean::inc(x_27); +x_29 = lean::array_index(x_3, x_4); +lean::dec(x_3); +lean::inc(x_4); +x_32 = lean::apply_2(x_2, x_4, x_29); +x_33 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1___rarg___lambda__1___boxed), 4, 3); +lean::closure_set(x_33, 0, x_0); +lean::closure_set(x_33, 1, x_5); +lean::closure_set(x_33, 2, x_4); +lean::inc(x_27); +x_35 = lean::apply_4(x_27, lean::box(0), lean::box(0), x_32, x_33); +x_36 = lean::apply_4(x_27, lean::box(0), lean::box(0), x_35, x_26); +return x_36; +} +} +} +obj* l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1___rarg), 6, 0); +return x_2; +} +} +obj* l___private_init_data_array_basic_2__mforeachAux___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; obj* x_6; +x_3 = lean::mk_nat_obj(0ul); +lean::inc(x_1); +lean::inc(x_1); +x_6 = l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1___rarg(x_0, x_1, x_2, x_1, x_3, x_1); +return x_6; +} +} +obj* l___private_init_data_array_basic_2__mforeachAux(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l___private_init_data_array_basic_2__mforeachAux___rarg), 3, 0); +return x_2; +} +} +obj* l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; +x_4 = l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1___rarg___lambda__1(x_0, x_1, x_2, x_3); +lean::dec(x_2); +return x_4; +} +} +obj* l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l___private_init_data_array_basic_2__mforeachAux___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l___private_init_data_array_basic_2__mforeachAux(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_Array_miterateAux___main___at_Array_mforeach___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; obj* x_7; obj* x_8; +x_4 = lean::cnstr_get(x_0, 1); +lean::inc(x_4); +lean::dec(x_0); +x_7 = lean::array_update(x_1, x_2, x_3); +x_8 = lean::apply_2(x_4, lean::box(0), x_7); +return x_8; +} +} +obj* l_Array_miterateAux___main___at_Array_mforeach___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { +_start: +{ +obj* x_8; uint8 x_9; +lean::inc(x_4); +x_8 = lean::array_sz(x_4); +x_9 = lean::nat_dec_lt(x_5, x_8); +lean::dec(x_8); +if (x_9 == 0) +{ +obj* x_16; obj* x_19; obj* x_22; +lean::dec(x_5); +lean::dec(x_4); +lean::dec(x_1); +lean::dec(x_3); +lean::dec(x_2); +x_16 = lean::cnstr_get(x_0, 0); +lean::inc(x_16); +lean::dec(x_0); +x_19 = lean::cnstr_get(x_16, 1); +lean::inc(x_19); +lean::dec(x_16); +x_22 = lean::apply_2(x_19, lean::box(0), x_6); +return x_22; +} +else +{ +obj* x_23; obj* x_24; obj* x_29; obj* x_30; obj* x_33; obj* x_36; obj* x_37; obj* x_39; obj* x_40; +x_23 = lean::mk_nat_obj(1ul); +x_24 = lean::nat_add(x_5, x_23); +lean::inc(x_4); +lean::inc(x_3); +lean::inc(x_2); +lean::inc(x_0); +x_29 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at_Array_mforeach___spec__1___rarg), 7, 6); +lean::closure_set(x_29, 0, x_0); +lean::closure_set(x_29, 1, x_1); +lean::closure_set(x_29, 2, x_2); +lean::closure_set(x_29, 3, x_3); +lean::closure_set(x_29, 4, x_4); +lean::closure_set(x_29, 5, x_24); +x_30 = lean::cnstr_get(x_0, 1); +lean::inc(x_30); +lean::dec(x_0); +x_33 = lean::array_index(x_4, x_5); +lean::dec(x_4); +lean::inc(x_5); +x_36 = lean::apply_2(x_2, x_5, x_33); +x_37 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at_Array_mforeach___spec__1___rarg___lambda__1___boxed), 4, 3); +lean::closure_set(x_37, 0, x_3); +lean::closure_set(x_37, 1, x_6); +lean::closure_set(x_37, 2, x_5); +lean::inc(x_30); +x_39 = lean::apply_4(x_30, lean::box(0), lean::box(0), x_36, x_37); +x_40 = lean::apply_4(x_30, lean::box(0), lean::box(0), x_39, x_29); +return x_40; +} +} +} +obj* l_Array_miterateAux___main___at_Array_mforeach___spec__1(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at_Array_mforeach___spec__1___rarg), 7, 0); +return x_2; +} +} +obj* l_Array_mforeach___rarg___lambda__1(obj* x_0) { +_start: +{ +lean::inc(x_0); +return x_0; +} +} +obj* _init_l_Array_mforeach___rarg___closed__1() { +_start: +{ +obj* x_0; +x_0 = lean::alloc_closure(reinterpret_cast(l_Array_mforeach___rarg___lambda__1___boxed), 1, 0); +return x_0; +} +} +obj* l_Array_mforeach___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_13; obj* x_14; obj* x_15; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_3, 0); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_5, 0); +lean::inc(x_7); +lean::dec(x_5); +x_10 = lean::mk_nat_obj(0ul); +lean::inc(x_1); +lean::inc(x_1); +x_13 = l_Array_miterateAux___main___at_Array_mforeach___spec__1___rarg(x_0, x_1, x_2, x_3, x_1, x_10, x_1); +x_14 = l_Array_mforeach___rarg___closed__1; +x_15 = lean::apply_4(x_7, lean::box(0), lean::box(0), x_14, x_13); +return x_15; +} +} +obj* l_Array_mforeach(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_Array_mforeach___rarg), 3, 0); +return x_2; +} +} +obj* l_Array_miterateAux___main___at_Array_mforeach___spec__1___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; +x_4 = l_Array_miterateAux___main___at_Array_mforeach___spec__1___rarg___lambda__1(x_0, x_1, x_2, x_3); +lean::dec(x_2); +return x_4; +} +} +obj* l_Array_miterateAux___main___at_Array_mforeach___spec__1___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_Array_miterateAux___main___at_Array_mforeach___spec__1(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_Array_mforeach___rarg___lambda__1___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_Array_mforeach___rarg___lambda__1(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_Array_mforeach___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_Array_mforeach(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_Array_miterateAux___main___at_Array_mmap___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { +_start: +{ +obj* x_8; uint8 x_9; +lean::inc(x_4); +x_8 = lean::array_sz(x_4); +x_9 = lean::nat_dec_lt(x_5, x_8); +lean::dec(x_8); +if (x_9 == 0) +{ +obj* x_16; obj* x_19; obj* x_22; +lean::dec(x_5); +lean::dec(x_4); +lean::dec(x_1); +lean::dec(x_3); +lean::dec(x_2); +x_16 = lean::cnstr_get(x_0, 0); +lean::inc(x_16); +lean::dec(x_0); +x_19 = lean::cnstr_get(x_16, 1); +lean::inc(x_19); +lean::dec(x_16); +x_22 = lean::apply_2(x_19, lean::box(0), x_6); +return x_22; +} +else +{ +obj* x_23; obj* x_24; obj* x_29; obj* x_30; obj* x_33; obj* x_35; obj* x_36; obj* x_38; obj* x_39; +x_23 = lean::mk_nat_obj(1ul); +x_24 = lean::nat_add(x_5, x_23); +lean::inc(x_4); +lean::inc(x_3); +lean::inc(x_1); +lean::inc(x_0); +x_29 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at_Array_mmap___spec__1___rarg), 7, 6); +lean::closure_set(x_29, 0, x_0); +lean::closure_set(x_29, 1, x_1); +lean::closure_set(x_29, 2, x_2); +lean::closure_set(x_29, 3, x_3); +lean::closure_set(x_29, 4, x_4); +lean::closure_set(x_29, 5, x_24); +x_30 = lean::cnstr_get(x_0, 1); +lean::inc(x_30); +lean::dec(x_0); +x_33 = lean::array_index(x_4, x_5); +lean::dec(x_4); +x_35 = lean::apply_1(x_1, x_33); +x_36 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at_Array_mforeach___spec__1___rarg___lambda__1___boxed), 4, 3); +lean::closure_set(x_36, 0, x_3); +lean::closure_set(x_36, 1, x_6); +lean::closure_set(x_36, 2, x_5); +lean::inc(x_30); +x_38 = lean::apply_4(x_30, lean::box(0), lean::box(0), x_35, x_36); +x_39 = lean::apply_4(x_30, lean::box(0), lean::box(0), x_38, x_29); +return x_39; +} +} +} +obj* l_Array_miterateAux___main___at_Array_mmap___spec__1(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at_Array_mmap___spec__1___rarg), 7, 0); +return x_2; +} +} +obj* l_Array_mmap___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_13; obj* x_14; obj* x_15; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_3, 0); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_5, 0); +lean::inc(x_7); +lean::dec(x_5); +x_10 = lean::mk_nat_obj(0ul); +lean::inc(x_2); +lean::inc(x_2); +x_13 = l_Array_miterateAux___main___at_Array_mmap___spec__1___rarg(x_0, x_1, x_2, x_3, x_2, x_10, x_2); +x_14 = l_Array_mforeach___rarg___closed__1; +x_15 = lean::apply_4(x_7, lean::box(0), lean::box(0), x_14, x_13); +return x_15; +} +} +obj* l_Array_mmap(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_Array_mmap___rarg), 3, 0); +return x_2; +} +} +obj* l_Array_miterateAux___main___at_Array_mmap___spec__1___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_Array_miterateAux___main___at_Array_mmap___spec__1(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_Array_mmap___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_Array_mmap(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_Array_miterateAux___main___at_Array_foreach___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_6; uint8 x_7; @@ -925,98 +1745,11 @@ goto _start; } } } -obj* l_Array_iterateAux___main___at___private_init_data_array_basic_2__foreachAux___spec__1(obj* x_0) { +obj* l_Array_miterateAux___main___at_Array_foreach___spec__1(obj* x_0) { _start: { obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Array_iterateAux___main___at___private_init_data_array_basic_2__foreachAux___spec__1___rarg___boxed), 5, 0); -return x_1; -} -} -obj* l___private_init_data_array_basic_2__foreachAux___rarg(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; obj* x_5; -x_2 = lean::mk_nat_obj(0ul); -lean::inc(x_0); -lean::inc(x_0); -x_5 = l_Array_iterateAux___main___at___private_init_data_array_basic_2__foreachAux___spec__1___rarg(x_0, x_1, x_0, x_2, x_0); -lean::dec(x_0); -return x_5; -} -} -obj* l___private_init_data_array_basic_2__foreachAux(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l___private_init_data_array_basic_2__foreachAux___rarg), 2, 0); -return x_1; -} -} -obj* l_Array_iterateAux___main___at___private_init_data_array_basic_2__foreachAux___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_Array_iterateAux___main___at___private_init_data_array_basic_2__foreachAux___spec__1___rarg(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_0); -return x_5; -} -} -obj* l_Array_iterateAux___main___at___private_init_data_array_basic_2__foreachAux___spec__1___boxed(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = l_Array_iterateAux___main___at___private_init_data_array_basic_2__foreachAux___spec__1(x_0); -lean::dec(x_0); -return x_1; -} -} -obj* l___private_init_data_array_basic_2__foreachAux___boxed(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = l___private_init_data_array_basic_2__foreachAux(x_0); -lean::dec(x_0); -return x_1; -} -} -obj* l_Array_iterateAux___main___at_Array_foreach___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_6; uint8 x_7; -lean::inc(x_2); -x_6 = lean::array_sz(x_2); -x_7 = lean::nat_dec_lt(x_3, x_6); -lean::dec(x_6); -if (x_7 == 0) -{ -lean::dec(x_1); -lean::dec(x_3); -lean::dec(x_2); -return x_4; -} -else -{ -obj* x_12; obj* x_13; obj* x_14; obj* x_17; obj* x_18; -x_12 = lean::mk_nat_obj(1ul); -x_13 = lean::nat_add(x_3, x_12); -x_14 = lean::array_index(x_2, x_3); -lean::inc(x_3); -lean::inc(x_1); -x_17 = lean::apply_2(x_1, x_3, x_14); -x_18 = lean::array_update(x_4, x_3, x_17); -lean::dec(x_3); -x_3 = x_13; -x_4 = x_18; -goto _start; -} -} -} -obj* l_Array_iterateAux___main___at_Array_foreach___spec__1(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Array_iterateAux___main___at_Array_foreach___spec__1___rarg___boxed), 5, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at_Array_foreach___spec__1___rarg___boxed), 5, 0); return x_1; } } @@ -1027,7 +1760,7 @@ obj* x_2; obj* x_5; x_2 = lean::mk_nat_obj(0ul); lean::inc(x_0); lean::inc(x_0); -x_5 = l_Array_iterateAux___main___at_Array_foreach___spec__1___rarg(x_0, x_1, x_0, x_2, x_0); +x_5 = l_Array_miterateAux___main___at_Array_foreach___spec__1___rarg(x_0, x_1, x_0, x_2, x_0); lean::dec(x_0); return x_5; } @@ -1040,20 +1773,20 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Array_foreach___rarg), 2, 0) return x_1; } } -obj* l_Array_iterateAux___main___at_Array_foreach___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_Array_miterateAux___main___at_Array_foreach___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; -x_5 = l_Array_iterateAux___main___at_Array_foreach___spec__1___rarg(x_0, x_1, x_2, x_3, x_4); +x_5 = l_Array_miterateAux___main___at_Array_foreach___spec__1___rarg(x_0, x_1, x_2, x_3, x_4); lean::dec(x_0); return x_5; } } -obj* l_Array_iterateAux___main___at_Array_foreach___spec__1___boxed(obj* x_0) { +obj* l_Array_miterateAux___main___at_Array_foreach___spec__1___boxed(obj* x_0) { _start: { obj* x_1; -x_1 = l_Array_iterateAux___main___at_Array_foreach___spec__1(x_0); +x_1 = l_Array_miterateAux___main___at_Array_foreach___spec__1(x_0); lean::dec(x_0); return x_1; } @@ -1067,7 +1800,7 @@ lean::dec(x_0); return x_1; } } -obj* l_Array_iterateAux___main___at_Array_map___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_Array_miterateAux___main___at_Array_map___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_6; uint8 x_7; @@ -1098,11 +1831,11 @@ goto _start; } } } -obj* l_Array_iterateAux___main___at_Array_map___spec__1(obj* x_0) { +obj* l_Array_miterateAux___main___at_Array_map___spec__1(obj* x_0) { _start: { obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Array_iterateAux___main___at_Array_map___spec__1___rarg___boxed), 5, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at_Array_map___spec__1___rarg___boxed), 5, 0); return x_1; } } @@ -1113,7 +1846,7 @@ obj* x_2; obj* x_5; x_2 = lean::mk_nat_obj(0ul); lean::inc(x_1); lean::inc(x_1); -x_5 = l_Array_iterateAux___main___at_Array_map___spec__1___rarg(x_0, x_1, x_1, x_2, x_1); +x_5 = l_Array_miterateAux___main___at_Array_map___spec__1___rarg(x_0, x_1, x_1, x_2, x_1); lean::dec(x_1); return x_5; } @@ -1126,20 +1859,20 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Array_map___rarg), 2, 0); return x_1; } } -obj* l_Array_iterateAux___main___at_Array_map___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_Array_miterateAux___main___at_Array_map___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; -x_5 = l_Array_iterateAux___main___at_Array_map___spec__1___rarg(x_0, x_1, x_2, x_3, x_4); +x_5 = l_Array_miterateAux___main___at_Array_map___spec__1___rarg(x_0, x_1, x_2, x_3, x_4); lean::dec(x_1); return x_5; } } -obj* l_Array_iterateAux___main___at_Array_map___spec__1___boxed(obj* x_0) { +obj* l_Array_miterateAux___main___at_Array_map___spec__1___boxed(obj* x_0) { _start: { obj* x_1; -x_1 = l_Array_iterateAux___main___at_Array_map___spec__1(x_0); +x_1 = l_Array_miterateAux___main___at_Array_map___spec__1(x_0); lean::dec(x_0); return x_1; } @@ -1153,7 +1886,7 @@ lean::dec(x_0); return x_1; } } -obj* l_Array_iterateAux___main___at_Array_map_u_2082___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_Array_miterateAux___main___at_Array_map_u_2082___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_7; uint8 x_8; @@ -1185,15 +1918,15 @@ goto _start; } } } -obj* l_Array_iterateAux___main___at_Array_map_u_2082___spec__1(obj* x_0) { +obj* l_Array_miterateAux___main___at_Array_map_u_2082___spec__1(obj* x_0) { _start: { obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Array_iterateAux___main___at_Array_map_u_2082___spec__1___rarg___boxed), 6, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at_Array_map_u_2082___spec__1___rarg___boxed), 6, 0); return x_1; } } -obj* l_Array_iterateAux___main___at_Array_map_u_2082___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_Array_miterateAux___main___at_Array_map_u_2082___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_7; uint8 x_8; @@ -1225,11 +1958,11 @@ goto _start; } } } -obj* l_Array_iterateAux___main___at_Array_map_u_2082___spec__2(obj* x_0) { +obj* l_Array_miterateAux___main___at_Array_map_u_2082___spec__2(obj* x_0) { _start: { obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Array_iterateAux___main___at_Array_map_u_2082___spec__2___rarg___boxed), 6, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at_Array_map_u_2082___spec__2___rarg___boxed), 6, 0); return x_1; } } @@ -1248,7 +1981,7 @@ obj* x_8; obj* x_11; x_8 = lean::mk_nat_obj(0ul); lean::inc(x_2); lean::inc(x_2); -x_11 = l_Array_iterateAux___main___at_Array_map_u_2082___spec__1___rarg(x_0, x_1, x_2, x_2, x_8, x_2); +x_11 = l_Array_miterateAux___main___at_Array_map_u_2082___spec__1___rarg(x_0, x_1, x_2, x_2, x_8, x_2); lean::dec(x_2); lean::dec(x_1); return x_11; @@ -1259,7 +1992,7 @@ obj* x_14; obj* x_17; x_14 = lean::mk_nat_obj(0ul); lean::inc(x_1); lean::inc(x_1); -x_17 = l_Array_iterateAux___main___at_Array_map_u_2082___spec__2___rarg(x_0, x_1, x_2, x_1, x_14, x_1); +x_17 = l_Array_miterateAux___main___at_Array_map_u_2082___spec__2___rarg(x_0, x_1, x_2, x_1, x_14, x_1); lean::dec(x_2); lean::dec(x_1); return x_17; @@ -1274,40 +2007,40 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Array_map_u_2082___rarg), 3, return x_1; } } -obj* l_Array_iterateAux___main___at_Array_map_u_2082___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_Array_miterateAux___main___at_Array_map_u_2082___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; -x_6 = l_Array_iterateAux___main___at_Array_map_u_2082___spec__1___rarg(x_0, x_1, x_2, x_3, x_4, x_5); +x_6 = l_Array_miterateAux___main___at_Array_map_u_2082___spec__1___rarg(x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_1); lean::dec(x_2); return x_6; } } -obj* l_Array_iterateAux___main___at_Array_map_u_2082___spec__1___boxed(obj* x_0) { +obj* l_Array_miterateAux___main___at_Array_map_u_2082___spec__1___boxed(obj* x_0) { _start: { obj* x_1; -x_1 = l_Array_iterateAux___main___at_Array_map_u_2082___spec__1(x_0); +x_1 = l_Array_miterateAux___main___at_Array_map_u_2082___spec__1(x_0); lean::dec(x_0); return x_1; } } -obj* l_Array_iterateAux___main___at_Array_map_u_2082___spec__2___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_Array_miterateAux___main___at_Array_map_u_2082___spec__2___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; -x_6 = l_Array_iterateAux___main___at_Array_map_u_2082___spec__2___rarg(x_0, x_1, x_2, x_3, x_4, x_5); +x_6 = l_Array_miterateAux___main___at_Array_map_u_2082___spec__2___rarg(x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_1); lean::dec(x_2); return x_6; } } -obj* l_Array_iterateAux___main___at_Array_map_u_2082___spec__2___boxed(obj* x_0) { +obj* l_Array_miterateAux___main___at_Array_map_u_2082___spec__2___boxed(obj* x_0) { _start: { obj* x_1; -x_1 = l_Array_iterateAux___main___at_Array_map_u_2082___spec__2(x_0); +x_1 = l_Array_miterateAux___main___at_Array_map_u_2082___spec__2(x_0); lean::dec(x_0); return x_1; } @@ -1416,6 +2149,7 @@ obj* initialize_init_data_fin_basic(obj*); obj* initialize_init_data_uint(obj*); obj* initialize_init_data_repr(obj*); obj* initialize_init_data_tostring(obj*); +obj* initialize_init_control_id(obj*); static bool _G_initialized = false; obj* initialize_init_data_array_basic(obj* w) { if (_G_initialized) return w; @@ -1430,9 +2164,13 @@ if (io_result_is_error(w)) return w; w = initialize_init_data_repr(w); if (io_result_is_error(w)) return w; w = initialize_init_data_tostring(w); +if (io_result_is_error(w)) return w; +w = initialize_init_control_id(w); l_Array_empty___closed__1 = _init_l_Array_empty___closed__1(); lean::mark_persistent(l_Array_empty___closed__1); l_Array_HasRepr___rarg___closed__1 = _init_l_Array_HasRepr___rarg___closed__1(); lean::mark_persistent(l_Array_HasRepr___rarg___closed__1); + l_Array_mforeach___rarg___closed__1 = _init_l_Array_mforeach___rarg___closed__1(); +lean::mark_persistent(l_Array_mforeach___rarg___closed__1); return w; } diff --git a/src/stage0/init/data/hashmap/basic.cpp b/src/stage0/init/data/hashmap/basic.cpp index 824ddd1b26..c6ece1589d 100644 --- a/src/stage0/init/data/hashmap/basic.cpp +++ b/src/stage0/init/data/hashmap/basic.cpp @@ -30,18 +30,15 @@ obj* l_Hashmap_erase___rarg(obj*, obj*, obj*, obj*); obj* l_DHashmap_insert(obj*, obj*); obj* l_Hashmap_empty___boxed(obj*, obj*, obj*, obj*); obj* l_HashmapImp_insert(obj*, obj*); -uint8 l_Option_isSome___main___rarg(obj*); obj* l_HashmapImp_foldBuckets___boxed(obj*, obj*, obj*); obj* l_HashmapImp_reinsertAux(obj*, obj*); uint8 l_HashmapImp_containsAux___rarg(obj*, obj*, obj*); -obj* l_Array_iterateAux___main___at_HashmapImp_foldBuckets___spec__2(obj*, obj*, obj*); obj* l_Hashmap_find___rarg(obj*, obj*, obj*, obj*); obj* l_Hashmap_size___boxed(obj*, obj*, obj*, obj*); obj* l_DHashmap_find___boxed(obj*, obj*); uint8 l_Hashmap_contains___rarg(obj*, obj*, obj*, obj*); obj* l_HashmapImp_find___rarg(obj*, obj*, obj*, obj*); obj* l_HashmapImp_reinsertAux___rarg(obj*, obj*, obj*, obj*); -obj* l_Array_iterateAux___main___at_HashmapImp_foldBuckets___spec__2___boxed(obj*, obj*, obj*); obj* l_Hashmap_size(obj*, obj*, obj*, obj*); obj* l_HashmapImp_containsAux(obj*, obj*); obj* l_mkHashmapImp(obj*, obj*); @@ -55,7 +52,6 @@ obj* l_bucketArray_updt___rarg(obj*, usize, obj*, obj*); obj* l_HashmapImp_replaceAux___boxed(obj*, obj*); obj* l_List_foldl___main___at_HashmapImp_foldBuckets___spec__1___boxed(obj*, obj*, obj*); obj* l_HashmapImp_findAux___main___rarg(obj*, obj*, obj*); -obj* l_Array_iterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_HashmapImp_fold___rarg(obj*, obj*, obj*); obj* l_HashmapImp_erase___boxed(obj*, obj*); obj* l_HashmapImp_containsAux___boxed(obj*, obj*); @@ -68,11 +64,13 @@ obj* l_DHashmap_erase(obj*, obj*); obj* l_DHashmap_contains___boxed(obj*, obj*); obj* l_Hashmap_insert___boxed(obj*, obj*); obj* l_HashmapImp_findAux___main(obj*, obj*); +obj* l_Array_miterateAux___main___at_HashmapImp_foldBuckets___spec__2(obj*, obj*, obj*); obj* l_HashmapImp_find___boxed(obj*, obj*); obj* l_mkHashmapImp___rarg(obj*); obj* l_Hashmap_size___rarg(obj*); obj* l_HashmapImp_insert___boxed(obj*, obj*); obj* l_HashmapImp_replaceAux___rarg(obj*, obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_HashmapImp_foldBuckets___spec__2___boxed(obj*, obj*, obj*); obj* l_HashmapImp_findAux(obj*, obj*); obj* l_HashmapImp_insert___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_DHashmap_size(obj*, obj*, obj*, obj*); @@ -104,6 +102,7 @@ obj* l_Hashmap_fold(obj*, obj*, obj*, obj*, obj*); obj* l_Hashmap_contains(obj*, obj*); obj* l_Hashmap_size___rarg___boxed(obj*); obj* l_HashmapImp_findAux___boxed(obj*, obj*); +obj* l_Array_mkArray___rarg(obj*, obj*); obj* l_bucketArray_updt___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_mkDHashmap(obj*, obj*, obj*, obj*); obj* l_mkDHashmap___rarg(obj*); @@ -117,6 +116,7 @@ namespace lean { usize usize_modn(usize, obj*); } obj* l_Hashmap_contains___boxed(obj*, obj*); +obj* l_Array_miterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_HashmapImp_eraseAux(obj*, obj*); obj* l_DHashmap_size___boxed(obj*, obj*, obj*, obj*); obj* l_HashmapImp_eraseAux___boxed(obj*, obj*); @@ -128,7 +128,7 @@ uint8 nat_dec_le(obj*, obj*); } obj* l_DHashmap_find___rarg(obj*, obj*, obj*, obj*); obj* l_mkHashmapImp___rarg___closed__1; -obj* l_Array_iterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg(obj*, obj*, obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_List_foldl___main___at_HashmapImp_foldBuckets___spec__1___rarg(obj*, obj*, obj*); obj* l_Hashmap_insert___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_HashmapImp_foldBuckets(obj*, obj*, obj*); @@ -191,7 +191,7 @@ _start: obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; x_0 = lean::box(0); x_1 = lean::mk_nat_obj(8ul); -x_2 = lean::mk_array(x_1, x_0); +x_2 = l_Array_mkArray___rarg(x_1, x_0); x_3 = lean::mk_nat_obj(0ul); x_4 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_4, 0, x_3); @@ -209,7 +209,7 @@ if (x_2 == 0) { obj* x_3; obj* x_4; obj* x_5; x_3 = lean::box(0); -x_4 = lean::mk_array(x_0, x_3); +x_4 = l_Array_mkArray___rarg(x_0, x_3); x_5 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_5, 0, x_1); lean::cnstr_set(x_5, 1, x_4); @@ -341,7 +341,7 @@ x_3 = lean::alloc_closure(reinterpret_cast(l_List_foldl___main___at_Hashm return x_3; } } -obj* l_Array_iterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_Array_miterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_6; uint8 x_7; @@ -358,24 +358,24 @@ return x_4; } else { -obj* x_12; obj* x_13; obj* x_14; obj* x_17; -x_12 = lean::mk_nat_obj(1ul); -x_13 = lean::nat_add(x_3, x_12); -x_14 = lean::array_index(x_2, x_3); -lean::dec(x_3); +obj* x_12; obj* x_14; obj* x_15; obj* x_16; +x_12 = lean::array_index(x_2, x_3); lean::inc(x_1); -x_17 = l_List_foldl___main___at_HashmapImp_foldBuckets___spec__1___rarg(x_1, x_4, x_14); -x_3 = x_13; -x_4 = x_17; +x_14 = l_List_foldl___main___at_HashmapImp_foldBuckets___spec__1___rarg(x_1, x_4, x_12); +x_15 = lean::mk_nat_obj(1ul); +x_16 = lean::nat_add(x_3, x_15); +lean::dec(x_3); +x_3 = x_16; +x_4 = x_14; goto _start; } } } -obj* l_Array_iterateAux___main___at_HashmapImp_foldBuckets___spec__2(obj* x_0, obj* x_1, obj* x_2) { +obj* l_Array_miterateAux___main___at_HashmapImp_foldBuckets___spec__2(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; -x_3 = lean::alloc_closure(reinterpret_cast(l_Array_iterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg___boxed), 5, 0); +x_3 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg___boxed), 5, 0); return x_3; } } @@ -385,7 +385,7 @@ _start: obj* x_3; obj* x_5; x_3 = lean::mk_nat_obj(0ul); lean::inc(x_0); -x_5 = l_Array_iterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg(x_0, x_2, x_0, x_3, x_1); +x_5 = l_Array_miterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg(x_0, x_2, x_0, x_3, x_1); lean::dec(x_0); return x_5; } @@ -409,20 +409,20 @@ lean::dec(x_2); return x_3; } } -obj* l_Array_iterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_Array_miterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; -x_5 = l_Array_iterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg(x_0, x_1, x_2, x_3, x_4); +x_5 = l_Array_miterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg(x_0, x_1, x_2, x_3, x_4); lean::dec(x_0); return x_5; } } -obj* l_Array_iterateAux___main___at_HashmapImp_foldBuckets___spec__2___boxed(obj* x_0, obj* x_1, obj* x_2) { +obj* l_Array_miterateAux___main___at_HashmapImp_foldBuckets___spec__2___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; -x_3 = l_Array_iterateAux___main___at_HashmapImp_foldBuckets___spec__2(x_0, x_1, x_2); +x_3 = l_Array_miterateAux___main___at_HashmapImp_foldBuckets___spec__2(x_0, x_1, x_2); lean::dec(x_0); lean::dec(x_1); lean::dec(x_2); @@ -534,12 +534,22 @@ return x_2; uint8 l_HashmapImp_containsAux___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; uint8 x_4; +obj* x_3; x_3 = l_HashmapImp_findAux___main___rarg(x_0, x_1, x_2); -x_4 = l_Option_isSome___main___rarg(x_3); -lean::dec(x_3); +if (lean::obj_tag(x_3) == 0) +{ +uint8 x_4; +x_4 = 0; return x_4; } +else +{ +uint8 x_6; +lean::dec(x_3); +x_6 = 1; +return x_6; +} +} } obj* l_HashmapImp_containsAux(obj* x_0, obj* x_1) { _start: @@ -615,7 +625,7 @@ lean::inc(x_3); lean::dec(x_0); x_6 = lean::mk_nat_obj(0ul); lean::inc(x_3); -x_8 = l_Array_iterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg(x_3, x_2, x_3, x_6, x_1); +x_8 = l_Array_miterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg(x_3, x_2, x_3, x_6, x_1); lean::dec(x_3); return x_8; } @@ -908,12 +918,12 @@ x_32 = lean::mk_nat_obj(2ul); x_33 = lean::nat_mul(x_11, x_32); lean::dec(x_11); x_35 = lean::box(0); -x_36 = lean::mk_array(x_33, x_35); +x_36 = l_Array_mkArray___rarg(x_33, x_35); x_37 = lean::alloc_closure(reinterpret_cast(l_HashmapImp_reinsertAux___rarg), 4, 1); lean::closure_set(x_37, 0, x_1); x_38 = lean::mk_nat_obj(0ul); lean::inc(x_28); -x_40 = l_Array_iterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg(x_28, x_37, x_28, x_38, x_36); +x_40 = l_Array_miterateAux___main___at_HashmapImp_foldBuckets___spec__2___rarg(x_28, x_37, x_28, x_38, x_36); lean::dec(x_28); if (lean::is_scalar(x_9)) { x_42 = lean::alloc_cnstr(0, 2, 0); @@ -1162,12 +1172,22 @@ return x_2; uint8 l_DHashmap_contains___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_4; uint8 x_5; +obj* x_4; x_4 = l_HashmapImp_find___rarg(x_0, x_1, x_2, x_3); -x_5 = l_Option_isSome___main___rarg(x_4); -lean::dec(x_4); +if (lean::obj_tag(x_4) == 0) +{ +uint8 x_5; +x_5 = 0; return x_5; } +else +{ +uint8 x_7; +lean::dec(x_4); +x_7 = 1; +return x_7; +} +} } obj* l_DHashmap_contains(obj* x_0, obj* x_1) { _start: @@ -1413,12 +1433,22 @@ return x_2; uint8 l_Hashmap_contains___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_4; uint8 x_5; +obj* x_4; x_4 = l_HashmapImp_find___rarg(x_0, x_1, x_2, x_3); -x_5 = l_Option_isSome___main___rarg(x_4); -lean::dec(x_4); +if (lean::obj_tag(x_4) == 0) +{ +uint8 x_5; +x_5 = 0; return x_5; } +else +{ +uint8 x_7; +lean::dec(x_4); +x_7 = 1; +return x_7; +} +} } obj* l_Hashmap_contains(obj* x_0, obj* x_1) { _start: diff --git a/src/stage0/init/data/option/basic.cpp b/src/stage0/init/data/option/basic.cpp index 17872b0945..5c9181370e 100644 --- a/src/stage0/init/data/option/basic.cpp +++ b/src/stage0/init/data/option/basic.cpp @@ -66,8 +66,8 @@ obj* l_Option_toMonad___main(obj*); obj* l_Option_HasLess(obj*, obj*); obj* l_Option_orelse___main___rarg(obj*, obj*); obj* l_Option_isSome___main___boxed(obj*); -obj* l_Option_Alternative___lambda__1___boxed(obj*); -obj* l_Option_Alternative___lambda__1(obj*); +obj* l_Option_Alternative___lambda__1___boxed(obj*, obj*, obj*); +obj* l_Option_Alternative___lambda__1(obj*, obj*, obj*); uint8 l_Option_DecidableEq___rarg(obj*, obj*, obj*); obj* l_Option_Inhabited___boxed(obj*); obj* l_Option_Inhabited(obj*); @@ -78,6 +78,7 @@ obj* l_Option_toBool___rarg___boxed(obj*); obj* l_Option_get(obj*); obj* l_Option_getOrElse___boxed(obj*); obj* l_Option_bind___main___rarg(obj*, obj*); +obj* l_Option_Alternative___lambda__2(obj*); obj* l_Option_isSome___rarg___boxed(obj*); obj* l_Option_orelse(obj*); obj* l_Option_getOrElse___main(obj*); @@ -95,6 +96,7 @@ obj* l_Option_isNone___main___boxed(obj*); obj* l_Option_isSome(obj*); obj* l_Option_decidableRelLt___main___boxed(obj*, obj*); obj* l_Option_Monad___lambda__3(obj*, obj*, obj*, obj*); +obj* l_Option_Alternative___lambda__2___boxed(obj*); obj* l_Option_getOrElse___main___boxed(obj*); obj* l_Option_decidableRelLt___main(obj*, obj*); obj* l_Option_toMonad(obj*, obj*); @@ -244,9 +246,18 @@ return x_1; obj* l_Option_getOrElse___rarg(obj* x_0, obj* x_1) { _start: { -obj* x_2; -x_2 = l_Option_getOrElse___main___rarg(x_0, x_1); -return x_2; +if (lean::obj_tag(x_0) == 0) +{ +lean::inc(x_1); +return x_1; +} +else +{ +obj* x_3; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +return x_3; +} } } obj* l_Option_getOrElse(obj* x_0) { @@ -323,9 +334,18 @@ return x_1; obj* l_Option_get___rarg(obj* x_0, obj* x_1) { _start: { -obj* x_2; -x_2 = l_Option_get___main___rarg(x_0, x_1); -return x_2; +if (lean::obj_tag(x_1) == 0) +{ +lean::inc(x_0); +return x_0; +} +else +{ +obj* x_3; +x_3 = lean::cnstr_get(x_1, 0); +lean::inc(x_3); +return x_3; +} } } obj* l_Option_get(obj* x_0) { @@ -402,10 +422,19 @@ return x_1; uint8 l_Option_toBool___rarg(obj* x_0) { _start: { +if (lean::obj_tag(x_0) == 0) +{ uint8 x_1; -x_1 = l_Option_toBool___main___rarg(x_0); +x_1 = 0; return x_1; } +else +{ +uint8 x_2; +x_2 = 1; +return x_2; +} +} } obj* l_Option_toBool(obj* x_0) { _start: @@ -481,10 +510,19 @@ return x_1; uint8 l_Option_isSome___rarg(obj* x_0) { _start: { +if (lean::obj_tag(x_0) == 0) +{ uint8 x_1; -x_1 = l_Option_isSome___main___rarg(x_0); +x_1 = 0; return x_1; } +else +{ +uint8 x_2; +x_2 = 1; +return x_2; +} +} } obj* l_Option_isSome(obj* x_0) { _start: @@ -560,10 +598,19 @@ return x_1; uint8 l_Option_isNone___rarg(obj* x_0) { _start: { +if (lean::obj_tag(x_0) == 0) +{ uint8 x_1; -x_1 = l_Option_isNone___main___rarg(x_0); +x_1 = 1; return x_1; } +else +{ +uint8 x_2; +x_2 = 0; +return x_2; +} +} } obj* l_Option_isNone(obj* x_0) { _start: @@ -985,9 +1032,16 @@ return x_1; obj* l_Option_orelse___rarg(obj* x_0, obj* x_1) { _start: { -obj* x_2; -x_2 = l_Option_orelse___main___rarg(x_0, x_1); -return x_2; +if (lean::obj_tag(x_0) == 0) +{ +lean::inc(x_1); +return x_1; +} +else +{ +lean::inc(x_0); +return x_0; +} } } obj* l_Option_orelse(obj* x_0) { @@ -1017,7 +1071,22 @@ lean::dec(x_0); return x_1; } } -obj* l_Option_Alternative___lambda__1(obj* x_0) { +obj* l_Option_Alternative___lambda__1(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_1) == 0) +{ +lean::inc(x_2); +return x_2; +} +else +{ +lean::inc(x_1); +return x_1; +} +} +} +obj* l_Option_Alternative___lambda__2(obj* x_0) { _start: { obj* x_1; @@ -1044,8 +1113,8 @@ lean::cnstr_set(x_7, 1, x_3); lean::cnstr_set(x_7, 2, x_4); lean::cnstr_set(x_7, 3, x_5); lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_Option_orelse___boxed), 1, 0); -x_9 = lean::alloc_closure(reinterpret_cast(l_Option_Alternative___lambda__1___boxed), 1, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_Option_Alternative___lambda__1___boxed), 3, 0); +x_9 = lean::alloc_closure(reinterpret_cast(l_Option_Alternative___lambda__2___boxed), 1, 0); x_10 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_10, 0, x_7); lean::cnstr_set(x_10, 1, x_8); @@ -1053,11 +1122,22 @@ lean::cnstr_set(x_10, 2, x_9); return x_10; } } -obj* l_Option_Alternative___lambda__1___boxed(obj* x_0) { +obj* l_Option_Alternative___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = l_Option_Alternative___lambda__1(x_0, x_1, x_2); +lean::dec(x_0); +lean::dec(x_1); +lean::dec(x_2); +return x_3; +} +} +obj* l_Option_Alternative___lambda__2___boxed(obj* x_0) { _start: { obj* x_1; -x_1 = l_Option_Alternative___lambda__1(x_0); +x_1 = l_Option_Alternative___lambda__2(x_0); lean::dec(x_0); return x_1; } diff --git a/src/stage0/init/data/rbmap/basic.cpp b/src/stage0/init/data/rbmap/basic.cpp index d6b7a1f82e..c5867d9ca2 100644 --- a/src/stage0/init/data/rbmap/basic.cpp +++ b/src/stage0/init/data/rbmap/basic.cpp @@ -47,7 +47,6 @@ obj* l_RBMap_any___main(obj*, obj*, obj*); obj* l_RBMap_contains___boxed(obj*, obj*, obj*); obj* l_RBMap_any___main___rarg___boxed(obj*, obj*); obj* l_RBNode_setBlack(obj*, obj*); -uint8 l_Option_isSome___main___rarg(obj*); obj* l_RBNode_isRed___boxed(obj*, obj*); obj* l_RBNode_ins___main(obj*, obj*, obj*); obj* l_RBNode_balance2___main___boxed(obj*, obj*); @@ -6498,12 +6497,22 @@ return x_3; uint8 l_RBMap_contains___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; uint8 x_4; +obj* x_3; x_3 = l_RBNode_find___main___at_RBMap_contains___spec__2___rarg(x_0, lean::box(0), x_1, x_2); -x_4 = l_Option_isSome___main___rarg(x_3); -lean::dec(x_3); +if (lean::obj_tag(x_3) == 0) +{ +uint8 x_4; +x_4 = 0; return x_4; } +else +{ +uint8 x_6; +lean::dec(x_3); +x_6 = 1; +return x_6; +} +} } obj* l_RBMap_contains(obj* x_0, obj* x_1, obj* x_2) { _start: diff --git a/src/stage0/init/data/rbtree/basic.cpp b/src/stage0/init/data/rbtree/basic.cpp index 922b2aa9b5..b8c582a511 100644 --- a/src/stage0/init/data/rbtree/basic.cpp +++ b/src/stage0/init/data/rbtree/basic.cpp @@ -41,7 +41,6 @@ obj* l_rbtreeOf___boxed(obj*); obj* l_rbtreeOf(obj*); obj* l_RBTree_insert___at_rbtreeOf___spec__2___boxed(obj*, obj*); obj* l_RBNode_findCore___main___at_RBTree_seteq___spec__4___rarg(obj*, obj*, obj*); -uint8 l_Option_isSome___main___rarg(obj*); obj* l_RBNode_ins___main___at_RBTree_ofList___main___spec__3___boxed(obj*, obj*); obj* l_RBNode_all___main___at_RBTree_seteq___spec__5___rarg___boxed(obj*, obj*, obj*); obj* l_RBTree_max___boxed(obj*, obj*); @@ -144,7 +143,6 @@ obj* l_RBNode_all___main___at_RBTree_seteq___spec__10___rarg___boxed(obj*, obj*, obj* l_RBTree_revFold___boxed(obj*, obj*, obj*); obj* l_RBTree_find___at_RBTree_seteq___spec__7___boxed(obj*, obj*); obj* l_RBNode_all___main___at_RBTree_seteq___spec__10___boxed(obj*, obj*); -uint8 l_Option_toBool___main___rarg(obj*); obj* l_RBTree_isEmpty(obj*, obj*); obj* l_List_foldl___main___at_rbtreeOf___spec__7(obj*, obj*); obj* l_RBTree_mfold___boxed(obj*, obj*, obj*, obj*); @@ -2562,12 +2560,22 @@ return x_2; uint8 l_RBTree_contains___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; uint8 x_4; +obj* x_3; x_3 = l_RBTree_find___at_RBTree_contains___spec__1___rarg(x_0, x_1, x_2); -x_4 = l_Option_isSome___main___rarg(x_3); -lean::dec(x_3); +if (lean::obj_tag(x_3) == 0) +{ +uint8 x_4; +x_4 = 0; return x_4; } +else +{ +uint8 x_6; +lean::dec(x_3); +x_6 = 1; +return x_6; +} +} } obj* l_RBTree_contains(obj* x_0, obj* x_1) { _start: @@ -3712,7 +3720,7 @@ return x_5; } else { -obj* x_6; obj* x_8; obj* x_10; obj* x_15; uint8 x_16; +obj* x_6; obj* x_8; obj* x_10; obj* x_15; x_6 = lean::cnstr_get(x_2, 0); lean::inc(x_6); x_8 = lean::cnstr_get(x_2, 1); @@ -3723,32 +3731,31 @@ lean::dec(x_2); lean::inc(x_1); lean::inc(x_0); x_15 = l_RBTree_find___at_RBTree_subset___spec__1___rarg(x_0, x_1, x_8); -x_16 = l_Option_toBool___main___rarg(x_15); -lean::dec(x_15); -if (x_16 == 0) +if (lean::obj_tag(x_15) == 0) { -uint8 x_22; +uint8 x_20; lean::dec(x_10); lean::dec(x_1); lean::dec(x_0); lean::dec(x_6); -x_22 = 0; -return x_22; +x_20 = 0; +return x_20; } else { -uint8 x_25; +uint8 x_24; +lean::dec(x_15); lean::inc(x_1); lean::inc(x_0); -x_25 = l_RBNode_all___main___at_RBTree_subset___spec__4___rarg(x_0, x_1, x_6); -if (x_25 == 0) +x_24 = l_RBNode_all___main___at_RBTree_subset___spec__4___rarg(x_0, x_1, x_6); +if (x_24 == 0) { -uint8 x_29; +uint8 x_28; lean::dec(x_10); lean::dec(x_1); lean::dec(x_0); -x_29 = 0; -return x_29; +x_28 = 0; +return x_28; } else { @@ -4000,7 +4007,7 @@ return x_5; } else { -obj* x_6; obj* x_8; obj* x_10; obj* x_15; uint8 x_16; +obj* x_6; obj* x_8; obj* x_10; obj* x_15; x_6 = lean::cnstr_get(x_2, 0); lean::inc(x_6); x_8 = lean::cnstr_get(x_2, 1); @@ -4011,32 +4018,31 @@ lean::dec(x_2); lean::inc(x_1); lean::inc(x_0); x_15 = l_RBTree_find___at_RBTree_seteq___spec__2___rarg(x_0, x_1, x_8); -x_16 = l_Option_toBool___main___rarg(x_15); -lean::dec(x_15); -if (x_16 == 0) +if (lean::obj_tag(x_15) == 0) { -uint8 x_22; +uint8 x_20; lean::dec(x_10); lean::dec(x_1); lean::dec(x_0); lean::dec(x_6); -x_22 = 0; -return x_22; +x_20 = 0; +return x_20; } else { -uint8 x_25; +uint8 x_24; +lean::dec(x_15); lean::inc(x_1); lean::inc(x_0); -x_25 = l_RBNode_all___main___at_RBTree_seteq___spec__5___rarg(x_0, x_1, x_6); -if (x_25 == 0) +x_24 = l_RBNode_all___main___at_RBTree_seteq___spec__5___rarg(x_0, x_1, x_6); +if (x_24 == 0) { -uint8 x_29; +uint8 x_28; lean::dec(x_10); lean::dec(x_1); lean::dec(x_0); -x_29 = 0; -return x_29; +x_28 = 0; +return x_28; } else { @@ -4220,7 +4226,7 @@ return x_5; } else { -obj* x_6; obj* x_8; obj* x_10; obj* x_15; uint8 x_16; +obj* x_6; obj* x_8; obj* x_10; obj* x_15; x_6 = lean::cnstr_get(x_2, 0); lean::inc(x_6); x_8 = lean::cnstr_get(x_2, 1); @@ -4231,32 +4237,31 @@ lean::dec(x_2); lean::inc(x_1); lean::inc(x_0); x_15 = l_RBTree_find___at_RBTree_seteq___spec__7___rarg(x_0, x_1, x_8); -x_16 = l_Option_toBool___main___rarg(x_15); -lean::dec(x_15); -if (x_16 == 0) +if (lean::obj_tag(x_15) == 0) { -uint8 x_22; +uint8 x_20; lean::dec(x_10); lean::dec(x_1); lean::dec(x_0); lean::dec(x_6); -x_22 = 0; -return x_22; +x_20 = 0; +return x_20; } else { -uint8 x_25; +uint8 x_24; +lean::dec(x_15); lean::inc(x_1); lean::inc(x_0); -x_25 = l_RBNode_all___main___at_RBTree_seteq___spec__10___rarg(x_0, x_1, x_6); -if (x_25 == 0) +x_24 = l_RBNode_all___main___at_RBTree_seteq___spec__10___rarg(x_0, x_1, x_6); +if (x_24 == 0) { -uint8 x_29; +uint8 x_28; lean::dec(x_10); lean::dec(x_1); lean::dec(x_0); -x_29 = 0; -return x_29; +x_28 = 0; +return x_28; } else { diff --git a/src/stage0/init/default.cpp b/src/stage0/init/default.cpp index bf4e2bb990..18f2210f7a 100644 --- a/src/stage0/init/default.cpp +++ b/src/stage0/init/default.cpp @@ -1,6 +1,6 @@ // Lean compiler output // Module: init.default -// Imports: init.core init.control.default init.data.basic init.coe init.wf init.data.default init.io init.util +// Imports: init.core init.control.default init.data.basic init.coe init.wf init.data.default init.io init.util init.fix #include "runtime/object.h" #include "runtime/apply.h" typedef lean::object obj; typedef lean::usize usize; @@ -22,6 +22,7 @@ obj* initialize_init_wf(obj*); obj* initialize_init_data_default(obj*); obj* initialize_init_io(obj*); obj* initialize_init_util(obj*); +obj* initialize_init_fix(obj*); static bool _G_initialized = false; obj* initialize_init_default(obj* w) { if (_G_initialized) return w; @@ -42,5 +43,7 @@ if (io_result_is_error(w)) return w; w = initialize_init_io(w); if (io_result_is_error(w)) return w; w = initialize_init_util(w); +if (io_result_is_error(w)) return w; +w = initialize_init_fix(w); return w; } diff --git a/src/stage0/init/lean/elaborator.cpp b/src/stage0/init/lean/elaborator.cpp index d9444bf0d8..3f25ad5235 100644 --- a/src/stage0/init/lean/elaborator.cpp +++ b/src/stage0/init/lean/elaborator.cpp @@ -72,17 +72,14 @@ obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___c obj* l_Lean_Format_pretty(obj*, obj*); obj* l_Lean_Elaborator_OrderedRBMap_ofList___at_Lean_Elaborator_oldElabCommand___spec__9(obj*); obj* l_Lean_Elaborator_mkNotationKind___rarg___closed__1; -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Elaborator_processCommand___spec__4___closed__2; obj* l_Lean_Elaborator_ElaboratorM_MonadExcept; obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__5___boxed(obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Elaborator_processCommand___closed__4; obj* l_Lean_Elaborator_attribute_elaborate___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__6; obj* l_Lean_Elaborator_toPexpr___main___closed__21; obj* l_Lean_Elaborator_matchSpec(obj*, obj*); obj* l_List_mmap_x_27___main___at_Lean_Elaborator_noKind_elaborate___spec__1(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_matchOpenSpec(obj*, obj*); -uint8 l_Option_isSome___main___rarg(obj*); obj* l_Lean_Elaborator_Declaration_elaborate___lambda__4(obj*, obj*); obj* l_Lean_Elaborator_elaboratorInh(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_declModifiersToPexpr___closed__3; @@ -109,12 +106,14 @@ obj* l_Lean_Elaborator_elaborators; obj* l_StateT_Monad___rarg(obj*); obj* l_List_foldl___main___at_Lean_Elaborator_Declaration_elaborate___spec__13(obj*, obj*); extern "C" obj* lean_expr_mk_pi(obj*, uint8, obj*, obj*); +obj* l_RBMap_find___main___at_Lean_Elaborator_processCommand___spec__3(obj*, obj*); obj* l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__18(obj*, obj*); obj* l_Lean_Elaborator_resolveContext___main___closed__1; obj* l_Lean_Elaborator_Declaration_elaborate___lambda__3___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_section_elaborate(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_variables_elaborate___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_reserveNotation_elaborate___boxed(obj*, obj*, obj*, obj*); +obj* l_Lean_Elaborator_processCommand___lambda__1___closed__2; obj* l_Lean_Elaborator_variables_elaborate(obj*, obj*, obj*, obj*); obj* l_RBNode_ins___main___at_Lean_Elaborator_OrderedRBMap_insert___spec__3___boxed(obj*, obj*, obj*); obj* l_Lean_Elaborator_oldElabCommand(obj*, obj*, obj*, obj*, obj*); @@ -133,7 +132,6 @@ obj* l_Lean_Elaborator_toPexpr___main___closed__3; obj* l_List_foldl___main___at_Lean_Parser_Term_mkApp___spec__1(obj*, obj*); obj* l_List_reverse___rarg(obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__9; -obj* l_Lean_Elaborator_processCommand___closed__3; extern obj* l_Lean_Parser_command_attribute; obj* l_Lean_Elaborator_Declaration_elaborate___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_RBNode_ins___main___at_Lean_Elaborator_oldElabCommand___spec__13___boxed(obj*, obj*, obj*, obj*); @@ -165,7 +163,6 @@ obj* l_Lean_Name_toStringWithSep___main(obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__28; extern obj* l_Lean_Parser_Term_have_HasView; obj* l_Lean_Expr_mkCapp(obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Elaborator_processCommand___spec__4___closed__1; obj* l_Lean_Elaborator_end_elaborate___closed__1; obj* l_Lean_Elaborator_toPexpr___main___closed__19; obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1___boxed(obj*); @@ -182,11 +179,13 @@ obj* l_RBTree_toList___rarg(obj*); obj* l_Lean_Elaborator_mkNotationKind(obj*, obj*); obj* l_Lean_Elaborator_command_elaborate(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__34; +obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__2___boxed(obj*); obj* l_List_mmap___main___at_Lean_Elaborator_simpleBindersToPexpr___spec__1(obj*, obj*, obj*, obj*); obj* l_List_map___main___at_Lean_Elaborator_export_elaborate___spec__1(obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__45; obj* l_Lean_Elaborator_toLevel___main___boxed(obj*, obj*, obj*, obj*); extern obj* l_Lean_Options_empty; +obj* l_Lean_Elaborator_section_elaborate___closed__2; obj* l_RBNode_insert___at_Lean_Elaborator_OrderedRBMap_ofList___spec__3(obj*, obj*, obj*); obj* l_RBNode_ins___main___at_Lean_Elaborator_OrderedRBMap_insert___spec__4___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_universe_elaborate___closed__2; @@ -231,7 +230,6 @@ obj* l_Lean_Parser_Term_binderIdent_Parser(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_resolveContext___main___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__47; obj* l_Lean_Elaborator_toPexpr___main___closed__18; -obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__3(obj*); obj* l_Lean_Elaborator_declModifiersToPexpr___closed__6; obj* l_RBNode_ins___main___at_Lean_Elaborator_oldElabCommand___spec__14___boxed(obj*, obj*, obj*, obj*); obj* l_RBNode_balance2___main___rarg(obj*, obj*); @@ -255,13 +253,13 @@ obj* l_Lean_Elaborator_attribute_elaborate(obj*, obj*, obj*, obj*); obj* l_List_mmap___main___at_Lean_Elaborator_elabDefLike___spec__2(obj*, obj*, obj*, obj*, obj*); obj* l_List_mmap___main___at_Lean_Elaborator_CommandParserConfig_registerNotationParser___spec__2___closed__4; obj* l_Lean_Elaborator_OrderedRBMap_insert(obj*, obj*, obj*); +obj* l_fix1___rarg___lambda__1___boxed(obj*, obj*); extern obj* l_Lean_Parser_command_end; extern obj* l_Lean_Parser_Term_sort_HasView_x_27___lambda__1___closed__4; obj* l_Lean_Elaborator_toPexpr___main___closed__27; obj* l_ReaderT_lift___rarg___boxed(obj*, obj*); obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__10(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_preresolve___boxed(obj*, obj*, obj*, obj*); -obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__3___boxed(obj*); obj* l_ReaderT_bind___at_Lean_Elaborator_Declaration_elaborate___spec__1(obj*, obj*); obj* l_Lean_Elaborator_Module_header_elaborate(obj*, obj*, obj*, obj*); extern "C" obj* lean_expr_mk_const(obj*, obj*); @@ -278,7 +276,6 @@ obj* l_List_map___main___at_Lean_Elaborator_CommandParserConfig_registerNotation obj* l_Lean_Elaborator_OrderedRBMap_insert___at_Lean_Elaborator_oldElabCommand___spec__2___boxed(obj*, obj*, obj*, obj*); uint8 l_Lean_Elaborator_isOpenNamespace___main(obj*, obj*); obj* l_ReaderT_Monad___rarg(obj*); -extern obj* l_Lean_Expander_error___rarg___lambda__1___closed__1; obj* l_Lean_Parser_Term_Parser(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_List_foldl___main___at_Lean_Expr_mkApp___spec__1(obj*, obj*); obj* l_Lean_Elaborator_initQuot_elaborate(obj*, obj*, obj*, obj*); @@ -317,9 +314,7 @@ obj* l_List_foldl___main___at_Lean_Elaborator_oldElabCommand___spec__16(obj*, ob obj* l_Lean_Elaborator_toPexpr___main___closed__48; obj* l_Lean_KVMap_setName(obj*, obj*, obj*); obj* l_Lean_Elaborator_matchSpec___closed__1; -obj* l_RBMap_find___main___at_Lean_Elaborator_processCommand___spec__2(obj*, obj*); extern obj* l_Lean_Parser_command_open_HasView; -obj* l_RBMap_find___main___at_Lean_Elaborator_processCommand___spec__2___boxed(obj*, obj*); obj* l_Lean_Elaborator_inferModToPexpr___boxed(obj*); obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__4___boxed(obj*, obj*, obj*, obj*); obj* l_RBNode_ins___main___at_Lean_Elaborator_registerNotationMacro___spec__3(obj*, obj*, obj*, obj*); @@ -328,7 +323,6 @@ extern obj* l_Lean_Parser_command_check; obj* l_RBNode_ins___main___at_Lean_Elaborator_registerNotationMacro___spec__3___boxed(obj*, obj*, obj*, obj*); obj* l_RBNode_ins___main___at_Lean_Elaborator_elaborators___spec__5___boxed(obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_Term_explicit_HasView; -obj* l_Option_getOrElse___main___rarg(obj*, obj*); obj* l_Lean_Elaborator_OrderedRBMap_find___at_Lean_Elaborator_variables_elaborate___spec__1___boxed(obj*, obj*); obj* l_Lean_Parser_command_NotationSpec_precedenceTerm_View_toNat___main(obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__17; @@ -336,6 +330,7 @@ obj* l_RBNode_insert___at_Lean_Elaborator_oldElabCommand___spec__19___boxed(obj* obj* l_List_foldl___main___at_Lean_Elaborator_oldElabCommand___spec__16___boxed(obj*, obj*, obj*); obj* l_RBNode_find___main___at_Lean_Elaborator_toLevel___main___spec__7___boxed(obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_currLbp___rarg___lambda__3___closed__1; +obj* l_RBMap_find___main___at_Lean_Elaborator_processCommand___spec__3___boxed(obj*, obj*); namespace lean { uint8 nat_dec_lt(obj*, obj*); } @@ -407,7 +402,6 @@ obj* l_RBNode_ins___main___at_Lean_Elaborator_oldElabCommand___spec__6___boxed(o obj* l_StateT_MonadExcept___rarg(obj*, obj*, obj*); obj* l_Lean_Elaborator_Declaration_elaborate___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_RBMap_insert___main___at_Lean_Elaborator_OrderedRBMap_insert___spec__1___rarg(obj*, obj*, obj*, obj*); -obj* l_ExceptT_Monad___rarg___lambda__8___boxed(obj*, obj*); obj* l_Lean_Elaborator_section_elaborate___closed__1; obj* l_Lean_Elaborator_currentScope___closed__1; uint8 l_RBNode_isRed___main___rarg(obj*); @@ -418,7 +412,6 @@ obj* l_Lean_Elaborator_setOption_elaborate___lambda__1(obj*, obj*); obj* l_Lean_Elaborator_noKind_elaborate___closed__1; obj* l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__15___boxed(obj*, obj*); obj* l_RBMap_insert___main___at_Lean_Elaborator_OrderedRBMap_ofList___spec__2___rarg(obj*, obj*, obj*, obj*); -obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__3___rarg(obj*, obj*, obj*, obj*); obj* l_List_foldl___main___at_Lean_Elaborator_OrderedRBMap_ofList___spec__7___rarg(obj*, obj*, obj*); obj* l_Lean_Elaborator_CommandParserConfig_registerNotationTokens(obj*, obj*); obj* l_Lean_Elaborator_updateParserConfig___boxed(obj*, obj*, obj*); @@ -454,6 +447,7 @@ obj* l_Lean_Elaborator_Declaration_elaborate(obj*, obj*, obj*, obj*); extern obj* l_Lean_Expander_expandBracketedBinder___main___closed__4; obj* l_Lean_Elaborator_toPexpr___main___closed__13; obj* l_Lean_Elaborator_OrderedRBMap_insert___at_Lean_Elaborator_OrderedRBMap_ofList___spec__1(obj*, obj*, obj*); +obj* l_Lean_Elaborator_processCommand___lambda__1___closed__1; obj* l_Lean_Elaborator_mkEqns___closed__2; namespace lean { uint8 string_dec_eq(obj*, obj*); @@ -498,8 +492,8 @@ obj* l_Lean_Elaborator_setOption_elaborate(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_open_elaborate___boxed(obj*, obj*, obj*, obj*); obj* l_RBMap_insert___main___at_Lean_Elaborator_oldElabCommand___spec__18(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_mkState___closed__5; +obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_RBMap_find___main___at_Lean_Elaborator_OrderedRBMap_find___spec__1(obj*, obj*, obj*); -obj* l_Lean_Elaborator_toPexpr___main___closed__50; obj* l_RBMap_insert___main___at_Lean_Elaborator_registerNotationMacro___spec__1(obj*, obj*, obj*); obj* l_List_mfoldl___main___at_Lean_Elaborator_updateParserConfig___spec__2(obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_Term_sortApp_HasView; @@ -507,7 +501,6 @@ obj* l_Lean_Elaborator_mkNotationKind___boxed(obj*, obj*); obj* l_Lean_Elaborator_OrderedRBMap_empty(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_mkEqns(obj*, obj*); obj* l_RBNode_ins___main___at_Lean_Elaborator_oldElabCommand___spec__5___boxed(obj*, obj*, obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Elaborator_processCommand___spec__4(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_resolveContext___main___lambda__3(obj*, obj*); obj* l_Lean_Elaborator_namespace_elaborate___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_isOpenNamespace___boxed(obj*, obj*); @@ -542,7 +535,6 @@ obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__13(obj*, obj obj* l_Lean_Elaborator_levelGetAppArgs___main___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_namespace_elaborate___closed__1; obj* l_Lean_Elaborator_mkState___closed__1; -obj* l_Lean_Elaborator_processCommand___closed__5; obj* l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__6___boxed(obj*, obj*); obj* l_List_mmap___main___at_Lean_Elaborator_toLevel___main___spec__1___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_modifyCurrentScope___closed__1; @@ -591,7 +583,7 @@ obj* l_Lean_Elaborator_OrderedRBMap_insert___at_Lean_Elaborator_variables_elabor obj* l_RBNode_insert___at_Lean_Elaborator_variables_elaborate___spec__6___boxed(obj*, obj*, obj*, obj*); uint8 l_Lean_Elaborator_toPexpr___main___lambda__2(obj*); extern obj* l_Lean_Parser_Term_borrowed_HasView; -obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); +obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__26; obj* l_List_span___main___rarg(obj*, obj*); obj* l_RBMap_insert___main___at_Lean_Elaborator_oldElabCommand___spec__11(obj*, obj*, obj*, obj*); @@ -610,6 +602,7 @@ extern obj* l_Lean_Parser_number_HasView_x_27___lambda__1___closed__6; obj* l_List_foldl___main___at_Lean_Elaborator_Declaration_elaborate___spec__6(obj*, obj*); obj* l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__12(obj*, obj*); obj* l_Lean_Elaborator_preresolve___main(obj*, obj*, obj*, obj*); +obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__2(obj*); obj* l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__38; extern obj* l_Lean_Parser_command_check_HasView; @@ -617,6 +610,7 @@ obj* l_id_Monad___lambda__1___boxed(obj*, obj*, obj*, obj*); obj* l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__9(obj*, obj*); obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__8___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_variables_elaborate___closed__2; +obj* l_Lean_Elaborator_processCommand___lambda__1(obj*, obj*, obj*, obj*); obj* l_Lean_KVMap_insertCore___main(obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__16; obj* l_List_foldl___main___at_Lean_Elaborator_toPexpr___main___spec__22(obj*, obj*); @@ -668,7 +662,6 @@ obj* l_Lean_Elaborator_noKind_elaborate(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_Module_header_elaborate___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_FileMap_toPosition(obj*, obj*); obj* l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__2(obj*, obj*); -obj* l_Lean_Elaborator_processCommand___closed__2; extern obj* l_Lean_Parser_stringLit_HasView; obj* l_Lean_Elaborator_toLevel___main(obj*, obj*, obj*, obj*); obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__11___boxed(obj*, obj*, obj*, obj*, obj*); @@ -683,6 +676,7 @@ obj* l_Lean_Elaborator_include_elaborate___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1(obj*); obj* l_Lean_Elaborator_declModifiersToPexpr___closed__1; obj* l_RBNode_insert___at_Lean_Elaborator_oldElabCommand___spec__12(obj*, obj*, obj*, obj*); +obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__2___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_registerNotationMacro___boxed(obj*, obj*, obj*, obj*); obj* l_RBMap_insert___main___at_Lean_Elaborator_oldElabCommand___spec__3___boxed(obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_Term_match_HasView; @@ -696,7 +690,6 @@ obj* l_Lean_Parser_Substring_ofString(obj*); obj* l_RBMap_insert___main___at_Lean_NameSet_insert___spec__1(obj*, obj*, obj*); obj* l_List_mmap___main___at_Lean_Elaborator_preresolve___main___spec__1___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_Declaration_elaborate___closed__1; -obj* l_Lean_Elaborator_toPexpr___main___closed__49; extern obj* l_Lean_Parser_command_Declaration_HasView; obj* l_List_map___main___at_Lean_Elaborator_Declaration_elaborate___spec__3(obj*); extern obj* l_Lean_Expander_noExpansion___closed__1; @@ -715,7 +708,6 @@ obj* l_Lean_Elaborator_check_elaborate___closed__1; obj* l_List_map___main___at_Lean_Elaborator_elabDefLike___spec__9(obj*); obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__17___boxed(obj*, obj*, obj*, obj*); obj* l_List_zip___rarg___lambda__1(obj*, obj*); -obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__3___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_List_foldr___main___at_Lean_Elaborator_notation_elaborate___spec__1___boxed(obj*, obj*); obj* l_RBMap_insert___main___at_Lean_Elaborator_OrderedRBMap_ofList___spec__2___boxed(obj*, obj*, obj*); obj* l_Lean_Elaborator_OrderedRBMap_ofList___at_Lean_Elaborator_oldElabCommand___spec__9___closed__1; @@ -746,7 +738,7 @@ extern "C" obj* level_mk_max(obj*, obj*); obj* l_Lean_Parser_Term_binders_Parser(obj*, obj*, obj*, obj*, obj*); obj* l_RBNode_ins___main___at_Lean_Elaborator_registerNotationMacro___spec__4___boxed(obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_Term_pi_HasView; -obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); +obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_OrderedRBMap_ofList___at_Lean_Elaborator_oldElabCommand___spec__1___closed__1; obj* l_List_mmap___main___at_Lean_Elaborator_matchSpec___spec__1(obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__42; @@ -2615,7 +2607,7 @@ x_13 = lean::box(0); if (lean::obj_tag(x_0) == 0) { obj* x_14; obj* x_15; uint8 x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; -x_14 = l_Lean_Expander_error___rarg___lambda__1___closed__1; +x_14 = lean::mk_nat_obj(0ul); x_15 = l_Lean_FileMap_toPosition(x_10, x_14); x_16 = 2; x_17 = l_String_splitAux___main___closed__1; @@ -2633,26 +2625,49 @@ return x_20; } else { -obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_26; uint8 x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +obj* x_21; obj* x_22; x_21 = lean::cnstr_get(x_0, 0); x_22 = l_Lean_Parser_Syntax_getPos(x_21); +if (lean::obj_tag(x_22) == 0) +{ +obj* x_23; obj* x_24; uint8 x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_23 = lean::mk_nat_obj(0ul); -x_24 = l_Option_getOrElse___main___rarg(x_22, x_23); +x_24 = l_Lean_FileMap_toPosition(x_10, x_23); +x_25 = 2; +x_26 = l_String_splitAux___main___closed__1; +x_27 = lean::alloc_cnstr(0, 5, 1); +lean::cnstr_set(x_27, 0, x_8); +lean::cnstr_set(x_27, 1, x_24); +lean::cnstr_set(x_27, 2, x_13); +lean::cnstr_set(x_27, 3, x_26); +lean::cnstr_set(x_27, 4, x_1); +lean::cnstr_set_scalar(x_27, sizeof(void*)*5, x_25); +x_28 = x_27; +x_29 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_29, 0, x_28); +return x_29; +} +else +{ +obj* x_30; obj* x_33; uint8 x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_30 = lean::cnstr_get(x_22, 0); +lean::inc(x_30); lean::dec(x_22); -x_26 = l_Lean_FileMap_toPosition(x_10, x_24); -x_27 = 2; -x_28 = l_String_splitAux___main___closed__1; -x_29 = lean::alloc_cnstr(0, 5, 1); -lean::cnstr_set(x_29, 0, x_8); -lean::cnstr_set(x_29, 1, x_26); -lean::cnstr_set(x_29, 2, x_13); -lean::cnstr_set(x_29, 3, x_28); -lean::cnstr_set(x_29, 4, x_1); -lean::cnstr_set_scalar(x_29, sizeof(void*)*5, x_27); -x_30 = x_29; -x_31 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_31, 0, x_30); -return x_31; +x_33 = l_Lean_FileMap_toPosition(x_10, x_30); +x_34 = 2; +x_35 = l_String_splitAux___main___closed__1; +x_36 = lean::alloc_cnstr(0, 5, 1); +lean::cnstr_set(x_36, 0, x_8); +lean::cnstr_set(x_36, 1, x_33); +lean::cnstr_set(x_36, 2, x_13); +lean::cnstr_set(x_36, 3, x_35); +lean::cnstr_set(x_36, 4, x_1); +lean::cnstr_set_scalar(x_36, sizeof(void*)*5, x_34); +x_37 = x_36; +x_38 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_38, 0, x_37); +return x_38; +} } } } @@ -8718,22 +8733,12 @@ return x_2; obj* _init_l_Lean_Elaborator_toPexpr___main___closed__29() { _start: { -obj* x_0; obj* x_1; obj* x_2; -x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = l_Option_getOrElse___main___rarg(x_0, x_1); -return x_2; -} -} -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__30() { -_start: -{ obj* x_0; x_0 = lean::mk_string("unexpected item in structure instance notation"); return x_0; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__31() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__30() { _start: { obj* x_0; @@ -8741,7 +8746,7 @@ x_0 = lean::mk_string("ill-formed choice"); return x_0; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__32() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__31() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8751,15 +8756,18 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__33() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__32() { _start: { -obj* x_0; +obj* x_0; obj* x_1; obj* x_2; x_0 = lean::mk_string("NOTAString"); -return x_0; +x_1 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1, 0, x_0); +x_2 = lean_expr_mk_lit(x_1); +return x_2; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__34() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__33() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8769,7 +8777,7 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__35() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__34() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8779,7 +8787,7 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__36() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__35() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8789,7 +8797,7 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__37() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__36() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8799,7 +8807,7 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__38() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__37() { _start: { obj* x_0; @@ -8807,7 +8815,7 @@ x_0 = lean::mk_string("ill-formed let"); return x_0; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__39() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__38() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8817,7 +8825,7 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__40() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__39() { _start: { obj* x_0; obj* x_1; @@ -8826,7 +8834,7 @@ x_1 = lean_expr_mk_bvar(x_0); return x_1; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__41() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__40() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8836,20 +8844,7 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__42() { -_start: -{ -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; -x_0 = lean::box(0); -x_1 = lean::mk_string("this"); -x_2 = lean_name_mk_string(x_0, x_1); -x_3 = lean::box(0); -x_4 = l_Option_getOrElse___main___rarg(x_3, x_2); -lean::dec(x_2); -return x_4; -} -} -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__43() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__41() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8859,7 +8854,7 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__44() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__42() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8869,7 +8864,7 @@ x_2 = lean_expr_mk_mvar(x_0, x_1); return x_2; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__45() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__43() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8879,7 +8874,7 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__46() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__44() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8889,7 +8884,7 @@ x_2 = lean_expr_mk_sort(x_1); return x_2; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__47() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__45() { _start: { obj* x_0; @@ -8897,7 +8892,7 @@ x_0 = lean::mk_string("ill-formed pi"); return x_0; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__48() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__46() { _start: { obj* x_0; @@ -8905,7 +8900,7 @@ x_0 = lean::mk_string("ill-formed lambda"); return x_0; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__49() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__47() { _start: { obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; @@ -8919,7 +8914,7 @@ x_6 = l_Lean_KVMap_setName(x_0, x_3, x_5); return x_6; } } -obj* _init_l_Lean_Elaborator_toPexpr___main___closed__50() { +obj* _init_l_Lean_Elaborator_toPexpr___main___closed__48() { _start: { obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; @@ -9619,7 +9614,7 @@ if (lean::obj_tag(x_320) == 0) { obj* x_326; obj* x_327; obj* x_328; obj* x_329; obj* x_330; x_326 = l_Lean_Elaborator_toPexpr___main___closed__28; -x_327 = l_Lean_Elaborator_toPexpr___main___closed__29; +x_327 = lean::box(0); x_328 = l_Lean_KVMap_setName(x_319, x_326, x_327); x_329 = lean_expr_mk_mdata(x_328, x_325); if (lean::is_scalar(x_311)) { @@ -9634,39 +9629,25 @@ goto lbl_16; } else { -obj* x_331; obj* x_333; obj* x_334; obj* x_337; obj* x_338; obj* x_339; obj* x_340; obj* x_342; obj* x_343; obj* x_344; obj* x_345; +obj* x_331; obj* x_334; obj* x_337; obj* x_338; obj* x_339; obj* x_340; obj* x_341; x_331 = lean::cnstr_get(x_320, 0); -if (lean::is_exclusive(x_320)) { - x_333 = x_320; -} else { - lean::inc(x_331); - lean::dec(x_320); - x_333 = lean::box(0); -} +lean::inc(x_331); +lean::dec(x_320); x_334 = lean::cnstr_get(x_331, 0); lean::inc(x_334); lean::dec(x_331); x_337 = l_Lean_Elaborator_mangleIdent(x_334); -if (lean::is_scalar(x_333)) { - x_338 = lean::alloc_cnstr(1, 1, 0); -} else { - x_338 = x_333; -} -lean::cnstr_set(x_338, 0, x_337); -x_339 = lean::box(0); -x_340 = l_Option_getOrElse___main___rarg(x_338, x_339); -lean::dec(x_338); -x_342 = l_Lean_Elaborator_toPexpr___main___closed__28; -x_343 = l_Lean_KVMap_setName(x_319, x_342, x_340); -x_344 = lean_expr_mk_mdata(x_343, x_325); +x_338 = l_Lean_Elaborator_toPexpr___main___closed__28; +x_339 = l_Lean_KVMap_setName(x_319, x_338, x_337); +x_340 = lean_expr_mk_mdata(x_339, x_325); if (lean::is_scalar(x_311)) { - x_345 = lean::alloc_cnstr(0, 2, 0); + x_341 = lean::alloc_cnstr(0, 2, 0); } else { - x_345 = x_311; + x_341 = x_311; } -lean::cnstr_set(x_345, 0, x_344); -lean::cnstr_set(x_345, 1, x_309); -x_15 = x_345; +lean::cnstr_set(x_341, 0, x_340); +lean::cnstr_set(x_341, 1, x_309); +x_15 = x_341; goto lbl_16; } } @@ -9674,337 +9655,323 @@ goto lbl_16; } else { -obj* x_346; obj* x_348; -x_346 = lean::cnstr_get(x_222, 0); -lean::inc(x_346); -x_348 = lean::cnstr_get(x_346, 0); -lean::inc(x_348); -lean::dec(x_346); -if (lean::obj_tag(x_348) == 0) +obj* x_342; obj* x_344; +x_342 = lean::cnstr_get(x_222, 0); +lean::inc(x_342); +x_344 = lean::cnstr_get(x_342, 0); +lean::inc(x_344); +lean::dec(x_342); +if (lean::obj_tag(x_344) == 0) { -obj* x_351; obj* x_352; obj* x_355; obj* x_356; obj* x_359; obj* x_360; obj* x_361; obj* x_363; +obj* x_347; obj* x_348; obj* x_351; obj* x_352; obj* x_355; obj* x_356; obj* x_357; obj* x_359; if (lean::is_exclusive(x_222)) { lean::cnstr_release(x_222, 0); lean::cnstr_release(x_222, 1); - x_351 = x_222; + x_347 = x_222; } else { lean::dec(x_222); - x_351 = lean::box(0); + x_347 = lean::box(0); } -x_352 = lean::cnstr_get(x_221, 0); -lean::inc(x_352); +x_348 = lean::cnstr_get(x_221, 0); +lean::inc(x_348); lean::dec(x_221); -x_355 = l_Lean_Parser_Term_structInstItem_HasView; -x_356 = lean::cnstr_get(x_355, 1); -lean::inc(x_356); -lean::dec(x_355); -x_359 = lean::apply_1(x_356, x_348); -x_360 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_360, 0, x_359); -x_361 = l_Lean_Elaborator_toPexpr___main___closed__30; -lean::inc(x_2); -x_363 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_360, x_361, x_1, x_2, x_3); -lean::dec(x_3); -lean::dec(x_360); -if (lean::obj_tag(x_363) == 0) -{ -obj* x_373; obj* x_375; obj* x_376; +x_351 = l_Lean_Parser_Term_structInstItem_HasView; +x_352 = lean::cnstr_get(x_351, 1); +lean::inc(x_352); lean::dec(x_351); -lean::dec(x_352); +x_355 = lean::apply_1(x_352, x_344); +x_356 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_356, 0, x_355); +x_357 = l_Lean_Elaborator_toPexpr___main___closed__29; +lean::inc(x_2); +x_359 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_356, x_357, x_1, x_2, x_3); +lean::dec(x_3); +lean::dec(x_356); +if (lean::obj_tag(x_359) == 0) +{ +obj* x_369; obj* x_371; obj* x_372; +lean::dec(x_347); +lean::dec(x_348); lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); lean::dec(x_215); lean::dec(x_210); -x_373 = lean::cnstr_get(x_363, 0); -if (lean::is_exclusive(x_363)) { - x_375 = x_363; +x_369 = lean::cnstr_get(x_359, 0); +if (lean::is_exclusive(x_359)) { + x_371 = x_359; } else { - lean::inc(x_373); - lean::dec(x_363); - x_375 = lean::box(0); + lean::inc(x_369); + lean::dec(x_359); + x_371 = lean::box(0); } -if (lean::is_scalar(x_375)) { - x_376 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_371)) { + x_372 = lean::alloc_cnstr(0, 1, 0); } else { - x_376 = x_375; + x_372 = x_371; } -lean::cnstr_set(x_376, 0, x_373); -return x_376; +lean::cnstr_set(x_372, 0, x_369); +return x_372; } else { -obj* x_377; obj* x_380; obj* x_382; obj* x_387; -x_377 = lean::cnstr_get(x_363, 0); -lean::inc(x_377); -lean::dec(x_363); -x_380 = lean::cnstr_get(x_377, 0); -lean::inc(x_380); -x_382 = lean::cnstr_get(x_377, 1); -lean::inc(x_382); -lean::dec(x_377); +obj* x_373; obj* x_376; obj* x_378; obj* x_383; +x_373 = lean::cnstr_get(x_359, 0); +lean::inc(x_373); +lean::dec(x_359); +x_376 = lean::cnstr_get(x_373, 0); +lean::inc(x_376); +x_378 = lean::cnstr_get(x_373, 1); +lean::inc(x_378); +lean::dec(x_373); lean::inc(x_2); lean::inc(x_0); -x_387 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8(x_0, x_215, x_1, x_2, x_382); -if (lean::obj_tag(x_387) == 0) +x_383 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8(x_0, x_215, x_1, x_2, x_378); +if (lean::obj_tag(x_383) == 0) { -obj* x_395; obj* x_397; obj* x_398; -lean::dec(x_351); -lean::dec(x_352); +obj* x_391; obj* x_393; obj* x_394; +lean::dec(x_347); +lean::dec(x_348); lean::dec(x_8); +lean::dec(x_376); lean::dec(x_0); -lean::dec(x_380); lean::dec(x_2); lean::dec(x_210); -x_395 = lean::cnstr_get(x_387, 0); -if (lean::is_exclusive(x_387)) { - x_397 = x_387; +x_391 = lean::cnstr_get(x_383, 0); +if (lean::is_exclusive(x_383)) { + x_393 = x_383; } else { - lean::inc(x_395); - lean::dec(x_387); - x_397 = lean::box(0); + lean::inc(x_391); + lean::dec(x_383); + x_393 = lean::box(0); } -if (lean::is_scalar(x_397)) { - x_398 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_393)) { + x_394 = lean::alloc_cnstr(0, 1, 0); } else { - x_398 = x_397; + x_394 = x_393; } -lean::cnstr_set(x_398, 0, x_395); -return x_398; +lean::cnstr_set(x_394, 0, x_391); +return x_394; } else { -obj* x_399; obj* x_402; obj* x_404; obj* x_407; obj* x_411; -x_399 = lean::cnstr_get(x_387, 0); -lean::inc(x_399); -lean::dec(x_387); -x_402 = lean::cnstr_get(x_399, 0); -lean::inc(x_402); -x_404 = lean::cnstr_get(x_399, 1); -lean::inc(x_404); -lean::dec(x_399); +obj* x_395; obj* x_398; obj* x_400; obj* x_403; obj* x_407; +x_395 = lean::cnstr_get(x_383, 0); +lean::inc(x_395); +lean::dec(x_383); +x_398 = lean::cnstr_get(x_395, 0); +lean::inc(x_398); +x_400 = lean::cnstr_get(x_395, 1); +lean::inc(x_400); +lean::dec(x_395); lean::inc(x_2); lean::inc(x_0); -x_411 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__10(x_0, x_352, x_1, x_2, x_404); -if (lean::obj_tag(x_411) == 0) +x_407 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__10(x_0, x_348, x_1, x_2, x_400); +if (lean::obj_tag(x_407) == 0) { -obj* x_419; obj* x_421; obj* x_422; -lean::dec(x_351); +obj* x_415; obj* x_417; obj* x_418; +lean::dec(x_347); lean::dec(x_8); +lean::dec(x_376); lean::dec(x_0); -lean::dec(x_380); lean::dec(x_2); -lean::dec(x_402); +lean::dec(x_398); lean::dec(x_210); -x_419 = lean::cnstr_get(x_411, 0); -if (lean::is_exclusive(x_411)) { - x_421 = x_411; -} else { - lean::inc(x_419); - lean::dec(x_411); - x_421 = lean::box(0); -} -if (lean::is_scalar(x_421)) { - x_422 = lean::alloc_cnstr(0, 1, 0); -} else { - x_422 = x_421; -} -lean::cnstr_set(x_422, 0, x_419); -return x_422; -} -else -{ -obj* x_423; obj* x_426; -x_423 = lean::cnstr_get(x_411, 0); -lean::inc(x_423); -lean::dec(x_411); -x_426 = lean::cnstr_get(x_210, 2); -lean::inc(x_426); -if (lean::obj_tag(x_426) == 0) -{ -obj* x_429; obj* x_431; obj* x_433; obj* x_434; -lean::dec(x_351); -x_429 = lean::cnstr_get(x_423, 0); -x_431 = lean::cnstr_get(x_423, 1); -if (lean::is_exclusive(x_423)) { - x_433 = x_423; -} else { - lean::inc(x_429); - lean::inc(x_431); - lean::dec(x_423); - x_433 = lean::box(0); -} -if (lean::is_scalar(x_433)) { - x_434 = lean::alloc_cnstr(0, 2, 0); -} else { - x_434 = x_433; -} -lean::cnstr_set(x_434, 0, x_429); -lean::cnstr_set(x_434, 1, x_431); -x_407 = x_434; -goto lbl_408; -} -else -{ -obj* x_435; obj* x_437; obj* x_440; obj* x_443; obj* x_447; -x_435 = lean::cnstr_get(x_423, 0); -lean::inc(x_435); -x_437 = lean::cnstr_get(x_423, 1); -lean::inc(x_437); -lean::dec(x_423); -x_440 = lean::cnstr_get(x_426, 0); -lean::inc(x_440); -lean::dec(x_426); -x_443 = lean::cnstr_get(x_440, 0); -lean::inc(x_443); -lean::dec(x_440); -lean::inc(x_2); -x_447 = l_Lean_Elaborator_toPexpr___main(x_443, x_1, x_2, x_437); -if (lean::obj_tag(x_447) == 0) -{ -obj* x_456; obj* x_458; obj* x_459; -lean::dec(x_351); -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_380); -lean::dec(x_2); -lean::dec(x_435); -lean::dec(x_402); -lean::dec(x_210); -x_456 = lean::cnstr_get(x_447, 0); -if (lean::is_exclusive(x_447)) { - x_458 = x_447; -} else { - lean::inc(x_456); - lean::dec(x_447); - x_458 = lean::box(0); -} -if (lean::is_scalar(x_458)) { - x_459 = lean::alloc_cnstr(0, 1, 0); -} else { - x_459 = x_458; -} -lean::cnstr_set(x_459, 0, x_456); -return x_459; -} -else -{ -obj* x_460; obj* x_463; obj* x_465; obj* x_467; obj* x_468; obj* x_469; obj* x_470; obj* x_471; -x_460 = lean::cnstr_get(x_447, 0); -lean::inc(x_460); -lean::dec(x_447); -x_463 = lean::cnstr_get(x_460, 0); -x_465 = lean::cnstr_get(x_460, 1); -if (lean::is_exclusive(x_460)) { - x_467 = x_460; -} else { - lean::inc(x_463); - lean::inc(x_465); - lean::dec(x_460); - x_467 = lean::box(0); -} -x_468 = lean::box(0); -if (lean::is_scalar(x_351)) { - x_469 = lean::alloc_cnstr(1, 2, 0); -} else { - x_469 = x_351; -} -lean::cnstr_set(x_469, 0, x_463); -lean::cnstr_set(x_469, 1, x_468); -x_470 = l_List_append___rarg(x_435, x_469); -if (lean::is_scalar(x_467)) { - x_471 = lean::alloc_cnstr(0, 2, 0); -} else { - x_471 = x_467; -} -lean::cnstr_set(x_471, 0, x_470); -lean::cnstr_set(x_471, 1, x_465); -x_407 = x_471; -goto lbl_408; -} -} -} -lbl_408: -{ -obj* x_472; obj* x_474; obj* x_476; obj* x_477; obj* x_478; obj* x_479; obj* x_480; obj* x_481; obj* x_482; uint8 x_483; obj* x_484; obj* x_485; obj* x_488; obj* x_489; obj* x_490; -x_472 = lean::cnstr_get(x_407, 0); -x_474 = lean::cnstr_get(x_407, 1); +x_415 = lean::cnstr_get(x_407, 0); if (lean::is_exclusive(x_407)) { - lean::cnstr_set(x_407, 0, lean::box(0)); - lean::cnstr_set(x_407, 1, lean::box(0)); - x_476 = x_407; + x_417 = x_407; } else { - lean::inc(x_472); - lean::inc(x_474); + lean::inc(x_415); lean::dec(x_407); - x_476 = lean::box(0); + x_417 = lean::box(0); } -x_477 = lean::mk_nat_obj(0ul); -x_478 = l_List_lengthAux___main___rarg(x_402, x_477); -x_479 = lean::box(0); -x_480 = l_Lean_Elaborator_toPexpr___main___closed__25; -x_481 = l_Lean_KVMap_setNat(x_479, x_480, x_478); -x_482 = l_Lean_Elaborator_toPexpr___main___closed__26; -x_483 = lean::unbox(x_380); -x_484 = l_Lean_KVMap_setBool(x_481, x_482, x_483); -x_485 = lean::cnstr_get(x_210, 1); -lean::inc(x_485); +if (lean::is_scalar(x_417)) { + x_418 = lean::alloc_cnstr(0, 1, 0); +} else { + x_418 = x_417; +} +lean::cnstr_set(x_418, 0, x_415); +return x_418; +} +else +{ +obj* x_419; obj* x_422; +x_419 = lean::cnstr_get(x_407, 0); +lean::inc(x_419); +lean::dec(x_407); +x_422 = lean::cnstr_get(x_210, 2); +lean::inc(x_422); +if (lean::obj_tag(x_422) == 0) +{ +obj* x_425; obj* x_427; obj* x_429; obj* x_430; +lean::dec(x_347); +x_425 = lean::cnstr_get(x_419, 0); +x_427 = lean::cnstr_get(x_419, 1); +if (lean::is_exclusive(x_419)) { + x_429 = x_419; +} else { + lean::inc(x_425); + lean::inc(x_427); + lean::dec(x_419); + x_429 = lean::box(0); +} +if (lean::is_scalar(x_429)) { + x_430 = lean::alloc_cnstr(0, 2, 0); +} else { + x_430 = x_429; +} +lean::cnstr_set(x_430, 0, x_425); +lean::cnstr_set(x_430, 1, x_427); +x_403 = x_430; +goto lbl_404; +} +else +{ +obj* x_431; obj* x_433; obj* x_436; obj* x_439; obj* x_443; +x_431 = lean::cnstr_get(x_419, 0); +lean::inc(x_431); +x_433 = lean::cnstr_get(x_419, 1); +lean::inc(x_433); +lean::dec(x_419); +x_436 = lean::cnstr_get(x_422, 0); +lean::inc(x_436); +lean::dec(x_422); +x_439 = lean::cnstr_get(x_436, 0); +lean::inc(x_439); +lean::dec(x_436); +lean::inc(x_2); +x_443 = l_Lean_Elaborator_toPexpr___main(x_439, x_1, x_2, x_433); +if (lean::obj_tag(x_443) == 0) +{ +obj* x_452; obj* x_454; obj* x_455; +lean::dec(x_347); +lean::dec(x_8); +lean::dec(x_376); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_431); +lean::dec(x_398); lean::dec(x_210); -x_488 = l_List_append___rarg(x_402, x_472); -x_489 = l_Lean_Elaborator_toPexpr___main___closed__27; -x_490 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__9(x_489, x_488); -if (lean::obj_tag(x_485) == 0) -{ -obj* x_491; obj* x_492; obj* x_493; obj* x_494; obj* x_495; -x_491 = l_Lean_Elaborator_toPexpr___main___closed__28; -x_492 = l_Lean_Elaborator_toPexpr___main___closed__29; -x_493 = l_Lean_KVMap_setName(x_484, x_491, x_492); -x_494 = lean_expr_mk_mdata(x_493, x_490); -if (lean::is_scalar(x_476)) { - x_495 = lean::alloc_cnstr(0, 2, 0); +x_452 = lean::cnstr_get(x_443, 0); +if (lean::is_exclusive(x_443)) { + x_454 = x_443; } else { - x_495 = x_476; + lean::inc(x_452); + lean::dec(x_443); + x_454 = lean::box(0); } -lean::cnstr_set(x_495, 0, x_494); -lean::cnstr_set(x_495, 1, x_474); -x_15 = x_495; +if (lean::is_scalar(x_454)) { + x_455 = lean::alloc_cnstr(0, 1, 0); +} else { + x_455 = x_454; +} +lean::cnstr_set(x_455, 0, x_452); +return x_455; +} +else +{ +obj* x_456; obj* x_459; obj* x_461; obj* x_463; obj* x_464; obj* x_465; obj* x_466; obj* x_467; +x_456 = lean::cnstr_get(x_443, 0); +lean::inc(x_456); +lean::dec(x_443); +x_459 = lean::cnstr_get(x_456, 0); +x_461 = lean::cnstr_get(x_456, 1); +if (lean::is_exclusive(x_456)) { + x_463 = x_456; +} else { + lean::inc(x_459); + lean::inc(x_461); + lean::dec(x_456); + x_463 = lean::box(0); +} +x_464 = lean::box(0); +if (lean::is_scalar(x_347)) { + x_465 = lean::alloc_cnstr(1, 2, 0); +} else { + x_465 = x_347; +} +lean::cnstr_set(x_465, 0, x_459); +lean::cnstr_set(x_465, 1, x_464); +x_466 = l_List_append___rarg(x_431, x_465); +if (lean::is_scalar(x_463)) { + x_467 = lean::alloc_cnstr(0, 2, 0); +} else { + x_467 = x_463; +} +lean::cnstr_set(x_467, 0, x_466); +lean::cnstr_set(x_467, 1, x_461); +x_403 = x_467; +goto lbl_404; +} +} +} +lbl_404: +{ +obj* x_468; obj* x_470; obj* x_472; obj* x_473; obj* x_474; obj* x_475; obj* x_476; obj* x_477; obj* x_478; uint8 x_479; obj* x_480; obj* x_481; obj* x_484; obj* x_485; obj* x_486; +x_468 = lean::cnstr_get(x_403, 0); +x_470 = lean::cnstr_get(x_403, 1); +if (lean::is_exclusive(x_403)) { + lean::cnstr_set(x_403, 0, lean::box(0)); + lean::cnstr_set(x_403, 1, lean::box(0)); + x_472 = x_403; +} else { + lean::inc(x_468); + lean::inc(x_470); + lean::dec(x_403); + x_472 = lean::box(0); +} +x_473 = lean::mk_nat_obj(0ul); +x_474 = l_List_lengthAux___main___rarg(x_398, x_473); +x_475 = lean::box(0); +x_476 = l_Lean_Elaborator_toPexpr___main___closed__25; +x_477 = l_Lean_KVMap_setNat(x_475, x_476, x_474); +x_478 = l_Lean_Elaborator_toPexpr___main___closed__26; +x_479 = lean::unbox(x_376); +x_480 = l_Lean_KVMap_setBool(x_477, x_478, x_479); +x_481 = lean::cnstr_get(x_210, 1); +lean::inc(x_481); +lean::dec(x_210); +x_484 = l_List_append___rarg(x_398, x_468); +x_485 = l_Lean_Elaborator_toPexpr___main___closed__27; +x_486 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__9(x_485, x_484); +if (lean::obj_tag(x_481) == 0) +{ +obj* x_487; obj* x_488; obj* x_489; obj* x_490; obj* x_491; +x_487 = l_Lean_Elaborator_toPexpr___main___closed__28; +x_488 = lean::box(0); +x_489 = l_Lean_KVMap_setName(x_480, x_487, x_488); +x_490 = lean_expr_mk_mdata(x_489, x_486); +if (lean::is_scalar(x_472)) { + x_491 = lean::alloc_cnstr(0, 2, 0); +} else { + x_491 = x_472; +} +lean::cnstr_set(x_491, 0, x_490); +lean::cnstr_set(x_491, 1, x_470); +x_15 = x_491; goto lbl_16; } else { -obj* x_496; obj* x_498; obj* x_499; obj* x_502; obj* x_503; obj* x_504; obj* x_505; obj* x_507; obj* x_508; obj* x_509; obj* x_510; -x_496 = lean::cnstr_get(x_485, 0); -if (lean::is_exclusive(x_485)) { - x_498 = x_485; +obj* x_492; obj* x_495; obj* x_498; obj* x_499; obj* x_500; obj* x_501; obj* x_502; +x_492 = lean::cnstr_get(x_481, 0); +lean::inc(x_492); +lean::dec(x_481); +x_495 = lean::cnstr_get(x_492, 0); +lean::inc(x_495); +lean::dec(x_492); +x_498 = l_Lean_Elaborator_mangleIdent(x_495); +x_499 = l_Lean_Elaborator_toPexpr___main___closed__28; +x_500 = l_Lean_KVMap_setName(x_480, x_499, x_498); +x_501 = lean_expr_mk_mdata(x_500, x_486); +if (lean::is_scalar(x_472)) { + x_502 = lean::alloc_cnstr(0, 2, 0); } else { - lean::inc(x_496); - lean::dec(x_485); - x_498 = lean::box(0); + x_502 = x_472; } -x_499 = lean::cnstr_get(x_496, 0); -lean::inc(x_499); -lean::dec(x_496); -x_502 = l_Lean_Elaborator_mangleIdent(x_499); -if (lean::is_scalar(x_498)) { - x_503 = lean::alloc_cnstr(1, 1, 0); -} else { - x_503 = x_498; -} -lean::cnstr_set(x_503, 0, x_502); -x_504 = lean::box(0); -x_505 = l_Option_getOrElse___main___rarg(x_503, x_504); -lean::dec(x_503); -x_507 = l_Lean_Elaborator_toPexpr___main___closed__28; -x_508 = l_Lean_KVMap_setName(x_484, x_507, x_505); -x_509 = lean_expr_mk_mdata(x_508, x_490); -if (lean::is_scalar(x_476)) { - x_510 = lean::alloc_cnstr(0, 2, 0); -} else { - x_510 = x_476; -} -lean::cnstr_set(x_510, 0, x_509); -lean::cnstr_set(x_510, 1, x_474); -x_15 = x_510; +lean::cnstr_set(x_502, 0, x_501); +lean::cnstr_set(x_502, 1, x_470); +x_15 = x_502; goto lbl_16; } } @@ -10013,283 +9980,269 @@ goto lbl_16; } else { -obj* x_511; obj* x_513; -x_511 = lean::cnstr_get(x_222, 1); +obj* x_503; obj* x_505; +x_503 = lean::cnstr_get(x_222, 1); if (lean::is_exclusive(x_222)) { lean::cnstr_release(x_222, 0); lean::cnstr_set(x_222, 1, lean::box(0)); - x_513 = x_222; + x_505 = x_222; } else { - lean::inc(x_511); + lean::inc(x_503); lean::dec(x_222); - x_513 = lean::box(0); + x_505 = lean::box(0); } -if (lean::obj_tag(x_511) == 0) +if (lean::obj_tag(x_503) == 0) { -obj* x_515; obj* x_520; -lean::dec(x_348); -x_515 = lean::cnstr_get(x_221, 0); -lean::inc(x_515); +obj* x_507; obj* x_512; +lean::dec(x_344); +x_507 = lean::cnstr_get(x_221, 0); +lean::inc(x_507); lean::dec(x_221); lean::inc(x_2); lean::inc(x_0); -x_520 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__11(x_0, x_215, x_1, x_2, x_3); -if (lean::obj_tag(x_520) == 0) +x_512 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__11(x_0, x_215, x_1, x_2, x_3); +if (lean::obj_tag(x_512) == 0) { -obj* x_527; obj* x_529; obj* x_530; -lean::dec(x_513); -lean::dec(x_515); +obj* x_519; obj* x_521; obj* x_522; +lean::dec(x_507); +lean::dec(x_505); lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); lean::dec(x_210); -x_527 = lean::cnstr_get(x_520, 0); -if (lean::is_exclusive(x_520)) { - x_529 = x_520; +x_519 = lean::cnstr_get(x_512, 0); +if (lean::is_exclusive(x_512)) { + x_521 = x_512; } else { - lean::inc(x_527); - lean::dec(x_520); - x_529 = lean::box(0); + lean::inc(x_519); + lean::dec(x_512); + x_521 = lean::box(0); } -if (lean::is_scalar(x_529)) { - x_530 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_521)) { + x_522 = lean::alloc_cnstr(0, 1, 0); } else { - x_530 = x_529; + x_522 = x_521; } -lean::cnstr_set(x_530, 0, x_527); -return x_530; +lean::cnstr_set(x_522, 0, x_519); +return x_522; } else { -obj* x_531; obj* x_534; obj* x_536; obj* x_539; obj* x_543; -x_531 = lean::cnstr_get(x_520, 0); -lean::inc(x_531); -lean::dec(x_520); -x_534 = lean::cnstr_get(x_531, 0); -lean::inc(x_534); -x_536 = lean::cnstr_get(x_531, 1); -lean::inc(x_536); -lean::dec(x_531); +obj* x_523; obj* x_526; obj* x_528; obj* x_531; obj* x_535; +x_523 = lean::cnstr_get(x_512, 0); +lean::inc(x_523); +lean::dec(x_512); +x_526 = lean::cnstr_get(x_523, 0); +lean::inc(x_526); +x_528 = lean::cnstr_get(x_523, 1); +lean::inc(x_528); +lean::dec(x_523); lean::inc(x_2); lean::inc(x_0); -x_543 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__13(x_0, x_515, x_1, x_2, x_536); -if (lean::obj_tag(x_543) == 0) +x_535 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__13(x_0, x_507, x_1, x_2, x_528); +if (lean::obj_tag(x_535) == 0) { -obj* x_550; obj* x_552; obj* x_553; -lean::dec(x_513); -lean::dec(x_534); +obj* x_542; obj* x_544; obj* x_545; +lean::dec(x_505); +lean::dec(x_526); lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); lean::dec(x_210); -x_550 = lean::cnstr_get(x_543, 0); -if (lean::is_exclusive(x_543)) { - x_552 = x_543; +x_542 = lean::cnstr_get(x_535, 0); +if (lean::is_exclusive(x_535)) { + x_544 = x_535; } else { - lean::inc(x_550); - lean::dec(x_543); - x_552 = lean::box(0); + lean::inc(x_542); + lean::dec(x_535); + x_544 = lean::box(0); } -if (lean::is_scalar(x_552)) { - x_553 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_544)) { + x_545 = lean::alloc_cnstr(0, 1, 0); } else { - x_553 = x_552; + x_545 = x_544; } -lean::cnstr_set(x_553, 0, x_550); -return x_553; +lean::cnstr_set(x_545, 0, x_542); +return x_545; } else { -obj* x_554; obj* x_557; -x_554 = lean::cnstr_get(x_543, 0); -lean::inc(x_554); -lean::dec(x_543); -x_557 = lean::cnstr_get(x_210, 2); -lean::inc(x_557); -if (lean::obj_tag(x_557) == 0) +obj* x_546; obj* x_549; +x_546 = lean::cnstr_get(x_535, 0); +lean::inc(x_546); +lean::dec(x_535); +x_549 = lean::cnstr_get(x_210, 2); +lean::inc(x_549); +if (lean::obj_tag(x_549) == 0) { -obj* x_560; obj* x_562; obj* x_564; obj* x_565; -lean::dec(x_513); -x_560 = lean::cnstr_get(x_554, 0); -x_562 = lean::cnstr_get(x_554, 1); -if (lean::is_exclusive(x_554)) { - x_564 = x_554; +obj* x_552; obj* x_554; obj* x_556; obj* x_557; +lean::dec(x_505); +x_552 = lean::cnstr_get(x_546, 0); +x_554 = lean::cnstr_get(x_546, 1); +if (lean::is_exclusive(x_546)) { + x_556 = x_546; } else { - lean::inc(x_560); - lean::inc(x_562); - lean::dec(x_554); - x_564 = lean::box(0); + lean::inc(x_552); + lean::inc(x_554); + lean::dec(x_546); + x_556 = lean::box(0); } -if (lean::is_scalar(x_564)) { - x_565 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_556)) { + x_557 = lean::alloc_cnstr(0, 2, 0); } else { - x_565 = x_564; + x_557 = x_556; } -lean::cnstr_set(x_565, 0, x_560); -lean::cnstr_set(x_565, 1, x_562); -x_539 = x_565; -goto lbl_540; +lean::cnstr_set(x_557, 0, x_552); +lean::cnstr_set(x_557, 1, x_554); +x_531 = x_557; +goto lbl_532; } else { -obj* x_566; obj* x_568; obj* x_571; obj* x_574; obj* x_578; -x_566 = lean::cnstr_get(x_554, 0); +obj* x_558; obj* x_560; obj* x_563; obj* x_566; obj* x_570; +x_558 = lean::cnstr_get(x_546, 0); +lean::inc(x_558); +x_560 = lean::cnstr_get(x_546, 1); +lean::inc(x_560); +lean::dec(x_546); +x_563 = lean::cnstr_get(x_549, 0); +lean::inc(x_563); +lean::dec(x_549); +x_566 = lean::cnstr_get(x_563, 0); lean::inc(x_566); -x_568 = lean::cnstr_get(x_554, 1); -lean::inc(x_568); -lean::dec(x_554); -x_571 = lean::cnstr_get(x_557, 0); -lean::inc(x_571); -lean::dec(x_557); -x_574 = lean::cnstr_get(x_571, 0); -lean::inc(x_574); -lean::dec(x_571); +lean::dec(x_563); lean::inc(x_2); -x_578 = l_Lean_Elaborator_toPexpr___main(x_574, x_1, x_2, x_568); -if (lean::obj_tag(x_578) == 0) +x_570 = l_Lean_Elaborator_toPexpr___main(x_566, x_1, x_2, x_560); +if (lean::obj_tag(x_570) == 0) { -obj* x_586; obj* x_588; obj* x_589; -lean::dec(x_513); -lean::dec(x_566); -lean::dec(x_534); +obj* x_578; obj* x_580; obj* x_581; +lean::dec(x_505); +lean::dec(x_526); lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); +lean::dec(x_558); lean::dec(x_210); -x_586 = lean::cnstr_get(x_578, 0); -if (lean::is_exclusive(x_578)) { - x_588 = x_578; +x_578 = lean::cnstr_get(x_570, 0); +if (lean::is_exclusive(x_570)) { + x_580 = x_570; } else { - lean::inc(x_586); - lean::dec(x_578); - x_588 = lean::box(0); + lean::inc(x_578); + lean::dec(x_570); + x_580 = lean::box(0); } -if (lean::is_scalar(x_588)) { - x_589 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_580)) { + x_581 = lean::alloc_cnstr(0, 1, 0); } else { - x_589 = x_588; + x_581 = x_580; } -lean::cnstr_set(x_589, 0, x_586); -return x_589; +lean::cnstr_set(x_581, 0, x_578); +return x_581; } else { -obj* x_590; obj* x_593; obj* x_595; obj* x_597; obj* x_598; obj* x_599; obj* x_600; obj* x_601; -x_590 = lean::cnstr_get(x_578, 0); -lean::inc(x_590); -lean::dec(x_578); -x_593 = lean::cnstr_get(x_590, 0); -x_595 = lean::cnstr_get(x_590, 1); -if (lean::is_exclusive(x_590)) { - x_597 = x_590; +obj* x_582; obj* x_585; obj* x_587; obj* x_589; obj* x_590; obj* x_591; obj* x_592; obj* x_593; +x_582 = lean::cnstr_get(x_570, 0); +lean::inc(x_582); +lean::dec(x_570); +x_585 = lean::cnstr_get(x_582, 0); +x_587 = lean::cnstr_get(x_582, 1); +if (lean::is_exclusive(x_582)) { + x_589 = x_582; } else { - lean::inc(x_593); - lean::inc(x_595); - lean::dec(x_590); - x_597 = lean::box(0); + lean::inc(x_585); + lean::inc(x_587); + lean::dec(x_582); + x_589 = lean::box(0); } -x_598 = lean::box(0); -if (lean::is_scalar(x_513)) { - x_599 = lean::alloc_cnstr(1, 2, 0); +x_590 = lean::box(0); +if (lean::is_scalar(x_505)) { + x_591 = lean::alloc_cnstr(1, 2, 0); } else { - x_599 = x_513; + x_591 = x_505; } -lean::cnstr_set(x_599, 0, x_593); -lean::cnstr_set(x_599, 1, x_598); -x_600 = l_List_append___rarg(x_566, x_599); -if (lean::is_scalar(x_597)) { - x_601 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_591, 0, x_585); +lean::cnstr_set(x_591, 1, x_590); +x_592 = l_List_append___rarg(x_558, x_591); +if (lean::is_scalar(x_589)) { + x_593 = lean::alloc_cnstr(0, 2, 0); } else { - x_601 = x_597; + x_593 = x_589; } -lean::cnstr_set(x_601, 0, x_600); -lean::cnstr_set(x_601, 1, x_595); -x_539 = x_601; -goto lbl_540; +lean::cnstr_set(x_593, 0, x_592); +lean::cnstr_set(x_593, 1, x_587); +x_531 = x_593; +goto lbl_532; } } } -lbl_540: +lbl_532: { -obj* x_602; obj* x_604; obj* x_606; obj* x_607; obj* x_608; obj* x_609; obj* x_610; obj* x_611; obj* x_612; uint8 x_613; obj* x_614; obj* x_615; obj* x_618; obj* x_619; obj* x_620; -x_602 = lean::cnstr_get(x_539, 0); -x_604 = lean::cnstr_get(x_539, 1); -if (lean::is_exclusive(x_539)) { - lean::cnstr_set(x_539, 0, lean::box(0)); - lean::cnstr_set(x_539, 1, lean::box(0)); - x_606 = x_539; +obj* x_594; obj* x_596; obj* x_598; obj* x_599; obj* x_600; obj* x_601; obj* x_602; obj* x_603; obj* x_604; uint8 x_605; obj* x_606; obj* x_607; obj* x_610; obj* x_611; obj* x_612; +x_594 = lean::cnstr_get(x_531, 0); +x_596 = lean::cnstr_get(x_531, 1); +if (lean::is_exclusive(x_531)) { + lean::cnstr_set(x_531, 0, lean::box(0)); + lean::cnstr_set(x_531, 1, lean::box(0)); + x_598 = x_531; } else { - lean::inc(x_602); - lean::inc(x_604); - lean::dec(x_539); - x_606 = lean::box(0); + lean::inc(x_594); + lean::inc(x_596); + lean::dec(x_531); + x_598 = lean::box(0); } -x_607 = lean::mk_nat_obj(0ul); -x_608 = l_List_lengthAux___main___rarg(x_534, x_607); -x_609 = lean::box(0); -x_610 = l_Lean_Elaborator_toPexpr___main___closed__25; -x_611 = l_Lean_KVMap_setNat(x_609, x_610, x_608); -x_612 = l_Lean_Elaborator_toPexpr___main___closed__26; -x_613 = 1; -x_614 = l_Lean_KVMap_setBool(x_611, x_612, x_613); -x_615 = lean::cnstr_get(x_210, 1); -lean::inc(x_615); +x_599 = lean::mk_nat_obj(0ul); +x_600 = l_List_lengthAux___main___rarg(x_526, x_599); +x_601 = lean::box(0); +x_602 = l_Lean_Elaborator_toPexpr___main___closed__25; +x_603 = l_Lean_KVMap_setNat(x_601, x_602, x_600); +x_604 = l_Lean_Elaborator_toPexpr___main___closed__26; +x_605 = 1; +x_606 = l_Lean_KVMap_setBool(x_603, x_604, x_605); +x_607 = lean::cnstr_get(x_210, 1); +lean::inc(x_607); lean::dec(x_210); -x_618 = l_List_append___rarg(x_534, x_602); -x_619 = l_Lean_Elaborator_toPexpr___main___closed__27; -x_620 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__12(x_619, x_618); -if (lean::obj_tag(x_615) == 0) +x_610 = l_List_append___rarg(x_526, x_594); +x_611 = l_Lean_Elaborator_toPexpr___main___closed__27; +x_612 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__12(x_611, x_610); +if (lean::obj_tag(x_607) == 0) { -obj* x_621; obj* x_622; obj* x_623; obj* x_624; obj* x_625; -x_621 = l_Lean_Elaborator_toPexpr___main___closed__28; -x_622 = l_Lean_Elaborator_toPexpr___main___closed__29; -x_623 = l_Lean_KVMap_setName(x_614, x_621, x_622); -x_624 = lean_expr_mk_mdata(x_623, x_620); -if (lean::is_scalar(x_606)) { - x_625 = lean::alloc_cnstr(0, 2, 0); +obj* x_613; obj* x_614; obj* x_615; obj* x_616; obj* x_617; +x_613 = l_Lean_Elaborator_toPexpr___main___closed__28; +x_614 = lean::box(0); +x_615 = l_Lean_KVMap_setName(x_606, x_613, x_614); +x_616 = lean_expr_mk_mdata(x_615, x_612); +if (lean::is_scalar(x_598)) { + x_617 = lean::alloc_cnstr(0, 2, 0); } else { - x_625 = x_606; + x_617 = x_598; } -lean::cnstr_set(x_625, 0, x_624); -lean::cnstr_set(x_625, 1, x_604); -x_15 = x_625; +lean::cnstr_set(x_617, 0, x_616); +lean::cnstr_set(x_617, 1, x_596); +x_15 = x_617; goto lbl_16; } else { -obj* x_626; obj* x_628; obj* x_629; obj* x_632; obj* x_633; obj* x_634; obj* x_635; obj* x_637; obj* x_638; obj* x_639; obj* x_640; -x_626 = lean::cnstr_get(x_615, 0); -if (lean::is_exclusive(x_615)) { - x_628 = x_615; +obj* x_618; obj* x_621; obj* x_624; obj* x_625; obj* x_626; obj* x_627; obj* x_628; +x_618 = lean::cnstr_get(x_607, 0); +lean::inc(x_618); +lean::dec(x_607); +x_621 = lean::cnstr_get(x_618, 0); +lean::inc(x_621); +lean::dec(x_618); +x_624 = l_Lean_Elaborator_mangleIdent(x_621); +x_625 = l_Lean_Elaborator_toPexpr___main___closed__28; +x_626 = l_Lean_KVMap_setName(x_606, x_625, x_624); +x_627 = lean_expr_mk_mdata(x_626, x_612); +if (lean::is_scalar(x_598)) { + x_628 = lean::alloc_cnstr(0, 2, 0); } else { - lean::inc(x_626); - lean::dec(x_615); - x_628 = lean::box(0); + x_628 = x_598; } -x_629 = lean::cnstr_get(x_626, 0); -lean::inc(x_629); -lean::dec(x_626); -x_632 = l_Lean_Elaborator_mangleIdent(x_629); -if (lean::is_scalar(x_628)) { - x_633 = lean::alloc_cnstr(1, 1, 0); -} else { - x_633 = x_628; -} -lean::cnstr_set(x_633, 0, x_632); -x_634 = lean::box(0); -x_635 = l_Option_getOrElse___main___rarg(x_633, x_634); -lean::dec(x_633); -x_637 = l_Lean_Elaborator_toPexpr___main___closed__28; -x_638 = l_Lean_KVMap_setName(x_614, x_637, x_635); -x_639 = lean_expr_mk_mdata(x_638, x_620); -if (lean::is_scalar(x_606)) { - x_640 = lean::alloc_cnstr(0, 2, 0); -} else { - x_640 = x_606; -} -lean::cnstr_set(x_640, 0, x_639); -lean::cnstr_set(x_640, 1, x_604); -x_15 = x_640; +lean::cnstr_set(x_628, 0, x_627); +lean::cnstr_set(x_628, 1, x_596); +x_15 = x_628; goto lbl_16; } } @@ -10297,330 +10250,316 @@ goto lbl_16; } else { -obj* x_642; obj* x_643; obj* x_646; obj* x_647; obj* x_650; obj* x_651; obj* x_652; obj* x_654; -lean::dec(x_513); -if (lean::is_exclusive(x_511)) { - lean::cnstr_release(x_511, 0); - lean::cnstr_release(x_511, 1); - x_642 = x_511; +obj* x_630; obj* x_631; obj* x_634; obj* x_635; obj* x_638; obj* x_639; obj* x_640; obj* x_642; +lean::dec(x_505); +if (lean::is_exclusive(x_503)) { + lean::cnstr_release(x_503, 0); + lean::cnstr_release(x_503, 1); + x_630 = x_503; } else { - lean::dec(x_511); - x_642 = lean::box(0); + lean::dec(x_503); + x_630 = lean::box(0); } -x_643 = lean::cnstr_get(x_221, 0); -lean::inc(x_643); +x_631 = lean::cnstr_get(x_221, 0); +lean::inc(x_631); lean::dec(x_221); -x_646 = l_Lean_Parser_Term_structInstItem_HasView; -x_647 = lean::cnstr_get(x_646, 1); -lean::inc(x_647); -lean::dec(x_646); -x_650 = lean::apply_1(x_647, x_348); -x_651 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_651, 0, x_650); -x_652 = l_Lean_Elaborator_toPexpr___main___closed__30; +x_634 = l_Lean_Parser_Term_structInstItem_HasView; +x_635 = lean::cnstr_get(x_634, 1); +lean::inc(x_635); +lean::dec(x_634); +x_638 = lean::apply_1(x_635, x_344); +x_639 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_639, 0, x_638); +x_640 = l_Lean_Elaborator_toPexpr___main___closed__29; lean::inc(x_2); -x_654 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_651, x_652, x_1, x_2, x_3); +x_642 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_639, x_640, x_1, x_2, x_3); lean::dec(x_3); -lean::dec(x_651); -if (lean::obj_tag(x_654) == 0) +lean::dec(x_639); +if (lean::obj_tag(x_642) == 0) { -obj* x_664; obj* x_666; obj* x_667; +obj* x_652; obj* x_654; obj* x_655; lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_643); -lean::dec(x_642); +lean::dec(x_630); +lean::dec(x_631); lean::dec(x_215); lean::dec(x_210); -x_664 = lean::cnstr_get(x_654, 0); -if (lean::is_exclusive(x_654)) { - x_666 = x_654; +x_652 = lean::cnstr_get(x_642, 0); +if (lean::is_exclusive(x_642)) { + x_654 = x_642; } else { - lean::inc(x_664); - lean::dec(x_654); - x_666 = lean::box(0); + lean::inc(x_652); + lean::dec(x_642); + x_654 = lean::box(0); } -if (lean::is_scalar(x_666)) { - x_667 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_654)) { + x_655 = lean::alloc_cnstr(0, 1, 0); } else { - x_667 = x_666; + x_655 = x_654; } -lean::cnstr_set(x_667, 0, x_664); -return x_667; +lean::cnstr_set(x_655, 0, x_652); +return x_655; } else { -obj* x_668; obj* x_671; obj* x_673; obj* x_678; -x_668 = lean::cnstr_get(x_654, 0); -lean::inc(x_668); -lean::dec(x_654); -x_671 = lean::cnstr_get(x_668, 0); -lean::inc(x_671); -x_673 = lean::cnstr_get(x_668, 1); -lean::inc(x_673); -lean::dec(x_668); +obj* x_656; obj* x_659; obj* x_661; obj* x_666; +x_656 = lean::cnstr_get(x_642, 0); +lean::inc(x_656); +lean::dec(x_642); +x_659 = lean::cnstr_get(x_656, 0); +lean::inc(x_659); +x_661 = lean::cnstr_get(x_656, 1); +lean::inc(x_661); +lean::dec(x_656); lean::inc(x_2); lean::inc(x_0); -x_678 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__14(x_0, x_215, x_1, x_2, x_673); -if (lean::obj_tag(x_678) == 0) +x_666 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__14(x_0, x_215, x_1, x_2, x_661); +if (lean::obj_tag(x_666) == 0) { -obj* x_686; obj* x_688; obj* x_689; +obj* x_674; obj* x_676; obj* x_677; lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_671); -lean::dec(x_643); -lean::dec(x_642); +lean::dec(x_630); +lean::dec(x_631); +lean::dec(x_659); lean::dec(x_210); -x_686 = lean::cnstr_get(x_678, 0); -if (lean::is_exclusive(x_678)) { - x_688 = x_678; +x_674 = lean::cnstr_get(x_666, 0); +if (lean::is_exclusive(x_666)) { + x_676 = x_666; } else { - lean::inc(x_686); - lean::dec(x_678); - x_688 = lean::box(0); + lean::inc(x_674); + lean::dec(x_666); + x_676 = lean::box(0); } -if (lean::is_scalar(x_688)) { - x_689 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_676)) { + x_677 = lean::alloc_cnstr(0, 1, 0); } else { - x_689 = x_688; + x_677 = x_676; } -lean::cnstr_set(x_689, 0, x_686); -return x_689; +lean::cnstr_set(x_677, 0, x_674); +return x_677; } else { -obj* x_690; obj* x_693; obj* x_695; obj* x_698; obj* x_702; -x_690 = lean::cnstr_get(x_678, 0); -lean::inc(x_690); +obj* x_678; obj* x_681; obj* x_683; obj* x_686; obj* x_690; +x_678 = lean::cnstr_get(x_666, 0); +lean::inc(x_678); +lean::dec(x_666); +x_681 = lean::cnstr_get(x_678, 0); +lean::inc(x_681); +x_683 = lean::cnstr_get(x_678, 1); +lean::inc(x_683); lean::dec(x_678); -x_693 = lean::cnstr_get(x_690, 0); -lean::inc(x_693); -x_695 = lean::cnstr_get(x_690, 1); -lean::inc(x_695); -lean::dec(x_690); lean::inc(x_2); lean::inc(x_0); -x_702 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__16(x_0, x_643, x_1, x_2, x_695); -if (lean::obj_tag(x_702) == 0) +x_690 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__16(x_0, x_631, x_1, x_2, x_683); +if (lean::obj_tag(x_690) == 0) { -obj* x_710; obj* x_712; obj* x_713; +obj* x_698; obj* x_700; obj* x_701; lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_671); -lean::dec(x_693); -lean::dec(x_642); +lean::dec(x_681); +lean::dec(x_630); +lean::dec(x_659); lean::dec(x_210); -x_710 = lean::cnstr_get(x_702, 0); +x_698 = lean::cnstr_get(x_690, 0); +if (lean::is_exclusive(x_690)) { + x_700 = x_690; +} else { + lean::inc(x_698); + lean::dec(x_690); + x_700 = lean::box(0); +} +if (lean::is_scalar(x_700)) { + x_701 = lean::alloc_cnstr(0, 1, 0); +} else { + x_701 = x_700; +} +lean::cnstr_set(x_701, 0, x_698); +return x_701; +} +else +{ +obj* x_702; obj* x_705; +x_702 = lean::cnstr_get(x_690, 0); +lean::inc(x_702); +lean::dec(x_690); +x_705 = lean::cnstr_get(x_210, 2); +lean::inc(x_705); +if (lean::obj_tag(x_705) == 0) +{ +obj* x_708; obj* x_710; obj* x_712; obj* x_713; +lean::dec(x_630); +x_708 = lean::cnstr_get(x_702, 0); +x_710 = lean::cnstr_get(x_702, 1); if (lean::is_exclusive(x_702)) { x_712 = x_702; } else { + lean::inc(x_708); lean::inc(x_710); lean::dec(x_702); x_712 = lean::box(0); } if (lean::is_scalar(x_712)) { - x_713 = lean::alloc_cnstr(0, 1, 0); + x_713 = lean::alloc_cnstr(0, 2, 0); } else { x_713 = x_712; } -lean::cnstr_set(x_713, 0, x_710); -return x_713; +lean::cnstr_set(x_713, 0, x_708); +lean::cnstr_set(x_713, 1, x_710); +x_686 = x_713; +goto lbl_687; } else { -obj* x_714; obj* x_717; +obj* x_714; obj* x_716; obj* x_719; obj* x_722; obj* x_726; x_714 = lean::cnstr_get(x_702, 0); lean::inc(x_714); +x_716 = lean::cnstr_get(x_702, 1); +lean::inc(x_716); lean::dec(x_702); -x_717 = lean::cnstr_get(x_210, 2); -lean::inc(x_717); -if (lean::obj_tag(x_717) == 0) -{ -obj* x_720; obj* x_722; obj* x_724; obj* x_725; -lean::dec(x_642); -x_720 = lean::cnstr_get(x_714, 0); -x_722 = lean::cnstr_get(x_714, 1); -if (lean::is_exclusive(x_714)) { - x_724 = x_714; -} else { - lean::inc(x_720); - lean::inc(x_722); - lean::dec(x_714); - x_724 = lean::box(0); -} -if (lean::is_scalar(x_724)) { - x_725 = lean::alloc_cnstr(0, 2, 0); -} else { - x_725 = x_724; -} -lean::cnstr_set(x_725, 0, x_720); -lean::cnstr_set(x_725, 1, x_722); -x_698 = x_725; -goto lbl_699; -} -else -{ -obj* x_726; obj* x_728; obj* x_731; obj* x_734; obj* x_738; -x_726 = lean::cnstr_get(x_714, 0); -lean::inc(x_726); -x_728 = lean::cnstr_get(x_714, 1); -lean::inc(x_728); -lean::dec(x_714); -x_731 = lean::cnstr_get(x_717, 0); -lean::inc(x_731); -lean::dec(x_717); -x_734 = lean::cnstr_get(x_731, 0); -lean::inc(x_734); -lean::dec(x_731); +x_719 = lean::cnstr_get(x_705, 0); +lean::inc(x_719); +lean::dec(x_705); +x_722 = lean::cnstr_get(x_719, 0); +lean::inc(x_722); +lean::dec(x_719); lean::inc(x_2); -x_738 = l_Lean_Elaborator_toPexpr___main(x_734, x_1, x_2, x_728); -if (lean::obj_tag(x_738) == 0) +x_726 = l_Lean_Elaborator_toPexpr___main(x_722, x_1, x_2, x_716); +if (lean::obj_tag(x_726) == 0) { -obj* x_747; obj* x_749; obj* x_750; +obj* x_735; obj* x_737; obj* x_738; lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_671); -lean::dec(x_693); -lean::dec(x_642); +lean::dec(x_681); +lean::dec(x_714); +lean::dec(x_630); +lean::dec(x_659); +lean::dec(x_210); +x_735 = lean::cnstr_get(x_726, 0); +if (lean::is_exclusive(x_726)) { + x_737 = x_726; +} else { + lean::inc(x_735); + lean::dec(x_726); + x_737 = lean::box(0); +} +if (lean::is_scalar(x_737)) { + x_738 = lean::alloc_cnstr(0, 1, 0); +} else { + x_738 = x_737; +} +lean::cnstr_set(x_738, 0, x_735); +return x_738; +} +else +{ +obj* x_739; obj* x_742; obj* x_744; obj* x_746; obj* x_747; obj* x_748; obj* x_749; obj* x_750; +x_739 = lean::cnstr_get(x_726, 0); +lean::inc(x_739); lean::dec(x_726); +x_742 = lean::cnstr_get(x_739, 0); +x_744 = lean::cnstr_get(x_739, 1); +if (lean::is_exclusive(x_739)) { + x_746 = x_739; +} else { + lean::inc(x_742); + lean::inc(x_744); + lean::dec(x_739); + x_746 = lean::box(0); +} +x_747 = lean::box(0); +if (lean::is_scalar(x_630)) { + x_748 = lean::alloc_cnstr(1, 2, 0); +} else { + x_748 = x_630; +} +lean::cnstr_set(x_748, 0, x_742); +lean::cnstr_set(x_748, 1, x_747); +x_749 = l_List_append___rarg(x_714, x_748); +if (lean::is_scalar(x_746)) { + x_750 = lean::alloc_cnstr(0, 2, 0); +} else { + x_750 = x_746; +} +lean::cnstr_set(x_750, 0, x_749); +lean::cnstr_set(x_750, 1, x_744); +x_686 = x_750; +goto lbl_687; +} +} +} +lbl_687: +{ +obj* x_751; obj* x_753; obj* x_755; obj* x_756; obj* x_757; obj* x_758; obj* x_759; obj* x_760; obj* x_761; uint8 x_762; obj* x_763; obj* x_764; obj* x_767; obj* x_768; obj* x_769; +x_751 = lean::cnstr_get(x_686, 0); +x_753 = lean::cnstr_get(x_686, 1); +if (lean::is_exclusive(x_686)) { + lean::cnstr_set(x_686, 0, lean::box(0)); + lean::cnstr_set(x_686, 1, lean::box(0)); + x_755 = x_686; +} else { + lean::inc(x_751); + lean::inc(x_753); + lean::dec(x_686); + x_755 = lean::box(0); +} +x_756 = lean::mk_nat_obj(0ul); +x_757 = l_List_lengthAux___main___rarg(x_681, x_756); +x_758 = lean::box(0); +x_759 = l_Lean_Elaborator_toPexpr___main___closed__25; +x_760 = l_Lean_KVMap_setNat(x_758, x_759, x_757); +x_761 = l_Lean_Elaborator_toPexpr___main___closed__26; +x_762 = lean::unbox(x_659); +x_763 = l_Lean_KVMap_setBool(x_760, x_761, x_762); +x_764 = lean::cnstr_get(x_210, 1); +lean::inc(x_764); lean::dec(x_210); -x_747 = lean::cnstr_get(x_738, 0); -if (lean::is_exclusive(x_738)) { - x_749 = x_738; +x_767 = l_List_append___rarg(x_681, x_751); +x_768 = l_Lean_Elaborator_toPexpr___main___closed__27; +x_769 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__15(x_768, x_767); +if (lean::obj_tag(x_764) == 0) +{ +obj* x_770; obj* x_771; obj* x_772; obj* x_773; obj* x_774; +x_770 = l_Lean_Elaborator_toPexpr___main___closed__28; +x_771 = lean::box(0); +x_772 = l_Lean_KVMap_setName(x_763, x_770, x_771); +x_773 = lean_expr_mk_mdata(x_772, x_769); +if (lean::is_scalar(x_755)) { + x_774 = lean::alloc_cnstr(0, 2, 0); } else { - lean::inc(x_747); - lean::dec(x_738); - x_749 = lean::box(0); + x_774 = x_755; } -if (lean::is_scalar(x_749)) { - x_750 = lean::alloc_cnstr(0, 1, 0); -} else { - x_750 = x_749; -} -lean::cnstr_set(x_750, 0, x_747); -return x_750; +lean::cnstr_set(x_774, 0, x_773); +lean::cnstr_set(x_774, 1, x_753); +x_15 = x_774; +goto lbl_16; } else { -obj* x_751; obj* x_754; obj* x_756; obj* x_758; obj* x_759; obj* x_760; obj* x_761; obj* x_762; -x_751 = lean::cnstr_get(x_738, 0); -lean::inc(x_751); -lean::dec(x_738); -x_754 = lean::cnstr_get(x_751, 0); -x_756 = lean::cnstr_get(x_751, 1); -if (lean::is_exclusive(x_751)) { - x_758 = x_751; -} else { - lean::inc(x_754); - lean::inc(x_756); - lean::dec(x_751); - x_758 = lean::box(0); -} -x_759 = lean::box(0); -if (lean::is_scalar(x_642)) { - x_760 = lean::alloc_cnstr(1, 2, 0); -} else { - x_760 = x_642; -} -lean::cnstr_set(x_760, 0, x_754); -lean::cnstr_set(x_760, 1, x_759); -x_761 = l_List_append___rarg(x_726, x_760); -if (lean::is_scalar(x_758)) { - x_762 = lean::alloc_cnstr(0, 2, 0); -} else { - x_762 = x_758; -} -lean::cnstr_set(x_762, 0, x_761); -lean::cnstr_set(x_762, 1, x_756); -x_698 = x_762; -goto lbl_699; -} -} -} -lbl_699: -{ -obj* x_763; obj* x_765; obj* x_767; obj* x_768; obj* x_769; obj* x_770; obj* x_771; obj* x_772; obj* x_773; uint8 x_774; obj* x_775; obj* x_776; obj* x_779; obj* x_780; obj* x_781; -x_763 = lean::cnstr_get(x_698, 0); -x_765 = lean::cnstr_get(x_698, 1); -if (lean::is_exclusive(x_698)) { - lean::cnstr_set(x_698, 0, lean::box(0)); - lean::cnstr_set(x_698, 1, lean::box(0)); - x_767 = x_698; -} else { - lean::inc(x_763); - lean::inc(x_765); - lean::dec(x_698); - x_767 = lean::box(0); -} -x_768 = lean::mk_nat_obj(0ul); -x_769 = l_List_lengthAux___main___rarg(x_693, x_768); -x_770 = lean::box(0); -x_771 = l_Lean_Elaborator_toPexpr___main___closed__25; -x_772 = l_Lean_KVMap_setNat(x_770, x_771, x_769); -x_773 = l_Lean_Elaborator_toPexpr___main___closed__26; -x_774 = lean::unbox(x_671); -x_775 = l_Lean_KVMap_setBool(x_772, x_773, x_774); -x_776 = lean::cnstr_get(x_210, 1); -lean::inc(x_776); -lean::dec(x_210); -x_779 = l_List_append___rarg(x_693, x_763); -x_780 = l_Lean_Elaborator_toPexpr___main___closed__27; -x_781 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__15(x_780, x_779); -if (lean::obj_tag(x_776) == 0) -{ -obj* x_782; obj* x_783; obj* x_784; obj* x_785; obj* x_786; +obj* x_775; obj* x_778; obj* x_781; obj* x_782; obj* x_783; obj* x_784; obj* x_785; +x_775 = lean::cnstr_get(x_764, 0); +lean::inc(x_775); +lean::dec(x_764); +x_778 = lean::cnstr_get(x_775, 0); +lean::inc(x_778); +lean::dec(x_775); +x_781 = l_Lean_Elaborator_mangleIdent(x_778); x_782 = l_Lean_Elaborator_toPexpr___main___closed__28; -x_783 = l_Lean_Elaborator_toPexpr___main___closed__29; -x_784 = l_Lean_KVMap_setName(x_775, x_782, x_783); -x_785 = lean_expr_mk_mdata(x_784, x_781); -if (lean::is_scalar(x_767)) { - x_786 = lean::alloc_cnstr(0, 2, 0); +x_783 = l_Lean_KVMap_setName(x_763, x_782, x_781); +x_784 = lean_expr_mk_mdata(x_783, x_769); +if (lean::is_scalar(x_755)) { + x_785 = lean::alloc_cnstr(0, 2, 0); } else { - x_786 = x_767; + x_785 = x_755; } -lean::cnstr_set(x_786, 0, x_785); -lean::cnstr_set(x_786, 1, x_765); -x_15 = x_786; -goto lbl_16; -} -else -{ -obj* x_787; obj* x_789; obj* x_790; obj* x_793; obj* x_794; obj* x_795; obj* x_796; obj* x_798; obj* x_799; obj* x_800; obj* x_801; -x_787 = lean::cnstr_get(x_776, 0); -if (lean::is_exclusive(x_776)) { - x_789 = x_776; -} else { - lean::inc(x_787); - lean::dec(x_776); - x_789 = lean::box(0); -} -x_790 = lean::cnstr_get(x_787, 0); -lean::inc(x_790); -lean::dec(x_787); -x_793 = l_Lean_Elaborator_mangleIdent(x_790); -if (lean::is_scalar(x_789)) { - x_794 = lean::alloc_cnstr(1, 1, 0); -} else { - x_794 = x_789; -} -lean::cnstr_set(x_794, 0, x_793); -x_795 = lean::box(0); -x_796 = l_Option_getOrElse___main___rarg(x_794, x_795); -lean::dec(x_794); -x_798 = l_Lean_Elaborator_toPexpr___main___closed__28; -x_799 = l_Lean_KVMap_setName(x_775, x_798, x_796); -x_800 = lean_expr_mk_mdata(x_799, x_781); -if (lean::is_scalar(x_767)) { - x_801 = lean::alloc_cnstr(0, 2, 0); -} else { - x_801 = x_767; -} -lean::cnstr_set(x_801, 0, x_800); -lean::cnstr_set(x_801, 1, x_765); -x_15 = x_801; +lean::cnstr_set(x_785, 0, x_784); +lean::cnstr_set(x_785, 1, x_753); +x_15 = x_785; goto lbl_16; } } @@ -10633,123 +10572,123 @@ goto lbl_16; } else { -obj* x_804; +obj* x_788; lean::inc(x_2); lean::inc(x_10); -x_804 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__17(x_10, x_1, x_2, x_3); -if (lean::obj_tag(x_804) == 0) +x_788 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__17(x_10, x_1, x_2, x_3); +if (lean::obj_tag(x_788) == 0) { -obj* x_809; obj* x_811; obj* x_812; +obj* x_793; obj* x_795; obj* x_796; lean::dec(x_8); lean::dec(x_0); lean::dec(x_10); lean::dec(x_2); -x_809 = lean::cnstr_get(x_804, 0); -if (lean::is_exclusive(x_804)) { - x_811 = x_804; +x_793 = lean::cnstr_get(x_788, 0); +if (lean::is_exclusive(x_788)) { + x_795 = x_788; } else { - lean::inc(x_809); - lean::dec(x_804); - x_811 = lean::box(0); + lean::inc(x_793); + lean::dec(x_788); + x_795 = lean::box(0); } -if (lean::is_scalar(x_811)) { - x_812 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_795)) { + x_796 = lean::alloc_cnstr(0, 1, 0); } else { - x_812 = x_811; + x_796 = x_795; } -lean::cnstr_set(x_812, 0, x_809); -return x_812; +lean::cnstr_set(x_796, 0, x_793); +return x_796; } else { -obj* x_813; obj* x_816; obj* x_818; obj* x_820; obj* x_821; -x_813 = lean::cnstr_get(x_804, 0); -lean::inc(x_813); -lean::dec(x_804); -x_816 = lean::cnstr_get(x_813, 0); -x_818 = lean::cnstr_get(x_813, 1); -if (lean::is_exclusive(x_813)) { - lean::cnstr_set(x_813, 0, lean::box(0)); - lean::cnstr_set(x_813, 1, lean::box(0)); - x_820 = x_813; +obj* x_797; obj* x_800; obj* x_802; obj* x_804; obj* x_805; +x_797 = lean::cnstr_get(x_788, 0); +lean::inc(x_797); +lean::dec(x_788); +x_800 = lean::cnstr_get(x_797, 0); +x_802 = lean::cnstr_get(x_797, 1); +if (lean::is_exclusive(x_797)) { + lean::cnstr_set(x_797, 0, lean::box(0)); + lean::cnstr_set(x_797, 1, lean::box(0)); + x_804 = x_797; +} else { + lean::inc(x_800); + lean::inc(x_802); + lean::dec(x_797); + x_804 = lean::box(0); +} +x_805 = l_List_reverse___rarg(x_800); +if (lean::obj_tag(x_805) == 0) +{ +obj* x_809; obj* x_810; obj* x_812; +lean::dec(x_804); +lean::dec(x_10); +lean::inc(x_0); +x_809 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_809, 0, x_0); +x_810 = l_Lean_Elaborator_toPexpr___main___closed__30; +lean::inc(x_2); +x_812 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_809, x_810, x_1, x_2, x_802); +lean::dec(x_802); +lean::dec(x_809); +if (lean::obj_tag(x_812) == 0) +{ +obj* x_818; obj* x_820; obj* x_821; +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +x_818 = lean::cnstr_get(x_812, 0); +if (lean::is_exclusive(x_812)) { + x_820 = x_812; } else { - lean::inc(x_816); lean::inc(x_818); - lean::dec(x_813); + lean::dec(x_812); x_820 = lean::box(0); } -x_821 = l_List_reverse___rarg(x_816); -if (lean::obj_tag(x_821) == 0) -{ -obj* x_825; obj* x_826; obj* x_828; -lean::dec(x_820); -lean::dec(x_10); -lean::inc(x_0); -x_825 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_825, 0, x_0); -x_826 = l_Lean_Elaborator_toPexpr___main___closed__31; -lean::inc(x_2); -x_828 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_825, x_826, x_1, x_2, x_818); -lean::dec(x_818); -lean::dec(x_825); -if (lean::obj_tag(x_828) == 0) -{ -obj* x_834; obj* x_836; obj* x_837; -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -x_834 = lean::cnstr_get(x_828, 0); -if (lean::is_exclusive(x_828)) { - x_836 = x_828; -} else { - lean::inc(x_834); - lean::dec(x_828); - x_836 = lean::box(0); -} -if (lean::is_scalar(x_836)) { - x_837 = lean::alloc_cnstr(0, 1, 0); -} else { - x_837 = x_836; -} -lean::cnstr_set(x_837, 0, x_834); -return x_837; -} -else -{ -obj* x_838; -x_838 = lean::cnstr_get(x_828, 0); -lean::inc(x_838); -lean::dec(x_828); -x_15 = x_838; -goto lbl_16; -} -} -else -{ -obj* x_841; obj* x_843; obj* x_846; obj* x_847; obj* x_849; obj* x_850; obj* x_851; obj* x_852; obj* x_853; obj* x_855; obj* x_856; -x_841 = lean::cnstr_get(x_821, 0); -lean::inc(x_841); -x_843 = lean::cnstr_get(x_821, 1); -lean::inc(x_843); -lean::dec(x_821); -x_846 = lean::mk_nat_obj(0ul); -x_847 = l_List_lengthAux___main___rarg(x_10, x_846); -lean::dec(x_10); -x_849 = lean::box(0); -x_850 = l_Lean_Elaborator_toPexpr___main___closed__32; -x_851 = l_Lean_KVMap_setNat(x_849, x_850, x_847); -x_852 = l_List_reverse___rarg(x_843); -x_853 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__18(x_841, x_852); -lean::dec(x_841); -x_855 = lean_expr_mk_mdata(x_851, x_853); if (lean::is_scalar(x_820)) { - x_856 = lean::alloc_cnstr(0, 2, 0); + x_821 = lean::alloc_cnstr(0, 1, 0); } else { - x_856 = x_820; + x_821 = x_820; } -lean::cnstr_set(x_856, 0, x_855); -lean::cnstr_set(x_856, 1, x_818); -x_15 = x_856; +lean::cnstr_set(x_821, 0, x_818); +return x_821; +} +else +{ +obj* x_822; +x_822 = lean::cnstr_get(x_812, 0); +lean::inc(x_822); +lean::dec(x_812); +x_15 = x_822; +goto lbl_16; +} +} +else +{ +obj* x_825; obj* x_827; obj* x_830; obj* x_831; obj* x_833; obj* x_834; obj* x_835; obj* x_836; obj* x_837; obj* x_839; obj* x_840; +x_825 = lean::cnstr_get(x_805, 0); +lean::inc(x_825); +x_827 = lean::cnstr_get(x_805, 1); +lean::inc(x_827); +lean::dec(x_805); +x_830 = lean::mk_nat_obj(0ul); +x_831 = l_List_lengthAux___main___rarg(x_10, x_830); +lean::dec(x_10); +x_833 = lean::box(0); +x_834 = l_Lean_Elaborator_toPexpr___main___closed__31; +x_835 = l_Lean_KVMap_setNat(x_833, x_834, x_831); +x_836 = l_List_reverse___rarg(x_827); +x_837 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__18(x_825, x_836); +lean::dec(x_825); +x_839 = lean_expr_mk_mdata(x_835, x_837); +if (lean::is_scalar(x_804)) { + x_840 = lean::alloc_cnstr(0, 2, 0); +} else { + x_840 = x_804; +} +lean::cnstr_set(x_840, 0, x_839); +lean::cnstr_set(x_840, 1, x_802); +x_15 = x_840; goto lbl_16; } } @@ -10757,1354 +10696,1378 @@ goto lbl_16; } else { -obj* x_859; obj* x_860; obj* x_864; obj* x_865; obj* x_866; obj* x_867; obj* x_869; obj* x_870; +obj* x_843; obj* x_844; obj* x_848; obj* x_849; lean::dec(x_8); lean::dec(x_10); -x_859 = l_Lean_Parser_stringLit_HasView; -x_860 = lean::cnstr_get(x_859, 0); -lean::inc(x_860); +x_843 = l_Lean_Parser_stringLit_HasView; +x_844 = lean::cnstr_get(x_843, 0); +lean::inc(x_844); +lean::dec(x_843); +lean::inc(x_0); +x_848 = lean::apply_1(x_844, x_0); +x_849 = l_Lean_Parser_stringLit_View_value(x_848); +if (lean::obj_tag(x_849) == 0) +{ +if (x_20 == 0) +{ +obj* x_850; +x_850 = l_Lean_Parser_Syntax_getPos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_850) == 0) +{ +obj* x_853; obj* x_854; obj* x_855; +lean::dec(x_2); +x_853 = l_Lean_Elaborator_toPexpr___main___closed__32; +x_854 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_854, 0, x_853); +lean::cnstr_set(x_854, 1, x_3); +x_855 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_855, 0, x_854); +return x_855; +} +else +{ +obj* x_856; obj* x_859; obj* x_862; obj* x_865; obj* x_866; obj* x_868; obj* x_869; obj* x_870; obj* x_871; obj* x_874; obj* x_875; obj* x_876; obj* x_877; obj* x_878; obj* x_879; +x_856 = lean::cnstr_get(x_850, 0); +lean::inc(x_856); +lean::dec(x_850); +x_859 = lean::cnstr_get(x_2, 0); +lean::inc(x_859); +lean::dec(x_2); +x_862 = lean::cnstr_get(x_859, 2); +lean::inc(x_862); lean::dec(x_859); -lean::inc(x_0); -x_864 = lean::apply_1(x_860, x_0); -x_865 = l_Lean_Parser_stringLit_View_value(x_864); -x_866 = l_Lean_Elaborator_toPexpr___main___closed__33; -x_867 = l_Option_getOrElse___main___rarg(x_865, x_866); +x_865 = l_Lean_FileMap_toPosition(x_862, x_856); +x_866 = lean::cnstr_get(x_865, 1); +lean::inc(x_866); +x_868 = lean::box(0); +x_869 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_870 = l_Lean_KVMap_setNat(x_868, x_869, x_866); +x_871 = lean::cnstr_get(x_865, 0); +lean::inc(x_871); lean::dec(x_865); -x_869 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_869, 0, x_867); -x_870 = lean_expr_mk_lit(x_869); +x_874 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_875 = l_Lean_KVMap_setNat(x_870, x_874, x_871); +x_876 = l_Lean_Elaborator_toPexpr___main___closed__32; +x_877 = lean_expr_mk_mdata(x_875, x_876); +x_878 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_878, 0, x_877); +lean::cnstr_set(x_878, 1, x_3); +x_879 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_879, 0, x_878); +return x_879; +} +} +else +{ +obj* x_882; obj* x_883; obj* x_884; +lean::dec(x_0); +lean::dec(x_2); +x_882 = l_Lean_Elaborator_toPexpr___main___closed__32; +x_883 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_883, 0, x_882); +lean::cnstr_set(x_883, 1, x_3); +x_884 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_884, 0, x_883); +return x_884; +} +} +else +{ +obj* x_885; obj* x_888; obj* x_889; +x_885 = lean::cnstr_get(x_849, 0); +lean::inc(x_885); +lean::dec(x_849); +x_888 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_888, 0, x_885); +x_889 = lean_expr_mk_lit(x_888); if (x_20 == 0) { -obj* x_871; -x_871 = l_Lean_Parser_Syntax_getPos(x_0); +obj* x_890; +x_890 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_871) == 0) +if (lean::obj_tag(x_890) == 0) { -obj* x_874; obj* x_875; +obj* x_893; obj* x_894; lean::dec(x_2); -x_874 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_874, 0, x_870); -lean::cnstr_set(x_874, 1, x_3); -x_875 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_875, 0, x_874); -return x_875; +x_893 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_893, 0, x_889); +lean::cnstr_set(x_893, 1, x_3); +x_894 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_894, 0, x_893); +return x_894; } else { -obj* x_876; obj* x_879; obj* x_882; obj* x_885; obj* x_886; obj* x_888; obj* x_889; obj* x_890; obj* x_891; obj* x_894; obj* x_895; obj* x_896; obj* x_897; obj* x_898; -x_876 = lean::cnstr_get(x_871, 0); -lean::inc(x_876); -lean::dec(x_871); -x_879 = lean::cnstr_get(x_2, 0); -lean::inc(x_879); +obj* x_895; obj* x_898; obj* x_901; obj* x_904; obj* x_905; obj* x_907; obj* x_908; obj* x_909; obj* x_910; obj* x_913; obj* x_914; obj* x_915; obj* x_916; obj* x_917; +x_895 = lean::cnstr_get(x_890, 0); +lean::inc(x_895); +lean::dec(x_890); +x_898 = lean::cnstr_get(x_2, 0); +lean::inc(x_898); lean::dec(x_2); -x_882 = lean::cnstr_get(x_879, 2); -lean::inc(x_882); -lean::dec(x_879); -x_885 = l_Lean_FileMap_toPosition(x_882, x_876); -x_886 = lean::cnstr_get(x_885, 1); -lean::inc(x_886); -x_888 = lean::box(0); -x_889 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_890 = l_Lean_KVMap_setNat(x_888, x_889, x_886); -x_891 = lean::cnstr_get(x_885, 0); -lean::inc(x_891); -lean::dec(x_885); -x_894 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_895 = l_Lean_KVMap_setNat(x_890, x_894, x_891); -x_896 = lean_expr_mk_mdata(x_895, x_870); -x_897 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_897, 0, x_896); -lean::cnstr_set(x_897, 1, x_3); -x_898 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_898, 0, x_897); -return x_898; +x_901 = lean::cnstr_get(x_898, 2); +lean::inc(x_901); +lean::dec(x_898); +x_904 = l_Lean_FileMap_toPosition(x_901, x_895); +x_905 = lean::cnstr_get(x_904, 1); +lean::inc(x_905); +x_907 = lean::box(0); +x_908 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_909 = l_Lean_KVMap_setNat(x_907, x_908, x_905); +x_910 = lean::cnstr_get(x_904, 0); +lean::inc(x_910); +lean::dec(x_904); +x_913 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_914 = l_Lean_KVMap_setNat(x_909, x_913, x_910); +x_915 = lean_expr_mk_mdata(x_914, x_889); +x_916 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_916, 0, x_915); +lean::cnstr_set(x_916, 1, x_3); +x_917 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_917, 0, x_916); +return x_917; } } else { -obj* x_901; obj* x_902; +obj* x_920; obj* x_921; lean::dec(x_0); lean::dec(x_2); -x_901 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_901, 0, x_870); -lean::cnstr_set(x_901, 1, x_3); -x_902 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_902, 0, x_901); -return x_902; +x_920 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_920, 0, x_889); +lean::cnstr_set(x_920, 1, x_3); +x_921 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_921, 0, x_920); +return x_921; +} } } } else { -obj* x_905; obj* x_906; obj* x_910; obj* x_911; obj* x_912; obj* x_913; +obj* x_924; obj* x_925; obj* x_929; obj* x_930; obj* x_931; obj* x_932; lean::dec(x_8); lean::dec(x_10); -x_905 = l_Lean_Parser_number_HasView; -x_906 = lean::cnstr_get(x_905, 0); -lean::inc(x_906); -lean::dec(x_905); -lean::inc(x_0); -x_910 = lean::apply_1(x_906, x_0); -x_911 = l_Lean_Parser_number_View_toNat___main(x_910); -x_912 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_912, 0, x_911); -x_913 = lean_expr_mk_lit(x_912); -if (x_20 == 0) -{ -obj* x_914; -x_914 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_914) == 0) -{ -obj* x_917; obj* x_918; -lean::dec(x_2); -x_917 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_917, 0, x_913); -lean::cnstr_set(x_917, 1, x_3); -x_918 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_918, 0, x_917); -return x_918; -} -else -{ -obj* x_919; obj* x_922; obj* x_925; obj* x_928; obj* x_929; obj* x_931; obj* x_932; obj* x_933; obj* x_934; obj* x_937; obj* x_938; obj* x_939; obj* x_940; obj* x_941; -x_919 = lean::cnstr_get(x_914, 0); -lean::inc(x_919); -lean::dec(x_914); -x_922 = lean::cnstr_get(x_2, 0); -lean::inc(x_922); -lean::dec(x_2); -x_925 = lean::cnstr_get(x_922, 2); +x_924 = l_Lean_Parser_number_HasView; +x_925 = lean::cnstr_get(x_924, 0); lean::inc(x_925); -lean::dec(x_922); -x_928 = l_Lean_FileMap_toPosition(x_925, x_919); -x_929 = lean::cnstr_get(x_928, 1); -lean::inc(x_929); -x_931 = lean::box(0); -x_932 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_933 = l_Lean_KVMap_setNat(x_931, x_932, x_929); -x_934 = lean::cnstr_get(x_928, 0); -lean::inc(x_934); -lean::dec(x_928); -x_937 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_938 = l_Lean_KVMap_setNat(x_933, x_937, x_934); -x_939 = lean_expr_mk_mdata(x_938, x_913); -x_940 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_940, 0, x_939); -lean::cnstr_set(x_940, 1, x_3); -x_941 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_941, 0, x_940); -return x_941; -} -} -else -{ -obj* x_944; obj* x_945; -lean::dec(x_0); -lean::dec(x_2); -x_944 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_944, 0, x_913); -lean::cnstr_set(x_944, 1, x_3); -x_945 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_945, 0, x_944); -return x_945; -} -} -} -else -{ -obj* x_948; obj* x_949; obj* x_953; obj* x_954; obj* x_958; -lean::dec(x_8); -lean::dec(x_10); -x_948 = l_Lean_Parser_Term_borrowed_HasView; -x_949 = lean::cnstr_get(x_948, 0); -lean::inc(x_949); -lean::dec(x_948); +lean::dec(x_924); lean::inc(x_0); -x_953 = lean::apply_1(x_949, x_0); -x_954 = lean::cnstr_get(x_953, 1); -lean::inc(x_954); -lean::dec(x_953); -lean::inc(x_2); -x_958 = l_Lean_Elaborator_toPexpr___main(x_954, x_1, x_2, x_3); -if (lean::obj_tag(x_958) == 0) +x_929 = lean::apply_1(x_925, x_0); +x_930 = l_Lean_Parser_number_View_toNat___main(x_929); +x_931 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_931, 0, x_930); +x_932 = lean_expr_mk_lit(x_931); +if (x_20 == 0) { -obj* x_961; obj* x_963; obj* x_964; +obj* x_933; +x_933 = l_Lean_Parser_Syntax_getPos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_933) == 0) +{ +obj* x_936; obj* x_937; +lean::dec(x_2); +x_936 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_936, 0, x_932); +lean::cnstr_set(x_936, 1, x_3); +x_937 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_937, 0, x_936); +return x_937; +} +else +{ +obj* x_938; obj* x_941; obj* x_944; obj* x_947; obj* x_948; obj* x_950; obj* x_951; obj* x_952; obj* x_953; obj* x_956; obj* x_957; obj* x_958; obj* x_959; obj* x_960; +x_938 = lean::cnstr_get(x_933, 0); +lean::inc(x_938); +lean::dec(x_933); +x_941 = lean::cnstr_get(x_2, 0); +lean::inc(x_941); +lean::dec(x_2); +x_944 = lean::cnstr_get(x_941, 2); +lean::inc(x_944); +lean::dec(x_941); +x_947 = l_Lean_FileMap_toPosition(x_944, x_938); +x_948 = lean::cnstr_get(x_947, 1); +lean::inc(x_948); +x_950 = lean::box(0); +x_951 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_952 = l_Lean_KVMap_setNat(x_950, x_951, x_948); +x_953 = lean::cnstr_get(x_947, 0); +lean::inc(x_953); +lean::dec(x_947); +x_956 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_957 = l_Lean_KVMap_setNat(x_952, x_956, x_953); +x_958 = lean_expr_mk_mdata(x_957, x_932); +x_959 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_959, 0, x_958); +lean::cnstr_set(x_959, 1, x_3); +x_960 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_960, 0, x_959); +return x_960; +} +} +else +{ +obj* x_963; obj* x_964; lean::dec(x_0); lean::dec(x_2); -x_961 = lean::cnstr_get(x_958, 0); -if (lean::is_exclusive(x_958)) { - x_963 = x_958; -} else { - lean::inc(x_961); - lean::dec(x_958); - x_963 = lean::box(0); -} -if (lean::is_scalar(x_963)) { - x_964 = lean::alloc_cnstr(0, 1, 0); -} else { - x_964 = x_963; -} -lean::cnstr_set(x_964, 0, x_961); +x_963 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_963, 0, x_932); +lean::cnstr_set(x_963, 1, x_3); +x_964 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_964, 0, x_963); return x_964; } -else -{ -obj* x_965; obj* x_967; obj* x_968; obj* x_970; obj* x_972; obj* x_973; obj* x_974; -x_965 = lean::cnstr_get(x_958, 0); -if (lean::is_exclusive(x_958)) { - lean::cnstr_set(x_958, 0, lean::box(0)); - x_967 = x_958; -} else { - lean::inc(x_965); - lean::dec(x_958); - x_967 = lean::box(0); -} -x_968 = lean::cnstr_get(x_965, 0); -x_970 = lean::cnstr_get(x_965, 1); -if (lean::is_exclusive(x_965)) { - lean::cnstr_set(x_965, 0, lean::box(0)); - lean::cnstr_set(x_965, 1, lean::box(0)); - x_972 = x_965; -} else { - lean::inc(x_968); - lean::inc(x_970); - lean::dec(x_965); - x_972 = lean::box(0); -} -x_973 = l_Lean_Elaborator_toPexpr___main___closed__34; -x_974 = l_Lean_Elaborator_Expr_mkAnnotation(x_973, x_968); -if (x_20 == 0) -{ -obj* x_975; -x_975 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_975) == 0) -{ -obj* x_978; obj* x_979; -lean::dec(x_2); -if (lean::is_scalar(x_972)) { - x_978 = lean::alloc_cnstr(0, 2, 0); -} else { - x_978 = x_972; -} -lean::cnstr_set(x_978, 0, x_974); -lean::cnstr_set(x_978, 1, x_970); -if (lean::is_scalar(x_967)) { - x_979 = lean::alloc_cnstr(1, 1, 0); -} else { - x_979 = x_967; -} -lean::cnstr_set(x_979, 0, x_978); -return x_979; -} -else -{ -obj* x_980; obj* x_983; obj* x_986; obj* x_989; obj* x_990; obj* x_992; obj* x_993; obj* x_994; obj* x_995; obj* x_998; obj* x_999; obj* x_1000; obj* x_1001; obj* x_1002; -x_980 = lean::cnstr_get(x_975, 0); -lean::inc(x_980); -lean::dec(x_975); -x_983 = lean::cnstr_get(x_2, 0); -lean::inc(x_983); -lean::dec(x_2); -x_986 = lean::cnstr_get(x_983, 2); -lean::inc(x_986); -lean::dec(x_983); -x_989 = l_Lean_FileMap_toPosition(x_986, x_980); -x_990 = lean::cnstr_get(x_989, 1); -lean::inc(x_990); -x_992 = lean::box(0); -x_993 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_994 = l_Lean_KVMap_setNat(x_992, x_993, x_990); -x_995 = lean::cnstr_get(x_989, 0); -lean::inc(x_995); -lean::dec(x_989); -x_998 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_999 = l_Lean_KVMap_setNat(x_994, x_998, x_995); -x_1000 = lean_expr_mk_mdata(x_999, x_974); -if (lean::is_scalar(x_972)) { - x_1001 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1001 = x_972; -} -lean::cnstr_set(x_1001, 0, x_1000); -lean::cnstr_set(x_1001, 1, x_970); -if (lean::is_scalar(x_967)) { - x_1002 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1002 = x_967; -} -lean::cnstr_set(x_1002, 0, x_1001); -return x_1002; } } else { -obj* x_1005; obj* x_1006; -lean::dec(x_0); -lean::dec(x_2); -if (lean::is_scalar(x_972)) { - x_1005 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1005 = x_972; -} -lean::cnstr_set(x_1005, 0, x_974); -lean::cnstr_set(x_1005, 1, x_970); -if (lean::is_scalar(x_967)) { - x_1006 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1006 = x_967; -} -lean::cnstr_set(x_1006, 0, x_1005); -return x_1006; -} -} -} -} -else -{ -obj* x_1009; obj* x_1010; obj* x_1014; obj* x_1015; obj* x_1019; +obj* x_967; obj* x_968; obj* x_972; obj* x_973; obj* x_977; lean::dec(x_8); lean::dec(x_10); -x_1009 = l_Lean_Parser_Term_inaccessible_HasView; -x_1010 = lean::cnstr_get(x_1009, 0); -lean::inc(x_1010); -lean::dec(x_1009); +x_967 = l_Lean_Parser_Term_borrowed_HasView; +x_968 = lean::cnstr_get(x_967, 0); +lean::inc(x_968); +lean::dec(x_967); lean::inc(x_0); -x_1014 = lean::apply_1(x_1010, x_0); -x_1015 = lean::cnstr_get(x_1014, 1); -lean::inc(x_1015); -lean::dec(x_1014); +x_972 = lean::apply_1(x_968, x_0); +x_973 = lean::cnstr_get(x_972, 1); +lean::inc(x_973); +lean::dec(x_972); lean::inc(x_2); -x_1019 = l_Lean_Elaborator_toPexpr___main(x_1015, x_1, x_2, x_3); -if (lean::obj_tag(x_1019) == 0) +x_977 = l_Lean_Elaborator_toPexpr___main(x_973, x_1, x_2, x_3); +if (lean::obj_tag(x_977) == 0) { -obj* x_1022; obj* x_1024; obj* x_1025; +obj* x_980; obj* x_982; obj* x_983; lean::dec(x_0); lean::dec(x_2); -x_1022 = lean::cnstr_get(x_1019, 0); -if (lean::is_exclusive(x_1019)) { - x_1024 = x_1019; +x_980 = lean::cnstr_get(x_977, 0); +if (lean::is_exclusive(x_977)) { + x_982 = x_977; } else { - lean::inc(x_1022); - lean::dec(x_1019); - x_1024 = lean::box(0); + lean::inc(x_980); + lean::dec(x_977); + x_982 = lean::box(0); } -if (lean::is_scalar(x_1024)) { - x_1025 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_982)) { + x_983 = lean::alloc_cnstr(0, 1, 0); } else { - x_1025 = x_1024; + x_983 = x_982; } -lean::cnstr_set(x_1025, 0, x_1022); +lean::cnstr_set(x_983, 0, x_980); +return x_983; +} +else +{ +obj* x_984; obj* x_986; obj* x_987; obj* x_989; obj* x_991; obj* x_992; obj* x_993; +x_984 = lean::cnstr_get(x_977, 0); +if (lean::is_exclusive(x_977)) { + lean::cnstr_set(x_977, 0, lean::box(0)); + x_986 = x_977; +} else { + lean::inc(x_984); + lean::dec(x_977); + x_986 = lean::box(0); +} +x_987 = lean::cnstr_get(x_984, 0); +x_989 = lean::cnstr_get(x_984, 1); +if (lean::is_exclusive(x_984)) { + lean::cnstr_set(x_984, 0, lean::box(0)); + lean::cnstr_set(x_984, 1, lean::box(0)); + x_991 = x_984; +} else { + lean::inc(x_987); + lean::inc(x_989); + lean::dec(x_984); + x_991 = lean::box(0); +} +x_992 = l_Lean_Elaborator_toPexpr___main___closed__33; +x_993 = l_Lean_Elaborator_Expr_mkAnnotation(x_992, x_987); +if (x_20 == 0) +{ +obj* x_994; +x_994 = l_Lean_Parser_Syntax_getPos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_994) == 0) +{ +obj* x_997; obj* x_998; +lean::dec(x_2); +if (lean::is_scalar(x_991)) { + x_997 = lean::alloc_cnstr(0, 2, 0); +} else { + x_997 = x_991; +} +lean::cnstr_set(x_997, 0, x_993); +lean::cnstr_set(x_997, 1, x_989); +if (lean::is_scalar(x_986)) { + x_998 = lean::alloc_cnstr(1, 1, 0); +} else { + x_998 = x_986; +} +lean::cnstr_set(x_998, 0, x_997); +return x_998; +} +else +{ +obj* x_999; obj* x_1002; obj* x_1005; obj* x_1008; obj* x_1009; obj* x_1011; obj* x_1012; obj* x_1013; obj* x_1014; obj* x_1017; obj* x_1018; obj* x_1019; obj* x_1020; obj* x_1021; +x_999 = lean::cnstr_get(x_994, 0); +lean::inc(x_999); +lean::dec(x_994); +x_1002 = lean::cnstr_get(x_2, 0); +lean::inc(x_1002); +lean::dec(x_2); +x_1005 = lean::cnstr_get(x_1002, 2); +lean::inc(x_1005); +lean::dec(x_1002); +x_1008 = l_Lean_FileMap_toPosition(x_1005, x_999); +x_1009 = lean::cnstr_get(x_1008, 1); +lean::inc(x_1009); +x_1011 = lean::box(0); +x_1012 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1013 = l_Lean_KVMap_setNat(x_1011, x_1012, x_1009); +x_1014 = lean::cnstr_get(x_1008, 0); +lean::inc(x_1014); +lean::dec(x_1008); +x_1017 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1018 = l_Lean_KVMap_setNat(x_1013, x_1017, x_1014); +x_1019 = lean_expr_mk_mdata(x_1018, x_993); +if (lean::is_scalar(x_991)) { + x_1020 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1020 = x_991; +} +lean::cnstr_set(x_1020, 0, x_1019); +lean::cnstr_set(x_1020, 1, x_989); +if (lean::is_scalar(x_986)) { + x_1021 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1021 = x_986; +} +lean::cnstr_set(x_1021, 0, x_1020); +return x_1021; +} +} +else +{ +obj* x_1024; obj* x_1025; +lean::dec(x_0); +lean::dec(x_2); +if (lean::is_scalar(x_991)) { + x_1024 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1024 = x_991; +} +lean::cnstr_set(x_1024, 0, x_993); +lean::cnstr_set(x_1024, 1, x_989); +if (lean::is_scalar(x_986)) { + x_1025 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1025 = x_986; +} +lean::cnstr_set(x_1025, 0, x_1024); return x_1025; } -else -{ -obj* x_1026; obj* x_1028; obj* x_1029; obj* x_1031; obj* x_1033; obj* x_1034; obj* x_1035; -x_1026 = lean::cnstr_get(x_1019, 0); -if (lean::is_exclusive(x_1019)) { - lean::cnstr_set(x_1019, 0, lean::box(0)); - x_1028 = x_1019; -} else { - lean::inc(x_1026); - lean::dec(x_1019); - x_1028 = lean::box(0); -} -x_1029 = lean::cnstr_get(x_1026, 0); -x_1031 = lean::cnstr_get(x_1026, 1); -if (lean::is_exclusive(x_1026)) { - lean::cnstr_set(x_1026, 0, lean::box(0)); - lean::cnstr_set(x_1026, 1, lean::box(0)); - x_1033 = x_1026; -} else { - lean::inc(x_1029); - lean::inc(x_1031); - lean::dec(x_1026); - x_1033 = lean::box(0); -} -x_1034 = l_Lean_Elaborator_toPexpr___main___closed__35; -x_1035 = l_Lean_Elaborator_Expr_mkAnnotation(x_1034, x_1029); -if (x_20 == 0) -{ -obj* x_1036; -x_1036 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_1036) == 0) -{ -obj* x_1039; obj* x_1040; -lean::dec(x_2); -if (lean::is_scalar(x_1033)) { - x_1039 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1039 = x_1033; -} -lean::cnstr_set(x_1039, 0, x_1035); -lean::cnstr_set(x_1039, 1, x_1031); -if (lean::is_scalar(x_1028)) { - x_1040 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1040 = x_1028; -} -lean::cnstr_set(x_1040, 0, x_1039); -return x_1040; -} -else -{ -obj* x_1041; obj* x_1044; obj* x_1047; obj* x_1050; obj* x_1051; obj* x_1053; obj* x_1054; obj* x_1055; obj* x_1056; obj* x_1059; obj* x_1060; obj* x_1061; obj* x_1062; obj* x_1063; -x_1041 = lean::cnstr_get(x_1036, 0); -lean::inc(x_1041); -lean::dec(x_1036); -x_1044 = lean::cnstr_get(x_2, 0); -lean::inc(x_1044); -lean::dec(x_2); -x_1047 = lean::cnstr_get(x_1044, 2); -lean::inc(x_1047); -lean::dec(x_1044); -x_1050 = l_Lean_FileMap_toPosition(x_1047, x_1041); -x_1051 = lean::cnstr_get(x_1050, 1); -lean::inc(x_1051); -x_1053 = lean::box(0); -x_1054 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1055 = l_Lean_KVMap_setNat(x_1053, x_1054, x_1051); -x_1056 = lean::cnstr_get(x_1050, 0); -lean::inc(x_1056); -lean::dec(x_1050); -x_1059 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1060 = l_Lean_KVMap_setNat(x_1055, x_1059, x_1056); -x_1061 = lean_expr_mk_mdata(x_1060, x_1035); -if (lean::is_scalar(x_1033)) { - x_1062 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1062 = x_1033; -} -lean::cnstr_set(x_1062, 0, x_1061); -lean::cnstr_set(x_1062, 1, x_1031); -if (lean::is_scalar(x_1028)) { - x_1063 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1063 = x_1028; -} -lean::cnstr_set(x_1063, 0, x_1062); -return x_1063; -} -} -else -{ -obj* x_1066; obj* x_1067; -lean::dec(x_0); -lean::dec(x_2); -if (lean::is_scalar(x_1033)) { - x_1066 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1066 = x_1033; -} -lean::cnstr_set(x_1066, 0, x_1035); -lean::cnstr_set(x_1066, 1, x_1031); -if (lean::is_scalar(x_1028)) { - x_1067 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1067 = x_1028; -} -lean::cnstr_set(x_1067, 0, x_1066); -return x_1067; -} } } } else { -obj* x_1070; obj* x_1071; obj* x_1075; obj* x_1076; obj* x_1078; obj* x_1079; obj* x_1082; obj* x_1085; +obj* x_1028; obj* x_1029; obj* x_1033; obj* x_1034; obj* x_1038; lean::dec(x_8); lean::dec(x_10); -x_1070 = l_Lean_Parser_Term_explicit_HasView; -x_1071 = lean::cnstr_get(x_1070, 0); -lean::inc(x_1071); -lean::dec(x_1070); +x_1028 = l_Lean_Parser_Term_inaccessible_HasView; +x_1029 = lean::cnstr_get(x_1028, 0); +lean::inc(x_1029); +lean::dec(x_1028); lean::inc(x_0); -x_1075 = lean::apply_1(x_1071, x_0); -x_1076 = lean::cnstr_get(x_1075, 0); -lean::inc(x_1076); -x_1078 = l_Lean_Parser_identUnivs_HasView; -x_1079 = lean::cnstr_get(x_1078, 1); -lean::inc(x_1079); -lean::dec(x_1078); -x_1082 = lean::cnstr_get(x_1075, 1); -lean::inc(x_1082); -lean::dec(x_1075); -x_1085 = lean::apply_1(x_1079, x_1082); -if (lean::obj_tag(x_1076) == 0) -{ -obj* x_1088; -lean::dec(x_1076); +x_1033 = lean::apply_1(x_1029, x_0); +x_1034 = lean::cnstr_get(x_1033, 1); +lean::inc(x_1034); +lean::dec(x_1033); lean::inc(x_2); -x_1088 = l_Lean_Elaborator_toPexpr___main(x_1085, x_1, x_2, x_3); -if (lean::obj_tag(x_1088) == 0) +x_1038 = l_Lean_Elaborator_toPexpr___main(x_1034, x_1, x_2, x_3); +if (lean::obj_tag(x_1038) == 0) { -obj* x_1091; obj* x_1093; obj* x_1094; +obj* x_1041; obj* x_1043; obj* x_1044; lean::dec(x_0); lean::dec(x_2); -x_1091 = lean::cnstr_get(x_1088, 0); -if (lean::is_exclusive(x_1088)) { - x_1093 = x_1088; +x_1041 = lean::cnstr_get(x_1038, 0); +if (lean::is_exclusive(x_1038)) { + x_1043 = x_1038; } else { - lean::inc(x_1091); - lean::dec(x_1088); - x_1093 = lean::box(0); + lean::inc(x_1041); + lean::dec(x_1038); + x_1043 = lean::box(0); } -if (lean::is_scalar(x_1093)) { - x_1094 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1043)) { + x_1044 = lean::alloc_cnstr(0, 1, 0); } else { - x_1094 = x_1093; + x_1044 = x_1043; } -lean::cnstr_set(x_1094, 0, x_1091); -return x_1094; +lean::cnstr_set(x_1044, 0, x_1041); +return x_1044; } else { -obj* x_1095; obj* x_1097; obj* x_1098; obj* x_1100; obj* x_1102; obj* x_1103; obj* x_1104; -x_1095 = lean::cnstr_get(x_1088, 0); -if (lean::is_exclusive(x_1088)) { - lean::cnstr_set(x_1088, 0, lean::box(0)); - x_1097 = x_1088; +obj* x_1045; obj* x_1047; obj* x_1048; obj* x_1050; obj* x_1052; obj* x_1053; obj* x_1054; +x_1045 = lean::cnstr_get(x_1038, 0); +if (lean::is_exclusive(x_1038)) { + lean::cnstr_set(x_1038, 0, lean::box(0)); + x_1047 = x_1038; } else { - lean::inc(x_1095); - lean::dec(x_1088); - x_1097 = lean::box(0); + lean::inc(x_1045); + lean::dec(x_1038); + x_1047 = lean::box(0); } -x_1098 = lean::cnstr_get(x_1095, 0); -x_1100 = lean::cnstr_get(x_1095, 1); -if (lean::is_exclusive(x_1095)) { - lean::cnstr_set(x_1095, 0, lean::box(0)); - lean::cnstr_set(x_1095, 1, lean::box(0)); - x_1102 = x_1095; +x_1048 = lean::cnstr_get(x_1045, 0); +x_1050 = lean::cnstr_get(x_1045, 1); +if (lean::is_exclusive(x_1045)) { + lean::cnstr_set(x_1045, 0, lean::box(0)); + lean::cnstr_set(x_1045, 1, lean::box(0)); + x_1052 = x_1045; } else { - lean::inc(x_1098); - lean::inc(x_1100); - lean::dec(x_1095); - x_1102 = lean::box(0); + lean::inc(x_1048); + lean::inc(x_1050); + lean::dec(x_1045); + x_1052 = lean::box(0); } -x_1103 = l_List_map___main___at_Lean_Elaborator_mkEqns___spec__1___closed__1; -x_1104 = l_Lean_Elaborator_Expr_mkAnnotation(x_1103, x_1098); +x_1053 = l_Lean_Elaborator_toPexpr___main___closed__34; +x_1054 = l_Lean_Elaborator_Expr_mkAnnotation(x_1053, x_1048); if (x_20 == 0) { -obj* x_1105; -x_1105 = l_Lean_Parser_Syntax_getPos(x_0); +obj* x_1055; +x_1055 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1105) == 0) +if (lean::obj_tag(x_1055) == 0) { -obj* x_1108; obj* x_1109; +obj* x_1058; obj* x_1059; lean::dec(x_2); -if (lean::is_scalar(x_1102)) { - x_1108 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1052)) { + x_1058 = lean::alloc_cnstr(0, 2, 0); } else { - x_1108 = x_1102; + x_1058 = x_1052; } -lean::cnstr_set(x_1108, 0, x_1104); -lean::cnstr_set(x_1108, 1, x_1100); -if (lean::is_scalar(x_1097)) { - x_1109 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1058, 0, x_1054); +lean::cnstr_set(x_1058, 1, x_1050); +if (lean::is_scalar(x_1047)) { + x_1059 = lean::alloc_cnstr(1, 1, 0); } else { - x_1109 = x_1097; + x_1059 = x_1047; } -lean::cnstr_set(x_1109, 0, x_1108); -return x_1109; +lean::cnstr_set(x_1059, 0, x_1058); +return x_1059; } else { -obj* x_1110; obj* x_1113; obj* x_1116; obj* x_1119; obj* x_1120; obj* x_1122; obj* x_1123; obj* x_1124; obj* x_1125; obj* x_1128; obj* x_1129; obj* x_1130; obj* x_1131; obj* x_1132; -x_1110 = lean::cnstr_get(x_1105, 0); -lean::inc(x_1110); -lean::dec(x_1105); -x_1113 = lean::cnstr_get(x_2, 0); -lean::inc(x_1113); +obj* x_1060; obj* x_1063; obj* x_1066; obj* x_1069; obj* x_1070; obj* x_1072; obj* x_1073; obj* x_1074; obj* x_1075; obj* x_1078; obj* x_1079; obj* x_1080; obj* x_1081; obj* x_1082; +x_1060 = lean::cnstr_get(x_1055, 0); +lean::inc(x_1060); +lean::dec(x_1055); +x_1063 = lean::cnstr_get(x_2, 0); +lean::inc(x_1063); lean::dec(x_2); -x_1116 = lean::cnstr_get(x_1113, 2); -lean::inc(x_1116); -lean::dec(x_1113); -x_1119 = l_Lean_FileMap_toPosition(x_1116, x_1110); -x_1120 = lean::cnstr_get(x_1119, 1); -lean::inc(x_1120); -x_1122 = lean::box(0); -x_1123 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1124 = l_Lean_KVMap_setNat(x_1122, x_1123, x_1120); -x_1125 = lean::cnstr_get(x_1119, 0); -lean::inc(x_1125); -lean::dec(x_1119); -x_1128 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1129 = l_Lean_KVMap_setNat(x_1124, x_1128, x_1125); -x_1130 = lean_expr_mk_mdata(x_1129, x_1104); -if (lean::is_scalar(x_1102)) { - x_1131 = lean::alloc_cnstr(0, 2, 0); +x_1066 = lean::cnstr_get(x_1063, 2); +lean::inc(x_1066); +lean::dec(x_1063); +x_1069 = l_Lean_FileMap_toPosition(x_1066, x_1060); +x_1070 = lean::cnstr_get(x_1069, 1); +lean::inc(x_1070); +x_1072 = lean::box(0); +x_1073 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1074 = l_Lean_KVMap_setNat(x_1072, x_1073, x_1070); +x_1075 = lean::cnstr_get(x_1069, 0); +lean::inc(x_1075); +lean::dec(x_1069); +x_1078 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1079 = l_Lean_KVMap_setNat(x_1074, x_1078, x_1075); +x_1080 = lean_expr_mk_mdata(x_1079, x_1054); +if (lean::is_scalar(x_1052)) { + x_1081 = lean::alloc_cnstr(0, 2, 0); } else { - x_1131 = x_1102; + x_1081 = x_1052; } -lean::cnstr_set(x_1131, 0, x_1130); -lean::cnstr_set(x_1131, 1, x_1100); -if (lean::is_scalar(x_1097)) { - x_1132 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1081, 0, x_1080); +lean::cnstr_set(x_1081, 1, x_1050); +if (lean::is_scalar(x_1047)) { + x_1082 = lean::alloc_cnstr(1, 1, 0); } else { - x_1132 = x_1097; + x_1082 = x_1047; } -lean::cnstr_set(x_1132, 0, x_1131); -return x_1132; +lean::cnstr_set(x_1082, 0, x_1081); +return x_1082; } } else { -obj* x_1135; obj* x_1136; +obj* x_1085; obj* x_1086; lean::dec(x_0); lean::dec(x_2); -if (lean::is_scalar(x_1102)) { - x_1135 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1052)) { + x_1085 = lean::alloc_cnstr(0, 2, 0); } else { - x_1135 = x_1102; + x_1085 = x_1052; } -lean::cnstr_set(x_1135, 0, x_1104); -lean::cnstr_set(x_1135, 1, x_1100); -if (lean::is_scalar(x_1097)) { - x_1136 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1085, 0, x_1054); +lean::cnstr_set(x_1085, 1, x_1050); +if (lean::is_scalar(x_1047)) { + x_1086 = lean::alloc_cnstr(1, 1, 0); } else { - x_1136 = x_1097; -} -lean::cnstr_set(x_1136, 0, x_1135); -return x_1136; -} -} -} -else -{ -obj* x_1139; -lean::dec(x_1076); -lean::inc(x_2); -x_1139 = l_Lean_Elaborator_toPexpr___main(x_1085, x_1, x_2, x_3); -if (lean::obj_tag(x_1139) == 0) -{ -obj* x_1142; obj* x_1144; obj* x_1145; -lean::dec(x_0); -lean::dec(x_2); -x_1142 = lean::cnstr_get(x_1139, 0); -if (lean::is_exclusive(x_1139)) { - x_1144 = x_1139; -} else { - lean::inc(x_1142); - lean::dec(x_1139); - x_1144 = lean::box(0); -} -if (lean::is_scalar(x_1144)) { - x_1145 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1145 = x_1144; -} -lean::cnstr_set(x_1145, 0, x_1142); -return x_1145; -} -else -{ -obj* x_1146; obj* x_1148; obj* x_1149; obj* x_1151; obj* x_1153; obj* x_1154; obj* x_1155; -x_1146 = lean::cnstr_get(x_1139, 0); -if (lean::is_exclusive(x_1139)) { - lean::cnstr_set(x_1139, 0, lean::box(0)); - x_1148 = x_1139; -} else { - lean::inc(x_1146); - lean::dec(x_1139); - x_1148 = lean::box(0); -} -x_1149 = lean::cnstr_get(x_1146, 0); -x_1151 = lean::cnstr_get(x_1146, 1); -if (lean::is_exclusive(x_1146)) { - lean::cnstr_set(x_1146, 0, lean::box(0)); - lean::cnstr_set(x_1146, 1, lean::box(0)); - x_1153 = x_1146; -} else { - lean::inc(x_1149); - lean::inc(x_1151); - lean::dec(x_1146); - x_1153 = lean::box(0); -} -x_1154 = l_Lean_Elaborator_toPexpr___main___closed__36; -x_1155 = l_Lean_Elaborator_Expr_mkAnnotation(x_1154, x_1149); -if (x_20 == 0) -{ -obj* x_1156; -x_1156 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_1156) == 0) -{ -obj* x_1159; obj* x_1160; -lean::dec(x_2); -if (lean::is_scalar(x_1153)) { - x_1159 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1159 = x_1153; -} -lean::cnstr_set(x_1159, 0, x_1155); -lean::cnstr_set(x_1159, 1, x_1151); -if (lean::is_scalar(x_1148)) { - x_1160 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1160 = x_1148; -} -lean::cnstr_set(x_1160, 0, x_1159); -return x_1160; -} -else -{ -obj* x_1161; obj* x_1164; obj* x_1167; obj* x_1170; obj* x_1171; obj* x_1173; obj* x_1174; obj* x_1175; obj* x_1176; obj* x_1179; obj* x_1180; obj* x_1181; obj* x_1182; obj* x_1183; -x_1161 = lean::cnstr_get(x_1156, 0); -lean::inc(x_1161); -lean::dec(x_1156); -x_1164 = lean::cnstr_get(x_2, 0); -lean::inc(x_1164); -lean::dec(x_2); -x_1167 = lean::cnstr_get(x_1164, 2); -lean::inc(x_1167); -lean::dec(x_1164); -x_1170 = l_Lean_FileMap_toPosition(x_1167, x_1161); -x_1171 = lean::cnstr_get(x_1170, 1); -lean::inc(x_1171); -x_1173 = lean::box(0); -x_1174 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1175 = l_Lean_KVMap_setNat(x_1173, x_1174, x_1171); -x_1176 = lean::cnstr_get(x_1170, 0); -lean::inc(x_1176); -lean::dec(x_1170); -x_1179 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1180 = l_Lean_KVMap_setNat(x_1175, x_1179, x_1176); -x_1181 = lean_expr_mk_mdata(x_1180, x_1155); -if (lean::is_scalar(x_1153)) { - x_1182 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1182 = x_1153; -} -lean::cnstr_set(x_1182, 0, x_1181); -lean::cnstr_set(x_1182, 1, x_1151); -if (lean::is_scalar(x_1148)) { - x_1183 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1183 = x_1148; -} -lean::cnstr_set(x_1183, 0, x_1182); -return x_1183; -} -} -else -{ -obj* x_1186; obj* x_1187; -lean::dec(x_0); -lean::dec(x_2); -if (lean::is_scalar(x_1153)) { - x_1186 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1186 = x_1153; -} -lean::cnstr_set(x_1186, 0, x_1155); -lean::cnstr_set(x_1186, 1, x_1151); -if (lean::is_scalar(x_1148)) { - x_1187 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1187 = x_1148; -} -lean::cnstr_set(x_1187, 0, x_1186); -return x_1187; + x_1086 = x_1047; } +lean::cnstr_set(x_1086, 0, x_1085); +return x_1086; } } } } else { -obj* x_1190; obj* x_1191; obj* x_1195; obj* x_1196; +obj* x_1089; obj* x_1090; obj* x_1094; obj* x_1095; obj* x_1097; obj* x_1098; obj* x_1101; obj* x_1104; lean::dec(x_8); lean::dec(x_10); -x_1190 = l_Lean_Parser_Term_projection_HasView; -x_1191 = lean::cnstr_get(x_1190, 0); -lean::inc(x_1191); -lean::dec(x_1190); +x_1089 = l_Lean_Parser_Term_explicit_HasView; +x_1090 = lean::cnstr_get(x_1089, 0); +lean::inc(x_1090); +lean::dec(x_1089); lean::inc(x_0); -x_1195 = lean::apply_1(x_1191, x_0); -x_1196 = lean::cnstr_get(x_1195, 2); -lean::inc(x_1196); -if (lean::obj_tag(x_1196) == 0) +x_1094 = lean::apply_1(x_1090, x_0); +x_1095 = lean::cnstr_get(x_1094, 0); +lean::inc(x_1095); +x_1097 = l_Lean_Parser_identUnivs_HasView; +x_1098 = lean::cnstr_get(x_1097, 1); +lean::inc(x_1098); +lean::dec(x_1097); +x_1101 = lean::cnstr_get(x_1094, 1); +lean::inc(x_1101); +lean::dec(x_1094); +x_1104 = lean::apply_1(x_1098, x_1101); +if (lean::obj_tag(x_1095) == 0) { -obj* x_1198; obj* x_1201; obj* x_1205; -x_1198 = lean::cnstr_get(x_1195, 0); -lean::inc(x_1198); -lean::dec(x_1195); -x_1201 = lean::cnstr_get(x_1196, 0); -lean::inc(x_1201); -lean::dec(x_1196); +obj* x_1107; +lean::dec(x_1095); lean::inc(x_2); -x_1205 = l_Lean_Elaborator_toPexpr___main(x_1198, x_1, x_2, x_3); -if (lean::obj_tag(x_1205) == 0) +x_1107 = l_Lean_Elaborator_toPexpr___main(x_1104, x_1, x_2, x_3); +if (lean::obj_tag(x_1107) == 0) { -obj* x_1209; obj* x_1211; obj* x_1212; +obj* x_1110; obj* x_1112; obj* x_1113; lean::dec(x_0); lean::dec(x_2); -lean::dec(x_1201); -x_1209 = lean::cnstr_get(x_1205, 0); -if (lean::is_exclusive(x_1205)) { - x_1211 = x_1205; +x_1110 = lean::cnstr_get(x_1107, 0); +if (lean::is_exclusive(x_1107)) { + x_1112 = x_1107; } else { - lean::inc(x_1209); - lean::dec(x_1205); - x_1211 = lean::box(0); + lean::inc(x_1110); + lean::dec(x_1107); + x_1112 = lean::box(0); } -if (lean::is_scalar(x_1211)) { - x_1212 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1112)) { + x_1113 = lean::alloc_cnstr(0, 1, 0); } else { - x_1212 = x_1211; + x_1113 = x_1112; } -lean::cnstr_set(x_1212, 0, x_1209); -return x_1212; +lean::cnstr_set(x_1113, 0, x_1110); +return x_1113; } else { -obj* x_1213; obj* x_1215; obj* x_1216; obj* x_1218; obj* x_1220; obj* x_1221; obj* x_1224; obj* x_1225; obj* x_1226; obj* x_1227; obj* x_1228; -x_1213 = lean::cnstr_get(x_1205, 0); -if (lean::is_exclusive(x_1205)) { - lean::cnstr_set(x_1205, 0, lean::box(0)); - x_1215 = x_1205; +obj* x_1114; obj* x_1116; obj* x_1117; obj* x_1119; obj* x_1121; obj* x_1122; obj* x_1123; +x_1114 = lean::cnstr_get(x_1107, 0); +if (lean::is_exclusive(x_1107)) { + lean::cnstr_set(x_1107, 0, lean::box(0)); + x_1116 = x_1107; } else { - lean::inc(x_1213); - lean::dec(x_1205); - x_1215 = lean::box(0); + lean::inc(x_1114); + lean::dec(x_1107); + x_1116 = lean::box(0); } -x_1216 = lean::cnstr_get(x_1213, 0); -x_1218 = lean::cnstr_get(x_1213, 1); -if (lean::is_exclusive(x_1213)) { - lean::cnstr_set(x_1213, 0, lean::box(0)); - lean::cnstr_set(x_1213, 1, lean::box(0)); - x_1220 = x_1213; +x_1117 = lean::cnstr_get(x_1114, 0); +x_1119 = lean::cnstr_get(x_1114, 1); +if (lean::is_exclusive(x_1114)) { + lean::cnstr_set(x_1114, 0, lean::box(0)); + lean::cnstr_set(x_1114, 1, lean::box(0)); + x_1121 = x_1114; } else { - lean::inc(x_1216); - lean::inc(x_1218); - lean::dec(x_1213); - x_1220 = lean::box(0); + lean::inc(x_1117); + lean::inc(x_1119); + lean::dec(x_1114); + x_1121 = lean::box(0); } -x_1221 = lean::cnstr_get(x_1201, 2); -lean::inc(x_1221); -lean::dec(x_1201); -x_1224 = lean::alloc_cnstr(2, 1, 0); -lean::cnstr_set(x_1224, 0, x_1221); -x_1225 = lean::box(0); -x_1226 = l_Lean_Elaborator_toPexpr___main___closed__37; -x_1227 = l_Lean_KVMap_insertCore___main(x_1225, x_1226, x_1224); -x_1228 = lean_expr_mk_mdata(x_1227, x_1216); +x_1122 = l_List_map___main___at_Lean_Elaborator_mkEqns___spec__1___closed__1; +x_1123 = l_Lean_Elaborator_Expr_mkAnnotation(x_1122, x_1117); if (x_20 == 0) { -obj* x_1229; -x_1229 = l_Lean_Parser_Syntax_getPos(x_0); +obj* x_1124; +x_1124 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1229) == 0) +if (lean::obj_tag(x_1124) == 0) { -obj* x_1232; obj* x_1233; +obj* x_1127; obj* x_1128; lean::dec(x_2); -if (lean::is_scalar(x_1220)) { - x_1232 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1121)) { + x_1127 = lean::alloc_cnstr(0, 2, 0); } else { - x_1232 = x_1220; + x_1127 = x_1121; } -lean::cnstr_set(x_1232, 0, x_1228); -lean::cnstr_set(x_1232, 1, x_1218); -if (lean::is_scalar(x_1215)) { - x_1233 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1127, 0, x_1123); +lean::cnstr_set(x_1127, 1, x_1119); +if (lean::is_scalar(x_1116)) { + x_1128 = lean::alloc_cnstr(1, 1, 0); } else { - x_1233 = x_1215; + x_1128 = x_1116; } -lean::cnstr_set(x_1233, 0, x_1232); -return x_1233; +lean::cnstr_set(x_1128, 0, x_1127); +return x_1128; } else { -obj* x_1234; obj* x_1237; obj* x_1240; obj* x_1243; obj* x_1244; obj* x_1246; obj* x_1247; obj* x_1248; obj* x_1251; obj* x_1252; obj* x_1253; obj* x_1254; obj* x_1255; -x_1234 = lean::cnstr_get(x_1229, 0); -lean::inc(x_1234); -lean::dec(x_1229); -x_1237 = lean::cnstr_get(x_2, 0); -lean::inc(x_1237); +obj* x_1129; obj* x_1132; obj* x_1135; obj* x_1138; obj* x_1139; obj* x_1141; obj* x_1142; obj* x_1143; obj* x_1144; obj* x_1147; obj* x_1148; obj* x_1149; obj* x_1150; obj* x_1151; +x_1129 = lean::cnstr_get(x_1124, 0); +lean::inc(x_1129); +lean::dec(x_1124); +x_1132 = lean::cnstr_get(x_2, 0); +lean::inc(x_1132); lean::dec(x_2); -x_1240 = lean::cnstr_get(x_1237, 2); +x_1135 = lean::cnstr_get(x_1132, 2); +lean::inc(x_1135); +lean::dec(x_1132); +x_1138 = l_Lean_FileMap_toPosition(x_1135, x_1129); +x_1139 = lean::cnstr_get(x_1138, 1); +lean::inc(x_1139); +x_1141 = lean::box(0); +x_1142 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1143 = l_Lean_KVMap_setNat(x_1141, x_1142, x_1139); +x_1144 = lean::cnstr_get(x_1138, 0); +lean::inc(x_1144); +lean::dec(x_1138); +x_1147 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1148 = l_Lean_KVMap_setNat(x_1143, x_1147, x_1144); +x_1149 = lean_expr_mk_mdata(x_1148, x_1123); +if (lean::is_scalar(x_1121)) { + x_1150 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1150 = x_1121; +} +lean::cnstr_set(x_1150, 0, x_1149); +lean::cnstr_set(x_1150, 1, x_1119); +if (lean::is_scalar(x_1116)) { + x_1151 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1151 = x_1116; +} +lean::cnstr_set(x_1151, 0, x_1150); +return x_1151; +} +} +else +{ +obj* x_1154; obj* x_1155; +lean::dec(x_0); +lean::dec(x_2); +if (lean::is_scalar(x_1121)) { + x_1154 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1154 = x_1121; +} +lean::cnstr_set(x_1154, 0, x_1123); +lean::cnstr_set(x_1154, 1, x_1119); +if (lean::is_scalar(x_1116)) { + x_1155 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1155 = x_1116; +} +lean::cnstr_set(x_1155, 0, x_1154); +return x_1155; +} +} +} +else +{ +obj* x_1158; +lean::dec(x_1095); +lean::inc(x_2); +x_1158 = l_Lean_Elaborator_toPexpr___main(x_1104, x_1, x_2, x_3); +if (lean::obj_tag(x_1158) == 0) +{ +obj* x_1161; obj* x_1163; obj* x_1164; +lean::dec(x_0); +lean::dec(x_2); +x_1161 = lean::cnstr_get(x_1158, 0); +if (lean::is_exclusive(x_1158)) { + x_1163 = x_1158; +} else { + lean::inc(x_1161); + lean::dec(x_1158); + x_1163 = lean::box(0); +} +if (lean::is_scalar(x_1163)) { + x_1164 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1164 = x_1163; +} +lean::cnstr_set(x_1164, 0, x_1161); +return x_1164; +} +else +{ +obj* x_1165; obj* x_1167; obj* x_1168; obj* x_1170; obj* x_1172; obj* x_1173; obj* x_1174; +x_1165 = lean::cnstr_get(x_1158, 0); +if (lean::is_exclusive(x_1158)) { + lean::cnstr_set(x_1158, 0, lean::box(0)); + x_1167 = x_1158; +} else { + lean::inc(x_1165); + lean::dec(x_1158); + x_1167 = lean::box(0); +} +x_1168 = lean::cnstr_get(x_1165, 0); +x_1170 = lean::cnstr_get(x_1165, 1); +if (lean::is_exclusive(x_1165)) { + lean::cnstr_set(x_1165, 0, lean::box(0)); + lean::cnstr_set(x_1165, 1, lean::box(0)); + x_1172 = x_1165; +} else { + lean::inc(x_1168); + lean::inc(x_1170); + lean::dec(x_1165); + x_1172 = lean::box(0); +} +x_1173 = l_Lean_Elaborator_toPexpr___main___closed__35; +x_1174 = l_Lean_Elaborator_Expr_mkAnnotation(x_1173, x_1168); +if (x_20 == 0) +{ +obj* x_1175; +x_1175 = l_Lean_Parser_Syntax_getPos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_1175) == 0) +{ +obj* x_1178; obj* x_1179; +lean::dec(x_2); +if (lean::is_scalar(x_1172)) { + x_1178 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1178 = x_1172; +} +lean::cnstr_set(x_1178, 0, x_1174); +lean::cnstr_set(x_1178, 1, x_1170); +if (lean::is_scalar(x_1167)) { + x_1179 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1179 = x_1167; +} +lean::cnstr_set(x_1179, 0, x_1178); +return x_1179; +} +else +{ +obj* x_1180; obj* x_1183; obj* x_1186; obj* x_1189; obj* x_1190; obj* x_1192; obj* x_1193; obj* x_1194; obj* x_1195; obj* x_1198; obj* x_1199; obj* x_1200; obj* x_1201; obj* x_1202; +x_1180 = lean::cnstr_get(x_1175, 0); +lean::inc(x_1180); +lean::dec(x_1175); +x_1183 = lean::cnstr_get(x_2, 0); +lean::inc(x_1183); +lean::dec(x_2); +x_1186 = lean::cnstr_get(x_1183, 2); +lean::inc(x_1186); +lean::dec(x_1183); +x_1189 = l_Lean_FileMap_toPosition(x_1186, x_1180); +x_1190 = lean::cnstr_get(x_1189, 1); +lean::inc(x_1190); +x_1192 = lean::box(0); +x_1193 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1194 = l_Lean_KVMap_setNat(x_1192, x_1193, x_1190); +x_1195 = lean::cnstr_get(x_1189, 0); +lean::inc(x_1195); +lean::dec(x_1189); +x_1198 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1199 = l_Lean_KVMap_setNat(x_1194, x_1198, x_1195); +x_1200 = lean_expr_mk_mdata(x_1199, x_1174); +if (lean::is_scalar(x_1172)) { + x_1201 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1201 = x_1172; +} +lean::cnstr_set(x_1201, 0, x_1200); +lean::cnstr_set(x_1201, 1, x_1170); +if (lean::is_scalar(x_1167)) { + x_1202 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1202 = x_1167; +} +lean::cnstr_set(x_1202, 0, x_1201); +return x_1202; +} +} +else +{ +obj* x_1205; obj* x_1206; +lean::dec(x_0); +lean::dec(x_2); +if (lean::is_scalar(x_1172)) { + x_1205 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1205 = x_1172; +} +lean::cnstr_set(x_1205, 0, x_1174); +lean::cnstr_set(x_1205, 1, x_1170); +if (lean::is_scalar(x_1167)) { + x_1206 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1206 = x_1167; +} +lean::cnstr_set(x_1206, 0, x_1205); +return x_1206; +} +} +} +} +} +else +{ +obj* x_1209; obj* x_1210; obj* x_1214; obj* x_1215; +lean::dec(x_8); +lean::dec(x_10); +x_1209 = l_Lean_Parser_Term_projection_HasView; +x_1210 = lean::cnstr_get(x_1209, 0); +lean::inc(x_1210); +lean::dec(x_1209); +lean::inc(x_0); +x_1214 = lean::apply_1(x_1210, x_0); +x_1215 = lean::cnstr_get(x_1214, 2); +lean::inc(x_1215); +if (lean::obj_tag(x_1215) == 0) +{ +obj* x_1217; obj* x_1220; obj* x_1224; +x_1217 = lean::cnstr_get(x_1214, 0); +lean::inc(x_1217); +lean::dec(x_1214); +x_1220 = lean::cnstr_get(x_1215, 0); +lean::inc(x_1220); +lean::dec(x_1215); +lean::inc(x_2); +x_1224 = l_Lean_Elaborator_toPexpr___main(x_1217, x_1, x_2, x_3); +if (lean::obj_tag(x_1224) == 0) +{ +obj* x_1228; obj* x_1230; obj* x_1231; +lean::dec(x_1220); +lean::dec(x_0); +lean::dec(x_2); +x_1228 = lean::cnstr_get(x_1224, 0); +if (lean::is_exclusive(x_1224)) { + x_1230 = x_1224; +} else { + lean::inc(x_1228); + lean::dec(x_1224); + x_1230 = lean::box(0); +} +if (lean::is_scalar(x_1230)) { + x_1231 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1231 = x_1230; +} +lean::cnstr_set(x_1231, 0, x_1228); +return x_1231; +} +else +{ +obj* x_1232; obj* x_1234; obj* x_1235; obj* x_1237; obj* x_1239; obj* x_1240; obj* x_1243; obj* x_1244; obj* x_1245; obj* x_1246; obj* x_1247; +x_1232 = lean::cnstr_get(x_1224, 0); +if (lean::is_exclusive(x_1224)) { + lean::cnstr_set(x_1224, 0, lean::box(0)); + x_1234 = x_1224; +} else { + lean::inc(x_1232); + lean::dec(x_1224); + x_1234 = lean::box(0); +} +x_1235 = lean::cnstr_get(x_1232, 0); +x_1237 = lean::cnstr_get(x_1232, 1); +if (lean::is_exclusive(x_1232)) { + lean::cnstr_set(x_1232, 0, lean::box(0)); + lean::cnstr_set(x_1232, 1, lean::box(0)); + x_1239 = x_1232; +} else { + lean::inc(x_1235); + lean::inc(x_1237); + lean::dec(x_1232); + x_1239 = lean::box(0); +} +x_1240 = lean::cnstr_get(x_1220, 2); lean::inc(x_1240); -lean::dec(x_1237); -x_1243 = l_Lean_FileMap_toPosition(x_1240, x_1234); -x_1244 = lean::cnstr_get(x_1243, 1); -lean::inc(x_1244); -x_1246 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1247 = l_Lean_KVMap_setNat(x_1225, x_1246, x_1244); -x_1248 = lean::cnstr_get(x_1243, 0); -lean::inc(x_1248); -lean::dec(x_1243); -x_1251 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1252 = l_Lean_KVMap_setNat(x_1247, x_1251, x_1248); -x_1253 = lean_expr_mk_mdata(x_1252, x_1228); -if (lean::is_scalar(x_1220)) { - x_1254 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1254 = x_1220; -} -lean::cnstr_set(x_1254, 0, x_1253); -lean::cnstr_set(x_1254, 1, x_1218); -if (lean::is_scalar(x_1215)) { - x_1255 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1255 = x_1215; -} -lean::cnstr_set(x_1255, 0, x_1254); -return x_1255; -} -} -else +lean::dec(x_1220); +x_1243 = lean::alloc_cnstr(2, 1, 0); +lean::cnstr_set(x_1243, 0, x_1240); +x_1244 = lean::box(0); +x_1245 = l_Lean_Elaborator_toPexpr___main___closed__36; +x_1246 = l_Lean_KVMap_insertCore___main(x_1244, x_1245, x_1243); +x_1247 = lean_expr_mk_mdata(x_1246, x_1235); +if (x_20 == 0) { -obj* x_1258; obj* x_1259; +obj* x_1248; +x_1248 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); +if (lean::obj_tag(x_1248) == 0) +{ +obj* x_1251; obj* x_1252; lean::dec(x_2); -if (lean::is_scalar(x_1220)) { - x_1258 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1239)) { + x_1251 = lean::alloc_cnstr(0, 2, 0); } else { - x_1258 = x_1220; + x_1251 = x_1239; } -lean::cnstr_set(x_1258, 0, x_1228); -lean::cnstr_set(x_1258, 1, x_1218); -if (lean::is_scalar(x_1215)) { - x_1259 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1251, 0, x_1247); +lean::cnstr_set(x_1251, 1, x_1237); +if (lean::is_scalar(x_1234)) { + x_1252 = lean::alloc_cnstr(1, 1, 0); } else { - x_1259 = x_1215; -} -lean::cnstr_set(x_1259, 0, x_1258); -return x_1259; -} + x_1252 = x_1234; } +lean::cnstr_set(x_1252, 0, x_1251); +return x_1252; } else { -obj* x_1260; obj* x_1263; obj* x_1267; -x_1260 = lean::cnstr_get(x_1195, 0); -lean::inc(x_1260); -lean::dec(x_1195); -x_1263 = lean::cnstr_get(x_1196, 0); +obj* x_1253; obj* x_1256; obj* x_1259; obj* x_1262; obj* x_1263; obj* x_1265; obj* x_1266; obj* x_1267; obj* x_1270; obj* x_1271; obj* x_1272; obj* x_1273; obj* x_1274; +x_1253 = lean::cnstr_get(x_1248, 0); +lean::inc(x_1253); +lean::dec(x_1248); +x_1256 = lean::cnstr_get(x_2, 0); +lean::inc(x_1256); +lean::dec(x_2); +x_1259 = lean::cnstr_get(x_1256, 2); +lean::inc(x_1259); +lean::dec(x_1256); +x_1262 = l_Lean_FileMap_toPosition(x_1259, x_1253); +x_1263 = lean::cnstr_get(x_1262, 1); lean::inc(x_1263); -lean::dec(x_1196); -lean::inc(x_2); -x_1267 = l_Lean_Elaborator_toPexpr___main(x_1260, x_1, x_2, x_3); -if (lean::obj_tag(x_1267) == 0) -{ -obj* x_1271; obj* x_1273; obj* x_1274; -lean::dec(x_1263); -lean::dec(x_0); -lean::dec(x_2); -x_1271 = lean::cnstr_get(x_1267, 0); -if (lean::is_exclusive(x_1267)) { - x_1273 = x_1267; +x_1265 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1266 = l_Lean_KVMap_setNat(x_1244, x_1265, x_1263); +x_1267 = lean::cnstr_get(x_1262, 0); +lean::inc(x_1267); +lean::dec(x_1262); +x_1270 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1271 = l_Lean_KVMap_setNat(x_1266, x_1270, x_1267); +x_1272 = lean_expr_mk_mdata(x_1271, x_1247); +if (lean::is_scalar(x_1239)) { + x_1273 = lean::alloc_cnstr(0, 2, 0); } else { - lean::inc(x_1271); - lean::dec(x_1267); - x_1273 = lean::box(0); + x_1273 = x_1239; } -if (lean::is_scalar(x_1273)) { - x_1274 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_1273, 0, x_1272); +lean::cnstr_set(x_1273, 1, x_1237); +if (lean::is_scalar(x_1234)) { + x_1274 = lean::alloc_cnstr(1, 1, 0); } else { - x_1274 = x_1273; + x_1274 = x_1234; } -lean::cnstr_set(x_1274, 0, x_1271); +lean::cnstr_set(x_1274, 0, x_1273); return x_1274; } +} else { -obj* x_1275; obj* x_1277; obj* x_1278; obj* x_1280; obj* x_1282; obj* x_1283; obj* x_1284; obj* x_1285; obj* x_1286; obj* x_1287; obj* x_1288; -x_1275 = lean::cnstr_get(x_1267, 0); -if (lean::is_exclusive(x_1267)) { - lean::cnstr_set(x_1267, 0, lean::box(0)); - x_1277 = x_1267; -} else { - lean::inc(x_1275); - lean::dec(x_1267); - x_1277 = lean::box(0); -} -x_1278 = lean::cnstr_get(x_1275, 0); -x_1280 = lean::cnstr_get(x_1275, 1); -if (lean::is_exclusive(x_1275)) { - lean::cnstr_set(x_1275, 0, lean::box(0)); - lean::cnstr_set(x_1275, 1, lean::box(0)); - x_1282 = x_1275; -} else { - lean::inc(x_1278); - lean::inc(x_1280); - lean::dec(x_1275); - x_1282 = lean::box(0); -} -x_1283 = l_Lean_Parser_number_View_toNat___main(x_1263); -x_1284 = lean::alloc_cnstr(3, 1, 0); -lean::cnstr_set(x_1284, 0, x_1283); -x_1285 = lean::box(0); -x_1286 = l_Lean_Elaborator_toPexpr___main___closed__37; -x_1287 = l_Lean_KVMap_insertCore___main(x_1285, x_1286, x_1284); -x_1288 = lean_expr_mk_mdata(x_1287, x_1278); -if (x_20 == 0) -{ -obj* x_1289; -x_1289 = l_Lean_Parser_Syntax_getPos(x_0); +obj* x_1277; obj* x_1278; lean::dec(x_0); -if (lean::obj_tag(x_1289) == 0) -{ -obj* x_1292; obj* x_1293; lean::dec(x_2); -if (lean::is_scalar(x_1282)) { - x_1292 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1239)) { + x_1277 = lean::alloc_cnstr(0, 2, 0); } else { - x_1292 = x_1282; + x_1277 = x_1239; } -lean::cnstr_set(x_1292, 0, x_1288); -lean::cnstr_set(x_1292, 1, x_1280); -if (lean::is_scalar(x_1277)) { - x_1293 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1277, 0, x_1247); +lean::cnstr_set(x_1277, 1, x_1237); +if (lean::is_scalar(x_1234)) { + x_1278 = lean::alloc_cnstr(1, 1, 0); } else { - x_1293 = x_1277; + x_1278 = x_1234; } -lean::cnstr_set(x_1293, 0, x_1292); +lean::cnstr_set(x_1278, 0, x_1277); +return x_1278; +} +} +} +else +{ +obj* x_1279; obj* x_1282; obj* x_1286; +x_1279 = lean::cnstr_get(x_1214, 0); +lean::inc(x_1279); +lean::dec(x_1214); +x_1282 = lean::cnstr_get(x_1215, 0); +lean::inc(x_1282); +lean::dec(x_1215); +lean::inc(x_2); +x_1286 = l_Lean_Elaborator_toPexpr___main(x_1279, x_1, x_2, x_3); +if (lean::obj_tag(x_1286) == 0) +{ +obj* x_1290; obj* x_1292; obj* x_1293; +lean::dec(x_1282); +lean::dec(x_0); +lean::dec(x_2); +x_1290 = lean::cnstr_get(x_1286, 0); +if (lean::is_exclusive(x_1286)) { + x_1292 = x_1286; +} else { + lean::inc(x_1290); + lean::dec(x_1286); + x_1292 = lean::box(0); +} +if (lean::is_scalar(x_1292)) { + x_1293 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1293 = x_1292; +} +lean::cnstr_set(x_1293, 0, x_1290); return x_1293; } else { -obj* x_1294; obj* x_1297; obj* x_1300; obj* x_1303; obj* x_1304; obj* x_1306; obj* x_1307; obj* x_1308; obj* x_1311; obj* x_1312; obj* x_1313; obj* x_1314; obj* x_1315; -x_1294 = lean::cnstr_get(x_1289, 0); -lean::inc(x_1294); -lean::dec(x_1289); -x_1297 = lean::cnstr_get(x_2, 0); -lean::inc(x_1297); -lean::dec(x_2); -x_1300 = lean::cnstr_get(x_1297, 2); -lean::inc(x_1300); -lean::dec(x_1297); -x_1303 = l_Lean_FileMap_toPosition(x_1300, x_1294); -x_1304 = lean::cnstr_get(x_1303, 1); -lean::inc(x_1304); -x_1306 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1307 = l_Lean_KVMap_setNat(x_1285, x_1306, x_1304); -x_1308 = lean::cnstr_get(x_1303, 0); -lean::inc(x_1308); -lean::dec(x_1303); -x_1311 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1312 = l_Lean_KVMap_setNat(x_1307, x_1311, x_1308); -x_1313 = lean_expr_mk_mdata(x_1312, x_1288); -if (lean::is_scalar(x_1282)) { - x_1314 = lean::alloc_cnstr(0, 2, 0); +obj* x_1294; obj* x_1296; obj* x_1297; obj* x_1299; obj* x_1301; obj* x_1302; obj* x_1303; obj* x_1304; obj* x_1305; obj* x_1306; obj* x_1307; +x_1294 = lean::cnstr_get(x_1286, 0); +if (lean::is_exclusive(x_1286)) { + lean::cnstr_set(x_1286, 0, lean::box(0)); + x_1296 = x_1286; } else { - x_1314 = x_1282; + lean::inc(x_1294); + lean::dec(x_1286); + x_1296 = lean::box(0); } -lean::cnstr_set(x_1314, 0, x_1313); -lean::cnstr_set(x_1314, 1, x_1280); -if (lean::is_scalar(x_1277)) { - x_1315 = lean::alloc_cnstr(1, 1, 0); +x_1297 = lean::cnstr_get(x_1294, 0); +x_1299 = lean::cnstr_get(x_1294, 1); +if (lean::is_exclusive(x_1294)) { + lean::cnstr_set(x_1294, 0, lean::box(0)); + lean::cnstr_set(x_1294, 1, lean::box(0)); + x_1301 = x_1294; } else { - x_1315 = x_1277; + lean::inc(x_1297); + lean::inc(x_1299); + lean::dec(x_1294); + x_1301 = lean::box(0); } -lean::cnstr_set(x_1315, 0, x_1314); -return x_1315; -} -} -else +x_1302 = l_Lean_Parser_number_View_toNat___main(x_1282); +x_1303 = lean::alloc_cnstr(3, 1, 0); +lean::cnstr_set(x_1303, 0, x_1302); +x_1304 = lean::box(0); +x_1305 = l_Lean_Elaborator_toPexpr___main___closed__36; +x_1306 = l_Lean_KVMap_insertCore___main(x_1304, x_1305, x_1303); +x_1307 = lean_expr_mk_mdata(x_1306, x_1297); +if (x_20 == 0) { -obj* x_1318; obj* x_1319; +obj* x_1308; +x_1308 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); +if (lean::obj_tag(x_1308) == 0) +{ +obj* x_1311; obj* x_1312; lean::dec(x_2); -if (lean::is_scalar(x_1282)) { - x_1318 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1301)) { + x_1311 = lean::alloc_cnstr(0, 2, 0); } else { - x_1318 = x_1282; + x_1311 = x_1301; } -lean::cnstr_set(x_1318, 0, x_1288); -lean::cnstr_set(x_1318, 1, x_1280); -if (lean::is_scalar(x_1277)) { - x_1319 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1311, 0, x_1307); +lean::cnstr_set(x_1311, 1, x_1299); +if (lean::is_scalar(x_1296)) { + x_1312 = lean::alloc_cnstr(1, 1, 0); } else { - x_1319 = x_1277; -} -lean::cnstr_set(x_1319, 0, x_1318); -return x_1319; -} -} -} + x_1312 = x_1296; } +lean::cnstr_set(x_1312, 0, x_1311); +return x_1312; } else { -obj* x_1321; obj* x_1322; obj* x_1326; obj* x_1327; -lean::dec(x_10); -x_1321 = l_Lean_Parser_Term_let_HasView; -x_1322 = lean::cnstr_get(x_1321, 0); -lean::inc(x_1322); -lean::dec(x_1321); -lean::inc(x_0); -x_1326 = lean::apply_1(x_1322, x_0); -x_1327 = lean::cnstr_get(x_1326, 1); +obj* x_1313; obj* x_1316; obj* x_1319; obj* x_1322; obj* x_1323; obj* x_1325; obj* x_1326; obj* x_1327; obj* x_1330; obj* x_1331; obj* x_1332; obj* x_1333; obj* x_1334; +x_1313 = lean::cnstr_get(x_1308, 0); +lean::inc(x_1313); +lean::dec(x_1308); +x_1316 = lean::cnstr_get(x_2, 0); +lean::inc(x_1316); +lean::dec(x_2); +x_1319 = lean::cnstr_get(x_1316, 2); +lean::inc(x_1319); +lean::dec(x_1316); +x_1322 = l_Lean_FileMap_toPosition(x_1319, x_1313); +x_1323 = lean::cnstr_get(x_1322, 1); +lean::inc(x_1323); +x_1325 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1326 = l_Lean_KVMap_setNat(x_1304, x_1325, x_1323); +x_1327 = lean::cnstr_get(x_1322, 0); lean::inc(x_1327); -if (lean::obj_tag(x_1327) == 0) +lean::dec(x_1322); +x_1330 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1331 = l_Lean_KVMap_setNat(x_1326, x_1330, x_1327); +x_1332 = lean_expr_mk_mdata(x_1331, x_1307); +if (lean::is_scalar(x_1301)) { + x_1333 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1333 = x_1301; +} +lean::cnstr_set(x_1333, 0, x_1332); +lean::cnstr_set(x_1333, 1, x_1299); +if (lean::is_scalar(x_1296)) { + x_1334 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1334 = x_1296; +} +lean::cnstr_set(x_1334, 0, x_1333); +return x_1334; +} +} +else { -obj* x_1329; obj* x_1332; -x_1329 = lean::cnstr_get(x_1327, 0); -lean::inc(x_1329); -lean::dec(x_1327); -x_1332 = lean::cnstr_get(x_1329, 1); -lean::inc(x_1332); -if (lean::obj_tag(x_1332) == 0) -{ -obj* x_1334; -x_1334 = lean::cnstr_get(x_1329, 2); -lean::inc(x_1334); -if (lean::obj_tag(x_1334) == 0) -{ -obj* x_1339; obj* x_1340; obj* x_1342; -lean::dec(x_1329); -lean::dec(x_1326); -lean::inc(x_0); -x_1339 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1339, 0, x_0); -x_1340 = l_Lean_Elaborator_toPexpr___main___closed__38; -lean::inc(x_2); -x_1342 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_1339, x_1340, x_1, x_2, x_3); -lean::dec(x_3); -lean::dec(x_1339); -if (lean::obj_tag(x_1342) == 0) -{ -obj* x_1348; obj* x_1350; obj* x_1351; -lean::dec(x_8); +obj* x_1337; obj* x_1338; lean::dec(x_0); lean::dec(x_2); -x_1348 = lean::cnstr_get(x_1342, 0); -if (lean::is_exclusive(x_1342)) { - x_1350 = x_1342; +if (lean::is_scalar(x_1301)) { + x_1337 = lean::alloc_cnstr(0, 2, 0); } else { - lean::inc(x_1348); - lean::dec(x_1342); - x_1350 = lean::box(0); + x_1337 = x_1301; } -if (lean::is_scalar(x_1350)) { - x_1351 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_1337, 0, x_1307); +lean::cnstr_set(x_1337, 1, x_1299); +if (lean::is_scalar(x_1296)) { + x_1338 = lean::alloc_cnstr(1, 1, 0); } else { - x_1351 = x_1350; + x_1338 = x_1296; +} +lean::cnstr_set(x_1338, 0, x_1337); +return x_1338; +} } -lean::cnstr_set(x_1351, 0, x_1348); -return x_1351; } -else -{ -obj* x_1352; -x_1352 = lean::cnstr_get(x_1342, 0); -lean::inc(x_1352); -lean::dec(x_1342); -x_15 = x_1352; -goto lbl_16; } } else { -obj* x_1355; obj* x_1358; obj* x_1361; obj* x_1365; -x_1355 = lean::cnstr_get(x_1329, 0); -lean::inc(x_1355); -lean::dec(x_1329); -x_1358 = lean::cnstr_get(x_1334, 0); -lean::inc(x_1358); -lean::dec(x_1334); -x_1361 = lean::cnstr_get(x_1358, 1); -lean::inc(x_1361); +obj* x_1340; obj* x_1341; obj* x_1345; obj* x_1346; +lean::dec(x_10); +x_1340 = l_Lean_Parser_Term_let_HasView; +x_1341 = lean::cnstr_get(x_1340, 0); +lean::inc(x_1341); +lean::dec(x_1340); +lean::inc(x_0); +x_1345 = lean::apply_1(x_1341, x_0); +x_1346 = lean::cnstr_get(x_1345, 1); +lean::inc(x_1346); +if (lean::obj_tag(x_1346) == 0) +{ +obj* x_1348; obj* x_1351; +x_1348 = lean::cnstr_get(x_1346, 0); +lean::inc(x_1348); +lean::dec(x_1346); +x_1351 = lean::cnstr_get(x_1348, 1); +lean::inc(x_1351); +if (lean::obj_tag(x_1351) == 0) +{ +obj* x_1353; +x_1353 = lean::cnstr_get(x_1348, 2); +lean::inc(x_1353); +if (lean::obj_tag(x_1353) == 0) +{ +obj* x_1358; obj* x_1359; obj* x_1361; +lean::dec(x_1348); +lean::dec(x_1345); +lean::inc(x_0); +x_1358 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1358, 0, x_0); +x_1359 = l_Lean_Elaborator_toPexpr___main___closed__37; +lean::inc(x_2); +x_1361 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_1358, x_1359, x_1, x_2, x_3); +lean::dec(x_3); lean::dec(x_1358); -lean::inc(x_2); -x_1365 = l_Lean_Elaborator_toPexpr___main(x_1361, x_1, x_2, x_3); -if (lean::obj_tag(x_1365) == 0) +if (lean::obj_tag(x_1361) == 0) { -obj* x_1371; obj* x_1373; obj* x_1374; +obj* x_1367; obj* x_1369; obj* x_1370; lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_1355); -lean::dec(x_1326); -x_1371 = lean::cnstr_get(x_1365, 0); -if (lean::is_exclusive(x_1365)) { - x_1373 = x_1365; +x_1367 = lean::cnstr_get(x_1361, 0); +if (lean::is_exclusive(x_1361)) { + x_1369 = x_1361; } else { - lean::inc(x_1371); - lean::dec(x_1365); - x_1373 = lean::box(0); + lean::inc(x_1367); + lean::dec(x_1361); + x_1369 = lean::box(0); } -if (lean::is_scalar(x_1373)) { - x_1374 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1369)) { + x_1370 = lean::alloc_cnstr(0, 1, 0); } else { - x_1374 = x_1373; + x_1370 = x_1369; } -lean::cnstr_set(x_1374, 0, x_1371); -return x_1374; +lean::cnstr_set(x_1370, 0, x_1367); +return x_1370; } else { -obj* x_1375; obj* x_1378; obj* x_1380; obj* x_1383; obj* x_1386; -x_1375 = lean::cnstr_get(x_1365, 0); -lean::inc(x_1375); -lean::dec(x_1365); -x_1378 = lean::cnstr_get(x_1375, 0); -lean::inc(x_1378); -x_1380 = lean::cnstr_get(x_1375, 1); -lean::inc(x_1380); -lean::dec(x_1375); -x_1383 = lean::cnstr_get(x_1326, 3); -lean::inc(x_1383); -lean::inc(x_2); -x_1386 = l_Lean_Elaborator_toPexpr___main(x_1383, x_1, x_2, x_1380); -if (lean::obj_tag(x_1386) == 0) -{ -obj* x_1393; obj* x_1395; obj* x_1396; -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_1355); -lean::dec(x_1378); -lean::dec(x_1326); -x_1393 = lean::cnstr_get(x_1386, 0); -if (lean::is_exclusive(x_1386)) { - x_1395 = x_1386; -} else { - lean::inc(x_1393); - lean::dec(x_1386); - x_1395 = lean::box(0); -} -if (lean::is_scalar(x_1395)) { - x_1396 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1396 = x_1395; -} -lean::cnstr_set(x_1396, 0, x_1393); -return x_1396; -} -else -{ -obj* x_1397; obj* x_1400; obj* x_1402; obj* x_1405; obj* x_1409; -x_1397 = lean::cnstr_get(x_1386, 0); -lean::inc(x_1397); -lean::dec(x_1386); -x_1400 = lean::cnstr_get(x_1397, 0); -lean::inc(x_1400); -x_1402 = lean::cnstr_get(x_1397, 1); -lean::inc(x_1402); -lean::dec(x_1397); -x_1405 = lean::cnstr_get(x_1326, 5); -lean::inc(x_1405); -lean::dec(x_1326); -lean::inc(x_2); -x_1409 = l_Lean_Elaborator_toPexpr___main(x_1405, x_1, x_2, x_1402); -if (lean::obj_tag(x_1409) == 0) -{ -obj* x_1416; obj* x_1418; obj* x_1419; -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_1355); -lean::dec(x_1400); -lean::dec(x_1378); -x_1416 = lean::cnstr_get(x_1409, 0); -if (lean::is_exclusive(x_1409)) { - x_1418 = x_1409; -} else { - lean::inc(x_1416); - lean::dec(x_1409); - x_1418 = lean::box(0); -} -if (lean::is_scalar(x_1418)) { - x_1419 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1419 = x_1418; -} -lean::cnstr_set(x_1419, 0, x_1416); -return x_1419; -} -else -{ -obj* x_1420; obj* x_1423; obj* x_1425; obj* x_1427; obj* x_1428; obj* x_1429; obj* x_1430; -x_1420 = lean::cnstr_get(x_1409, 0); -lean::inc(x_1420); -lean::dec(x_1409); -x_1423 = lean::cnstr_get(x_1420, 0); -x_1425 = lean::cnstr_get(x_1420, 1); -if (lean::is_exclusive(x_1420)) { - x_1427 = x_1420; -} else { - lean::inc(x_1423); - lean::inc(x_1425); - lean::dec(x_1420); - x_1427 = lean::box(0); -} -x_1428 = l_Lean_Elaborator_mangleIdent(x_1355); -x_1429 = lean_expr_mk_let(x_1428, x_1378, x_1400, x_1423); -if (lean::is_scalar(x_1427)) { - x_1430 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1430 = x_1427; -} -lean::cnstr_set(x_1430, 0, x_1429); -lean::cnstr_set(x_1430, 1, x_1425); -x_15 = x_1430; +obj* x_1371; +x_1371 = lean::cnstr_get(x_1361, 0); +lean::inc(x_1371); +lean::dec(x_1361); +x_15 = x_1371; goto lbl_16; } } -} -} -} else { -obj* x_1435; obj* x_1436; obj* x_1438; -lean::dec(x_1332); -lean::dec(x_1329); -lean::dec(x_1326); -lean::inc(x_0); -x_1435 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1435, 0, x_0); -x_1436 = l_Lean_Elaborator_toPexpr___main___closed__38; +obj* x_1374; obj* x_1377; obj* x_1380; obj* x_1384; +x_1374 = lean::cnstr_get(x_1348, 0); +lean::inc(x_1374); +lean::dec(x_1348); +x_1377 = lean::cnstr_get(x_1353, 0); +lean::inc(x_1377); +lean::dec(x_1353); +x_1380 = lean::cnstr_get(x_1377, 1); +lean::inc(x_1380); +lean::dec(x_1377); lean::inc(x_2); -x_1438 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_1435, x_1436, x_1, x_2, x_3); -lean::dec(x_3); -lean::dec(x_1435); -if (lean::obj_tag(x_1438) == 0) +x_1384 = l_Lean_Elaborator_toPexpr___main(x_1380, x_1, x_2, x_3); +if (lean::obj_tag(x_1384) == 0) { -obj* x_1444; obj* x_1446; obj* x_1447; +obj* x_1390; obj* x_1392; obj* x_1393; lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -x_1444 = lean::cnstr_get(x_1438, 0); -if (lean::is_exclusive(x_1438)) { - x_1446 = x_1438; +lean::dec(x_1345); +lean::dec(x_1374); +x_1390 = lean::cnstr_get(x_1384, 0); +if (lean::is_exclusive(x_1384)) { + x_1392 = x_1384; } else { + lean::inc(x_1390); + lean::dec(x_1384); + x_1392 = lean::box(0); +} +if (lean::is_scalar(x_1392)) { + x_1393 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1393 = x_1392; +} +lean::cnstr_set(x_1393, 0, x_1390); +return x_1393; +} +else +{ +obj* x_1394; obj* x_1397; obj* x_1399; obj* x_1402; obj* x_1405; +x_1394 = lean::cnstr_get(x_1384, 0); +lean::inc(x_1394); +lean::dec(x_1384); +x_1397 = lean::cnstr_get(x_1394, 0); +lean::inc(x_1397); +x_1399 = lean::cnstr_get(x_1394, 1); +lean::inc(x_1399); +lean::dec(x_1394); +x_1402 = lean::cnstr_get(x_1345, 3); +lean::inc(x_1402); +lean::inc(x_2); +x_1405 = l_Lean_Elaborator_toPexpr___main(x_1402, x_1, x_2, x_1399); +if (lean::obj_tag(x_1405) == 0) +{ +obj* x_1412; obj* x_1414; obj* x_1415; +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_1345); +lean::dec(x_1374); +lean::dec(x_1397); +x_1412 = lean::cnstr_get(x_1405, 0); +if (lean::is_exclusive(x_1405)) { + x_1414 = x_1405; +} else { + lean::inc(x_1412); + lean::dec(x_1405); + x_1414 = lean::box(0); +} +if (lean::is_scalar(x_1414)) { + x_1415 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1415 = x_1414; +} +lean::cnstr_set(x_1415, 0, x_1412); +return x_1415; +} +else +{ +obj* x_1416; obj* x_1419; obj* x_1421; obj* x_1424; obj* x_1428; +x_1416 = lean::cnstr_get(x_1405, 0); +lean::inc(x_1416); +lean::dec(x_1405); +x_1419 = lean::cnstr_get(x_1416, 0); +lean::inc(x_1419); +x_1421 = lean::cnstr_get(x_1416, 1); +lean::inc(x_1421); +lean::dec(x_1416); +x_1424 = lean::cnstr_get(x_1345, 5); +lean::inc(x_1424); +lean::dec(x_1345); +lean::inc(x_2); +x_1428 = l_Lean_Elaborator_toPexpr___main(x_1424, x_1, x_2, x_1421); +if (lean::obj_tag(x_1428) == 0) +{ +obj* x_1435; obj* x_1437; obj* x_1438; +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_1374); +lean::dec(x_1397); +lean::dec(x_1419); +x_1435 = lean::cnstr_get(x_1428, 0); +if (lean::is_exclusive(x_1428)) { + x_1437 = x_1428; +} else { + lean::inc(x_1435); + lean::dec(x_1428); + x_1437 = lean::box(0); +} +if (lean::is_scalar(x_1437)) { + x_1438 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1438 = x_1437; +} +lean::cnstr_set(x_1438, 0, x_1435); +return x_1438; +} +else +{ +obj* x_1439; obj* x_1442; obj* x_1444; obj* x_1446; obj* x_1447; obj* x_1448; obj* x_1449; +x_1439 = lean::cnstr_get(x_1428, 0); +lean::inc(x_1439); +lean::dec(x_1428); +x_1442 = lean::cnstr_get(x_1439, 0); +x_1444 = lean::cnstr_get(x_1439, 1); +if (lean::is_exclusive(x_1439)) { + x_1446 = x_1439; +} else { + lean::inc(x_1442); lean::inc(x_1444); - lean::dec(x_1438); + lean::dec(x_1439); x_1446 = lean::box(0); } +x_1447 = l_Lean_Elaborator_mangleIdent(x_1374); +x_1448 = lean_expr_mk_let(x_1447, x_1397, x_1419, x_1442); if (lean::is_scalar(x_1446)) { - x_1447 = lean::alloc_cnstr(0, 1, 0); + x_1449 = lean::alloc_cnstr(0, 2, 0); } else { - x_1447 = x_1446; + x_1449 = x_1446; } -lean::cnstr_set(x_1447, 0, x_1444); -return x_1447; -} -else -{ -obj* x_1448; -x_1448 = lean::cnstr_get(x_1438, 0); -lean::inc(x_1448); -lean::dec(x_1438); -x_15 = x_1448; +lean::cnstr_set(x_1449, 0, x_1448); +lean::cnstr_set(x_1449, 1, x_1444); +x_15 = x_1449; goto lbl_16; } } } +} +} else { obj* x_1454; obj* x_1455; obj* x_1457; -lean::dec(x_1326); -lean::dec(x_1327); +lean::dec(x_1351); +lean::dec(x_1348); +lean::dec(x_1345); lean::inc(x_0); x_1454 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_1454, 0, x_0); -x_1455 = l_Lean_Elaborator_toPexpr___main___closed__38; +x_1455 = l_Lean_Elaborator_toPexpr___main___closed__37; lean::inc(x_2); x_1457 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_1454, x_1455, x_1, x_2, x_3); lean::dec(x_3); @@ -12142,270 +12105,279 @@ goto lbl_16; } } } +else +{ +obj* x_1473; obj* x_1474; obj* x_1476; +lean::dec(x_1345); +lean::dec(x_1346); +lean::inc(x_0); +x_1473 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1473, 0, x_0); +x_1474 = l_Lean_Elaborator_toPexpr___main___closed__37; +lean::inc(x_2); +x_1476 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_1473, x_1474, x_1, x_2, x_3); +lean::dec(x_3); +lean::dec(x_1473); +if (lean::obj_tag(x_1476) == 0) +{ +obj* x_1482; obj* x_1484; obj* x_1485; +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +x_1482 = lean::cnstr_get(x_1476, 0); +if (lean::is_exclusive(x_1476)) { + x_1484 = x_1476; +} else { + lean::inc(x_1482); + lean::dec(x_1476); + x_1484 = lean::box(0); +} +if (lean::is_scalar(x_1484)) { + x_1485 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1485 = x_1484; +} +lean::cnstr_set(x_1485, 0, x_1482); +return x_1485; } else { -obj* x_1472; obj* x_1473; obj* x_1477; obj* x_1478; obj* x_1481; +obj* x_1486; +x_1486 = lean::cnstr_get(x_1476, 0); +lean::inc(x_1486); +lean::dec(x_1476); +x_15 = x_1486; +goto lbl_16; +} +} +} +} +else +{ +obj* x_1491; obj* x_1492; obj* x_1496; obj* x_1497; obj* x_1500; lean::dec(x_8); lean::dec(x_10); -x_1472 = l_Lean_Parser_Term_show_HasView; -x_1473 = lean::cnstr_get(x_1472, 0); -lean::inc(x_1473); -lean::dec(x_1472); -lean::inc(x_0); -x_1477 = lean::apply_1(x_1473, x_0); -x_1478 = lean::cnstr_get(x_1477, 1); -lean::inc(x_1478); -lean::inc(x_2); -x_1481 = l_Lean_Elaborator_toPexpr___main(x_1478, x_1, x_2, x_3); -if (lean::obj_tag(x_1481) == 0) -{ -obj* x_1485; obj* x_1487; obj* x_1488; -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_1477); -x_1485 = lean::cnstr_get(x_1481, 0); -if (lean::is_exclusive(x_1481)) { - x_1487 = x_1481; -} else { - lean::inc(x_1485); - lean::dec(x_1481); - x_1487 = lean::box(0); -} -if (lean::is_scalar(x_1487)) { - x_1488 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1488 = x_1487; -} -lean::cnstr_set(x_1488, 0, x_1485); -return x_1488; -} -else -{ -obj* x_1489; obj* x_1492; obj* x_1494; obj* x_1497; obj* x_1500; obj* x_1504; -x_1489 = lean::cnstr_get(x_1481, 0); -lean::inc(x_1489); -lean::dec(x_1481); -x_1492 = lean::cnstr_get(x_1489, 0); +x_1491 = l_Lean_Parser_Term_show_HasView; +x_1492 = lean::cnstr_get(x_1491, 0); lean::inc(x_1492); -x_1494 = lean::cnstr_get(x_1489, 1); -lean::inc(x_1494); -lean::dec(x_1489); -x_1497 = lean::cnstr_get(x_1477, 3); +lean::dec(x_1491); +lean::inc(x_0); +x_1496 = lean::apply_1(x_1492, x_0); +x_1497 = lean::cnstr_get(x_1496, 1); lean::inc(x_1497); -lean::dec(x_1477); -x_1500 = lean::cnstr_get(x_1497, 1); -lean::inc(x_1500); -lean::dec(x_1497); lean::inc(x_2); -x_1504 = l_Lean_Elaborator_toPexpr___main(x_1500, x_1, x_2, x_1494); -if (lean::obj_tag(x_1504) == 0) +x_1500 = l_Lean_Elaborator_toPexpr___main(x_1497, x_1, x_2, x_3); +if (lean::obj_tag(x_1500) == 0) { -obj* x_1508; obj* x_1510; obj* x_1511; -lean::dec(x_1492); +obj* x_1504; obj* x_1506; obj* x_1507; lean::dec(x_0); lean::dec(x_2); -x_1508 = lean::cnstr_get(x_1504, 0); -if (lean::is_exclusive(x_1504)) { - x_1510 = x_1504; +lean::dec(x_1496); +x_1504 = lean::cnstr_get(x_1500, 0); +if (lean::is_exclusive(x_1500)) { + x_1506 = x_1500; } else { - lean::inc(x_1508); - lean::dec(x_1504); - x_1510 = lean::box(0); + lean::inc(x_1504); + lean::dec(x_1500); + x_1506 = lean::box(0); } -if (lean::is_scalar(x_1510)) { - x_1511 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1506)) { + x_1507 = lean::alloc_cnstr(0, 1, 0); } else { - x_1511 = x_1510; + x_1507 = x_1506; } -lean::cnstr_set(x_1511, 0, x_1508); -return x_1511; +lean::cnstr_set(x_1507, 0, x_1504); +return x_1507; } else { -obj* x_1512; obj* x_1514; obj* x_1515; obj* x_1517; obj* x_1519; obj* x_1520; uint8 x_1521; obj* x_1522; obj* x_1523; obj* x_1524; obj* x_1525; obj* x_1526; -x_1512 = lean::cnstr_get(x_1504, 0); -if (lean::is_exclusive(x_1504)) { - lean::cnstr_set(x_1504, 0, lean::box(0)); - x_1514 = x_1504; +obj* x_1508; obj* x_1511; obj* x_1513; obj* x_1516; obj* x_1519; obj* x_1523; +x_1508 = lean::cnstr_get(x_1500, 0); +lean::inc(x_1508); +lean::dec(x_1500); +x_1511 = lean::cnstr_get(x_1508, 0); +lean::inc(x_1511); +x_1513 = lean::cnstr_get(x_1508, 1); +lean::inc(x_1513); +lean::dec(x_1508); +x_1516 = lean::cnstr_get(x_1496, 3); +lean::inc(x_1516); +lean::dec(x_1496); +x_1519 = lean::cnstr_get(x_1516, 1); +lean::inc(x_1519); +lean::dec(x_1516); +lean::inc(x_2); +x_1523 = l_Lean_Elaborator_toPexpr___main(x_1519, x_1, x_2, x_1513); +if (lean::obj_tag(x_1523) == 0) +{ +obj* x_1527; obj* x_1529; obj* x_1530; +lean::dec(x_1511); +lean::dec(x_0); +lean::dec(x_2); +x_1527 = lean::cnstr_get(x_1523, 0); +if (lean::is_exclusive(x_1523)) { + x_1529 = x_1523; } else { - lean::inc(x_1512); - lean::dec(x_1504); - x_1514 = lean::box(0); + lean::inc(x_1527); + lean::dec(x_1523); + x_1529 = lean::box(0); } -x_1515 = lean::cnstr_get(x_1512, 0); -x_1517 = lean::cnstr_get(x_1512, 1); -if (lean::is_exclusive(x_1512)) { - lean::cnstr_set(x_1512, 0, lean::box(0)); - lean::cnstr_set(x_1512, 1, lean::box(0)); - x_1519 = x_1512; +if (lean::is_scalar(x_1529)) { + x_1530 = lean::alloc_cnstr(0, 1, 0); } else { - lean::inc(x_1515); - lean::inc(x_1517); - lean::dec(x_1512); - x_1519 = lean::box(0); + x_1530 = x_1529; } -x_1520 = l_Lean_Elaborator_toPexpr___main___closed__39; -x_1521 = 0; -x_1522 = l_Lean_Elaborator_toPexpr___main___closed__40; -x_1523 = lean_expr_mk_lambda(x_1520, x_1521, x_1492, x_1522); -x_1524 = lean_expr_mk_app(x_1523, x_1515); -x_1525 = l_Lean_Elaborator_toPexpr___main___closed__41; -x_1526 = l_Lean_Elaborator_Expr_mkAnnotation(x_1525, x_1524); +lean::cnstr_set(x_1530, 0, x_1527); +return x_1530; +} +else +{ +obj* x_1531; obj* x_1533; obj* x_1534; obj* x_1536; obj* x_1538; obj* x_1539; uint8 x_1540; obj* x_1541; obj* x_1542; obj* x_1543; obj* x_1544; obj* x_1545; +x_1531 = lean::cnstr_get(x_1523, 0); +if (lean::is_exclusive(x_1523)) { + lean::cnstr_set(x_1523, 0, lean::box(0)); + x_1533 = x_1523; +} else { + lean::inc(x_1531); + lean::dec(x_1523); + x_1533 = lean::box(0); +} +x_1534 = lean::cnstr_get(x_1531, 0); +x_1536 = lean::cnstr_get(x_1531, 1); +if (lean::is_exclusive(x_1531)) { + lean::cnstr_set(x_1531, 0, lean::box(0)); + lean::cnstr_set(x_1531, 1, lean::box(0)); + x_1538 = x_1531; +} else { + lean::inc(x_1534); + lean::inc(x_1536); + lean::dec(x_1531); + x_1538 = lean::box(0); +} +x_1539 = l_Lean_Elaborator_toPexpr___main___closed__38; +x_1540 = 0; +x_1541 = l_Lean_Elaborator_toPexpr___main___closed__39; +x_1542 = lean_expr_mk_lambda(x_1539, x_1540, x_1511, x_1541); +x_1543 = lean_expr_mk_app(x_1542, x_1534); +x_1544 = l_Lean_Elaborator_toPexpr___main___closed__40; +x_1545 = l_Lean_Elaborator_Expr_mkAnnotation(x_1544, x_1543); if (x_20 == 0) { -obj* x_1527; -x_1527 = l_Lean_Parser_Syntax_getPos(x_0); +obj* x_1546; +x_1546 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1527) == 0) +if (lean::obj_tag(x_1546) == 0) { -obj* x_1530; obj* x_1531; +obj* x_1549; obj* x_1550; lean::dec(x_2); -if (lean::is_scalar(x_1519)) { - x_1530 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1538)) { + x_1549 = lean::alloc_cnstr(0, 2, 0); } else { - x_1530 = x_1519; + x_1549 = x_1538; } -lean::cnstr_set(x_1530, 0, x_1526); -lean::cnstr_set(x_1530, 1, x_1517); -if (lean::is_scalar(x_1514)) { - x_1531 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1549, 0, x_1545); +lean::cnstr_set(x_1549, 1, x_1536); +if (lean::is_scalar(x_1533)) { + x_1550 = lean::alloc_cnstr(1, 1, 0); } else { - x_1531 = x_1514; + x_1550 = x_1533; } -lean::cnstr_set(x_1531, 0, x_1530); -return x_1531; +lean::cnstr_set(x_1550, 0, x_1549); +return x_1550; } else { -obj* x_1532; obj* x_1535; obj* x_1538; obj* x_1541; obj* x_1542; obj* x_1544; obj* x_1545; obj* x_1546; obj* x_1547; obj* x_1550; obj* x_1551; obj* x_1552; obj* x_1553; obj* x_1554; -x_1532 = lean::cnstr_get(x_1527, 0); -lean::inc(x_1532); -lean::dec(x_1527); -x_1535 = lean::cnstr_get(x_2, 0); -lean::inc(x_1535); +obj* x_1551; obj* x_1554; obj* x_1557; obj* x_1560; obj* x_1561; obj* x_1563; obj* x_1564; obj* x_1565; obj* x_1566; obj* x_1569; obj* x_1570; obj* x_1571; obj* x_1572; obj* x_1573; +x_1551 = lean::cnstr_get(x_1546, 0); +lean::inc(x_1551); +lean::dec(x_1546); +x_1554 = lean::cnstr_get(x_2, 0); +lean::inc(x_1554); lean::dec(x_2); -x_1538 = lean::cnstr_get(x_1535, 2); -lean::inc(x_1538); -lean::dec(x_1535); -x_1541 = l_Lean_FileMap_toPosition(x_1538, x_1532); -x_1542 = lean::cnstr_get(x_1541, 1); -lean::inc(x_1542); -x_1544 = lean::box(0); -x_1545 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1546 = l_Lean_KVMap_setNat(x_1544, x_1545, x_1542); -x_1547 = lean::cnstr_get(x_1541, 0); -lean::inc(x_1547); -lean::dec(x_1541); -x_1550 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1551 = l_Lean_KVMap_setNat(x_1546, x_1550, x_1547); -x_1552 = lean_expr_mk_mdata(x_1551, x_1526); -if (lean::is_scalar(x_1519)) { - x_1553 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1553 = x_1519; -} -lean::cnstr_set(x_1553, 0, x_1552); -lean::cnstr_set(x_1553, 1, x_1517); -if (lean::is_scalar(x_1514)) { - x_1554 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1554 = x_1514; -} -lean::cnstr_set(x_1554, 0, x_1553); -return x_1554; -} -} -else -{ -obj* x_1557; obj* x_1558; -lean::dec(x_0); -lean::dec(x_2); -if (lean::is_scalar(x_1519)) { - x_1557 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1557 = x_1519; -} -lean::cnstr_set(x_1557, 0, x_1526); -lean::cnstr_set(x_1557, 1, x_1517); -if (lean::is_scalar(x_1514)) { - x_1558 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1558 = x_1514; -} -lean::cnstr_set(x_1558, 0, x_1557); -return x_1558; -} -} -} -} -} -else -{ -obj* x_1560; obj* x_1561; obj* x_1565; obj* x_1566; -lean::dec(x_10); -x_1560 = l_Lean_Parser_Term_have_HasView; -x_1561 = lean::cnstr_get(x_1560, 0); +x_1557 = lean::cnstr_get(x_1554, 2); +lean::inc(x_1557); +lean::dec(x_1554); +x_1560 = l_Lean_FileMap_toPosition(x_1557, x_1551); +x_1561 = lean::cnstr_get(x_1560, 1); lean::inc(x_1561); -lean::dec(x_1560); -lean::inc(x_0); -x_1565 = lean::apply_1(x_1561, x_0); -x_1566 = lean::cnstr_get(x_1565, 1); +x_1563 = lean::box(0); +x_1564 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1565 = l_Lean_KVMap_setNat(x_1563, x_1564, x_1561); +x_1566 = lean::cnstr_get(x_1560, 0); lean::inc(x_1566); -if (lean::obj_tag(x_1566) == 0) -{ -obj* x_1568; obj* x_1570; obj* x_1573; -x_1568 = lean::cnstr_get(x_1565, 2); -lean::inc(x_1568); -x_1570 = lean::cnstr_get(x_1565, 5); -lean::inc(x_1570); -lean::inc(x_2); -x_1573 = l_Lean_Elaborator_toPexpr___main(x_1568, x_1, x_2, x_3); -if (lean::obj_tag(x_1573) == 0) -{ -obj* x_1579; obj* x_1581; obj* x_1582; -lean::dec(x_1570); -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_1565); -x_1579 = lean::cnstr_get(x_1573, 0); -if (lean::is_exclusive(x_1573)) { - x_1581 = x_1573; +lean::dec(x_1560); +x_1569 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1570 = l_Lean_KVMap_setNat(x_1565, x_1569, x_1566); +x_1571 = lean_expr_mk_mdata(x_1570, x_1545); +if (lean::is_scalar(x_1538)) { + x_1572 = lean::alloc_cnstr(0, 2, 0); } else { - lean::inc(x_1579); - lean::dec(x_1573); - x_1581 = lean::box(0); + x_1572 = x_1538; } -if (lean::is_scalar(x_1581)) { - x_1582 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_1572, 0, x_1571); +lean::cnstr_set(x_1572, 1, x_1536); +if (lean::is_scalar(x_1533)) { + x_1573 = lean::alloc_cnstr(1, 1, 0); } else { - x_1582 = x_1581; + x_1573 = x_1533; +} +lean::cnstr_set(x_1573, 0, x_1572); +return x_1573; } -lean::cnstr_set(x_1582, 0, x_1579); -return x_1582; } else { -obj* x_1583; obj* x_1586; obj* x_1588; obj* x_1592; -x_1583 = lean::cnstr_get(x_1573, 0); -lean::inc(x_1583); -lean::dec(x_1573); -x_1586 = lean::cnstr_get(x_1583, 0); -lean::inc(x_1586); -x_1588 = lean::cnstr_get(x_1583, 1); -lean::inc(x_1588); -lean::dec(x_1583); +obj* x_1576; obj* x_1577; +lean::dec(x_0); +lean::dec(x_2); +if (lean::is_scalar(x_1538)) { + x_1576 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1576 = x_1538; +} +lean::cnstr_set(x_1576, 0, x_1545); +lean::cnstr_set(x_1576, 1, x_1536); +if (lean::is_scalar(x_1533)) { + x_1577 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1577 = x_1533; +} +lean::cnstr_set(x_1577, 0, x_1576); +return x_1577; +} +} +} +} +} +else +{ +obj* x_1579; obj* x_1580; obj* x_1584; obj* x_1585; +lean::dec(x_10); +x_1579 = l_Lean_Parser_Term_have_HasView; +x_1580 = lean::cnstr_get(x_1579, 0); +lean::inc(x_1580); +lean::dec(x_1579); +lean::inc(x_0); +x_1584 = lean::apply_1(x_1580, x_0); +x_1585 = lean::cnstr_get(x_1584, 1); +lean::inc(x_1585); +if (lean::obj_tag(x_1585) == 0) +{ +obj* x_1587; obj* x_1589; obj* x_1592; +x_1587 = lean::cnstr_get(x_1584, 2); +lean::inc(x_1587); +x_1589 = lean::cnstr_get(x_1584, 5); +lean::inc(x_1589); lean::inc(x_2); -x_1592 = l_Lean_Elaborator_toPexpr___main(x_1570, x_1, x_2, x_1588); +x_1592 = l_Lean_Elaborator_toPexpr___main(x_1587, x_1, x_2, x_3); if (lean::obj_tag(x_1592) == 0) { obj* x_1598; obj* x_1600; obj* x_1601; lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_1565); -lean::dec(x_1586); +lean::dec(x_1584); +lean::dec(x_1589); x_1598 = lean::cnstr_get(x_1592, 0); if (lean::is_exclusive(x_1592)) { x_1600 = x_1592; @@ -12424,7 +12396,7 @@ return x_1601; } else { -obj* x_1602; obj* x_1605; obj* x_1607; obj* x_1610; uint8 x_1611; obj* x_1612; obj* x_1613; +obj* x_1602; obj* x_1605; obj* x_1607; obj* x_1611; x_1602 = lean::cnstr_get(x_1592, 0); lean::inc(x_1602); lean::dec(x_1592); @@ -12433,140 +12405,177 @@ lean::inc(x_1605); x_1607 = lean::cnstr_get(x_1602, 1); lean::inc(x_1607); lean::dec(x_1602); -x_1610 = l_Lean_Elaborator_toPexpr___main___closed__42; -x_1611 = 0; -x_1612 = lean_expr_mk_lambda(x_1610, x_1611, x_1586, x_1605); -x_1613 = lean::cnstr_get(x_1565, 3); -lean::inc(x_1613); -lean::dec(x_1565); -if (lean::obj_tag(x_1613) == 0) -{ -obj* x_1616; obj* x_1619; obj* x_1623; -x_1616 = lean::cnstr_get(x_1613, 0); -lean::inc(x_1616); -lean::dec(x_1613); -x_1619 = lean::cnstr_get(x_1616, 1); -lean::inc(x_1619); -lean::dec(x_1616); lean::inc(x_2); -x_1623 = l_Lean_Elaborator_toPexpr___main(x_1619, x_1, x_2, x_1607); -if (lean::obj_tag(x_1623) == 0) +x_1611 = l_Lean_Elaborator_toPexpr___main(x_1589, x_1, x_2, x_1607); +if (lean::obj_tag(x_1611) == 0) { -obj* x_1628; obj* x_1630; obj* x_1631; +obj* x_1617; obj* x_1619; obj* x_1620; lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_1612); -x_1628 = lean::cnstr_get(x_1623, 0); -if (lean::is_exclusive(x_1623)) { - x_1630 = x_1623; +lean::dec(x_1584); +lean::dec(x_1605); +x_1617 = lean::cnstr_get(x_1611, 0); +if (lean::is_exclusive(x_1611)) { + x_1619 = x_1611; } else { - lean::inc(x_1628); - lean::dec(x_1623); - x_1630 = lean::box(0); + lean::inc(x_1617); + lean::dec(x_1611); + x_1619 = lean::box(0); } -if (lean::is_scalar(x_1630)) { - x_1631 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1619)) { + x_1620 = lean::alloc_cnstr(0, 1, 0); } else { - x_1631 = x_1630; + x_1620 = x_1619; } -lean::cnstr_set(x_1631, 0, x_1628); -return x_1631; +lean::cnstr_set(x_1620, 0, x_1617); +return x_1620; } else { -obj* x_1632; obj* x_1635; obj* x_1637; obj* x_1639; obj* x_1640; obj* x_1641; obj* x_1642; obj* x_1643; -x_1632 = lean::cnstr_get(x_1623, 0); +obj* x_1621; obj* x_1624; obj* x_1626; obj* x_1629; uint8 x_1630; obj* x_1631; obj* x_1632; +x_1621 = lean::cnstr_get(x_1611, 0); +lean::inc(x_1621); +lean::dec(x_1611); +x_1624 = lean::cnstr_get(x_1621, 0); +lean::inc(x_1624); +x_1626 = lean::cnstr_get(x_1621, 1); +lean::inc(x_1626); +lean::dec(x_1621); +x_1629 = l_Lean_Elaborator_toPexpr___main___closed__38; +x_1630 = 0; +x_1631 = lean_expr_mk_lambda(x_1629, x_1630, x_1605, x_1624); +x_1632 = lean::cnstr_get(x_1584, 3); lean::inc(x_1632); -lean::dec(x_1623); +lean::dec(x_1584); +if (lean::obj_tag(x_1632) == 0) +{ +obj* x_1635; obj* x_1638; obj* x_1642; x_1635 = lean::cnstr_get(x_1632, 0); -x_1637 = lean::cnstr_get(x_1632, 1); -if (lean::is_exclusive(x_1632)) { - x_1639 = x_1632; +lean::inc(x_1635); +lean::dec(x_1632); +x_1638 = lean::cnstr_get(x_1635, 1); +lean::inc(x_1638); +lean::dec(x_1635); +lean::inc(x_2); +x_1642 = l_Lean_Elaborator_toPexpr___main(x_1638, x_1, x_2, x_1626); +if (lean::obj_tag(x_1642) == 0) +{ +obj* x_1647; obj* x_1649; obj* x_1650; +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_1631); +x_1647 = lean::cnstr_get(x_1642, 0); +if (lean::is_exclusive(x_1642)) { + x_1649 = x_1642; } else { - lean::inc(x_1635); - lean::inc(x_1637); - lean::dec(x_1632); - x_1639 = lean::box(0); + lean::inc(x_1647); + lean::dec(x_1642); + x_1649 = lean::box(0); } -x_1640 = l_Lean_Elaborator_toPexpr___main___closed__43; -x_1641 = l_Lean_Elaborator_Expr_mkAnnotation(x_1640, x_1612); -x_1642 = lean_expr_mk_app(x_1641, x_1635); -if (lean::is_scalar(x_1639)) { - x_1643 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1649)) { + x_1650 = lean::alloc_cnstr(0, 1, 0); } else { - x_1643 = x_1639; + x_1650 = x_1649; } -lean::cnstr_set(x_1643, 0, x_1642); -lean::cnstr_set(x_1643, 1, x_1637); -x_15 = x_1643; +lean::cnstr_set(x_1650, 0, x_1647); +return x_1650; +} +else +{ +obj* x_1651; obj* x_1654; obj* x_1656; obj* x_1658; obj* x_1659; obj* x_1660; obj* x_1661; obj* x_1662; +x_1651 = lean::cnstr_get(x_1642, 0); +lean::inc(x_1651); +lean::dec(x_1642); +x_1654 = lean::cnstr_get(x_1651, 0); +x_1656 = lean::cnstr_get(x_1651, 1); +if (lean::is_exclusive(x_1651)) { + x_1658 = x_1651; +} else { + lean::inc(x_1654); + lean::inc(x_1656); + lean::dec(x_1651); + x_1658 = lean::box(0); +} +x_1659 = l_Lean_Elaborator_toPexpr___main___closed__41; +x_1660 = l_Lean_Elaborator_Expr_mkAnnotation(x_1659, x_1631); +x_1661 = lean_expr_mk_app(x_1660, x_1654); +if (lean::is_scalar(x_1658)) { + x_1662 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1662 = x_1658; +} +lean::cnstr_set(x_1662, 0, x_1661); +lean::cnstr_set(x_1662, 1, x_1656); +x_15 = x_1662; goto lbl_16; } } else { -obj* x_1644; obj* x_1647; obj* x_1650; obj* x_1654; -x_1644 = lean::cnstr_get(x_1613, 0); -lean::inc(x_1644); -lean::dec(x_1613); -x_1647 = lean::cnstr_get(x_1644, 1); -lean::inc(x_1647); -lean::dec(x_1644); -x_1650 = lean::cnstr_get(x_1647, 1); -lean::inc(x_1650); -lean::dec(x_1647); -lean::inc(x_2); -x_1654 = l_Lean_Elaborator_toPexpr___main(x_1650, x_1, x_2, x_1607); -if (lean::obj_tag(x_1654) == 0) -{ -obj* x_1659; obj* x_1661; obj* x_1662; -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_1612); -x_1659 = lean::cnstr_get(x_1654, 0); -if (lean::is_exclusive(x_1654)) { - x_1661 = x_1654; -} else { - lean::inc(x_1659); - lean::dec(x_1654); - x_1661 = lean::box(0); -} -if (lean::is_scalar(x_1661)) { - x_1662 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1662 = x_1661; -} -lean::cnstr_set(x_1662, 0, x_1659); -return x_1662; -} -else -{ -obj* x_1663; obj* x_1666; obj* x_1668; obj* x_1670; obj* x_1671; obj* x_1672; obj* x_1673; obj* x_1674; -x_1663 = lean::cnstr_get(x_1654, 0); +obj* x_1663; obj* x_1666; obj* x_1669; obj* x_1673; +x_1663 = lean::cnstr_get(x_1632, 0); lean::inc(x_1663); -lean::dec(x_1654); -x_1666 = lean::cnstr_get(x_1663, 0); -x_1668 = lean::cnstr_get(x_1663, 1); -if (lean::is_exclusive(x_1663)) { - x_1670 = x_1663; +lean::dec(x_1632); +x_1666 = lean::cnstr_get(x_1663, 1); +lean::inc(x_1666); +lean::dec(x_1663); +x_1669 = lean::cnstr_get(x_1666, 1); +lean::inc(x_1669); +lean::dec(x_1666); +lean::inc(x_2); +x_1673 = l_Lean_Elaborator_toPexpr___main(x_1669, x_1, x_2, x_1626); +if (lean::obj_tag(x_1673) == 0) +{ +obj* x_1678; obj* x_1680; obj* x_1681; +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_1631); +x_1678 = lean::cnstr_get(x_1673, 0); +if (lean::is_exclusive(x_1673)) { + x_1680 = x_1673; } else { - lean::inc(x_1666); - lean::inc(x_1668); - lean::dec(x_1663); - x_1670 = lean::box(0); + lean::inc(x_1678); + lean::dec(x_1673); + x_1680 = lean::box(0); } -x_1671 = l_Lean_Elaborator_toPexpr___main___closed__43; -x_1672 = l_Lean_Elaborator_Expr_mkAnnotation(x_1671, x_1612); -x_1673 = lean_expr_mk_app(x_1672, x_1666); -if (lean::is_scalar(x_1670)) { - x_1674 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1680)) { + x_1681 = lean::alloc_cnstr(0, 1, 0); } else { - x_1674 = x_1670; + x_1681 = x_1680; } -lean::cnstr_set(x_1674, 0, x_1673); -lean::cnstr_set(x_1674, 1, x_1668); -x_15 = x_1674; +lean::cnstr_set(x_1681, 0, x_1678); +return x_1681; +} +else +{ +obj* x_1682; obj* x_1685; obj* x_1687; obj* x_1689; obj* x_1690; obj* x_1691; obj* x_1692; obj* x_1693; +x_1682 = lean::cnstr_get(x_1673, 0); +lean::inc(x_1682); +lean::dec(x_1673); +x_1685 = lean::cnstr_get(x_1682, 0); +x_1687 = lean::cnstr_get(x_1682, 1); +if (lean::is_exclusive(x_1682)) { + x_1689 = x_1682; +} else { + lean::inc(x_1685); + lean::inc(x_1687); + lean::dec(x_1682); + x_1689 = lean::box(0); +} +x_1690 = l_Lean_Elaborator_toPexpr___main___closed__41; +x_1691 = l_Lean_Elaborator_Expr_mkAnnotation(x_1690, x_1631); +x_1692 = lean_expr_mk_app(x_1691, x_1685); +if (lean::is_scalar(x_1689)) { + x_1693 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1693 = x_1689; +} +lean::cnstr_set(x_1693, 0, x_1692); +lean::cnstr_set(x_1693, 1, x_1687); +x_15 = x_1693; goto lbl_16; } } @@ -12575,244 +12584,227 @@ goto lbl_16; } else { -obj* x_1675; obj* x_1677; obj* x_1679; obj* x_1681; obj* x_1683; -x_1675 = lean::cnstr_get(x_1565, 2); -lean::inc(x_1675); -x_1677 = lean::cnstr_get(x_1565, 5); -lean::inc(x_1677); -x_1679 = lean::cnstr_get(x_1566, 0); -if (lean::is_exclusive(x_1566)) { - lean::cnstr_set(x_1566, 0, lean::box(0)); - x_1681 = x_1566; -} else { - lean::inc(x_1679); - lean::dec(x_1566); - x_1681 = lean::box(0); -} -lean::inc(x_2); -x_1683 = l_Lean_Elaborator_toPexpr___main(x_1675, x_1, x_2, x_3); -if (lean::obj_tag(x_1683) == 0) -{ -obj* x_1691; obj* x_1693; obj* x_1694; -lean::dec(x_1681); -lean::dec(x_1677); -lean::dec(x_1679); -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_1565); -x_1691 = lean::cnstr_get(x_1683, 0); -if (lean::is_exclusive(x_1683)) { - x_1693 = x_1683; -} else { - lean::inc(x_1691); - lean::dec(x_1683); - x_1693 = lean::box(0); -} -if (lean::is_scalar(x_1693)) { - x_1694 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1694 = x_1693; -} -lean::cnstr_set(x_1694, 0, x_1691); -return x_1694; -} -else -{ -obj* x_1695; obj* x_1698; obj* x_1700; obj* x_1704; -x_1695 = lean::cnstr_get(x_1683, 0); -lean::inc(x_1695); -lean::dec(x_1683); -x_1698 = lean::cnstr_get(x_1695, 0); +obj* x_1694; obj* x_1696; obj* x_1698; obj* x_1702; +x_1694 = lean::cnstr_get(x_1584, 2); +lean::inc(x_1694); +x_1696 = lean::cnstr_get(x_1584, 5); +lean::inc(x_1696); +x_1698 = lean::cnstr_get(x_1585, 0); lean::inc(x_1698); -x_1700 = lean::cnstr_get(x_1695, 1); -lean::inc(x_1700); -lean::dec(x_1695); +lean::dec(x_1585); lean::inc(x_2); -x_1704 = l_Lean_Elaborator_toPexpr___main(x_1677, x_1, x_2, x_1700); -if (lean::obj_tag(x_1704) == 0) +x_1702 = l_Lean_Elaborator_toPexpr___main(x_1694, x_1, x_2, x_3); +if (lean::obj_tag(x_1702) == 0) { -obj* x_1712; obj* x_1714; obj* x_1715; -lean::dec(x_1681); -lean::dec(x_1679); -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_1565); +obj* x_1709; obj* x_1711; obj* x_1712; lean::dec(x_1698); -x_1712 = lean::cnstr_get(x_1704, 0); -if (lean::is_exclusive(x_1704)) { - x_1714 = x_1704; +lean::dec(x_1696); +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_1584); +x_1709 = lean::cnstr_get(x_1702, 0); +if (lean::is_exclusive(x_1702)) { + x_1711 = x_1702; } else { - lean::inc(x_1712); - lean::dec(x_1704); - x_1714 = lean::box(0); + lean::inc(x_1709); + lean::dec(x_1702); + x_1711 = lean::box(0); } -if (lean::is_scalar(x_1714)) { - x_1715 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1711)) { + x_1712 = lean::alloc_cnstr(0, 1, 0); } else { - x_1715 = x_1714; + x_1712 = x_1711; } -lean::cnstr_set(x_1715, 0, x_1712); -return x_1715; +lean::cnstr_set(x_1712, 0, x_1709); +return x_1712; } else { -obj* x_1716; obj* x_1719; obj* x_1721; obj* x_1724; obj* x_1727; obj* x_1728; obj* x_1729; obj* x_1730; uint8 x_1732; obj* x_1733; obj* x_1734; -x_1716 = lean::cnstr_get(x_1704, 0); +obj* x_1713; obj* x_1716; obj* x_1718; obj* x_1722; +x_1713 = lean::cnstr_get(x_1702, 0); +lean::inc(x_1713); +lean::dec(x_1702); +x_1716 = lean::cnstr_get(x_1713, 0); lean::inc(x_1716); -lean::dec(x_1704); -x_1719 = lean::cnstr_get(x_1716, 0); -lean::inc(x_1719); -x_1721 = lean::cnstr_get(x_1716, 1); -lean::inc(x_1721); +x_1718 = lean::cnstr_get(x_1713, 1); +lean::inc(x_1718); +lean::dec(x_1713); +lean::inc(x_2); +x_1722 = l_Lean_Elaborator_toPexpr___main(x_1696, x_1, x_2, x_1718); +if (lean::obj_tag(x_1722) == 0) +{ +obj* x_1729; obj* x_1731; obj* x_1732; lean::dec(x_1716); -x_1724 = lean::cnstr_get(x_1679, 0); -lean::inc(x_1724); -lean::dec(x_1679); -x_1727 = l_Lean_Elaborator_mangleIdent(x_1724); -if (lean::is_scalar(x_1681)) { - x_1728 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1728 = x_1681; -} -lean::cnstr_set(x_1728, 0, x_1727); -x_1729 = l_Lean_Elaborator_toPexpr___main___closed__39; -x_1730 = l_Option_getOrElse___main___rarg(x_1728, x_1729); -lean::dec(x_1728); -x_1732 = 0; -x_1733 = lean_expr_mk_lambda(x_1730, x_1732, x_1698, x_1719); -x_1734 = lean::cnstr_get(x_1565, 3); -lean::inc(x_1734); -lean::dec(x_1565); -if (lean::obj_tag(x_1734) == 0) -{ -obj* x_1737; obj* x_1740; obj* x_1744; -x_1737 = lean::cnstr_get(x_1734, 0); -lean::inc(x_1737); -lean::dec(x_1734); -x_1740 = lean::cnstr_get(x_1737, 1); -lean::inc(x_1740); -lean::dec(x_1737); -lean::inc(x_2); -x_1744 = l_Lean_Elaborator_toPexpr___main(x_1740, x_1, x_2, x_1721); -if (lean::obj_tag(x_1744) == 0) -{ -obj* x_1749; obj* x_1751; obj* x_1752; +lean::dec(x_1698); lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_1733); -x_1749 = lean::cnstr_get(x_1744, 0); -if (lean::is_exclusive(x_1744)) { - x_1751 = x_1744; +lean::dec(x_1584); +x_1729 = lean::cnstr_get(x_1722, 0); +if (lean::is_exclusive(x_1722)) { + x_1731 = x_1722; } else { - lean::inc(x_1749); - lean::dec(x_1744); - x_1751 = lean::box(0); + lean::inc(x_1729); + lean::dec(x_1722); + x_1731 = lean::box(0); } -if (lean::is_scalar(x_1751)) { - x_1752 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1731)) { + x_1732 = lean::alloc_cnstr(0, 1, 0); } else { - x_1752 = x_1751; + x_1732 = x_1731; } -lean::cnstr_set(x_1752, 0, x_1749); -return x_1752; +lean::cnstr_set(x_1732, 0, x_1729); +return x_1732; } else { -obj* x_1753; obj* x_1756; obj* x_1758; obj* x_1760; obj* x_1761; obj* x_1762; obj* x_1763; obj* x_1764; -x_1753 = lean::cnstr_get(x_1744, 0); +obj* x_1733; obj* x_1736; obj* x_1738; obj* x_1741; obj* x_1744; uint8 x_1745; obj* x_1746; obj* x_1747; +x_1733 = lean::cnstr_get(x_1722, 0); +lean::inc(x_1733); +lean::dec(x_1722); +x_1736 = lean::cnstr_get(x_1733, 0); +lean::inc(x_1736); +x_1738 = lean::cnstr_get(x_1733, 1); +lean::inc(x_1738); +lean::dec(x_1733); +x_1741 = lean::cnstr_get(x_1698, 0); +lean::inc(x_1741); +lean::dec(x_1698); +x_1744 = l_Lean_Elaborator_mangleIdent(x_1741); +x_1745 = 0; +x_1746 = lean_expr_mk_lambda(x_1744, x_1745, x_1716, x_1736); +x_1747 = lean::cnstr_get(x_1584, 3); +lean::inc(x_1747); +lean::dec(x_1584); +if (lean::obj_tag(x_1747) == 0) +{ +obj* x_1750; obj* x_1753; obj* x_1757; +x_1750 = lean::cnstr_get(x_1747, 0); +lean::inc(x_1750); +lean::dec(x_1747); +x_1753 = lean::cnstr_get(x_1750, 1); lean::inc(x_1753); -lean::dec(x_1744); -x_1756 = lean::cnstr_get(x_1753, 0); -x_1758 = lean::cnstr_get(x_1753, 1); -if (lean::is_exclusive(x_1753)) { - x_1760 = x_1753; +lean::dec(x_1750); +lean::inc(x_2); +x_1757 = l_Lean_Elaborator_toPexpr___main(x_1753, x_1, x_2, x_1738); +if (lean::obj_tag(x_1757) == 0) +{ +obj* x_1762; obj* x_1764; obj* x_1765; +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_1746); +x_1762 = lean::cnstr_get(x_1757, 0); +if (lean::is_exclusive(x_1757)) { + x_1764 = x_1757; } else { - lean::inc(x_1756); - lean::inc(x_1758); - lean::dec(x_1753); - x_1760 = lean::box(0); + lean::inc(x_1762); + lean::dec(x_1757); + x_1764 = lean::box(0); } -x_1761 = l_Lean_Elaborator_toPexpr___main___closed__43; -x_1762 = l_Lean_Elaborator_Expr_mkAnnotation(x_1761, x_1733); -x_1763 = lean_expr_mk_app(x_1762, x_1756); -if (lean::is_scalar(x_1760)) { - x_1764 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1764)) { + x_1765 = lean::alloc_cnstr(0, 1, 0); } else { - x_1764 = x_1760; + x_1765 = x_1764; } -lean::cnstr_set(x_1764, 0, x_1763); -lean::cnstr_set(x_1764, 1, x_1758); -x_15 = x_1764; +lean::cnstr_set(x_1765, 0, x_1762); +return x_1765; +} +else +{ +obj* x_1766; obj* x_1769; obj* x_1771; obj* x_1773; obj* x_1774; obj* x_1775; obj* x_1776; obj* x_1777; +x_1766 = lean::cnstr_get(x_1757, 0); +lean::inc(x_1766); +lean::dec(x_1757); +x_1769 = lean::cnstr_get(x_1766, 0); +x_1771 = lean::cnstr_get(x_1766, 1); +if (lean::is_exclusive(x_1766)) { + x_1773 = x_1766; +} else { + lean::inc(x_1769); + lean::inc(x_1771); + lean::dec(x_1766); + x_1773 = lean::box(0); +} +x_1774 = l_Lean_Elaborator_toPexpr___main___closed__41; +x_1775 = l_Lean_Elaborator_Expr_mkAnnotation(x_1774, x_1746); +x_1776 = lean_expr_mk_app(x_1775, x_1769); +if (lean::is_scalar(x_1773)) { + x_1777 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1777 = x_1773; +} +lean::cnstr_set(x_1777, 0, x_1776); +lean::cnstr_set(x_1777, 1, x_1771); +x_15 = x_1777; goto lbl_16; } } else { -obj* x_1765; obj* x_1768; obj* x_1771; obj* x_1775; -x_1765 = lean::cnstr_get(x_1734, 0); -lean::inc(x_1765); -lean::dec(x_1734); -x_1768 = lean::cnstr_get(x_1765, 1); -lean::inc(x_1768); -lean::dec(x_1765); -x_1771 = lean::cnstr_get(x_1768, 1); -lean::inc(x_1771); -lean::dec(x_1768); -lean::inc(x_2); -x_1775 = l_Lean_Elaborator_toPexpr___main(x_1771, x_1, x_2, x_1721); -if (lean::obj_tag(x_1775) == 0) -{ -obj* x_1780; obj* x_1782; obj* x_1783; -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_1733); -x_1780 = lean::cnstr_get(x_1775, 0); -if (lean::is_exclusive(x_1775)) { - x_1782 = x_1775; -} else { - lean::inc(x_1780); - lean::dec(x_1775); - x_1782 = lean::box(0); -} -if (lean::is_scalar(x_1782)) { - x_1783 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1783 = x_1782; -} -lean::cnstr_set(x_1783, 0, x_1780); -return x_1783; -} -else -{ -obj* x_1784; obj* x_1787; obj* x_1789; obj* x_1791; obj* x_1792; obj* x_1793; obj* x_1794; obj* x_1795; -x_1784 = lean::cnstr_get(x_1775, 0); +obj* x_1778; obj* x_1781; obj* x_1784; obj* x_1788; +x_1778 = lean::cnstr_get(x_1747, 0); +lean::inc(x_1778); +lean::dec(x_1747); +x_1781 = lean::cnstr_get(x_1778, 1); +lean::inc(x_1781); +lean::dec(x_1778); +x_1784 = lean::cnstr_get(x_1781, 1); lean::inc(x_1784); -lean::dec(x_1775); -x_1787 = lean::cnstr_get(x_1784, 0); -x_1789 = lean::cnstr_get(x_1784, 1); -if (lean::is_exclusive(x_1784)) { - x_1791 = x_1784; +lean::dec(x_1781); +lean::inc(x_2); +x_1788 = l_Lean_Elaborator_toPexpr___main(x_1784, x_1, x_2, x_1738); +if (lean::obj_tag(x_1788) == 0) +{ +obj* x_1793; obj* x_1795; obj* x_1796; +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_1746); +x_1793 = lean::cnstr_get(x_1788, 0); +if (lean::is_exclusive(x_1788)) { + x_1795 = x_1788; } else { - lean::inc(x_1787); - lean::inc(x_1789); - lean::dec(x_1784); - x_1791 = lean::box(0); + lean::inc(x_1793); + lean::dec(x_1788); + x_1795 = lean::box(0); } -x_1792 = l_Lean_Elaborator_toPexpr___main___closed__43; -x_1793 = l_Lean_Elaborator_Expr_mkAnnotation(x_1792, x_1733); -x_1794 = lean_expr_mk_app(x_1793, x_1787); -if (lean::is_scalar(x_1791)) { - x_1795 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1795)) { + x_1796 = lean::alloc_cnstr(0, 1, 0); } else { - x_1795 = x_1791; + x_1796 = x_1795; } -lean::cnstr_set(x_1795, 0, x_1794); -lean::cnstr_set(x_1795, 1, x_1789); -x_15 = x_1795; +lean::cnstr_set(x_1796, 0, x_1793); +return x_1796; +} +else +{ +obj* x_1797; obj* x_1800; obj* x_1802; obj* x_1804; obj* x_1805; obj* x_1806; obj* x_1807; obj* x_1808; +x_1797 = lean::cnstr_get(x_1788, 0); +lean::inc(x_1797); +lean::dec(x_1788); +x_1800 = lean::cnstr_get(x_1797, 0); +x_1802 = lean::cnstr_get(x_1797, 1); +if (lean::is_exclusive(x_1797)) { + x_1804 = x_1797; +} else { + lean::inc(x_1800); + lean::inc(x_1802); + lean::dec(x_1797); + x_1804 = lean::box(0); +} +x_1805 = l_Lean_Elaborator_toPexpr___main___closed__41; +x_1806 = l_Lean_Elaborator_Expr_mkAnnotation(x_1805, x_1746); +x_1807 = lean_expr_mk_app(x_1806, x_1800); +if (lean::is_scalar(x_1804)) { + x_1808 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1808 = x_1804; +} +lean::cnstr_set(x_1808, 0, x_1807); +lean::cnstr_set(x_1808, 1, x_1802); +x_15 = x_1808; goto lbl_16; } } @@ -12827,520 +12819,520 @@ lean::dec(x_8); lean::dec(x_10); if (x_20 == 0) { -obj* x_1798; -x_1798 = l_Lean_Parser_Syntax_getPos(x_0); +obj* x_1811; +x_1811 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1798) == 0) +if (lean::obj_tag(x_1811) == 0) { -obj* x_1801; obj* x_1802; obj* x_1803; +obj* x_1814; obj* x_1815; obj* x_1816; lean::dec(x_2); -x_1801 = l_Lean_Elaborator_toPexpr___main___closed__44; -x_1802 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_1802, 0, x_1801); -lean::cnstr_set(x_1802, 1, x_3); -x_1803 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1803, 0, x_1802); -return x_1803; +x_1814 = l_Lean_Elaborator_toPexpr___main___closed__42; +x_1815 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1815, 0, x_1814); +lean::cnstr_set(x_1815, 1, x_3); +x_1816 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1816, 0, x_1815); +return x_1816; } else { -obj* x_1804; obj* x_1807; obj* x_1810; obj* x_1813; obj* x_1814; obj* x_1816; obj* x_1817; obj* x_1818; obj* x_1819; obj* x_1822; obj* x_1823; obj* x_1824; obj* x_1825; obj* x_1826; obj* x_1827; -x_1804 = lean::cnstr_get(x_1798, 0); -lean::inc(x_1804); -lean::dec(x_1798); -x_1807 = lean::cnstr_get(x_2, 0); -lean::inc(x_1807); +obj* x_1817; obj* x_1820; obj* x_1823; obj* x_1826; obj* x_1827; obj* x_1829; obj* x_1830; obj* x_1831; obj* x_1832; obj* x_1835; obj* x_1836; obj* x_1837; obj* x_1838; obj* x_1839; obj* x_1840; +x_1817 = lean::cnstr_get(x_1811, 0); +lean::inc(x_1817); +lean::dec(x_1811); +x_1820 = lean::cnstr_get(x_2, 0); +lean::inc(x_1820); lean::dec(x_2); -x_1810 = lean::cnstr_get(x_1807, 2); -lean::inc(x_1810); -lean::dec(x_1807); -x_1813 = l_Lean_FileMap_toPosition(x_1810, x_1804); -x_1814 = lean::cnstr_get(x_1813, 1); -lean::inc(x_1814); -x_1816 = lean::box(0); -x_1817 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1818 = l_Lean_KVMap_setNat(x_1816, x_1817, x_1814); -x_1819 = lean::cnstr_get(x_1813, 0); -lean::inc(x_1819); -lean::dec(x_1813); -x_1822 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1823 = l_Lean_KVMap_setNat(x_1818, x_1822, x_1819); -x_1824 = l_Lean_Elaborator_toPexpr___main___closed__44; -x_1825 = lean_expr_mk_mdata(x_1823, x_1824); -x_1826 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_1826, 0, x_1825); -lean::cnstr_set(x_1826, 1, x_3); -x_1827 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1827, 0, x_1826); -return x_1827; +x_1823 = lean::cnstr_get(x_1820, 2); +lean::inc(x_1823); +lean::dec(x_1820); +x_1826 = l_Lean_FileMap_toPosition(x_1823, x_1817); +x_1827 = lean::cnstr_get(x_1826, 1); +lean::inc(x_1827); +x_1829 = lean::box(0); +x_1830 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1831 = l_Lean_KVMap_setNat(x_1829, x_1830, x_1827); +x_1832 = lean::cnstr_get(x_1826, 0); +lean::inc(x_1832); +lean::dec(x_1826); +x_1835 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1836 = l_Lean_KVMap_setNat(x_1831, x_1835, x_1832); +x_1837 = l_Lean_Elaborator_toPexpr___main___closed__42; +x_1838 = lean_expr_mk_mdata(x_1836, x_1837); +x_1839 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1839, 0, x_1838); +lean::cnstr_set(x_1839, 1, x_3); +x_1840 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1840, 0, x_1839); +return x_1840; } } else { -obj* x_1830; obj* x_1831; obj* x_1832; +obj* x_1843; obj* x_1844; obj* x_1845; lean::dec(x_0); lean::dec(x_2); -x_1830 = l_Lean_Elaborator_toPexpr___main___closed__44; -x_1831 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_1831, 0, x_1830); -lean::cnstr_set(x_1831, 1, x_3); -x_1832 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1832, 0, x_1831); -return x_1832; +x_1843 = l_Lean_Elaborator_toPexpr___main___closed__42; +x_1844 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1844, 0, x_1843); +lean::cnstr_set(x_1844, 1, x_3); +x_1845 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1845, 0, x_1844); +return x_1845; } } } else { -obj* x_1835; obj* x_1836; obj* x_1840; obj* x_1841; obj* x_1844; obj* x_1845; obj* x_1846; obj* x_1848; +obj* x_1848; obj* x_1849; obj* x_1853; obj* x_1854; obj* x_1857; obj* x_1858; obj* x_1859; obj* x_1861; lean::dec(x_8); lean::dec(x_10); -x_1835 = l_Lean_Parser_Term_anonymousConstructor_HasView; -x_1836 = lean::cnstr_get(x_1835, 0); -lean::inc(x_1836); -lean::dec(x_1835); +x_1848 = l_Lean_Parser_Term_anonymousConstructor_HasView; +x_1849 = lean::cnstr_get(x_1848, 0); +lean::inc(x_1849); +lean::dec(x_1848); lean::inc(x_0); -x_1840 = lean::apply_1(x_1836, x_0); -x_1841 = lean::cnstr_get(x_1840, 1); -lean::inc(x_1841); -lean::dec(x_1840); -x_1844 = l_List_map___main___at_Lean_Elaborator_toPexpr___main___spec__19(x_1841); -x_1845 = l_Lean_Expander_getOptType___main___closed__1; -x_1846 = l_List_foldl___main___at_Lean_Parser_Term_mkApp___spec__1(x_1845, x_1844); +x_1853 = lean::apply_1(x_1849, x_0); +x_1854 = lean::cnstr_get(x_1853, 1); +lean::inc(x_1854); +lean::dec(x_1853); +x_1857 = l_List_map___main___at_Lean_Elaborator_toPexpr___main___spec__19(x_1854); +x_1858 = l_Lean_Expander_getOptType___main___closed__1; +x_1859 = l_List_foldl___main___at_Lean_Parser_Term_mkApp___spec__1(x_1858, x_1857); lean::inc(x_2); -x_1848 = l_Lean_Elaborator_toPexpr___main(x_1846, x_1, x_2, x_3); -if (lean::obj_tag(x_1848) == 0) +x_1861 = l_Lean_Elaborator_toPexpr___main(x_1859, x_1, x_2, x_3); +if (lean::obj_tag(x_1861) == 0) { -obj* x_1851; obj* x_1853; obj* x_1854; +obj* x_1864; obj* x_1866; obj* x_1867; lean::dec(x_0); lean::dec(x_2); -x_1851 = lean::cnstr_get(x_1848, 0); -if (lean::is_exclusive(x_1848)) { - x_1853 = x_1848; +x_1864 = lean::cnstr_get(x_1861, 0); +if (lean::is_exclusive(x_1861)) { + x_1866 = x_1861; } else { - lean::inc(x_1851); - lean::dec(x_1848); - x_1853 = lean::box(0); + lean::inc(x_1864); + lean::dec(x_1861); + x_1866 = lean::box(0); } -if (lean::is_scalar(x_1853)) { - x_1854 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1866)) { + x_1867 = lean::alloc_cnstr(0, 1, 0); } else { - x_1854 = x_1853; + x_1867 = x_1866; } -lean::cnstr_set(x_1854, 0, x_1851); -return x_1854; +lean::cnstr_set(x_1867, 0, x_1864); +return x_1867; } else { -obj* x_1855; obj* x_1857; obj* x_1858; obj* x_1860; obj* x_1862; obj* x_1863; obj* x_1864; -x_1855 = lean::cnstr_get(x_1848, 0); -if (lean::is_exclusive(x_1848)) { - lean::cnstr_set(x_1848, 0, lean::box(0)); - x_1857 = x_1848; +obj* x_1868; obj* x_1870; obj* x_1871; obj* x_1873; obj* x_1875; obj* x_1876; obj* x_1877; +x_1868 = lean::cnstr_get(x_1861, 0); +if (lean::is_exclusive(x_1861)) { + lean::cnstr_set(x_1861, 0, lean::box(0)); + x_1870 = x_1861; } else { - lean::inc(x_1855); - lean::dec(x_1848); - x_1857 = lean::box(0); + lean::inc(x_1868); + lean::dec(x_1861); + x_1870 = lean::box(0); } -x_1858 = lean::cnstr_get(x_1855, 0); -x_1860 = lean::cnstr_get(x_1855, 1); -if (lean::is_exclusive(x_1855)) { - lean::cnstr_set(x_1855, 0, lean::box(0)); - lean::cnstr_set(x_1855, 1, lean::box(0)); - x_1862 = x_1855; +x_1871 = lean::cnstr_get(x_1868, 0); +x_1873 = lean::cnstr_get(x_1868, 1); +if (lean::is_exclusive(x_1868)) { + lean::cnstr_set(x_1868, 0, lean::box(0)); + lean::cnstr_set(x_1868, 1, lean::box(0)); + x_1875 = x_1868; } else { - lean::inc(x_1858); - lean::inc(x_1860); - lean::dec(x_1855); - x_1862 = lean::box(0); + lean::inc(x_1871); + lean::inc(x_1873); + lean::dec(x_1868); + x_1875 = lean::box(0); } -x_1863 = l_Lean_Elaborator_toPexpr___main___closed__45; -x_1864 = l_Lean_Elaborator_Expr_mkAnnotation(x_1863, x_1858); +x_1876 = l_Lean_Elaborator_toPexpr___main___closed__43; +x_1877 = l_Lean_Elaborator_Expr_mkAnnotation(x_1876, x_1871); if (x_20 == 0) { -obj* x_1865; -x_1865 = l_Lean_Parser_Syntax_getPos(x_0); +obj* x_1878; +x_1878 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1865) == 0) +if (lean::obj_tag(x_1878) == 0) { -obj* x_1868; obj* x_1869; +obj* x_1881; obj* x_1882; lean::dec(x_2); -if (lean::is_scalar(x_1862)) { - x_1868 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1875)) { + x_1881 = lean::alloc_cnstr(0, 2, 0); } else { - x_1868 = x_1862; + x_1881 = x_1875; } -lean::cnstr_set(x_1868, 0, x_1864); -lean::cnstr_set(x_1868, 1, x_1860); -if (lean::is_scalar(x_1857)) { - x_1869 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1881, 0, x_1877); +lean::cnstr_set(x_1881, 1, x_1873); +if (lean::is_scalar(x_1870)) { + x_1882 = lean::alloc_cnstr(1, 1, 0); } else { - x_1869 = x_1857; + x_1882 = x_1870; } -lean::cnstr_set(x_1869, 0, x_1868); -return x_1869; +lean::cnstr_set(x_1882, 0, x_1881); +return x_1882; } else { -obj* x_1870; obj* x_1873; obj* x_1876; obj* x_1879; obj* x_1880; obj* x_1882; obj* x_1883; obj* x_1884; obj* x_1885; obj* x_1888; obj* x_1889; obj* x_1890; obj* x_1891; obj* x_1892; -x_1870 = lean::cnstr_get(x_1865, 0); -lean::inc(x_1870); -lean::dec(x_1865); -x_1873 = lean::cnstr_get(x_2, 0); -lean::inc(x_1873); +obj* x_1883; obj* x_1886; obj* x_1889; obj* x_1892; obj* x_1893; obj* x_1895; obj* x_1896; obj* x_1897; obj* x_1898; obj* x_1901; obj* x_1902; obj* x_1903; obj* x_1904; obj* x_1905; +x_1883 = lean::cnstr_get(x_1878, 0); +lean::inc(x_1883); +lean::dec(x_1878); +x_1886 = lean::cnstr_get(x_2, 0); +lean::inc(x_1886); lean::dec(x_2); -x_1876 = lean::cnstr_get(x_1873, 2); -lean::inc(x_1876); -lean::dec(x_1873); -x_1879 = l_Lean_FileMap_toPosition(x_1876, x_1870); -x_1880 = lean::cnstr_get(x_1879, 1); -lean::inc(x_1880); -x_1882 = lean::box(0); -x_1883 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1884 = l_Lean_KVMap_setNat(x_1882, x_1883, x_1880); -x_1885 = lean::cnstr_get(x_1879, 0); -lean::inc(x_1885); -lean::dec(x_1879); -x_1888 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1889 = l_Lean_KVMap_setNat(x_1884, x_1888, x_1885); -x_1890 = lean_expr_mk_mdata(x_1889, x_1864); -if (lean::is_scalar(x_1862)) { - x_1891 = lean::alloc_cnstr(0, 2, 0); +x_1889 = lean::cnstr_get(x_1886, 2); +lean::inc(x_1889); +lean::dec(x_1886); +x_1892 = l_Lean_FileMap_toPosition(x_1889, x_1883); +x_1893 = lean::cnstr_get(x_1892, 1); +lean::inc(x_1893); +x_1895 = lean::box(0); +x_1896 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1897 = l_Lean_KVMap_setNat(x_1895, x_1896, x_1893); +x_1898 = lean::cnstr_get(x_1892, 0); +lean::inc(x_1898); +lean::dec(x_1892); +x_1901 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1902 = l_Lean_KVMap_setNat(x_1897, x_1901, x_1898); +x_1903 = lean_expr_mk_mdata(x_1902, x_1877); +if (lean::is_scalar(x_1875)) { + x_1904 = lean::alloc_cnstr(0, 2, 0); } else { - x_1891 = x_1862; + x_1904 = x_1875; } -lean::cnstr_set(x_1891, 0, x_1890); -lean::cnstr_set(x_1891, 1, x_1860); -if (lean::is_scalar(x_1857)) { - x_1892 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1904, 0, x_1903); +lean::cnstr_set(x_1904, 1, x_1873); +if (lean::is_scalar(x_1870)) { + x_1905 = lean::alloc_cnstr(1, 1, 0); } else { - x_1892 = x_1857; + x_1905 = x_1870; } -lean::cnstr_set(x_1892, 0, x_1891); -return x_1892; +lean::cnstr_set(x_1905, 0, x_1904); +return x_1905; } } else { -obj* x_1895; obj* x_1896; +obj* x_1908; obj* x_1909; lean::dec(x_0); lean::dec(x_2); -if (lean::is_scalar(x_1862)) { - x_1895 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1875)) { + x_1908 = lean::alloc_cnstr(0, 2, 0); } else { - x_1895 = x_1862; + x_1908 = x_1875; } -lean::cnstr_set(x_1895, 0, x_1864); -lean::cnstr_set(x_1895, 1, x_1860); -if (lean::is_scalar(x_1857)) { - x_1896 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1908, 0, x_1877); +lean::cnstr_set(x_1908, 1, x_1873); +if (lean::is_scalar(x_1870)) { + x_1909 = lean::alloc_cnstr(1, 1, 0); } else { - x_1896 = x_1857; + x_1909 = x_1870; } -lean::cnstr_set(x_1896, 0, x_1895); -return x_1896; +lean::cnstr_set(x_1909, 0, x_1908); +return x_1909; } } } } else { -obj* x_1899; obj* x_1900; obj* x_1904; obj* x_1905; obj* x_1906; obj* x_1909; obj* x_1911; +obj* x_1912; obj* x_1913; obj* x_1917; obj* x_1918; obj* x_1919; obj* x_1922; obj* x_1924; lean::dec(x_8); lean::dec(x_10); -x_1899 = l_Lean_Parser_Term_sortApp_HasView; -x_1900 = lean::cnstr_get(x_1899, 0); -lean::inc(x_1900); -lean::dec(x_1899); -lean::inc(x_0); -x_1904 = lean::apply_1(x_1900, x_0); -x_1905 = l_Lean_Parser_Term_sort_HasView; -x_1906 = lean::cnstr_get(x_1905, 0); -lean::inc(x_1906); -lean::dec(x_1905); -x_1909 = lean::cnstr_get(x_1904, 0); -lean::inc(x_1909); -x_1911 = lean::apply_1(x_1906, x_1909); -if (lean::obj_tag(x_1911) == 0) -{ -obj* x_1913; obj* x_1917; -lean::dec(x_1911); -x_1913 = lean::cnstr_get(x_1904, 1); +x_1912 = l_Lean_Parser_Term_sortApp_HasView; +x_1913 = lean::cnstr_get(x_1912, 0); lean::inc(x_1913); -lean::dec(x_1904); -lean::inc(x_2); -x_1917 = l_Lean_Elaborator_toLevel___main(x_1913, x_1, x_2, x_3); -if (lean::obj_tag(x_1917) == 0) +lean::dec(x_1912); +lean::inc(x_0); +x_1917 = lean::apply_1(x_1913, x_0); +x_1918 = l_Lean_Parser_Term_sort_HasView; +x_1919 = lean::cnstr_get(x_1918, 0); +lean::inc(x_1919); +lean::dec(x_1918); +x_1922 = lean::cnstr_get(x_1917, 0); +lean::inc(x_1922); +x_1924 = lean::apply_1(x_1919, x_1922); +if (lean::obj_tag(x_1924) == 0) { -obj* x_1920; obj* x_1922; obj* x_1923; +obj* x_1926; obj* x_1930; +lean::dec(x_1924); +x_1926 = lean::cnstr_get(x_1917, 1); +lean::inc(x_1926); +lean::dec(x_1917); +lean::inc(x_2); +x_1930 = l_Lean_Elaborator_toLevel___main(x_1926, x_1, x_2, x_3); +if (lean::obj_tag(x_1930) == 0) +{ +obj* x_1933; obj* x_1935; obj* x_1936; lean::dec(x_0); lean::dec(x_2); -x_1920 = lean::cnstr_get(x_1917, 0); -if (lean::is_exclusive(x_1917)) { - x_1922 = x_1917; +x_1933 = lean::cnstr_get(x_1930, 0); +if (lean::is_exclusive(x_1930)) { + x_1935 = x_1930; } else { - lean::inc(x_1920); - lean::dec(x_1917); - x_1922 = lean::box(0); + lean::inc(x_1933); + lean::dec(x_1930); + x_1935 = lean::box(0); } -if (lean::is_scalar(x_1922)) { - x_1923 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1935)) { + x_1936 = lean::alloc_cnstr(0, 1, 0); } else { - x_1923 = x_1922; + x_1936 = x_1935; } -lean::cnstr_set(x_1923, 0, x_1920); -return x_1923; +lean::cnstr_set(x_1936, 0, x_1933); +return x_1936; } else { -obj* x_1924; obj* x_1926; obj* x_1927; obj* x_1929; obj* x_1931; obj* x_1932; -x_1924 = lean::cnstr_get(x_1917, 0); -if (lean::is_exclusive(x_1917)) { - lean::cnstr_set(x_1917, 0, lean::box(0)); - x_1926 = x_1917; +obj* x_1937; obj* x_1939; obj* x_1940; obj* x_1942; obj* x_1944; obj* x_1945; +x_1937 = lean::cnstr_get(x_1930, 0); +if (lean::is_exclusive(x_1930)) { + lean::cnstr_set(x_1930, 0, lean::box(0)); + x_1939 = x_1930; } else { - lean::inc(x_1924); - lean::dec(x_1917); - x_1926 = lean::box(0); + lean::inc(x_1937); + lean::dec(x_1930); + x_1939 = lean::box(0); } -x_1927 = lean::cnstr_get(x_1924, 0); -x_1929 = lean::cnstr_get(x_1924, 1); -if (lean::is_exclusive(x_1924)) { - lean::cnstr_set(x_1924, 0, lean::box(0)); - lean::cnstr_set(x_1924, 1, lean::box(0)); - x_1931 = x_1924; +x_1940 = lean::cnstr_get(x_1937, 0); +x_1942 = lean::cnstr_get(x_1937, 1); +if (lean::is_exclusive(x_1937)) { + lean::cnstr_set(x_1937, 0, lean::box(0)); + lean::cnstr_set(x_1937, 1, lean::box(0)); + x_1944 = x_1937; } else { - lean::inc(x_1927); - lean::inc(x_1929); - lean::dec(x_1924); - x_1931 = lean::box(0); + lean::inc(x_1940); + lean::inc(x_1942); + lean::dec(x_1937); + x_1944 = lean::box(0); } -x_1932 = lean_expr_mk_sort(x_1927); +x_1945 = lean_expr_mk_sort(x_1940); if (x_20 == 0) { -obj* x_1933; -x_1933 = l_Lean_Parser_Syntax_getPos(x_0); +obj* x_1946; +x_1946 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1933) == 0) +if (lean::obj_tag(x_1946) == 0) { -obj* x_1936; obj* x_1937; +obj* x_1949; obj* x_1950; lean::dec(x_2); -if (lean::is_scalar(x_1931)) { - x_1936 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1944)) { + x_1949 = lean::alloc_cnstr(0, 2, 0); } else { - x_1936 = x_1931; + x_1949 = x_1944; } -lean::cnstr_set(x_1936, 0, x_1932); -lean::cnstr_set(x_1936, 1, x_1929); -if (lean::is_scalar(x_1926)) { - x_1937 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1949, 0, x_1945); +lean::cnstr_set(x_1949, 1, x_1942); +if (lean::is_scalar(x_1939)) { + x_1950 = lean::alloc_cnstr(1, 1, 0); } else { - x_1937 = x_1926; + x_1950 = x_1939; } -lean::cnstr_set(x_1937, 0, x_1936); -return x_1937; +lean::cnstr_set(x_1950, 0, x_1949); +return x_1950; } else { -obj* x_1938; obj* x_1941; obj* x_1944; obj* x_1947; obj* x_1948; obj* x_1950; obj* x_1951; obj* x_1952; obj* x_1953; obj* x_1956; obj* x_1957; obj* x_1958; obj* x_1959; obj* x_1960; -x_1938 = lean::cnstr_get(x_1933, 0); -lean::inc(x_1938); -lean::dec(x_1933); -x_1941 = lean::cnstr_get(x_2, 0); -lean::inc(x_1941); +obj* x_1951; obj* x_1954; obj* x_1957; obj* x_1960; obj* x_1961; obj* x_1963; obj* x_1964; obj* x_1965; obj* x_1966; obj* x_1969; obj* x_1970; obj* x_1971; obj* x_1972; obj* x_1973; +x_1951 = lean::cnstr_get(x_1946, 0); +lean::inc(x_1951); +lean::dec(x_1946); +x_1954 = lean::cnstr_get(x_2, 0); +lean::inc(x_1954); lean::dec(x_2); -x_1944 = lean::cnstr_get(x_1941, 2); -lean::inc(x_1944); -lean::dec(x_1941); -x_1947 = l_Lean_FileMap_toPosition(x_1944, x_1938); -x_1948 = lean::cnstr_get(x_1947, 1); -lean::inc(x_1948); -x_1950 = lean::box(0); -x_1951 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1952 = l_Lean_KVMap_setNat(x_1950, x_1951, x_1948); -x_1953 = lean::cnstr_get(x_1947, 0); -lean::inc(x_1953); -lean::dec(x_1947); -x_1956 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1957 = l_Lean_KVMap_setNat(x_1952, x_1956, x_1953); -x_1958 = lean_expr_mk_mdata(x_1957, x_1932); -if (lean::is_scalar(x_1931)) { - x_1959 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1959 = x_1931; -} -lean::cnstr_set(x_1959, 0, x_1958); -lean::cnstr_set(x_1959, 1, x_1929); -if (lean::is_scalar(x_1926)) { - x_1960 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1960 = x_1926; -} -lean::cnstr_set(x_1960, 0, x_1959); -return x_1960; -} -} -else -{ -obj* x_1963; obj* x_1964; -lean::dec(x_0); -lean::dec(x_2); -if (lean::is_scalar(x_1931)) { - x_1963 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1963 = x_1931; -} -lean::cnstr_set(x_1963, 0, x_1932); -lean::cnstr_set(x_1963, 1, x_1929); -if (lean::is_scalar(x_1926)) { - x_1964 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1964 = x_1926; -} -lean::cnstr_set(x_1964, 0, x_1963); -return x_1964; -} -} -} -else -{ -obj* x_1966; obj* x_1970; -lean::dec(x_1911); -x_1966 = lean::cnstr_get(x_1904, 1); +x_1957 = lean::cnstr_get(x_1954, 2); +lean::inc(x_1957); +lean::dec(x_1954); +x_1960 = l_Lean_FileMap_toPosition(x_1957, x_1951); +x_1961 = lean::cnstr_get(x_1960, 1); +lean::inc(x_1961); +x_1963 = lean::box(0); +x_1964 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1965 = l_Lean_KVMap_setNat(x_1963, x_1964, x_1961); +x_1966 = lean::cnstr_get(x_1960, 0); lean::inc(x_1966); -lean::dec(x_1904); -lean::inc(x_2); -x_1970 = l_Lean_Elaborator_toLevel___main(x_1966, x_1, x_2, x_3); -if (lean::obj_tag(x_1970) == 0) -{ -obj* x_1973; obj* x_1975; obj* x_1976; -lean::dec(x_0); -lean::dec(x_2); -x_1973 = lean::cnstr_get(x_1970, 0); -if (lean::is_exclusive(x_1970)) { - x_1975 = x_1970; +lean::dec(x_1960); +x_1969 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1970 = l_Lean_KVMap_setNat(x_1965, x_1969, x_1966); +x_1971 = lean_expr_mk_mdata(x_1970, x_1945); +if (lean::is_scalar(x_1944)) { + x_1972 = lean::alloc_cnstr(0, 2, 0); } else { - lean::inc(x_1973); - lean::dec(x_1970); - x_1975 = lean::box(0); + x_1972 = x_1944; } -if (lean::is_scalar(x_1975)) { - x_1976 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_1972, 0, x_1971); +lean::cnstr_set(x_1972, 1, x_1942); +if (lean::is_scalar(x_1939)) { + x_1973 = lean::alloc_cnstr(1, 1, 0); } else { - x_1976 = x_1975; + x_1973 = x_1939; +} +lean::cnstr_set(x_1973, 0, x_1972); +return x_1973; } -lean::cnstr_set(x_1976, 0, x_1973); -return x_1976; } else { -obj* x_1977; obj* x_1979; obj* x_1980; obj* x_1982; obj* x_1984; obj* x_1985; obj* x_1986; -x_1977 = lean::cnstr_get(x_1970, 0); -if (lean::is_exclusive(x_1970)) { - lean::cnstr_set(x_1970, 0, lean::box(0)); - x_1979 = x_1970; +obj* x_1976; obj* x_1977; +lean::dec(x_0); +lean::dec(x_2); +if (lean::is_scalar(x_1944)) { + x_1976 = lean::alloc_cnstr(0, 2, 0); } else { - lean::inc(x_1977); - lean::dec(x_1970); - x_1979 = lean::box(0); + x_1976 = x_1944; } -x_1980 = lean::cnstr_get(x_1977, 0); -x_1982 = lean::cnstr_get(x_1977, 1); -if (lean::is_exclusive(x_1977)) { - lean::cnstr_set(x_1977, 0, lean::box(0)); - lean::cnstr_set(x_1977, 1, lean::box(0)); - x_1984 = x_1977; +lean::cnstr_set(x_1976, 0, x_1945); +lean::cnstr_set(x_1976, 1, x_1942); +if (lean::is_scalar(x_1939)) { + x_1977 = lean::alloc_cnstr(1, 1, 0); } else { - lean::inc(x_1980); - lean::inc(x_1982); - lean::dec(x_1977); - x_1984 = lean::box(0); + x_1977 = x_1939; } -x_1985 = level_mk_succ(x_1980); -x_1986 = lean_expr_mk_sort(x_1985); +lean::cnstr_set(x_1977, 0, x_1976); +return x_1977; +} +} +} +else +{ +obj* x_1979; obj* x_1983; +lean::dec(x_1924); +x_1979 = lean::cnstr_get(x_1917, 1); +lean::inc(x_1979); +lean::dec(x_1917); +lean::inc(x_2); +x_1983 = l_Lean_Elaborator_toLevel___main(x_1979, x_1, x_2, x_3); +if (lean::obj_tag(x_1983) == 0) +{ +obj* x_1986; obj* x_1988; obj* x_1989; +lean::dec(x_0); +lean::dec(x_2); +x_1986 = lean::cnstr_get(x_1983, 0); +if (lean::is_exclusive(x_1983)) { + x_1988 = x_1983; +} else { + lean::inc(x_1986); + lean::dec(x_1983); + x_1988 = lean::box(0); +} +if (lean::is_scalar(x_1988)) { + x_1989 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1989 = x_1988; +} +lean::cnstr_set(x_1989, 0, x_1986); +return x_1989; +} +else +{ +obj* x_1990; obj* x_1992; obj* x_1993; obj* x_1995; obj* x_1997; obj* x_1998; obj* x_1999; +x_1990 = lean::cnstr_get(x_1983, 0); +if (lean::is_exclusive(x_1983)) { + lean::cnstr_set(x_1983, 0, lean::box(0)); + x_1992 = x_1983; +} else { + lean::inc(x_1990); + lean::dec(x_1983); + x_1992 = lean::box(0); +} +x_1993 = lean::cnstr_get(x_1990, 0); +x_1995 = lean::cnstr_get(x_1990, 1); +if (lean::is_exclusive(x_1990)) { + lean::cnstr_set(x_1990, 0, lean::box(0)); + lean::cnstr_set(x_1990, 1, lean::box(0)); + x_1997 = x_1990; +} else { + lean::inc(x_1993); + lean::inc(x_1995); + lean::dec(x_1990); + x_1997 = lean::box(0); +} +x_1998 = level_mk_succ(x_1993); +x_1999 = lean_expr_mk_sort(x_1998); if (x_20 == 0) { -obj* x_1987; -x_1987 = l_Lean_Parser_Syntax_getPos(x_0); +obj* x_2000; +x_2000 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1987) == 0) +if (lean::obj_tag(x_2000) == 0) { -obj* x_1990; obj* x_1991; +obj* x_2003; obj* x_2004; lean::dec(x_2); -if (lean::is_scalar(x_1984)) { - x_1990 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1997)) { + x_2003 = lean::alloc_cnstr(0, 2, 0); } else { - x_1990 = x_1984; + x_2003 = x_1997; } -lean::cnstr_set(x_1990, 0, x_1986); -lean::cnstr_set(x_1990, 1, x_1982); -if (lean::is_scalar(x_1979)) { - x_1991 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2003, 0, x_1999); +lean::cnstr_set(x_2003, 1, x_1995); +if (lean::is_scalar(x_1992)) { + x_2004 = lean::alloc_cnstr(1, 1, 0); } else { - x_1991 = x_1979; + x_2004 = x_1992; } -lean::cnstr_set(x_1991, 0, x_1990); -return x_1991; +lean::cnstr_set(x_2004, 0, x_2003); +return x_2004; } else { -obj* x_1992; obj* x_1995; obj* x_1998; obj* x_2001; obj* x_2002; obj* x_2004; obj* x_2005; obj* x_2006; obj* x_2007; obj* x_2010; obj* x_2011; obj* x_2012; obj* x_2013; obj* x_2014; -x_1992 = lean::cnstr_get(x_1987, 0); -lean::inc(x_1992); -lean::dec(x_1987); -x_1995 = lean::cnstr_get(x_2, 0); -lean::inc(x_1995); +obj* x_2005; obj* x_2008; obj* x_2011; obj* x_2014; obj* x_2015; obj* x_2017; obj* x_2018; obj* x_2019; obj* x_2020; obj* x_2023; obj* x_2024; obj* x_2025; obj* x_2026; obj* x_2027; +x_2005 = lean::cnstr_get(x_2000, 0); +lean::inc(x_2005); +lean::dec(x_2000); +x_2008 = lean::cnstr_get(x_2, 0); +lean::inc(x_2008); lean::dec(x_2); -x_1998 = lean::cnstr_get(x_1995, 2); -lean::inc(x_1998); -lean::dec(x_1995); -x_2001 = l_Lean_FileMap_toPosition(x_1998, x_1992); -x_2002 = lean::cnstr_get(x_2001, 1); -lean::inc(x_2002); -x_2004 = lean::box(0); -x_2005 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_2006 = l_Lean_KVMap_setNat(x_2004, x_2005, x_2002); -x_2007 = lean::cnstr_get(x_2001, 0); -lean::inc(x_2007); -lean::dec(x_2001); -x_2010 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_2011 = l_Lean_KVMap_setNat(x_2006, x_2010, x_2007); -x_2012 = lean_expr_mk_mdata(x_2011, x_1986); -if (lean::is_scalar(x_1984)) { - x_2013 = lean::alloc_cnstr(0, 2, 0); +x_2011 = lean::cnstr_get(x_2008, 2); +lean::inc(x_2011); +lean::dec(x_2008); +x_2014 = l_Lean_FileMap_toPosition(x_2011, x_2005); +x_2015 = lean::cnstr_get(x_2014, 1); +lean::inc(x_2015); +x_2017 = lean::box(0); +x_2018 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_2019 = l_Lean_KVMap_setNat(x_2017, x_2018, x_2015); +x_2020 = lean::cnstr_get(x_2014, 0); +lean::inc(x_2020); +lean::dec(x_2014); +x_2023 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_2024 = l_Lean_KVMap_setNat(x_2019, x_2023, x_2020); +x_2025 = lean_expr_mk_mdata(x_2024, x_1999); +if (lean::is_scalar(x_1997)) { + x_2026 = lean::alloc_cnstr(0, 2, 0); } else { - x_2013 = x_1984; + x_2026 = x_1997; } -lean::cnstr_set(x_2013, 0, x_2012); -lean::cnstr_set(x_2013, 1, x_1982); -if (lean::is_scalar(x_1979)) { - x_2014 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2026, 0, x_2025); +lean::cnstr_set(x_2026, 1, x_1995); +if (lean::is_scalar(x_1992)) { + x_2027 = lean::alloc_cnstr(1, 1, 0); } else { - x_2014 = x_1979; + x_2027 = x_1992; } -lean::cnstr_set(x_2014, 0, x_2013); -return x_2014; +lean::cnstr_set(x_2027, 0, x_2026); +return x_2027; } } else { -obj* x_2017; obj* x_2018; +obj* x_2030; obj* x_2031; lean::dec(x_0); lean::dec(x_2); -if (lean::is_scalar(x_1984)) { - x_2017 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1997)) { + x_2030 = lean::alloc_cnstr(0, 2, 0); } else { - x_2017 = x_1984; + x_2030 = x_1997; } -lean::cnstr_set(x_2017, 0, x_1986); -lean::cnstr_set(x_2017, 1, x_1982); -if (lean::is_scalar(x_1979)) { - x_2018 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2030, 0, x_1999); +lean::cnstr_set(x_2030, 1, x_1995); +if (lean::is_scalar(x_1992)) { + x_2031 = lean::alloc_cnstr(1, 1, 0); } else { - x_2018 = x_1979; + x_2031 = x_1992; } -lean::cnstr_set(x_2018, 0, x_2017); -return x_2018; +lean::cnstr_set(x_2031, 0, x_2030); +return x_2031; } } } @@ -13348,940 +13340,940 @@ return x_2018; } else { -obj* x_2021; obj* x_2022; obj* x_2026; +obj* x_2034; obj* x_2035; obj* x_2039; lean::dec(x_8); lean::dec(x_10); -x_2021 = l_Lean_Parser_Term_sort_HasView; -x_2022 = lean::cnstr_get(x_2021, 0); -lean::inc(x_2022); -lean::dec(x_2021); +x_2034 = l_Lean_Parser_Term_sort_HasView; +x_2035 = lean::cnstr_get(x_2034, 0); +lean::inc(x_2035); +lean::dec(x_2034); lean::inc(x_0); -x_2026 = lean::apply_1(x_2022, x_0); -if (lean::obj_tag(x_2026) == 0) +x_2039 = lean::apply_1(x_2035, x_0); +if (lean::obj_tag(x_2039) == 0) { -lean::dec(x_2026); +lean::dec(x_2039); if (x_20 == 0) { -obj* x_2028; -x_2028 = l_Lean_Parser_Syntax_getPos(x_0); +obj* x_2041; +x_2041 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_2028) == 0) +if (lean::obj_tag(x_2041) == 0) { -obj* x_2031; obj* x_2032; obj* x_2033; +obj* x_2044; obj* x_2045; obj* x_2046; lean::dec(x_2); -x_2031 = l_Lean_Elaborator_toPexpr___main___closed__27; -x_2032 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_2032, 0, x_2031); -lean::cnstr_set(x_2032, 1, x_3); -x_2033 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2033, 0, x_2032); -return x_2033; +x_2044 = l_Lean_Elaborator_toPexpr___main___closed__27; +x_2045 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_2045, 0, x_2044); +lean::cnstr_set(x_2045, 1, x_3); +x_2046 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2046, 0, x_2045); +return x_2046; } else { -obj* x_2034; obj* x_2037; obj* x_2040; obj* x_2043; obj* x_2044; obj* x_2046; obj* x_2047; obj* x_2048; obj* x_2049; obj* x_2052; obj* x_2053; obj* x_2054; obj* x_2055; obj* x_2056; obj* x_2057; -x_2034 = lean::cnstr_get(x_2028, 0); -lean::inc(x_2034); -lean::dec(x_2028); -x_2037 = lean::cnstr_get(x_2, 0); -lean::inc(x_2037); +obj* x_2047; obj* x_2050; obj* x_2053; obj* x_2056; obj* x_2057; obj* x_2059; obj* x_2060; obj* x_2061; obj* x_2062; obj* x_2065; obj* x_2066; obj* x_2067; obj* x_2068; obj* x_2069; obj* x_2070; +x_2047 = lean::cnstr_get(x_2041, 0); +lean::inc(x_2047); +lean::dec(x_2041); +x_2050 = lean::cnstr_get(x_2, 0); +lean::inc(x_2050); lean::dec(x_2); -x_2040 = lean::cnstr_get(x_2037, 2); -lean::inc(x_2040); -lean::dec(x_2037); -x_2043 = l_Lean_FileMap_toPosition(x_2040, x_2034); -x_2044 = lean::cnstr_get(x_2043, 1); -lean::inc(x_2044); -x_2046 = lean::box(0); -x_2047 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_2048 = l_Lean_KVMap_setNat(x_2046, x_2047, x_2044); -x_2049 = lean::cnstr_get(x_2043, 0); -lean::inc(x_2049); -lean::dec(x_2043); -x_2052 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_2053 = l_Lean_KVMap_setNat(x_2048, x_2052, x_2049); -x_2054 = l_Lean_Elaborator_toPexpr___main___closed__27; -x_2055 = lean_expr_mk_mdata(x_2053, x_2054); -x_2056 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_2056, 0, x_2055); -lean::cnstr_set(x_2056, 1, x_3); -x_2057 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2057, 0, x_2056); -return x_2057; -} -} -else -{ -obj* x_2060; obj* x_2061; obj* x_2062; -lean::dec(x_0); -lean::dec(x_2); -x_2060 = l_Lean_Elaborator_toPexpr___main___closed__27; -x_2061 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_2061, 0, x_2060); -lean::cnstr_set(x_2061, 1, x_3); -x_2062 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2062, 0, x_2061); -return x_2062; -} -} -else -{ -lean::dec(x_2026); -if (x_20 == 0) -{ -obj* x_2064; -x_2064 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_2064) == 0) -{ -obj* x_2067; obj* x_2068; obj* x_2069; -lean::dec(x_2); -x_2067 = l_Lean_Elaborator_toPexpr___main___closed__46; -x_2068 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_2068, 0, x_2067); -lean::cnstr_set(x_2068, 1, x_3); -x_2069 = lean::alloc_cnstr(1, 1, 0); +x_2053 = lean::cnstr_get(x_2050, 2); +lean::inc(x_2053); +lean::dec(x_2050); +x_2056 = l_Lean_FileMap_toPosition(x_2053, x_2047); +x_2057 = lean::cnstr_get(x_2056, 1); +lean::inc(x_2057); +x_2059 = lean::box(0); +x_2060 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_2061 = l_Lean_KVMap_setNat(x_2059, x_2060, x_2057); +x_2062 = lean::cnstr_get(x_2056, 0); +lean::inc(x_2062); +lean::dec(x_2056); +x_2065 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_2066 = l_Lean_KVMap_setNat(x_2061, x_2065, x_2062); +x_2067 = l_Lean_Elaborator_toPexpr___main___closed__27; +x_2068 = lean_expr_mk_mdata(x_2066, x_2067); +x_2069 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_2069, 0, x_2068); -return x_2069; -} -else -{ -obj* x_2070; obj* x_2073; obj* x_2076; obj* x_2079; obj* x_2080; obj* x_2082; obj* x_2083; obj* x_2084; obj* x_2085; obj* x_2088; obj* x_2089; obj* x_2090; obj* x_2091; obj* x_2092; obj* x_2093; -x_2070 = lean::cnstr_get(x_2064, 0); -lean::inc(x_2070); -lean::dec(x_2064); -x_2073 = lean::cnstr_get(x_2, 0); -lean::inc(x_2073); -lean::dec(x_2); -x_2076 = lean::cnstr_get(x_2073, 2); -lean::inc(x_2076); -lean::dec(x_2073); -x_2079 = l_Lean_FileMap_toPosition(x_2076, x_2070); -x_2080 = lean::cnstr_get(x_2079, 1); -lean::inc(x_2080); -x_2082 = lean::box(0); -x_2083 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_2084 = l_Lean_KVMap_setNat(x_2082, x_2083, x_2080); -x_2085 = lean::cnstr_get(x_2079, 0); -lean::inc(x_2085); -lean::dec(x_2079); -x_2088 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_2089 = l_Lean_KVMap_setNat(x_2084, x_2088, x_2085); -x_2090 = l_Lean_Elaborator_toPexpr___main___closed__46; -x_2091 = lean_expr_mk_mdata(x_2089, x_2090); -x_2092 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_2092, 0, x_2091); -lean::cnstr_set(x_2092, 1, x_3); -x_2093 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2093, 0, x_2092); -return x_2093; +lean::cnstr_set(x_2069, 1, x_3); +x_2070 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2070, 0, x_2069); +return x_2070; } } else { -obj* x_2096; obj* x_2097; obj* x_2098; +obj* x_2073; obj* x_2074; obj* x_2075; lean::dec(x_0); lean::dec(x_2); -x_2096 = l_Lean_Elaborator_toPexpr___main___closed__46; -x_2097 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_2097, 0, x_2096); -lean::cnstr_set(x_2097, 1, x_3); -x_2098 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2098, 0, x_2097); -return x_2098; -} -} +x_2073 = l_Lean_Elaborator_toPexpr___main___closed__27; +x_2074 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_2074, 0, x_2073); +lean::cnstr_set(x_2074, 1, x_3); +x_2075 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2075, 0, x_2074); +return x_2075; } } else { -obj* x_2100; obj* x_2101; obj* x_2105; obj* x_2106; -lean::dec(x_10); -x_2100 = l_Lean_Parser_Term_pi_HasView; -x_2101 = lean::cnstr_get(x_2100, 0); -lean::inc(x_2101); -lean::dec(x_2100); -lean::inc(x_0); -x_2105 = lean::apply_1(x_2101, x_0); -x_2106 = lean::cnstr_get(x_2105, 1); -lean::inc(x_2106); -if (lean::obj_tag(x_2106) == 0) -{ -obj* x_2111; obj* x_2112; obj* x_2114; -lean::dec(x_2106); -lean::dec(x_2105); -lean::inc(x_0); -x_2111 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2111, 0, x_0); -x_2112 = l_Lean_Elaborator_toPexpr___main___closed__47; -lean::inc(x_2); -x_2114 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_2111, x_2112, x_1, x_2, x_3); -lean::dec(x_3); -lean::dec(x_2111); -if (lean::obj_tag(x_2114) == 0) -{ -obj* x_2120; obj* x_2122; obj* x_2123; -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -x_2120 = lean::cnstr_get(x_2114, 0); -if (lean::is_exclusive(x_2114)) { - x_2122 = x_2114; -} else { - lean::inc(x_2120); - lean::dec(x_2114); - x_2122 = lean::box(0); -} -if (lean::is_scalar(x_2122)) { - x_2123 = lean::alloc_cnstr(0, 1, 0); -} else { - x_2123 = x_2122; -} -lean::cnstr_set(x_2123, 0, x_2120); -return x_2123; -} -else -{ -obj* x_2124; -x_2124 = lean::cnstr_get(x_2114, 0); -lean::inc(x_2124); -lean::dec(x_2114); -x_15 = x_2124; -goto lbl_16; -} -} -else -{ -obj* x_2127; obj* x_2130; obj* x_2131; obj* x_2133; obj* x_2136; obj* x_2138; obj* x_2142; -x_2127 = lean::cnstr_get(x_2106, 0); -lean::inc(x_2127); -lean::dec(x_2106); -x_2130 = l_Lean_Parser_Term_simpleBinder_View_toBinderInfo___main(x_2127); -x_2131 = lean::cnstr_get(x_2130, 1); -lean::inc(x_2131); -x_2133 = lean::cnstr_get(x_2130, 0); -lean::inc(x_2133); -lean::dec(x_2130); -x_2136 = lean::cnstr_get(x_2131, 0); -lean::inc(x_2136); -x_2138 = lean::cnstr_get(x_2131, 1); -lean::inc(x_2138); -lean::dec(x_2131); -lean::inc(x_2); -x_2142 = l_Lean_Elaborator_toPexpr___main(x_2138, x_1, x_2, x_3); -if (lean::obj_tag(x_2142) == 0) -{ -obj* x_2149; obj* x_2151; obj* x_2152; -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_2133); -lean::dec(x_2105); -lean::dec(x_2136); -x_2149 = lean::cnstr_get(x_2142, 0); -if (lean::is_exclusive(x_2142)) { - x_2151 = x_2142; -} else { - lean::inc(x_2149); - lean::dec(x_2142); - x_2151 = lean::box(0); -} -if (lean::is_scalar(x_2151)) { - x_2152 = lean::alloc_cnstr(0, 1, 0); -} else { - x_2152 = x_2151; -} -lean::cnstr_set(x_2152, 0, x_2149); -return x_2152; -} -else -{ -obj* x_2153; obj* x_2156; obj* x_2158; obj* x_2161; obj* x_2165; -x_2153 = lean::cnstr_get(x_2142, 0); -lean::inc(x_2153); -lean::dec(x_2142); -x_2156 = lean::cnstr_get(x_2153, 0); -lean::inc(x_2156); -x_2158 = lean::cnstr_get(x_2153, 1); -lean::inc(x_2158); -lean::dec(x_2153); -x_2161 = lean::cnstr_get(x_2105, 3); -lean::inc(x_2161); -lean::dec(x_2105); -lean::inc(x_2); -x_2165 = l_Lean_Elaborator_toPexpr___main(x_2161, x_1, x_2, x_2158); -if (lean::obj_tag(x_2165) == 0) -{ -obj* x_2172; obj* x_2174; obj* x_2175; -lean::dec(x_2156); -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_2133); -lean::dec(x_2136); -x_2172 = lean::cnstr_get(x_2165, 0); -if (lean::is_exclusive(x_2165)) { - x_2174 = x_2165; -} else { - lean::inc(x_2172); - lean::dec(x_2165); - x_2174 = lean::box(0); -} -if (lean::is_scalar(x_2174)) { - x_2175 = lean::alloc_cnstr(0, 1, 0); -} else { - x_2175 = x_2174; -} -lean::cnstr_set(x_2175, 0, x_2172); -return x_2175; -} -else -{ -obj* x_2176; obj* x_2179; obj* x_2181; obj* x_2183; obj* x_2184; uint8 x_2185; obj* x_2186; obj* x_2187; -x_2176 = lean::cnstr_get(x_2165, 0); -lean::inc(x_2176); -lean::dec(x_2165); -x_2179 = lean::cnstr_get(x_2176, 0); -x_2181 = lean::cnstr_get(x_2176, 1); -if (lean::is_exclusive(x_2176)) { - x_2183 = x_2176; -} else { - lean::inc(x_2179); - lean::inc(x_2181); - lean::dec(x_2176); - x_2183 = lean::box(0); -} -x_2184 = l_Lean_Elaborator_mangleIdent(x_2136); -x_2185 = lean::unbox(x_2133); -x_2186 = lean_expr_mk_pi(x_2184, x_2185, x_2156, x_2179); -if (lean::is_scalar(x_2183)) { - x_2187 = lean::alloc_cnstr(0, 2, 0); -} else { - x_2187 = x_2183; -} -lean::cnstr_set(x_2187, 0, x_2186); -lean::cnstr_set(x_2187, 1, x_2181); -x_15 = x_2187; -goto lbl_16; -} -} -} -} -} -else -{ -obj* x_2189; obj* x_2190; obj* x_2194; obj* x_2195; -lean::dec(x_10); -x_2189 = l_Lean_Parser_Term_lambda_HasView; -x_2190 = lean::cnstr_get(x_2189, 0); -lean::inc(x_2190); -lean::dec(x_2189); -lean::inc(x_0); -x_2194 = lean::apply_1(x_2190, x_0); -x_2195 = lean::cnstr_get(x_2194, 1); -lean::inc(x_2195); -if (lean::obj_tag(x_2195) == 0) -{ -obj* x_2200; obj* x_2201; obj* x_2203; -lean::dec(x_2194); -lean::dec(x_2195); -lean::inc(x_0); -x_2200 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2200, 0, x_0); -x_2201 = l_Lean_Elaborator_toPexpr___main___closed__48; -lean::inc(x_2); -x_2203 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_2200, x_2201, x_1, x_2, x_3); -lean::dec(x_3); -lean::dec(x_2200); -if (lean::obj_tag(x_2203) == 0) -{ -obj* x_2209; obj* x_2211; obj* x_2212; -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -x_2209 = lean::cnstr_get(x_2203, 0); -if (lean::is_exclusive(x_2203)) { - x_2211 = x_2203; -} else { - lean::inc(x_2209); - lean::dec(x_2203); - x_2211 = lean::box(0); -} -if (lean::is_scalar(x_2211)) { - x_2212 = lean::alloc_cnstr(0, 1, 0); -} else { - x_2212 = x_2211; -} -lean::cnstr_set(x_2212, 0, x_2209); -return x_2212; -} -else -{ -obj* x_2213; -x_2213 = lean::cnstr_get(x_2203, 0); -lean::inc(x_2213); -lean::dec(x_2203); -x_15 = x_2213; -goto lbl_16; -} -} -else -{ -obj* x_2216; obj* x_2219; obj* x_2220; obj* x_2222; obj* x_2225; obj* x_2227; obj* x_2231; -x_2216 = lean::cnstr_get(x_2195, 0); -lean::inc(x_2216); -lean::dec(x_2195); -x_2219 = l_Lean_Parser_Term_simpleBinder_View_toBinderInfo___main(x_2216); -x_2220 = lean::cnstr_get(x_2219, 1); -lean::inc(x_2220); -x_2222 = lean::cnstr_get(x_2219, 0); -lean::inc(x_2222); -lean::dec(x_2219); -x_2225 = lean::cnstr_get(x_2220, 0); -lean::inc(x_2225); -x_2227 = lean::cnstr_get(x_2220, 1); -lean::inc(x_2227); -lean::dec(x_2220); -lean::inc(x_2); -x_2231 = l_Lean_Elaborator_toPexpr___main(x_2227, x_1, x_2, x_3); -if (lean::obj_tag(x_2231) == 0) -{ -obj* x_2238; obj* x_2240; obj* x_2241; -lean::dec(x_2194); -lean::dec(x_2222); -lean::dec(x_2225); -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -x_2238 = lean::cnstr_get(x_2231, 0); -if (lean::is_exclusive(x_2231)) { - x_2240 = x_2231; -} else { - lean::inc(x_2238); - lean::dec(x_2231); - x_2240 = lean::box(0); -} -if (lean::is_scalar(x_2240)) { - x_2241 = lean::alloc_cnstr(0, 1, 0); -} else { - x_2241 = x_2240; -} -lean::cnstr_set(x_2241, 0, x_2238); -return x_2241; -} -else -{ -obj* x_2242; obj* x_2245; obj* x_2247; obj* x_2250; obj* x_2254; -x_2242 = lean::cnstr_get(x_2231, 0); -lean::inc(x_2242); -lean::dec(x_2231); -x_2245 = lean::cnstr_get(x_2242, 0); -lean::inc(x_2245); -x_2247 = lean::cnstr_get(x_2242, 1); -lean::inc(x_2247); -lean::dec(x_2242); -x_2250 = lean::cnstr_get(x_2194, 3); -lean::inc(x_2250); -lean::dec(x_2194); -lean::inc(x_2); -x_2254 = l_Lean_Elaborator_toPexpr___main(x_2250, x_1, x_2, x_2247); -if (lean::obj_tag(x_2254) == 0) -{ -obj* x_2261; obj* x_2263; obj* x_2264; -lean::dec(x_2222); -lean::dec(x_2225); -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_2245); -x_2261 = lean::cnstr_get(x_2254, 0); -if (lean::is_exclusive(x_2254)) { - x_2263 = x_2254; -} else { - lean::inc(x_2261); - lean::dec(x_2254); - x_2263 = lean::box(0); -} -if (lean::is_scalar(x_2263)) { - x_2264 = lean::alloc_cnstr(0, 1, 0); -} else { - x_2264 = x_2263; -} -lean::cnstr_set(x_2264, 0, x_2261); -return x_2264; -} -else -{ -obj* x_2265; obj* x_2268; obj* x_2270; obj* x_2272; obj* x_2273; uint8 x_2274; obj* x_2275; obj* x_2276; -x_2265 = lean::cnstr_get(x_2254, 0); -lean::inc(x_2265); -lean::dec(x_2254); -x_2268 = lean::cnstr_get(x_2265, 0); -x_2270 = lean::cnstr_get(x_2265, 1); -if (lean::is_exclusive(x_2265)) { - x_2272 = x_2265; -} else { - lean::inc(x_2268); - lean::inc(x_2270); - lean::dec(x_2265); - x_2272 = lean::box(0); -} -x_2273 = l_Lean_Elaborator_mangleIdent(x_2225); -x_2274 = lean::unbox(x_2222); -x_2275 = lean_expr_mk_lambda(x_2273, x_2274, x_2245, x_2268); -if (lean::is_scalar(x_2272)) { - x_2276 = lean::alloc_cnstr(0, 2, 0); -} else { - x_2276 = x_2272; -} -lean::cnstr_set(x_2276, 0, x_2275); -lean::cnstr_set(x_2276, 1, x_2270); -x_15 = x_2276; -goto lbl_16; -} -} -} -} -} -else -{ -obj* x_2279; obj* x_2280; obj* x_2284; obj* x_2285; obj* x_2288; -lean::dec(x_8); -lean::dec(x_10); -x_2279 = l_Lean_Parser_Term_app_HasView; -x_2280 = lean::cnstr_get(x_2279, 0); -lean::inc(x_2280); -lean::dec(x_2279); -lean::inc(x_0); -x_2284 = lean::apply_1(x_2280, x_0); -x_2285 = lean::cnstr_get(x_2284, 0); -lean::inc(x_2285); -lean::inc(x_2); -x_2288 = l_Lean_Elaborator_toPexpr___main(x_2285, x_1, x_2, x_3); -if (lean::obj_tag(x_2288) == 0) -{ -obj* x_2292; obj* x_2294; obj* x_2295; -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_2284); -x_2292 = lean::cnstr_get(x_2288, 0); -if (lean::is_exclusive(x_2288)) { - x_2294 = x_2288; -} else { - lean::inc(x_2292); - lean::dec(x_2288); - x_2294 = lean::box(0); -} -if (lean::is_scalar(x_2294)) { - x_2295 = lean::alloc_cnstr(0, 1, 0); -} else { - x_2295 = x_2294; -} -lean::cnstr_set(x_2295, 0, x_2292); -return x_2295; -} -else -{ -obj* x_2296; obj* x_2299; obj* x_2301; obj* x_2304; obj* x_2308; -x_2296 = lean::cnstr_get(x_2288, 0); -lean::inc(x_2296); -lean::dec(x_2288); -x_2299 = lean::cnstr_get(x_2296, 0); -lean::inc(x_2299); -x_2301 = lean::cnstr_get(x_2296, 1); -lean::inc(x_2301); -lean::dec(x_2296); -x_2304 = lean::cnstr_get(x_2284, 1); -lean::inc(x_2304); -lean::dec(x_2284); -lean::inc(x_2); -x_2308 = l_Lean_Elaborator_toPexpr___main(x_2304, x_1, x_2, x_2301); -if (lean::obj_tag(x_2308) == 0) -{ -obj* x_2312; obj* x_2314; obj* x_2315; -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_2299); -x_2312 = lean::cnstr_get(x_2308, 0); -if (lean::is_exclusive(x_2308)) { - x_2314 = x_2308; -} else { - lean::inc(x_2312); - lean::dec(x_2308); - x_2314 = lean::box(0); -} -if (lean::is_scalar(x_2314)) { - x_2315 = lean::alloc_cnstr(0, 1, 0); -} else { - x_2315 = x_2314; -} -lean::cnstr_set(x_2315, 0, x_2312); -return x_2315; -} -else -{ -obj* x_2316; obj* x_2318; obj* x_2319; obj* x_2321; obj* x_2323; obj* x_2324; -x_2316 = lean::cnstr_get(x_2308, 0); -if (lean::is_exclusive(x_2308)) { - lean::cnstr_set(x_2308, 0, lean::box(0)); - x_2318 = x_2308; -} else { - lean::inc(x_2316); - lean::dec(x_2308); - x_2318 = lean::box(0); -} -x_2319 = lean::cnstr_get(x_2316, 0); -x_2321 = lean::cnstr_get(x_2316, 1); -if (lean::is_exclusive(x_2316)) { - lean::cnstr_set(x_2316, 0, lean::box(0)); - lean::cnstr_set(x_2316, 1, lean::box(0)); - x_2323 = x_2316; -} else { - lean::inc(x_2319); - lean::inc(x_2321); - lean::dec(x_2316); - x_2323 = lean::box(0); -} -x_2324 = lean_expr_mk_app(x_2299, x_2319); +lean::dec(x_2039); if (x_20 == 0) { -obj* x_2325; -x_2325 = l_Lean_Parser_Syntax_getPos(x_0); +obj* x_2077; +x_2077 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_2325) == 0) +if (lean::obj_tag(x_2077) == 0) { -obj* x_2328; obj* x_2329; +obj* x_2080; obj* x_2081; obj* x_2082; lean::dec(x_2); -if (lean::is_scalar(x_2323)) { - x_2328 = lean::alloc_cnstr(0, 2, 0); -} else { - x_2328 = x_2323; -} -lean::cnstr_set(x_2328, 0, x_2324); -lean::cnstr_set(x_2328, 1, x_2321); -if (lean::is_scalar(x_2318)) { - x_2329 = lean::alloc_cnstr(1, 1, 0); -} else { - x_2329 = x_2318; -} -lean::cnstr_set(x_2329, 0, x_2328); -return x_2329; +x_2080 = l_Lean_Elaborator_toPexpr___main___closed__44; +x_2081 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_2081, 0, x_2080); +lean::cnstr_set(x_2081, 1, x_3); +x_2082 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2082, 0, x_2081); +return x_2082; } else { -obj* x_2330; obj* x_2333; obj* x_2336; obj* x_2339; obj* x_2340; obj* x_2342; obj* x_2343; obj* x_2344; obj* x_2345; obj* x_2348; obj* x_2349; obj* x_2350; obj* x_2351; obj* x_2352; -x_2330 = lean::cnstr_get(x_2325, 0); -lean::inc(x_2330); -lean::dec(x_2325); -x_2333 = lean::cnstr_get(x_2, 0); -lean::inc(x_2333); +obj* x_2083; obj* x_2086; obj* x_2089; obj* x_2092; obj* x_2093; obj* x_2095; obj* x_2096; obj* x_2097; obj* x_2098; obj* x_2101; obj* x_2102; obj* x_2103; obj* x_2104; obj* x_2105; obj* x_2106; +x_2083 = lean::cnstr_get(x_2077, 0); +lean::inc(x_2083); +lean::dec(x_2077); +x_2086 = lean::cnstr_get(x_2, 0); +lean::inc(x_2086); lean::dec(x_2); -x_2336 = lean::cnstr_get(x_2333, 2); -lean::inc(x_2336); -lean::dec(x_2333); -x_2339 = l_Lean_FileMap_toPosition(x_2336, x_2330); -x_2340 = lean::cnstr_get(x_2339, 1); -lean::inc(x_2340); -x_2342 = lean::box(0); -x_2343 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_2344 = l_Lean_KVMap_setNat(x_2342, x_2343, x_2340); -x_2345 = lean::cnstr_get(x_2339, 0); -lean::inc(x_2345); -lean::dec(x_2339); -x_2348 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_2349 = l_Lean_KVMap_setNat(x_2344, x_2348, x_2345); -x_2350 = lean_expr_mk_mdata(x_2349, x_2324); -if (lean::is_scalar(x_2323)) { - x_2351 = lean::alloc_cnstr(0, 2, 0); -} else { - x_2351 = x_2323; -} -lean::cnstr_set(x_2351, 0, x_2350); -lean::cnstr_set(x_2351, 1, x_2321); -if (lean::is_scalar(x_2318)) { - x_2352 = lean::alloc_cnstr(1, 1, 0); -} else { - x_2352 = x_2318; -} -lean::cnstr_set(x_2352, 0, x_2351); -return x_2352; +x_2089 = lean::cnstr_get(x_2086, 2); +lean::inc(x_2089); +lean::dec(x_2086); +x_2092 = l_Lean_FileMap_toPosition(x_2089, x_2083); +x_2093 = lean::cnstr_get(x_2092, 1); +lean::inc(x_2093); +x_2095 = lean::box(0); +x_2096 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_2097 = l_Lean_KVMap_setNat(x_2095, x_2096, x_2093); +x_2098 = lean::cnstr_get(x_2092, 0); +lean::inc(x_2098); +lean::dec(x_2092); +x_2101 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_2102 = l_Lean_KVMap_setNat(x_2097, x_2101, x_2098); +x_2103 = l_Lean_Elaborator_toPexpr___main___closed__44; +x_2104 = lean_expr_mk_mdata(x_2102, x_2103); +x_2105 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_2105, 0, x_2104); +lean::cnstr_set(x_2105, 1, x_3); +x_2106 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2106, 0, x_2105); +return x_2106; } } else { -obj* x_2355; obj* x_2356; +obj* x_2109; obj* x_2110; obj* x_2111; lean::dec(x_0); lean::dec(x_2); -if (lean::is_scalar(x_2323)) { - x_2355 = lean::alloc_cnstr(0, 2, 0); -} else { - x_2355 = x_2323; -} -lean::cnstr_set(x_2355, 0, x_2324); -lean::cnstr_set(x_2355, 1, x_2321); -if (lean::is_scalar(x_2318)) { - x_2356 = lean::alloc_cnstr(1, 1, 0); -} else { - x_2356 = x_2318; -} -lean::cnstr_set(x_2356, 0, x_2355); -return x_2356; -} +x_2109 = l_Lean_Elaborator_toPexpr___main___closed__44; +x_2110 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_2110, 0, x_2109); +lean::cnstr_set(x_2110, 1, x_3); +x_2111 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2111, 0, x_2110); +return x_2111; } } } } else { -obj* x_2358; obj* x_2359; obj* x_2363; obj* x_2364; +obj* x_2113; obj* x_2114; obj* x_2118; obj* x_2119; lean::dec(x_10); -x_2358 = l_Lean_Parser_identUnivs_HasView; -x_2359 = lean::cnstr_get(x_2358, 0); -lean::inc(x_2359); -lean::dec(x_2358); +x_2113 = l_Lean_Parser_Term_pi_HasView; +x_2114 = lean::cnstr_get(x_2113, 0); +lean::inc(x_2114); +lean::dec(x_2113); lean::inc(x_0); -x_2363 = lean::apply_1(x_2359, x_0); -x_2364 = lean::cnstr_get(x_2363, 1); -lean::inc(x_2364); -if (lean::obj_tag(x_2364) == 0) +x_2118 = lean::apply_1(x_2114, x_0); +x_2119 = lean::cnstr_get(x_2118, 1); +lean::inc(x_2119); +if (lean::obj_tag(x_2119) == 0) { -obj* x_2366; obj* x_2370; obj* x_2371; obj* x_2372; obj* x_2373; obj* x_2376; obj* x_2377; obj* x_2378; obj* x_2379; obj* x_2380; obj* x_2381; uint8 x_2382; -x_2366 = lean::cnstr_get(x_2363, 0); -lean::inc(x_2366); -lean::dec(x_2363); -lean::inc(x_2366); -x_2370 = l_Lean_Elaborator_mangleIdent(x_2366); -x_2371 = lean::box(0); -x_2372 = lean_expr_mk_const(x_2370, x_2371); -x_2373 = lean::cnstr_get(x_2366, 3); -lean::inc(x_2373); -lean::dec(x_2366); -x_2376 = lean::mk_nat_obj(0ul); -x_2377 = l_List_enumFrom___main___rarg(x_2376, x_2373); -x_2378 = l_Lean_Elaborator_toPexpr___main___closed__49; -x_2379 = l_List_foldl___main___at_Lean_Elaborator_toPexpr___main___spec__20(x_2378, x_2377); -x_2380 = lean_expr_mk_mdata(x_2379, x_2372); -x_2381 = l_Lean_Elaborator_toPexpr___main___closed__2; -x_2382 = lean_name_dec_eq(x_8, x_2381); -lean::dec(x_8); -if (x_2382 == 0) -{ -obj* x_2384; -x_2384 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_2384) == 0) -{ -obj* x_2387; obj* x_2388; -lean::dec(x_2); -x_2387 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_2387, 0, x_2380); -lean::cnstr_set(x_2387, 1, x_3); -x_2388 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2388, 0, x_2387); -return x_2388; -} -else -{ -obj* x_2389; obj* x_2392; obj* x_2395; obj* x_2398; obj* x_2399; obj* x_2401; obj* x_2402; obj* x_2403; obj* x_2406; obj* x_2407; obj* x_2408; obj* x_2409; obj* x_2410; -x_2389 = lean::cnstr_get(x_2384, 0); -lean::inc(x_2389); -lean::dec(x_2384); -x_2392 = lean::cnstr_get(x_2, 0); -lean::inc(x_2392); -lean::dec(x_2); -x_2395 = lean::cnstr_get(x_2392, 2); -lean::inc(x_2395); -lean::dec(x_2392); -x_2398 = l_Lean_FileMap_toPosition(x_2395, x_2389); -x_2399 = lean::cnstr_get(x_2398, 1); -lean::inc(x_2399); -x_2401 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_2402 = l_Lean_KVMap_setNat(x_2371, x_2401, x_2399); -x_2403 = lean::cnstr_get(x_2398, 0); -lean::inc(x_2403); -lean::dec(x_2398); -x_2406 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_2407 = l_Lean_KVMap_setNat(x_2402, x_2406, x_2403); -x_2408 = lean_expr_mk_mdata(x_2407, x_2380); -x_2409 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_2409, 0, x_2408); -lean::cnstr_set(x_2409, 1, x_3); -x_2410 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2410, 0, x_2409); -return x_2410; -} -} -else -{ -obj* x_2413; obj* x_2414; -lean::dec(x_0); -lean::dec(x_2); -x_2413 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_2413, 0, x_2380); -lean::cnstr_set(x_2413, 1, x_3); -x_2414 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2414, 0, x_2413); -return x_2414; -} -} -else -{ -obj* x_2415; obj* x_2418; obj* x_2421; obj* x_2425; -x_2415 = lean::cnstr_get(x_2363, 0); -lean::inc(x_2415); -lean::dec(x_2363); -x_2418 = lean::cnstr_get(x_2364, 0); -lean::inc(x_2418); -lean::dec(x_2364); -x_2421 = lean::cnstr_get(x_2418, 1); -lean::inc(x_2421); -lean::dec(x_2418); +obj* x_2124; obj* x_2125; obj* x_2127; +lean::dec(x_2118); +lean::dec(x_2119); +lean::inc(x_0); +x_2124 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2124, 0, x_0); +x_2125 = l_Lean_Elaborator_toPexpr___main___closed__45; lean::inc(x_2); -x_2425 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__21(x_2421, x_1, x_2, x_3); -if (lean::obj_tag(x_2425) == 0) +x_2127 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_2124, x_2125, x_1, x_2, x_3); +lean::dec(x_3); +lean::dec(x_2124); +if (lean::obj_tag(x_2127) == 0) { -obj* x_2430; obj* x_2432; obj* x_2433; -lean::dec(x_2415); +obj* x_2133; obj* x_2135; obj* x_2136; lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -x_2430 = lean::cnstr_get(x_2425, 0); -if (lean::is_exclusive(x_2425)) { - x_2432 = x_2425; +x_2133 = lean::cnstr_get(x_2127, 0); +if (lean::is_exclusive(x_2127)) { + x_2135 = x_2127; } else { - lean::inc(x_2430); - lean::dec(x_2425); - x_2432 = lean::box(0); + lean::inc(x_2133); + lean::dec(x_2127); + x_2135 = lean::box(0); } -if (lean::is_scalar(x_2432)) { - x_2433 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_2135)) { + x_2136 = lean::alloc_cnstr(0, 1, 0); } else { - x_2433 = x_2432; + x_2136 = x_2135; } -lean::cnstr_set(x_2433, 0, x_2430); -return x_2433; +lean::cnstr_set(x_2136, 0, x_2133); +return x_2136; } else { -obj* x_2434; obj* x_2436; obj* x_2437; obj* x_2439; obj* x_2441; obj* x_2443; obj* x_2444; obj* x_2445; obj* x_2448; obj* x_2449; obj* x_2450; obj* x_2451; obj* x_2452; obj* x_2453; uint8 x_2454; -x_2434 = lean::cnstr_get(x_2425, 0); -if (lean::is_exclusive(x_2425)) { - lean::cnstr_set(x_2425, 0, lean::box(0)); - x_2436 = x_2425; -} else { - lean::inc(x_2434); - lean::dec(x_2425); - x_2436 = lean::box(0); +obj* x_2137; +x_2137 = lean::cnstr_get(x_2127, 0); +lean::inc(x_2137); +lean::dec(x_2127); +x_15 = x_2137; +goto lbl_16; } -x_2437 = lean::cnstr_get(x_2434, 0); -x_2439 = lean::cnstr_get(x_2434, 1); -if (lean::is_exclusive(x_2434)) { - lean::cnstr_set(x_2434, 0, lean::box(0)); - lean::cnstr_set(x_2434, 1, lean::box(0)); - x_2441 = x_2434; -} else { - lean::inc(x_2437); - lean::inc(x_2439); - lean::dec(x_2434); - x_2441 = lean::box(0); } -lean::inc(x_2415); -x_2443 = l_Lean_Elaborator_mangleIdent(x_2415); -x_2444 = lean_expr_mk_const(x_2443, x_2437); -x_2445 = lean::cnstr_get(x_2415, 3); -lean::inc(x_2445); -lean::dec(x_2415); -x_2448 = lean::mk_nat_obj(0ul); -x_2449 = l_List_enumFrom___main___rarg(x_2448, x_2445); -x_2450 = l_Lean_Elaborator_toPexpr___main___closed__50; -x_2451 = l_List_foldl___main___at_Lean_Elaborator_toPexpr___main___spec__22(x_2450, x_2449); -x_2452 = lean_expr_mk_mdata(x_2451, x_2444); -x_2453 = l_Lean_Elaborator_toPexpr___main___closed__2; -x_2454 = lean_name_dec_eq(x_8, x_2453); +else +{ +obj* x_2140; obj* x_2143; obj* x_2144; obj* x_2146; obj* x_2149; obj* x_2151; obj* x_2155; +x_2140 = lean::cnstr_get(x_2119, 0); +lean::inc(x_2140); +lean::dec(x_2119); +x_2143 = l_Lean_Parser_Term_simpleBinder_View_toBinderInfo___main(x_2140); +x_2144 = lean::cnstr_get(x_2143, 1); +lean::inc(x_2144); +x_2146 = lean::cnstr_get(x_2143, 0); +lean::inc(x_2146); +lean::dec(x_2143); +x_2149 = lean::cnstr_get(x_2144, 0); +lean::inc(x_2149); +x_2151 = lean::cnstr_get(x_2144, 1); +lean::inc(x_2151); +lean::dec(x_2144); +lean::inc(x_2); +x_2155 = l_Lean_Elaborator_toPexpr___main(x_2151, x_1, x_2, x_3); +if (lean::obj_tag(x_2155) == 0) +{ +obj* x_2162; obj* x_2164; obj* x_2165; +lean::dec(x_2146); +lean::dec(x_2149); lean::dec(x_8); -if (x_2454 == 0) -{ -obj* x_2456; obj* x_2457; -x_2456 = lean::box(0); -x_2457 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_2457) == 0) -{ -obj* x_2460; obj* x_2461; lean::dec(x_2); -if (lean::is_scalar(x_2441)) { - x_2460 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_2118); +x_2162 = lean::cnstr_get(x_2155, 0); +if (lean::is_exclusive(x_2155)) { + x_2164 = x_2155; } else { - x_2460 = x_2441; + lean::inc(x_2162); + lean::dec(x_2155); + x_2164 = lean::box(0); } -lean::cnstr_set(x_2460, 0, x_2452); -lean::cnstr_set(x_2460, 1, x_2439); -if (lean::is_scalar(x_2436)) { - x_2461 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_2164)) { + x_2165 = lean::alloc_cnstr(0, 1, 0); } else { - x_2461 = x_2436; + x_2165 = x_2164; } -lean::cnstr_set(x_2461, 0, x_2460); -return x_2461; +lean::cnstr_set(x_2165, 0, x_2162); +return x_2165; } else { -obj* x_2462; obj* x_2465; obj* x_2468; obj* x_2471; obj* x_2472; obj* x_2474; obj* x_2475; obj* x_2476; obj* x_2479; obj* x_2480; obj* x_2481; obj* x_2482; obj* x_2483; -x_2462 = lean::cnstr_get(x_2457, 0); -lean::inc(x_2462); -lean::dec(x_2457); -x_2465 = lean::cnstr_get(x_2, 0); -lean::inc(x_2465); +obj* x_2166; obj* x_2169; obj* x_2171; obj* x_2174; obj* x_2178; +x_2166 = lean::cnstr_get(x_2155, 0); +lean::inc(x_2166); +lean::dec(x_2155); +x_2169 = lean::cnstr_get(x_2166, 0); +lean::inc(x_2169); +x_2171 = lean::cnstr_get(x_2166, 1); +lean::inc(x_2171); +lean::dec(x_2166); +x_2174 = lean::cnstr_get(x_2118, 3); +lean::inc(x_2174); +lean::dec(x_2118); +lean::inc(x_2); +x_2178 = l_Lean_Elaborator_toPexpr___main(x_2174, x_1, x_2, x_2171); +if (lean::obj_tag(x_2178) == 0) +{ +obj* x_2185; obj* x_2187; obj* x_2188; +lean::dec(x_2169); +lean::dec(x_2146); +lean::dec(x_2149); +lean::dec(x_8); +lean::dec(x_0); lean::dec(x_2); -x_2468 = lean::cnstr_get(x_2465, 2); -lean::inc(x_2468); -lean::dec(x_2465); -x_2471 = l_Lean_FileMap_toPosition(x_2468, x_2462); -x_2472 = lean::cnstr_get(x_2471, 1); -lean::inc(x_2472); -x_2474 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_2475 = l_Lean_KVMap_setNat(x_2456, x_2474, x_2472); -x_2476 = lean::cnstr_get(x_2471, 0); -lean::inc(x_2476); -lean::dec(x_2471); -x_2479 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_2480 = l_Lean_KVMap_setNat(x_2475, x_2479, x_2476); -x_2481 = lean_expr_mk_mdata(x_2480, x_2452); -if (lean::is_scalar(x_2441)) { - x_2482 = lean::alloc_cnstr(0, 2, 0); +x_2185 = lean::cnstr_get(x_2178, 0); +if (lean::is_exclusive(x_2178)) { + x_2187 = x_2178; } else { - x_2482 = x_2441; + lean::inc(x_2185); + lean::dec(x_2178); + x_2187 = lean::box(0); } -lean::cnstr_set(x_2482, 0, x_2481); -lean::cnstr_set(x_2482, 1, x_2439); -if (lean::is_scalar(x_2436)) { - x_2483 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_2187)) { + x_2188 = lean::alloc_cnstr(0, 1, 0); } else { - x_2483 = x_2436; + x_2188 = x_2187; +} +lean::cnstr_set(x_2188, 0, x_2185); +return x_2188; +} +else +{ +obj* x_2189; obj* x_2192; obj* x_2194; obj* x_2196; obj* x_2197; uint8 x_2198; obj* x_2199; obj* x_2200; +x_2189 = lean::cnstr_get(x_2178, 0); +lean::inc(x_2189); +lean::dec(x_2178); +x_2192 = lean::cnstr_get(x_2189, 0); +x_2194 = lean::cnstr_get(x_2189, 1); +if (lean::is_exclusive(x_2189)) { + x_2196 = x_2189; +} else { + lean::inc(x_2192); + lean::inc(x_2194); + lean::dec(x_2189); + x_2196 = lean::box(0); +} +x_2197 = l_Lean_Elaborator_mangleIdent(x_2149); +x_2198 = lean::unbox(x_2146); +x_2199 = lean_expr_mk_pi(x_2197, x_2198, x_2169, x_2192); +if (lean::is_scalar(x_2196)) { + x_2200 = lean::alloc_cnstr(0, 2, 0); +} else { + x_2200 = x_2196; +} +lean::cnstr_set(x_2200, 0, x_2199); +lean::cnstr_set(x_2200, 1, x_2194); +x_15 = x_2200; +goto lbl_16; +} +} } -lean::cnstr_set(x_2483, 0, x_2482); -return x_2483; } } else { -obj* x_2486; obj* x_2487; +obj* x_2202; obj* x_2203; obj* x_2207; obj* x_2208; +lean::dec(x_10); +x_2202 = l_Lean_Parser_Term_lambda_HasView; +x_2203 = lean::cnstr_get(x_2202, 0); +lean::inc(x_2203); +lean::dec(x_2202); +lean::inc(x_0); +x_2207 = lean::apply_1(x_2203, x_0); +x_2208 = lean::cnstr_get(x_2207, 1); +lean::inc(x_2208); +if (lean::obj_tag(x_2208) == 0) +{ +obj* x_2213; obj* x_2214; obj* x_2216; +lean::dec(x_2208); +lean::dec(x_2207); +lean::inc(x_0); +x_2213 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2213, 0, x_0); +x_2214 = l_Lean_Elaborator_toPexpr___main___closed__46; +lean::inc(x_2); +x_2216 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_2213, x_2214, x_1, x_2, x_3); +lean::dec(x_3); +lean::dec(x_2213); +if (lean::obj_tag(x_2216) == 0) +{ +obj* x_2222; obj* x_2224; obj* x_2225; +lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -if (lean::is_scalar(x_2441)) { - x_2486 = lean::alloc_cnstr(0, 2, 0); +x_2222 = lean::cnstr_get(x_2216, 0); +if (lean::is_exclusive(x_2216)) { + x_2224 = x_2216; } else { - x_2486 = x_2441; + lean::inc(x_2222); + lean::dec(x_2216); + x_2224 = lean::box(0); } -lean::cnstr_set(x_2486, 0, x_2452); -lean::cnstr_set(x_2486, 1, x_2439); -if (lean::is_scalar(x_2436)) { - x_2487 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_2224)) { + x_2225 = lean::alloc_cnstr(0, 1, 0); } else { - x_2487 = x_2436; + x_2225 = x_2224; } -lean::cnstr_set(x_2487, 0, x_2486); -return x_2487; +lean::cnstr_set(x_2225, 0, x_2222); +return x_2225; +} +else +{ +obj* x_2226; +x_2226 = lean::cnstr_get(x_2216, 0); +lean::inc(x_2226); +lean::dec(x_2216); +x_15 = x_2226; +goto lbl_16; +} +} +else +{ +obj* x_2229; obj* x_2232; obj* x_2233; obj* x_2235; obj* x_2238; obj* x_2240; obj* x_2244; +x_2229 = lean::cnstr_get(x_2208, 0); +lean::inc(x_2229); +lean::dec(x_2208); +x_2232 = l_Lean_Parser_Term_simpleBinder_View_toBinderInfo___main(x_2229); +x_2233 = lean::cnstr_get(x_2232, 1); +lean::inc(x_2233); +x_2235 = lean::cnstr_get(x_2232, 0); +lean::inc(x_2235); +lean::dec(x_2232); +x_2238 = lean::cnstr_get(x_2233, 0); +lean::inc(x_2238); +x_2240 = lean::cnstr_get(x_2233, 1); +lean::inc(x_2240); +lean::dec(x_2233); +lean::inc(x_2); +x_2244 = l_Lean_Elaborator_toPexpr___main(x_2240, x_1, x_2, x_3); +if (lean::obj_tag(x_2244) == 0) +{ +obj* x_2251; obj* x_2253; obj* x_2254; +lean::dec(x_8); +lean::dec(x_2235); +lean::dec(x_0); +lean::dec(x_2238); +lean::dec(x_2); +lean::dec(x_2207); +x_2251 = lean::cnstr_get(x_2244, 0); +if (lean::is_exclusive(x_2244)) { + x_2253 = x_2244; +} else { + lean::inc(x_2251); + lean::dec(x_2244); + x_2253 = lean::box(0); +} +if (lean::is_scalar(x_2253)) { + x_2254 = lean::alloc_cnstr(0, 1, 0); +} else { + x_2254 = x_2253; +} +lean::cnstr_set(x_2254, 0, x_2251); +return x_2254; +} +else +{ +obj* x_2255; obj* x_2258; obj* x_2260; obj* x_2263; obj* x_2267; +x_2255 = lean::cnstr_get(x_2244, 0); +lean::inc(x_2255); +lean::dec(x_2244); +x_2258 = lean::cnstr_get(x_2255, 0); +lean::inc(x_2258); +x_2260 = lean::cnstr_get(x_2255, 1); +lean::inc(x_2260); +lean::dec(x_2255); +x_2263 = lean::cnstr_get(x_2207, 3); +lean::inc(x_2263); +lean::dec(x_2207); +lean::inc(x_2); +x_2267 = l_Lean_Elaborator_toPexpr___main(x_2263, x_1, x_2, x_2260); +if (lean::obj_tag(x_2267) == 0) +{ +obj* x_2274; obj* x_2276; obj* x_2277; +lean::dec(x_8); +lean::dec(x_2235); +lean::dec(x_0); +lean::dec(x_2238); +lean::dec(x_2); +lean::dec(x_2258); +x_2274 = lean::cnstr_get(x_2267, 0); +if (lean::is_exclusive(x_2267)) { + x_2276 = x_2267; +} else { + lean::inc(x_2274); + lean::dec(x_2267); + x_2276 = lean::box(0); +} +if (lean::is_scalar(x_2276)) { + x_2277 = lean::alloc_cnstr(0, 1, 0); +} else { + x_2277 = x_2276; +} +lean::cnstr_set(x_2277, 0, x_2274); +return x_2277; +} +else +{ +obj* x_2278; obj* x_2281; obj* x_2283; obj* x_2285; obj* x_2286; uint8 x_2287; obj* x_2288; obj* x_2289; +x_2278 = lean::cnstr_get(x_2267, 0); +lean::inc(x_2278); +lean::dec(x_2267); +x_2281 = lean::cnstr_get(x_2278, 0); +x_2283 = lean::cnstr_get(x_2278, 1); +if (lean::is_exclusive(x_2278)) { + x_2285 = x_2278; +} else { + lean::inc(x_2281); + lean::inc(x_2283); + lean::dec(x_2278); + x_2285 = lean::box(0); +} +x_2286 = l_Lean_Elaborator_mangleIdent(x_2238); +x_2287 = lean::unbox(x_2235); +x_2288 = lean_expr_mk_lambda(x_2286, x_2287, x_2258, x_2281); +if (lean::is_scalar(x_2285)) { + x_2289 = lean::alloc_cnstr(0, 2, 0); +} else { + x_2289 = x_2285; +} +lean::cnstr_set(x_2289, 0, x_2288); +lean::cnstr_set(x_2289, 1, x_2283); +x_15 = x_2289; +goto lbl_16; +} +} +} +} +} +else +{ +obj* x_2292; obj* x_2293; obj* x_2297; obj* x_2298; obj* x_2301; +lean::dec(x_8); +lean::dec(x_10); +x_2292 = l_Lean_Parser_Term_app_HasView; +x_2293 = lean::cnstr_get(x_2292, 0); +lean::inc(x_2293); +lean::dec(x_2292); +lean::inc(x_0); +x_2297 = lean::apply_1(x_2293, x_0); +x_2298 = lean::cnstr_get(x_2297, 0); +lean::inc(x_2298); +lean::inc(x_2); +x_2301 = l_Lean_Elaborator_toPexpr___main(x_2298, x_1, x_2, x_3); +if (lean::obj_tag(x_2301) == 0) +{ +obj* x_2305; obj* x_2307; obj* x_2308; +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_2297); +x_2305 = lean::cnstr_get(x_2301, 0); +if (lean::is_exclusive(x_2301)) { + x_2307 = x_2301; +} else { + lean::inc(x_2305); + lean::dec(x_2301); + x_2307 = lean::box(0); +} +if (lean::is_scalar(x_2307)) { + x_2308 = lean::alloc_cnstr(0, 1, 0); +} else { + x_2308 = x_2307; +} +lean::cnstr_set(x_2308, 0, x_2305); +return x_2308; +} +else +{ +obj* x_2309; obj* x_2312; obj* x_2314; obj* x_2317; obj* x_2321; +x_2309 = lean::cnstr_get(x_2301, 0); +lean::inc(x_2309); +lean::dec(x_2301); +x_2312 = lean::cnstr_get(x_2309, 0); +lean::inc(x_2312); +x_2314 = lean::cnstr_get(x_2309, 1); +lean::inc(x_2314); +lean::dec(x_2309); +x_2317 = lean::cnstr_get(x_2297, 1); +lean::inc(x_2317); +lean::dec(x_2297); +lean::inc(x_2); +x_2321 = l_Lean_Elaborator_toPexpr___main(x_2317, x_1, x_2, x_2314); +if (lean::obj_tag(x_2321) == 0) +{ +obj* x_2325; obj* x_2327; obj* x_2328; +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_2312); +x_2325 = lean::cnstr_get(x_2321, 0); +if (lean::is_exclusive(x_2321)) { + x_2327 = x_2321; +} else { + lean::inc(x_2325); + lean::dec(x_2321); + x_2327 = lean::box(0); +} +if (lean::is_scalar(x_2327)) { + x_2328 = lean::alloc_cnstr(0, 1, 0); +} else { + x_2328 = x_2327; +} +lean::cnstr_set(x_2328, 0, x_2325); +return x_2328; +} +else +{ +obj* x_2329; obj* x_2331; obj* x_2332; obj* x_2334; obj* x_2336; obj* x_2337; +x_2329 = lean::cnstr_get(x_2321, 0); +if (lean::is_exclusive(x_2321)) { + lean::cnstr_set(x_2321, 0, lean::box(0)); + x_2331 = x_2321; +} else { + lean::inc(x_2329); + lean::dec(x_2321); + x_2331 = lean::box(0); +} +x_2332 = lean::cnstr_get(x_2329, 0); +x_2334 = lean::cnstr_get(x_2329, 1); +if (lean::is_exclusive(x_2329)) { + lean::cnstr_set(x_2329, 0, lean::box(0)); + lean::cnstr_set(x_2329, 1, lean::box(0)); + x_2336 = x_2329; +} else { + lean::inc(x_2332); + lean::inc(x_2334); + lean::dec(x_2329); + x_2336 = lean::box(0); +} +x_2337 = lean_expr_mk_app(x_2312, x_2332); +if (x_20 == 0) +{ +obj* x_2338; +x_2338 = l_Lean_Parser_Syntax_getPos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_2338) == 0) +{ +obj* x_2341; obj* x_2342; +lean::dec(x_2); +if (lean::is_scalar(x_2336)) { + x_2341 = lean::alloc_cnstr(0, 2, 0); +} else { + x_2341 = x_2336; +} +lean::cnstr_set(x_2341, 0, x_2337); +lean::cnstr_set(x_2341, 1, x_2334); +if (lean::is_scalar(x_2331)) { + x_2342 = lean::alloc_cnstr(1, 1, 0); +} else { + x_2342 = x_2331; +} +lean::cnstr_set(x_2342, 0, x_2341); +return x_2342; +} +else +{ +obj* x_2343; obj* x_2346; obj* x_2349; obj* x_2352; obj* x_2353; obj* x_2355; obj* x_2356; obj* x_2357; obj* x_2358; obj* x_2361; obj* x_2362; obj* x_2363; obj* x_2364; obj* x_2365; +x_2343 = lean::cnstr_get(x_2338, 0); +lean::inc(x_2343); +lean::dec(x_2338); +x_2346 = lean::cnstr_get(x_2, 0); +lean::inc(x_2346); +lean::dec(x_2); +x_2349 = lean::cnstr_get(x_2346, 2); +lean::inc(x_2349); +lean::dec(x_2346); +x_2352 = l_Lean_FileMap_toPosition(x_2349, x_2343); +x_2353 = lean::cnstr_get(x_2352, 1); +lean::inc(x_2353); +x_2355 = lean::box(0); +x_2356 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_2357 = l_Lean_KVMap_setNat(x_2355, x_2356, x_2353); +x_2358 = lean::cnstr_get(x_2352, 0); +lean::inc(x_2358); +lean::dec(x_2352); +x_2361 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_2362 = l_Lean_KVMap_setNat(x_2357, x_2361, x_2358); +x_2363 = lean_expr_mk_mdata(x_2362, x_2337); +if (lean::is_scalar(x_2336)) { + x_2364 = lean::alloc_cnstr(0, 2, 0); +} else { + x_2364 = x_2336; +} +lean::cnstr_set(x_2364, 0, x_2363); +lean::cnstr_set(x_2364, 1, x_2334); +if (lean::is_scalar(x_2331)) { + x_2365 = lean::alloc_cnstr(1, 1, 0); +} else { + x_2365 = x_2331; +} +lean::cnstr_set(x_2365, 0, x_2364); +return x_2365; +} +} +else +{ +obj* x_2368; obj* x_2369; +lean::dec(x_0); +lean::dec(x_2); +if (lean::is_scalar(x_2336)) { + x_2368 = lean::alloc_cnstr(0, 2, 0); +} else { + x_2368 = x_2336; +} +lean::cnstr_set(x_2368, 0, x_2337); +lean::cnstr_set(x_2368, 1, x_2334); +if (lean::is_scalar(x_2331)) { + x_2369 = lean::alloc_cnstr(1, 1, 0); +} else { + x_2369 = x_2331; +} +lean::cnstr_set(x_2369, 0, x_2368); +return x_2369; +} +} +} +} +} +else +{ +obj* x_2371; obj* x_2372; obj* x_2376; obj* x_2377; +lean::dec(x_10); +x_2371 = l_Lean_Parser_identUnivs_HasView; +x_2372 = lean::cnstr_get(x_2371, 0); +lean::inc(x_2372); +lean::dec(x_2371); +lean::inc(x_0); +x_2376 = lean::apply_1(x_2372, x_0); +x_2377 = lean::cnstr_get(x_2376, 1); +lean::inc(x_2377); +if (lean::obj_tag(x_2377) == 0) +{ +obj* x_2379; obj* x_2383; obj* x_2384; obj* x_2385; obj* x_2386; obj* x_2389; obj* x_2390; obj* x_2391; obj* x_2392; obj* x_2393; obj* x_2394; uint8 x_2395; +x_2379 = lean::cnstr_get(x_2376, 0); +lean::inc(x_2379); +lean::dec(x_2376); +lean::inc(x_2379); +x_2383 = l_Lean_Elaborator_mangleIdent(x_2379); +x_2384 = lean::box(0); +x_2385 = lean_expr_mk_const(x_2383, x_2384); +x_2386 = lean::cnstr_get(x_2379, 3); +lean::inc(x_2386); +lean::dec(x_2379); +x_2389 = lean::mk_nat_obj(0ul); +x_2390 = l_List_enumFrom___main___rarg(x_2389, x_2386); +x_2391 = l_Lean_Elaborator_toPexpr___main___closed__47; +x_2392 = l_List_foldl___main___at_Lean_Elaborator_toPexpr___main___spec__20(x_2391, x_2390); +x_2393 = lean_expr_mk_mdata(x_2392, x_2385); +x_2394 = l_Lean_Elaborator_toPexpr___main___closed__2; +x_2395 = lean_name_dec_eq(x_8, x_2394); +lean::dec(x_8); +if (x_2395 == 0) +{ +obj* x_2397; +x_2397 = l_Lean_Parser_Syntax_getPos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_2397) == 0) +{ +obj* x_2400; obj* x_2401; +lean::dec(x_2); +x_2400 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_2400, 0, x_2393); +lean::cnstr_set(x_2400, 1, x_3); +x_2401 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2401, 0, x_2400); +return x_2401; +} +else +{ +obj* x_2402; obj* x_2405; obj* x_2408; obj* x_2411; obj* x_2412; obj* x_2414; obj* x_2415; obj* x_2416; obj* x_2419; obj* x_2420; obj* x_2421; obj* x_2422; obj* x_2423; +x_2402 = lean::cnstr_get(x_2397, 0); +lean::inc(x_2402); +lean::dec(x_2397); +x_2405 = lean::cnstr_get(x_2, 0); +lean::inc(x_2405); +lean::dec(x_2); +x_2408 = lean::cnstr_get(x_2405, 2); +lean::inc(x_2408); +lean::dec(x_2405); +x_2411 = l_Lean_FileMap_toPosition(x_2408, x_2402); +x_2412 = lean::cnstr_get(x_2411, 1); +lean::inc(x_2412); +x_2414 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_2415 = l_Lean_KVMap_setNat(x_2384, x_2414, x_2412); +x_2416 = lean::cnstr_get(x_2411, 0); +lean::inc(x_2416); +lean::dec(x_2411); +x_2419 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_2420 = l_Lean_KVMap_setNat(x_2415, x_2419, x_2416); +x_2421 = lean_expr_mk_mdata(x_2420, x_2393); +x_2422 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_2422, 0, x_2421); +lean::cnstr_set(x_2422, 1, x_3); +x_2423 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2423, 0, x_2422); +return x_2423; +} +} +else +{ +obj* x_2426; obj* x_2427; +lean::dec(x_0); +lean::dec(x_2); +x_2426 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_2426, 0, x_2393); +lean::cnstr_set(x_2426, 1, x_3); +x_2427 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2427, 0, x_2426); +return x_2427; +} +} +else +{ +obj* x_2428; obj* x_2431; obj* x_2434; obj* x_2438; +x_2428 = lean::cnstr_get(x_2376, 0); +lean::inc(x_2428); +lean::dec(x_2376); +x_2431 = lean::cnstr_get(x_2377, 0); +lean::inc(x_2431); +lean::dec(x_2377); +x_2434 = lean::cnstr_get(x_2431, 1); +lean::inc(x_2434); +lean::dec(x_2431); +lean::inc(x_2); +x_2438 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__21(x_2434, x_1, x_2, x_3); +if (lean::obj_tag(x_2438) == 0) +{ +obj* x_2443; obj* x_2445; obj* x_2446; +lean::dec(x_2428); +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +x_2443 = lean::cnstr_get(x_2438, 0); +if (lean::is_exclusive(x_2438)) { + x_2445 = x_2438; +} else { + lean::inc(x_2443); + lean::dec(x_2438); + x_2445 = lean::box(0); +} +if (lean::is_scalar(x_2445)) { + x_2446 = lean::alloc_cnstr(0, 1, 0); +} else { + x_2446 = x_2445; +} +lean::cnstr_set(x_2446, 0, x_2443); +return x_2446; +} +else +{ +obj* x_2447; obj* x_2449; obj* x_2450; obj* x_2452; obj* x_2454; obj* x_2456; obj* x_2457; obj* x_2458; obj* x_2461; obj* x_2462; obj* x_2463; obj* x_2464; obj* x_2465; obj* x_2466; uint8 x_2467; +x_2447 = lean::cnstr_get(x_2438, 0); +if (lean::is_exclusive(x_2438)) { + lean::cnstr_set(x_2438, 0, lean::box(0)); + x_2449 = x_2438; +} else { + lean::inc(x_2447); + lean::dec(x_2438); + x_2449 = lean::box(0); +} +x_2450 = lean::cnstr_get(x_2447, 0); +x_2452 = lean::cnstr_get(x_2447, 1); +if (lean::is_exclusive(x_2447)) { + lean::cnstr_set(x_2447, 0, lean::box(0)); + lean::cnstr_set(x_2447, 1, lean::box(0)); + x_2454 = x_2447; +} else { + lean::inc(x_2450); + lean::inc(x_2452); + lean::dec(x_2447); + x_2454 = lean::box(0); +} +lean::inc(x_2428); +x_2456 = l_Lean_Elaborator_mangleIdent(x_2428); +x_2457 = lean_expr_mk_const(x_2456, x_2450); +x_2458 = lean::cnstr_get(x_2428, 3); +lean::inc(x_2458); +lean::dec(x_2428); +x_2461 = lean::mk_nat_obj(0ul); +x_2462 = l_List_enumFrom___main___rarg(x_2461, x_2458); +x_2463 = l_Lean_Elaborator_toPexpr___main___closed__48; +x_2464 = l_List_foldl___main___at_Lean_Elaborator_toPexpr___main___spec__22(x_2463, x_2462); +x_2465 = lean_expr_mk_mdata(x_2464, x_2457); +x_2466 = l_Lean_Elaborator_toPexpr___main___closed__2; +x_2467 = lean_name_dec_eq(x_8, x_2466); +lean::dec(x_8); +if (x_2467 == 0) +{ +obj* x_2469; obj* x_2470; +x_2469 = lean::box(0); +x_2470 = l_Lean_Parser_Syntax_getPos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_2470) == 0) +{ +obj* x_2473; obj* x_2474; +lean::dec(x_2); +if (lean::is_scalar(x_2454)) { + x_2473 = lean::alloc_cnstr(0, 2, 0); +} else { + x_2473 = x_2454; +} +lean::cnstr_set(x_2473, 0, x_2465); +lean::cnstr_set(x_2473, 1, x_2452); +if (lean::is_scalar(x_2449)) { + x_2474 = lean::alloc_cnstr(1, 1, 0); +} else { + x_2474 = x_2449; +} +lean::cnstr_set(x_2474, 0, x_2473); +return x_2474; +} +else +{ +obj* x_2475; obj* x_2478; obj* x_2481; obj* x_2484; obj* x_2485; obj* x_2487; obj* x_2488; obj* x_2489; obj* x_2492; obj* x_2493; obj* x_2494; obj* x_2495; obj* x_2496; +x_2475 = lean::cnstr_get(x_2470, 0); +lean::inc(x_2475); +lean::dec(x_2470); +x_2478 = lean::cnstr_get(x_2, 0); +lean::inc(x_2478); +lean::dec(x_2); +x_2481 = lean::cnstr_get(x_2478, 2); +lean::inc(x_2481); +lean::dec(x_2478); +x_2484 = l_Lean_FileMap_toPosition(x_2481, x_2475); +x_2485 = lean::cnstr_get(x_2484, 1); +lean::inc(x_2485); +x_2487 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_2488 = l_Lean_KVMap_setNat(x_2469, x_2487, x_2485); +x_2489 = lean::cnstr_get(x_2484, 0); +lean::inc(x_2489); +lean::dec(x_2484); +x_2492 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_2493 = l_Lean_KVMap_setNat(x_2488, x_2492, x_2489); +x_2494 = lean_expr_mk_mdata(x_2493, x_2465); +if (lean::is_scalar(x_2454)) { + x_2495 = lean::alloc_cnstr(0, 2, 0); +} else { + x_2495 = x_2454; +} +lean::cnstr_set(x_2495, 0, x_2494); +lean::cnstr_set(x_2495, 1, x_2452); +if (lean::is_scalar(x_2449)) { + x_2496 = lean::alloc_cnstr(1, 1, 0); +} else { + x_2496 = x_2449; +} +lean::cnstr_set(x_2496, 0, x_2495); +return x_2496; +} +} +else +{ +obj* x_2499; obj* x_2500; +lean::dec(x_0); +lean::dec(x_2); +if (lean::is_scalar(x_2454)) { + x_2499 = lean::alloc_cnstr(0, 2, 0); +} else { + x_2499 = x_2454; +} +lean::cnstr_set(x_2499, 0, x_2465); +lean::cnstr_set(x_2499, 1, x_2452); +if (lean::is_scalar(x_2449)) { + x_2500 = lean::alloc_cnstr(1, 1, 0); +} else { + x_2500 = x_2449; +} +lean::cnstr_set(x_2500, 0, x_2499); +return x_2500; } } } @@ -14290,256 +14282,256 @@ lbl_14: { if (lean::obj_tag(x_13) == 0) { -obj* x_2491; obj* x_2493; obj* x_2494; +obj* x_2504; obj* x_2506; obj* x_2507; lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -x_2491 = lean::cnstr_get(x_13, 0); +x_2504 = lean::cnstr_get(x_13, 0); if (lean::is_exclusive(x_13)) { - x_2493 = x_13; + x_2506 = x_13; } else { - lean::inc(x_2491); + lean::inc(x_2504); lean::dec(x_13); - x_2493 = lean::box(0); + x_2506 = lean::box(0); } -if (lean::is_scalar(x_2493)) { - x_2494 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_2506)) { + x_2507 = lean::alloc_cnstr(0, 1, 0); } else { - x_2494 = x_2493; + x_2507 = x_2506; } -lean::cnstr_set(x_2494, 0, x_2491); -return x_2494; +lean::cnstr_set(x_2507, 0, x_2504); +return x_2507; } else { -obj* x_2495; obj* x_2497; obj* x_2498; obj* x_2500; obj* x_2502; obj* x_2503; uint8 x_2504; -x_2495 = lean::cnstr_get(x_13, 0); +obj* x_2508; obj* x_2510; obj* x_2511; obj* x_2513; obj* x_2515; obj* x_2516; uint8 x_2517; +x_2508 = lean::cnstr_get(x_13, 0); if (lean::is_exclusive(x_13)) { lean::cnstr_set(x_13, 0, lean::box(0)); - x_2497 = x_13; + x_2510 = x_13; } else { - lean::inc(x_2495); + lean::inc(x_2508); lean::dec(x_13); - x_2497 = lean::box(0); + x_2510 = lean::box(0); } -x_2498 = lean::cnstr_get(x_2495, 0); -x_2500 = lean::cnstr_get(x_2495, 1); -if (lean::is_exclusive(x_2495)) { - lean::cnstr_set(x_2495, 0, lean::box(0)); - lean::cnstr_set(x_2495, 1, lean::box(0)); - x_2502 = x_2495; +x_2511 = lean::cnstr_get(x_2508, 0); +x_2513 = lean::cnstr_get(x_2508, 1); +if (lean::is_exclusive(x_2508)) { + lean::cnstr_set(x_2508, 0, lean::box(0)); + lean::cnstr_set(x_2508, 1, lean::box(0)); + x_2515 = x_2508; } else { - lean::inc(x_2498); - lean::inc(x_2500); - lean::dec(x_2495); - x_2502 = lean::box(0); + lean::inc(x_2511); + lean::inc(x_2513); + lean::dec(x_2508); + x_2515 = lean::box(0); } -x_2503 = l_Lean_Elaborator_toPexpr___main___closed__2; -x_2504 = lean_name_dec_eq(x_8, x_2503); +x_2516 = l_Lean_Elaborator_toPexpr___main___closed__2; +x_2517 = lean_name_dec_eq(x_8, x_2516); lean::dec(x_8); -if (x_2504 == 0) +if (x_2517 == 0) { -obj* x_2506; -x_2506 = l_Lean_Parser_Syntax_getPos(x_0); +obj* x_2519; +x_2519 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_2506) == 0) +if (lean::obj_tag(x_2519) == 0) { -obj* x_2509; obj* x_2510; +obj* x_2522; obj* x_2523; lean::dec(x_2); -if (lean::is_scalar(x_2502)) { - x_2509 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_2515)) { + x_2522 = lean::alloc_cnstr(0, 2, 0); } else { - x_2509 = x_2502; + x_2522 = x_2515; } -lean::cnstr_set(x_2509, 0, x_2498); -lean::cnstr_set(x_2509, 1, x_2500); -if (lean::is_scalar(x_2497)) { - x_2510 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2522, 0, x_2511); +lean::cnstr_set(x_2522, 1, x_2513); +if (lean::is_scalar(x_2510)) { + x_2523 = lean::alloc_cnstr(1, 1, 0); } else { - x_2510 = x_2497; + x_2523 = x_2510; } -lean::cnstr_set(x_2510, 0, x_2509); -return x_2510; +lean::cnstr_set(x_2523, 0, x_2522); +return x_2523; } else { -obj* x_2511; obj* x_2514; obj* x_2517; obj* x_2520; obj* x_2521; obj* x_2523; obj* x_2524; obj* x_2525; obj* x_2526; obj* x_2529; obj* x_2530; obj* x_2531; obj* x_2532; obj* x_2533; -x_2511 = lean::cnstr_get(x_2506, 0); -lean::inc(x_2511); -lean::dec(x_2506); -x_2514 = lean::cnstr_get(x_2, 0); -lean::inc(x_2514); +obj* x_2524; obj* x_2527; obj* x_2530; obj* x_2533; obj* x_2534; obj* x_2536; obj* x_2537; obj* x_2538; obj* x_2539; obj* x_2542; obj* x_2543; obj* x_2544; obj* x_2545; obj* x_2546; +x_2524 = lean::cnstr_get(x_2519, 0); +lean::inc(x_2524); +lean::dec(x_2519); +x_2527 = lean::cnstr_get(x_2, 0); +lean::inc(x_2527); lean::dec(x_2); -x_2517 = lean::cnstr_get(x_2514, 2); -lean::inc(x_2517); -lean::dec(x_2514); -x_2520 = l_Lean_FileMap_toPosition(x_2517, x_2511); -x_2521 = lean::cnstr_get(x_2520, 1); -lean::inc(x_2521); -x_2523 = lean::box(0); -x_2524 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_2525 = l_Lean_KVMap_setNat(x_2523, x_2524, x_2521); -x_2526 = lean::cnstr_get(x_2520, 0); -lean::inc(x_2526); -lean::dec(x_2520); -x_2529 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_2530 = l_Lean_KVMap_setNat(x_2525, x_2529, x_2526); -x_2531 = lean_expr_mk_mdata(x_2530, x_2498); -if (lean::is_scalar(x_2502)) { - x_2532 = lean::alloc_cnstr(0, 2, 0); +x_2530 = lean::cnstr_get(x_2527, 2); +lean::inc(x_2530); +lean::dec(x_2527); +x_2533 = l_Lean_FileMap_toPosition(x_2530, x_2524); +x_2534 = lean::cnstr_get(x_2533, 1); +lean::inc(x_2534); +x_2536 = lean::box(0); +x_2537 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_2538 = l_Lean_KVMap_setNat(x_2536, x_2537, x_2534); +x_2539 = lean::cnstr_get(x_2533, 0); +lean::inc(x_2539); +lean::dec(x_2533); +x_2542 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_2543 = l_Lean_KVMap_setNat(x_2538, x_2542, x_2539); +x_2544 = lean_expr_mk_mdata(x_2543, x_2511); +if (lean::is_scalar(x_2515)) { + x_2545 = lean::alloc_cnstr(0, 2, 0); } else { - x_2532 = x_2502; + x_2545 = x_2515; } -lean::cnstr_set(x_2532, 0, x_2531); -lean::cnstr_set(x_2532, 1, x_2500); -if (lean::is_scalar(x_2497)) { - x_2533 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2545, 0, x_2544); +lean::cnstr_set(x_2545, 1, x_2513); +if (lean::is_scalar(x_2510)) { + x_2546 = lean::alloc_cnstr(1, 1, 0); } else { - x_2533 = x_2497; + x_2546 = x_2510; } -lean::cnstr_set(x_2533, 0, x_2532); -return x_2533; +lean::cnstr_set(x_2546, 0, x_2545); +return x_2546; } } else { -obj* x_2536; obj* x_2537; +obj* x_2549; obj* x_2550; lean::dec(x_0); lean::dec(x_2); -if (lean::is_scalar(x_2502)) { - x_2536 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_2515)) { + x_2549 = lean::alloc_cnstr(0, 2, 0); } else { - x_2536 = x_2502; + x_2549 = x_2515; } -lean::cnstr_set(x_2536, 0, x_2498); -lean::cnstr_set(x_2536, 1, x_2500); -if (lean::is_scalar(x_2497)) { - x_2537 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2549, 0, x_2511); +lean::cnstr_set(x_2549, 1, x_2513); +if (lean::is_scalar(x_2510)) { + x_2550 = lean::alloc_cnstr(1, 1, 0); } else { - x_2537 = x_2497; + x_2550 = x_2510; } -lean::cnstr_set(x_2537, 0, x_2536); -return x_2537; +lean::cnstr_set(x_2550, 0, x_2549); +return x_2550; } } } lbl_16: { -obj* x_2538; obj* x_2540; obj* x_2542; obj* x_2543; uint8 x_2544; -x_2538 = lean::cnstr_get(x_15, 0); -x_2540 = lean::cnstr_get(x_15, 1); +obj* x_2551; obj* x_2553; obj* x_2555; obj* x_2556; uint8 x_2557; +x_2551 = lean::cnstr_get(x_15, 0); +x_2553 = lean::cnstr_get(x_15, 1); if (lean::is_exclusive(x_15)) { lean::cnstr_set(x_15, 0, lean::box(0)); lean::cnstr_set(x_15, 1, lean::box(0)); - x_2542 = x_15; + x_2555 = x_15; } else { - lean::inc(x_2538); - lean::inc(x_2540); + lean::inc(x_2551); + lean::inc(x_2553); lean::dec(x_15); - x_2542 = lean::box(0); + x_2555 = lean::box(0); } -x_2543 = l_Lean_Elaborator_toPexpr___main___closed__2; -x_2544 = lean_name_dec_eq(x_8, x_2543); +x_2556 = l_Lean_Elaborator_toPexpr___main___closed__2; +x_2557 = lean_name_dec_eq(x_8, x_2556); lean::dec(x_8); -if (x_2544 == 0) +if (x_2557 == 0) { -obj* x_2546; -x_2546 = l_Lean_Parser_Syntax_getPos(x_0); +obj* x_2559; +x_2559 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_2546) == 0) +if (lean::obj_tag(x_2559) == 0) { -obj* x_2549; obj* x_2550; +obj* x_2562; obj* x_2563; lean::dec(x_2); -if (lean::is_scalar(x_2542)) { - x_2549 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_2555)) { + x_2562 = lean::alloc_cnstr(0, 2, 0); } else { - x_2549 = x_2542; + x_2562 = x_2555; } -lean::cnstr_set(x_2549, 0, x_2538); -lean::cnstr_set(x_2549, 1, x_2540); -x_2550 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2550, 0, x_2549); -return x_2550; +lean::cnstr_set(x_2562, 0, x_2551); +lean::cnstr_set(x_2562, 1, x_2553); +x_2563 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2563, 0, x_2562); +return x_2563; } else { -obj* x_2551; obj* x_2554; obj* x_2557; obj* x_2560; obj* x_2561; obj* x_2563; obj* x_2564; obj* x_2565; obj* x_2566; obj* x_2569; obj* x_2570; obj* x_2571; obj* x_2572; obj* x_2573; -x_2551 = lean::cnstr_get(x_2546, 0); -lean::inc(x_2551); -lean::dec(x_2546); -x_2554 = lean::cnstr_get(x_2, 0); -lean::inc(x_2554); +obj* x_2564; obj* x_2567; obj* x_2570; obj* x_2573; obj* x_2574; obj* x_2576; obj* x_2577; obj* x_2578; obj* x_2579; obj* x_2582; obj* x_2583; obj* x_2584; obj* x_2585; obj* x_2586; +x_2564 = lean::cnstr_get(x_2559, 0); +lean::inc(x_2564); +lean::dec(x_2559); +x_2567 = lean::cnstr_get(x_2, 0); +lean::inc(x_2567); lean::dec(x_2); -x_2557 = lean::cnstr_get(x_2554, 2); -lean::inc(x_2557); -lean::dec(x_2554); -x_2560 = l_Lean_FileMap_toPosition(x_2557, x_2551); -x_2561 = lean::cnstr_get(x_2560, 1); -lean::inc(x_2561); -x_2563 = lean::box(0); -x_2564 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_2565 = l_Lean_KVMap_setNat(x_2563, x_2564, x_2561); -x_2566 = lean::cnstr_get(x_2560, 0); -lean::inc(x_2566); -lean::dec(x_2560); -x_2569 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_2570 = l_Lean_KVMap_setNat(x_2565, x_2569, x_2566); -x_2571 = lean_expr_mk_mdata(x_2570, x_2538); -if (lean::is_scalar(x_2542)) { - x_2572 = lean::alloc_cnstr(0, 2, 0); +x_2570 = lean::cnstr_get(x_2567, 2); +lean::inc(x_2570); +lean::dec(x_2567); +x_2573 = l_Lean_FileMap_toPosition(x_2570, x_2564); +x_2574 = lean::cnstr_get(x_2573, 1); +lean::inc(x_2574); +x_2576 = lean::box(0); +x_2577 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_2578 = l_Lean_KVMap_setNat(x_2576, x_2577, x_2574); +x_2579 = lean::cnstr_get(x_2573, 0); +lean::inc(x_2579); +lean::dec(x_2573); +x_2582 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_2583 = l_Lean_KVMap_setNat(x_2578, x_2582, x_2579); +x_2584 = lean_expr_mk_mdata(x_2583, x_2551); +if (lean::is_scalar(x_2555)) { + x_2585 = lean::alloc_cnstr(0, 2, 0); } else { - x_2572 = x_2542; + x_2585 = x_2555; } -lean::cnstr_set(x_2572, 0, x_2571); -lean::cnstr_set(x_2572, 1, x_2540); -x_2573 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2573, 0, x_2572); -return x_2573; +lean::cnstr_set(x_2585, 0, x_2584); +lean::cnstr_set(x_2585, 1, x_2553); +x_2586 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2586, 0, x_2585); +return x_2586; } } else { -obj* x_2576; obj* x_2577; +obj* x_2589; obj* x_2590; lean::dec(x_0); lean::dec(x_2); -if (lean::is_scalar(x_2542)) { - x_2576 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_2555)) { + x_2589 = lean::alloc_cnstr(0, 2, 0); } else { - x_2576 = x_2542; + x_2589 = x_2555; } -lean::cnstr_set(x_2576, 0, x_2538); -lean::cnstr_set(x_2576, 1, x_2540); -x_2577 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2577, 0, x_2576); -return x_2577; +lean::cnstr_set(x_2589, 0, x_2551); +lean::cnstr_set(x_2589, 1, x_2553); +x_2590 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2590, 0, x_2589); +return x_2590; } } } default: { -obj* x_2578; -x_2578 = lean::box(0); -x_4 = x_2578; +obj* x_2591; +x_2591 = lean::box(0); +x_4 = x_2591; goto lbl_5; } } lbl_5: { -obj* x_2581; obj* x_2582; obj* x_2583; obj* x_2584; obj* x_2585; obj* x_2586; obj* x_2588; +obj* x_2594; obj* x_2595; obj* x_2596; obj* x_2597; obj* x_2598; obj* x_2599; obj* x_2601; lean::dec(x_4); lean::inc(x_0); -x_2581 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2581, 0, x_0); -x_2582 = l_Lean_Parser_Syntax_toFormat___main(x_0); -x_2583 = l_Lean_Options_empty; -x_2584 = l_Lean_Format_pretty(x_2582, x_2583); -x_2585 = l_Lean_Elaborator_toPexpr___main___closed__1; -x_2586 = lean::string_append(x_2585, x_2584); -lean::dec(x_2584); -x_2588 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_2581, x_2586, x_1, x_2, x_3); +x_2594 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2594, 0, x_0); +x_2595 = l_Lean_Parser_Syntax_toFormat___main(x_0); +x_2596 = l_Lean_Options_empty; +x_2597 = l_Lean_Format_pretty(x_2595, x_2596); +x_2598 = l_Lean_Elaborator_toPexpr___main___closed__1; +x_2599 = lean::string_append(x_2598, x_2597); +lean::dec(x_2597); +x_2601 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_2594, x_2599, x_1, x_2, x_3); lean::dec(x_3); -lean::dec(x_2581); -return x_2588; +lean::dec(x_2594); +return x_2601; } } } @@ -16574,342 +16566,360 @@ return x_25; obj* l_Lean_Elaborator_oldElabCommand(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_5; obj* x_9; obj* x_10; +obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_15; x_5 = lean::cnstr_get(x_3, 0); lean::inc(x_5); +x_7 = lean::cnstr_get(x_5, 2); +lean::inc(x_7); +x_9 = l_Lean_Parser_Syntax_getPos(x_0); lean::inc(x_4); lean::inc(x_3); -x_9 = l_Lean_Elaborator_currentScope(x_2, x_3, x_4); +x_12 = l_Lean_Elaborator_currentScope(x_2, x_3, x_4); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_17; +x_17 = lean::mk_nat_obj(0ul); +x_15 = x_17; +goto lbl_16; +} +else +{ +obj* x_18; +x_18 = lean::cnstr_get(x_9, 0); +lean::inc(x_18); +lean::dec(x_9); +x_15 = x_18; +goto lbl_16; +} +lbl_14: +{ +if (lean::obj_tag(x_12) == 0) +{ +obj* x_25; obj* x_27; obj* x_28; +lean::dec(x_5); +lean::dec(x_4); +lean::dec(x_3); +lean::dec(x_13); +x_25 = lean::cnstr_get(x_12, 0); +if (lean::is_exclusive(x_12)) { + x_27 = x_12; +} else { + lean::inc(x_25); + lean::dec(x_12); + x_27 = lean::box(0); +} +if (lean::is_scalar(x_27)) { + x_28 = lean::alloc_cnstr(0, 1, 0); +} else { + x_28 = x_27; +} +lean::cnstr_set(x_28, 0, x_25); +return x_28; +} +else +{ +obj* x_29; obj* x_32; obj* x_34; obj* x_38; +x_29 = lean::cnstr_get(x_12, 0); +lean::inc(x_29); +lean::dec(x_12); +x_32 = lean::cnstr_get(x_29, 0); +lean::inc(x_32); +x_34 = lean::cnstr_get(x_29, 1); +lean::inc(x_34); +lean::dec(x_29); +lean::inc(x_3); +x_38 = l_Lean_Elaborator_getNamespace(x_2, x_3, x_34); +if (lean::obj_tag(x_38) == 0) +{ +obj* x_44; obj* x_46; obj* x_47; +lean::dec(x_5); +lean::dec(x_4); +lean::dec(x_3); +lean::dec(x_13); +lean::dec(x_32); +x_44 = lean::cnstr_get(x_38, 0); +if (lean::is_exclusive(x_38)) { + x_46 = x_38; +} else { + lean::inc(x_44); + lean::dec(x_38); + x_46 = lean::box(0); +} +if (lean::is_scalar(x_46)) { + x_47 = lean::alloc_cnstr(0, 1, 0); +} else { + x_47 = x_46; +} +lean::cnstr_set(x_47, 0, x_44); +return x_47; +} +else +{ +obj* x_48; obj* x_50; obj* x_51; obj* x_53; obj* x_56; obj* x_59; obj* x_61; obj* x_63; obj* x_65; obj* x_68; obj* x_69; obj* x_71; obj* x_74; obj* x_75; obj* x_77; obj* x_78; obj* x_81; obj* x_84; obj* x_85; obj* x_88; +x_48 = lean::cnstr_get(x_38, 0); +if (lean::is_exclusive(x_38)) { + lean::cnstr_set(x_38, 0, lean::box(0)); + x_50 = x_38; +} else { + lean::inc(x_48); + lean::dec(x_38); + x_50 = lean::box(0); +} +x_51 = lean::cnstr_get(x_48, 0); +lean::inc(x_51); +x_53 = lean::cnstr_get(x_48, 1); +lean::inc(x_53); +lean::dec(x_48); +x_56 = lean::cnstr_get(x_5, 0); +lean::inc(x_56); +lean::dec(x_5); +x_59 = lean::cnstr_get(x_4, 8); +lean::inc(x_59); +x_61 = lean::cnstr_get(x_4, 9); +lean::inc(x_61); +x_63 = lean::cnstr_get(x_32, 3); +lean::inc(x_63); +x_65 = lean::cnstr_get(x_63, 0); +lean::inc(x_65); +lean::dec(x_63); +x_68 = l_List_reverse___rarg(x_65); +x_69 = lean::cnstr_get(x_32, 4); +lean::inc(x_69); +x_71 = lean::cnstr_get(x_69, 0); +lean::inc(x_71); +lean::dec(x_69); +x_74 = l_List_reverse___rarg(x_71); +x_75 = lean::cnstr_get(x_32, 5); +lean::inc(x_75); +x_77 = l_RBTree_toList___rarg(x_75); +x_78 = lean::cnstr_get(x_32, 8); +lean::inc(x_78); +lean::dec(x_32); +x_81 = lean::cnstr_get(x_4, 10); +lean::inc(x_81); +lean::dec(x_4); +x_84 = lean::alloc_cnstr(0, 8, 0); +lean::cnstr_set(x_84, 0, x_59); +lean::cnstr_set(x_84, 1, x_61); +lean::cnstr_set(x_84, 2, x_68); +lean::cnstr_set(x_84, 3, x_74); +lean::cnstr_set(x_84, 4, x_77); +lean::cnstr_set(x_84, 5, x_78); +lean::cnstr_set(x_84, 6, x_81); +lean::cnstr_set(x_84, 7, x_51); +x_85 = lean_elaborator_elaborate_command(x_56, x_13, x_84); +lean::dec(x_84); +lean::dec(x_56); +x_88 = lean::cnstr_get(x_85, 0); +lean::inc(x_88); +if (lean::obj_tag(x_88) == 0) +{ +obj* x_91; obj* x_93; obj* x_94; obj* x_96; obj* x_98; obj* x_100; obj* x_102; obj* x_104; obj* x_106; obj* x_107; obj* x_109; obj* x_111; obj* x_113; obj* x_115; obj* x_118; obj* x_119; obj* x_120; obj* x_121; +lean::dec(x_3); +x_91 = lean::cnstr_get(x_85, 1); +if (lean::is_exclusive(x_85)) { + lean::cnstr_release(x_85, 0); + x_93 = x_85; +} else { + lean::inc(x_91); + lean::dec(x_85); + x_93 = lean::box(0); +} +x_94 = lean::cnstr_get(x_53, 0); +lean::inc(x_94); +x_96 = lean::cnstr_get(x_53, 1); +lean::inc(x_96); +x_98 = lean::cnstr_get(x_53, 2); +lean::inc(x_98); +x_100 = lean::cnstr_get(x_53, 3); +lean::inc(x_100); +x_102 = lean::cnstr_get(x_53, 4); +lean::inc(x_102); +x_104 = lean::cnstr_get(x_53, 5); +lean::inc(x_104); +x_106 = l_List_append___rarg(x_91, x_104); +x_107 = lean::cnstr_get(x_53, 6); +lean::inc(x_107); +x_109 = lean::cnstr_get(x_53, 7); +lean::inc(x_109); +x_111 = lean::cnstr_get(x_53, 8); +lean::inc(x_111); +x_113 = lean::cnstr_get(x_53, 9); +lean::inc(x_113); +x_115 = lean::cnstr_get(x_53, 10); +lean::inc(x_115); +lean::dec(x_53); +x_118 = lean::alloc_cnstr(0, 11, 0); +lean::cnstr_set(x_118, 0, x_94); +lean::cnstr_set(x_118, 1, x_96); +lean::cnstr_set(x_118, 2, x_98); +lean::cnstr_set(x_118, 3, x_100); +lean::cnstr_set(x_118, 4, x_102); +lean::cnstr_set(x_118, 5, x_106); +lean::cnstr_set(x_118, 6, x_107); +lean::cnstr_set(x_118, 7, x_109); +lean::cnstr_set(x_118, 8, x_111); +lean::cnstr_set(x_118, 9, x_113); +lean::cnstr_set(x_118, 10, x_115); +x_119 = lean::box(0); +if (lean::is_scalar(x_93)) { + x_120 = lean::alloc_cnstr(0, 2, 0); +} else { + x_120 = x_93; +} +lean::cnstr_set(x_120, 0, x_119); +lean::cnstr_set(x_120, 1, x_118); +if (lean::is_scalar(x_50)) { + x_121 = lean::alloc_cnstr(1, 1, 0); +} else { + x_121 = x_50; +} +lean::cnstr_set(x_121, 0, x_120); +return x_121; +} +else +{ +obj* x_123; obj* x_126; obj* x_130; obj* x_131; +lean::dec(x_50); +x_123 = lean::cnstr_get(x_85, 1); +lean::inc(x_123); +lean::dec(x_85); +x_126 = lean::cnstr_get(x_88, 0); +lean::inc(x_126); +lean::dec(x_88); +lean::inc(x_126); +x_130 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_oldElabCommand___lambda__1), 2, 1); +lean::closure_set(x_130, 0, x_126); +x_131 = l_Lean_Elaborator_modifyCurrentScope(x_130, x_2, x_3, x_53); +if (lean::obj_tag(x_131) == 0) +{ +obj* x_134; obj* x_136; obj* x_137; +lean::dec(x_126); +lean::dec(x_123); +x_134 = lean::cnstr_get(x_131, 0); +if (lean::is_exclusive(x_131)) { + x_136 = x_131; +} else { + lean::inc(x_134); + lean::dec(x_131); + x_136 = lean::box(0); +} +if (lean::is_scalar(x_136)) { + x_137 = lean::alloc_cnstr(0, 1, 0); +} else { + x_137 = x_136; +} +lean::cnstr_set(x_137, 0, x_134); +return x_137; +} +else +{ +obj* x_138; obj* x_140; obj* x_141; obj* x_143; obj* x_144; obj* x_146; obj* x_148; obj* x_150; obj* x_152; obj* x_154; obj* x_156; obj* x_158; obj* x_161; obj* x_163; obj* x_165; obj* x_168; obj* x_169; obj* x_170; obj* x_171; obj* x_172; +x_138 = lean::cnstr_get(x_131, 0); +if (lean::is_exclusive(x_131)) { + x_140 = x_131; +} else { + lean::inc(x_138); + lean::dec(x_131); + x_140 = lean::box(0); +} +x_141 = lean::cnstr_get(x_138, 1); +if (lean::is_exclusive(x_138)) { + lean::cnstr_release(x_138, 0); + x_143 = x_138; +} else { + lean::inc(x_141); + lean::dec(x_138); + x_143 = lean::box(0); +} +x_144 = lean::cnstr_get(x_141, 0); +lean::inc(x_144); +x_146 = lean::cnstr_get(x_141, 1); +lean::inc(x_146); +x_148 = lean::cnstr_get(x_141, 2); +lean::inc(x_148); +x_150 = lean::cnstr_get(x_141, 3); +lean::inc(x_150); +x_152 = lean::cnstr_get(x_141, 4); +lean::inc(x_152); +x_154 = lean::cnstr_get(x_141, 5); +lean::inc(x_154); +x_156 = lean::cnstr_get(x_141, 6); +lean::inc(x_156); +x_158 = lean::cnstr_get(x_141, 7); +lean::inc(x_158); +lean::dec(x_141); +x_161 = lean::cnstr_get(x_126, 0); +lean::inc(x_161); +x_163 = lean::cnstr_get(x_126, 1); +lean::inc(x_163); +x_165 = lean::cnstr_get(x_126, 6); +lean::inc(x_165); +lean::dec(x_126); +x_168 = l_List_append___rarg(x_123, x_154); +x_169 = lean::alloc_cnstr(0, 11, 0); +lean::cnstr_set(x_169, 0, x_144); +lean::cnstr_set(x_169, 1, x_146); +lean::cnstr_set(x_169, 2, x_148); +lean::cnstr_set(x_169, 3, x_150); +lean::cnstr_set(x_169, 4, x_152); +lean::cnstr_set(x_169, 5, x_168); +lean::cnstr_set(x_169, 6, x_156); +lean::cnstr_set(x_169, 7, x_158); +lean::cnstr_set(x_169, 8, x_161); +lean::cnstr_set(x_169, 9, x_163); +lean::cnstr_set(x_169, 10, x_165); +x_170 = lean::box(0); +if (lean::is_scalar(x_143)) { + x_171 = lean::alloc_cnstr(0, 2, 0); +} else { + x_171 = x_143; +} +lean::cnstr_set(x_171, 0, x_170); +lean::cnstr_set(x_171, 1, x_169); +if (lean::is_scalar(x_140)) { + x_172 = lean::alloc_cnstr(1, 1, 0); +} else { + x_172 = x_140; +} +lean::cnstr_set(x_172, 0, x_171); +return x_172; +} +} +} +} +} +lbl_16: +{ switch (lean::obj_tag(x_1)) { case 10: { -obj* x_12; obj* x_14; obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_31; obj* x_32; obj* x_33; -x_12 = lean::cnstr_get(x_1, 0); -lean::inc(x_12); -x_14 = lean::cnstr_get(x_1, 1); -lean::inc(x_14); +obj* x_173; obj* x_175; obj* x_178; obj* x_179; obj* x_181; obj* x_182; obj* x_183; obj* x_186; obj* x_187; obj* x_188; +x_173 = lean::cnstr_get(x_1, 0); +lean::inc(x_173); +x_175 = lean::cnstr_get(x_1, 1); +lean::inc(x_175); lean::dec(x_1); -x_17 = lean::cnstr_get(x_5, 2); -lean::inc(x_17); -x_19 = l_Lean_Parser_Syntax_getPos(x_0); -x_20 = lean::mk_nat_obj(0ul); -x_21 = l_Option_getOrElse___main___rarg(x_19, x_20); -lean::dec(x_19); -x_23 = l_Lean_FileMap_toPosition(x_17, x_21); -x_24 = lean::cnstr_get(x_23, 1); -lean::inc(x_24); -x_26 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_27 = l_Lean_KVMap_setNat(x_12, x_26, x_24); -x_28 = lean::cnstr_get(x_23, 0); -lean::inc(x_28); -lean::dec(x_23); -x_31 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_32 = l_Lean_KVMap_setNat(x_27, x_31, x_28); -x_33 = lean_expr_mk_mdata(x_32, x_14); -x_10 = x_33; -goto lbl_11; +x_178 = l_Lean_FileMap_toPosition(x_7, x_15); +x_179 = lean::cnstr_get(x_178, 1); +lean::inc(x_179); +x_181 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_182 = l_Lean_KVMap_setNat(x_173, x_181, x_179); +x_183 = lean::cnstr_get(x_178, 0); +lean::inc(x_183); +lean::dec(x_178); +x_186 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_187 = l_Lean_KVMap_setNat(x_182, x_186, x_183); +x_188 = lean_expr_mk_mdata(x_187, x_175); +x_13 = x_188; +goto lbl_14; } default: { -x_10 = x_1; -goto lbl_11; -} -} -lbl_11: -{ -if (lean::obj_tag(x_9) == 0) -{ -obj* x_38; obj* x_40; obj* x_41; -lean::dec(x_5); -lean::dec(x_4); -lean::dec(x_3); -lean::dec(x_10); -x_38 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_40 = x_9; -} else { - lean::inc(x_38); - lean::dec(x_9); - x_40 = lean::box(0); -} -if (lean::is_scalar(x_40)) { - x_41 = lean::alloc_cnstr(0, 1, 0); -} else { - x_41 = x_40; -} -lean::cnstr_set(x_41, 0, x_38); -return x_41; -} -else -{ -obj* x_42; obj* x_45; obj* x_47; obj* x_51; -x_42 = lean::cnstr_get(x_9, 0); -lean::inc(x_42); -lean::dec(x_9); -x_45 = lean::cnstr_get(x_42, 0); -lean::inc(x_45); -x_47 = lean::cnstr_get(x_42, 1); -lean::inc(x_47); -lean::dec(x_42); -lean::inc(x_3); -x_51 = l_Lean_Elaborator_getNamespace(x_2, x_3, x_47); -if (lean::obj_tag(x_51) == 0) -{ -obj* x_57; obj* x_59; obj* x_60; -lean::dec(x_5); -lean::dec(x_4); -lean::dec(x_3); -lean::dec(x_10); -lean::dec(x_45); -x_57 = lean::cnstr_get(x_51, 0); -if (lean::is_exclusive(x_51)) { - x_59 = x_51; -} else { - lean::inc(x_57); - lean::dec(x_51); - x_59 = lean::box(0); -} -if (lean::is_scalar(x_59)) { - x_60 = lean::alloc_cnstr(0, 1, 0); -} else { - x_60 = x_59; -} -lean::cnstr_set(x_60, 0, x_57); -return x_60; -} -else -{ -obj* x_61; obj* x_63; obj* x_64; obj* x_66; obj* x_69; obj* x_72; obj* x_74; obj* x_76; obj* x_78; obj* x_81; obj* x_82; obj* x_84; obj* x_87; obj* x_88; obj* x_90; obj* x_91; obj* x_94; obj* x_97; obj* x_98; obj* x_101; -x_61 = lean::cnstr_get(x_51, 0); -if (lean::is_exclusive(x_51)) { - lean::cnstr_set(x_51, 0, lean::box(0)); - x_63 = x_51; -} else { - lean::inc(x_61); - lean::dec(x_51); - x_63 = lean::box(0); -} -x_64 = lean::cnstr_get(x_61, 0); -lean::inc(x_64); -x_66 = lean::cnstr_get(x_61, 1); -lean::inc(x_66); -lean::dec(x_61); -x_69 = lean::cnstr_get(x_5, 0); -lean::inc(x_69); -lean::dec(x_5); -x_72 = lean::cnstr_get(x_4, 8); -lean::inc(x_72); -x_74 = lean::cnstr_get(x_4, 9); -lean::inc(x_74); -x_76 = lean::cnstr_get(x_45, 3); -lean::inc(x_76); -x_78 = lean::cnstr_get(x_76, 0); -lean::inc(x_78); -lean::dec(x_76); -x_81 = l_List_reverse___rarg(x_78); -x_82 = lean::cnstr_get(x_45, 4); -lean::inc(x_82); -x_84 = lean::cnstr_get(x_82, 0); -lean::inc(x_84); -lean::dec(x_82); -x_87 = l_List_reverse___rarg(x_84); -x_88 = lean::cnstr_get(x_45, 5); -lean::inc(x_88); -x_90 = l_RBTree_toList___rarg(x_88); -x_91 = lean::cnstr_get(x_45, 8); -lean::inc(x_91); -lean::dec(x_45); -x_94 = lean::cnstr_get(x_4, 10); -lean::inc(x_94); -lean::dec(x_4); -x_97 = lean::alloc_cnstr(0, 8, 0); -lean::cnstr_set(x_97, 0, x_72); -lean::cnstr_set(x_97, 1, x_74); -lean::cnstr_set(x_97, 2, x_81); -lean::cnstr_set(x_97, 3, x_87); -lean::cnstr_set(x_97, 4, x_90); -lean::cnstr_set(x_97, 5, x_91); -lean::cnstr_set(x_97, 6, x_94); -lean::cnstr_set(x_97, 7, x_64); -x_98 = lean_elaborator_elaborate_command(x_69, x_10, x_97); -lean::dec(x_97); -lean::dec(x_69); -x_101 = lean::cnstr_get(x_98, 0); -lean::inc(x_101); -if (lean::obj_tag(x_101) == 0) -{ -obj* x_104; obj* x_106; obj* x_107; obj* x_109; obj* x_111; obj* x_113; obj* x_115; obj* x_117; obj* x_119; obj* x_120; obj* x_122; obj* x_124; obj* x_126; obj* x_128; obj* x_131; obj* x_132; obj* x_133; obj* x_134; -lean::dec(x_3); -x_104 = lean::cnstr_get(x_98, 1); -if (lean::is_exclusive(x_98)) { - lean::cnstr_release(x_98, 0); - x_106 = x_98; -} else { - lean::inc(x_104); - lean::dec(x_98); - x_106 = lean::box(0); -} -x_107 = lean::cnstr_get(x_66, 0); -lean::inc(x_107); -x_109 = lean::cnstr_get(x_66, 1); -lean::inc(x_109); -x_111 = lean::cnstr_get(x_66, 2); -lean::inc(x_111); -x_113 = lean::cnstr_get(x_66, 3); -lean::inc(x_113); -x_115 = lean::cnstr_get(x_66, 4); -lean::inc(x_115); -x_117 = lean::cnstr_get(x_66, 5); -lean::inc(x_117); -x_119 = l_List_append___rarg(x_104, x_117); -x_120 = lean::cnstr_get(x_66, 6); -lean::inc(x_120); -x_122 = lean::cnstr_get(x_66, 7); -lean::inc(x_122); -x_124 = lean::cnstr_get(x_66, 8); -lean::inc(x_124); -x_126 = lean::cnstr_get(x_66, 9); -lean::inc(x_126); -x_128 = lean::cnstr_get(x_66, 10); -lean::inc(x_128); -lean::dec(x_66); -x_131 = lean::alloc_cnstr(0, 11, 0); -lean::cnstr_set(x_131, 0, x_107); -lean::cnstr_set(x_131, 1, x_109); -lean::cnstr_set(x_131, 2, x_111); -lean::cnstr_set(x_131, 3, x_113); -lean::cnstr_set(x_131, 4, x_115); -lean::cnstr_set(x_131, 5, x_119); -lean::cnstr_set(x_131, 6, x_120); -lean::cnstr_set(x_131, 7, x_122); -lean::cnstr_set(x_131, 8, x_124); -lean::cnstr_set(x_131, 9, x_126); -lean::cnstr_set(x_131, 10, x_128); -x_132 = lean::box(0); -if (lean::is_scalar(x_106)) { - x_133 = lean::alloc_cnstr(0, 2, 0); -} else { - x_133 = x_106; -} -lean::cnstr_set(x_133, 0, x_132); -lean::cnstr_set(x_133, 1, x_131); -if (lean::is_scalar(x_63)) { - x_134 = lean::alloc_cnstr(1, 1, 0); -} else { - x_134 = x_63; -} -lean::cnstr_set(x_134, 0, x_133); -return x_134; -} -else -{ -obj* x_136; obj* x_139; obj* x_143; obj* x_144; -lean::dec(x_63); -x_136 = lean::cnstr_get(x_98, 1); -lean::inc(x_136); -lean::dec(x_98); -x_139 = lean::cnstr_get(x_101, 0); -lean::inc(x_139); -lean::dec(x_101); -lean::inc(x_139); -x_143 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_oldElabCommand___lambda__1), 2, 1); -lean::closure_set(x_143, 0, x_139); -x_144 = l_Lean_Elaborator_modifyCurrentScope(x_143, x_2, x_3, x_66); -if (lean::obj_tag(x_144) == 0) -{ -obj* x_147; obj* x_149; obj* x_150; -lean::dec(x_139); -lean::dec(x_136); -x_147 = lean::cnstr_get(x_144, 0); -if (lean::is_exclusive(x_144)) { - x_149 = x_144; -} else { - lean::inc(x_147); - lean::dec(x_144); - x_149 = lean::box(0); -} -if (lean::is_scalar(x_149)) { - x_150 = lean::alloc_cnstr(0, 1, 0); -} else { - x_150 = x_149; -} -lean::cnstr_set(x_150, 0, x_147); -return x_150; -} -else -{ -obj* x_151; obj* x_153; obj* x_154; obj* x_156; obj* x_157; obj* x_159; obj* x_161; obj* x_163; obj* x_165; obj* x_167; obj* x_169; obj* x_171; obj* x_174; obj* x_176; obj* x_178; obj* x_181; obj* x_182; obj* x_183; obj* x_184; obj* x_185; -x_151 = lean::cnstr_get(x_144, 0); -if (lean::is_exclusive(x_144)) { - x_153 = x_144; -} else { - lean::inc(x_151); - lean::dec(x_144); - x_153 = lean::box(0); -} -x_154 = lean::cnstr_get(x_151, 1); -if (lean::is_exclusive(x_151)) { - lean::cnstr_release(x_151, 0); - x_156 = x_151; -} else { - lean::inc(x_154); - lean::dec(x_151); - x_156 = lean::box(0); -} -x_157 = lean::cnstr_get(x_154, 0); -lean::inc(x_157); -x_159 = lean::cnstr_get(x_154, 1); -lean::inc(x_159); -x_161 = lean::cnstr_get(x_154, 2); -lean::inc(x_161); -x_163 = lean::cnstr_get(x_154, 3); -lean::inc(x_163); -x_165 = lean::cnstr_get(x_154, 4); -lean::inc(x_165); -x_167 = lean::cnstr_get(x_154, 5); -lean::inc(x_167); -x_169 = lean::cnstr_get(x_154, 6); -lean::inc(x_169); -x_171 = lean::cnstr_get(x_154, 7); -lean::inc(x_171); -lean::dec(x_154); -x_174 = lean::cnstr_get(x_139, 0); -lean::inc(x_174); -x_176 = lean::cnstr_get(x_139, 1); -lean::inc(x_176); -x_178 = lean::cnstr_get(x_139, 6); -lean::inc(x_178); -lean::dec(x_139); -x_181 = l_List_append___rarg(x_136, x_167); -x_182 = lean::alloc_cnstr(0, 11, 0); -lean::cnstr_set(x_182, 0, x_157); -lean::cnstr_set(x_182, 1, x_159); -lean::cnstr_set(x_182, 2, x_161); -lean::cnstr_set(x_182, 3, x_163); -lean::cnstr_set(x_182, 4, x_165); -lean::cnstr_set(x_182, 5, x_181); -lean::cnstr_set(x_182, 6, x_169); -lean::cnstr_set(x_182, 7, x_171); -lean::cnstr_set(x_182, 8, x_174); -lean::cnstr_set(x_182, 9, x_176); -lean::cnstr_set(x_182, 10, x_178); -x_183 = lean::box(0); -if (lean::is_scalar(x_156)) { - x_184 = lean::alloc_cnstr(0, 2, 0); -} else { - x_184 = x_156; -} -lean::cnstr_set(x_184, 0, x_183); -lean::cnstr_set(x_184, 1, x_182); -if (lean::is_scalar(x_153)) { - x_185 = lean::alloc_cnstr(1, 1, 0); -} else { - x_185 = x_153; -} -lean::cnstr_set(x_185, 0, x_184); -return x_185; -} -} +lean::dec(x_7); +lean::dec(x_15); +x_13 = x_1; +goto lbl_14; } } } @@ -17585,7 +17595,7 @@ return x_2; obj* l_Lean_Elaborator_declModifiersToPexpr(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_4; obj* x_5; obj* x_7; obj* x_9; uint8 x_11; obj* x_13; uint8 x_15; obj* x_17; obj* x_20; +obj* x_4; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_16; x_4 = lean::box(0); x_5 = lean::cnstr_get(x_0, 0); lean::inc(x_5); @@ -17593,266 +17603,424 @@ x_7 = lean::cnstr_get(x_0, 2); lean::inc(x_7); x_9 = lean::cnstr_get(x_0, 3); lean::inc(x_9); -x_11 = l_Option_isSome___main___rarg(x_9); -lean::dec(x_9); -x_13 = lean::cnstr_get(x_0, 4); +x_11 = lean::cnstr_get(x_0, 4); +lean::inc(x_11); +x_13 = lean::cnstr_get(x_0, 1); lean::inc(x_13); -x_15 = l_Option_isSome___main___rarg(x_13); -lean::dec(x_13); -x_17 = lean::cnstr_get(x_0, 1); -lean::inc(x_17); lean::dec(x_0); if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_7) == 0) { -x_20 = x_4; -goto lbl_21; +x_16 = x_4; +goto lbl_17; } else { +obj* x_18; +x_18 = lean::cnstr_get(x_7, 0); +lean::inc(x_18); +lean::dec(x_7); +if (lean::obj_tag(x_18) == 0) +{ obj* x_22; -x_22 = lean::cnstr_get(x_7, 0); -lean::inc(x_22); -lean::dec(x_7); -if (lean::obj_tag(x_22) == 0) -{ -obj* x_26; -lean::dec(x_22); -x_26 = l_Lean_Elaborator_declModifiersToPexpr___closed__3; -x_20 = x_26; -goto lbl_21; +lean::dec(x_18); +x_22 = l_Lean_Elaborator_declModifiersToPexpr___closed__3; +x_16 = x_22; +goto lbl_17; } else { -obj* x_28; -lean::dec(x_22); -x_28 = l_Lean_Elaborator_declModifiersToPexpr___closed__4; -x_20 = x_28; -goto lbl_21; +obj* x_24; +lean::dec(x_18); +x_24 = l_Lean_Elaborator_declModifiersToPexpr___closed__4; +x_16 = x_24; +goto lbl_17; } } } else { -obj* x_29; obj* x_32; -x_29 = lean::cnstr_get(x_5, 0); -lean::inc(x_29); +obj* x_25; obj* x_28; +x_25 = lean::cnstr_get(x_5, 0); +lean::inc(x_25); lean::dec(x_5); -x_32 = lean::cnstr_get(x_29, 1); -lean::inc(x_32); -lean::dec(x_29); -if (lean::obj_tag(x_32) == 0) +x_28 = lean::cnstr_get(x_25, 1); +lean::inc(x_28); +lean::dec(x_25); +if (lean::obj_tag(x_28) == 0) { if (lean::obj_tag(x_7) == 0) { -x_20 = x_4; -goto lbl_21; +x_16 = x_4; +goto lbl_17; } else { +obj* x_31; +x_31 = lean::cnstr_get(x_7, 0); +lean::inc(x_31); +lean::dec(x_7); +if (lean::obj_tag(x_31) == 0) +{ obj* x_35; -x_35 = lean::cnstr_get(x_7, 0); -lean::inc(x_35); -lean::dec(x_7); -if (lean::obj_tag(x_35) == 0) -{ -obj* x_39; -lean::dec(x_35); -x_39 = l_Lean_Elaborator_declModifiersToPexpr___closed__3; -x_20 = x_39; -goto lbl_21; +lean::dec(x_31); +x_35 = l_Lean_Elaborator_declModifiersToPexpr___closed__3; +x_16 = x_35; +goto lbl_17; } else { -obj* x_41; -lean::dec(x_35); -x_41 = l_Lean_Elaborator_declModifiersToPexpr___closed__4; -x_20 = x_41; -goto lbl_21; +obj* x_37; +lean::dec(x_31); +x_37 = l_Lean_Elaborator_declModifiersToPexpr___closed__4; +x_16 = x_37; +goto lbl_17; } } } else { -obj* x_42; obj* x_45; obj* x_48; obj* x_49; -x_42 = lean::cnstr_get(x_32, 0); -lean::inc(x_42); -lean::dec(x_32); -x_45 = lean::cnstr_get(x_42, 1); -lean::inc(x_45); -lean::dec(x_42); -x_48 = l_Lean_Elaborator_declModifiersToPexpr___closed__5; -x_49 = l_Lean_KVMap_setString(x_4, x_48, x_45); +obj* x_38; obj* x_41; obj* x_44; obj* x_45; +x_38 = lean::cnstr_get(x_28, 0); +lean::inc(x_38); +lean::dec(x_28); +x_41 = lean::cnstr_get(x_38, 1); +lean::inc(x_41); +lean::dec(x_38); +x_44 = l_Lean_Elaborator_declModifiersToPexpr___closed__5; +x_45 = l_Lean_KVMap_setString(x_4, x_44, x_41); if (lean::obj_tag(x_7) == 0) { -x_20 = x_49; -goto lbl_21; +x_16 = x_45; +goto lbl_17; } else { -obj* x_50; -x_50 = lean::cnstr_get(x_7, 0); -lean::inc(x_50); +obj* x_46; +x_46 = lean::cnstr_get(x_7, 0); +lean::inc(x_46); lean::dec(x_7); -if (lean::obj_tag(x_50) == 0) +if (lean::obj_tag(x_46) == 0) +{ +obj* x_50; uint8 x_51; obj* x_52; +lean::dec(x_46); +x_50 = l_Lean_Elaborator_declModifiersToPexpr___closed__6; +x_51 = 1; +x_52 = l_Lean_KVMap_setBool(x_45, x_50, x_51); +x_16 = x_52; +goto lbl_17; +} +else { obj* x_54; uint8 x_55; obj* x_56; -lean::dec(x_50); -x_54 = l_Lean_Elaborator_declModifiersToPexpr___closed__6; +lean::dec(x_46); +x_54 = l_Lean_Elaborator_declModifiersToPexpr___closed__7; x_55 = 1; -x_56 = l_Lean_KVMap_setBool(x_49, x_54, x_55); -x_20 = x_56; -goto lbl_21; +x_56 = l_Lean_KVMap_setBool(x_45, x_54, x_55); +x_16 = x_56; +goto lbl_17; +} +} +} +} +lbl_17: +{ +uint8 x_57; +if (lean::obj_tag(x_9) == 0) +{ +uint8 x_59; +x_59 = 0; +x_57 = x_59; +goto lbl_58; } else { -obj* x_58; uint8 x_59; obj* x_60; -lean::dec(x_50); -x_58 = l_Lean_Elaborator_declModifiersToPexpr___closed__7; -x_59 = 1; -x_60 = l_Lean_KVMap_setBool(x_49, x_58, x_59); -x_20 = x_60; -goto lbl_21; +uint8 x_61; +lean::dec(x_9); +x_61 = 1; +x_57 = x_61; +goto lbl_58; } -} -} -} -lbl_21: +lbl_58: { -obj* x_61; obj* x_62; obj* x_63; obj* x_64; -x_61 = l_Lean_Elaborator_declModifiersToPexpr___closed__1; -x_62 = l_Lean_KVMap_setBool(x_20, x_61, x_11); -x_63 = l_Lean_Elaborator_declModifiersToPexpr___closed__2; -x_64 = l_Lean_KVMap_setBool(x_62, x_63, x_15); -if (lean::obj_tag(x_17) == 0) +obj* x_62; obj* x_63; +x_62 = l_Lean_Elaborator_declModifiersToPexpr___closed__1; +x_63 = l_Lean_KVMap_setBool(x_16, x_62, x_57); +if (lean::obj_tag(x_11) == 0) { -obj* x_65; -x_65 = l_Lean_Elaborator_attrsToPexpr(x_4, x_1, x_2, x_3); -if (lean::obj_tag(x_65) == 0) +obj* x_64; uint8 x_65; obj* x_66; +x_64 = l_Lean_Elaborator_declModifiersToPexpr___closed__2; +x_65 = 0; +x_66 = l_Lean_KVMap_setBool(x_63, x_64, x_65); +if (lean::obj_tag(x_13) == 0) { -obj* x_67; obj* x_69; obj* x_70; -lean::dec(x_64); -x_67 = lean::cnstr_get(x_65, 0); -if (lean::is_exclusive(x_65)) { - x_69 = x_65; +obj* x_67; +x_67 = l_Lean_Elaborator_attrsToPexpr(x_4, x_1, x_2, x_3); +if (lean::obj_tag(x_67) == 0) +{ +obj* x_69; obj* x_71; obj* x_72; +lean::dec(x_66); +x_69 = lean::cnstr_get(x_67, 0); +if (lean::is_exclusive(x_67)) { + x_71 = x_67; } else { - lean::inc(x_67); - lean::dec(x_65); - x_69 = lean::box(0); + lean::inc(x_69); + lean::dec(x_67); + x_71 = lean::box(0); } -if (lean::is_scalar(x_69)) { - x_70 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_71)) { + x_72 = lean::alloc_cnstr(0, 1, 0); } else { - x_70 = x_69; + x_72 = x_71; } -lean::cnstr_set(x_70, 0, x_67); -return x_70; +lean::cnstr_set(x_72, 0, x_69); +return x_72; } else { -obj* x_71; obj* x_73; obj* x_74; obj* x_76; obj* x_78; obj* x_79; obj* x_80; obj* x_81; -x_71 = lean::cnstr_get(x_65, 0); -if (lean::is_exclusive(x_65)) { - x_73 = x_65; +obj* x_73; obj* x_75; obj* x_76; obj* x_78; obj* x_80; obj* x_81; obj* x_82; obj* x_83; +x_73 = lean::cnstr_get(x_67, 0); +if (lean::is_exclusive(x_67)) { + x_75 = x_67; } else { - lean::inc(x_71); - lean::dec(x_65); - x_73 = lean::box(0); + lean::inc(x_73); + lean::dec(x_67); + x_75 = lean::box(0); } -x_74 = lean::cnstr_get(x_71, 0); -x_76 = lean::cnstr_get(x_71, 1); -if (lean::is_exclusive(x_71)) { - x_78 = x_71; +x_76 = lean::cnstr_get(x_73, 0); +x_78 = lean::cnstr_get(x_73, 1); +if (lean::is_exclusive(x_73)) { + x_80 = x_73; } else { - lean::inc(x_74); lean::inc(x_76); - lean::dec(x_71); - x_78 = lean::box(0); + lean::inc(x_78); + lean::dec(x_73); + x_80 = lean::box(0); } -x_79 = lean_expr_mk_mdata(x_64, x_74); -if (lean::is_scalar(x_78)) { - x_80 = lean::alloc_cnstr(0, 2, 0); +x_81 = lean_expr_mk_mdata(x_66, x_76); +if (lean::is_scalar(x_80)) { + x_82 = lean::alloc_cnstr(0, 2, 0); } else { - x_80 = x_78; + x_82 = x_80; } -lean::cnstr_set(x_80, 0, x_79); -lean::cnstr_set(x_80, 1, x_76); -if (lean::is_scalar(x_73)) { - x_81 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_82, 0, x_81); +lean::cnstr_set(x_82, 1, x_78); +if (lean::is_scalar(x_75)) { + x_83 = lean::alloc_cnstr(1, 1, 0); } else { - x_81 = x_73; + x_83 = x_75; } -lean::cnstr_set(x_81, 0, x_80); -return x_81; +lean::cnstr_set(x_83, 0, x_82); +return x_83; } } else { -obj* x_82; obj* x_85; obj* x_88; -x_82 = lean::cnstr_get(x_17, 0); -lean::inc(x_82); -lean::dec(x_17); -x_85 = lean::cnstr_get(x_82, 1); -lean::inc(x_85); -lean::dec(x_82); -x_88 = l_Lean_Elaborator_attrsToPexpr(x_85, x_1, x_2, x_3); -if (lean::obj_tag(x_88) == 0) +obj* x_84; obj* x_87; obj* x_90; +x_84 = lean::cnstr_get(x_13, 0); +lean::inc(x_84); +lean::dec(x_13); +x_87 = lean::cnstr_get(x_84, 1); +lean::inc(x_87); +lean::dec(x_84); +x_90 = l_Lean_Elaborator_attrsToPexpr(x_87, x_1, x_2, x_3); +if (lean::obj_tag(x_90) == 0) { -obj* x_90; obj* x_92; obj* x_93; -lean::dec(x_64); -x_90 = lean::cnstr_get(x_88, 0); -if (lean::is_exclusive(x_88)) { - x_92 = x_88; +obj* x_92; obj* x_94; obj* x_95; +lean::dec(x_66); +x_92 = lean::cnstr_get(x_90, 0); +if (lean::is_exclusive(x_90)) { + x_94 = x_90; } else { - lean::inc(x_90); - lean::dec(x_88); - x_92 = lean::box(0); + lean::inc(x_92); + lean::dec(x_90); + x_94 = lean::box(0); } -if (lean::is_scalar(x_92)) { - x_93 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_94)) { + x_95 = lean::alloc_cnstr(0, 1, 0); } else { - x_93 = x_92; + x_95 = x_94; } -lean::cnstr_set(x_93, 0, x_90); -return x_93; +lean::cnstr_set(x_95, 0, x_92); +return x_95; } else { -obj* x_94; obj* x_96; obj* x_97; obj* x_99; obj* x_101; obj* x_102; obj* x_103; obj* x_104; -x_94 = lean::cnstr_get(x_88, 0); -if (lean::is_exclusive(x_88)) { - x_96 = x_88; +obj* x_96; obj* x_98; obj* x_99; obj* x_101; obj* x_103; obj* x_104; obj* x_105; obj* x_106; +x_96 = lean::cnstr_get(x_90, 0); +if (lean::is_exclusive(x_90)) { + x_98 = x_90; } else { - lean::inc(x_94); - lean::dec(x_88); - x_96 = lean::box(0); + lean::inc(x_96); + lean::dec(x_90); + x_98 = lean::box(0); } -x_97 = lean::cnstr_get(x_94, 0); -x_99 = lean::cnstr_get(x_94, 1); -if (lean::is_exclusive(x_94)) { - x_101 = x_94; +x_99 = lean::cnstr_get(x_96, 0); +x_101 = lean::cnstr_get(x_96, 1); +if (lean::is_exclusive(x_96)) { + x_103 = x_96; } else { - lean::inc(x_97); lean::inc(x_99); - lean::dec(x_94); - x_101 = lean::box(0); + lean::inc(x_101); + lean::dec(x_96); + x_103 = lean::box(0); } -x_102 = lean_expr_mk_mdata(x_64, x_97); -if (lean::is_scalar(x_101)) { - x_103 = lean::alloc_cnstr(0, 2, 0); +x_104 = lean_expr_mk_mdata(x_66, x_99); +if (lean::is_scalar(x_103)) { + x_105 = lean::alloc_cnstr(0, 2, 0); } else { - x_103 = x_101; + x_105 = x_103; } -lean::cnstr_set(x_103, 0, x_102); -lean::cnstr_set(x_103, 1, x_99); -if (lean::is_scalar(x_96)) { - x_104 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_105, 0, x_104); +lean::cnstr_set(x_105, 1, x_101); +if (lean::is_scalar(x_98)) { + x_106 = lean::alloc_cnstr(1, 1, 0); } else { - x_104 = x_96; + x_106 = x_98; +} +lean::cnstr_set(x_106, 0, x_105); +return x_106; +} +} +} +else +{ +obj* x_108; uint8 x_109; obj* x_110; +lean::dec(x_11); +x_108 = l_Lean_Elaborator_declModifiersToPexpr___closed__2; +x_109 = 1; +x_110 = l_Lean_KVMap_setBool(x_63, x_108, x_109); +if (lean::obj_tag(x_13) == 0) +{ +obj* x_111; +x_111 = l_Lean_Elaborator_attrsToPexpr(x_4, x_1, x_2, x_3); +if (lean::obj_tag(x_111) == 0) +{ +obj* x_113; obj* x_115; obj* x_116; +lean::dec(x_110); +x_113 = lean::cnstr_get(x_111, 0); +if (lean::is_exclusive(x_111)) { + x_115 = x_111; +} else { + lean::inc(x_113); + lean::dec(x_111); + x_115 = lean::box(0); +} +if (lean::is_scalar(x_115)) { + x_116 = lean::alloc_cnstr(0, 1, 0); +} else { + x_116 = x_115; +} +lean::cnstr_set(x_116, 0, x_113); +return x_116; +} +else +{ +obj* x_117; obj* x_119; obj* x_120; obj* x_122; obj* x_124; obj* x_125; obj* x_126; obj* x_127; +x_117 = lean::cnstr_get(x_111, 0); +if (lean::is_exclusive(x_111)) { + x_119 = x_111; +} else { + lean::inc(x_117); + lean::dec(x_111); + x_119 = lean::box(0); +} +x_120 = lean::cnstr_get(x_117, 0); +x_122 = lean::cnstr_get(x_117, 1); +if (lean::is_exclusive(x_117)) { + x_124 = x_117; +} else { + lean::inc(x_120); + lean::inc(x_122); + lean::dec(x_117); + x_124 = lean::box(0); +} +x_125 = lean_expr_mk_mdata(x_110, x_120); +if (lean::is_scalar(x_124)) { + x_126 = lean::alloc_cnstr(0, 2, 0); +} else { + x_126 = x_124; +} +lean::cnstr_set(x_126, 0, x_125); +lean::cnstr_set(x_126, 1, x_122); +if (lean::is_scalar(x_119)) { + x_127 = lean::alloc_cnstr(1, 1, 0); +} else { + x_127 = x_119; +} +lean::cnstr_set(x_127, 0, x_126); +return x_127; +} +} +else +{ +obj* x_128; obj* x_131; obj* x_134; +x_128 = lean::cnstr_get(x_13, 0); +lean::inc(x_128); +lean::dec(x_13); +x_131 = lean::cnstr_get(x_128, 1); +lean::inc(x_131); +lean::dec(x_128); +x_134 = l_Lean_Elaborator_attrsToPexpr(x_131, x_1, x_2, x_3); +if (lean::obj_tag(x_134) == 0) +{ +obj* x_136; obj* x_138; obj* x_139; +lean::dec(x_110); +x_136 = lean::cnstr_get(x_134, 0); +if (lean::is_exclusive(x_134)) { + x_138 = x_134; +} else { + lean::inc(x_136); + lean::dec(x_134); + x_138 = lean::box(0); +} +if (lean::is_scalar(x_138)) { + x_139 = lean::alloc_cnstr(0, 1, 0); +} else { + x_139 = x_138; +} +lean::cnstr_set(x_139, 0, x_136); +return x_139; +} +else +{ +obj* x_140; obj* x_142; obj* x_143; obj* x_145; obj* x_147; obj* x_148; obj* x_149; obj* x_150; +x_140 = lean::cnstr_get(x_134, 0); +if (lean::is_exclusive(x_134)) { + x_142 = x_134; +} else { + lean::inc(x_140); + lean::dec(x_134); + x_142 = lean::box(0); +} +x_143 = lean::cnstr_get(x_140, 0); +x_145 = lean::cnstr_get(x_140, 1); +if (lean::is_exclusive(x_140)) { + x_147 = x_140; +} else { + lean::inc(x_143); + lean::inc(x_145); + lean::dec(x_140); + x_147 = lean::box(0); +} +x_148 = lean_expr_mk_mdata(x_110, x_143); +if (lean::is_scalar(x_147)) { + x_149 = lean::alloc_cnstr(0, 2, 0); +} else { + x_149 = x_147; +} +lean::cnstr_set(x_149, 0, x_148); +lean::cnstr_set(x_149, 1, x_145); +if (lean::is_scalar(x_142)) { + x_150 = lean::alloc_cnstr(1, 1, 0); +} else { + x_150 = x_142; +} +lean::cnstr_set(x_150, 0, x_149); +return x_150; +} } -lean::cnstr_set(x_104, 0, x_103); -return x_104; } } } @@ -18008,7 +18176,7 @@ lean::dec(x_23); x_34 = lean::cnstr_get(x_31, 1); lean::inc(x_34); lean::dec(x_31); -x_37 = lean::alloc_closure(reinterpret_cast(l_ExceptT_Monad___rarg___lambda__8___boxed), 2, 1); +x_37 = lean::alloc_closure(reinterpret_cast(l_fix1___rarg___lambda__1___boxed), 2, 1); lean::closure_set(x_37, 0, x_16); x_38 = l_Lean_Elaborator_modifyCurrentScope(x_37, x_1, x_2, x_34); lean::dec(x_1); @@ -22396,6 +22564,24 @@ return x_297; obj* _init_l_Lean_Elaborator_Declaration_elaborate___closed__1() { _start: { +obj* x_0; obj* x_1; obj* x_2; obj* x_4; obj* x_5; obj* x_6; +x_0 = lean::box(0); +x_1 = lean::mk_string("def"); +x_2 = l_String_trim(x_1); +lean::dec(x_1); +x_4 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_4, 0, x_0); +lean::cnstr_set(x_4, 1, x_2); +x_5 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_5, 0, x_4); +x_6 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_6, 0, x_5); +return x_6; +} +} +obj* _init_l_Lean_Elaborator_Declaration_elaborate___closed__2() { +_start: +{ obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_5; obj* x_6; obj* x_7; obj* x_8; x_0 = lean::box(0); x_1 = lean::mk_string("."); @@ -22416,24 +22602,6 @@ lean::cnstr_set(x_8, 1, x_0); return x_8; } } -obj* _init_l_Lean_Elaborator_Declaration_elaborate___closed__2() { -_start: -{ -obj* x_0; obj* x_1; obj* x_2; obj* x_4; obj* x_5; obj* x_6; -x_0 = lean::box(0); -x_1 = lean::mk_string("def"); -x_2 = l_String_trim(x_1); -lean::dec(x_1); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_2); -x_5 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_5, 0, x_4); -x_6 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_6, 0, x_5); -return x_6; -} -} obj* _init_l_Lean_Elaborator_Declaration_elaborate___closed__3() { _start: { @@ -22566,7 +22734,7 @@ return x_46; } case 1: { -obj* x_47; obj* x_50; obj* x_53; obj* x_54; obj* x_56; obj* x_57; obj* x_59; obj* x_61; obj* x_63; obj* x_66; obj* x_67; obj* x_68; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; +obj* x_47; obj* x_50; obj* x_53; obj* x_54; obj* x_56; obj* x_58; obj* x_60; obj* x_63; obj* x_64; x_47 = lean::cnstr_get(x_12, 0); lean::inc(x_47); lean::dec(x_12); @@ -22576,324 +22744,351 @@ lean::dec(x_11); x_53 = lean::box(0); x_54 = lean::cnstr_get(x_47, 1); lean::inc(x_54); -x_56 = l_Lean_Elaborator_Declaration_elaborate___closed__1; -x_57 = l_Option_getOrElse___main___rarg(x_54, x_56); -lean::dec(x_54); -x_59 = lean::cnstr_get(x_47, 2); -lean::inc(x_59); -x_61 = lean::cnstr_get(x_59, 0); -lean::inc(x_61); -x_63 = lean::cnstr_get(x_59, 1); -lean::inc(x_63); -lean::dec(x_59); -x_66 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_66, 0, x_63); -x_67 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_67, 0, x_61); -lean::cnstr_set(x_67, 1, x_66); -x_68 = lean::cnstr_get(x_47, 3); -lean::inc(x_68); +x_56 = lean::cnstr_get(x_47, 2); +lean::inc(x_56); +x_58 = lean::cnstr_get(x_56, 0); +lean::inc(x_58); +x_60 = lean::cnstr_get(x_56, 1); +lean::inc(x_60); +lean::dec(x_56); +x_63 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_63, 0, x_60); +x_64 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_64, 0, x_58); +lean::cnstr_set(x_64, 1, x_63); +if (lean::obj_tag(x_54) == 0) +{ +obj* x_65; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; +x_65 = lean::cnstr_get(x_47, 3); +lean::inc(x_65); lean::dec(x_47); -x_71 = l_Lean_Elaborator_Declaration_elaborate___closed__2; -x_72 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_72, 0, x_71); -lean::cnstr_set(x_72, 1, x_53); -lean::cnstr_set(x_72, 2, x_57); -lean::cnstr_set(x_72, 3, x_67); -lean::cnstr_set(x_72, 4, x_68); -x_73 = lean::mk_nat_obj(4ul); -x_74 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___boxed), 7, 4); -lean::closure_set(x_74, 0, x_0); -lean::closure_set(x_74, 1, x_50); -lean::closure_set(x_74, 2, x_72); -lean::closure_set(x_74, 3, x_73); -x_75 = l_Lean_Elaborator_locally(x_74, x_1, x_2, x_3); -return x_75; +x_68 = l_Lean_Elaborator_Declaration_elaborate___closed__1; +x_69 = l_Lean_Elaborator_Declaration_elaborate___closed__2; +x_70 = lean::alloc_cnstr(0, 5, 0); +lean::cnstr_set(x_70, 0, x_68); +lean::cnstr_set(x_70, 1, x_53); +lean::cnstr_set(x_70, 2, x_69); +lean::cnstr_set(x_70, 3, x_64); +lean::cnstr_set(x_70, 4, x_65); +x_71 = lean::mk_nat_obj(4ul); +x_72 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___boxed), 7, 4); +lean::closure_set(x_72, 0, x_0); +lean::closure_set(x_72, 1, x_50); +lean::closure_set(x_72, 2, x_70); +lean::closure_set(x_72, 3, x_71); +x_73 = l_Lean_Elaborator_locally(x_72, x_1, x_2, x_3); +return x_73; +} +else +{ +obj* x_74; obj* x_77; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; +x_74 = lean::cnstr_get(x_47, 3); +lean::inc(x_74); +lean::dec(x_47); +x_77 = lean::cnstr_get(x_54, 0); +lean::inc(x_77); +lean::dec(x_54); +x_80 = l_Lean_Elaborator_Declaration_elaborate___closed__1; +x_81 = lean::alloc_cnstr(0, 5, 0); +lean::cnstr_set(x_81, 0, x_80); +lean::cnstr_set(x_81, 1, x_53); +lean::cnstr_set(x_81, 2, x_77); +lean::cnstr_set(x_81, 3, x_64); +lean::cnstr_set(x_81, 4, x_74); +x_82 = lean::mk_nat_obj(4ul); +x_83 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___boxed), 7, 4); +lean::closure_set(x_83, 0, x_0); +lean::closure_set(x_83, 1, x_50); +lean::closure_set(x_83, 2, x_81); +lean::closure_set(x_83, 3, x_82); +x_84 = l_Lean_Elaborator_locally(x_83, x_1, x_2, x_3); +return x_84; +} } case 2: { -obj* x_76; obj* x_79; obj* x_82; obj* x_83; obj* x_85; obj* x_87; obj* x_90; obj* x_91; obj* x_92; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; -x_76 = lean::cnstr_get(x_12, 0); -lean::inc(x_76); -lean::dec(x_12); -x_79 = lean::cnstr_get(x_11, 0); -lean::inc(x_79); -lean::dec(x_11); -x_82 = lean::box(0); -x_83 = lean::cnstr_get(x_76, 1); -lean::inc(x_83); -x_85 = lean::cnstr_get(x_83, 0); +obj* x_85; obj* x_88; obj* x_91; obj* x_92; obj* x_94; obj* x_96; obj* x_99; obj* x_100; obj* x_101; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; +x_85 = lean::cnstr_get(x_12, 0); lean::inc(x_85); -x_87 = lean::cnstr_get(x_83, 1); -lean::inc(x_87); -lean::dec(x_83); -x_90 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_90, 0, x_87); -x_91 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_91, 0, x_85); -lean::cnstr_set(x_91, 1, x_90); -x_92 = lean::cnstr_get(x_76, 2); +lean::dec(x_12); +x_88 = lean::cnstr_get(x_11, 0); +lean::inc(x_88); +lean::dec(x_11); +x_91 = lean::box(0); +x_92 = lean::cnstr_get(x_85, 1); lean::inc(x_92); -lean::dec(x_76); -x_95 = l_Lean_Elaborator_Declaration_elaborate___closed__2; -x_96 = l_Lean_Elaborator_Declaration_elaborate___closed__1; -x_97 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_97, 0, x_95); -lean::cnstr_set(x_97, 1, x_82); -lean::cnstr_set(x_97, 2, x_96); -lean::cnstr_set(x_97, 3, x_91); -lean::cnstr_set(x_97, 4, x_92); -x_98 = lean::mk_nat_obj(3ul); -x_99 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___boxed), 7, 4); -lean::closure_set(x_99, 0, x_0); -lean::closure_set(x_99, 1, x_79); -lean::closure_set(x_99, 2, x_97); -lean::closure_set(x_99, 3, x_98); -x_100 = l_Lean_Elaborator_locally(x_99, x_1, x_2, x_3); -return x_100; +x_94 = lean::cnstr_get(x_92, 0); +lean::inc(x_94); +x_96 = lean::cnstr_get(x_92, 1); +lean::inc(x_96); +lean::dec(x_92); +x_99 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_99, 0, x_96); +x_100 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_100, 0, x_94); +lean::cnstr_set(x_100, 1, x_99); +x_101 = lean::cnstr_get(x_85, 2); +lean::inc(x_101); +lean::dec(x_85); +x_104 = l_Lean_Elaborator_Declaration_elaborate___closed__1; +x_105 = l_Lean_Elaborator_Declaration_elaborate___closed__2; +x_106 = lean::alloc_cnstr(0, 5, 0); +lean::cnstr_set(x_106, 0, x_104); +lean::cnstr_set(x_106, 1, x_91); +lean::cnstr_set(x_106, 2, x_105); +lean::cnstr_set(x_106, 3, x_100); +lean::cnstr_set(x_106, 4, x_101); +x_107 = lean::mk_nat_obj(3ul); +x_108 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___boxed), 7, 4); +lean::closure_set(x_108, 0, x_0); +lean::closure_set(x_108, 1, x_88); +lean::closure_set(x_108, 2, x_106); +lean::closure_set(x_108, 3, x_107); +x_109 = l_Lean_Elaborator_locally(x_108, x_1, x_2, x_3); +return x_109; } case 3: { -obj* x_101; obj* x_104; obj* x_106; -x_101 = lean::cnstr_get(x_12, 0); -lean::inc(x_101); +obj* x_110; obj* x_113; obj* x_115; +x_110 = lean::cnstr_get(x_12, 0); +lean::inc(x_110); lean::dec(x_12); -x_104 = lean::cnstr_get(x_101, 2); -lean::inc(x_104); -x_106 = lean::cnstr_get(x_104, 0); -lean::inc(x_106); -if (lean::obj_tag(x_106) == 0) +x_113 = lean::cnstr_get(x_110, 2); +lean::inc(x_113); +x_115 = lean::cnstr_get(x_113, 0); +lean::inc(x_115); +if (lean::obj_tag(x_115) == 0) { -obj* x_112; +obj* x_121; lean::dec(x_11); -lean::dec(x_104); -lean::dec(x_106); -lean::dec(x_101); -x_112 = lean::box(0); -x_4 = x_112; +lean::dec(x_113); +lean::dec(x_115); +lean::dec(x_110); +x_121 = lean::box(0); +x_4 = x_121; goto lbl_5; } else { -obj* x_113; -x_113 = lean::cnstr_get(x_106, 0); -lean::inc(x_113); -lean::dec(x_106); -if (lean::obj_tag(x_113) == 0) +obj* x_122; +x_122 = lean::cnstr_get(x_115, 0); +lean::inc(x_122); +lean::dec(x_115); +if (lean::obj_tag(x_122) == 0) { -obj* x_116; obj* x_119; obj* x_122; obj* x_123; obj* x_126; obj* x_127; obj* x_128; obj* x_129; obj* x_130; -x_116 = lean::cnstr_get(x_101, 1); -lean::inc(x_116); -lean::dec(x_101); -x_119 = lean::cnstr_get(x_104, 1); -lean::inc(x_119); -lean::dec(x_104); -x_122 = lean::box(0); -x_123 = lean::cnstr_get(x_11, 0); -lean::inc(x_123); +obj* x_125; obj* x_128; obj* x_131; obj* x_132; obj* x_135; obj* x_136; obj* x_137; obj* x_138; obj* x_139; +x_125 = lean::cnstr_get(x_110, 1); +lean::inc(x_125); +lean::dec(x_110); +x_128 = lean::cnstr_get(x_113, 1); +lean::inc(x_128); +lean::dec(x_113); +x_131 = lean::box(0); +x_132 = lean::cnstr_get(x_11, 0); +lean::inc(x_132); lean::dec(x_11); -x_126 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_declModifiersToPexpr___boxed), 4, 1); -lean::closure_set(x_126, 0, x_123); -x_127 = l_Lean_Elaborator_Declaration_elaborate___closed__3; -x_128 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_Declaration_elaborate___lambda__1___boxed), 9, 5); -lean::closure_set(x_128, 0, x_119); -lean::closure_set(x_128, 1, x_116); -lean::closure_set(x_128, 2, x_122); -lean::closure_set(x_128, 3, x_127); -lean::closure_set(x_128, 4, x_0); -x_129 = lean::alloc_closure(reinterpret_cast(l_ReaderT_bind___at_Lean_Elaborator_Declaration_elaborate___spec__1___rarg), 5, 2); -lean::closure_set(x_129, 0, x_126); -lean::closure_set(x_129, 1, x_128); -x_130 = l_Lean_Elaborator_locally(x_129, x_1, x_2, x_3); -return x_130; +x_135 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_declModifiersToPexpr___boxed), 4, 1); +lean::closure_set(x_135, 0, x_132); +x_136 = l_Lean_Elaborator_Declaration_elaborate___closed__3; +x_137 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_Declaration_elaborate___lambda__1___boxed), 9, 5); +lean::closure_set(x_137, 0, x_128); +lean::closure_set(x_137, 1, x_125); +lean::closure_set(x_137, 2, x_131); +lean::closure_set(x_137, 3, x_136); +lean::closure_set(x_137, 4, x_0); +x_138 = lean::alloc_closure(reinterpret_cast(l_ReaderT_bind___at_Lean_Elaborator_Declaration_elaborate___spec__1___rarg), 5, 2); +lean::closure_set(x_138, 0, x_135); +lean::closure_set(x_138, 1, x_137); +x_139 = l_Lean_Elaborator_locally(x_138, x_1, x_2, x_3); +return x_139; } else { -obj* x_135; +obj* x_144; lean::dec(x_11); lean::dec(x_113); -lean::dec(x_104); -lean::dec(x_101); -x_135 = lean::box(0); -x_4 = x_135; +lean::dec(x_122); +lean::dec(x_110); +x_144 = lean::box(0); +x_4 = x_144; goto lbl_5; } } } case 4: { -obj* x_136; obj* x_139; -x_136 = lean::cnstr_get(x_12, 0); -lean::inc(x_136); +obj* x_145; obj* x_148; +x_145 = lean::cnstr_get(x_12, 0); +lean::inc(x_145); lean::dec(x_12); -x_139 = lean::cnstr_get(x_136, 0); -lean::inc(x_139); -if (lean::obj_tag(x_139) == 0) +x_148 = lean::cnstr_get(x_145, 0); +lean::inc(x_148); +if (lean::obj_tag(x_148) == 0) { -obj* x_141; obj* x_143; -x_141 = lean::cnstr_get(x_136, 4); -lean::inc(x_141); -x_143 = lean::cnstr_get(x_141, 0); -lean::inc(x_143); -if (lean::obj_tag(x_143) == 0) +obj* x_150; obj* x_152; +x_150 = lean::cnstr_get(x_145, 4); +lean::inc(x_150); +x_152 = lean::cnstr_get(x_150, 0); +lean::inc(x_152); +if (lean::obj_tag(x_152) == 0) { -obj* x_149; -lean::dec(x_143); -lean::dec(x_141); +obj* x_158; +lean::dec(x_145); +lean::dec(x_152); +lean::dec(x_150); lean::dec(x_11); -lean::dec(x_136); -x_149 = lean::box(0); -x_4 = x_149; +x_158 = lean::box(0); +x_4 = x_158; goto lbl_5; } else { -obj* x_150; obj* x_152; obj* x_154; obj* x_157; obj* x_160; obj* x_163; obj* x_164; obj* x_168; obj* x_169; obj* x_170; obj* x_171; obj* x_172; -x_150 = lean::cnstr_get(x_136, 2); -lean::inc(x_150); -x_152 = lean::cnstr_get(x_136, 3); -lean::inc(x_152); -x_154 = lean::cnstr_get(x_136, 6); -lean::inc(x_154); -lean::dec(x_136); -x_157 = lean::cnstr_get(x_141, 1); -lean::inc(x_157); -lean::dec(x_141); -x_160 = lean::cnstr_get(x_143, 0); -lean::inc(x_160); -lean::dec(x_143); -x_163 = lean::box(0); -x_164 = lean::cnstr_get(x_11, 0); -lean::inc(x_164); +obj* x_159; obj* x_161; obj* x_163; obj* x_166; obj* x_169; obj* x_172; obj* x_173; obj* x_177; obj* x_178; obj* x_179; obj* x_180; obj* x_181; +x_159 = lean::cnstr_get(x_145, 2); +lean::inc(x_159); +x_161 = lean::cnstr_get(x_145, 3); +lean::inc(x_161); +x_163 = lean::cnstr_get(x_145, 6); +lean::inc(x_163); +lean::dec(x_145); +x_166 = lean::cnstr_get(x_150, 1); +lean::inc(x_166); +lean::dec(x_150); +x_169 = lean::cnstr_get(x_152, 0); +lean::inc(x_169); +lean::dec(x_152); +x_172 = lean::box(0); +x_173 = lean::cnstr_get(x_11, 0); +lean::inc(x_173); lean::dec(x_11); -lean::inc(x_164); -x_168 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_declModifiersToPexpr___boxed), 4, 1); -lean::closure_set(x_168, 0, x_164); -x_169 = l_Lean_Elaborator_Declaration_elaborate___closed__4; -x_170 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_Declaration_elaborate___lambda__3___boxed), 13, 9); -lean::closure_set(x_170, 0, x_163); -lean::closure_set(x_170, 1, x_160); -lean::closure_set(x_170, 2, x_0); -lean::closure_set(x_170, 3, x_154); -lean::closure_set(x_170, 4, x_152); -lean::closure_set(x_170, 5, x_169); -lean::closure_set(x_170, 6, x_150); -lean::closure_set(x_170, 7, x_157); -lean::closure_set(x_170, 8, x_164); -x_171 = lean::alloc_closure(reinterpret_cast(l_ReaderT_bind___at_Lean_Elaborator_Declaration_elaborate___spec__1___rarg), 5, 2); -lean::closure_set(x_171, 0, x_168); -lean::closure_set(x_171, 1, x_170); -x_172 = l_Lean_Elaborator_locally(x_171, x_1, x_2, x_3); -return x_172; +lean::inc(x_173); +x_177 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_declModifiersToPexpr___boxed), 4, 1); +lean::closure_set(x_177, 0, x_173); +x_178 = l_Lean_Elaborator_Declaration_elaborate___closed__4; +x_179 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_Declaration_elaborate___lambda__3___boxed), 13, 9); +lean::closure_set(x_179, 0, x_172); +lean::closure_set(x_179, 1, x_169); +lean::closure_set(x_179, 2, x_0); +lean::closure_set(x_179, 3, x_163); +lean::closure_set(x_179, 4, x_161); +lean::closure_set(x_179, 5, x_178); +lean::closure_set(x_179, 6, x_159); +lean::closure_set(x_179, 7, x_166); +lean::closure_set(x_179, 8, x_173); +x_180 = lean::alloc_closure(reinterpret_cast(l_ReaderT_bind___at_Lean_Elaborator_Declaration_elaborate___spec__1___rarg), 5, 2); +lean::closure_set(x_180, 0, x_177); +lean::closure_set(x_180, 1, x_179); +x_181 = l_Lean_Elaborator_locally(x_180, x_1, x_2, x_3); +return x_181; } } else { -obj* x_176; +obj* x_185; +lean::dec(x_145); +lean::dec(x_148); lean::dec(x_11); -lean::dec(x_139); -lean::dec(x_136); -x_176 = lean::box(0); -x_4 = x_176; +x_185 = lean::box(0); +x_4 = x_185; goto lbl_5; } } default: { -obj* x_177; obj* x_180; -x_177 = lean::cnstr_get(x_12, 0); -lean::inc(x_177); +obj* x_186; obj* x_189; +x_186 = lean::cnstr_get(x_12, 0); +lean::inc(x_186); lean::dec(x_12); -x_180 = lean::cnstr_get(x_177, 0); -lean::inc(x_180); -if (lean::obj_tag(x_180) == 0) +x_189 = lean::cnstr_get(x_186, 0); +lean::inc(x_189); +if (lean::obj_tag(x_189) == 0) { -obj* x_183; obj* x_185; -lean::dec(x_180); -x_183 = lean::cnstr_get(x_177, 3); -lean::inc(x_183); -x_185 = lean::cnstr_get(x_183, 0); -lean::inc(x_185); -if (lean::obj_tag(x_185) == 0) +obj* x_192; obj* x_194; +lean::dec(x_189); +x_192 = lean::cnstr_get(x_186, 3); +lean::inc(x_192); +x_194 = lean::cnstr_get(x_192, 0); +lean::inc(x_194); +if (lean::obj_tag(x_194) == 0) { -obj* x_191; -lean::dec(x_183); -lean::dec(x_177); -lean::dec(x_185); +obj* x_200; +lean::dec(x_186); +lean::dec(x_194); +lean::dec(x_192); lean::dec(x_11); -x_191 = lean::box(0); -x_4 = x_191; +x_200 = lean::box(0); +x_4 = x_200; goto lbl_5; } else { -obj* x_192; obj* x_194; obj* x_196; obj* x_198; obj* x_200; obj* x_203; obj* x_206; obj* x_209; obj* x_210; obj* x_213; obj* x_214; obj* x_215; obj* x_216; obj* x_217; -x_192 = lean::cnstr_get(x_177, 1); -lean::inc(x_192); -x_194 = lean::cnstr_get(x_177, 2); -lean::inc(x_194); -x_196 = lean::cnstr_get(x_177, 4); -lean::inc(x_196); -x_198 = lean::cnstr_get(x_177, 6); -lean::inc(x_198); -x_200 = lean::cnstr_get(x_177, 7); -lean::inc(x_200); -lean::dec(x_177); -x_203 = lean::cnstr_get(x_183, 1); +obj* x_201; obj* x_203; obj* x_205; obj* x_207; obj* x_209; obj* x_212; obj* x_215; obj* x_218; obj* x_219; obj* x_222; obj* x_223; obj* x_224; obj* x_225; obj* x_226; +x_201 = lean::cnstr_get(x_186, 1); +lean::inc(x_201); +x_203 = lean::cnstr_get(x_186, 2); lean::inc(x_203); -lean::dec(x_183); -x_206 = lean::cnstr_get(x_185, 0); -lean::inc(x_206); -lean::dec(x_185); -x_209 = lean::box(0); -x_210 = lean::cnstr_get(x_11, 0); -lean::inc(x_210); +x_205 = lean::cnstr_get(x_186, 4); +lean::inc(x_205); +x_207 = lean::cnstr_get(x_186, 6); +lean::inc(x_207); +x_209 = lean::cnstr_get(x_186, 7); +lean::inc(x_209); +lean::dec(x_186); +x_212 = lean::cnstr_get(x_192, 1); +lean::inc(x_212); +lean::dec(x_192); +x_215 = lean::cnstr_get(x_194, 0); +lean::inc(x_215); +lean::dec(x_194); +x_218 = lean::box(0); +x_219 = lean::cnstr_get(x_11, 0); +lean::inc(x_219); lean::dec(x_11); -x_213 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_declModifiersToPexpr___boxed), 4, 1); -lean::closure_set(x_213, 0, x_210); -x_214 = l_Lean_Elaborator_Declaration_elaborate___closed__5; -x_215 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_Declaration_elaborate___lambda__5___boxed), 14, 10); -lean::closure_set(x_215, 0, x_206); -lean::closure_set(x_215, 1, x_194); -lean::closure_set(x_215, 2, x_0); -lean::closure_set(x_215, 3, x_200); -lean::closure_set(x_215, 4, x_198); -lean::closure_set(x_215, 5, x_209); -lean::closure_set(x_215, 6, x_214); -lean::closure_set(x_215, 7, x_196); -lean::closure_set(x_215, 8, x_192); -lean::closure_set(x_215, 9, x_203); -x_216 = lean::alloc_closure(reinterpret_cast(l_ReaderT_bind___at_Lean_Elaborator_Declaration_elaborate___spec__1___rarg), 5, 2); -lean::closure_set(x_216, 0, x_213); -lean::closure_set(x_216, 1, x_215); -x_217 = l_Lean_Elaborator_locally(x_216, x_1, x_2, x_3); -return x_217; +x_222 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_declModifiersToPexpr___boxed), 4, 1); +lean::closure_set(x_222, 0, x_219); +x_223 = l_Lean_Elaborator_Declaration_elaborate___closed__5; +x_224 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_Declaration_elaborate___lambda__5___boxed), 14, 10); +lean::closure_set(x_224, 0, x_215); +lean::closure_set(x_224, 1, x_203); +lean::closure_set(x_224, 2, x_0); +lean::closure_set(x_224, 3, x_209); +lean::closure_set(x_224, 4, x_207); +lean::closure_set(x_224, 5, x_218); +lean::closure_set(x_224, 6, x_223); +lean::closure_set(x_224, 7, x_205); +lean::closure_set(x_224, 8, x_201); +lean::closure_set(x_224, 9, x_212); +x_225 = lean::alloc_closure(reinterpret_cast(l_ReaderT_bind___at_Lean_Elaborator_Declaration_elaborate___spec__1___rarg), 5, 2); +lean::closure_set(x_225, 0, x_222); +lean::closure_set(x_225, 1, x_224); +x_226 = l_Lean_Elaborator_locally(x_225, x_1, x_2, x_3); +return x_226; } } else { -obj* x_221; -lean::dec(x_180); -lean::dec(x_177); +obj* x_230; +lean::dec(x_186); +lean::dec(x_189); lean::dec(x_11); -x_221 = lean::box(0); -x_4 = x_221; +x_230 = lean::box(0); +x_4 = x_230; goto lbl_5; } } } lbl_5: { -obj* x_223; obj* x_224; obj* x_225; obj* x_226; +obj* x_232; obj* x_233; obj* x_234; obj* x_235; lean::dec(x_4); -x_223 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_223, 0, x_0); -x_224 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___closed__1; -x_225 = lean::alloc_closure(reinterpret_cast(l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg___boxed), 5, 2); -lean::closure_set(x_225, 0, x_223); -lean::closure_set(x_225, 1, x_224); -x_226 = l_Lean_Elaborator_locally(x_225, x_1, x_2, x_3); -return x_226; +x_232 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_232, 0, x_0); +x_233 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___closed__1; +x_234 = lean::alloc_closure(reinterpret_cast(l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg___boxed), 5, 2); +lean::closure_set(x_234, 0, x_232); +lean::closure_set(x_234, 1, x_233); +x_235 = l_Lean_Elaborator_locally(x_234, x_1, x_2, x_3); +return x_235; } } } @@ -26877,47 +27072,49 @@ return x_0; obj* l_Lean_Elaborator_matchSpec(obj* x_0, obj* x_1) { _start: { -obj* x_2; obj* x_4; uint8 x_6; obj* x_7; uint8 x_9; +obj* x_2; obj* x_4; x_2 = lean::cnstr_get(x_0, 0); lean::inc(x_2); -x_6 = l_Option_isSome___main___rarg(x_2); -x_7 = lean::cnstr_get(x_1, 0); -lean::inc(x_7); -x_9 = l_Option_isSome___main___rarg(x_7); -lean::dec(x_7); -if (x_6 == 0) +if (lean::obj_tag(x_2) == 0) { -if (x_9 == 0) +obj* x_6; +x_6 = lean::cnstr_get(x_1, 0); +lean::inc(x_6); +if (lean::obj_tag(x_6) == 0) { -obj* x_11; -x_11 = lean::box(0); -x_4 = x_11; +obj* x_8; +x_8 = lean::box(0); +x_4 = x_8; goto lbl_5; } else { -obj* x_15; +obj* x_12; +lean::dec(x_6); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_2); -x_15 = lean::box(0); -return x_15; +x_12 = lean::box(0); +return x_12; } } else { -if (x_9 == 0) +obj* x_13; +x_13 = lean::cnstr_get(x_1, 0); +lean::inc(x_13); +if (lean::obj_tag(x_13) == 0) { -obj* x_19; +obj* x_18; lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_19 = lean::box(0); -return x_19; +x_18 = lean::box(0); +return x_18; } else { obj* x_20; +lean::dec(x_13); x_20 = lean::box(0); x_4 = x_20; goto lbl_5; @@ -28851,103 +29048,148 @@ return x_2; obj* l_Lean_Elaborator_attribute_elaborate(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_4; obj* x_5; obj* x_9; obj* x_10; obj* x_13; +obj* x_4; obj* x_5; obj* x_9; uint8 x_10; obj* x_11; obj* x_13; obj* x_15; obj* x_18; x_4 = l_Lean_Parser_command_attribute_HasView; x_5 = lean::cnstr_get(x_4, 0); lean::inc(x_5); lean::dec(x_4); lean::inc(x_0); x_9 = lean::apply_1(x_5, x_0); -x_10 = lean::cnstr_get(x_9, 3); -lean::inc(x_10); +x_13 = lean::cnstr_get(x_9, 0); +lean::inc(x_13); +x_15 = lean::cnstr_get(x_9, 3); +lean::inc(x_15); lean::inc(x_2); -x_13 = l_Lean_Elaborator_attrsToPexpr(x_10, x_1, x_2, x_3); +x_18 = l_Lean_Elaborator_attrsToPexpr(x_15, x_1, x_2, x_3); if (lean::obj_tag(x_13) == 0) { -obj* x_17; obj* x_19; obj* x_20; +if (lean::obj_tag(x_18) == 0) +{ +obj* x_22; obj* x_24; obj* x_25; lean::dec(x_9); lean::dec(x_0); lean::dec(x_2); -x_17 = lean::cnstr_get(x_13, 0); -if (lean::is_exclusive(x_13)) { - x_19 = x_13; +x_22 = lean::cnstr_get(x_18, 0); +if (lean::is_exclusive(x_18)) { + x_24 = x_18; } else { - lean::inc(x_17); - lean::dec(x_13); - x_19 = lean::box(0); + lean::inc(x_22); + lean::dec(x_18); + x_24 = lean::box(0); } -if (lean::is_scalar(x_19)) { - x_20 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_24)) { + x_25 = lean::alloc_cnstr(0, 1, 0); } else { - x_20 = x_19; + x_25 = x_24; } -lean::cnstr_set(x_20, 0, x_17); -return x_20; +lean::cnstr_set(x_25, 0, x_22); +return x_25; } else { -obj* x_21; obj* x_24; obj* x_26; obj* x_29; obj* x_32; -x_21 = lean::cnstr_get(x_13, 0); -lean::inc(x_21); -lean::dec(x_13); -x_24 = lean::cnstr_get(x_21, 0); -lean::inc(x_24); -x_26 = lean::cnstr_get(x_21, 1); +obj* x_26; uint8 x_29; +x_26 = lean::cnstr_get(x_18, 0); lean::inc(x_26); -lean::dec(x_21); -x_29 = lean::cnstr_get(x_9, 5); -lean::inc(x_29); -lean::inc(x_2); -x_32 = l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1(x_29, x_1, x_2, x_26); -if (lean::obj_tag(x_32) == 0) -{ -obj* x_37; obj* x_39; obj* x_40; -lean::dec(x_24); -lean::dec(x_9); -lean::dec(x_0); -lean::dec(x_2); -x_37 = lean::cnstr_get(x_32, 0); -if (lean::is_exclusive(x_32)) { - x_39 = x_32; -} else { - lean::inc(x_37); - lean::dec(x_32); - x_39 = lean::box(0); +lean::dec(x_18); +x_29 = 0; +x_10 = x_29; +x_11 = x_26; +goto lbl_12; } -if (lean::is_scalar(x_39)) { - x_40 = lean::alloc_cnstr(0, 1, 0); -} else { - x_40 = x_39; -} -lean::cnstr_set(x_40, 0, x_37); -return x_40; } else { -obj* x_41; obj* x_44; obj* x_46; obj* x_49; uint8 x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; -x_41 = lean::cnstr_get(x_32, 0); -lean::inc(x_41); -lean::dec(x_32); -x_44 = lean::cnstr_get(x_41, 0); -lean::inc(x_44); -x_46 = lean::cnstr_get(x_41, 1); -lean::inc(x_46); -lean::dec(x_41); -x_49 = lean::cnstr_get(x_9, 0); -lean::inc(x_49); +lean::dec(x_13); +if (lean::obj_tag(x_18) == 0) +{ +obj* x_34; obj* x_36; obj* x_37; lean::dec(x_9); -x_52 = l_Option_isSome___main___rarg(x_49); -lean::dec(x_49); -x_54 = l_Lean_Elaborator_attribute_elaborate___closed__1; -x_55 = l_Lean_Elaborator_attribute_elaborate___closed__2; -x_56 = l_Lean_KVMap_setBool(x_54, x_55, x_52); -x_57 = l_Lean_Elaborator_mkEqns___closed__1; -x_58 = l_Lean_Expr_mkCapp(x_57, x_44); -x_59 = lean_expr_mk_app(x_24, x_58); -x_60 = lean_expr_mk_mdata(x_56, x_59); -x_61 = l_Lean_Elaborator_oldElabCommand(x_0, x_60, x_1, x_2, x_46); lean::dec(x_0); -return x_61; +lean::dec(x_2); +x_34 = lean::cnstr_get(x_18, 0); +if (lean::is_exclusive(x_18)) { + x_36 = x_18; +} else { + lean::inc(x_34); + lean::dec(x_18); + x_36 = lean::box(0); +} +if (lean::is_scalar(x_36)) { + x_37 = lean::alloc_cnstr(0, 1, 0); +} else { + x_37 = x_36; +} +lean::cnstr_set(x_37, 0, x_34); +return x_37; +} +else +{ +obj* x_38; uint8 x_41; +x_38 = lean::cnstr_get(x_18, 0); +lean::inc(x_38); +lean::dec(x_18); +x_41 = 1; +x_10 = x_41; +x_11 = x_38; +goto lbl_12; +} +} +lbl_12: +{ +obj* x_42; obj* x_44; obj* x_47; obj* x_51; +x_42 = lean::cnstr_get(x_11, 0); +lean::inc(x_42); +x_44 = lean::cnstr_get(x_11, 1); +lean::inc(x_44); +lean::dec(x_11); +x_47 = lean::cnstr_get(x_9, 5); +lean::inc(x_47); +lean::dec(x_9); +lean::inc(x_2); +x_51 = l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1(x_47, x_1, x_2, x_44); +if (lean::obj_tag(x_51) == 0) +{ +obj* x_55; obj* x_57; obj* x_58; +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_42); +x_55 = lean::cnstr_get(x_51, 0); +if (lean::is_exclusive(x_51)) { + x_57 = x_51; +} else { + lean::inc(x_55); + lean::dec(x_51); + x_57 = lean::box(0); +} +if (lean::is_scalar(x_57)) { + x_58 = lean::alloc_cnstr(0, 1, 0); +} else { + x_58 = x_57; +} +lean::cnstr_set(x_58, 0, x_55); +return x_58; +} +else +{ +obj* x_59; obj* x_62; obj* x_64; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; +x_59 = lean::cnstr_get(x_51, 0); +lean::inc(x_59); +lean::dec(x_51); +x_62 = lean::cnstr_get(x_59, 0); +lean::inc(x_62); +x_64 = lean::cnstr_get(x_59, 1); +lean::inc(x_64); +lean::dec(x_59); +x_67 = l_Lean_Elaborator_attribute_elaborate___closed__1; +x_68 = l_Lean_Elaborator_attribute_elaborate___closed__2; +x_69 = l_Lean_KVMap_setBool(x_67, x_68, x_10); +x_70 = l_Lean_Elaborator_mkEqns___closed__1; +x_71 = l_Lean_Expr_mkCapp(x_70, x_62); +x_72 = lean_expr_mk_app(x_42, x_71); +x_73 = lean_expr_mk_mdata(x_69, x_72); +x_74 = l_Lean_Elaborator_oldElabCommand(x_0, x_73, x_1, x_2, x_64); +lean::dec(x_0); +return x_74; } } } @@ -29621,7 +29863,7 @@ return x_0; obj* _init_l_Lean_Elaborator_end_elaborate___closed__2() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_5; obj* x_6; obj* x_7; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_5; obj* x_6; obj* x_7; obj* x_8; x_0 = lean::box(0); x_1 = lean::mk_string("."); x_2 = lean::box(0); @@ -29635,7 +29877,8 @@ lean::cnstr_set(x_7, 1, x_5); lean::cnstr_set(x_7, 2, x_2); lean::cnstr_set(x_7, 3, x_6); lean::cnstr_set(x_7, 4, x_6); -return x_7; +x_8 = l_Lean_Elaborator_mangleIdent(x_7); +return x_8; } } obj* _init_l_Lean_Elaborator_end_elaborate___closed__3() { @@ -29690,7 +29933,7 @@ return x_16; } else { -obj* x_19; obj* x_22; obj* x_23; obj* x_27; obj* x_28; obj* x_31; obj* x_32; obj* x_34; obj* x_35; uint8 x_37; +obj* x_19; obj* x_22; obj* x_23; obj* x_27; obj* x_28; x_19 = lean::cnstr_get(x_4, 0); lean::inc(x_19); lean::dec(x_4); @@ -29703,140 +29946,290 @@ x_27 = lean::apply_1(x_23, x_0); x_28 = lean::cnstr_get(x_27, 1); lean::inc(x_28); lean::dec(x_27); -x_31 = l_Lean_Elaborator_end_elaborate___closed__2; -x_32 = l_Option_getOrElse___main___rarg(x_28, x_31); -lean::dec(x_28); -x_34 = l_Lean_Elaborator_mangleIdent(x_32); -x_35 = lean::cnstr_get(x_19, 1); -lean::inc(x_35); -x_37 = lean_name_dec_eq(x_34, x_35); -lean::dec(x_34); -if (x_37 == 0) +if (lean::obj_tag(x_28) == 0) { -obj* x_39; obj* x_40; obj* x_43; obj* x_44; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_52; obj* x_53; obj* x_55; -x_39 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_39, 0, x_0); -x_40 = lean::cnstr_get(x_19, 0); -lean::inc(x_40); +obj* x_31; obj* x_33; uint8 x_34; +x_31 = lean::cnstr_get(x_19, 1); +lean::inc(x_31); +x_33 = l_Lean_Elaborator_end_elaborate___closed__2; +x_34 = lean_name_dec_eq(x_33, x_31); +if (x_34 == 0) +{ +obj* x_35; obj* x_36; obj* x_39; obj* x_40; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_48; obj* x_49; obj* x_51; +x_35 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_35, 0, x_0); +x_36 = lean::cnstr_get(x_19, 0); +lean::inc(x_36); lean::dec(x_19); -x_43 = l_Lean_Elaborator_end_elaborate___closed__3; -x_44 = lean::string_append(x_43, x_40); -lean::dec(x_40); -x_46 = l_Lean_Elaborator_end_elaborate___closed__4; -x_47 = lean::string_append(x_44, x_46); -x_48 = l_Lean_Name_toString___closed__1; -x_49 = l_Lean_Name_toStringWithSep___main(x_48, x_35); -x_50 = lean::string_append(x_47, x_49); -lean::dec(x_49); -x_52 = l_Char_HasRepr___closed__1; -x_53 = lean::string_append(x_50, x_52); +x_39 = l_Lean_Elaborator_end_elaborate___closed__3; +x_40 = lean::string_append(x_39, x_36); +lean::dec(x_36); +x_42 = l_Lean_Elaborator_end_elaborate___closed__4; +x_43 = lean::string_append(x_40, x_42); +x_44 = l_Lean_Name_toString___closed__1; +x_45 = l_Lean_Name_toStringWithSep___main(x_44, x_31); +x_46 = lean::string_append(x_43, x_45); +lean::dec(x_45); +x_48 = l_Char_HasRepr___closed__1; +x_49 = lean::string_append(x_46, x_48); lean::inc(x_2); -x_55 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_39, x_53, x_1, x_2, x_3); -lean::dec(x_39); -if (lean::obj_tag(x_55) == 0) +x_51 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_35, x_49, x_1, x_2, x_3); +lean::dec(x_35); +if (lean::obj_tag(x_51) == 0) { -obj* x_60; obj* x_62; obj* x_63; +obj* x_56; obj* x_58; obj* x_59; lean::dec(x_11); lean::dec(x_3); lean::dec(x_2); -x_60 = lean::cnstr_get(x_55, 0); -if (lean::is_exclusive(x_55)) { - x_62 = x_55; +x_56 = lean::cnstr_get(x_51, 0); +if (lean::is_exclusive(x_51)) { + x_58 = x_51; } else { - lean::inc(x_60); - lean::dec(x_55); - x_62 = lean::box(0); + lean::inc(x_56); + lean::dec(x_51); + x_58 = lean::box(0); } -if (lean::is_scalar(x_62)) { - x_63 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_58)) { + x_59 = lean::alloc_cnstr(0, 1, 0); } else { - x_63 = x_62; + x_59 = x_58; } -lean::cnstr_set(x_63, 0, x_60); -return x_63; +lean::cnstr_set(x_59, 0, x_56); +return x_59; } else { -obj* x_65; obj* x_67; obj* x_69; obj* x_71; obj* x_73; obj* x_75; obj* x_77; obj* x_79; obj* x_81; obj* x_83; obj* x_86; obj* x_87; -lean::dec(x_55); -x_65 = lean::cnstr_get(x_3, 0); +obj* x_61; obj* x_63; obj* x_65; obj* x_67; obj* x_69; obj* x_71; obj* x_73; obj* x_75; obj* x_77; obj* x_79; obj* x_82; obj* x_83; +lean::dec(x_51); +x_61 = lean::cnstr_get(x_3, 0); +lean::inc(x_61); +x_63 = lean::cnstr_get(x_3, 1); +lean::inc(x_63); +x_65 = lean::cnstr_get(x_3, 2); lean::inc(x_65); -x_67 = lean::cnstr_get(x_3, 1); +x_67 = lean::cnstr_get(x_3, 3); lean::inc(x_67); -x_69 = lean::cnstr_get(x_3, 2); +x_69 = lean::cnstr_get(x_3, 5); lean::inc(x_69); -x_71 = lean::cnstr_get(x_3, 3); +x_71 = lean::cnstr_get(x_3, 6); lean::inc(x_71); -x_73 = lean::cnstr_get(x_3, 5); +x_73 = lean::cnstr_get(x_3, 7); lean::inc(x_73); -x_75 = lean::cnstr_get(x_3, 6); +x_75 = lean::cnstr_get(x_3, 8); lean::inc(x_75); -x_77 = lean::cnstr_get(x_3, 7); +x_77 = lean::cnstr_get(x_3, 9); lean::inc(x_77); -x_79 = lean::cnstr_get(x_3, 8); +x_79 = lean::cnstr_get(x_3, 10); lean::inc(x_79); -x_81 = lean::cnstr_get(x_3, 9); -lean::inc(x_81); -x_83 = lean::cnstr_get(x_3, 10); -lean::inc(x_83); lean::dec(x_3); -x_86 = lean::alloc_cnstr(0, 11, 0); -lean::cnstr_set(x_86, 0, x_65); -lean::cnstr_set(x_86, 1, x_67); -lean::cnstr_set(x_86, 2, x_69); -lean::cnstr_set(x_86, 3, x_71); -lean::cnstr_set(x_86, 4, x_11); -lean::cnstr_set(x_86, 5, x_73); -lean::cnstr_set(x_86, 6, x_75); -lean::cnstr_set(x_86, 7, x_77); -lean::cnstr_set(x_86, 8, x_79); -lean::cnstr_set(x_86, 9, x_81); -lean::cnstr_set(x_86, 10, x_83); -x_87 = l_Lean_Elaborator_updateParserConfig(x_1, x_2, x_86); -return x_87; +x_82 = lean::alloc_cnstr(0, 11, 0); +lean::cnstr_set(x_82, 0, x_61); +lean::cnstr_set(x_82, 1, x_63); +lean::cnstr_set(x_82, 2, x_65); +lean::cnstr_set(x_82, 3, x_67); +lean::cnstr_set(x_82, 4, x_11); +lean::cnstr_set(x_82, 5, x_69); +lean::cnstr_set(x_82, 6, x_71); +lean::cnstr_set(x_82, 7, x_73); +lean::cnstr_set(x_82, 8, x_75); +lean::cnstr_set(x_82, 9, x_77); +lean::cnstr_set(x_82, 10, x_79); +x_83 = l_Lean_Elaborator_updateParserConfig(x_1, x_2, x_82); +return x_83; } } else { -obj* x_91; obj* x_93; obj* x_95; obj* x_97; obj* x_99; obj* x_101; obj* x_103; obj* x_105; obj* x_107; obj* x_109; obj* x_112; obj* x_113; +obj* x_87; obj* x_89; obj* x_91; obj* x_93; obj* x_95; obj* x_97; obj* x_99; obj* x_101; obj* x_103; obj* x_105; obj* x_108; obj* x_109; +lean::dec(x_0); +lean::dec(x_31); +lean::dec(x_19); +x_87 = lean::cnstr_get(x_3, 0); +lean::inc(x_87); +x_89 = lean::cnstr_get(x_3, 1); +lean::inc(x_89); +x_91 = lean::cnstr_get(x_3, 2); +lean::inc(x_91); +x_93 = lean::cnstr_get(x_3, 3); +lean::inc(x_93); +x_95 = lean::cnstr_get(x_3, 5); +lean::inc(x_95); +x_97 = lean::cnstr_get(x_3, 6); +lean::inc(x_97); +x_99 = lean::cnstr_get(x_3, 7); +lean::inc(x_99); +x_101 = lean::cnstr_get(x_3, 8); +lean::inc(x_101); +x_103 = lean::cnstr_get(x_3, 9); +lean::inc(x_103); +x_105 = lean::cnstr_get(x_3, 10); +lean::inc(x_105); +lean::dec(x_3); +x_108 = lean::alloc_cnstr(0, 11, 0); +lean::cnstr_set(x_108, 0, x_87); +lean::cnstr_set(x_108, 1, x_89); +lean::cnstr_set(x_108, 2, x_91); +lean::cnstr_set(x_108, 3, x_93); +lean::cnstr_set(x_108, 4, x_11); +lean::cnstr_set(x_108, 5, x_95); +lean::cnstr_set(x_108, 6, x_97); +lean::cnstr_set(x_108, 7, x_99); +lean::cnstr_set(x_108, 8, x_101); +lean::cnstr_set(x_108, 9, x_103); +lean::cnstr_set(x_108, 10, x_105); +x_109 = l_Lean_Elaborator_updateParserConfig(x_1, x_2, x_108); +return x_109; +} +} +else +{ +obj* x_110; obj* x_112; obj* x_114; obj* x_115; uint8 x_116; +x_110 = lean::cnstr_get(x_19, 1); +lean::inc(x_110); +x_112 = lean::cnstr_get(x_28, 0); +if (lean::is_exclusive(x_28)) { + lean::cnstr_set(x_28, 0, lean::box(0)); + x_114 = x_28; +} else { + lean::inc(x_112); + lean::dec(x_28); + x_114 = lean::box(0); +} +x_115 = l_Lean_Elaborator_mangleIdent(x_112); +x_116 = lean_name_dec_eq(x_115, x_110); +lean::dec(x_115); +if (x_116 == 0) +{ +obj* x_118; obj* x_119; obj* x_122; obj* x_123; obj* x_125; obj* x_126; obj* x_127; obj* x_128; obj* x_129; obj* x_131; obj* x_132; obj* x_134; +if (lean::is_scalar(x_114)) { + x_118 = lean::alloc_cnstr(1, 1, 0); +} else { + x_118 = x_114; +} +lean::cnstr_set(x_118, 0, x_0); +x_119 = lean::cnstr_get(x_19, 0); +lean::inc(x_119); +lean::dec(x_19); +x_122 = l_Lean_Elaborator_end_elaborate___closed__3; +x_123 = lean::string_append(x_122, x_119); +lean::dec(x_119); +x_125 = l_Lean_Elaborator_end_elaborate___closed__4; +x_126 = lean::string_append(x_123, x_125); +x_127 = l_Lean_Name_toString___closed__1; +x_128 = l_Lean_Name_toStringWithSep___main(x_127, x_110); +x_129 = lean::string_append(x_126, x_128); +lean::dec(x_128); +x_131 = l_Char_HasRepr___closed__1; +x_132 = lean::string_append(x_129, x_131); +lean::inc(x_2); +x_134 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_118, x_132, x_1, x_2, x_3); +lean::dec(x_118); +if (lean::obj_tag(x_134) == 0) +{ +obj* x_139; obj* x_141; obj* x_142; +lean::dec(x_11); +lean::dec(x_3); +lean::dec(x_2); +x_139 = lean::cnstr_get(x_134, 0); +if (lean::is_exclusive(x_134)) { + x_141 = x_134; +} else { + lean::inc(x_139); + lean::dec(x_134); + x_141 = lean::box(0); +} +if (lean::is_scalar(x_141)) { + x_142 = lean::alloc_cnstr(0, 1, 0); +} else { + x_142 = x_141; +} +lean::cnstr_set(x_142, 0, x_139); +return x_142; +} +else +{ +obj* x_144; obj* x_146; obj* x_148; obj* x_150; obj* x_152; obj* x_154; obj* x_156; obj* x_158; obj* x_160; obj* x_162; obj* x_165; obj* x_166; +lean::dec(x_134); +x_144 = lean::cnstr_get(x_3, 0); +lean::inc(x_144); +x_146 = lean::cnstr_get(x_3, 1); +lean::inc(x_146); +x_148 = lean::cnstr_get(x_3, 2); +lean::inc(x_148); +x_150 = lean::cnstr_get(x_3, 3); +lean::inc(x_150); +x_152 = lean::cnstr_get(x_3, 5); +lean::inc(x_152); +x_154 = lean::cnstr_get(x_3, 6); +lean::inc(x_154); +x_156 = lean::cnstr_get(x_3, 7); +lean::inc(x_156); +x_158 = lean::cnstr_get(x_3, 8); +lean::inc(x_158); +x_160 = lean::cnstr_get(x_3, 9); +lean::inc(x_160); +x_162 = lean::cnstr_get(x_3, 10); +lean::inc(x_162); +lean::dec(x_3); +x_165 = lean::alloc_cnstr(0, 11, 0); +lean::cnstr_set(x_165, 0, x_144); +lean::cnstr_set(x_165, 1, x_146); +lean::cnstr_set(x_165, 2, x_148); +lean::cnstr_set(x_165, 3, x_150); +lean::cnstr_set(x_165, 4, x_11); +lean::cnstr_set(x_165, 5, x_152); +lean::cnstr_set(x_165, 6, x_154); +lean::cnstr_set(x_165, 7, x_156); +lean::cnstr_set(x_165, 8, x_158); +lean::cnstr_set(x_165, 9, x_160); +lean::cnstr_set(x_165, 10, x_162); +x_166 = l_Lean_Elaborator_updateParserConfig(x_1, x_2, x_165); +return x_166; +} +} +else +{ +obj* x_171; obj* x_173; obj* x_175; obj* x_177; obj* x_179; obj* x_181; obj* x_183; obj* x_185; obj* x_187; obj* x_189; obj* x_192; obj* x_193; lean::dec(x_0); lean::dec(x_19); -lean::dec(x_35); -x_91 = lean::cnstr_get(x_3, 0); -lean::inc(x_91); -x_93 = lean::cnstr_get(x_3, 1); -lean::inc(x_93); -x_95 = lean::cnstr_get(x_3, 2); -lean::inc(x_95); -x_97 = lean::cnstr_get(x_3, 3); -lean::inc(x_97); -x_99 = lean::cnstr_get(x_3, 5); -lean::inc(x_99); -x_101 = lean::cnstr_get(x_3, 6); -lean::inc(x_101); -x_103 = lean::cnstr_get(x_3, 7); -lean::inc(x_103); -x_105 = lean::cnstr_get(x_3, 8); -lean::inc(x_105); -x_107 = lean::cnstr_get(x_3, 9); -lean::inc(x_107); -x_109 = lean::cnstr_get(x_3, 10); -lean::inc(x_109); +lean::dec(x_114); +lean::dec(x_110); +x_171 = lean::cnstr_get(x_3, 0); +lean::inc(x_171); +x_173 = lean::cnstr_get(x_3, 1); +lean::inc(x_173); +x_175 = lean::cnstr_get(x_3, 2); +lean::inc(x_175); +x_177 = lean::cnstr_get(x_3, 3); +lean::inc(x_177); +x_179 = lean::cnstr_get(x_3, 5); +lean::inc(x_179); +x_181 = lean::cnstr_get(x_3, 6); +lean::inc(x_181); +x_183 = lean::cnstr_get(x_3, 7); +lean::inc(x_183); +x_185 = lean::cnstr_get(x_3, 8); +lean::inc(x_185); +x_187 = lean::cnstr_get(x_3, 9); +lean::inc(x_187); +x_189 = lean::cnstr_get(x_3, 10); +lean::inc(x_189); lean::dec(x_3); -x_112 = lean::alloc_cnstr(0, 11, 0); -lean::cnstr_set(x_112, 0, x_91); -lean::cnstr_set(x_112, 1, x_93); -lean::cnstr_set(x_112, 2, x_95); -lean::cnstr_set(x_112, 3, x_97); -lean::cnstr_set(x_112, 4, x_11); -lean::cnstr_set(x_112, 5, x_99); -lean::cnstr_set(x_112, 6, x_101); -lean::cnstr_set(x_112, 7, x_103); -lean::cnstr_set(x_112, 8, x_105); -lean::cnstr_set(x_112, 9, x_107); -lean::cnstr_set(x_112, 10, x_109); -x_113 = l_Lean_Elaborator_updateParserConfig(x_1, x_2, x_112); -return x_113; +x_192 = lean::alloc_cnstr(0, 11, 0); +lean::cnstr_set(x_192, 0, x_171); +lean::cnstr_set(x_192, 1, x_173); +lean::cnstr_set(x_192, 2, x_175); +lean::cnstr_set(x_192, 3, x_177); +lean::cnstr_set(x_192, 4, x_11); +lean::cnstr_set(x_192, 5, x_179); +lean::cnstr_set(x_192, 6, x_181); +lean::cnstr_set(x_192, 7, x_183); +lean::cnstr_set(x_192, 8, x_185); +lean::cnstr_set(x_192, 9, x_187); +lean::cnstr_set(x_192, 10, x_189); +x_193 = l_Lean_Elaborator_updateParserConfig(x_1, x_2, x_192); +return x_193; +} } } } @@ -29859,143 +30252,197 @@ x_0 = lean::mk_string("section"); return x_0; } } +obj* _init_l_Lean_Elaborator_section_elaborate___closed__2() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_5; obj* x_6; obj* x_7; +x_0 = lean::box(0); +x_1 = lean::mk_string("."); +x_2 = lean::box(0); +x_3 = l_Lean_Name_toStringWithSep___main(x_1, x_2); +lean::dec(x_1); +x_5 = l_Lean_Parser_Substring_ofString(x_3); +x_6 = lean::box(0); +x_7 = lean::alloc_cnstr(0, 5, 0); +lean::cnstr_set(x_7, 0, x_0); +lean::cnstr_set(x_7, 1, x_5); +lean::cnstr_set(x_7, 2, x_2); +lean::cnstr_set(x_7, 3, x_6); +lean::cnstr_set(x_7, 4, x_6); +return x_7; +} +} obj* l_Lean_Elaborator_section_elaborate(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_4; -x_4 = l_Lean_Elaborator_currentScope(x_1, x_2, x_3); -if (lean::obj_tag(x_4) == 0) +obj* x_4; obj* x_5; obj* x_7; obj* x_8; obj* x_11; obj* x_12; obj* x_15; +x_7 = l_Lean_Parser_command_section_HasView; +x_8 = lean::cnstr_get(x_7, 0); +lean::inc(x_8); +lean::dec(x_7); +x_11 = lean::apply_1(x_8, x_0); +x_12 = lean::cnstr_get(x_11, 1); +lean::inc(x_12); +lean::dec(x_11); +x_15 = l_Lean_Elaborator_currentScope(x_1, x_2, x_3); +if (lean::obj_tag(x_12) == 0) { -obj* x_6; obj* x_8; obj* x_9; -lean::dec(x_0); -x_6 = lean::cnstr_get(x_4, 0); -if (lean::is_exclusive(x_4)) { - x_8 = x_4; +if (lean::obj_tag(x_15) == 0) +{ +obj* x_16; obj* x_18; obj* x_19; +x_16 = lean::cnstr_get(x_15, 0); +if (lean::is_exclusive(x_15)) { + x_18 = x_15; } else { - lean::inc(x_6); - lean::dec(x_4); - x_8 = lean::box(0); + lean::inc(x_16); + lean::dec(x_15); + x_18 = lean::box(0); } -if (lean::is_scalar(x_8)) { - x_9 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_18)) { + x_19 = lean::alloc_cnstr(0, 1, 0); } else { - x_9 = x_8; + x_19 = x_18; } -lean::cnstr_set(x_9, 0, x_6); -return x_9; +lean::cnstr_set(x_19, 0, x_16); +return x_19; } else { -obj* x_10; obj* x_12; obj* x_13; obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_22; obj* x_23; obj* x_26; obj* x_27; obj* x_29; obj* x_30; obj* x_32; obj* x_34; obj* x_36; obj* x_38; obj* x_40; obj* x_42; obj* x_44; obj* x_46; obj* x_48; obj* x_50; obj* x_53; obj* x_54; obj* x_55; obj* x_57; obj* x_58; obj* x_60; obj* x_62; obj* x_64; obj* x_66; obj* x_68; obj* x_71; obj* x_72; obj* x_73; obj* x_74; -x_10 = lean::cnstr_get(x_4, 0); -if (lean::is_exclusive(x_4)) { - x_12 = x_4; -} else { - lean::inc(x_10); - lean::dec(x_4); - x_12 = lean::box(0); -} -x_13 = lean::cnstr_get(x_10, 0); -x_15 = lean::cnstr_get(x_10, 1); -if (lean::is_exclusive(x_10)) { - x_17 = x_10; -} else { - lean::inc(x_13); - lean::inc(x_15); - lean::dec(x_10); - x_17 = lean::box(0); -} -x_18 = l_Lean_Parser_command_section_HasView; -x_19 = lean::cnstr_get(x_18, 0); -lean::inc(x_19); -lean::dec(x_18); -x_22 = lean::apply_1(x_19, x_0); -x_23 = lean::cnstr_get(x_22, 1); -lean::inc(x_23); -lean::dec(x_22); -x_26 = l_Lean_Elaborator_end_elaborate___closed__2; -x_27 = l_Option_getOrElse___main___rarg(x_23, x_26); -lean::dec(x_23); -x_29 = l_Lean_Elaborator_mangleIdent(x_27); -x_30 = lean::cnstr_get(x_15, 0); -lean::inc(x_30); -x_32 = lean::cnstr_get(x_15, 1); -lean::inc(x_32); -x_34 = lean::cnstr_get(x_15, 2); -lean::inc(x_34); -x_36 = lean::cnstr_get(x_15, 3); -lean::inc(x_36); -x_38 = lean::cnstr_get(x_13, 2); -lean::inc(x_38); -x_40 = lean::cnstr_get(x_13, 3); -lean::inc(x_40); -x_42 = lean::cnstr_get(x_13, 4); -lean::inc(x_42); -x_44 = lean::cnstr_get(x_13, 5); -lean::inc(x_44); -x_46 = lean::cnstr_get(x_13, 6); -lean::inc(x_46); -x_48 = lean::cnstr_get(x_13, 7); -lean::inc(x_48); -x_50 = lean::cnstr_get(x_13, 8); -lean::inc(x_50); -lean::dec(x_13); -x_53 = l_Lean_Elaborator_section_elaborate___closed__1; -x_54 = lean::alloc_cnstr(0, 9, 0); -lean::cnstr_set(x_54, 0, x_53); -lean::cnstr_set(x_54, 1, x_29); -lean::cnstr_set(x_54, 2, x_38); -lean::cnstr_set(x_54, 3, x_40); -lean::cnstr_set(x_54, 4, x_42); -lean::cnstr_set(x_54, 5, x_44); -lean::cnstr_set(x_54, 6, x_46); -lean::cnstr_set(x_54, 7, x_48); -lean::cnstr_set(x_54, 8, x_50); -x_55 = lean::cnstr_get(x_15, 4); -lean::inc(x_55); -x_57 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_57, 0, x_54); -lean::cnstr_set(x_57, 1, x_55); -x_58 = lean::cnstr_get(x_15, 5); -lean::inc(x_58); -x_60 = lean::cnstr_get(x_15, 6); -lean::inc(x_60); -x_62 = lean::cnstr_get(x_15, 7); -lean::inc(x_62); -x_64 = lean::cnstr_get(x_15, 8); -lean::inc(x_64); -x_66 = lean::cnstr_get(x_15, 9); -lean::inc(x_66); -x_68 = lean::cnstr_get(x_15, 10); -lean::inc(x_68); +obj* x_20; obj* x_23; +x_20 = lean::cnstr_get(x_15, 0); +lean::inc(x_20); lean::dec(x_15); -x_71 = lean::alloc_cnstr(0, 11, 0); -lean::cnstr_set(x_71, 0, x_30); -lean::cnstr_set(x_71, 1, x_32); -lean::cnstr_set(x_71, 2, x_34); -lean::cnstr_set(x_71, 3, x_36); -lean::cnstr_set(x_71, 4, x_57); -lean::cnstr_set(x_71, 5, x_58); -lean::cnstr_set(x_71, 6, x_60); -lean::cnstr_set(x_71, 7, x_62); -lean::cnstr_set(x_71, 8, x_64); -lean::cnstr_set(x_71, 9, x_66); -lean::cnstr_set(x_71, 10, x_68); -x_72 = lean::box(0); -if (lean::is_scalar(x_17)) { - x_73 = lean::alloc_cnstr(0, 2, 0); -} else { - x_73 = x_17; +x_23 = l_Lean_Elaborator_section_elaborate___closed__2; +x_4 = x_23; +x_5 = x_20; +goto lbl_6; } -lean::cnstr_set(x_73, 0, x_72); -lean::cnstr_set(x_73, 1, x_71); -if (lean::is_scalar(x_12)) { - x_74 = lean::alloc_cnstr(1, 1, 0); -} else { - x_74 = x_12; } -lean::cnstr_set(x_74, 0, x_73); -return x_74; +else +{ +if (lean::obj_tag(x_15) == 0) +{ +obj* x_25; obj* x_27; obj* x_28; +lean::dec(x_12); +x_25 = lean::cnstr_get(x_15, 0); +if (lean::is_exclusive(x_15)) { + x_27 = x_15; +} else { + lean::inc(x_25); + lean::dec(x_15); + x_27 = lean::box(0); +} +if (lean::is_scalar(x_27)) { + x_28 = lean::alloc_cnstr(0, 1, 0); +} else { + x_28 = x_27; +} +lean::cnstr_set(x_28, 0, x_25); +return x_28; +} +else +{ +obj* x_29; obj* x_32; +x_29 = lean::cnstr_get(x_12, 0); +lean::inc(x_29); +lean::dec(x_12); +x_32 = lean::cnstr_get(x_15, 0); +lean::inc(x_32); +lean::dec(x_15); +x_4 = x_29; +x_5 = x_32; +goto lbl_6; +} +} +lbl_6: +{ +obj* x_35; obj* x_37; obj* x_39; obj* x_40; obj* x_41; obj* x_43; obj* x_45; obj* x_47; obj* x_49; obj* x_51; obj* x_53; obj* x_55; obj* x_57; obj* x_59; obj* x_61; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_71; obj* x_73; obj* x_75; obj* x_77; obj* x_79; obj* x_82; obj* x_83; obj* x_84; obj* x_85; +x_35 = lean::cnstr_get(x_5, 0); +x_37 = lean::cnstr_get(x_5, 1); +if (lean::is_exclusive(x_5)) { + x_39 = x_5; +} else { + lean::inc(x_35); + lean::inc(x_37); + lean::dec(x_5); + x_39 = lean::box(0); +} +x_40 = l_Lean_Elaborator_mangleIdent(x_4); +x_41 = lean::cnstr_get(x_37, 0); +lean::inc(x_41); +x_43 = lean::cnstr_get(x_37, 1); +lean::inc(x_43); +x_45 = lean::cnstr_get(x_37, 2); +lean::inc(x_45); +x_47 = lean::cnstr_get(x_37, 3); +lean::inc(x_47); +x_49 = lean::cnstr_get(x_35, 2); +lean::inc(x_49); +x_51 = lean::cnstr_get(x_35, 3); +lean::inc(x_51); +x_53 = lean::cnstr_get(x_35, 4); +lean::inc(x_53); +x_55 = lean::cnstr_get(x_35, 5); +lean::inc(x_55); +x_57 = lean::cnstr_get(x_35, 6); +lean::inc(x_57); +x_59 = lean::cnstr_get(x_35, 7); +lean::inc(x_59); +x_61 = lean::cnstr_get(x_35, 8); +lean::inc(x_61); +lean::dec(x_35); +x_64 = l_Lean_Elaborator_section_elaborate___closed__1; +x_65 = lean::alloc_cnstr(0, 9, 0); +lean::cnstr_set(x_65, 0, x_64); +lean::cnstr_set(x_65, 1, x_40); +lean::cnstr_set(x_65, 2, x_49); +lean::cnstr_set(x_65, 3, x_51); +lean::cnstr_set(x_65, 4, x_53); +lean::cnstr_set(x_65, 5, x_55); +lean::cnstr_set(x_65, 6, x_57); +lean::cnstr_set(x_65, 7, x_59); +lean::cnstr_set(x_65, 8, x_61); +x_66 = lean::cnstr_get(x_37, 4); +lean::inc(x_66); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_65); +lean::cnstr_set(x_68, 1, x_66); +x_69 = lean::cnstr_get(x_37, 5); +lean::inc(x_69); +x_71 = lean::cnstr_get(x_37, 6); +lean::inc(x_71); +x_73 = lean::cnstr_get(x_37, 7); +lean::inc(x_73); +x_75 = lean::cnstr_get(x_37, 8); +lean::inc(x_75); +x_77 = lean::cnstr_get(x_37, 9); +lean::inc(x_77); +x_79 = lean::cnstr_get(x_37, 10); +lean::inc(x_79); +lean::dec(x_37); +x_82 = lean::alloc_cnstr(0, 11, 0); +lean::cnstr_set(x_82, 0, x_41); +lean::cnstr_set(x_82, 1, x_43); +lean::cnstr_set(x_82, 2, x_45); +lean::cnstr_set(x_82, 3, x_47); +lean::cnstr_set(x_82, 4, x_68); +lean::cnstr_set(x_82, 5, x_69); +lean::cnstr_set(x_82, 6, x_71); +lean::cnstr_set(x_82, 7, x_73); +lean::cnstr_set(x_82, 8, x_75); +lean::cnstr_set(x_82, 9, x_77); +lean::cnstr_set(x_82, 10, x_79); +x_83 = lean::box(0); +if (lean::is_scalar(x_39)) { + x_84 = lean::alloc_cnstr(0, 2, 0); +} else { + x_84 = x_39; +} +lean::cnstr_set(x_84, 0, x_83); +lean::cnstr_set(x_84, 1, x_82); +x_85 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_85, 0, x_84); +return x_85; } } } @@ -32105,81 +32552,7 @@ lean::cnstr_set(x_21, 10, x_18); return x_21; } } -obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; obj* x_8; obj* x_10; obj* x_13; -x_5 = lean::cnstr_get(x_3, 0); -lean::inc(x_5); -lean::dec(x_3); -x_8 = lean::cnstr_get(x_5, 0); -lean::inc(x_8); -x_10 = lean::cnstr_get(x_5, 2); -lean::inc(x_10); -lean::dec(x_5); -x_13 = lean::box(0); -if (lean::obj_tag(x_0) == 0) -{ -obj* x_14; obj* x_15; uint8 x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; -x_14 = l_Lean_Expander_error___rarg___lambda__1___closed__1; -x_15 = l_Lean_FileMap_toPosition(x_10, x_14); -x_16 = 2; -x_17 = l_String_splitAux___main___closed__1; -x_18 = lean::alloc_cnstr(0, 5, 1); -lean::cnstr_set(x_18, 0, x_8); -lean::cnstr_set(x_18, 1, x_15); -lean::cnstr_set(x_18, 2, x_13); -lean::cnstr_set(x_18, 3, x_17); -lean::cnstr_set(x_18, 4, x_1); -lean::cnstr_set_scalar(x_18, sizeof(void*)*5, x_16); -x_19 = x_18; -x_20 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_20, 0, x_19); -return x_20; -} -else -{ -obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_26; uint8 x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; -x_21 = lean::cnstr_get(x_0, 0); -x_22 = l_Lean_Parser_Syntax_getPos(x_21); -x_23 = lean::mk_nat_obj(0ul); -x_24 = l_Option_getOrElse___main___rarg(x_22, x_23); -lean::dec(x_22); -x_26 = l_Lean_FileMap_toPosition(x_10, x_24); -x_27 = 2; -x_28 = l_String_splitAux___main___closed__1; -x_29 = lean::alloc_cnstr(0, 5, 1); -lean::cnstr_set(x_29, 0, x_8); -lean::cnstr_set(x_29, 1, x_26); -lean::cnstr_set(x_29, 2, x_13); -lean::cnstr_set(x_29, 3, x_28); -lean::cnstr_set(x_29, 4, x_1); -lean::cnstr_set_scalar(x_29, sizeof(void*)*5, x_27); -x_30 = x_29; -x_31 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_31, 0, x_30); -return x_31; -} -} -} -obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1___rarg___boxed), 5, 0); -return x_1; -} -} -obj* l_RBMap_find___main___at_Lean_Elaborator_processCommand___spec__2(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_NameMap_contains___spec__2(x_2, lean::box(0), x_0, x_1); -return x_3; -} -} -obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__3___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { obj* x_4; obj* x_7; obj* x_9; obj* x_12; @@ -32195,7 +32568,7 @@ x_12 = lean::box(0); if (lean::obj_tag(x_0) == 0) { obj* x_13; obj* x_14; uint8 x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; -x_13 = l_Lean_Expander_error___rarg___lambda__1___closed__1; +x_13 = lean::mk_nat_obj(0ul); x_14 = l_Lean_FileMap_toPosition(x_9, x_13); x_15 = 2; x_16 = l_String_splitAux___main___closed__1; @@ -32213,38 +32586,158 @@ return x_19; } else { -obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_25; uint8 x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; +obj* x_20; obj* x_21; x_20 = lean::cnstr_get(x_0, 0); x_21 = l_Lean_Parser_Syntax_getPos(x_20); +if (lean::obj_tag(x_21) == 0) +{ +obj* x_22; obj* x_23; uint8 x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; x_22 = lean::mk_nat_obj(0ul); -x_23 = l_Option_getOrElse___main___rarg(x_21, x_22); +x_23 = l_Lean_FileMap_toPosition(x_9, x_22); +x_24 = 2; +x_25 = l_String_splitAux___main___closed__1; +x_26 = lean::alloc_cnstr(0, 5, 1); +lean::cnstr_set(x_26, 0, x_7); +lean::cnstr_set(x_26, 1, x_23); +lean::cnstr_set(x_26, 2, x_12); +lean::cnstr_set(x_26, 3, x_25); +lean::cnstr_set(x_26, 4, x_1); +lean::cnstr_set_scalar(x_26, sizeof(void*)*5, x_24); +x_27 = x_26; +x_28 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_28, 0, x_27); +return x_28; +} +else +{ +obj* x_29; obj* x_32; uint8 x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_29 = lean::cnstr_get(x_21, 0); +lean::inc(x_29); lean::dec(x_21); -x_25 = l_Lean_FileMap_toPosition(x_9, x_23); -x_26 = 2; -x_27 = l_String_splitAux___main___closed__1; -x_28 = lean::alloc_cnstr(0, 5, 1); -lean::cnstr_set(x_28, 0, x_7); -lean::cnstr_set(x_28, 1, x_25); -lean::cnstr_set(x_28, 2, x_12); -lean::cnstr_set(x_28, 3, x_27); -lean::cnstr_set(x_28, 4, x_1); -lean::cnstr_set_scalar(x_28, sizeof(void*)*5, x_26); -x_29 = x_28; -x_30 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_30, 0, x_29); -return x_30; +x_32 = l_Lean_FileMap_toPosition(x_9, x_29); +x_33 = 2; +x_34 = l_String_splitAux___main___closed__1; +x_35 = lean::alloc_cnstr(0, 5, 1); +lean::cnstr_set(x_35, 0, x_7); +lean::cnstr_set(x_35, 1, x_32); +lean::cnstr_set(x_35, 2, x_12); +lean::cnstr_set(x_35, 3, x_34); +lean::cnstr_set(x_35, 4, x_1); +lean::cnstr_set_scalar(x_35, sizeof(void*)*5, x_33); +x_36 = x_35; +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_36); +return x_37; } } } -obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__3(obj* x_0) { +} +obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1(obj* x_0) { _start: { obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__3___rarg___boxed), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1___rarg___boxed), 4, 0); return x_1; } } -obj* _init_l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Elaborator_processCommand___spec__4___closed__1() { +obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +_start: +{ +obj* x_5; obj* x_8; obj* x_10; obj* x_13; +x_5 = lean::cnstr_get(x_3, 0); +lean::inc(x_5); +lean::dec(x_3); +x_8 = lean::cnstr_get(x_5, 0); +lean::inc(x_8); +x_10 = lean::cnstr_get(x_5, 2); +lean::inc(x_10); +lean::dec(x_5); +x_13 = lean::box(0); +if (lean::obj_tag(x_0) == 0) +{ +obj* x_14; obj* x_15; uint8 x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +x_14 = lean::mk_nat_obj(0ul); +x_15 = l_Lean_FileMap_toPosition(x_10, x_14); +x_16 = 2; +x_17 = l_String_splitAux___main___closed__1; +x_18 = lean::alloc_cnstr(0, 5, 1); +lean::cnstr_set(x_18, 0, x_8); +lean::cnstr_set(x_18, 1, x_15); +lean::cnstr_set(x_18, 2, x_13); +lean::cnstr_set(x_18, 3, x_17); +lean::cnstr_set(x_18, 4, x_1); +lean::cnstr_set_scalar(x_18, sizeof(void*)*5, x_16); +x_19 = x_18; +x_20 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_20, 0, x_19); +return x_20; +} +else +{ +obj* x_21; obj* x_22; +x_21 = lean::cnstr_get(x_0, 0); +x_22 = l_Lean_Parser_Syntax_getPos(x_21); +if (lean::obj_tag(x_22) == 0) +{ +obj* x_23; obj* x_24; uint8 x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +x_23 = lean::mk_nat_obj(0ul); +x_24 = l_Lean_FileMap_toPosition(x_10, x_23); +x_25 = 2; +x_26 = l_String_splitAux___main___closed__1; +x_27 = lean::alloc_cnstr(0, 5, 1); +lean::cnstr_set(x_27, 0, x_8); +lean::cnstr_set(x_27, 1, x_24); +lean::cnstr_set(x_27, 2, x_13); +lean::cnstr_set(x_27, 3, x_26); +lean::cnstr_set(x_27, 4, x_1); +lean::cnstr_set_scalar(x_27, sizeof(void*)*5, x_25); +x_28 = x_27; +x_29 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_29, 0, x_28); +return x_29; +} +else +{ +obj* x_30; obj* x_33; uint8 x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_30 = lean::cnstr_get(x_22, 0); +lean::inc(x_30); +lean::dec(x_22); +x_33 = l_Lean_FileMap_toPosition(x_10, x_30); +x_34 = 2; +x_35 = l_String_splitAux___main___closed__1; +x_36 = lean::alloc_cnstr(0, 5, 1); +lean::cnstr_set(x_36, 0, x_8); +lean::cnstr_set(x_36, 1, x_33); +lean::cnstr_set(x_36, 2, x_13); +lean::cnstr_set(x_36, 3, x_35); +lean::cnstr_set(x_36, 4, x_1); +lean::cnstr_set_scalar(x_36, sizeof(void*)*5, x_34); +x_37 = x_36; +x_38 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_38, 0, x_37); +return x_38; +} +} +} +} +obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__2(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__2___rarg___boxed), 5, 0); +return x_1; +} +} +obj* l_RBMap_find___main___at_Lean_Elaborator_processCommand___spec__3(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_NameMap_contains___spec__2(x_2, lean::box(0), x_0, x_1); +return x_3; +} +} +obj* _init_l_Lean_Elaborator_processCommand___lambda__1___closed__1() { _start: { obj* x_0; @@ -32252,7 +32745,7 @@ x_0 = lean::mk_string("not a command: "); return x_0; } } -obj* _init_l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Elaborator_processCommand___spec__4___closed__2() { +obj* _init_l_Lean_Elaborator_processCommand___lambda__1___closed__2() { _start: { obj* x_0; @@ -32260,118 +32753,112 @@ x_0 = lean::mk_string("unknown command: "); return x_0; } } -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Elaborator_processCommand___spec__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { +obj* l_Lean_Elaborator_processCommand___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_8; obj* x_10; -x_8 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Elaborator_processCommand___spec__4), 8, 5); -lean::closure_set(x_8, 0, x_0); -lean::closure_set(x_8, 1, x_1); -lean::closure_set(x_8, 2, x_2); -lean::closure_set(x_8, 3, x_3); -lean::closure_set(x_8, 4, x_4); -lean::inc(x_5); -x_10 = l_Lean_Parser_Syntax_asNode___main(x_5); -if (lean::obj_tag(x_10) == 0) +obj* x_5; +lean::inc(x_1); +x_5 = l_Lean_Parser_Syntax_asNode___main(x_1); +if (lean::obj_tag(x_5) == 0) { -obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_19; -lean::inc(x_5); -x_12 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_12, 0, x_5); -x_13 = l_Lean_Parser_Syntax_toFormat___main(x_5); -x_14 = l_Lean_Options_empty; -x_15 = l_Lean_Format_pretty(x_13, x_14); -x_16 = l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Elaborator_processCommand___spec__4___closed__1; -x_17 = lean::string_append(x_16, x_15); -lean::dec(x_15); -x_19 = l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1___rarg(x_12, x_17, x_8, x_6, x_7); +obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; +lean::inc(x_1); +x_7 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_7, 0, x_1); +x_8 = l_Lean_Parser_Syntax_toFormat___main(x_1); +x_9 = l_Lean_Options_empty; +x_10 = l_Lean_Format_pretty(x_8, x_9); +x_11 = l_Lean_Elaborator_processCommand___lambda__1___closed__1; +x_12 = lean::string_append(x_11, x_10); +lean::dec(x_10); +x_14 = l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__2___rarg(x_7, x_12, x_0, x_2, x_3); +lean::dec(x_3); +lean::dec(x_0); lean::dec(x_7); -lean::dec(x_8); -lean::dec(x_12); -return x_19; +return x_14; } else { -obj* x_23; obj* x_25; obj* x_26; obj* x_29; obj* x_30; -x_23 = lean::cnstr_get(x_10, 0); -if (lean::is_exclusive(x_10)) { - lean::cnstr_set(x_10, 0, lean::box(0)); - x_25 = x_10; +obj* x_18; obj* x_20; obj* x_21; obj* x_24; obj* x_25; +x_18 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + lean::cnstr_set(x_5, 0, lean::box(0)); + x_20 = x_5; } else { - lean::inc(x_23); - lean::dec(x_10); - x_25 = lean::box(0); + lean::inc(x_18); + lean::dec(x_5); + x_20 = lean::box(0); } -x_26 = lean::cnstr_get(x_23, 0); -lean::inc(x_26); -lean::dec(x_23); -x_29 = l_Lean_Elaborator_elaborators; -x_30 = l_RBMap_find___main___at_Lean_Elaborator_processCommand___spec__2(x_29, x_26); -if (lean::obj_tag(x_30) == 0) +x_21 = lean::cnstr_get(x_18, 0); +lean::inc(x_21); +lean::dec(x_18); +x_24 = l_Lean_Elaborator_elaborators; +x_25 = l_RBMap_find___main___at_Lean_Elaborator_processCommand___spec__3(x_24, x_21); +if (lean::obj_tag(x_25) == 0) { -obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_37; -if (lean::is_scalar(x_25)) { - x_31 = lean::alloc_cnstr(1, 1, 0); +obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; +if (lean::is_scalar(x_20)) { + x_26 = lean::alloc_cnstr(1, 1, 0); } else { - x_31 = x_25; + x_26 = x_20; } -lean::cnstr_set(x_31, 0, x_5); -x_32 = l_Lean_Name_toString___closed__1; -x_33 = l_Lean_Name_toStringWithSep___main(x_32, x_26); -x_34 = l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Elaborator_processCommand___spec__4___closed__2; -x_35 = lean::string_append(x_34, x_33); -lean::dec(x_33); -x_37 = l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1___rarg(x_31, x_35, x_8, x_6, x_7); -lean::dec(x_7); -lean::dec(x_8); -lean::dec(x_31); -return x_37; -} -else -{ -obj* x_43; obj* x_47; -lean::dec(x_25); +lean::cnstr_set(x_26, 0, x_1); +x_27 = l_Lean_Name_toString___closed__1; +x_28 = l_Lean_Name_toStringWithSep___main(x_27, x_21); +x_29 = l_Lean_Elaborator_processCommand___lambda__1___closed__2; +x_30 = lean::string_append(x_29, x_28); +lean::dec(x_28); +x_32 = l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__2___rarg(x_26, x_30, x_0, x_2, x_3); +lean::dec(x_3); +lean::dec(x_0); lean::dec(x_26); -x_43 = lean::cnstr_get(x_30, 0); -lean::inc(x_43); -lean::dec(x_30); -lean::inc(x_6); -x_47 = l_Lean_Elaborator_preresolve___main(x_5, x_8, x_6, x_7); -if (lean::obj_tag(x_47) == 0) -{ -obj* x_51; obj* x_53; obj* x_54; -lean::dec(x_8); -lean::dec(x_6); -lean::dec(x_43); -x_51 = lean::cnstr_get(x_47, 0); -if (lean::is_exclusive(x_47)) { - x_53 = x_47; -} else { - lean::inc(x_51); - lean::dec(x_47); - x_53 = lean::box(0); -} -if (lean::is_scalar(x_53)) { - x_54 = lean::alloc_cnstr(0, 1, 0); -} else { - x_54 = x_53; -} -lean::cnstr_set(x_54, 0, x_51); -return x_54; +return x_32; } else { -obj* x_55; obj* x_58; obj* x_60; obj* x_63; -x_55 = lean::cnstr_get(x_47, 0); +obj* x_38; obj* x_42; +lean::dec(x_20); +lean::dec(x_21); +x_38 = lean::cnstr_get(x_25, 0); +lean::inc(x_38); +lean::dec(x_25); +lean::inc(x_2); +x_42 = l_Lean_Elaborator_preresolve___main(x_1, x_0, x_2, x_3); +if (lean::obj_tag(x_42) == 0) +{ +obj* x_46; obj* x_48; obj* x_49; +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_38); +x_46 = lean::cnstr_get(x_42, 0); +if (lean::is_exclusive(x_42)) { + x_48 = x_42; +} else { + lean::inc(x_46); + lean::dec(x_42); + x_48 = lean::box(0); +} +if (lean::is_scalar(x_48)) { + x_49 = lean::alloc_cnstr(0, 1, 0); +} else { + x_49 = x_48; +} +lean::cnstr_set(x_49, 0, x_46); +return x_49; +} +else +{ +obj* x_50; obj* x_53; obj* x_55; obj* x_58; +x_50 = lean::cnstr_get(x_42, 0); +lean::inc(x_50); +lean::dec(x_42); +x_53 = lean::cnstr_get(x_50, 0); +lean::inc(x_53); +x_55 = lean::cnstr_get(x_50, 1); lean::inc(x_55); -lean::dec(x_47); -x_58 = lean::cnstr_get(x_55, 0); -lean::inc(x_58); -x_60 = lean::cnstr_get(x_55, 1); -lean::inc(x_60); -lean::dec(x_55); -x_63 = lean::apply_4(x_43, x_58, x_8, x_6, x_60); -return x_63; +lean::dec(x_50); +x_58 = lean::apply_4(x_38, x_53, x_0, x_2, x_55); +return x_58; } } } @@ -32381,124 +32868,14 @@ obj* _init_l_Lean_Elaborator_processCommand___closed__1() { _start: { obj* x_0; -x_0 = lean::mk_string("Elaborator.run: recursion depth exceeded"); +x_0 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_processCommand___lambda__1), 4, 0); return x_0; } } -obj* _init_l_Lean_Elaborator_processCommand___closed__2() { -_start: -{ -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; -x_0 = lean::alloc_closure(reinterpret_cast(l_id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_Monad___lambda__2___boxed), 4, 0); -lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_id___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_Monad___lambda__3___boxed), 4, 0); -x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); -lean::cnstr_set(x_7, 3, x_1); -lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); -x_9 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_9, 0, x_7); -lean::cnstr_set(x_9, 1, x_8); -return x_9; -} -} -obj* _init_l_Lean_Elaborator_processCommand___closed__3() { -_start: -{ -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; -x_0 = lean::alloc_closure(reinterpret_cast(l_id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_Monad___lambda__2___boxed), 4, 0); -lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_id___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_Monad___lambda__3___boxed), 4, 0); -x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); -lean::cnstr_set(x_7, 3, x_1); -lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); -x_9 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_9, 0, x_7); -lean::cnstr_set(x_9, 1, x_8); -x_10 = l_ExceptT_Monad___rarg(x_9); -return x_10; -} -} -obj* _init_l_Lean_Elaborator_processCommand___closed__4() { -_start: -{ -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_0 = lean::alloc_closure(reinterpret_cast(l_id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_Monad___lambda__2___boxed), 4, 0); -lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_id___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_Monad___lambda__3___boxed), 4, 0); -x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); -lean::cnstr_set(x_7, 3, x_1); -lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); -x_9 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_9, 0, x_7); -lean::cnstr_set(x_9, 1, x_8); -x_10 = l_ExceptT_Monad___rarg(x_9); -x_11 = l_StateT_Monad___rarg(x_10); -return x_11; -} -} -obj* _init_l_Lean_Elaborator_processCommand___closed__5() { -_start: -{ -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; -x_0 = lean::alloc_closure(reinterpret_cast(l_id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_Monad___lambda__2___boxed), 4, 0); -lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_id___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_Monad___lambda__3___boxed), 4, 0); -x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); -lean::cnstr_set(x_7, 3, x_1); -lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); -x_9 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_9, 0, x_7); -lean::cnstr_set(x_9, 1, x_8); -x_10 = l_ExceptT_Monad___rarg(x_9); -x_11 = l_StateT_Monad___rarg(x_10); -x_12 = l_ReaderT_Monad___rarg(x_11); -return x_12; -} -} obj* l_Lean_Elaborator_processCommand(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_15; obj* x_17; obj* x_19; obj* x_21; obj* x_24; obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; +obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_15; obj* x_17; obj* x_19; obj* x_21; obj* x_24; obj* x_35; obj* x_36; obj* x_37; x_3 = lean::cnstr_get(x_1, 0); lean::inc(x_3); x_5 = lean::cnstr_get(x_1, 1); @@ -32543,44 +32920,34 @@ lean::cnstr_set(x_35, 7, x_15); lean::cnstr_set(x_35, 8, x_17); lean::cnstr_set(x_35, 9, x_19); lean::cnstr_set(x_35, 10, x_21); -lean::inc(x_2); -x_37 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_37, 0, x_2); -x_38 = l_Lean_Elaborator_processCommand___closed__1; -x_39 = lean::alloc_closure(reinterpret_cast(l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__3___rarg___boxed), 4, 2); -lean::closure_set(x_39, 0, x_37); -lean::closure_set(x_39, 1, x_38); -x_40 = l_Lean_Elaborator_processCommand___closed__2; -x_41 = l_Lean_Elaborator_processCommand___closed__3; -x_42 = l_Lean_Elaborator_processCommand___closed__4; -x_43 = l_Lean_Elaborator_processCommand___closed__5; -x_44 = l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Elaborator_processCommand___spec__4(x_40, x_41, x_42, x_43, x_39, x_2, x_0, x_35); -if (lean::obj_tag(x_44) == 0) +x_36 = l_Lean_Elaborator_processCommand___closed__1; +x_37 = lean::fixpoint3(x_36, x_2, x_0, x_35); +if (lean::obj_tag(x_37) == 0) { -obj* x_45; obj* x_48; obj* x_49; -x_45 = lean::cnstr_get(x_44, 0); -lean::inc(x_45); -lean::dec(x_44); -x_48 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_48, 0, x_45); -lean::cnstr_set(x_48, 1, x_24); -x_49 = lean::alloc_cnstr(0, 11, 0); -lean::cnstr_set(x_49, 0, x_3); -lean::cnstr_set(x_49, 1, x_5); -lean::cnstr_set(x_49, 2, x_7); -lean::cnstr_set(x_49, 3, x_9); -lean::cnstr_set(x_49, 4, x_11); -lean::cnstr_set(x_49, 5, x_48); -lean::cnstr_set(x_49, 6, x_13); -lean::cnstr_set(x_49, 7, x_15); -lean::cnstr_set(x_49, 8, x_17); -lean::cnstr_set(x_49, 9, x_19); -lean::cnstr_set(x_49, 10, x_21); -return x_49; +obj* x_38; obj* x_41; obj* x_42; +x_38 = lean::cnstr_get(x_37, 0); +lean::inc(x_38); +lean::dec(x_37); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_38); +lean::cnstr_set(x_41, 1, x_24); +x_42 = lean::alloc_cnstr(0, 11, 0); +lean::cnstr_set(x_42, 0, x_3); +lean::cnstr_set(x_42, 1, x_5); +lean::cnstr_set(x_42, 2, x_7); +lean::cnstr_set(x_42, 3, x_9); +lean::cnstr_set(x_42, 4, x_11); +lean::cnstr_set(x_42, 5, x_41); +lean::cnstr_set(x_42, 6, x_13); +lean::cnstr_set(x_42, 7, x_15); +lean::cnstr_set(x_42, 8, x_17); +lean::cnstr_set(x_42, 9, x_19); +lean::cnstr_set(x_42, 10, x_21); +return x_42; } else { -obj* x_60; obj* x_63; +obj* x_53; obj* x_56; lean::dec(x_7); lean::dec(x_15); lean::dec(x_19); @@ -32591,25 +32958,24 @@ lean::dec(x_5); lean::dec(x_9); lean::dec(x_3); lean::dec(x_21); -x_60 = lean::cnstr_get(x_44, 0); -lean::inc(x_60); -lean::dec(x_44); -x_63 = lean::cnstr_get(x_60, 1); -lean::inc(x_63); -lean::dec(x_60); -return x_63; +x_53 = lean::cnstr_get(x_37, 0); +lean::inc(x_53); +lean::dec(x_37); +x_56 = lean::cnstr_get(x_53, 1); +lean::inc(x_56); +lean::dec(x_53); +return x_56; } } } -obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_5; -x_5 = l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1___rarg(x_0, x_1, x_2, x_3, x_4); +obj* x_4; +x_4 = l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1___rarg(x_0, x_1, x_2, x_3); lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_4); -return x_5; +lean::dec(x_3); +return x_4; } } obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1___boxed(obj* x_0) { @@ -32621,34 +32987,35 @@ lean::dec(x_0); return x_1; } } -obj* l_RBMap_find___main___at_Lean_Elaborator_processCommand___spec__2___boxed(obj* x_0, obj* x_1) { +obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__2___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_2; -x_2 = l_RBMap_find___main___at_Lean_Elaborator_processCommand___spec__2(x_0, x_1); -lean::dec(x_1); -return x_2; -} -} -obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__3___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__3___rarg(x_0, x_1, x_2, x_3); +obj* x_5; +x_5 = l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__2___rarg(x_0, x_1, x_2, x_3, x_4); lean::dec(x_0); -lean::dec(x_3); -return x_4; +lean::dec(x_2); +lean::dec(x_4); +return x_5; } } -obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__3___boxed(obj* x_0) { +obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__2___boxed(obj* x_0) { _start: { obj* x_1; -x_1 = l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__3(x_0); +x_1 = l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__2(x_0); lean::dec(x_0); return x_1; } } +obj* l_RBMap_find___main___at_Lean_Elaborator_processCommand___spec__3___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBMap_find___main___at_Lean_Elaborator_processCommand___spec__3(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} obj* initialize_init_lean_parser_module(obj*); obj* initialize_init_lean_expander(obj*); obj* initialize_init_lean_expr(obj*); @@ -32805,10 +33172,6 @@ lean::mark_persistent(l_Lean_Elaborator_toPexpr___main___closed__46); lean::mark_persistent(l_Lean_Elaborator_toPexpr___main___closed__47); l_Lean_Elaborator_toPexpr___main___closed__48 = _init_l_Lean_Elaborator_toPexpr___main___closed__48(); lean::mark_persistent(l_Lean_Elaborator_toPexpr___main___closed__48); - l_Lean_Elaborator_toPexpr___main___closed__49 = _init_l_Lean_Elaborator_toPexpr___main___closed__49(); -lean::mark_persistent(l_Lean_Elaborator_toPexpr___main___closed__49); - l_Lean_Elaborator_toPexpr___main___closed__50 = _init_l_Lean_Elaborator_toPexpr___main___closed__50(); -lean::mark_persistent(l_Lean_Elaborator_toPexpr___main___closed__50); l_Lean_Elaborator_OrderedRBMap_ofList___at_Lean_Elaborator_oldElabCommand___spec__1___closed__1 = _init_l_Lean_Elaborator_OrderedRBMap_ofList___at_Lean_Elaborator_oldElabCommand___spec__1___closed__1(); lean::mark_persistent(l_Lean_Elaborator_OrderedRBMap_ofList___at_Lean_Elaborator_oldElabCommand___spec__1___closed__1); l_Lean_Elaborator_OrderedRBMap_ofList___at_Lean_Elaborator_oldElabCommand___spec__9___closed__1 = _init_l_Lean_Elaborator_OrderedRBMap_ofList___at_Lean_Elaborator_oldElabCommand___spec__9___closed__1(); @@ -32913,6 +33276,8 @@ lean::mark_persistent(l_Lean_Elaborator_end_elaborate___closed__3); lean::mark_persistent(l_Lean_Elaborator_end_elaborate___closed__4); l_Lean_Elaborator_section_elaborate___closed__1 = _init_l_Lean_Elaborator_section_elaborate___closed__1(); lean::mark_persistent(l_Lean_Elaborator_section_elaborate___closed__1); + l_Lean_Elaborator_section_elaborate___closed__2 = _init_l_Lean_Elaborator_section_elaborate___closed__2(); +lean::mark_persistent(l_Lean_Elaborator_section_elaborate___closed__2); l_Lean_Elaborator_namespace_elaborate___closed__1 = _init_l_Lean_Elaborator_namespace_elaborate___closed__1(); lean::mark_persistent(l_Lean_Elaborator_namespace_elaborate___closed__1); l_Lean_Elaborator_eoi_elaborate___closed__1 = _init_l_Lean_Elaborator_eoi_elaborate___closed__1(); @@ -32935,19 +33300,11 @@ lean::mark_persistent(l_Lean_Elaborator_mkState___closed__3); lean::mark_persistent(l_Lean_Elaborator_mkState___closed__4); l_Lean_Elaborator_mkState___closed__5 = _init_l_Lean_Elaborator_mkState___closed__5(); lean::mark_persistent(l_Lean_Elaborator_mkState___closed__5); - l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Elaborator_processCommand___spec__4___closed__1 = _init_l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Elaborator_processCommand___spec__4___closed__1(); -lean::mark_persistent(l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Elaborator_processCommand___spec__4___closed__1); - l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Elaborator_processCommand___spec__4___closed__2 = _init_l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Elaborator_processCommand___spec__4___closed__2(); -lean::mark_persistent(l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Elaborator_processCommand___spec__4___closed__2); + l_Lean_Elaborator_processCommand___lambda__1___closed__1 = _init_l_Lean_Elaborator_processCommand___lambda__1___closed__1(); +lean::mark_persistent(l_Lean_Elaborator_processCommand___lambda__1___closed__1); + l_Lean_Elaborator_processCommand___lambda__1___closed__2 = _init_l_Lean_Elaborator_processCommand___lambda__1___closed__2(); +lean::mark_persistent(l_Lean_Elaborator_processCommand___lambda__1___closed__2); l_Lean_Elaborator_processCommand___closed__1 = _init_l_Lean_Elaborator_processCommand___closed__1(); lean::mark_persistent(l_Lean_Elaborator_processCommand___closed__1); - l_Lean_Elaborator_processCommand___closed__2 = _init_l_Lean_Elaborator_processCommand___closed__2(); -lean::mark_persistent(l_Lean_Elaborator_processCommand___closed__2); - l_Lean_Elaborator_processCommand___closed__3 = _init_l_Lean_Elaborator_processCommand___closed__3(); -lean::mark_persistent(l_Lean_Elaborator_processCommand___closed__3); - l_Lean_Elaborator_processCommand___closed__4 = _init_l_Lean_Elaborator_processCommand___closed__4(); -lean::mark_persistent(l_Lean_Elaborator_processCommand___closed__4); - l_Lean_Elaborator_processCommand___closed__5 = _init_l_Lean_Elaborator_processCommand___closed__5(); -lean::mark_persistent(l_Lean_Elaborator_processCommand___closed__5); return w; } diff --git a/src/stage0/init/lean/expander.cpp b/src/stage0/init/lean/expander.cpp index 9c29511b3a..a64a8cd962 100644 --- a/src/stage0/init/lean/expander.cpp +++ b/src/stage0/init/lean/expander.cpp @@ -142,7 +142,6 @@ extern obj* l_Lean_Parser_command_variable_HasView; obj* l_Lean_Expander_coeNameIdent(obj*); obj* l_List_map___main___at_Lean_Expander_coeMixedBindersBindersExt___spec__2(obj*); obj* l_ReaderT_Monad___rarg(obj*); -obj* l_Lean_Expander_error___rarg___lambda__1___closed__1; obj* l_RBNode_ins___main___at_Lean_Expander_builtinTransformers___spec__5(obj*, obj*, obj*, obj*); obj* l_Lean_Expander_error___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_List_foldr___main___at_Lean_Expander_expandBinders___spec__7(obj*, obj*, obj*, obj*); @@ -167,7 +166,6 @@ obj* l_Lean_Expander_error___at_Lean_Expander_mkNotationTransformer___spec__1___ extern obj* l_Lean_Parser_command_universes; obj* l_Lean_Expander_error(obj*, obj*); obj* l_Lean_Parser_Syntax_mkNode(obj*, obj*); -obj* l_Option_getOrElse___main___rarg(obj*, obj*); obj* l_Lean_Expander_getOptType___boxed(obj*); obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__7(obj*, obj*); obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__21___boxed(obj*, obj*, obj*); @@ -516,16 +514,6 @@ lean::dec(x_0); return x_1; } } -obj* _init_l_Lean_Expander_error___rarg___lambda__1___closed__1() { -_start: -{ -obj* x_0; obj* x_1; obj* x_2; -x_0 = lean::box(0); -x_1 = lean::mk_nat_obj(0ul); -x_2 = l_Option_getOrElse___main___rarg(x_0, x_1); -return x_2; -} -} obj* l_Lean_Expander_error___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { @@ -543,7 +531,7 @@ x_14 = lean::box(0); if (lean::obj_tag(x_2) == 0) { obj* x_15; obj* x_16; uint8 x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; -x_15 = l_Lean_Expander_error___rarg___lambda__1___closed__1; +x_15 = lean::mk_nat_obj(0ul); x_16 = l_Lean_FileMap_toPosition(x_11, x_15); x_17 = 2; x_18 = l_String_splitAux___main___closed__1; @@ -560,25 +548,47 @@ return x_21; } else { -obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_27; uint8 x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; +obj* x_22; obj* x_23; x_22 = lean::cnstr_get(x_2, 0); x_23 = l_Lean_Parser_Syntax_getPos(x_22); +if (lean::obj_tag(x_23) == 0) +{ +obj* x_24; obj* x_25; uint8 x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; x_24 = lean::mk_nat_obj(0ul); -x_25 = l_Option_getOrElse___main___rarg(x_23, x_24); +x_25 = l_Lean_FileMap_toPosition(x_11, x_24); +x_26 = 2; +x_27 = l_String_splitAux___main___closed__1; +x_28 = lean::alloc_cnstr(0, 5, 1); +lean::cnstr_set(x_28, 0, x_9); +lean::cnstr_set(x_28, 1, x_25); +lean::cnstr_set(x_28, 2, x_14); +lean::cnstr_set(x_28, 3, x_27); +lean::cnstr_set(x_28, 4, x_3); +lean::cnstr_set_scalar(x_28, sizeof(void*)*5, x_26); +x_29 = x_28; +x_30 = lean::apply_2(x_5, lean::box(0), x_29); +return x_30; +} +else +{ +obj* x_31; obj* x_34; uint8 x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; +x_31 = lean::cnstr_get(x_23, 0); +lean::inc(x_31); lean::dec(x_23); -x_27 = l_Lean_FileMap_toPosition(x_11, x_25); -x_28 = 2; -x_29 = l_String_splitAux___main___closed__1; -x_30 = lean::alloc_cnstr(0, 5, 1); -lean::cnstr_set(x_30, 0, x_9); -lean::cnstr_set(x_30, 1, x_27); -lean::cnstr_set(x_30, 2, x_14); -lean::cnstr_set(x_30, 3, x_29); -lean::cnstr_set(x_30, 4, x_3); -lean::cnstr_set_scalar(x_30, sizeof(void*)*5, x_28); -x_31 = x_30; -x_32 = lean::apply_2(x_5, lean::box(0), x_31); -return x_32; +x_34 = l_Lean_FileMap_toPosition(x_11, x_31); +x_35 = 2; +x_36 = l_String_splitAux___main___closed__1; +x_37 = lean::alloc_cnstr(0, 5, 1); +lean::cnstr_set(x_37, 0, x_9); +lean::cnstr_set(x_37, 1, x_34); +lean::cnstr_set(x_37, 2, x_14); +lean::cnstr_set(x_37, 3, x_36); +lean::cnstr_set(x_37, 4, x_3); +lean::cnstr_set_scalar(x_37, sizeof(void*)*5, x_35); +x_38 = x_37; +x_39 = lean::apply_2(x_5, lean::box(0), x_38); +return x_39; +} } } } @@ -1027,7 +1037,7 @@ x_9 = lean::box(0); if (lean::obj_tag(x_0) == 0) { obj* x_10; obj* x_11; uint8 x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; -x_10 = l_Lean_Expander_error___rarg___lambda__1___closed__1; +x_10 = lean::mk_nat_obj(0ul); x_11 = l_Lean_FileMap_toPosition(x_6, x_10); x_12 = 2; x_13 = l_String_splitAux___main___closed__1; @@ -1045,26 +1055,49 @@ return x_16; } else { -obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_22; uint8 x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +obj* x_17; obj* x_18; x_17 = lean::cnstr_get(x_0, 0); x_18 = l_Lean_Parser_Syntax_getPos(x_17); +if (lean::obj_tag(x_18) == 0) +{ +obj* x_19; obj* x_20; uint8 x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; x_19 = lean::mk_nat_obj(0ul); -x_20 = l_Option_getOrElse___main___rarg(x_18, x_19); +x_20 = l_Lean_FileMap_toPosition(x_6, x_19); +x_21 = 2; +x_22 = l_String_splitAux___main___closed__1; +x_23 = lean::alloc_cnstr(0, 5, 1); +lean::cnstr_set(x_23, 0, x_4); +lean::cnstr_set(x_23, 1, x_20); +lean::cnstr_set(x_23, 2, x_9); +lean::cnstr_set(x_23, 3, x_22); +lean::cnstr_set(x_23, 4, x_1); +lean::cnstr_set_scalar(x_23, sizeof(void*)*5, x_21); +x_24 = x_23; +x_25 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_25, 0, x_24); +return x_25; +} +else +{ +obj* x_26; obj* x_29; uint8 x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; +x_26 = lean::cnstr_get(x_18, 0); +lean::inc(x_26); lean::dec(x_18); -x_22 = l_Lean_FileMap_toPosition(x_6, x_20); -x_23 = 2; -x_24 = l_String_splitAux___main___closed__1; -x_25 = lean::alloc_cnstr(0, 5, 1); -lean::cnstr_set(x_25, 0, x_4); -lean::cnstr_set(x_25, 1, x_22); -lean::cnstr_set(x_25, 2, x_9); -lean::cnstr_set(x_25, 3, x_24); -lean::cnstr_set(x_25, 4, x_1); -lean::cnstr_set_scalar(x_25, sizeof(void*)*5, x_23); -x_26 = x_25; -x_27 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_27, 0, x_26); -return x_27; +x_29 = l_Lean_FileMap_toPosition(x_6, x_26); +x_30 = 2; +x_31 = l_String_splitAux___main___closed__1; +x_32 = lean::alloc_cnstr(0, 5, 1); +lean::cnstr_set(x_32, 0, x_4); +lean::cnstr_set(x_32, 1, x_29); +lean::cnstr_set(x_32, 2, x_9); +lean::cnstr_set(x_32, 3, x_31); +lean::cnstr_set(x_32, 4, x_1); +lean::cnstr_set_scalar(x_32, sizeof(void*)*5, x_30); +x_33 = x_32; +x_34 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_34, 0, x_33); +return x_34; +} } } } @@ -1165,7 +1198,7 @@ x_8 = lean::box(0); if (lean::obj_tag(x_0) == 0) { obj* x_9; obj* x_10; uint8 x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; -x_9 = l_Lean_Expander_error___rarg___lambda__1___closed__1; +x_9 = lean::mk_nat_obj(0ul); x_10 = l_Lean_FileMap_toPosition(x_5, x_9); x_11 = 2; x_12 = l_String_splitAux___main___closed__1; @@ -1183,26 +1216,49 @@ return x_15; } else { -obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_21; uint8 x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +obj* x_16; obj* x_17; x_16 = lean::cnstr_get(x_0, 0); x_17 = l_Lean_Parser_Syntax_getPos(x_16); +if (lean::obj_tag(x_17) == 0) +{ +obj* x_18; obj* x_19; uint8 x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; x_18 = lean::mk_nat_obj(0ul); -x_19 = l_Option_getOrElse___main___rarg(x_17, x_18); +x_19 = l_Lean_FileMap_toPosition(x_5, x_18); +x_20 = 2; +x_21 = l_String_splitAux___main___closed__1; +x_22 = lean::alloc_cnstr(0, 5, 1); +lean::cnstr_set(x_22, 0, x_3); +lean::cnstr_set(x_22, 1, x_19); +lean::cnstr_set(x_22, 2, x_8); +lean::cnstr_set(x_22, 3, x_21); +lean::cnstr_set(x_22, 4, x_1); +lean::cnstr_set_scalar(x_22, sizeof(void*)*5, x_20); +x_23 = x_22; +x_24 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_24, 0, x_23); +return x_24; +} +else +{ +obj* x_25; obj* x_28; uint8 x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_25 = lean::cnstr_get(x_17, 0); +lean::inc(x_25); lean::dec(x_17); -x_21 = l_Lean_FileMap_toPosition(x_5, x_19); -x_22 = 2; -x_23 = l_String_splitAux___main___closed__1; -x_24 = lean::alloc_cnstr(0, 5, 1); -lean::cnstr_set(x_24, 0, x_3); -lean::cnstr_set(x_24, 1, x_21); -lean::cnstr_set(x_24, 2, x_8); -lean::cnstr_set(x_24, 3, x_23); -lean::cnstr_set(x_24, 4, x_1); -lean::cnstr_set_scalar(x_24, sizeof(void*)*5, x_22); -x_25 = x_24; -x_26 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_26, 0, x_25); -return x_26; +x_28 = l_Lean_FileMap_toPosition(x_5, x_25); +x_29 = 2; +x_30 = l_String_splitAux___main___closed__1; +x_31 = lean::alloc_cnstr(0, 5, 1); +lean::cnstr_set(x_31, 0, x_3); +lean::cnstr_set(x_31, 1, x_28); +lean::cnstr_set(x_31, 2, x_8); +lean::cnstr_set(x_31, 3, x_30); +lean::cnstr_set(x_31, 4, x_1); +lean::cnstr_set_scalar(x_31, sizeof(void*)*5, x_29); +x_32 = x_31; +x_33 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_33, 0, x_32); +return x_33; +} } } } @@ -9026,58 +9082,83 @@ return x_2; obj* _init_l_Lean_Expander_Declaration_transform___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_11; obj* x_12; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; x_0 = lean::box(0); -x_1 = lean::mk_string("@["); -x_2 = l_String_trim(x_1); -lean::dec(x_1); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_2); -x_5 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_5, 0, x_4); -x_6 = lean::box(0); -x_7 = lean::mk_string("]"); -x_8 = l_String_trim(x_7); -lean::dec(x_7); -x_10 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_10, 0, x_0); +x_1 = lean::mk_string("class"); +x_2 = lean_name_mk_string(x_0, x_1); +x_3 = lean::box(0); +x_4 = lean::mk_string("."); +lean::inc(x_2); +x_6 = l_Lean_Name_toStringWithSep___main(x_4, x_2); +lean::dec(x_4); +x_8 = l_Lean_Parser_Substring_ofString(x_6); +x_9 = lean::box(0); +x_10 = lean::alloc_cnstr(0, 5, 0); +lean::cnstr_set(x_10, 0, x_3); lean::cnstr_set(x_10, 1, x_8); -x_11 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_10, 2, x_2); +lean::cnstr_set(x_10, 3, x_9); +lean::cnstr_set(x_10, 4, x_9); +x_11 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_11, 0, x_10); -x_12 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_12, 0, x_5); -lean::cnstr_set(x_12, 1, x_6); -lean::cnstr_set(x_12, 2, x_11); -return x_12; +lean::cnstr_set(x_11, 1, x_9); +x_12 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_3); +x_13 = lean::mk_string("@["); +x_14 = l_String_trim(x_13); +lean::dec(x_13); +x_16 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_16, 0, x_3); +lean::cnstr_set(x_16, 1, x_14); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_16); +x_18 = lean::mk_string("]"); +x_19 = l_String_trim(x_18); +lean::dec(x_18); +x_21 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_21, 0, x_3); +lean::cnstr_set(x_21, 1, x_19); +x_22 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_22, 0, x_21); +x_23 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_23, 0, x_12); +lean::cnstr_set(x_23, 1, x_9); +x_24 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_24, 0, x_17); +lean::cnstr_set(x_24, 1, x_23); +lean::cnstr_set(x_24, 2, x_22); +x_25 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_25, 0, x_24); +return x_25; } } obj* _init_l_Lean_Expander_Declaration_transform___closed__2() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_7; obj* x_9; obj* x_10; obj* x_11; obj* x_12; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(0); -x_3 = lean::mk_string("class"); -x_4 = lean_name_mk_string(x_2, x_3); -x_5 = lean::mk_string("."); -lean::inc(x_4); -x_7 = l_Lean_Name_toStringWithSep___main(x_5, x_4); -lean::dec(x_5); -x_9 = l_Lean_Parser_Substring_ofString(x_7); +x_1 = lean::mk_string("class"); +x_2 = lean_name_mk_string(x_0, x_1); +x_3 = lean::box(0); +x_4 = lean::mk_string("."); +lean::inc(x_2); +x_6 = l_Lean_Name_toStringWithSep___main(x_4, x_2); +lean::dec(x_4); +x_8 = l_Lean_Parser_Substring_ofString(x_6); +x_9 = lean::box(0); x_10 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_10, 0, x_0); -lean::cnstr_set(x_10, 1, x_9); -lean::cnstr_set(x_10, 2, x_4); -lean::cnstr_set(x_10, 3, x_1); -lean::cnstr_set(x_10, 4, x_1); +lean::cnstr_set(x_10, 0, x_3); +lean::cnstr_set(x_10, 1, x_8); +lean::cnstr_set(x_10, 2, x_2); +lean::cnstr_set(x_10, 3, x_9); +lean::cnstr_set(x_10, 4, x_9); x_11 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_11, 0, x_10); -lean::cnstr_set(x_11, 1, x_1); +lean::cnstr_set(x_11, 1, x_9); x_12 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_12, 0, x_11); -lean::cnstr_set(x_12, 1, x_0); +lean::cnstr_set(x_12, 1, x_3); return x_12; } } @@ -9135,7 +9216,7 @@ return x_16; } else { -obj* x_17; obj* x_18; obj* x_20; obj* x_22; obj* x_24; obj* x_26; obj* x_28; obj* x_30; obj* x_31; obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_40; obj* x_43; obj* x_45; obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_54; obj* x_55; obj* x_56; obj* x_58; obj* x_60; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; +obj* x_17; obj* x_18; obj* x_20; obj* x_22; obj* x_24; obj* x_26; obj* x_28; obj* x_30; obj* x_31; obj* x_34; obj* x_36; obj* x_39; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_49; obj* x_50; if (lean::is_exclusive(x_11)) { lean::cnstr_release(x_11, 0); x_17 = x_11; @@ -9167,208 +9248,278 @@ lean::inc(x_31); lean::dec(x_5); x_34 = lean::cnstr_get(x_31, 1); lean::inc(x_34); -x_36 = lean::box(0); -x_37 = l_Lean_Expander_Declaration_transform___closed__1; -x_38 = l_Option_getOrElse___main___rarg(x_34, x_37); -lean::dec(x_34); -x_40 = lean::cnstr_get(x_2, 1); -lean::inc(x_40); +x_36 = lean::cnstr_get(x_2, 1); +lean::inc(x_36); lean::dec(x_2); -x_43 = lean::cnstr_get(x_31, 0); -lean::inc(x_43); -x_45 = lean::cnstr_get(x_38, 0); -lean::inc(x_45); -x_47 = lean::cnstr_get(x_38, 1); -lean::inc(x_47); -x_49 = l_Lean_Expander_Declaration_transform___closed__2; -x_50 = lean::alloc_cnstr(1, 2, 0); +x_39 = lean::cnstr_get(x_31, 0); +lean::inc(x_39); +x_41 = lean::box(0); +x_42 = lean::cnstr_get(x_31, 2); +lean::inc(x_42); +x_44 = lean::cnstr_get(x_31, 3); +lean::inc(x_44); +x_46 = lean::cnstr_get(x_31, 4); +lean::inc(x_46); +lean::dec(x_31); +if (lean::is_scalar(x_30)) { + x_49 = lean::alloc_cnstr(0, 7, 0); +} else { + x_49 = x_30; +} +lean::cnstr_set(x_49, 0, x_41); +lean::cnstr_set(x_49, 1, x_18); +lean::cnstr_set(x_49, 2, x_20); +lean::cnstr_set(x_49, 3, x_22); +lean::cnstr_set(x_49, 4, x_24); +lean::cnstr_set(x_49, 5, x_26); +lean::cnstr_set(x_49, 6, x_28); +if (lean::is_scalar(x_10)) { + x_50 = lean::alloc_cnstr(4, 1, 0); +} else { + x_50 = x_10; +} lean::cnstr_set(x_50, 0, x_49); -lean::cnstr_set(x_50, 1, x_47); -x_51 = lean::cnstr_get(x_38, 2); -lean::inc(x_51); -lean::dec(x_38); -x_54 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_54, 0, x_45); -lean::cnstr_set(x_54, 1, x_50); -lean::cnstr_set(x_54, 2, x_51); +if (lean::obj_tag(x_34) == 0) +{ +obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +x_51 = l_Lean_Expander_Declaration_transform___closed__1; +x_52 = lean::alloc_cnstr(0, 5, 0); +lean::cnstr_set(x_52, 0, x_39); +lean::cnstr_set(x_52, 1, x_51); +lean::cnstr_set(x_52, 2, x_42); +lean::cnstr_set(x_52, 3, x_44); +lean::cnstr_set(x_52, 4, x_46); +x_53 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_53, 0, x_52); +lean::cnstr_set(x_53, 1, x_50); +x_54 = lean::apply_1(x_36, x_53); if (lean::is_scalar(x_17)) { x_55 = lean::alloc_cnstr(1, 1, 0); } else { x_55 = x_17; } lean::cnstr_set(x_55, 0, x_54); -x_56 = lean::cnstr_get(x_31, 2); -lean::inc(x_56); -x_58 = lean::cnstr_get(x_31, 3); -lean::inc(x_58); -x_60 = lean::cnstr_get(x_31, 4); +x_56 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_56, 0, x_55); +return x_56; +} +else +{ +obj* x_57; obj* x_59; obj* x_60; obj* x_62; obj* x_64; obj* x_65; obj* x_66; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; +x_57 = lean::cnstr_get(x_34, 0); +if (lean::is_exclusive(x_34)) { + x_59 = x_34; +} else { + lean::inc(x_57); + lean::dec(x_34); + x_59 = lean::box(0); +} +x_60 = lean::cnstr_get(x_57, 0); lean::inc(x_60); -lean::dec(x_31); -x_63 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_63, 0, x_43); -lean::cnstr_set(x_63, 1, x_55); -lean::cnstr_set(x_63, 2, x_56); -lean::cnstr_set(x_63, 3, x_58); -lean::cnstr_set(x_63, 4, x_60); -if (lean::is_scalar(x_30)) { - x_64 = lean::alloc_cnstr(0, 7, 0); -} else { - x_64 = x_30; -} -lean::cnstr_set(x_64, 0, x_36); -lean::cnstr_set(x_64, 1, x_18); -lean::cnstr_set(x_64, 2, x_20); -lean::cnstr_set(x_64, 3, x_22); -lean::cnstr_set(x_64, 4, x_24); -lean::cnstr_set(x_64, 5, x_26); -lean::cnstr_set(x_64, 6, x_28); -if (lean::is_scalar(x_10)) { - x_65 = lean::alloc_cnstr(4, 1, 0); -} else { - x_65 = x_10; -} +x_62 = lean::cnstr_get(x_57, 1); +lean::inc(x_62); +x_64 = l_Lean_Expander_Declaration_transform___closed__2; +x_65 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_65, 0, x_64); -x_66 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_66, 0, x_63); -lean::cnstr_set(x_66, 1, x_65); -x_67 = lean::apply_1(x_40, x_66); -x_68 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_68, 0, x_67); -x_69 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_69, 0, x_68); -return x_69; +lean::cnstr_set(x_65, 1, x_62); +x_66 = lean::cnstr_get(x_57, 2); +lean::inc(x_66); +lean::dec(x_57); +x_69 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_69, 0, x_60); +lean::cnstr_set(x_69, 1, x_65); +lean::cnstr_set(x_69, 2, x_66); +if (lean::is_scalar(x_59)) { + x_70 = lean::alloc_cnstr(1, 1, 0); +} else { + x_70 = x_59; +} +lean::cnstr_set(x_70, 0, x_69); +x_71 = lean::alloc_cnstr(0, 5, 0); +lean::cnstr_set(x_71, 0, x_39); +lean::cnstr_set(x_71, 1, x_70); +lean::cnstr_set(x_71, 2, x_42); +lean::cnstr_set(x_71, 3, x_44); +lean::cnstr_set(x_71, 4, x_46); +x_72 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_72, 0, x_71); +lean::cnstr_set(x_72, 1, x_50); +x_73 = lean::apply_1(x_36, x_72); +if (lean::is_scalar(x_17)) { + x_74 = lean::alloc_cnstr(1, 1, 0); +} else { + x_74 = x_17; +} +lean::cnstr_set(x_74, 0, x_73); +x_75 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_75, 0, x_74); +return x_75; +} } } case 5: { -obj* x_70; obj* x_72; obj* x_73; -x_70 = lean::cnstr_get(x_6, 0); +obj* x_76; obj* x_78; obj* x_79; +x_76 = lean::cnstr_get(x_6, 0); if (lean::is_exclusive(x_6)) { lean::cnstr_set(x_6, 0, lean::box(0)); - x_72 = x_6; + x_78 = x_6; } else { - lean::inc(x_70); + lean::inc(x_76); lean::dec(x_6); - x_72 = lean::box(0); + x_78 = lean::box(0); } -x_73 = lean::cnstr_get(x_70, 0); -lean::inc(x_73); -if (lean::obj_tag(x_73) == 0) +x_79 = lean::cnstr_get(x_76, 0); +lean::inc(x_79); +if (lean::obj_tag(x_79) == 0) { -obj* x_79; +obj* x_85; lean::dec(x_5); -lean::dec(x_72); -lean::dec(x_70); -lean::dec(x_73); -x_79 = l_Lean_Expander_noExpansion___closed__1; -return x_79; +lean::dec(x_78); +lean::dec(x_79); +lean::dec(x_76); +x_85 = l_Lean_Expander_noExpansion___closed__1; +return x_85; } else { -obj* x_81; obj* x_83; obj* x_85; obj* x_87; obj* x_89; obj* x_91; obj* x_93; obj* x_95; obj* x_96; obj* x_99; obj* x_101; obj* x_102; obj* x_104; obj* x_107; obj* x_109; obj* x_111; obj* x_113; obj* x_114; obj* x_115; obj* x_118; obj* x_119; obj* x_120; obj* x_122; obj* x_124; obj* x_127; obj* x_128; obj* x_129; obj* x_130; obj* x_131; obj* x_132; obj* x_133; obj* x_134; -lean::dec(x_73); -x_81 = lean::cnstr_get(x_70, 1); -x_83 = lean::cnstr_get(x_70, 2); -x_85 = lean::cnstr_get(x_70, 3); -x_87 = lean::cnstr_get(x_70, 4); -x_89 = lean::cnstr_get(x_70, 5); -x_91 = lean::cnstr_get(x_70, 6); -x_93 = lean::cnstr_get(x_70, 7); -if (lean::is_exclusive(x_70)) { - lean::cnstr_release(x_70, 0); - x_95 = x_70; +obj* x_87; obj* x_89; obj* x_91; obj* x_93; obj* x_95; obj* x_97; obj* x_99; obj* x_101; obj* x_102; obj* x_105; obj* x_107; obj* x_110; obj* x_112; obj* x_114; obj* x_116; obj* x_119; obj* x_120; obj* x_121; +lean::dec(x_79); +x_87 = lean::cnstr_get(x_76, 1); +x_89 = lean::cnstr_get(x_76, 2); +x_91 = lean::cnstr_get(x_76, 3); +x_93 = lean::cnstr_get(x_76, 4); +x_95 = lean::cnstr_get(x_76, 5); +x_97 = lean::cnstr_get(x_76, 6); +x_99 = lean::cnstr_get(x_76, 7); +if (lean::is_exclusive(x_76)) { + lean::cnstr_release(x_76, 0); + x_101 = x_76; } else { - lean::inc(x_81); - lean::inc(x_83); - lean::inc(x_85); lean::inc(x_87); lean::inc(x_89); lean::inc(x_91); lean::inc(x_93); - lean::dec(x_70); - x_95 = lean::box(0); + lean::inc(x_95); + lean::inc(x_97); + lean::inc(x_99); + lean::dec(x_76); + x_101 = lean::box(0); } -x_96 = lean::cnstr_get(x_5, 0); -lean::inc(x_96); +x_102 = lean::cnstr_get(x_5, 0); +lean::inc(x_102); lean::dec(x_5); -x_99 = lean::cnstr_get(x_96, 1); -lean::inc(x_99); -x_101 = l_Lean_Expander_Declaration_transform___closed__1; -x_102 = l_Option_getOrElse___main___rarg(x_99, x_101); -lean::dec(x_99); -x_104 = lean::cnstr_get(x_2, 1); -lean::inc(x_104); -lean::dec(x_2); -x_107 = lean::cnstr_get(x_96, 0); +x_105 = lean::cnstr_get(x_102, 1); +lean::inc(x_105); +x_107 = lean::cnstr_get(x_2, 1); lean::inc(x_107); -x_109 = lean::cnstr_get(x_102, 0); -lean::inc(x_109); -x_111 = lean::cnstr_get(x_102, 1); -lean::inc(x_111); -x_113 = l_Lean_Expander_Declaration_transform___closed__2; -x_114 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_114, 0, x_113); -lean::cnstr_set(x_114, 1, x_111); -x_115 = lean::cnstr_get(x_102, 2); -lean::inc(x_115); +lean::dec(x_2); +x_110 = lean::cnstr_get(x_102, 0); +lean::inc(x_110); +x_112 = lean::cnstr_get(x_102, 2); +lean::inc(x_112); +x_114 = lean::cnstr_get(x_102, 3); +lean::inc(x_114); +x_116 = lean::cnstr_get(x_102, 4); +lean::inc(x_116); lean::dec(x_102); -x_118 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_118, 0, x_109); -lean::cnstr_set(x_118, 1, x_114); -lean::cnstr_set(x_118, 2, x_115); -x_119 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_119, 0, x_118); -x_120 = lean::cnstr_get(x_96, 2); -lean::inc(x_120); -x_122 = lean::cnstr_get(x_96, 3); -lean::inc(x_122); -x_124 = lean::cnstr_get(x_96, 4); -lean::inc(x_124); -lean::dec(x_96); -x_127 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_127, 0, x_107); -lean::cnstr_set(x_127, 1, x_119); -lean::cnstr_set(x_127, 2, x_120); -lean::cnstr_set(x_127, 3, x_122); -lean::cnstr_set(x_127, 4, x_124); -x_128 = l_Lean_Expander_Declaration_transform___closed__3; -if (lean::is_scalar(x_95)) { - x_129 = lean::alloc_cnstr(0, 8, 0); +x_119 = l_Lean_Expander_Declaration_transform___closed__3; +if (lean::is_scalar(x_101)) { + x_120 = lean::alloc_cnstr(0, 8, 0); } else { - x_129 = x_95; + x_120 = x_101; } -lean::cnstr_set(x_129, 0, x_128); -lean::cnstr_set(x_129, 1, x_81); -lean::cnstr_set(x_129, 2, x_83); -lean::cnstr_set(x_129, 3, x_85); -lean::cnstr_set(x_129, 4, x_87); -lean::cnstr_set(x_129, 5, x_89); -lean::cnstr_set(x_129, 6, x_91); -lean::cnstr_set(x_129, 7, x_93); -if (lean::is_scalar(x_72)) { - x_130 = lean::alloc_cnstr(5, 1, 0); +lean::cnstr_set(x_120, 0, x_119); +lean::cnstr_set(x_120, 1, x_87); +lean::cnstr_set(x_120, 2, x_89); +lean::cnstr_set(x_120, 3, x_91); +lean::cnstr_set(x_120, 4, x_93); +lean::cnstr_set(x_120, 5, x_95); +lean::cnstr_set(x_120, 6, x_97); +lean::cnstr_set(x_120, 7, x_99); +if (lean::is_scalar(x_78)) { + x_121 = lean::alloc_cnstr(5, 1, 0); } else { - x_130 = x_72; + x_121 = x_78; +} +lean::cnstr_set(x_121, 0, x_120); +if (lean::obj_tag(x_105) == 0) +{ +obj* x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; +x_122 = l_Lean_Expander_Declaration_transform___closed__1; +x_123 = lean::alloc_cnstr(0, 5, 0); +lean::cnstr_set(x_123, 0, x_110); +lean::cnstr_set(x_123, 1, x_122); +lean::cnstr_set(x_123, 2, x_112); +lean::cnstr_set(x_123, 3, x_114); +lean::cnstr_set(x_123, 4, x_116); +x_124 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_124, 0, x_123); +lean::cnstr_set(x_124, 1, x_121); +x_125 = lean::apply_1(x_107, x_124); +x_126 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_126, 0, x_125); +x_127 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_127, 0, x_126); +return x_127; +} +else +{ +obj* x_128; obj* x_130; obj* x_131; obj* x_133; obj* x_135; obj* x_136; obj* x_137; obj* x_140; obj* x_141; obj* x_142; obj* x_143; obj* x_144; obj* x_145; obj* x_146; +x_128 = lean::cnstr_get(x_105, 0); +if (lean::is_exclusive(x_105)) { + x_130 = x_105; +} else { + lean::inc(x_128); + lean::dec(x_105); + x_130 = lean::box(0); +} +x_131 = lean::cnstr_get(x_128, 0); +lean::inc(x_131); +x_133 = lean::cnstr_get(x_128, 1); +lean::inc(x_133); +x_135 = l_Lean_Expander_Declaration_transform___closed__2; +x_136 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_136, 0, x_135); +lean::cnstr_set(x_136, 1, x_133); +x_137 = lean::cnstr_get(x_128, 2); +lean::inc(x_137); +lean::dec(x_128); +x_140 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_140, 0, x_131); +lean::cnstr_set(x_140, 1, x_136); +lean::cnstr_set(x_140, 2, x_137); +if (lean::is_scalar(x_130)) { + x_141 = lean::alloc_cnstr(1, 1, 0); +} else { + x_141 = x_130; +} +lean::cnstr_set(x_141, 0, x_140); +x_142 = lean::alloc_cnstr(0, 5, 0); +lean::cnstr_set(x_142, 0, x_110); +lean::cnstr_set(x_142, 1, x_141); +lean::cnstr_set(x_142, 2, x_112); +lean::cnstr_set(x_142, 3, x_114); +lean::cnstr_set(x_142, 4, x_116); +x_143 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_143, 0, x_142); +lean::cnstr_set(x_143, 1, x_121); +x_144 = lean::apply_1(x_107, x_143); +x_145 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_145, 0, x_144); +x_146 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_146, 0, x_145); +return x_146; } -lean::cnstr_set(x_130, 0, x_129); -x_131 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_131, 0, x_127); -lean::cnstr_set(x_131, 1, x_130); -x_132 = lean::apply_1(x_104, x_131); -x_133 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_133, 0, x_132); -x_134 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_134, 0, x_133); -return x_134; } } default: { -obj* x_137; +obj* x_149; lean::dec(x_6); lean::dec(x_5); -x_137 = l_Lean_Expander_noExpansion___closed__1; -return x_137; +x_149 = l_Lean_Expander_noExpansion___closed__1; +return x_149; } } } @@ -9668,17 +9819,15 @@ return x_6; obj* _init_l_Lean_Expander_bindingAnnotationUpdate_HasView_x_27___lambda__1___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -x_4 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_4, 0, x_3); -lean::cnstr_set(x_4, 1, x_0); -x_5 = l_Lean_Expander_bindingAnnotationUpdate; -x_6 = l_Lean_Parser_Syntax_mkNode(x_5, x_4); -return x_6; +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = l_Lean_Expander_bindingAnnotationUpdate; +x_4 = l_Lean_Parser_Syntax_mkNode(x_3, x_2); +return x_4; } } obj* l_Lean_Expander_bindingAnnotationUpdate_HasView_x_27___lambda__1(obj* x_0) { @@ -9692,33 +9841,19 @@ return x_1; } else { -obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; +obj* x_2; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_2 = lean::cnstr_get(x_0, 0); -if (lean::is_exclusive(x_0)) { - x_4 = x_0; -} else { - lean::inc(x_2); - lean::dec(x_0); - x_4 = lean::box(0); -} +lean::inc(x_2); +lean::dec(x_0); x_5 = lean::box(0); x_6 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_6, 0, x_2); -if (lean::is_scalar(x_4)) { - x_7 = lean::alloc_cnstr(1, 1, 0); -} else { - x_7 = x_4; -} +x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); -x_8 = lean::box(3); -x_9 = l_Option_getOrElse___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_11, 0, x_9); -lean::cnstr_set(x_11, 1, x_5); -x_12 = l_Lean_Expander_bindingAnnotationUpdate; -x_13 = l_Lean_Parser_Syntax_mkNode(x_12, x_11); -return x_13; +lean::cnstr_set(x_7, 1, x_5); +x_8 = l_Lean_Expander_bindingAnnotationUpdate; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } } @@ -11243,7 +11378,7 @@ x_12 = lean::box(0); if (lean::obj_tag(x_0) == 0) { obj* x_13; obj* x_14; uint8 x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; -x_13 = l_Lean_Expander_error___rarg___lambda__1___closed__1; +x_13 = lean::mk_nat_obj(0ul); x_14 = l_Lean_FileMap_toPosition(x_9, x_13); x_15 = 2; x_16 = l_String_splitAux___main___closed__1; @@ -11261,26 +11396,49 @@ return x_19; } else { -obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_25; uint8 x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; +obj* x_20; obj* x_21; x_20 = lean::cnstr_get(x_0, 0); x_21 = l_Lean_Parser_Syntax_getPos(x_20); +if (lean::obj_tag(x_21) == 0) +{ +obj* x_22; obj* x_23; uint8 x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; x_22 = lean::mk_nat_obj(0ul); -x_23 = l_Option_getOrElse___main___rarg(x_21, x_22); +x_23 = l_Lean_FileMap_toPosition(x_9, x_22); +x_24 = 2; +x_25 = l_String_splitAux___main___closed__1; +x_26 = lean::alloc_cnstr(0, 5, 1); +lean::cnstr_set(x_26, 0, x_7); +lean::cnstr_set(x_26, 1, x_23); +lean::cnstr_set(x_26, 2, x_12); +lean::cnstr_set(x_26, 3, x_25); +lean::cnstr_set(x_26, 4, x_1); +lean::cnstr_set_scalar(x_26, sizeof(void*)*5, x_24); +x_27 = x_26; +x_28 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_28, 0, x_27); +return x_28; +} +else +{ +obj* x_29; obj* x_32; uint8 x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_29 = lean::cnstr_get(x_21, 0); +lean::inc(x_29); lean::dec(x_21); -x_25 = l_Lean_FileMap_toPosition(x_9, x_23); -x_26 = 2; -x_27 = l_String_splitAux___main___closed__1; -x_28 = lean::alloc_cnstr(0, 5, 1); -lean::cnstr_set(x_28, 0, x_7); -lean::cnstr_set(x_28, 1, x_25); -lean::cnstr_set(x_28, 2, x_12); -lean::cnstr_set(x_28, 3, x_27); -lean::cnstr_set(x_28, 4, x_1); -lean::cnstr_set_scalar(x_28, sizeof(void*)*5, x_26); -x_29 = x_28; -x_30 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_30, 0, x_29); -return x_30; +x_32 = l_Lean_FileMap_toPosition(x_9, x_29); +x_33 = 2; +x_34 = l_String_splitAux___main___closed__1; +x_35 = lean::alloc_cnstr(0, 5, 1); +lean::cnstr_set(x_35, 0, x_7); +lean::cnstr_set(x_35, 1, x_32); +lean::cnstr_set(x_35, 2, x_12); +lean::cnstr_set(x_35, 3, x_34); +lean::cnstr_set(x_35, 4, x_1); +lean::cnstr_set_scalar(x_35, sizeof(void*)*5, x_33); +x_36 = x_35; +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_36); +return x_37; +} } } } @@ -12015,8 +12173,6 @@ lean::mark_persistent(l_Lean_Expander_TransformM_MonadReader); lean::mark_persistent(l_Lean_Expander_TransformM_MonadExcept); l_Lean_Expander_noExpansion___closed__1 = _init_l_Lean_Expander_noExpansion___closed__1(); lean::mark_persistent(l_Lean_Expander_noExpansion___closed__1); - l_Lean_Expander_error___rarg___lambda__1___closed__1 = _init_l_Lean_Expander_error___rarg___lambda__1___closed__1(); -lean::mark_persistent(l_Lean_Expander_error___rarg___lambda__1___closed__1); l_Lean_Expander_coeBinderBracketedBinder___closed__1 = _init_l_Lean_Expander_coeBinderBracketedBinder___closed__1(); lean::mark_persistent(l_Lean_Expander_coeBinderBracketedBinder___closed__1); l_Lean_Expander_coeBinderBracketedBinder___closed__2 = _init_l_Lean_Expander_coeBinderBracketedBinder___closed__2(); diff --git a/src/stage0/init/lean/extern.cpp b/src/stage0/init/lean/extern.cpp index ec42911c5a..804be6dfe9 100644 --- a/src/stage0/init/lean/extern.cpp +++ b/src/stage0/init/lean/extern.cpp @@ -55,7 +55,6 @@ namespace lean { obj* string_append(obj*, obj*); } extern obj* l_List_reprAux___main___rarg___closed__1; -obj* l_Option_getOrElse___main___rarg(obj*, obj*); extern obj* l_Option_HasRepr___rarg___closed__3; obj* l_Lean_expandExternPatternAux___main(obj*, obj*, obj*, obj*); extern "C" obj* lean_name_mk_string(obj*, obj*); @@ -286,7 +285,7 @@ goto _start; } else { -obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_27; obj* x_30; obj* x_31; obj* x_32; obj* x_34; +obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_27; obj* x_30; x_19 = l_String_Iterator_next___main(x_2); x_20 = l_String_Iterator_remainingBytes___main(x_19); x_21 = l___private_init_lean_extern_1__parseOptNum___main(x_20, x_19, x_4); @@ -299,16 +298,30 @@ x_27 = lean::nat_sub(x_24, x_10); lean::dec(x_24); lean::inc(x_0); x_30 = l_List_nth___main___rarg(x_0, x_27); +if (lean::obj_tag(x_30) == 0) +{ +obj* x_31; obj* x_32; x_31 = l_String_splitAux___main___closed__1; -x_32 = l_Option_getOrElse___main___rarg(x_30, x_31); -lean::dec(x_30); -x_34 = lean::string_append(x_3, x_32); -lean::dec(x_32); +x_32 = lean::string_append(x_3, x_31); x_1 = x_11; x_2 = x_22; -x_3 = x_34; +x_3 = x_32; goto _start; } +else +{ +obj* x_34; obj* x_37; +x_34 = lean::cnstr_get(x_30, 0); +lean::inc(x_34); +lean::dec(x_30); +x_37 = lean::string_append(x_3, x_34); +lean::dec(x_34); +x_1 = x_11; +x_2 = x_22; +x_3 = x_37; +goto _start; +} +} } } else diff --git a/src/stage0/init/lean/format.cpp b/src/stage0/init/lean/format.cpp index 501a6cf410..26479dd23b 100644 --- a/src/stage0/init/lean/format.cpp +++ b/src/stage0/init/lean/format.cpp @@ -415,7 +415,7 @@ x_4 = lean::cnstr_get_scalar(x_1, sizeof(void*)*1); if (x_4 == 0) { obj* x_5; uint8 x_6; -x_5 = lean::thunk_get(x_2); +x_5 = lean::thunk_get_own(x_2); x_6 = lean::cnstr_get_scalar(x_5, sizeof(void*)*1 + 1); if (x_6 == 0) { @@ -573,7 +573,7 @@ x_27 = lean::alloc_closure(reinterpret_cast(l_Lean_Format_spaceUptoLine__ lean::closure_set(x_27, 0, x_19); lean::closure_set(x_27, 1, x_1); x_28 = lean::mk_thunk(x_27); -x_29 = lean::thunk_get(x_28); +x_29 = lean::thunk_get_own(x_28); lean::dec(x_28); x_31 = lean::cnstr_get_scalar(x_29, sizeof(void*)*1 + 1); if (x_31 == 0) @@ -704,7 +704,7 @@ x_17 = lean::alloc_closure(reinterpret_cast(l_Lean_Format_spaceUptoLine_x lean::closure_set(x_17, 0, x_6); lean::closure_set(x_17, 1, x_1); x_18 = lean::mk_thunk(x_17); -x_19 = lean::thunk_get(x_18); +x_19 = lean::thunk_get_own(x_18); lean::dec(x_18); x_21 = lean::cnstr_get_scalar(x_19, sizeof(void*)*1 + 1); if (x_21 == 0) @@ -990,7 +990,7 @@ x_96 = lean::alloc_closure(reinterpret_cast(l_Lean_Format_spaceUptoLine_x lean::closure_set(x_96, 0, x_76); lean::closure_set(x_96, 1, x_0); x_97 = lean::mk_thunk(x_96); -x_98 = lean::thunk_get(x_97); +x_98 = lean::thunk_get_own(x_97); lean::dec(x_97); x_100 = lean::cnstr_get_scalar(x_98, sizeof(void*)*1 + 1); if (x_100 == 0) diff --git a/src/stage0/init/lean/kvmap.cpp b/src/stage0/init/lean/kvmap.cpp index f302cb85d0..ea8c894a73 100644 --- a/src/stage0/init/lean/kvmap.cpp +++ b/src/stage0/init/lean/kvmap.cpp @@ -22,7 +22,6 @@ obj* l_Lean_KVMap_setBool(obj*, obj*, uint8); uint8 l_Lean_DataValue_beq(obj*, obj*); obj* l_Lean_KVMap_subset___boxed(obj*, obj*); obj* l_Lean_KVMap_getInt(obj*, obj*, obj*); -uint8 l_Option_isSome___main___rarg(obj*); obj* l_Lean_KVMap_getString(obj*, obj*, obj*); obj* l_Lean_DataValue_beq___main___boxed(obj*, obj*); obj* l_Lean_KVMap_findCore___main(obj*, obj*); @@ -479,12 +478,22 @@ return x_3; uint8 l_Lean_KVMap_contains(obj* x_0, obj* x_1) { _start: { -obj* x_2; uint8 x_3; +obj* x_2; x_2 = l_Lean_KVMap_findCore___main(x_0, x_1); -x_3 = l_Option_isSome___main___rarg(x_2); -lean::dec(x_2); +if (lean::obj_tag(x_2) == 0) +{ +uint8 x_3; +x_3 = 0; return x_3; } +else +{ +uint8 x_5; +lean::dec(x_2); +x_5 = 1; +return x_5; +} +} } obj* l_Lean_KVMap_contains___boxed(obj* x_0, obj* x_1) { _start: diff --git a/src/stage0/init/lean/name.cpp b/src/stage0/init/lean/name.cpp index a356d60cba..9cea81c754 100644 --- a/src/stage0/init/lean/name.cpp +++ b/src/stage0/init/lean/name.cpp @@ -27,7 +27,6 @@ obj* l_RBMap_insert___main___at_Lean_NameMap_insert___spec__1(obj*); obj* l_RBMap_find___main___at_Lean_NameMap_find___spec__1___rarg(obj*, obj*); obj* l_RBMap_find___main___at_Lean_NameMap_find___spec__1___boxed(obj*); obj* l_Lean_NameMap_insert(obj*); -uint8 l_Option_isSome___main___rarg(obj*); obj* l_RBMap_find___main___at_Lean_NameSet_contains___spec__1___boxed(obj*, obj*); obj* l_RBNode_insert___at_Lean_NameSet_insert___spec__2___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Name_Hashable; @@ -1621,12 +1620,22 @@ return x_1; uint8 l_Lean_NameMap_contains___rarg(obj* x_0, obj* x_1) { _start: { -obj* x_2; uint8 x_3; +obj* x_2; x_2 = l_RBMap_find___main___at_Lean_NameMap_contains___spec__1___rarg(x_0, x_1); -x_3 = l_Option_isSome___main___rarg(x_2); -lean::dec(x_2); +if (lean::obj_tag(x_2) == 0) +{ +uint8 x_3; +x_3 = 0; return x_3; } +else +{ +uint8 x_5; +lean::dec(x_2); +x_5 = 1; +return x_5; +} +} } obj* l_Lean_NameMap_contains(obj* x_0) { _start: @@ -2316,12 +2325,22 @@ return x_3; uint8 l_Lean_NameSet_contains(obj* x_0, obj* x_1) { _start: { -obj* x_2; uint8 x_3; +obj* x_2; x_2 = l_RBMap_find___main___at_Lean_NameSet_contains___spec__1(x_0, x_1); -x_3 = l_Option_isSome___main___rarg(x_2); -lean::dec(x_2); +if (lean::obj_tag(x_2) == 0) +{ +uint8 x_3; +x_3 = 0; return x_3; } +else +{ +uint8 x_5; +lean::dec(x_2); +x_5 = 1; +return x_5; +} +} } obj* l_RBMap_find___main___at_Lean_NameSet_contains___spec__1___boxed(obj* x_0, obj* x_1) { _start: diff --git a/src/stage0/init/lean/name_mangling.cpp b/src/stage0/init/lean/name_mangling.cpp index a8909acb45..f574c03671 100644 --- a/src/stage0/init/lean/name_mangling.cpp +++ b/src/stage0/init/lean/name_mangling.cpp @@ -54,7 +54,6 @@ obj* string_push(obj*, uint32); obj* l___private_init_lean_name__mangling_4__Name_mangleAux___main___boxed(obj*, obj*); obj* l_Nat_repr(obj*); extern obj* l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; -obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_parsec_2__strAux___main(obj*, obj*, obj*); obj* l_matchFailed___at___private_init_lean_name__mangling_5__parseMangledNameAux___main___spec__11(obj*); obj* l_Lean_String_demangle___closed__1; @@ -69,7 +68,6 @@ obj* l_String_OldIterator_next___main(obj*); obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_name__mangling_4__Name_mangleAux(obj*, obj*); obj* l___private_init_lean_name__mangling_3__parseMangledString(obj*); -obj* l_Option_getOrElse___main___rarg(obj*, obj*); obj* l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_name__mangling_5__parseMangledNameAux___main___spec__4(obj*, obj*); namespace lean { uint8 nat_dec_lt(obj*, obj*); @@ -386,26 +384,47 @@ return x_28; obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_5; obj* x_6; uint8 x_7; obj* x_8; obj* x_9; -x_5 = l_Option_getOrElse___main___rarg(x_2, x_4); -x_6 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_0); -lean::cnstr_set(x_6, 2, x_1); -lean::cnstr_set(x_6, 3, x_3); -x_7 = 0; -x_8 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_8, 0, x_6); -lean::cnstr_set_scalar(x_8, sizeof(void*)*1, x_7); -x_9 = x_8; -return x_9; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_5; uint8 x_6; obj* x_7; obj* x_8; +x_5 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +lean::cnstr_set(x_5, 2, x_1); +lean::cnstr_set(x_5, 3, x_3); +x_6 = 0; +x_7 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_7, 0, x_5); +lean::cnstr_set_scalar(x_7, sizeof(void*)*1, x_6); +x_8 = x_7; +return x_8; +} +else +{ +obj* x_10; obj* x_13; uint8 x_14; obj* x_15; obj* x_16; +lean::dec(x_4); +x_10 = lean::cnstr_get(x_2, 0); +lean::inc(x_10); +lean::dec(x_2); +x_13 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_13, 0, x_10); +lean::cnstr_set(x_13, 1, x_0); +lean::cnstr_set(x_13, 2, x_1); +lean::cnstr_set(x_13, 3, x_3); +x_14 = 0; +x_15 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_15, 0, x_13); +lean::cnstr_set_scalar(x_15, sizeof(void*)*1, x_14); +x_16 = x_15; +return x_16; +} } } obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3(obj* x_0) { _start: { obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg___boxed), 5, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg), 5, 0); return x_1; } } @@ -416,48 +435,46 @@ uint8 x_1; x_1 = l_String_OldIterator_hasNext___main(x_0); if (x_1 == 0) { -obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_7; obj* x_8; +obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; x_2 = lean::box(0); x_3 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_4 = l_mjoin___rarg___closed__1; x_5 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_3, x_4, x_2, x_2, x_0); -lean::dec(x_0); -x_7 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_8 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_5); -return x_8; +x_6 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_7 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_6, x_5); +return x_7; } else { -uint32 x_9; uint8 x_10; -x_9 = l_String_OldIterator_curr___main(x_0); -x_10 = l_Char_isDigit(x_9); -if (x_10 == 0) +uint32 x_8; uint8 x_9; +x_8 = l_String_OldIterator_curr___main(x_0); +x_9 = l_Char_isDigit(x_8); +if (x_9 == 0) { -obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; -x_11 = l_Char_quoteCore(x_9); -x_12 = l_Char_HasRepr___closed__1; -x_13 = lean::string_append(x_12, x_11); -lean::dec(x_11); -x_15 = lean::string_append(x_13, x_12); -x_16 = lean::box(0); -x_17 = l_mjoin___rarg___closed__1; -x_18 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_15, x_17, x_16, x_16, x_0); -lean::dec(x_0); -x_20 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_21 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_18); -return x_21; +obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_10 = l_Char_quoteCore(x_8); +x_11 = l_Char_HasRepr___closed__1; +x_12 = lean::string_append(x_11, x_10); +lean::dec(x_10); +x_14 = lean::string_append(x_12, x_11); +x_15 = lean::box(0); +x_16 = l_mjoin___rarg___closed__1; +x_17 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_14, x_16, x_15, x_15, x_0); +x_18 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_19 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_17); +return x_19; } else { -obj* x_22; obj* x_23; obj* x_24; obj* x_25; -x_22 = l_String_OldIterator_next___main(x_0); -x_23 = lean::box(0); -x_24 = lean::box_uint32(x_9); -x_25 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_25, 0, x_24); -lean::cnstr_set(x_25, 1, x_22); -lean::cnstr_set(x_25, 2, x_23); -return x_25; +obj* x_20; obj* x_21; obj* x_22; obj* x_23; +x_20 = l_String_OldIterator_next___main(x_0); +x_21 = lean::box(0); +x_22 = lean::box_uint32(x_8); +x_23 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_23, 0, x_22); +lean::cnstr_set(x_23, 1, x_20); +lean::cnstr_set(x_23, 2, x_21); +return x_23; } } } @@ -564,243 +581,243 @@ lean::dec(x_1); x_42 = l_String_OldIterator_hasNext___main(x_0); if (x_42 == 0) { -obj* x_43; obj* x_44; obj* x_45; obj* x_46; +obj* x_43; obj* x_44; obj* x_45; obj* x_47; x_43 = lean::box(0); x_44 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_45 = l_mjoin___rarg___closed__1; -x_46 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_44, x_45, x_43, x_43, x_0); -x_40 = x_46; -goto lbl_41; -} -else -{ -uint32 x_47; uint32 x_48; uint8 x_49; -x_47 = l_String_OldIterator_curr___main(x_0); -x_48 = 97; -x_49 = x_48 <= x_47; -if (x_49 == 0) -{ -obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; -x_50 = l_Char_quoteCore(x_47); -x_51 = l_Char_HasRepr___closed__1; -x_52 = lean::string_append(x_51, x_50); -lean::dec(x_50); -x_54 = lean::string_append(x_52, x_51); -x_55 = lean::box(0); -x_56 = l_mjoin___rarg___closed__1; -x_57 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_54, x_56, x_55, x_55, x_0); -x_40 = x_57; -goto lbl_41; -} -else -{ -uint32 x_58; uint8 x_59; -x_58 = 102; -x_59 = x_47 <= x_58; -if (x_59 == 0) -{ -obj* x_60; obj* x_61; obj* x_62; obj* x_64; obj* x_65; obj* x_66; obj* x_67; -x_60 = l_Char_quoteCore(x_47); -x_61 = l_Char_HasRepr___closed__1; -x_62 = lean::string_append(x_61, x_60); -lean::dec(x_60); -x_64 = lean::string_append(x_62, x_61); -x_65 = lean::box(0); -x_66 = l_mjoin___rarg___closed__1; -x_67 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_64, x_66, x_65, x_65, x_0); -x_40 = x_67; -goto lbl_41; -} -else -{ -obj* x_69; obj* x_70; obj* x_71; obj* x_72; lean::inc(x_0); -x_69 = l_String_OldIterator_next___main(x_0); -x_70 = lean::box(0); -x_71 = lean::box_uint32(x_47); -x_72 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_72, 0, x_71); -lean::cnstr_set(x_72, 1, x_69); -lean::cnstr_set(x_72, 2, x_70); -x_40 = x_72; +x_47 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_44, x_45, x_43, x_43, x_0); +x_40 = x_47; +goto lbl_41; +} +else +{ +uint32 x_48; uint32 x_49; uint8 x_50; +x_48 = l_String_OldIterator_curr___main(x_0); +x_49 = 97; +x_50 = x_49 <= x_48; +if (x_50 == 0) +{ +obj* x_51; obj* x_52; obj* x_53; obj* x_55; obj* x_56; obj* x_57; obj* x_59; +x_51 = l_Char_quoteCore(x_48); +x_52 = l_Char_HasRepr___closed__1; +x_53 = lean::string_append(x_52, x_51); +lean::dec(x_51); +x_55 = lean::string_append(x_53, x_52); +x_56 = lean::box(0); +x_57 = l_mjoin___rarg___closed__1; +lean::inc(x_0); +x_59 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_55, x_57, x_56, x_56, x_0); +x_40 = x_59; +goto lbl_41; +} +else +{ +uint32 x_60; uint8 x_61; +x_60 = 102; +x_61 = x_48 <= x_60; +if (x_61 == 0) +{ +obj* x_62; obj* x_63; obj* x_64; obj* x_66; obj* x_67; obj* x_68; obj* x_70; +x_62 = l_Char_quoteCore(x_48); +x_63 = l_Char_HasRepr___closed__1; +x_64 = lean::string_append(x_63, x_62); +lean::dec(x_62); +x_66 = lean::string_append(x_64, x_63); +x_67 = lean::box(0); +x_68 = l_mjoin___rarg___closed__1; +lean::inc(x_0); +x_70 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_66, x_68, x_67, x_67, x_0); +x_40 = x_70; +goto lbl_41; +} +else +{ +obj* x_72; obj* x_73; obj* x_74; obj* x_75; +lean::inc(x_0); +x_72 = l_String_OldIterator_next___main(x_0); +x_73 = lean::box(0); +x_74 = lean::box_uint32(x_48); +x_75 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_75, 0, x_74); +lean::cnstr_set(x_75, 1, x_72); +lean::cnstr_set(x_75, 2, x_73); +x_40 = x_75; goto lbl_41; } } } lbl_41: { -obj* x_73; obj* x_74; -x_73 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_74 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_73, x_40); -if (lean::obj_tag(x_74) == 0) +obj* x_76; obj* x_77; +x_76 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_77 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_76, x_40); +if (lean::obj_tag(x_77) == 0) { -obj* x_75; obj* x_77; obj* x_79; obj* x_81; uint32 x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_87; obj* x_88; obj* x_90; obj* x_91; -x_75 = lean::cnstr_get(x_74, 0); -x_77 = lean::cnstr_get(x_74, 1); -x_79 = lean::cnstr_get(x_74, 2); -if (lean::is_exclusive(x_74)) { - x_81 = x_74; +obj* x_78; obj* x_80; obj* x_82; obj* x_84; uint32 x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_90; obj* x_91; obj* x_93; obj* x_94; +x_78 = lean::cnstr_get(x_77, 0); +x_80 = lean::cnstr_get(x_77, 1); +x_82 = lean::cnstr_get(x_77, 2); +if (lean::is_exclusive(x_77)) { + x_84 = x_77; } else { - lean::inc(x_75); - lean::inc(x_77); - lean::inc(x_79); - lean::dec(x_74); - x_81 = lean::box(0); + lean::inc(x_78); + lean::inc(x_80); + lean::inc(x_82); + lean::dec(x_77); + x_84 = lean::box(0); } -x_82 = lean::unbox_uint32(x_75); -x_83 = lean::uint32_to_nat(x_82); -x_84 = l_Lean_Parser_parseHexDigit___rarg___lambda__3___closed__1; -x_85 = lean::nat_sub(x_83, x_84); -lean::dec(x_83); -x_87 = lean::mk_nat_obj(10ul); -x_88 = lean::nat_add(x_87, x_85); -lean::dec(x_85); -if (lean::is_scalar(x_81)) { - x_90 = lean::alloc_cnstr(0, 3, 0); +x_85 = lean::unbox_uint32(x_78); +x_86 = lean::uint32_to_nat(x_85); +x_87 = l_Lean_Parser_parseHexDigit___rarg___lambda__3___closed__1; +x_88 = lean::nat_sub(x_86, x_87); +lean::dec(x_86); +x_90 = lean::mk_nat_obj(10ul); +x_91 = lean::nat_add(x_90, x_88); +lean::dec(x_88); +if (lean::is_scalar(x_84)) { + x_93 = lean::alloc_cnstr(0, 3, 0); } else { - x_90 = x_81; + x_93 = x_84; } -lean::cnstr_set(x_90, 0, x_88); -lean::cnstr_set(x_90, 1, x_77); -lean::cnstr_set(x_90, 2, x_73); -x_91 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_79, x_90); -if (lean::obj_tag(x_91) == 0) +lean::cnstr_set(x_93, 0, x_91); +lean::cnstr_set(x_93, 1, x_80); +lean::cnstr_set(x_93, 2, x_76); +x_94 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_82, x_93); +if (lean::obj_tag(x_94) == 0) { -obj* x_93; obj* x_94; obj* x_95; +obj* x_96; obj* x_97; obj* x_98; lean::dec(x_0); -x_93 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_2, x_91); -x_94 = l_Lean_Parser_parseHexDigit___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__2___closed__1; -x_95 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_93, x_94); -return x_95; +x_96 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_2, x_94); +x_97 = l_Lean_Parser_parseHexDigit___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__2___closed__1; +x_98 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_96, x_97); +return x_98; } else { -obj* x_96; uint8 x_98; -x_96 = lean::cnstr_get(x_91, 0); -lean::inc(x_96); -x_98 = lean::cnstr_get_scalar(x_91, sizeof(void*)*1); -x_35 = x_91; -x_36 = x_96; -x_37 = x_98; -goto lbl_38; -} -} -else -{ -obj* x_99; uint8 x_101; obj* x_102; obj* x_104; obj* x_105; -x_99 = lean::cnstr_get(x_74, 0); -x_101 = lean::cnstr_get_scalar(x_74, sizeof(void*)*1); -if (lean::is_exclusive(x_74)) { - x_102 = x_74; -} else { - lean::inc(x_99); - lean::dec(x_74); - x_102 = lean::box(0); -} +obj* x_99; uint8 x_101; +x_99 = lean::cnstr_get(x_94, 0); lean::inc(x_99); -if (lean::is_scalar(x_102)) { - x_104 = lean::alloc_cnstr(1, 1, 1); -} else { - x_104 = x_102; -} -lean::cnstr_set(x_104, 0, x_99); -lean::cnstr_set_scalar(x_104, sizeof(void*)*1, x_101); -x_105 = x_104; -x_35 = x_105; +x_101 = lean::cnstr_get_scalar(x_94, sizeof(void*)*1); +x_35 = x_94; x_36 = x_99; x_37 = x_101; goto lbl_38; } } +else +{ +obj* x_102; uint8 x_104; obj* x_105; obj* x_107; obj* x_108; +x_102 = lean::cnstr_get(x_77, 0); +x_104 = lean::cnstr_get_scalar(x_77, sizeof(void*)*1); +if (lean::is_exclusive(x_77)) { + x_105 = x_77; +} else { + lean::inc(x_102); + lean::dec(x_77); + x_105 = lean::box(0); +} +lean::inc(x_102); +if (lean::is_scalar(x_105)) { + x_107 = lean::alloc_cnstr(1, 1, 1); +} else { + x_107 = x_105; +} +lean::cnstr_set(x_107, 0, x_102); +lean::cnstr_set_scalar(x_107, sizeof(void*)*1, x_104); +x_108 = x_107; +x_35 = x_108; +x_36 = x_102; +x_37 = x_104; +goto lbl_38; +} +} } else { -obj* x_108; obj* x_109; +obj* x_111; obj* x_112; lean::dec(x_0); lean::dec(x_2); -x_108 = l_Lean_Parser_parseHexDigit___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__2___closed__1; -x_109 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_1, x_108); -return x_109; +x_111 = l_Lean_Parser_parseHexDigit___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__2___closed__1; +x_112 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_1, x_111); +return x_112; } lbl_38: { if (x_37 == 0) { -obj* x_111; uint8 x_113; +obj* x_114; uint8 x_116; lean::dec(x_35); -x_113 = l_String_OldIterator_hasNext___main(x_0); -if (x_113 == 0) +x_116 = l_String_OldIterator_hasNext___main(x_0); +if (x_116 == 0) { -obj* x_114; obj* x_115; obj* x_116; obj* x_117; -x_114 = lean::box(0); -x_115 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; -x_116 = l_mjoin___rarg___closed__1; -x_117 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_115, x_116, x_114, x_114, x_0); -lean::dec(x_0); -x_111 = x_117; -goto lbl_112; +obj* x_117; obj* x_118; obj* x_119; obj* x_120; +x_117 = lean::box(0); +x_118 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; +x_119 = l_mjoin___rarg___closed__1; +x_120 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_118, x_119, x_117, x_117, x_0); +x_114 = x_120; +goto lbl_115; } else { -uint32 x_119; uint32 x_120; uint8 x_121; -x_119 = l_String_OldIterator_curr___main(x_0); -x_120 = 65; -x_121 = x_120 <= x_119; -if (x_121 == 0) +uint32 x_121; uint32 x_122; uint8 x_123; +x_121 = l_String_OldIterator_curr___main(x_0); +x_122 = 65; +x_123 = x_122 <= x_121; +if (x_123 == 0) { -obj* x_122; obj* x_123; obj* x_124; obj* x_126; obj* x_127; obj* x_128; obj* x_129; -x_122 = l_Char_quoteCore(x_119); -x_123 = l_Char_HasRepr___closed__1; -x_124 = lean::string_append(x_123, x_122); -lean::dec(x_122); -x_126 = lean::string_append(x_124, x_123); -x_127 = lean::box(0); -x_128 = l_mjoin___rarg___closed__1; -x_129 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_126, x_128, x_127, x_127, x_0); -lean::dec(x_0); -x_111 = x_129; -goto lbl_112; +obj* x_124; obj* x_125; obj* x_126; obj* x_128; obj* x_129; obj* x_130; obj* x_131; +x_124 = l_Char_quoteCore(x_121); +x_125 = l_Char_HasRepr___closed__1; +x_126 = lean::string_append(x_125, x_124); +lean::dec(x_124); +x_128 = lean::string_append(x_126, x_125); +x_129 = lean::box(0); +x_130 = l_mjoin___rarg___closed__1; +x_131 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_128, x_130, x_129, x_129, x_0); +x_114 = x_131; +goto lbl_115; } else { -uint32 x_131; uint8 x_132; -x_131 = 70; -x_132 = x_119 <= x_131; -if (x_132 == 0) +uint32 x_132; uint8 x_133; +x_132 = 70; +x_133 = x_121 <= x_132; +if (x_133 == 0) { -obj* x_133; obj* x_134; obj* x_135; obj* x_137; obj* x_138; obj* x_139; obj* x_140; -x_133 = l_Char_quoteCore(x_119); -x_134 = l_Char_HasRepr___closed__1; -x_135 = lean::string_append(x_134, x_133); -lean::dec(x_133); -x_137 = lean::string_append(x_135, x_134); -x_138 = lean::box(0); -x_139 = l_mjoin___rarg___closed__1; -x_140 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_137, x_139, x_138, x_138, x_0); -lean::dec(x_0); -x_111 = x_140; -goto lbl_112; +obj* x_134; obj* x_135; obj* x_136; obj* x_138; obj* x_139; obj* x_140; obj* x_141; +x_134 = l_Char_quoteCore(x_121); +x_135 = l_Char_HasRepr___closed__1; +x_136 = lean::string_append(x_135, x_134); +lean::dec(x_134); +x_138 = lean::string_append(x_136, x_135); +x_139 = lean::box(0); +x_140 = l_mjoin___rarg___closed__1; +x_141 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_138, x_140, x_139, x_139, x_0); +x_114 = x_141; +goto lbl_115; } else { obj* x_142; obj* x_143; obj* x_144; obj* x_145; x_142 = l_String_OldIterator_next___main(x_0); x_143 = lean::box(0); -x_144 = lean::box_uint32(x_119); +x_144 = lean::box_uint32(x_121); x_145 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_145, 0, x_144); lean::cnstr_set(x_145, 1, x_142); lean::cnstr_set(x_145, 2, x_143); -x_111 = x_145; -goto lbl_112; +x_114 = x_145; +goto lbl_115; } } } -lbl_112: +lbl_115: { obj* x_146; obj* x_147; x_146 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_147 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_146, x_111); +x_147 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_146, x_114); if (lean::obj_tag(x_147) == 0) { obj* x_148; obj* x_150; obj* x_152; obj* x_154; uint32 x_155; obj* x_156; obj* x_157; obj* x_158; obj* x_160; obj* x_161; obj* x_163; obj* x_164; obj* x_165; obj* x_166; obj* x_167; obj* x_168; @@ -888,48 +905,46 @@ uint8 x_1; x_1 = l_String_OldIterator_hasNext___main(x_0); if (x_1 == 0) { -obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_7; obj* x_8; +obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; x_2 = lean::box(0); x_3 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_4 = l_mjoin___rarg___closed__1; x_5 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_3, x_4, x_2, x_2, x_0); -lean::dec(x_0); -x_7 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_8 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_5); -return x_8; +x_6 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_7 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_6, x_5); +return x_7; } else { -uint32 x_9; uint8 x_10; -x_9 = l_String_OldIterator_curr___main(x_0); -x_10 = l_Char_isAlpha(x_9); -if (x_10 == 0) +uint32 x_8; uint8 x_9; +x_8 = l_String_OldIterator_curr___main(x_0); +x_9 = l_Char_isAlpha(x_8); +if (x_9 == 0) { -obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; -x_11 = l_Char_quoteCore(x_9); -x_12 = l_Char_HasRepr___closed__1; -x_13 = lean::string_append(x_12, x_11); -lean::dec(x_11); -x_15 = lean::string_append(x_13, x_12); -x_16 = lean::box(0); -x_17 = l_mjoin___rarg___closed__1; -x_18 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_15, x_17, x_16, x_16, x_0); -lean::dec(x_0); -x_20 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_21 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_18); -return x_21; +obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_10 = l_Char_quoteCore(x_8); +x_11 = l_Char_HasRepr___closed__1; +x_12 = lean::string_append(x_11, x_10); +lean::dec(x_10); +x_14 = lean::string_append(x_12, x_11); +x_15 = lean::box(0); +x_16 = l_mjoin___rarg___closed__1; +x_17 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_14, x_16, x_15, x_15, x_0); +x_18 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_19 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_17); +return x_19; } else { -obj* x_22; obj* x_23; obj* x_24; obj* x_25; -x_22 = l_String_OldIterator_next___main(x_0); -x_23 = lean::box(0); -x_24 = lean::box_uint32(x_9); -x_25 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_25, 0, x_24); -lean::cnstr_set(x_25, 1, x_22); -lean::cnstr_set(x_25, 2, x_23); -return x_25; +obj* x_20; obj* x_21; obj* x_22; obj* x_23; +x_20 = l_String_OldIterator_next___main(x_0); +x_21 = lean::box(0); +x_22 = lean::box_uint32(x_8); +x_23 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_23, 0, x_22); +lean::cnstr_set(x_23, 1, x_20); +lean::cnstr_set(x_23, 2, x_21); +return x_23; } } } @@ -958,7 +973,7 @@ x_3 = lean::nat_dec_eq(x_1, x_2); lean::dec(x_1); if (x_3 == 0) { -uint32 x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; +uint32 x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; x_5 = l_String_OldIterator_curr___main(x_0); x_6 = l_Char_quoteCore(x_5); x_7 = l_Char_HasRepr___closed__1; @@ -968,21 +983,20 @@ x_10 = lean::string_append(x_8, x_7); x_11 = lean::box(0); x_12 = l_Lean_Parser_MonadParsec_eoi___rarg___lambda__1___closed__1; x_13 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_10, x_12, x_11, x_11, x_0); -lean::dec(x_0); -x_15 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_16 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_13); -return x_16; +x_14 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_15 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_13); +return x_15; } else { -obj* x_17; obj* x_18; obj* x_19; -x_17 = lean::box(0); -x_18 = l_Lean_Parser_MonadParsec_eoi___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__6___closed__1; -x_19 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_19, 0, x_17); -lean::cnstr_set(x_19, 1, x_0); -lean::cnstr_set(x_19, 2, x_18); -return x_19; +obj* x_16; obj* x_17; obj* x_18; +x_16 = lean::box(0); +x_17 = l_Lean_Parser_MonadParsec_eoi___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__6___closed__1; +x_18 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_18, 0, x_16); +lean::cnstr_set(x_18, 1, x_0); +lean::cnstr_set(x_18, 2, x_17); +return x_18; } } } @@ -1849,16 +1863,6 @@ return x_417; } } } -obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_2); -lean::dec(x_4); -return x_5; -} -} obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___boxed(obj* x_0) { _start: { @@ -2058,48 +2062,46 @@ uint8 x_2; x_2 = l_String_OldIterator_hasNext___main(x_1); if (x_2 == 0) { -obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_8; obj* x_9; +obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; x_3 = lean::box(0); x_4 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_5 = l_mjoin___rarg___closed__1; x_6 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_4, x_5, x_3, x_3, x_1); -lean::dec(x_1); -x_8 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_9 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_8, x_6); -return x_9; +x_7 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_8 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_6); +return x_8; } else { -uint32 x_10; uint8 x_11; -x_10 = l_String_OldIterator_curr___main(x_1); -x_11 = x_10 == x_0; -if (x_11 == 0) +uint32 x_9; uint8 x_10; +x_9 = l_String_OldIterator_curr___main(x_1); +x_10 = x_9 == x_0; +if (x_10 == 0) { -obj* x_12; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; -x_12 = l_Char_quoteCore(x_10); -x_13 = l_Char_HasRepr___closed__1; -x_14 = lean::string_append(x_13, x_12); -lean::dec(x_12); -x_16 = lean::string_append(x_14, x_13); -x_17 = lean::box(0); -x_18 = l_mjoin___rarg___closed__1; -x_19 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_16, x_18, x_17, x_17, x_1); -lean::dec(x_1); -x_21 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_22 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_19); -return x_22; +obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +x_11 = l_Char_quoteCore(x_9); +x_12 = l_Char_HasRepr___closed__1; +x_13 = lean::string_append(x_12, x_11); +lean::dec(x_11); +x_15 = lean::string_append(x_13, x_12); +x_16 = lean::box(0); +x_17 = l_mjoin___rarg___closed__1; +x_18 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_15, x_17, x_16, x_16, x_1); +x_19 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_20 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_19, x_18); +return x_20; } else { -obj* x_23; obj* x_24; obj* x_25; obj* x_26; -x_23 = l_String_OldIterator_next___main(x_1); -x_24 = lean::box(0); -x_25 = lean::box_uint32(x_10); -x_26 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_26, 0, x_25); -lean::cnstr_set(x_26, 1, x_23); -lean::cnstr_set(x_26, 2, x_24); -return x_26; +obj* x_21; obj* x_22; obj* x_23; obj* x_24; +x_21 = l_String_OldIterator_next___main(x_1); +x_22 = lean::box(0); +x_23 = lean::box_uint32(x_9); +x_24 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_24, 0, x_23); +lean::cnstr_set(x_24, 1, x_21); +lean::cnstr_set(x_24, 2, x_22); +return x_24; } } } @@ -2297,123 +2299,121 @@ uint8 x_1; x_1 = l_String_OldIterator_hasNext___main(x_0); if (x_1 == 0) { -obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_7; obj* x_8; +obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; x_2 = lean::box(0); x_3 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_4 = l_mjoin___rarg___closed__1; x_5 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_3, x_4, x_2, x_2, x_0); -lean::dec(x_0); -x_7 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_8 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_5); -if (lean::obj_tag(x_8) == 0) +x_6 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_7 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_6, x_5); +if (lean::obj_tag(x_7) == 0) { -obj* x_9; obj* x_11; obj* x_13; obj* x_16; uint32 x_17; obj* x_18; obj* x_19; obj* x_20; -x_9 = lean::cnstr_get(x_8, 0); -lean::inc(x_9); -x_11 = lean::cnstr_get(x_8, 1); -lean::inc(x_11); -x_13 = lean::cnstr_get(x_8, 2); -lean::inc(x_13); -lean::dec(x_8); -x_16 = l_String_splitAux___main___closed__1; -x_17 = lean::unbox_uint32(x_9); -x_18 = lean::string_push(x_16, x_17); -x_19 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_name__mangling_5__parseMangledNameAux___main___spec__4(x_18, x_11); -x_20 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_13, x_19); -return x_20; +obj* x_8; obj* x_10; obj* x_12; obj* x_15; uint32 x_16; obj* x_17; obj* x_18; obj* x_19; +x_8 = lean::cnstr_get(x_7, 0); +lean::inc(x_8); +x_10 = lean::cnstr_get(x_7, 1); +lean::inc(x_10); +x_12 = lean::cnstr_get(x_7, 2); +lean::inc(x_12); +lean::dec(x_7); +x_15 = l_String_splitAux___main___closed__1; +x_16 = lean::unbox_uint32(x_8); +x_17 = lean::string_push(x_15, x_16); +x_18 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_name__mangling_5__parseMangledNameAux___main___spec__4(x_17, x_10); +x_19 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_12, x_18); +return x_19; } else { -obj* x_21; uint8 x_23; obj* x_24; obj* x_25; obj* x_26; -x_21 = lean::cnstr_get(x_8, 0); -x_23 = lean::cnstr_get_scalar(x_8, sizeof(void*)*1); -if (lean::is_exclusive(x_8)) { - x_24 = x_8; +obj* x_20; uint8 x_22; obj* x_23; obj* x_24; obj* x_25; +x_20 = lean::cnstr_get(x_7, 0); +x_22 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); +if (lean::is_exclusive(x_7)) { + x_23 = x_7; } else { - lean::inc(x_21); - lean::dec(x_8); - x_24 = lean::box(0); + lean::inc(x_20); + lean::dec(x_7); + x_23 = lean::box(0); } -if (lean::is_scalar(x_24)) { - x_25 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_23)) { + x_24 = lean::alloc_cnstr(1, 1, 1); } else { - x_25 = x_24; + x_24 = x_23; } -lean::cnstr_set(x_25, 0, x_21); -lean::cnstr_set_scalar(x_25, sizeof(void*)*1, x_23); -x_26 = x_25; -return x_26; +lean::cnstr_set(x_24, 0, x_20); +lean::cnstr_set_scalar(x_24, sizeof(void*)*1, x_22); +x_25 = x_24; +return x_25; } } else { -uint32 x_27; uint8 x_28; -x_27 = l_String_OldIterator_curr___main(x_0); -x_28 = l_Char_isDigit(x_27); -if (x_28 == 0) +uint32 x_26; uint8 x_27; +x_26 = l_String_OldIterator_curr___main(x_0); +x_27 = l_Char_isDigit(x_26); +if (x_27 == 0) { -obj* x_29; obj* x_30; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_38; obj* x_39; -x_29 = l_Char_quoteCore(x_27); -x_30 = l_Char_HasRepr___closed__1; -x_31 = lean::string_append(x_30, x_29); -lean::dec(x_29); -x_33 = lean::string_append(x_31, x_30); -x_34 = lean::box(0); -x_35 = l_mjoin___rarg___closed__1; -x_36 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_33, x_35, x_34, x_34, x_0); -lean::dec(x_0); -x_38 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_39 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_36); -if (lean::obj_tag(x_39) == 0) +obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_28 = l_Char_quoteCore(x_26); +x_29 = l_Char_HasRepr___closed__1; +x_30 = lean::string_append(x_29, x_28); +lean::dec(x_28); +x_32 = lean::string_append(x_30, x_29); +x_33 = lean::box(0); +x_34 = l_mjoin___rarg___closed__1; +x_35 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_name__mangling_2__parseMangledStringAux___main___spec__3___rarg(x_32, x_34, x_33, x_33, x_0); +x_36 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_37 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_36, x_35); +if (lean::obj_tag(x_37) == 0) { -obj* x_40; obj* x_42; obj* x_44; obj* x_47; uint32 x_48; obj* x_49; obj* x_50; obj* x_51; -x_40 = lean::cnstr_get(x_39, 0); +obj* x_38; obj* x_40; obj* x_42; obj* x_45; uint32 x_46; obj* x_47; obj* x_48; obj* x_49; +x_38 = lean::cnstr_get(x_37, 0); +lean::inc(x_38); +x_40 = lean::cnstr_get(x_37, 1); lean::inc(x_40); -x_42 = lean::cnstr_get(x_39, 1); +x_42 = lean::cnstr_get(x_37, 2); lean::inc(x_42); -x_44 = lean::cnstr_get(x_39, 2); -lean::inc(x_44); -lean::dec(x_39); -x_47 = l_String_splitAux___main___closed__1; -x_48 = lean::unbox_uint32(x_40); -x_49 = lean::string_push(x_47, x_48); -x_50 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_name__mangling_5__parseMangledNameAux___main___spec__6(x_49, x_42); -x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_44, x_50); -return x_51; +lean::dec(x_37); +x_45 = l_String_splitAux___main___closed__1; +x_46 = lean::unbox_uint32(x_38); +x_47 = lean::string_push(x_45, x_46); +x_48 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_name__mangling_5__parseMangledNameAux___main___spec__6(x_47, x_40); +x_49 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_42, x_48); +return x_49; } else { -obj* x_52; uint8 x_54; obj* x_55; obj* x_56; obj* x_57; -x_52 = lean::cnstr_get(x_39, 0); -x_54 = lean::cnstr_get_scalar(x_39, sizeof(void*)*1); -if (lean::is_exclusive(x_39)) { - x_55 = x_39; +obj* x_50; uint8 x_52; obj* x_53; obj* x_54; obj* x_55; +x_50 = lean::cnstr_get(x_37, 0); +x_52 = lean::cnstr_get_scalar(x_37, sizeof(void*)*1); +if (lean::is_exclusive(x_37)) { + x_53 = x_37; } else { - lean::inc(x_52); - lean::dec(x_39); - x_55 = lean::box(0); + lean::inc(x_50); + lean::dec(x_37); + x_53 = lean::box(0); } -if (lean::is_scalar(x_55)) { - x_56 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_53)) { + x_54 = lean::alloc_cnstr(1, 1, 1); } else { - x_56 = x_55; + x_54 = x_53; } -lean::cnstr_set(x_56, 0, x_52); -lean::cnstr_set_scalar(x_56, sizeof(void*)*1, x_54); -x_57 = x_56; -return x_57; +lean::cnstr_set(x_54, 0, x_50); +lean::cnstr_set_scalar(x_54, sizeof(void*)*1, x_52); +x_55 = x_54; +return x_55; } } else { -obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; -x_58 = l_String_OldIterator_next___main(x_0); -x_59 = lean::box(0); -x_60 = l_String_splitAux___main___closed__1; -x_61 = lean::string_push(x_60, x_27); -x_62 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_name__mangling_5__parseMangledNameAux___main___spec__8(x_61, x_58); -x_63 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_59, x_62); -return x_63; +obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; +x_56 = l_String_OldIterator_next___main(x_0); +x_57 = lean::box(0); +x_58 = l_String_splitAux___main___closed__1; +x_59 = lean::string_push(x_58, x_26); +x_60 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_name__mangling_5__parseMangledNameAux___main___spec__8(x_59, x_56); +x_61 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_57, x_60); +return x_61; } } } diff --git a/src/stage0/init/lean/parser/basic.cpp b/src/stage0/init/lean/parser/basic.cpp index 452c3641be..1ae3a41f39 100644 --- a/src/stage0/init/lean/parser/basic.cpp +++ b/src/stage0/init/lean/parser/basic.cpp @@ -79,8 +79,6 @@ obj* l_Lean_Parser_mkTokenTrie(obj*); obj* l_Lean_Parser_parserCoreT_Monad(obj*); obj* l_List_mfoldl___main___at_Lean_Parser_mkTokenTrie___spec__1(obj*, obj*); obj* l_Lean_Parser_tokenMapCons_tokens___boxed(obj*, obj*, obj*, obj*); -obj* l_Option_get___main___at_Lean_Parser_run___spec__2___boxed(obj*); -obj* l_Option_get___main___at_Lean_Parser_run___spec__2(obj*); obj* l_Lean_Parser_parserCoreT_Alternative___rarg(obj*); obj* l_Lean_Parser_tokenMapCons_tokens(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_logMessage___boxed(obj*, obj*, obj*); @@ -156,6 +154,7 @@ obj* l_Lean_Parser_getCache___rarg(obj*, obj*); obj* l_Lean_Parser_TrailingTermParserM_MonadReader; obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__5___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_ReaderT_MonadFunctor___boxed(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_Lean_Parser_run___rarg___lambda__1___closed__1; obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__4___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_CommandParserM_MonadReader___boxed(obj*); obj* l_Lean_Parser_HasView_default___boxed(obj*); @@ -1060,23 +1059,15 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_ParsecT_run___at return x_1; } } -obj* l_Option_get___main___at_Lean_Parser_run___spec__2(obj* x_0) { +obj* _init_l_Lean_Parser_run___rarg___lambda__1___closed__1() { _start: { -if (lean::obj_tag(x_0) == 0) -{ -obj* x_1; -x_1 = lean::box(3); +obj* x_0; obj* x_1; +x_0 = lean::box(3); +x_1 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1, 0, x_0); return x_1; } -else -{ -obj* x_2; -x_2 = lean::cnstr_get(x_0, 0); -lean::inc(x_2); -return x_2; -} -} } obj* l_Lean_Parser_run___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: @@ -1094,7 +1085,7 @@ if (lean::is_exclusive(x_3)) { } if (lean::obj_tag(x_4) == 0) { -obj* x_7; obj* x_10; obj* x_13; obj* x_16; obj* x_18; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +obj* x_7; obj* x_10; obj* x_13; obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; x_7 = lean::cnstr_get(x_0, 0); lean::inc(x_7); lean::dec(x_0); @@ -1106,62 +1097,81 @@ lean::inc(x_13); lean::dec(x_4); x_16 = lean::cnstr_get(x_13, 3); lean::inc(x_16); -x_18 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_16); -lean::dec(x_16); -x_20 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_20, 0, x_18); -x_21 = lean::apply_1(x_1, x_2); -x_22 = l_Lean_Parser_messageOfParsecMessage___rarg(x_21, x_13); -x_23 = l_Lean_MessageLog_empty; -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_23); +x_18 = lean::apply_1(x_1, x_2); +x_19 = l_Lean_Parser_messageOfParsecMessage___rarg(x_18, x_13); +x_20 = l_Lean_MessageLog_empty; +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_19); +lean::cnstr_set(x_21, 1, x_20); +if (lean::obj_tag(x_16) == 0) +{ +obj* x_22; obj* x_23; obj* x_24; +x_22 = l_Lean_Parser_run___rarg___lambda__1___closed__1; if (lean::is_scalar(x_6)) { - x_25 = lean::alloc_cnstr(0, 2, 0); + x_23 = lean::alloc_cnstr(0, 2, 0); } else { - x_25 = x_6; + x_23 = x_6; } -lean::cnstr_set(x_25, 0, x_20); -lean::cnstr_set(x_25, 1, x_24); -x_26 = lean::apply_2(x_10, lean::box(0), x_25); -return x_26; +lean::cnstr_set(x_23, 0, x_22); +lean::cnstr_set(x_23, 1, x_21); +x_24 = lean::apply_2(x_10, lean::box(0), x_23); +return x_24; } else { -obj* x_30; obj* x_33; obj* x_36; obj* x_39; obj* x_41; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +obj* x_25; obj* x_28; obj* x_29; obj* x_30; +x_25 = lean::cnstr_get(x_16, 0); +lean::inc(x_25); +lean::dec(x_16); +x_28 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_28, 0, x_25); +if (lean::is_scalar(x_6)) { + x_29 = lean::alloc_cnstr(0, 2, 0); +} else { + x_29 = x_6; +} +lean::cnstr_set(x_29, 0, x_28); +lean::cnstr_set(x_29, 1, x_21); +x_30 = lean::apply_2(x_10, lean::box(0), x_29); +return x_30; +} +} +else +{ +obj* x_34; obj* x_37; obj* x_40; obj* x_43; obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; lean::dec(x_6); lean::dec(x_1); lean::dec(x_2); -x_30 = lean::cnstr_get(x_4, 0); -lean::inc(x_30); +x_34 = lean::cnstr_get(x_4, 0); +lean::inc(x_34); lean::dec(x_4); -x_33 = lean::cnstr_get(x_0, 0); -lean::inc(x_33); +x_37 = lean::cnstr_get(x_0, 0); +lean::inc(x_37); lean::dec(x_0); -x_36 = lean::cnstr_get(x_33, 1); -lean::inc(x_36); -lean::dec(x_33); -x_39 = lean::cnstr_get(x_30, 0); -x_41 = lean::cnstr_get(x_30, 1); -if (lean::is_exclusive(x_30)) { - x_43 = x_30; +x_40 = lean::cnstr_get(x_37, 1); +lean::inc(x_40); +lean::dec(x_37); +x_43 = lean::cnstr_get(x_34, 0); +x_45 = lean::cnstr_get(x_34, 1); +if (lean::is_exclusive(x_34)) { + x_47 = x_34; } else { - lean::inc(x_39); - lean::inc(x_41); - lean::dec(x_30); - x_43 = lean::box(0); + lean::inc(x_43); + lean::inc(x_45); + lean::dec(x_34); + x_47 = lean::box(0); } -x_44 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_44, 0, x_39); -if (lean::is_scalar(x_43)) { - x_45 = lean::alloc_cnstr(0, 2, 0); +x_48 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_48, 0, x_43); +if (lean::is_scalar(x_47)) { + x_49 = lean::alloc_cnstr(0, 2, 0); } else { - x_45 = x_43; + x_49 = x_47; } -lean::cnstr_set(x_45, 0, x_44); -lean::cnstr_set(x_45, 1, x_41); -x_46 = lean::apply_2(x_36, lean::box(0), x_45); -return x_46; +lean::cnstr_set(x_49, 0, x_48); +lean::cnstr_set(x_49, 1, x_45); +x_50 = lean::apply_2(x_40, lean::box(0), x_49); +return x_50; } } } @@ -1227,15 +1237,6 @@ lean::dec(x_0); return x_1; } } -obj* l_Option_get___main___at_Lean_Parser_run___spec__2___boxed(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_0); -lean::dec(x_0); -return x_1; -} -} obj* l_Lean_Parser_run___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { @@ -3541,6 +3542,8 @@ lean::mark_persistent(l_Lean_Parser_BasicParserM_MonadReader); lean::mark_persistent(l_Lean_Parser_BasicParserM_Lean_Parser_MonadParsec); l_Lean_Parser_BasicParserM_MonadExcept = _init_l_Lean_Parser_BasicParserM_MonadExcept(); lean::mark_persistent(l_Lean_Parser_BasicParserM_MonadExcept); + l_Lean_Parser_run___rarg___lambda__1___closed__1 = _init_l_Lean_Parser_run___rarg___lambda__1___closed__1(); +lean::mark_persistent(l_Lean_Parser_run___rarg___lambda__1___closed__1); l_Lean_Parser_run___rarg___closed__1 = _init_l_Lean_Parser_run___rarg___closed__1(); lean::mark_persistent(l_Lean_Parser_run___rarg___closed__1); l_List_mfoldl___main___at_Lean_Parser_mkTokenTrie___spec__1___closed__1 = _init_l_List_mfoldl___main___at_Lean_Parser_mkTokenTrie___spec__1___closed__1(); diff --git a/src/stage0/init/lean/parser/combinators.cpp b/src/stage0/init/lean/parser/combinators.cpp index 0d39e55b52..766eab056c 100644 --- a/src/stage0/init/lean/parser/combinators.cpp +++ b/src/stage0/init/lean/parser/combinators.cpp @@ -97,7 +97,6 @@ obj* l_Lean_Parser_Combinators_node_view___rarg(obj*, obj*, obj*, obj*, obj*, ob obj* l_Lean_Parser_Combinators_try_view(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Combinators_choiceAux___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Combinators_label_view(obj*, obj*, obj*, obj*); -obj* l_Option_get___main___at_Lean_Parser_run___spec__2(obj*); obj* l_Lean_Parser_Combinators_anyOf___boxed(obj*, obj*, obj*); obj* l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_longestMatch___rarg(obj*, obj*, obj*, obj*, obj*); @@ -167,6 +166,7 @@ obj* l_Lean_Parser_Combinators_optional_tokens___boxed(obj*, obj*, obj*, obj*, o obj* l_List_append___rarg(obj*, obj*); obj* l_Lean_Parser_Combinators_choice(obj*); obj* l_Lean_Parser_Combinators_many___boxed(obj*); +obj* l_Lean_Parser_Combinators_optional___rarg___lambda__1___closed__1; obj* l_Lean_Parser_Combinators_optional_view___rarg___lambda__2(obj*, obj*); obj* l_Lean_Parser_Combinators_sepBy1_View___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Combinators_longestMatch_view___rarg(obj*, obj*, obj*, obj*, obj*); @@ -315,35 +315,78 @@ return x_8; } else { -obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_17; obj* x_19; obj* x_21; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; +obj* x_9; x_9 = lean::cnstr_get(x_3, 3); lean::inc(x_9); -x_11 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_9); -lean::dec(x_9); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_11); -lean::cnstr_set(x_13, 1, x_0); -x_14 = lean::cnstr_get(x_1, 0); -lean::inc(x_14); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_11; obj* x_14; obj* x_16; obj* x_18; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +x_11 = lean::cnstr_get(x_1, 0); +lean::inc(x_11); lean::dec(x_1); -x_17 = lean::cnstr_get(x_3, 0); -lean::inc(x_17); -x_19 = lean::cnstr_get(x_3, 1); -lean::inc(x_19); -x_21 = lean::cnstr_get(x_3, 2); -lean::inc(x_21); +x_14 = lean::cnstr_get(x_3, 0); +lean::inc(x_14); +x_16 = lean::cnstr_get(x_3, 1); +lean::inc(x_16); +x_18 = lean::cnstr_get(x_3, 2); +lean::inc(x_18); lean::dec(x_3); -x_24 = l_List_reverse___rarg(x_13); -x_25 = l_Lean_Parser_Syntax_mkNode(x_2, x_24); -x_26 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_26, 0, x_25); -x_27 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_27, 0, x_17); -lean::cnstr_set(x_27, 1, x_19); -lean::cnstr_set(x_27, 2, x_21); -lean::cnstr_set(x_27, 3, x_26); -x_28 = lean::apply_2(x_14, lean::box(0), x_27); -return x_28; +x_21 = lean::box(3); +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_21); +lean::cnstr_set(x_22, 1, x_0); +x_23 = l_List_reverse___rarg(x_22); +x_24 = l_Lean_Parser_Syntax_mkNode(x_2, x_23); +x_25 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_25, 0, x_24); +x_26 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_26, 0, x_14); +lean::cnstr_set(x_26, 1, x_16); +lean::cnstr_set(x_26, 2, x_18); +lean::cnstr_set(x_26, 3, x_25); +x_27 = lean::apply_2(x_11, lean::box(0), x_26); +return x_27; +} +else +{ +obj* x_28; obj* x_31; obj* x_33; obj* x_35; obj* x_38; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_28 = lean::cnstr_get(x_1, 0); +lean::inc(x_28); +lean::dec(x_1); +x_31 = lean::cnstr_get(x_3, 0); +lean::inc(x_31); +x_33 = lean::cnstr_get(x_3, 1); +lean::inc(x_33); +x_35 = lean::cnstr_get(x_3, 2); +lean::inc(x_35); +lean::dec(x_3); +x_38 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_40 = x_9; +} else { + lean::inc(x_38); + lean::dec(x_9); + x_40 = lean::box(0); +} +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_38); +lean::cnstr_set(x_41, 1, x_0); +x_42 = l_List_reverse___rarg(x_41); +x_43 = l_Lean_Parser_Syntax_mkNode(x_2, x_42); +if (lean::is_scalar(x_40)) { + x_44 = lean::alloc_cnstr(1, 1, 0); +} else { + x_44 = x_40; +} +lean::cnstr_set(x_44, 0, x_43); +x_45 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_45, 0, x_31); +lean::cnstr_set(x_45, 1, x_33); +lean::cnstr_set(x_45, 2, x_35); +lean::cnstr_set(x_45, 3, x_44); +x_46 = lean::apply_2(x_28, lean::box(0), x_45); +return x_46; +} } } } @@ -631,40 +674,87 @@ return x_2; obj* l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; obj* x_6; obj* x_8; obj* x_10; obj* x_12; obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; -x_3 = lean::cnstr_get(x_0, 0); +obj* x_3; +x_3 = lean::cnstr_get(x_2, 3); lean::inc(x_3); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_5; obj* x_8; obj* x_10; obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; +x_5 = lean::cnstr_get(x_0, 0); +lean::inc(x_5); lean::dec(x_0); -x_6 = lean::cnstr_get(x_2, 0); -lean::inc(x_6); -x_8 = lean::cnstr_get(x_2, 1); +x_8 = lean::cnstr_get(x_2, 0); lean::inc(x_8); -x_10 = lean::cnstr_get(x_2, 2); +x_10 = lean::cnstr_get(x_2, 1); lean::inc(x_10); -x_12 = lean::cnstr_get(x_2, 3); +x_12 = lean::cnstr_get(x_2, 2); lean::inc(x_12); lean::dec(x_2); -x_15 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_12); -lean::dec(x_12); +x_15 = lean::box(3); +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_15); +lean::cnstr_set(x_16, 1, x_1); x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_15); -lean::cnstr_set(x_17, 1, x_1); -x_18 = lean::box(3); -x_19 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_19, 0, x_18); -lean::cnstr_set(x_19, 1, x_17); -x_20 = l_List_reverse___rarg(x_19); -x_21 = l_Lean_Parser_noKind; -x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); -x_23 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_23, 0, x_22); -x_24 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_24, 0, x_6); -lean::cnstr_set(x_24, 1, x_8); -lean::cnstr_set(x_24, 2, x_10); -lean::cnstr_set(x_24, 3, x_23); -x_25 = lean::apply_2(x_3, lean::box(0), x_24); -return x_25; +lean::cnstr_set(x_17, 1, x_16); +x_18 = l_List_reverse___rarg(x_17); +x_19 = l_Lean_Parser_noKind; +x_20 = l_Lean_Parser_Syntax_mkNode(x_19, x_18); +x_21 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_21, 0, x_20); +x_22 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_22, 0, x_8); +lean::cnstr_set(x_22, 1, x_10); +lean::cnstr_set(x_22, 2, x_12); +lean::cnstr_set(x_22, 3, x_21); +x_23 = lean::apply_2(x_5, lean::box(0), x_22); +return x_23; +} +else +{ +obj* x_24; obj* x_27; obj* x_29; obj* x_31; obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; +x_24 = lean::cnstr_get(x_0, 0); +lean::inc(x_24); +lean::dec(x_0); +x_27 = lean::cnstr_get(x_2, 0); +lean::inc(x_27); +x_29 = lean::cnstr_get(x_2, 1); +lean::inc(x_29); +x_31 = lean::cnstr_get(x_2, 2); +lean::inc(x_31); +lean::dec(x_2); +x_34 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_36 = x_3; +} else { + lean::inc(x_34); + lean::dec(x_3); + x_36 = lean::box(0); +} +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_34); +lean::cnstr_set(x_37, 1, x_1); +x_38 = lean::box(3); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_37); +x_40 = l_List_reverse___rarg(x_39); +x_41 = l_Lean_Parser_noKind; +x_42 = l_Lean_Parser_Syntax_mkNode(x_41, x_40); +if (lean::is_scalar(x_36)) { + x_43 = lean::alloc_cnstr(1, 1, 0); +} else { + x_43 = x_36; +} +lean::cnstr_set(x_43, 0, x_42); +x_44 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_44, 0, x_27); +lean::cnstr_set(x_44, 1, x_29); +lean::cnstr_set(x_44, 2, x_31); +lean::cnstr_set(x_44, 3, x_43); +x_45 = lean::apply_2(x_24, lean::box(0), x_44); +return x_45; +} } } obj* l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { @@ -2317,39 +2407,91 @@ lean::dec(x_0); return x_1; } } +obj* _init_l_Lean_Parser_Combinators_optional___rarg___lambda__1___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; +x_0 = lean::box(0); +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = l_Lean_Parser_noKind; +x_4 = l_Lean_Parser_Syntax_mkNode(x_3, x_2); +x_5 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_5, 0, x_4); +return x_5; +} +} obj* l_Lean_Parser_Combinators_optional___rarg___lambda__1(obj* x_0, obj* x_1) { _start: { -obj* x_2; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; -x_2 = lean::cnstr_get(x_0, 0); +obj* x_2; +x_2 = lean::cnstr_get(x_1, 3); lean::inc(x_2); +if (lean::obj_tag(x_2) == 0) +{ +obj* x_4; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_16; +x_4 = lean::cnstr_get(x_0, 0); +lean::inc(x_4); lean::dec(x_0); -x_5 = lean::cnstr_get(x_1, 0); -lean::inc(x_5); -x_7 = lean::cnstr_get(x_1, 1); +x_7 = lean::cnstr_get(x_1, 0); lean::inc(x_7); -x_9 = lean::cnstr_get(x_1, 2); +x_9 = lean::cnstr_get(x_1, 1); lean::inc(x_9); -x_11 = lean::cnstr_get(x_1, 3); +x_11 = lean::cnstr_get(x_1, 2); lean::inc(x_11); lean::dec(x_1); -x_14 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_11); -lean::dec(x_11); -x_16 = lean::box(0); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_14); -lean::cnstr_set(x_17, 1, x_16); -x_18 = l_Lean_Parser_noKind; -x_19 = l_Lean_Parser_Syntax_mkNode(x_18, x_17); -x_20 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_20, 0, x_19); -x_21 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_21, 0, x_5); -lean::cnstr_set(x_21, 1, x_7); -lean::cnstr_set(x_21, 2, x_9); -lean::cnstr_set(x_21, 3, x_20); -x_22 = lean::apply_2(x_2, lean::box(0), x_21); -return x_22; +x_14 = l_Lean_Parser_Combinators_optional___rarg___lambda__1___closed__1; +x_15 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_15, 0, x_7); +lean::cnstr_set(x_15, 1, x_9); +lean::cnstr_set(x_15, 2, x_11); +lean::cnstr_set(x_15, 3, x_14); +x_16 = lean::apply_2(x_4, lean::box(0), x_15); +return x_16; +} +else +{ +obj* x_17; obj* x_20; obj* x_22; obj* x_24; obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; +x_17 = lean::cnstr_get(x_0, 0); +lean::inc(x_17); +lean::dec(x_0); +x_20 = lean::cnstr_get(x_1, 0); +lean::inc(x_20); +x_22 = lean::cnstr_get(x_1, 1); +lean::inc(x_22); +x_24 = lean::cnstr_get(x_1, 2); +lean::inc(x_24); +lean::dec(x_1); +x_27 = lean::cnstr_get(x_2, 0); +if (lean::is_exclusive(x_2)) { + x_29 = x_2; +} else { + lean::inc(x_27); + lean::dec(x_2); + x_29 = lean::box(0); +} +x_30 = lean::box(0); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_27); +lean::cnstr_set(x_31, 1, x_30); +x_32 = l_Lean_Parser_noKind; +x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); +if (lean::is_scalar(x_29)) { + x_34 = lean::alloc_cnstr(1, 1, 0); +} else { + x_34 = x_29; +} +lean::cnstr_set(x_34, 0, x_33); +x_35 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_35, 0, x_20); +lean::cnstr_set(x_35, 1, x_22); +lean::cnstr_set(x_35, 2, x_24); +lean::cnstr_set(x_35, 3, x_34); +x_36 = lean::apply_2(x_17, lean::box(0), x_35); +return x_36; +} } } obj* l_Lean_Parser_Combinators_optional___rarg___lambda__2(obj* x_0, obj* x_1) { @@ -4015,6 +4157,8 @@ w = initialize_init_data_list_instances(w); lean::mark_persistent(l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1); l_Lean_Parser_Combinators_many___rarg___closed__1 = _init_l_Lean_Parser_Combinators_many___rarg___closed__1(); lean::mark_persistent(l_Lean_Parser_Combinators_many___rarg___closed__1); + l_Lean_Parser_Combinators_optional___rarg___lambda__1___closed__1 = _init_l_Lean_Parser_Combinators_optional___rarg___lambda__1___closed__1(); +lean::mark_persistent(l_Lean_Parser_Combinators_optional___rarg___lambda__1___closed__1); l_Lean_Parser_Combinators_anyOf___rarg___closed__1 = _init_l_Lean_Parser_Combinators_anyOf___rarg___closed__1(); lean::mark_persistent(l_Lean_Parser_Combinators_anyOf___rarg___closed__1); l_Lean_Parser_Combinators_choiceAux___main___rarg___closed__1 = _init_l_Lean_Parser_Combinators_choiceAux___main___rarg___closed__1(); diff --git a/src/stage0/init/lean/parser/command.cpp b/src/stage0/init/lean/parser/command.cpp index ca119e8939..8cbdad5ad3 100644 --- a/src/stage0/init/lean/parser/command.cpp +++ b/src/stage0/init/lean/parser/command.cpp @@ -21,17 +21,17 @@ extern obj* l_Lean_Parser_Term_bracketedBinders_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_command_Parser___rarg___closed__1; obj* l_Lean_Parser_ident_Parser___at_Lean_Parser_command_introRule_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_stringLit; +obj* l_fixCore___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_command_universes_HasView_x_27___lambda__1___closed__1; -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_commandParser_run___spec__7(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_check_HasView_x_27; extern "C" uint8 lean_name_dec_eq(obj*, obj*); obj* l_Lean_Parser_command_export_HasView_x_27; obj* l_Lean_Parser_command_export_Parser_Lean_Parser_HasTokens; +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__1(obj*); obj* l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_command_declModifiers_Parser_Lean_Parser_HasTokens___spec__2(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__1___boxed(obj*); obj* l_Lean_Parser_command_include_Parser(obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_CommandParserM_Monad___closed__1; +obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__6___boxed(obj*); obj* l_Lean_Parser_command_omit; extern obj* l_Lean_Parser_command_reserveNotation_HasView_x_27___lambda__2___closed__1; obj* l_Lean_Parser_Combinators_many1___at_Lean_Parser_command_attrInstance_Parser_Lean_Parser_HasTokens___spec__3(obj*, obj*, obj*, obj*, obj*); @@ -71,9 +71,9 @@ obj* l_ReaderT_orelse___at_Lean_Parser_command_universe_Parser___spec__2___boxed obj* l_Lean_Parser_command_setOption_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_command_Parser(obj*); obj* l_Lean_Parser_command_builtinCommandParsers; -extern obj* l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___rarg___closed__1; obj* l_Lean_Parser_command_optionValue_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_stringLit_HasView_x_27___lambda__1(obj*); +obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__2___boxed(obj*); obj* l_Lean_Parser_ParsecT_labelsMkRes___rarg(obj*, obj*); obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__4(obj*); obj* l_Lean_Parser_command_check_Parser_Lean_Parser_HasTokens; @@ -84,14 +84,14 @@ obj* l_Lean_Parser_command_end_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_command_boolOptionValue; extern obj* l_Lean_Parser_indexed___rarg___lambda__1___closed__1; obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__5(obj*); +uint8 l_Lean_Parser_Syntax_isOfKind___main(obj*, obj*); obj* l_Lean_Parser_command_variables; obj* l_Lean_Parser_command_openSpec_hiding; obj* l_List_map___main___at_Lean_Parser_command_openSpec_hiding_HasView_x_27___spec__1(obj*); +obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg___boxed(obj*, obj*); obj* l_ReaderT_lift___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__8___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_id___rarg___boxed(obj*); obj* l_Lean_Parser_command_universes_HasView_x_27; -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_commandParser_run___spec__8(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_variable_HasView_x_27___lambda__1(obj*); obj* l_List_map___main___rarg(obj*, obj*); obj* l_List_map___main___at_Lean_Parser_command_attribute_HasView_x_27___spec__4(obj*); @@ -101,12 +101,14 @@ obj* l_Lean_Parser_command_openSpec_renaming_item_HasView_x_27___lambda__2(obj*) obj* l_Lean_Parser_commandParser_run___closed__1; obj* l_Lean_Parser_command_include_Parser___closed__1; obj* l_Lean_Parser_Combinators_anyOf___at_Lean_Parser_command_universe_Parser___spec__1(obj*, obj*, obj*, obj*, obj*); +obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__6(obj*); obj* l_Lean_Parser_Combinators_sepBy1___at_Lean_Parser_command_declAttributes_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_number_HasView; obj* l_Lean_Parser_command_openSpec_HasView_x_27___lambda__1___closed__4; obj* l_Lean_Parser_command_variable_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_command_check_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Combinators_node___at_Lean_Parser_command_docComment_Parser___spec__4(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__2___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_openSpec_only; obj* l_Lean_Parser_Substring_toString(obj*); obj* l_Lean_Parser_command_export_Parser___closed__1; @@ -120,6 +122,7 @@ obj* l_Lean_Parser_command_attribute_HasView; obj* l_Lean_Parser_command_Parser___rarg(obj*, obj*, obj*); obj* l_Lean_Parser_command_openSpec_renaming_item_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_command_namespace_HasView_x_27___lambda__2(obj*); +extern obj* l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1; obj* l_Lean_Parser_command_export_HasView; obj* l_Lean_Parser_command_section_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_command_openSpec_HasView_x_27___lambda__1(obj*); @@ -127,9 +130,9 @@ obj* l_Lean_Parser_Combinators_many___at_Lean_Parser_command_attrInstance_Parser obj* l_Lean_Parser_command_variables_HasView; obj* l_Lean_Parser_command_omit_HasView_x_27___lambda__2(obj*); extern obj* l_Lean_Parser_command_notation_HasView_x_27___lambda__1___closed__1; +obj* l_Lean_Parser_commandParser_run___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_universe_Parser___closed__1; obj* l_Lean_Parser_command_export_HasView_x_27___lambda__1(obj*); -obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__2___boxed(obj*); extern obj* l_Lean_Parser_detailIdent_HasView_x_27___lambda__2___closed__1; obj* l_Lean_Parser_command_openSpec; obj* l_Lean_Parser_command_openSpec_as_HasView_x_27___lambda__1___closed__1; @@ -139,20 +142,20 @@ extern obj* l_Lean_Parser_Term_Parser_Lean_Parser_HasTokens___closed__1; obj* l_Lean_Parser_command_section_Parser(obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_command_attrInstance_HasView; obj* l_Lean_Parser_command_end_HasView; +obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_universes_HasView; obj* l_Lean_Parser_command_end_HasView_x_27; obj* l_Lean_Parser_command_open_HasView_x_27; obj* l_Lean_Parser_command_openSpec_as_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_command_variable_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_command_end; -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__6___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg(obj*, obj*); obj* l_Lean_Parser_command_variable_HasView; +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_open_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_command_universe_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_command_openSpec_HasView_x_27___lambda__1___closed__3; obj* l_Lean_Parser_Combinators_recurse_view___rarg(obj*, obj*); -obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__2___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_command_openSpec_renaming_HasView_x_27___lambda__1___closed__2; obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg(obj*, obj*); obj* l_Lean_Parser_command_check_Parser_Lean_Parser_HasView; @@ -164,6 +167,7 @@ obj* l_Lean_Parser_Term_Parser(obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_command_declAttributes_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_command_check_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_symbolCore___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__1___boxed(obj*); obj* l_Lean_Parser_command_openSpec_renaming_HasView_x_27; obj* l_Lean_Parser_command_initQuot_Parser___closed__1; obj* l_Lean_Parser_MonadParsec_observing___at_Lean_Parser_peekToken___spec__2(obj*, obj*, obj*, obj*); @@ -192,7 +196,6 @@ obj* l_Lean_Parser_command_universes; obj* l_Lean_Parser_Syntax_mkNode(obj*, obj*); extern obj* l_Lean_Parser_Term_binder_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_command_check; -obj* l_Option_getOrElse___main___rarg(obj*, obj*); obj* l_Lean_Parser_command_openSpec_hiding_HasView; obj* l_List_map___main___at_Lean_Parser_command_openSpec_hiding_HasView_x_27___spec__2(obj*); obj* l_Lean_Parser_command_end_HasView_x_27___lambda__2___closed__1; @@ -201,7 +204,6 @@ obj* l_Lean_Parser_command_end_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_command_boolOptionValue_HasView_x_27___lambda__1(obj*); obj* l_List_map___main___at_Lean_Parser_command_universes_HasView_x_27___spec__1(obj*); obj* l_Lean_Parser_command_variables_HasView_x_27___lambda__1(obj*); -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__6___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_noKind; obj* l_Lean_Parser_command_setOption_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_command_openSpec_renaming_HasView_x_27___lambda__1___closed__3; @@ -218,7 +220,6 @@ obj* l_Lean_Parser_command_section_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_command_openSpec_HasView_x_27___lambda__1___closed__5; obj* l_Lean_Parser_command_openSpec_renaming_item_HasView; obj* l_Lean_Parser_command_optionValue_HasView_x_27___lambda__1___closed__2; -obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__2(obj*); extern obj* l_Lean_Parser_number_HasView_x_27___lambda__2___closed__4; obj* l_List_map___main___at_Lean_Parser_command_openSpec_only_HasView_x_27___spec__2(obj*); obj* l_Lean_Parser_command_universe_HasView_x_27___lambda__1(obj*); @@ -237,12 +238,11 @@ obj* l_Lean_Parser_command_builtinCommandParsers_Lean_Parser_HasTokens; obj* l_Lean_Parser_ParsecT_tryMkRes___rarg(obj*); obj* l_Lean_Parser_command_check_Parser(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_universe_HasView_x_27; +obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__2(obj*); obj* l_Lean_Parser_command_openSpec_only_HasView_x_27___lambda__1___closed__1; obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_command_openSpec_as_HasView; obj* l_Lean_Parser_command_attribute_HasView_x_27; -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_commandParser_run___spec__8___boxed(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_tryView___at_Lean_Parser_number_Parser___spec__1(obj*, obj*); obj* l_Lean_Parser_command_openSpec_only_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_command_initQuot_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__4___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); @@ -254,7 +254,6 @@ obj* l_Lean_Parser_command_openSpec_HasView_x_27; obj* l_Lean_Parser_command_openSpec_Parser___closed__1; obj* l_Lean_Parser_command_variables_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_command_section_HasView_x_27___lambda__2(obj*); -obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_attribute_Parser(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_end_Parser___closed__1; namespace lean { @@ -263,14 +262,13 @@ uint8 string_dec_eq(obj*, obj*); obj* l_Lean_Parser_command_variable_Parser(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Combinators_label_view___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_open; +obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg(obj*, obj*); obj* l_Lean_Parser_command_openSpec_renaming_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_command_section_HasView; obj* l_Lean_Parser_command_namespace_Parser___closed__1; extern obj* l_Lean_Parser_command_Declaration_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_command_Declaration_Parser(obj*, obj*, obj*, obj*); -extern obj* l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; obj* l_Lean_Parser_command_end_HasView_x_27___lambda__1___closed__1; -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__6(obj*); obj* l_Lean_Parser_number_Parser___at_Lean_Parser_command_setOption_Parser_Lean_Parser_HasTokens___spec__3(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_bracketedBinders_Parser(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_optionValue; @@ -285,7 +283,6 @@ obj* l_Lean_Parser_command_openSpec_hiding_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_command_openSpec_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_command_variables_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_command_openSpec_renaming_item_HasView_x_27; -obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__2___rarg(obj*, obj*); obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__3___boxed(obj*); obj* l_Lean_Parser_command_openSpec_renaming_item; obj* l_Lean_Parser_command_universes_HasView_x_27___lambda__2(obj*); @@ -295,6 +292,7 @@ obj* l_Lean_Parser_ParsecT_bindMkRes___rarg(obj*, obj*); obj* l___private_init_lean_parser_combinators_3__sepBy_viewAux___main___at_Lean_Parser_command_attribute_HasView_x_27___spec__2(obj*, obj*, obj*); obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__5___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_command_openSpec_HasView_x_27___lambda__1___closed__2; +obj* l_Lean_Parser_commandParser_run___lambda__1(obj*, obj*, obj*); extern obj* l_Lean_Parser_Term_binderContent_HasView_x_27___lambda__2___closed__2; obj* l_Lean_Parser_command_namespace_HasView; obj* l_Lean_Parser_command_attribute_HasView_x_27___lambda__2(obj*); @@ -315,7 +313,6 @@ obj* l_Lean_Parser_command_open_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_command_universe_HasView; obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg___boxed(obj*, obj*); extern obj* l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_commandParser_run___spec__7___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_token(obj*, obj*, obj*); obj* l_Lean_Parser_command_mixfix_Parser(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_openSpec_renaming_item_HasView_x_27___lambda__1(obj*); @@ -334,7 +331,7 @@ obj* l_Lean_Parser_command_open_Parser___closed__1; obj* l_Lean_Parser_tokenMapCons_tokens___rarg(obj*, obj*); obj* l_Lean_Parser_command_Parser_Lean_Parser_HasView; obj* l_Lean_Parser_command_universe_Parser(obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__1(obj*); +obj* l_Lean_Parser_commandParser_run___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_symbolOrIdent___at_Lean_Parser_command_setOption_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_List_map___main___at_Lean_Parser_command_attribute_HasView_x_27___spec__3(obj*, obj*); obj* l_Lean_Parser_command_section_HasView_x_27; @@ -357,10 +354,10 @@ obj* l_Lean_Parser_command_Declaration_Parser_Lean_Parser_HasView___lambda__1(ob obj* l_Lean_Parser_Term_binder_Parser(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_stringLit_Parser___at_Lean_Parser_command_setOption_Parser_Lean_Parser_HasTokens___spec__2(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_attribute_Parser_Lean_Parser_HasView; +obj* l_Lean_Parser_commandParser_run___lambda__1___boxed(obj*, obj*, obj*); extern obj* l_Lean_Parser_CommandParserM_Alternative___closed__1; obj* l_Lean_Parser_command_variable_HasView_x_27; obj* l_Lean_Parser_command_notation_Parser(obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__6___boxed(obj*); obj* l_Lean_Parser_command_setOption_Parser(obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_stringLit_HasView; obj* l_Lean_Parser_command_check_HasView_x_27___lambda__2(obj*); @@ -386,6 +383,7 @@ obj* l_Lean_Parser_command_include_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_command_namespace_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_command_attribute_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_command_openSpec_hiding_HasView_x_27; +extern obj* l_Lean_Parser_number_Parser___rarg___lambda__1___closed__1; obj* l_Lean_Parser_command_initQuot_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_command_openSpec_renaming_HasView; obj* l_Lean_Parser_command_include_HasView_x_27___lambda__1(obj*); @@ -661,7 +659,7 @@ lean::cnstr_set(x_8, 1, x_7); if (lean::obj_tag(x_1) == 0) { obj* x_9; obj* x_10; obj* x_11; obj* x_12; -x_9 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_9 = lean::box(3); x_10 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_10, 0, x_9); lean::cnstr_set(x_10, 1, x_8); @@ -671,32 +669,18 @@ return x_12; } else { -obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; +obj* x_13; obj* x_16; obj* x_17; obj* x_18; obj* x_19; x_13 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_15 = x_1; -} else { - lean::inc(x_13); - lean::dec(x_1); - x_15 = lean::box(0); -} +lean::inc(x_13); +lean::dec(x_1); x_16 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_16, 0, x_13); -if (lean::is_scalar(x_15)) { - x_17 = lean::alloc_cnstr(1, 1, 0); -} else { - x_17 = x_15; -} +x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_16); -x_18 = lean::box(3); -x_19 = l_Option_getOrElse___main___rarg(x_17, x_18); -lean::dec(x_17); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_19); -lean::cnstr_set(x_21, 1, x_8); -x_22 = l_Lean_Parser_command_openSpec_as; -x_23 = l_Lean_Parser_Syntax_mkNode(x_22, x_21); -return x_23; +lean::cnstr_set(x_17, 1, x_8); +x_18 = l_Lean_Parser_command_openSpec_as; +x_19 = l_Lean_Parser_Syntax_mkNode(x_18, x_17); +return x_19; } } } @@ -1281,7 +1265,7 @@ x_15 = l_Lean_Parser_Syntax_mkNode(x_14, x_13); if (lean::obj_tag(x_1) == 0) { obj* x_16; obj* x_17; obj* x_18; -x_16 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::box(3); x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_16); lean::cnstr_set(x_17, 1, x_12); @@ -1302,113 +1286,72 @@ return x_23; } else { -obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; +obj* x_24; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; x_24 = lean::cnstr_get(x_7, 0); -if (lean::is_exclusive(x_7)) { - x_26 = x_7; -} else { - lean::inc(x_24); - lean::dec(x_7); - x_26 = lean::box(0); -} +lean::inc(x_24); +lean::dec(x_7); x_27 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_27, 0, x_24); -if (lean::is_scalar(x_26)) { - x_28 = lean::alloc_cnstr(1, 1, 0); -} else { - x_28 = x_26; -} +x_28 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_28, 0, x_27); -x_29 = lean::box(3); -x_30 = l_Option_getOrElse___main___rarg(x_28, x_29); -lean::dec(x_28); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_30); -lean::cnstr_set(x_32, 1, x_11); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_15); -lean::cnstr_set(x_33, 1, x_32); -x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_18); -lean::cnstr_set(x_34, 1, x_33); -x_35 = l_Lean_Parser_command_openSpec_only; -x_36 = l_Lean_Parser_Syntax_mkNode(x_35, x_34); -return x_36; +lean::cnstr_set(x_28, 1, x_11); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_15); +lean::cnstr_set(x_29, 1, x_28); +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_18); +lean::cnstr_set(x_30, 1, x_29); +x_31 = l_Lean_Parser_command_openSpec_only; +x_32 = l_Lean_Parser_Syntax_mkNode(x_31, x_30); +return x_32; } } else { -obj* x_37; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_45; obj* x_46; -x_37 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_39 = x_1; -} else { - lean::inc(x_37); - lean::dec(x_1); - x_39 = lean::box(0); -} -x_40 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_40, 0, x_37); -if (lean::is_scalar(x_39)) { - x_41 = lean::alloc_cnstr(1, 1, 0); -} else { - x_41 = x_39; -} -lean::cnstr_set(x_41, 0, x_40); -x_42 = lean::box(3); -x_43 = l_Option_getOrElse___main___rarg(x_41, x_42); -lean::dec(x_41); -x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_43); -lean::cnstr_set(x_45, 1, x_12); -x_46 = l_Lean_Parser_Syntax_mkNode(x_14, x_45); +obj* x_33; obj* x_36; obj* x_37; obj* x_38; +x_33 = lean::cnstr_get(x_1, 0); +lean::inc(x_33); +lean::dec(x_1); +x_36 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_36, 0, x_33); +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_36); +lean::cnstr_set(x_37, 1, x_12); +x_38 = l_Lean_Parser_Syntax_mkNode(x_14, x_37); if (lean::obj_tag(x_7) == 0) { -obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; -x_47 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_48 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_48, 0, x_15); -lean::cnstr_set(x_48, 1, x_47); -x_49 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_49, 0, x_46); -lean::cnstr_set(x_49, 1, x_48); -x_50 = l_Lean_Parser_command_openSpec_only; -x_51 = l_Lean_Parser_Syntax_mkNode(x_50, x_49); -return x_51; +obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; +x_39 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_15); +lean::cnstr_set(x_40, 1, x_39); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_38); +lean::cnstr_set(x_41, 1, x_40); +x_42 = l_Lean_Parser_command_openSpec_only; +x_43 = l_Lean_Parser_Syntax_mkNode(x_42, x_41); +return x_43; } else { -obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; -x_52 = lean::cnstr_get(x_7, 0); -if (lean::is_exclusive(x_7)) { - x_54 = x_7; -} else { - lean::inc(x_52); - lean::dec(x_7); - x_54 = lean::box(0); -} -x_55 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_55, 0, x_52); -if (lean::is_scalar(x_54)) { - x_56 = lean::alloc_cnstr(1, 1, 0); -} else { - x_56 = x_54; -} -lean::cnstr_set(x_56, 0, x_55); -x_57 = l_Option_getOrElse___main___rarg(x_56, x_42); -lean::dec(x_56); -x_59 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_59, 0, x_57); -lean::cnstr_set(x_59, 1, x_11); -x_60 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_60, 0, x_15); -lean::cnstr_set(x_60, 1, x_59); -x_61 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_61, 0, x_46); -lean::cnstr_set(x_61, 1, x_60); -x_62 = l_Lean_Parser_command_openSpec_only; -x_63 = l_Lean_Parser_Syntax_mkNode(x_62, x_61); -return x_63; +obj* x_44; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; +x_44 = lean::cnstr_get(x_7, 0); +lean::inc(x_44); +lean::dec(x_7); +x_47 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_47, 0, x_44); +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_11); +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_15); +lean::cnstr_set(x_49, 1, x_48); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_38); +lean::cnstr_set(x_50, 1, x_49); +x_51 = l_Lean_Parser_command_openSpec_only; +x_52 = l_Lean_Parser_Syntax_mkNode(x_51, x_50); +return x_52; } } } @@ -1672,7 +1615,7 @@ lean::cnstr_set(x_11, 1, x_10); if (lean::obj_tag(x_3) == 0) { obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; -x_12 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_12 = lean::box(3); x_13 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_13, 0, x_12); lean::cnstr_set(x_13, 1, x_11); @@ -1685,35 +1628,21 @@ return x_16; } else { -obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27; obj* x_28; +obj* x_17; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; x_17 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_19 = x_3; -} else { - lean::inc(x_17); - lean::dec(x_3); - x_19 = lean::box(0); -} +lean::inc(x_17); +lean::dec(x_3); x_20 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_20, 0, x_17); -if (lean::is_scalar(x_19)) { - x_21 = lean::alloc_cnstr(1, 1, 0); -} else { - x_21 = x_19; -} +x_21 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_21, 0, x_20); -x_22 = lean::box(3); -x_23 = l_Option_getOrElse___main___rarg(x_21, x_22); -lean::dec(x_21); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_23); -lean::cnstr_set(x_25, 1, x_11); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_8); -lean::cnstr_set(x_26, 1, x_25); -x_27 = l_Lean_Parser_command_openSpec_renaming_item; -x_28 = l_Lean_Parser_Syntax_mkNode(x_27, x_26); -return x_28; +lean::cnstr_set(x_21, 1, x_11); +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_8); +lean::cnstr_set(x_22, 1, x_21); +x_23 = l_Lean_Parser_command_openSpec_renaming_item; +x_24 = l_Lean_Parser_Syntax_mkNode(x_23, x_22); +return x_24; } } } @@ -2246,274 +2175,180 @@ return x_20; } else { -obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; +obj* x_21; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; x_21 = lean::cnstr_get(x_7, 0); -if (lean::is_exclusive(x_7)) { - x_23 = x_7; -} else { - lean::inc(x_21); - lean::dec(x_7); - x_23 = lean::box(0); -} +lean::inc(x_21); +lean::dec(x_7); x_24 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_24, 0, x_21); -if (lean::is_scalar(x_23)) { - x_25 = lean::alloc_cnstr(1, 1, 0); -} else { - x_25 = x_23; -} +x_25 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_25, 0, x_24); -x_26 = lean::box(3); -x_27 = l_Option_getOrElse___main___rarg(x_25, x_26); -lean::dec(x_25); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_27); -lean::cnstr_set(x_29, 1, x_10); -x_30 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_30, 0, x_14); -lean::cnstr_set(x_30, 1, x_29); -x_31 = l_Lean_Parser_command_reserveNotation_HasView_x_27___lambda__2___closed__1; -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_31); -lean::cnstr_set(x_32, 1, x_30); -x_33 = l_Lean_Parser_command_openSpec_renaming; -x_34 = l_Lean_Parser_Syntax_mkNode(x_33, x_32); -return x_34; +lean::cnstr_set(x_25, 1, x_10); +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_14); +lean::cnstr_set(x_26, 1, x_25); +x_27 = l_Lean_Parser_command_reserveNotation_HasView_x_27___lambda__2___closed__1; +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_27); +lean::cnstr_set(x_28, 1, x_26); +x_29 = l_Lean_Parser_command_openSpec_renaming; +x_30 = l_Lean_Parser_Syntax_mkNode(x_29, x_28); +return x_30; } } else { -obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_43; obj* x_44; obj* x_45; obj* x_46; -x_35 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_37 = x_3; -} else { - lean::inc(x_35); - lean::dec(x_3); - x_37 = lean::box(0); -} -x_38 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_38, 0, x_35); -if (lean::is_scalar(x_37)) { - x_39 = lean::alloc_cnstr(1, 1, 0); -} else { - x_39 = x_37; -} -lean::cnstr_set(x_39, 0, x_38); -x_40 = lean::box(3); -x_41 = l_Option_getOrElse___main___rarg(x_39, x_40); -lean::dec(x_39); -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_41); -lean::cnstr_set(x_43, 1, x_10); -x_44 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_44); -lean::cnstr_set(x_45, 1, x_43); -x_46 = l_Lean_Parser_Syntax_mkNode(x_13, x_45); +obj* x_31; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_31 = lean::cnstr_get(x_3, 0); +lean::inc(x_31); +lean::dec(x_3); +x_34 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_34, 0, x_31); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_10); +x_36 = lean::box(3); +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_36); +lean::cnstr_set(x_37, 1, x_35); +x_38 = l_Lean_Parser_Syntax_mkNode(x_13, x_37); if (lean::obj_tag(x_7) == 0) { -obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; -x_47 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_48 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_48, 0, x_14); -lean::cnstr_set(x_48, 1, x_47); -x_49 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_49, 0, x_46); -lean::cnstr_set(x_49, 1, x_48); -x_50 = l_Lean_Parser_command_openSpec_renaming; -x_51 = l_Lean_Parser_Syntax_mkNode(x_50, x_49); -return x_51; +obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; +x_39 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_14); +lean::cnstr_set(x_40, 1, x_39); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_38); +lean::cnstr_set(x_41, 1, x_40); +x_42 = l_Lean_Parser_command_openSpec_renaming; +x_43 = l_Lean_Parser_Syntax_mkNode(x_42, x_41); +return x_43; } else { -obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; -x_52 = lean::cnstr_get(x_7, 0); -if (lean::is_exclusive(x_7)) { - x_54 = x_7; -} else { - lean::inc(x_52); - lean::dec(x_7); - x_54 = lean::box(0); +obj* x_44; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; +x_44 = lean::cnstr_get(x_7, 0); +lean::inc(x_44); +lean::dec(x_7); +x_47 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_47, 0, x_44); +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_10); +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_14); +lean::cnstr_set(x_49, 1, x_48); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_38); +lean::cnstr_set(x_50, 1, x_49); +x_51 = l_Lean_Parser_command_openSpec_renaming; +x_52 = l_Lean_Parser_Syntax_mkNode(x_51, x_50); +return x_52; } -x_55 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_55, 0, x_52); -if (lean::is_scalar(x_54)) { - x_56 = lean::alloc_cnstr(1, 1, 0); -} else { - x_56 = x_54; } -lean::cnstr_set(x_56, 0, x_55); -x_57 = l_Option_getOrElse___main___rarg(x_56, x_40); -lean::dec(x_56); -x_59 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_59, 0, x_57); -lean::cnstr_set(x_59, 1, x_10); +} +else +{ +obj* x_53; obj* x_56; +x_53 = lean::cnstr_get(x_1, 0); +lean::inc(x_53); +lean::dec(x_1); +x_56 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_56, 0, x_53); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_57; obj* x_58; obj* x_59; +x_57 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_56); +lean::cnstr_set(x_58, 1, x_57); +x_59 = l_Lean_Parser_Syntax_mkNode(x_13, x_58); +if (lean::obj_tag(x_7) == 0) +{ +obj* x_60; obj* x_61; obj* x_62; obj* x_63; x_60 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_60, 0, x_14); -lean::cnstr_set(x_60, 1, x_59); +lean::cnstr_set(x_60, 1, x_57); x_61 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_61, 0, x_46); +lean::cnstr_set(x_61, 0, x_59); lean::cnstr_set(x_61, 1, x_60); x_62 = l_Lean_Parser_command_openSpec_renaming; x_63 = l_Lean_Parser_Syntax_mkNode(x_62, x_61); return x_63; } -} -} else { -obj* x_64; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; -x_64 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_66 = x_1; -} else { - lean::inc(x_64); - lean::dec(x_1); - x_66 = lean::box(0); -} +obj* x_64; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; +x_64 = lean::cnstr_get(x_7, 0); +lean::inc(x_64); +lean::dec(x_7); x_67 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_67, 0, x_64); -if (lean::is_scalar(x_66)) { - x_68 = lean::alloc_cnstr(1, 1, 0); -} else { - x_68 = x_66; -} +x_68 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_68, 0, x_67); -x_69 = lean::box(3); -x_70 = l_Option_getOrElse___main___rarg(x_68, x_69); -lean::dec(x_68); -if (lean::obj_tag(x_3) == 0) -{ -obj* x_72; obj* x_73; obj* x_74; -x_72 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_73 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_73, 0, x_70); -lean::cnstr_set(x_73, 1, x_72); -x_74 = l_Lean_Parser_Syntax_mkNode(x_13, x_73); -if (lean::obj_tag(x_7) == 0) -{ -obj* x_75; obj* x_76; obj* x_77; obj* x_78; -x_75 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_75, 0, x_14); -lean::cnstr_set(x_75, 1, x_72); -x_76 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_76, 0, x_74); -lean::cnstr_set(x_76, 1, x_75); -x_77 = l_Lean_Parser_command_openSpec_renaming; -x_78 = l_Lean_Parser_Syntax_mkNode(x_77, x_76); -return x_78; +lean::cnstr_set(x_68, 1, x_10); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_14); +lean::cnstr_set(x_69, 1, x_68); +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_59); +lean::cnstr_set(x_70, 1, x_69); +x_71 = l_Lean_Parser_command_openSpec_renaming; +x_72 = l_Lean_Parser_Syntax_mkNode(x_71, x_70); +return x_72; +} } else { -obj* x_79; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; -x_79 = lean::cnstr_get(x_7, 0); -if (lean::is_exclusive(x_7)) { - x_81 = x_7; -} else { - lean::inc(x_79); - lean::dec(x_7); - x_81 = lean::box(0); -} -x_82 = lean::alloc_cnstr(0, 1, 0); +obj* x_73; obj* x_76; obj* x_77; obj* x_78; obj* x_79; +x_73 = lean::cnstr_get(x_3, 0); +lean::inc(x_73); +lean::dec(x_3); +x_76 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_76, 0, x_73); +x_77 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_77, 0, x_76); +lean::cnstr_set(x_77, 1, x_10); +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_56); +lean::cnstr_set(x_78, 1, x_77); +x_79 = l_Lean_Parser_Syntax_mkNode(x_13, x_78); +if (lean::obj_tag(x_7) == 0) +{ +obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; +x_80 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_81 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_81, 0, x_14); +lean::cnstr_set(x_81, 1, x_80); +x_82 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_82, 0, x_79); -if (lean::is_scalar(x_81)) { - x_83 = lean::alloc_cnstr(1, 1, 0); -} else { - x_83 = x_81; -} -lean::cnstr_set(x_83, 0, x_82); -x_84 = l_Option_getOrElse___main___rarg(x_83, x_69); -lean::dec(x_83); -x_86 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_86, 0, x_84); -lean::cnstr_set(x_86, 1, x_10); -x_87 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_87, 0, x_14); -lean::cnstr_set(x_87, 1, x_86); -x_88 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_88, 0, x_74); -lean::cnstr_set(x_88, 1, x_87); -x_89 = l_Lean_Parser_command_openSpec_renaming; -x_90 = l_Lean_Parser_Syntax_mkNode(x_89, x_88); -return x_90; -} +lean::cnstr_set(x_82, 1, x_81); +x_83 = l_Lean_Parser_command_openSpec_renaming; +x_84 = l_Lean_Parser_Syntax_mkNode(x_83, x_82); +return x_84; } else { -obj* x_91; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_98; obj* x_99; obj* x_100; -x_91 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_93 = x_3; -} else { - lean::inc(x_91); - lean::dec(x_3); - x_93 = lean::box(0); -} -x_94 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_94, 0, x_91); -if (lean::is_scalar(x_93)) { - x_95 = lean::alloc_cnstr(1, 1, 0); -} else { - x_95 = x_93; -} -lean::cnstr_set(x_95, 0, x_94); -x_96 = l_Option_getOrElse___main___rarg(x_95, x_69); -lean::dec(x_95); -x_98 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_98, 0, x_96); -lean::cnstr_set(x_98, 1, x_10); -x_99 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_99, 0, x_70); -lean::cnstr_set(x_99, 1, x_98); -x_100 = l_Lean_Parser_Syntax_mkNode(x_13, x_99); -if (lean::obj_tag(x_7) == 0) -{ -obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_105; -x_101 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_102 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_102, 0, x_14); -lean::cnstr_set(x_102, 1, x_101); -x_103 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_103, 0, x_100); -lean::cnstr_set(x_103, 1, x_102); -x_104 = l_Lean_Parser_command_openSpec_renaming; -x_105 = l_Lean_Parser_Syntax_mkNode(x_104, x_103); -return x_105; -} -else -{ -obj* x_106; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; -x_106 = lean::cnstr_get(x_7, 0); -if (lean::is_exclusive(x_7)) { - x_108 = x_7; -} else { - lean::inc(x_106); - lean::dec(x_7); - x_108 = lean::box(0); -} -x_109 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_109, 0, x_106); -if (lean::is_scalar(x_108)) { - x_110 = lean::alloc_cnstr(1, 1, 0); -} else { - x_110 = x_108; -} -lean::cnstr_set(x_110, 0, x_109); -x_111 = l_Option_getOrElse___main___rarg(x_110, x_69); -lean::dec(x_110); -x_113 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_113, 0, x_111); -lean::cnstr_set(x_113, 1, x_10); -x_114 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_114, 0, x_14); -lean::cnstr_set(x_114, 1, x_113); -x_115 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_115, 0, x_100); -lean::cnstr_set(x_115, 1, x_114); -x_116 = l_Lean_Parser_command_openSpec_renaming; -x_117 = l_Lean_Parser_Syntax_mkNode(x_116, x_115); -return x_117; +obj* x_85; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; +x_85 = lean::cnstr_get(x_7, 0); +lean::inc(x_85); +lean::dec(x_7); +x_88 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_88, 0, x_85); +x_89 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_89, 0, x_88); +lean::cnstr_set(x_89, 1, x_10); +x_90 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_90, 0, x_14); +lean::cnstr_set(x_90, 1, x_89); +x_91 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_91, 0, x_79); +lean::cnstr_set(x_91, 1, x_90); +x_92 = l_Lean_Parser_command_openSpec_renaming; +x_93 = l_Lean_Parser_Syntax_mkNode(x_92, x_91); +return x_93; } } } @@ -3036,7 +2871,7 @@ x_14 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2 x_15 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_15, 0, x_12); lean::cnstr_set(x_15, 1, x_14); -x_16 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::box(3); x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_16); lean::cnstr_set(x_17, 1, x_15); @@ -3049,279 +2884,185 @@ return x_20; } else { -obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; +obj* x_21; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; x_21 = lean::cnstr_get(x_7, 0); -if (lean::is_exclusive(x_7)) { - x_23 = x_7; -} else { - lean::inc(x_21); - lean::dec(x_7); - x_23 = lean::box(0); -} +lean::inc(x_21); +lean::dec(x_7); x_24 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_24, 0, x_21); -if (lean::is_scalar(x_23)) { - x_25 = lean::alloc_cnstr(1, 1, 0); -} else { - x_25 = x_23; -} +x_25 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_25, 0, x_24); -x_26 = lean::box(3); -x_27 = l_Option_getOrElse___main___rarg(x_25, x_26); -lean::dec(x_25); +lean::cnstr_set(x_25, 1, x_13); +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_12); +lean::cnstr_set(x_26, 1, x_25); +x_27 = lean::box(3); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_27); +lean::cnstr_set(x_28, 1, x_26); x_29 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_29, 0, x_27); -lean::cnstr_set(x_29, 1, x_13); -x_30 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_30, 0, x_12); -lean::cnstr_set(x_30, 1, x_29); -x_31 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_31); -lean::cnstr_set(x_32, 1, x_30); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_31); -lean::cnstr_set(x_33, 1, x_32); -x_34 = l_Lean_Parser_command_openSpec_hiding; -x_35 = l_Lean_Parser_Syntax_mkNode(x_34, x_33); -return x_35; +lean::cnstr_set(x_29, 1, x_28); +x_30 = l_Lean_Parser_command_openSpec_hiding; +x_31 = l_Lean_Parser_Syntax_mkNode(x_30, x_29); +return x_31; } } else { -obj* x_36; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; -x_36 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_38 = x_3; -} else { - lean::inc(x_36); - lean::dec(x_3); - x_38 = lean::box(0); -} -x_39 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_39, 0, x_36); -if (lean::is_scalar(x_38)) { - x_40 = lean::alloc_cnstr(1, 1, 0); -} else { - x_40 = x_38; -} -lean::cnstr_set(x_40, 0, x_39); -x_41 = lean::box(3); -x_42 = l_Option_getOrElse___main___rarg(x_40, x_41); -lean::dec(x_40); +obj* x_32; obj* x_35; +x_32 = lean::cnstr_get(x_3, 0); +lean::inc(x_32); +lean::dec(x_3); +x_35 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_35, 0, x_32); if (lean::obj_tag(x_7) == 0) { -obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; -x_44 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_12); -lean::cnstr_set(x_45, 1, x_44); -x_46 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_46, 0, x_42); -lean::cnstr_set(x_46, 1, x_45); -x_47 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; +x_36 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_12); +lean::cnstr_set(x_37, 1, x_36); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_35); +lean::cnstr_set(x_38, 1, x_37); +x_39 = lean::box(3); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_39); +lean::cnstr_set(x_40, 1, x_38); +x_41 = l_Lean_Parser_command_openSpec_hiding; +x_42 = l_Lean_Parser_Syntax_mkNode(x_41, x_40); +return x_42; +} +else +{ +obj* x_43; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_43 = lean::cnstr_get(x_7, 0); +lean::inc(x_43); +lean::dec(x_7); +x_46 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_46, 0, x_43); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_46); +lean::cnstr_set(x_47, 1, x_13); x_48 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_48, 0, x_47); -lean::cnstr_set(x_48, 1, x_46); -x_49 = l_Lean_Parser_command_openSpec_hiding; -x_50 = l_Lean_Parser_Syntax_mkNode(x_49, x_48); -return x_50; -} -else -{ -obj* x_51; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; -x_51 = lean::cnstr_get(x_7, 0); -if (lean::is_exclusive(x_7)) { - x_53 = x_7; -} else { - lean::inc(x_51); - lean::dec(x_7); - x_53 = lean::box(0); -} -x_54 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_54, 0, x_51); -if (lean::is_scalar(x_53)) { - x_55 = lean::alloc_cnstr(1, 1, 0); -} else { - x_55 = x_53; -} -lean::cnstr_set(x_55, 0, x_54); -x_56 = l_Option_getOrElse___main___rarg(x_55, x_41); -lean::dec(x_55); -x_58 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_58, 0, x_56); -lean::cnstr_set(x_58, 1, x_13); -x_59 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_59, 0, x_12); -lean::cnstr_set(x_59, 1, x_58); -x_60 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_60, 0, x_42); -lean::cnstr_set(x_60, 1, x_59); -x_61 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_62 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_62, 0, x_61); -lean::cnstr_set(x_62, 1, x_60); -x_63 = l_Lean_Parser_command_openSpec_hiding; -x_64 = l_Lean_Parser_Syntax_mkNode(x_63, x_62); -return x_64; +lean::cnstr_set(x_48, 0, x_12); +lean::cnstr_set(x_48, 1, x_47); +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_35); +lean::cnstr_set(x_49, 1, x_48); +x_50 = lean::box(3); +x_51 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_51, 0, x_50); +lean::cnstr_set(x_51, 1, x_49); +x_52 = l_Lean_Parser_command_openSpec_hiding; +x_53 = l_Lean_Parser_Syntax_mkNode(x_52, x_51); +return x_53; } } } else { -obj* x_65; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; -x_65 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_67 = x_1; -} else { - lean::inc(x_65); - lean::dec(x_1); - x_67 = lean::box(0); -} -x_68 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_68, 0, x_65); -if (lean::is_scalar(x_67)) { - x_69 = lean::alloc_cnstr(1, 1, 0); -} else { - x_69 = x_67; -} -lean::cnstr_set(x_69, 0, x_68); -x_70 = lean::box(3); -x_71 = l_Option_getOrElse___main___rarg(x_69, x_70); -lean::dec(x_69); +obj* x_54; obj* x_57; +x_54 = lean::cnstr_get(x_1, 0); +lean::inc(x_54); +lean::dec(x_1); +x_57 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_57, 0, x_54); if (lean::obj_tag(x_3) == 0) { if (lean::obj_tag(x_7) == 0) { -obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; -x_73 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_74 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_74, 0, x_12); -lean::cnstr_set(x_74, 1, x_73); -x_75 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_76 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_76, 0, x_75); -lean::cnstr_set(x_76, 1, x_74); -x_77 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_77, 0, x_71); -lean::cnstr_set(x_77, 1, x_76); -x_78 = l_Lean_Parser_command_openSpec_hiding; -x_79 = l_Lean_Parser_Syntax_mkNode(x_78, x_77); -return x_79; +obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; +x_58 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_12); +lean::cnstr_set(x_59, 1, x_58); +x_60 = lean::box(3); +x_61 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_61, 0, x_60); +lean::cnstr_set(x_61, 1, x_59); +x_62 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_62, 0, x_57); +lean::cnstr_set(x_62, 1, x_61); +x_63 = l_Lean_Parser_command_openSpec_hiding; +x_64 = l_Lean_Parser_Syntax_mkNode(x_63, x_62); +return x_64; } else { -obj* x_80; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; -x_80 = lean::cnstr_get(x_7, 0); -if (lean::is_exclusive(x_7)) { - x_82 = x_7; -} else { - lean::inc(x_80); - lean::dec(x_7); - x_82 = lean::box(0); -} -x_83 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_83, 0, x_80); -if (lean::is_scalar(x_82)) { - x_84 = lean::alloc_cnstr(1, 1, 0); -} else { - x_84 = x_82; -} -lean::cnstr_set(x_84, 0, x_83); -x_85 = l_Option_getOrElse___main___rarg(x_84, x_70); -lean::dec(x_84); -x_87 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_87, 0, x_85); -lean::cnstr_set(x_87, 1, x_13); -x_88 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_88, 0, x_12); -lean::cnstr_set(x_88, 1, x_87); -x_89 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_90 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_90, 0, x_89); -lean::cnstr_set(x_90, 1, x_88); -x_91 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_91, 0, x_71); -lean::cnstr_set(x_91, 1, x_90); -x_92 = l_Lean_Parser_command_openSpec_hiding; -x_93 = l_Lean_Parser_Syntax_mkNode(x_92, x_91); -return x_93; +obj* x_65; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; +x_65 = lean::cnstr_get(x_7, 0); +lean::inc(x_65); +lean::dec(x_7); +x_68 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_68, 0, x_65); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_68); +lean::cnstr_set(x_69, 1, x_13); +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_12); +lean::cnstr_set(x_70, 1, x_69); +x_71 = lean::box(3); +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_71); +lean::cnstr_set(x_72, 1, x_70); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_57); +lean::cnstr_set(x_73, 1, x_72); +x_74 = l_Lean_Parser_command_openSpec_hiding; +x_75 = l_Lean_Parser_Syntax_mkNode(x_74, x_73); +return x_75; } } else { -obj* x_94; obj* x_96; obj* x_97; obj* x_98; obj* x_99; -x_94 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_96 = x_3; -} else { - lean::inc(x_94); - lean::dec(x_3); - x_96 = lean::box(0); -} -x_97 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_97, 0, x_94); -if (lean::is_scalar(x_96)) { - x_98 = lean::alloc_cnstr(1, 1, 0); -} else { - x_98 = x_96; -} -lean::cnstr_set(x_98, 0, x_97); -x_99 = l_Option_getOrElse___main___rarg(x_98, x_70); -lean::dec(x_98); +obj* x_76; obj* x_79; +x_76 = lean::cnstr_get(x_3, 0); +lean::inc(x_76); +lean::dec(x_3); +x_79 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_79, 0, x_76); if (lean::obj_tag(x_7) == 0) { -obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; -x_101 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_102 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_102, 0, x_12); -lean::cnstr_set(x_102, 1, x_101); -x_103 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_103, 0, x_99); -lean::cnstr_set(x_103, 1, x_102); -x_104 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_104, 0, x_71); -lean::cnstr_set(x_104, 1, x_103); -x_105 = l_Lean_Parser_command_openSpec_hiding; -x_106 = l_Lean_Parser_Syntax_mkNode(x_105, x_104); -return x_106; +obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; +x_80 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_81 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_81, 0, x_12); +lean::cnstr_set(x_81, 1, x_80); +x_82 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_82, 0, x_79); +lean::cnstr_set(x_82, 1, x_81); +x_83 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_83, 0, x_57); +lean::cnstr_set(x_83, 1, x_82); +x_84 = l_Lean_Parser_command_openSpec_hiding; +x_85 = l_Lean_Parser_Syntax_mkNode(x_84, x_83); +return x_85; } else { -obj* x_107; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; -x_107 = lean::cnstr_get(x_7, 0); -if (lean::is_exclusive(x_7)) { - x_109 = x_7; -} else { - lean::inc(x_107); - lean::dec(x_7); - x_109 = lean::box(0); -} -x_110 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_110, 0, x_107); -if (lean::is_scalar(x_109)) { - x_111 = lean::alloc_cnstr(1, 1, 0); -} else { - x_111 = x_109; -} -lean::cnstr_set(x_111, 0, x_110); -x_112 = l_Option_getOrElse___main___rarg(x_111, x_70); -lean::dec(x_111); -x_114 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_114, 0, x_112); -lean::cnstr_set(x_114, 1, x_13); -x_115 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_115, 0, x_12); -lean::cnstr_set(x_115, 1, x_114); -x_116 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_116, 0, x_99); -lean::cnstr_set(x_116, 1, x_115); -x_117 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_117, 0, x_71); -lean::cnstr_set(x_117, 1, x_116); -x_118 = l_Lean_Parser_command_openSpec_hiding; -x_119 = l_Lean_Parser_Syntax_mkNode(x_118, x_117); -return x_119; +obj* x_86; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; +x_86 = lean::cnstr_get(x_7, 0); +lean::inc(x_86); +lean::dec(x_7); +x_89 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_89, 0, x_86); +x_90 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_90, 0, x_89); +lean::cnstr_set(x_90, 1, x_13); +x_91 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_91, 0, x_12); +lean::cnstr_set(x_91, 1, x_90); +x_92 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_92, 0, x_79); +lean::cnstr_set(x_92, 1, x_91); +x_93 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_93, 0, x_57); +lean::cnstr_set(x_93, 1, x_92); +x_94 = l_Lean_Parser_command_openSpec_hiding; +x_95 = l_Lean_Parser_Syntax_mkNode(x_94, x_93); +return x_95; } } } @@ -5398,7 +5139,7 @@ lean::cnstr_set(x_11, 1, x_10); if (lean::obj_tag(x_1) == 0) { obj* x_12; obj* x_13; obj* x_14; obj* x_15; -x_12 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_12 = lean::box(3); x_13 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_13, 0, x_12); lean::cnstr_set(x_13, 1, x_11); @@ -5408,32 +5149,18 @@ return x_15; } else { -obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; +obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; x_16 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_18 = x_1; -} else { - lean::inc(x_16); - lean::dec(x_1); - x_18 = lean::box(0); -} +lean::inc(x_16); +lean::dec(x_1); x_19 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_19, 0, x_16); -if (lean::is_scalar(x_18)) { - x_20 = lean::alloc_cnstr(1, 1, 0); -} else { - x_20 = x_18; -} +x_20 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_20, 0, x_19); -x_21 = lean::box(3); -x_22 = l_Option_getOrElse___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_11); -x_25 = l_Lean_Parser_command_open; -x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); -return x_26; +lean::cnstr_set(x_20, 1, x_11); +x_21 = l_Lean_Parser_command_open; +x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); +return x_22; } } } @@ -5778,7 +5505,7 @@ lean::cnstr_set(x_11, 1, x_10); if (lean::obj_tag(x_1) == 0) { obj* x_12; obj* x_13; obj* x_14; obj* x_15; -x_12 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_12 = lean::box(3); x_13 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_13, 0, x_12); lean::cnstr_set(x_13, 1, x_11); @@ -5788,32 +5515,18 @@ return x_15; } else { -obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; +obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; x_16 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_18 = x_1; -} else { - lean::inc(x_16); - lean::dec(x_1); - x_18 = lean::box(0); -} +lean::inc(x_16); +lean::dec(x_1); x_19 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_19, 0, x_16); -if (lean::is_scalar(x_18)) { - x_20 = lean::alloc_cnstr(1, 1, 0); -} else { - x_20 = x_18; -} +x_20 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_20, 0, x_19); -x_21 = lean::box(3); -x_22 = l_Option_getOrElse___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_11); -x_25 = l_Lean_Parser_command_export; -x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); -return x_26; +lean::cnstr_set(x_20, 1, x_11); +x_21 = l_Lean_Parser_command_export; +x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); +return x_22; } } } @@ -6219,22 +5932,20 @@ return x_66; obj* _init_l_Lean_Parser_command_section_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -x_4 = l_Lean_Parser_noKind; -x_5 = l_Lean_Parser_Syntax_mkNode(x_4, x_0); -x_6 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_0); -x_7 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_7, 0, x_3); -lean::cnstr_set(x_7, 1, x_6); -x_8 = l_Lean_Parser_command_section; -x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); -return x_9; +x_1 = l_Lean_Parser_noKind; +x_2 = l_Lean_Parser_Syntax_mkNode(x_1, x_0); +x_3 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_3, 0, x_2); +lean::cnstr_set(x_3, 1, x_0); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_3); +x_6 = l_Lean_Parser_command_section; +x_7 = l_Lean_Parser_Syntax_mkNode(x_6, x_5); +return x_7; } } obj* l_Lean_Parser_command_section_HasView_x_27___lambda__2(obj* x_0) { @@ -6271,7 +5982,7 @@ x_14 = l_Lean_Parser_Syntax_mkNode(x_13, x_12); x_15 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_15, 0, x_14); lean::cnstr_set(x_15, 1, x_6); -x_16 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::box(3); x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_16); lean::cnstr_set(x_17, 1, x_15); @@ -6282,59 +5993,45 @@ return x_19; } else { -obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +obj* x_20; obj* x_23; x_20 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_22 = x_1; -} else { - lean::inc(x_20); - lean::dec(x_1); - x_22 = lean::box(0); -} +lean::inc(x_20); +lean::dec(x_1); x_23 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_23, 0, x_20); -if (lean::is_scalar(x_22)) { - x_24 = lean::alloc_cnstr(1, 1, 0); -} else { - x_24 = x_22; -} -lean::cnstr_set(x_24, 0, x_23); -x_25 = lean::box(3); -x_26 = l_Option_getOrElse___main___rarg(x_24, x_25); -lean::dec(x_24); if (lean::obj_tag(x_3) == 0) { -obj* x_28; obj* x_29; obj* x_30; obj* x_31; -x_28 = l_Lean_Parser_detailIdent_HasView_x_27___lambda__2___closed__1; -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_26); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_Lean_Parser_command_section; -x_31 = l_Lean_Parser_Syntax_mkNode(x_30, x_29); -return x_31; +obj* x_24; obj* x_25; obj* x_26; obj* x_27; +x_24 = l_Lean_Parser_detailIdent_HasView_x_27___lambda__2___closed__1; +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_23); +lean::cnstr_set(x_25, 1, x_24); +x_26 = l_Lean_Parser_command_section; +x_27 = l_Lean_Parser_Syntax_mkNode(x_26, x_25); +return x_27; } else { -obj* x_32; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; -x_32 = lean::cnstr_get(x_3, 0); -lean::inc(x_32); +obj* x_28; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_28 = lean::cnstr_get(x_3, 0); +lean::inc(x_28); lean::dec(x_3); -x_35 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_35, 0, x_32); +x_31 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_31, 0, x_28); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_31); +lean::cnstr_set(x_32, 1, x_6); +x_33 = l_Lean_Parser_noKind; +x_34 = l_Lean_Parser_Syntax_mkNode(x_33, x_32); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_6); x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_35); -lean::cnstr_set(x_36, 1, x_6); -x_37 = l_Lean_Parser_noKind; +lean::cnstr_set(x_36, 0, x_23); +lean::cnstr_set(x_36, 1, x_35); +x_37 = l_Lean_Parser_command_section; x_38 = l_Lean_Parser_Syntax_mkNode(x_37, x_36); -x_39 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_39, 0, x_38); -lean::cnstr_set(x_39, 1, x_6); -x_40 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_40, 0, x_26); -lean::cnstr_set(x_40, 1, x_39); -x_41 = l_Lean_Parser_command_section; -x_42 = l_Lean_Parser_Syntax_mkNode(x_41, x_40); -return x_42; +return x_38; } } } @@ -6592,7 +6289,7 @@ lean::cnstr_set(x_8, 1, x_7); if (lean::obj_tag(x_1) == 0) { obj* x_9; obj* x_10; obj* x_11; obj* x_12; -x_9 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_9 = lean::box(3); x_10 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_10, 0, x_9); lean::cnstr_set(x_10, 1, x_8); @@ -6602,32 +6299,18 @@ return x_12; } else { -obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; +obj* x_13; obj* x_16; obj* x_17; obj* x_18; obj* x_19; x_13 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_15 = x_1; -} else { - lean::inc(x_13); - lean::dec(x_1); - x_15 = lean::box(0); -} +lean::inc(x_13); +lean::dec(x_1); x_16 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_16, 0, x_13); -if (lean::is_scalar(x_15)) { - x_17 = lean::alloc_cnstr(1, 1, 0); -} else { - x_17 = x_15; -} +x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_16); -x_18 = lean::box(3); -x_19 = l_Option_getOrElse___main___rarg(x_17, x_18); -lean::dec(x_17); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_19); -lean::cnstr_set(x_21, 1, x_8); -x_22 = l_Lean_Parser_command_namespace; -x_23 = l_Lean_Parser_Syntax_mkNode(x_22, x_21); -return x_23; +lean::cnstr_set(x_17, 1, x_8); +x_18 = l_Lean_Parser_command_namespace; +x_19 = l_Lean_Parser_Syntax_mkNode(x_18, x_17); +return x_19; } } } @@ -6915,7 +6598,7 @@ lean::cnstr_set(x_12, 1, x_11); if (lean::obj_tag(x_1) == 0) { obj* x_13; obj* x_14; obj* x_15; obj* x_16; -x_13 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_13 = lean::box(3); x_14 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_14, 0, x_13); lean::cnstr_set(x_14, 1, x_12); @@ -6925,32 +6608,18 @@ return x_16; } else { -obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27; +obj* x_17; obj* x_20; obj* x_21; obj* x_22; obj* x_23; x_17 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_19 = x_1; -} else { - lean::inc(x_17); - lean::dec(x_1); - x_19 = lean::box(0); -} +lean::inc(x_17); +lean::dec(x_1); x_20 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_20, 0, x_17); -if (lean::is_scalar(x_19)) { - x_21 = lean::alloc_cnstr(1, 1, 0); -} else { - x_21 = x_19; -} +x_21 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_21, 0, x_20); -x_22 = lean::box(3); -x_23 = l_Option_getOrElse___main___rarg(x_21, x_22); -lean::dec(x_21); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_23); -lean::cnstr_set(x_25, 1, x_12); -x_26 = l_Lean_Parser_command_variable; -x_27 = l_Lean_Parser_Syntax_mkNode(x_26, x_25); -return x_27; +lean::cnstr_set(x_21, 1, x_12); +x_22 = l_Lean_Parser_command_variable; +x_23 = l_Lean_Parser_Syntax_mkNode(x_22, x_21); +return x_23; } } } @@ -7230,7 +6899,7 @@ lean::cnstr_set(x_12, 1, x_11); if (lean::obj_tag(x_1) == 0) { obj* x_13; obj* x_14; obj* x_15; obj* x_16; -x_13 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_13 = lean::box(3); x_14 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_14, 0, x_13); lean::cnstr_set(x_14, 1, x_12); @@ -7240,32 +6909,18 @@ return x_16; } else { -obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27; +obj* x_17; obj* x_20; obj* x_21; obj* x_22; obj* x_23; x_17 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_19 = x_1; -} else { - lean::inc(x_17); - lean::dec(x_1); - x_19 = lean::box(0); -} +lean::inc(x_17); +lean::dec(x_1); x_20 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_20, 0, x_17); -if (lean::is_scalar(x_19)) { - x_21 = lean::alloc_cnstr(1, 1, 0); -} else { - x_21 = x_19; -} +x_21 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_21, 0, x_20); -x_22 = lean::box(3); -x_23 = l_Option_getOrElse___main___rarg(x_21, x_22); -lean::dec(x_21); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_23); -lean::cnstr_set(x_25, 1, x_12); -x_26 = l_Lean_Parser_command_variables; -x_27 = l_Lean_Parser_Syntax_mkNode(x_26, x_25); -return x_27; +lean::cnstr_set(x_21, 1, x_12); +x_22 = l_Lean_Parser_command_variables; +x_23 = l_Lean_Parser_Syntax_mkNode(x_22, x_21); +return x_23; } } } @@ -7648,7 +7303,7 @@ lean::cnstr_set(x_10, 1, x_9); if (lean::obj_tag(x_1) == 0) { obj* x_11; obj* x_12; obj* x_13; obj* x_14; -x_11 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_11 = lean::box(3); x_12 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_12, 0, x_11); lean::cnstr_set(x_12, 1, x_10); @@ -7658,32 +7313,18 @@ return x_14; } else { -obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25; +obj* x_15; obj* x_18; obj* x_19; obj* x_20; obj* x_21; x_15 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_17 = x_1; -} else { - lean::inc(x_15); - lean::dec(x_1); - x_17 = lean::box(0); -} +lean::inc(x_15); +lean::dec(x_1); x_18 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_18, 0, x_15); -if (lean::is_scalar(x_17)) { - x_19 = lean::alloc_cnstr(1, 1, 0); -} else { - x_19 = x_17; -} +x_19 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_19, 0, x_18); -x_20 = lean::box(3); -x_21 = l_Option_getOrElse___main___rarg(x_19, x_20); -lean::dec(x_19); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_21); -lean::cnstr_set(x_23, 1, x_10); -x_24 = l_Lean_Parser_command_include; -x_25 = l_Lean_Parser_Syntax_mkNode(x_24, x_23); -return x_25; +lean::cnstr_set(x_19, 1, x_10); +x_20 = l_Lean_Parser_command_include; +x_21 = l_Lean_Parser_Syntax_mkNode(x_20, x_19); +return x_21; } } } @@ -8065,7 +7706,7 @@ lean::cnstr_set(x_10, 1, x_9); if (lean::obj_tag(x_1) == 0) { obj* x_11; obj* x_12; obj* x_13; obj* x_14; -x_11 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_11 = lean::box(3); x_12 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_12, 0, x_11); lean::cnstr_set(x_12, 1, x_10); @@ -8075,32 +7716,18 @@ return x_14; } else { -obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25; +obj* x_15; obj* x_18; obj* x_19; obj* x_20; obj* x_21; x_15 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_17 = x_1; -} else { - lean::inc(x_15); - lean::dec(x_1); - x_17 = lean::box(0); -} +lean::inc(x_15); +lean::dec(x_1); x_18 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_18, 0, x_15); -if (lean::is_scalar(x_17)) { - x_19 = lean::alloc_cnstr(1, 1, 0); -} else { - x_19 = x_17; -} +x_19 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_19, 0, x_18); -x_20 = lean::box(3); -x_21 = l_Option_getOrElse___main___rarg(x_19, x_20); -lean::dec(x_19); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_21); -lean::cnstr_set(x_23, 1, x_10); -x_24 = l_Lean_Parser_command_omit; -x_25 = l_Lean_Parser_Syntax_mkNode(x_24, x_23); -return x_25; +lean::cnstr_set(x_19, 1, x_10); +x_20 = l_Lean_Parser_command_omit; +x_21 = l_Lean_Parser_Syntax_mkNode(x_20, x_19); +return x_21; } } } @@ -8509,22 +8136,20 @@ return x_66; obj* _init_l_Lean_Parser_command_end_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -x_4 = l_Lean_Parser_noKind; -x_5 = l_Lean_Parser_Syntax_mkNode(x_4, x_0); -x_6 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_0); -x_7 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_7, 0, x_3); -lean::cnstr_set(x_7, 1, x_6); -x_8 = l_Lean_Parser_command_end; -x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); -return x_9; +x_1 = l_Lean_Parser_noKind; +x_2 = l_Lean_Parser_Syntax_mkNode(x_1, x_0); +x_3 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_3, 0, x_2); +lean::cnstr_set(x_3, 1, x_0); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_3); +x_6 = l_Lean_Parser_command_end; +x_7 = l_Lean_Parser_Syntax_mkNode(x_6, x_5); +return x_7; } } obj* l_Lean_Parser_command_end_HasView_x_27___lambda__2(obj* x_0) { @@ -8561,7 +8186,7 @@ x_14 = l_Lean_Parser_Syntax_mkNode(x_13, x_12); x_15 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_15, 0, x_14); lean::cnstr_set(x_15, 1, x_6); -x_16 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::box(3); x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_16); lean::cnstr_set(x_17, 1, x_15); @@ -8572,59 +8197,45 @@ return x_19; } else { -obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +obj* x_20; obj* x_23; x_20 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_22 = x_1; -} else { - lean::inc(x_20); - lean::dec(x_1); - x_22 = lean::box(0); -} +lean::inc(x_20); +lean::dec(x_1); x_23 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_23, 0, x_20); -if (lean::is_scalar(x_22)) { - x_24 = lean::alloc_cnstr(1, 1, 0); -} else { - x_24 = x_22; -} -lean::cnstr_set(x_24, 0, x_23); -x_25 = lean::box(3); -x_26 = l_Option_getOrElse___main___rarg(x_24, x_25); -lean::dec(x_24); if (lean::obj_tag(x_3) == 0) { -obj* x_28; obj* x_29; obj* x_30; obj* x_31; -x_28 = l_Lean_Parser_detailIdent_HasView_x_27___lambda__2___closed__1; -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_26); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_Lean_Parser_command_end; -x_31 = l_Lean_Parser_Syntax_mkNode(x_30, x_29); -return x_31; +obj* x_24; obj* x_25; obj* x_26; obj* x_27; +x_24 = l_Lean_Parser_detailIdent_HasView_x_27___lambda__2___closed__1; +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_23); +lean::cnstr_set(x_25, 1, x_24); +x_26 = l_Lean_Parser_command_end; +x_27 = l_Lean_Parser_Syntax_mkNode(x_26, x_25); +return x_27; } else { -obj* x_32; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; -x_32 = lean::cnstr_get(x_3, 0); -lean::inc(x_32); +obj* x_28; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_28 = lean::cnstr_get(x_3, 0); +lean::inc(x_28); lean::dec(x_3); -x_35 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_35, 0, x_32); +x_31 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_31, 0, x_28); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_31); +lean::cnstr_set(x_32, 1, x_6); +x_33 = l_Lean_Parser_noKind; +x_34 = l_Lean_Parser_Syntax_mkNode(x_33, x_32); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_6); x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_35); -lean::cnstr_set(x_36, 1, x_6); -x_37 = l_Lean_Parser_noKind; +lean::cnstr_set(x_36, 0, x_23); +lean::cnstr_set(x_36, 1, x_35); +x_37 = l_Lean_Parser_command_end; x_38 = l_Lean_Parser_Syntax_mkNode(x_37, x_36); -x_39 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_39, 0, x_38); -lean::cnstr_set(x_39, 1, x_6); -x_40 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_40, 0, x_26); -lean::cnstr_set(x_40, 1, x_39); -x_41 = l_Lean_Parser_command_end; -x_42 = l_Lean_Parser_Syntax_mkNode(x_41, x_40); -return x_42; +return x_38; } } } @@ -9010,7 +8621,7 @@ lean::cnstr_set(x_10, 1, x_9); if (lean::obj_tag(x_1) == 0) { obj* x_11; obj* x_12; obj* x_13; obj* x_14; -x_11 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_11 = lean::box(3); x_12 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_12, 0, x_11); lean::cnstr_set(x_12, 1, x_10); @@ -9020,32 +8631,18 @@ return x_14; } else { -obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25; +obj* x_15; obj* x_18; obj* x_19; obj* x_20; obj* x_21; x_15 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_17 = x_1; -} else { - lean::inc(x_15); - lean::dec(x_1); - x_17 = lean::box(0); -} +lean::inc(x_15); +lean::dec(x_1); x_18 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_18, 0, x_15); -if (lean::is_scalar(x_17)) { - x_19 = lean::alloc_cnstr(1, 1, 0); -} else { - x_19 = x_17; -} +x_19 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_19, 0, x_18); -x_20 = lean::box(3); -x_21 = l_Option_getOrElse___main___rarg(x_19, x_20); -lean::dec(x_19); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_21); -lean::cnstr_set(x_23, 1, x_10); -x_24 = l_Lean_Parser_command_universes; -x_25 = l_Lean_Parser_Syntax_mkNode(x_24, x_23); -return x_25; +lean::cnstr_set(x_19, 1, x_10); +x_20 = l_Lean_Parser_command_universes; +x_21 = l_Lean_Parser_Syntax_mkNode(x_20, x_19); +return x_21; } } } @@ -9241,7 +8838,7 @@ lean::cnstr_set(x_8, 1, x_7); if (lean::obj_tag(x_1) == 0) { obj* x_9; obj* x_10; obj* x_11; obj* x_12; -x_9 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_9 = lean::box(3); x_10 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_10, 0, x_9); lean::cnstr_set(x_10, 1, x_8); @@ -9251,32 +8848,18 @@ return x_12; } else { -obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; +obj* x_13; obj* x_16; obj* x_17; obj* x_18; obj* x_19; x_13 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_15 = x_1; -} else { - lean::inc(x_13); - lean::dec(x_1); - x_15 = lean::box(0); -} +lean::inc(x_13); +lean::dec(x_1); x_16 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_16, 0, x_13); -if (lean::is_scalar(x_15)) { - x_17 = lean::alloc_cnstr(1, 1, 0); -} else { - x_17 = x_15; -} +x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_16); -x_18 = lean::box(3); -x_19 = l_Option_getOrElse___main___rarg(x_17, x_18); -lean::dec(x_17); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_19); -lean::cnstr_set(x_21, 1, x_8); -x_22 = l_Lean_Parser_command_universe; -x_23 = l_Lean_Parser_Syntax_mkNode(x_22, x_21); -return x_23; +lean::cnstr_set(x_17, 1, x_8); +x_18 = l_Lean_Parser_command_universe; +x_19 = l_Lean_Parser_Syntax_mkNode(x_18, x_17); +return x_19; } } } @@ -9477,21 +9060,20 @@ x_5 = lean::box(0); x_6 = l_Lean_Parser_Combinators_anyOf___rarg___closed__1; x_7 = l_mjoin___rarg___closed__1; x_8 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_6, x_7, x_5, x_5, x_1, x_2, x_3, x_4); -lean::dec(x_3); lean::dec(x_2); lean::dec(x_1); return x_8; } else { -obj* x_12; obj* x_14; obj* x_17; -x_12 = lean::cnstr_get(x_0, 0); -lean::inc(x_12); -x_14 = lean::cnstr_get(x_0, 1); -lean::inc(x_14); +obj* x_11; obj* x_13; obj* x_16; +x_11 = lean::cnstr_get(x_0, 0); +lean::inc(x_11); +x_13 = lean::cnstr_get(x_0, 1); +lean::inc(x_13); lean::dec(x_0); -x_17 = l_List_foldl___main___at_Lean_Parser_command_universe_Parser___spec__3(x_12, x_14, x_1, x_2, x_3, x_4); -return x_17; +x_16 = l_List_foldl___main___at_Lean_Parser_command_universe_Parser___spec__3(x_11, x_13, x_1, x_2, x_3, x_4); +return x_16; } } } @@ -9764,7 +9346,7 @@ lean::cnstr_set(x_7, 1, x_6); if (lean::obj_tag(x_1) == 0) { obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_8 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_8 = lean::box(3); x_9 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_9, 0, x_8); lean::cnstr_set(x_9, 1, x_7); @@ -9774,32 +9356,18 @@ return x_11; } else { -obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; x_12 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_14 = x_1; -} else { - lean::inc(x_12); - lean::dec(x_1); - x_14 = lean::box(0); -} +lean::inc(x_12); +lean::dec(x_1); x_15 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_15, 0, x_12); -if (lean::is_scalar(x_14)) { - x_16 = lean::alloc_cnstr(1, 1, 0); -} else { - x_16 = x_14; -} +x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); -x_17 = lean::box(3); -x_18 = l_Option_getOrElse___main___rarg(x_16, x_17); -lean::dec(x_16); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_18); -lean::cnstr_set(x_20, 1, x_7); -x_21 = l_Lean_Parser_command_check; -x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); -return x_22; +lean::cnstr_set(x_16, 1, x_7); +x_17 = l_Lean_Parser_command_check; +x_18 = l_Lean_Parser_Syntax_mkNode(x_17, x_16); +return x_18; } } } @@ -10204,7 +9772,7 @@ x_30 = lean::apply_1(x_27, x_9); if (lean::obj_tag(x_23) == 0) { obj* x_31; obj* x_32; obj* x_33; obj* x_34; -x_31 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_31 = lean::box(3); if (lean::is_scalar(x_8)) { x_32 = lean::alloc_cnstr(1, 2, 0); } else { @@ -10222,40 +9790,26 @@ return x_34; } else { -obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_43; obj* x_44; obj* x_45; +obj* x_35; obj* x_38; obj* x_39; obj* x_40; obj* x_41; x_35 = lean::cnstr_get(x_23, 0); -if (lean::is_exclusive(x_23)) { - x_37 = x_23; -} else { - lean::inc(x_35); - lean::dec(x_23); - x_37 = lean::box(0); -} +lean::inc(x_35); +lean::dec(x_23); x_38 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_38, 0, x_35); -if (lean::is_scalar(x_37)) { - x_39 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_8)) { + x_39 = lean::alloc_cnstr(1, 2, 0); } else { - x_39 = x_37; + x_39 = x_8; } lean::cnstr_set(x_39, 0, x_38); -x_40 = lean::box(3); -x_41 = l_Option_getOrElse___main___rarg(x_39, x_40); -lean::dec(x_39); -if (lean::is_scalar(x_8)) { - x_43 = lean::alloc_cnstr(1, 2, 0); -} else { - x_43 = x_8; -} -lean::cnstr_set(x_43, 0, x_41); -lean::cnstr_set(x_43, 1, x_0); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_30); -lean::cnstr_set(x_44, 1, x_43); -x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_44); -lean::cnstr_set(x_45, 1, x_15); -return x_45; +lean::cnstr_set(x_39, 1, x_0); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_30); +lean::cnstr_set(x_40, 1, x_39); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_40); +lean::cnstr_set(x_41, 1, x_15); +return x_41; } } } @@ -11010,219 +10564,150 @@ goto lbl_23; } else { -obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_37; obj* x_38; +obj* x_29; obj* x_32; obj* x_33; obj* x_34; x_29 = lean::cnstr_get(x_25, 0); -if (lean::is_exclusive(x_25)) { - x_31 = x_25; -} else { - lean::inc(x_29); - lean::dec(x_25); - x_31 = lean::box(0); -} +lean::inc(x_29); +lean::dec(x_25); x_32 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_32, 0, x_29); -if (lean::is_scalar(x_31)) { - x_33 = lean::alloc_cnstr(1, 1, 0); -} else { - x_33 = x_31; -} +x_33 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_33, 0, x_32); -x_34 = lean::box(3); -x_35 = l_Option_getOrElse___main___rarg(x_33, x_34); -lean::dec(x_33); -x_37 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_37, 0, x_35); -lean::cnstr_set(x_37, 1, x_14); -x_38 = l_Lean_Parser_Syntax_mkNode(x_17, x_37); -x_22 = x_38; +lean::cnstr_set(x_33, 1, x_14); +x_34 = l_Lean_Parser_Syntax_mkNode(x_17, x_33); +x_22 = x_34; goto lbl_23; } } lbl_23: { -obj* x_39; +obj* x_35; if (lean::obj_tag(x_3) == 0) { -obj* x_41; -x_41 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_39 = x_41; -goto lbl_40; +obj* x_37; +x_37 = lean::box(3); +x_35 = x_37; +goto lbl_36; } else { -obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; -x_42 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_44 = x_3; -} else { - lean::inc(x_42); - lean::dec(x_3); - x_44 = lean::box(0); +obj* x_38; obj* x_41; +x_38 = lean::cnstr_get(x_3, 0); +lean::inc(x_38); +lean::dec(x_3); +x_41 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_41, 0, x_38); +x_35 = x_41; +goto lbl_36; } -x_45 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_45, 0, x_42); -if (lean::is_scalar(x_44)) { - x_46 = lean::alloc_cnstr(1, 1, 0); -} else { - x_46 = x_44; -} -lean::cnstr_set(x_46, 0, x_45); -x_47 = lean::box(3); -x_48 = l_Option_getOrElse___main___rarg(x_46, x_47); -lean::dec(x_46); -x_39 = x_48; -goto lbl_40; -} -lbl_40: +lbl_36: { -obj* x_50; obj* x_51; obj* x_52; -x_50 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_50, 0, x_39); -lean::cnstr_set(x_50, 1, x_14); -x_51 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_51, 0, x_22); -lean::cnstr_set(x_51, 1, x_50); -x_52 = l_Lean_Parser_Syntax_mkNode(x_17, x_51); +obj* x_42; obj* x_43; obj* x_44; +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_35); +lean::cnstr_set(x_42, 1, x_14); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_22); +lean::cnstr_set(x_43, 1, x_42); +x_44 = l_Lean_Parser_Syntax_mkNode(x_17, x_43); if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_9) == 0) { -obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; -x_53 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_53); -lean::cnstr_set(x_54, 1, x_21); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_18); -lean::cnstr_set(x_55, 1, x_54); -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_53); -lean::cnstr_set(x_56, 1, x_55); -x_57 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_57, 0, x_52); -lean::cnstr_set(x_57, 1, x_56); -x_58 = l_Lean_Parser_command_attribute; -x_59 = l_Lean_Parser_Syntax_mkNode(x_58, x_57); -return x_59; +obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_45 = lean::box(3); +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_45); +lean::cnstr_set(x_46, 1, x_21); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_18); +lean::cnstr_set(x_47, 1, x_46); +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_45); +lean::cnstr_set(x_48, 1, x_47); +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_44); +lean::cnstr_set(x_49, 1, x_48); +x_50 = l_Lean_Parser_command_attribute; +x_51 = l_Lean_Parser_Syntax_mkNode(x_50, x_49); +return x_51; } else { -obj* x_60; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; -x_60 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_62 = x_9; -} else { - lean::inc(x_60); - lean::dec(x_9); - x_62 = lean::box(0); +obj* x_52; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; +x_52 = lean::cnstr_get(x_9, 0); +lean::inc(x_52); +lean::dec(x_9); +x_55 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_55, 0, x_52); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_55); +lean::cnstr_set(x_56, 1, x_21); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_18); +lean::cnstr_set(x_57, 1, x_56); +x_58 = lean::box(3); +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_58); +lean::cnstr_set(x_59, 1, x_57); +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_44); +lean::cnstr_set(x_60, 1, x_59); +x_61 = l_Lean_Parser_command_attribute; +x_62 = l_Lean_Parser_Syntax_mkNode(x_61, x_60); +return x_62; } -x_63 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_63, 0, x_60); -if (lean::is_scalar(x_62)) { - x_64 = lean::alloc_cnstr(1, 1, 0); -} else { - x_64 = x_62; } -lean::cnstr_set(x_64, 0, x_63); -x_65 = lean::box(3); -x_66 = l_Option_getOrElse___main___rarg(x_64, x_65); -lean::dec(x_64); +else +{ +obj* x_63; obj* x_66; +x_63 = lean::cnstr_get(x_5, 0); +lean::inc(x_63); +lean::dec(x_5); +x_66 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_66, 0, x_63); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; +x_67 = lean::box(3); x_68 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_68, 0, x_66); +lean::cnstr_set(x_68, 0, x_67); lean::cnstr_set(x_68, 1, x_21); x_69 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_69, 0, x_18); lean::cnstr_set(x_69, 1, x_68); -x_70 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_66); +lean::cnstr_set(x_70, 1, x_69); x_71 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_71, 0, x_70); -lean::cnstr_set(x_71, 1, x_69); -x_72 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_72, 0, x_52); -lean::cnstr_set(x_72, 1, x_71); -x_73 = l_Lean_Parser_command_attribute; -x_74 = l_Lean_Parser_Syntax_mkNode(x_73, x_72); -return x_74; -} +lean::cnstr_set(x_71, 0, x_44); +lean::cnstr_set(x_71, 1, x_70); +x_72 = l_Lean_Parser_command_attribute; +x_73 = l_Lean_Parser_Syntax_mkNode(x_72, x_71); +return x_73; } else { -obj* x_75; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; -x_75 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_77 = x_5; -} else { - lean::inc(x_75); - lean::dec(x_5); - x_77 = lean::box(0); -} -x_78 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_78, 0, x_75); -if (lean::is_scalar(x_77)) { - x_79 = lean::alloc_cnstr(1, 1, 0); -} else { - x_79 = x_77; -} -lean::cnstr_set(x_79, 0, x_78); -x_80 = lean::box(3); -x_81 = l_Option_getOrElse___main___rarg(x_79, x_80); -lean::dec(x_79); -if (lean::obj_tag(x_9) == 0) -{ -obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; -x_83 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_84 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_84, 0, x_83); -lean::cnstr_set(x_84, 1, x_21); -x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_18); -lean::cnstr_set(x_85, 1, x_84); -x_86 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_86, 0, x_81); -lean::cnstr_set(x_86, 1, x_85); -x_87 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_87, 0, x_52); -lean::cnstr_set(x_87, 1, x_86); -x_88 = l_Lean_Parser_command_attribute; -x_89 = l_Lean_Parser_Syntax_mkNode(x_88, x_87); -return x_89; -} -else -{ -obj* x_90; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; -x_90 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_92 = x_9; -} else { - lean::inc(x_90); - lean::dec(x_9); - x_92 = lean::box(0); -} -x_93 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_93, 0, x_90); -if (lean::is_scalar(x_92)) { - x_94 = lean::alloc_cnstr(1, 1, 0); -} else { - x_94 = x_92; -} -lean::cnstr_set(x_94, 0, x_93); -x_95 = l_Option_getOrElse___main___rarg(x_94, x_80); -lean::dec(x_94); -x_97 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_97, 0, x_95); -lean::cnstr_set(x_97, 1, x_21); -x_98 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_98, 0, x_18); -lean::cnstr_set(x_98, 1, x_97); -x_99 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_99, 0, x_81); -lean::cnstr_set(x_99, 1, x_98); -x_100 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_100, 0, x_52); -lean::cnstr_set(x_100, 1, x_99); -x_101 = l_Lean_Parser_command_attribute; -x_102 = l_Lean_Parser_Syntax_mkNode(x_101, x_100); -return x_102; +obj* x_74; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; +x_74 = lean::cnstr_get(x_9, 0); +lean::inc(x_74); +lean::dec(x_9); +x_77 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_77, 0, x_74); +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_77); +lean::cnstr_set(x_78, 1, x_21); +x_79 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_79, 0, x_18); +lean::cnstr_set(x_79, 1, x_78); +x_80 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_80, 0, x_66); +lean::cnstr_set(x_80, 1, x_79); +x_81 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_81, 0, x_44); +lean::cnstr_set(x_81, 1, x_80); +x_82 = l_Lean_Parser_command_attribute; +x_83 = l_Lean_Parser_Syntax_mkNode(x_82, x_81); +return x_83; } } } @@ -11545,17 +11030,15 @@ return x_8; obj* _init_l_Lean_Parser_command_initQuot_HasView_x_27___lambda__1___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -x_4 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_4, 0, x_3); -lean::cnstr_set(x_4, 1, x_0); -x_5 = l_Lean_Parser_command_initQuot; -x_6 = l_Lean_Parser_Syntax_mkNode(x_5, x_4); -return x_6; +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = l_Lean_Parser_command_initQuot; +x_4 = l_Lean_Parser_Syntax_mkNode(x_3, x_2); +return x_4; } } obj* l_Lean_Parser_command_initQuot_HasView_x_27___lambda__1(obj* x_0) { @@ -11569,33 +11052,19 @@ return x_1; } else { -obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; +obj* x_2; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_2 = lean::cnstr_get(x_0, 0); -if (lean::is_exclusive(x_0)) { - x_4 = x_0; -} else { - lean::inc(x_2); - lean::dec(x_0); - x_4 = lean::box(0); -} +lean::inc(x_2); +lean::dec(x_0); x_5 = lean::box(0); x_6 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_6, 0, x_2); -if (lean::is_scalar(x_4)) { - x_7 = lean::alloc_cnstr(1, 1, 0); -} else { - x_7 = x_4; -} +x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); -x_8 = lean::box(3); -x_9 = l_Option_getOrElse___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_11, 0, x_9); -lean::cnstr_set(x_11, 1, x_5); -x_12 = l_Lean_Parser_command_initQuot; -x_13 = l_Lean_Parser_Syntax_mkNode(x_12, x_11); -return x_13; +lean::cnstr_set(x_7, 1, x_5); +x_8 = l_Lean_Parser_command_initQuot; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } } @@ -12576,7 +12045,7 @@ lean::cnstr_set(x_16, 1, x_15); if (lean::obj_tag(x_1) == 0) { obj* x_17; obj* x_18; obj* x_19; obj* x_20; -x_17 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_17 = lean::box(3); x_18 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_18, 0, x_17); lean::cnstr_set(x_18, 1, x_16); @@ -12586,32 +12055,18 @@ return x_20; } else { -obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_30; obj* x_31; +obj* x_21; obj* x_24; obj* x_25; obj* x_26; obj* x_27; x_21 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_23 = x_1; -} else { - lean::inc(x_21); - lean::dec(x_1); - x_23 = lean::box(0); -} +lean::inc(x_21); +lean::dec(x_1); x_24 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_24, 0, x_21); -if (lean::is_scalar(x_23)) { - x_25 = lean::alloc_cnstr(1, 1, 0); -} else { - x_25 = x_23; -} +x_25 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_25, 0, x_24); -x_26 = lean::box(3); -x_27 = l_Option_getOrElse___main___rarg(x_25, x_26); -lean::dec(x_25); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_27); -lean::cnstr_set(x_29, 1, x_16); -x_30 = l_Lean_Parser_command_setOption; -x_31 = l_Lean_Parser_Syntax_mkNode(x_30, x_29); -return x_31; +lean::cnstr_set(x_25, 1, x_16); +x_26 = l_Lean_Parser_command_setOption; +x_27 = l_Lean_Parser_Syntax_mkNode(x_26, x_25); +return x_27; } } } @@ -12777,7 +12232,7 @@ return x_59; } else { -obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_71; +obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_69; lean::dec(x_15); lean::dec(x_22); x_62 = l_String_quote(x_0); @@ -12788,98 +12243,96 @@ lean::cnstr_set(x_64, 0, x_3); x_65 = lean::box(0); x_66 = l_String_splitAux___main___closed__1; x_67 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_66, x_63, x_64, x_65, x_5, x_18, x_13); -lean::dec(x_18); lean::dec(x_5); -lean::dec(x_64); -x_71 = lean::cnstr_get(x_67, 0); -lean::inc(x_71); -if (lean::obj_tag(x_71) == 0) +x_69 = lean::cnstr_get(x_67, 0); +lean::inc(x_69); +if (lean::obj_tag(x_69) == 0) { -obj* x_73; obj* x_75; obj* x_76; obj* x_78; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; -x_73 = lean::cnstr_get(x_67, 1); +obj* x_71; obj* x_73; obj* x_74; obj* x_76; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; +x_71 = lean::cnstr_get(x_67, 1); if (lean::is_exclusive(x_67)) { lean::cnstr_release(x_67, 0); - x_75 = x_67; + x_73 = x_67; } else { - lean::inc(x_73); + lean::inc(x_71); lean::dec(x_67); - x_75 = lean::box(0); + x_73 = lean::box(0); } -x_76 = lean::cnstr_get(x_71, 1); -x_78 = lean::cnstr_get(x_71, 2); -if (lean::is_exclusive(x_71)) { - lean::cnstr_release(x_71, 0); - x_80 = x_71; +x_74 = lean::cnstr_get(x_69, 1); +x_76 = lean::cnstr_get(x_69, 2); +if (lean::is_exclusive(x_69)) { + lean::cnstr_release(x_69, 0); + x_78 = x_69; } else { + lean::inc(x_74); lean::inc(x_76); - lean::inc(x_78); - lean::dec(x_71); - x_80 = lean::box(0); + lean::dec(x_69); + x_78 = lean::box(0); } -x_81 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_80)) { - x_82 = lean::alloc_cnstr(0, 3, 0); +x_79 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_78)) { + x_80 = lean::alloc_cnstr(0, 3, 0); } else { - x_82 = x_80; + x_80 = x_78; } -lean::cnstr_set(x_82, 0, x_16); -lean::cnstr_set(x_82, 1, x_76); -lean::cnstr_set(x_82, 2, x_81); -x_83 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_78, x_82); -x_84 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_83); -x_85 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_81, x_84); -x_86 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_85); -if (lean::is_scalar(x_75)) { - x_87 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_80, 0, x_16); +lean::cnstr_set(x_80, 1, x_74); +lean::cnstr_set(x_80, 2, x_79); +x_81 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_76, x_80); +x_82 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_81); +x_83 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_79, x_82); +x_84 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_83); +if (lean::is_scalar(x_73)) { + x_85 = lean::alloc_cnstr(0, 2, 0); } else { - x_87 = x_75; + x_85 = x_73; } -lean::cnstr_set(x_87, 0, x_86); -lean::cnstr_set(x_87, 1, x_73); -return x_87; +lean::cnstr_set(x_85, 0, x_84); +lean::cnstr_set(x_85, 1, x_71); +return x_85; } else { -obj* x_89; obj* x_91; obj* x_92; uint8 x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; +obj* x_87; obj* x_89; obj* x_90; uint8 x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; lean::dec(x_16); -x_89 = lean::cnstr_get(x_67, 1); +x_87 = lean::cnstr_get(x_67, 1); if (lean::is_exclusive(x_67)) { lean::cnstr_release(x_67, 0); - x_91 = x_67; + x_89 = x_67; } else { - lean::inc(x_89); + lean::inc(x_87); lean::dec(x_67); - x_91 = lean::box(0); + x_89 = lean::box(0); } -x_92 = lean::cnstr_get(x_71, 0); -x_94 = lean::cnstr_get_scalar(x_71, sizeof(void*)*1); -if (lean::is_exclusive(x_71)) { - x_95 = x_71; +x_90 = lean::cnstr_get(x_69, 0); +x_92 = lean::cnstr_get_scalar(x_69, sizeof(void*)*1); +if (lean::is_exclusive(x_69)) { + x_93 = x_69; } else { - lean::inc(x_92); - lean::dec(x_71); - x_95 = lean::box(0); + lean::inc(x_90); + lean::dec(x_69); + x_93 = lean::box(0); } -if (lean::is_scalar(x_95)) { - x_96 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_93)) { + x_94 = lean::alloc_cnstr(1, 1, 1); } else { - x_96 = x_95; + x_94 = x_93; } -lean::cnstr_set(x_96, 0, x_92); -lean::cnstr_set_scalar(x_96, sizeof(void*)*1, x_94); -x_97 = x_96; -x_98 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_97); -x_99 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_100 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_99, x_98); -x_101 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_100); -if (lean::is_scalar(x_91)) { - x_102 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_94, 0, x_90); +lean::cnstr_set_scalar(x_94, sizeof(void*)*1, x_92); +x_95 = x_94; +x_96 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_95); +x_97 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_98 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_97, x_96); +x_99 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_98); +if (lean::is_scalar(x_89)) { + x_100 = lean::alloc_cnstr(0, 2, 0); } else { - x_102 = x_91; + x_100 = x_89; } -lean::cnstr_set(x_102, 0, x_101); -lean::cnstr_set(x_102, 1, x_89); -return x_102; +lean::cnstr_set(x_100, 0, x_99); +lean::cnstr_set(x_100, 1, x_87); +return x_100; } } } @@ -12887,47 +12340,47 @@ return x_102; } else { -obj* x_106; obj* x_108; obj* x_109; uint8 x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; +obj* x_104; obj* x_106; obj* x_107; uint8 x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; lean::dec(x_5); lean::dec(x_3); lean::dec(x_0); -x_106 = lean::cnstr_get(x_10, 1); +x_104 = lean::cnstr_get(x_10, 1); if (lean::is_exclusive(x_10)) { lean::cnstr_release(x_10, 0); - x_108 = x_10; + x_106 = x_10; } else { - lean::inc(x_106); + lean::inc(x_104); lean::dec(x_10); - x_108 = lean::box(0); + x_106 = lean::box(0); } -x_109 = lean::cnstr_get(x_11, 0); -x_111 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); +x_107 = lean::cnstr_get(x_11, 0); +x_109 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); if (lean::is_exclusive(x_11)) { - x_112 = x_11; + x_110 = x_11; } else { - lean::inc(x_109); + lean::inc(x_107); lean::dec(x_11); - x_112 = lean::box(0); + x_110 = lean::box(0); } -if (lean::is_scalar(x_112)) { - x_113 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_110)) { + x_111 = lean::alloc_cnstr(1, 1, 1); } else { - x_113 = x_112; + x_111 = x_110; } -lean::cnstr_set(x_113, 0, x_109); -lean::cnstr_set_scalar(x_113, sizeof(void*)*1, x_111); -x_114 = x_113; -x_115 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_116 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_115, x_114); -x_117 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_116); -if (lean::is_scalar(x_108)) { - x_118 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_111, 0, x_107); +lean::cnstr_set_scalar(x_111, sizeof(void*)*1, x_109); +x_112 = x_111; +x_113 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_114 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_113, x_112); +x_115 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_114); +if (lean::is_scalar(x_106)) { + x_116 = lean::alloc_cnstr(0, 2, 0); } else { - x_118 = x_108; + x_116 = x_106; } -lean::cnstr_set(x_118, 0, x_117); -lean::cnstr_set(x_118, 1, x_106); -return x_118; +lean::cnstr_set(x_116, 0, x_115); +lean::cnstr_set(x_116, 1, x_104); +return x_116; } } } @@ -12976,7 +12429,7 @@ lean::inc(x_15); x_24 = l_Lean_Parser_tryView___at_Lean_Parser_stringLit_Parser___spec__1(x_22, x_15); if (lean::obj_tag(x_24) == 0) { -obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_36; obj* x_38; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; +obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_34; obj* x_36; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; lean::dec(x_15); lean::dec(x_14); lean::dec(x_21); @@ -12986,109 +12439,107 @@ x_29 = lean::box(0); x_30 = l_String_splitAux___main___closed__1; x_31 = l_Lean_Parser_stringLit_Parser___at_Lean_Parser_Term_builtinLeadingParsers_Lean_Parser_HasTokens___spec__1___rarg___closed__1; x_32 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_30, x_31, x_28, x_29, x_4, x_17, x_12); -lean::dec(x_17); lean::dec(x_4); -lean::dec(x_28); -x_36 = lean::cnstr_get(x_32, 0); -x_38 = lean::cnstr_get(x_32, 1); +x_34 = lean::cnstr_get(x_32, 0); +x_36 = lean::cnstr_get(x_32, 1); if (lean::is_exclusive(x_32)) { - x_40 = x_32; + x_38 = x_32; } else { + lean::inc(x_34); lean::inc(x_36); - lean::inc(x_38); lean::dec(x_32); - x_40 = lean::box(0); + x_38 = lean::box(0); } -x_41 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_42 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_41, x_36); -x_43 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_19, x_42); -x_44 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_41, x_43); -x_45 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_44, x_31); -x_46 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_45); -if (lean::is_scalar(x_40)) { - x_47 = lean::alloc_cnstr(0, 2, 0); +x_39 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_40 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_39, x_34); +x_41 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_19, x_40); +x_42 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_39, x_41); +x_43 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_42, x_31); +x_44 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_43); +if (lean::is_scalar(x_38)) { + x_45 = lean::alloc_cnstr(0, 2, 0); } else { - x_47 = x_40; + x_45 = x_38; } -lean::cnstr_set(x_47, 0, x_46); -lean::cnstr_set(x_47, 1, x_38); -return x_47; +lean::cnstr_set(x_45, 0, x_44); +lean::cnstr_set(x_45, 1, x_36); +return x_45; } else { -obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; +obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; lean::dec(x_4); lean::dec(x_2); lean::dec(x_24); -x_51 = l_Lean_Parser_finishCommentBlock___closed__2; +x_49 = l_Lean_Parser_finishCommentBlock___closed__2; if (lean::is_scalar(x_21)) { - x_52 = lean::alloc_cnstr(0, 3, 0); + x_50 = lean::alloc_cnstr(0, 3, 0); } else { - x_52 = x_21; + x_50 = x_21; } -lean::cnstr_set(x_52, 0, x_15); -lean::cnstr_set(x_52, 1, x_17); -lean::cnstr_set(x_52, 2, x_51); -x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_19, x_52); -x_54 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_55 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_54, x_53); -x_56 = l_Lean_Parser_stringLit_Parser___at_Lean_Parser_Term_builtinLeadingParsers_Lean_Parser_HasTokens___spec__1___rarg___closed__1; -x_57 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_55, x_56); -x_58 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_57); +lean::cnstr_set(x_50, 0, x_15); +lean::cnstr_set(x_50, 1, x_17); +lean::cnstr_set(x_50, 2, x_49); +x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_19, x_50); +x_52 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_52, x_51); +x_54 = l_Lean_Parser_stringLit_Parser___at_Lean_Parser_Term_builtinLeadingParsers_Lean_Parser_HasTokens___spec__1___rarg___closed__1; +x_55 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_53, x_54); +x_56 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_55); if (lean::is_scalar(x_14)) { - x_59 = lean::alloc_cnstr(0, 2, 0); + x_57 = lean::alloc_cnstr(0, 2, 0); } else { - x_59 = x_14; + x_57 = x_14; } -lean::cnstr_set(x_59, 0, x_58); -lean::cnstr_set(x_59, 1, x_12); -return x_59; +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_12); +return x_57; } } else { -obj* x_62; obj* x_64; obj* x_65; uint8 x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; +obj* x_60; obj* x_62; obj* x_63; uint8 x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; lean::dec(x_4); lean::dec(x_2); -x_62 = lean::cnstr_get(x_9, 1); +x_60 = lean::cnstr_get(x_9, 1); if (lean::is_exclusive(x_9)) { lean::cnstr_release(x_9, 0); - x_64 = x_9; + x_62 = x_9; } else { - lean::inc(x_62); + lean::inc(x_60); lean::dec(x_9); - x_64 = lean::box(0); + x_62 = lean::box(0); } -x_65 = lean::cnstr_get(x_10, 0); -x_67 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); +x_63 = lean::cnstr_get(x_10, 0); +x_65 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); if (lean::is_exclusive(x_10)) { - x_68 = x_10; + x_66 = x_10; } else { - lean::inc(x_65); + lean::inc(x_63); lean::dec(x_10); - x_68 = lean::box(0); + x_66 = lean::box(0); } -if (lean::is_scalar(x_68)) { - x_69 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_66)) { + x_67 = lean::alloc_cnstr(1, 1, 1); } else { - x_69 = x_68; + x_67 = x_66; } -lean::cnstr_set(x_69, 0, x_65); -lean::cnstr_set_scalar(x_69, sizeof(void*)*1, x_67); -x_70 = x_69; -x_71 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_72 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_71, x_70); -x_73 = l_Lean_Parser_stringLit_Parser___at_Lean_Parser_Term_builtinLeadingParsers_Lean_Parser_HasTokens___spec__1___rarg___closed__1; -x_74 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_72, x_73); -x_75 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_74); -if (lean::is_scalar(x_64)) { - x_76 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_67, 0, x_63); +lean::cnstr_set_scalar(x_67, sizeof(void*)*1, x_65); +x_68 = x_67; +x_69 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_70 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_69, x_68); +x_71 = l_Lean_Parser_stringLit_Parser___at_Lean_Parser_Term_builtinLeadingParsers_Lean_Parser_HasTokens___spec__1___rarg___closed__1; +x_72 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_70, x_71); +x_73 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_72); +if (lean::is_scalar(x_62)) { + x_74 = lean::alloc_cnstr(0, 2, 0); } else { - x_76 = x_64; + x_74 = x_62; } -lean::cnstr_set(x_76, 0, x_75); -lean::cnstr_set(x_76, 1, x_62); -return x_76; +lean::cnstr_set(x_74, 0, x_73); +lean::cnstr_set(x_74, 1, x_60); +return x_74; } } } @@ -13106,7 +12557,7 @@ x_10 = lean::cnstr_get(x_9, 0); lean::inc(x_10); if (lean::obj_tag(x_10) == 0) { -obj* x_12; obj* x_14; obj* x_15; obj* x_17; obj* x_19; obj* x_21; obj* x_22; obj* x_24; +obj* x_12; obj* x_14; obj* x_15; obj* x_17; obj* x_19; obj* x_21; obj* x_22; uint8 x_23; x_12 = lean::cnstr_get(x_9, 1); if (lean::is_exclusive(x_9)) { lean::cnstr_release(x_9, 0); @@ -13133,123 +12584,112 @@ if (lean::is_exclusive(x_10)) { x_21 = lean::box(0); } x_22 = l_Lean_Parser_number; -lean::inc(x_15); -x_24 = l_Lean_Parser_tryView___at_Lean_Parser_number_Parser___spec__1(x_22, x_15); -if (lean::obj_tag(x_24) == 0) +x_23 = l_Lean_Parser_Syntax_isOfKind___main(x_22, x_15); +if (x_23 == 0) { -obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_36; obj* x_38; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; +obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_33; obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; lean::dec(x_15); lean::dec(x_14); lean::dec(x_21); -x_28 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_28, 0, x_2); -x_29 = lean::box(0); -x_30 = l_String_splitAux___main___closed__1; -x_31 = l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___rarg___closed__1; -x_32 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_30, x_31, x_28, x_29, x_4, x_17, x_12); -lean::dec(x_17); +x_27 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_27, 0, x_2); +x_28 = lean::box(0); +x_29 = l_String_splitAux___main___closed__1; +x_30 = l_Lean_Parser_number_Parser___rarg___lambda__1___closed__1; +x_31 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_29, x_30, x_27, x_28, x_4, x_17, x_12); lean::dec(x_4); -lean::dec(x_28); -x_36 = lean::cnstr_get(x_32, 0); -x_38 = lean::cnstr_get(x_32, 1); -if (lean::is_exclusive(x_32)) { - x_40 = x_32; +x_33 = lean::cnstr_get(x_31, 0); +x_35 = lean::cnstr_get(x_31, 1); +if (lean::is_exclusive(x_31)) { + x_37 = x_31; } else { - lean::inc(x_36); - lean::inc(x_38); - lean::dec(x_32); - x_40 = lean::box(0); + lean::inc(x_33); + lean::inc(x_35); + lean::dec(x_31); + x_37 = lean::box(0); } -x_41 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_42 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_41, x_36); -x_43 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_19, x_42); -x_44 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_41, x_43); -x_45 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_44, x_31); -x_46 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_45); -if (lean::is_scalar(x_40)) { - x_47 = lean::alloc_cnstr(0, 2, 0); +x_38 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_19, x_33); +x_39 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_40 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_39, x_38); +x_41 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_40); +if (lean::is_scalar(x_37)) { + x_42 = lean::alloc_cnstr(0, 2, 0); } else { - x_47 = x_40; + x_42 = x_37; } -lean::cnstr_set(x_47, 0, x_46); -lean::cnstr_set(x_47, 1, x_38); -return x_47; +lean::cnstr_set(x_42, 0, x_41); +lean::cnstr_set(x_42, 1, x_35); +return x_42; } else { -obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; +obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; lean::dec(x_4); lean::dec(x_2); -lean::dec(x_24); -x_51 = l_Lean_Parser_finishCommentBlock___closed__2; +x_45 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; if (lean::is_scalar(x_21)) { - x_52 = lean::alloc_cnstr(0, 3, 0); + x_46 = lean::alloc_cnstr(0, 3, 0); } else { - x_52 = x_21; + x_46 = x_21; } -lean::cnstr_set(x_52, 0, x_15); -lean::cnstr_set(x_52, 1, x_17); -lean::cnstr_set(x_52, 2, x_51); -x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_19, x_52); -x_54 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_55 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_54, x_53); -x_56 = l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___rarg___closed__1; -x_57 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_55, x_56); -x_58 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_57); +lean::cnstr_set(x_46, 0, x_15); +lean::cnstr_set(x_46, 1, x_17); +lean::cnstr_set(x_46, 2, x_45); +x_47 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_19, x_46); +x_48 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_45, x_47); +x_49 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_48); if (lean::is_scalar(x_14)) { - x_59 = lean::alloc_cnstr(0, 2, 0); + x_50 = lean::alloc_cnstr(0, 2, 0); } else { - x_59 = x_14; + x_50 = x_14; } -lean::cnstr_set(x_59, 0, x_58); -lean::cnstr_set(x_59, 1, x_12); -return x_59; +lean::cnstr_set(x_50, 0, x_49); +lean::cnstr_set(x_50, 1, x_12); +return x_50; } } else { -obj* x_62; obj* x_64; obj* x_65; uint8 x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; +obj* x_53; obj* x_55; obj* x_56; uint8 x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; lean::dec(x_4); lean::dec(x_2); -x_62 = lean::cnstr_get(x_9, 1); +x_53 = lean::cnstr_get(x_9, 1); if (lean::is_exclusive(x_9)) { lean::cnstr_release(x_9, 0); - x_64 = x_9; + x_55 = x_9; } else { - lean::inc(x_62); + lean::inc(x_53); lean::dec(x_9); - x_64 = lean::box(0); + x_55 = lean::box(0); } -x_65 = lean::cnstr_get(x_10, 0); -x_67 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); +x_56 = lean::cnstr_get(x_10, 0); +x_58 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); if (lean::is_exclusive(x_10)) { - x_68 = x_10; + x_59 = x_10; } else { - lean::inc(x_65); + lean::inc(x_56); lean::dec(x_10); - x_68 = lean::box(0); + x_59 = lean::box(0); } -if (lean::is_scalar(x_68)) { - x_69 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_59)) { + x_60 = lean::alloc_cnstr(1, 1, 1); } else { - x_69 = x_68; + x_60 = x_59; } -lean::cnstr_set(x_69, 0, x_65); -lean::cnstr_set_scalar(x_69, sizeof(void*)*1, x_67); -x_70 = x_69; -x_71 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_72 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_71, x_70); -x_73 = l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___rarg___closed__1; -x_74 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_72, x_73); -x_75 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_74); -if (lean::is_scalar(x_64)) { - x_76 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_60, 0, x_56); +lean::cnstr_set_scalar(x_60, sizeof(void*)*1, x_58); +x_61 = x_60; +x_62 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_63 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_62, x_61); +x_64 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_63); +if (lean::is_scalar(x_55)) { + x_65 = lean::alloc_cnstr(0, 2, 0); } else { - x_76 = x_64; + x_65 = x_55; } -lean::cnstr_set(x_76, 0, x_75); -lean::cnstr_set(x_76, 1, x_62); -return x_76; +lean::cnstr_set(x_65, 0, x_64); +lean::cnstr_set(x_65, 1, x_53); +return x_65; } } } @@ -13987,20 +13427,56 @@ x_213 = l_Lean_Parser_TokenMap_ofList___main___rarg(x_212); return x_213; } } -obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__2___rarg(obj* x_0, obj* x_1) { +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { -obj* x_2; obj* x_3; -x_2 = lean::box(0); -x_3 = l_RBNode_find___main___at_Lean_NameMap_contains___spec__2(x_2, lean::box(0), x_0, x_1); -return x_3; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_6; uint8 x_7; obj* x_8; obj* x_9; obj* x_10; +x_6 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_6, 0, x_4); +lean::cnstr_set(x_6, 1, x_0); +lean::cnstr_set(x_6, 2, x_1); +lean::cnstr_set(x_6, 3, x_3); +x_7 = 0; +x_8 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_8, 0, x_6); +lean::cnstr_set_scalar(x_8, sizeof(void*)*1, x_7); +x_9 = x_8; +x_10 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_10, 0, x_9); +lean::cnstr_set(x_10, 1, x_5); +return x_10; +} +else +{ +obj* x_12; obj* x_15; uint8 x_16; obj* x_17; obj* x_18; obj* x_19; +lean::dec(x_4); +x_12 = lean::cnstr_get(x_2, 0); +lean::inc(x_12); +lean::dec(x_2); +x_15 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_15, 0, x_12); +lean::cnstr_set(x_15, 1, x_0); +lean::cnstr_set(x_15, 2, x_1); +lean::cnstr_set(x_15, 3, x_3); +x_16 = 0; +x_17 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_17, 0, x_15); +lean::cnstr_set_scalar(x_17, sizeof(void*)*1, x_16); +x_18 = x_17; +x_19 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_19, 0, x_18); +lean::cnstr_set(x_19, 1, x_5); +return x_19; } } -obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__2(obj* x_0) { +} +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__1(obj* x_0) { _start: { obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__2___rarg___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__1___rarg), 6, 0); return x_1; } } @@ -14055,7 +13531,24 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_RBMap_find___main___at_Lean_ return x_1; } } -obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg(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_NameMap_contains___spec__2(x_2, lean::box(0), x_0, x_1); +return x_3; +} +} +obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__6(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg___boxed), 2, 0); +return x_1; +} +} +obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; obj* x_8; obj* x_10; obj* x_11; @@ -14074,7 +13567,7 @@ x_13 = lean::cnstr_get(x_11, 0); lean::inc(x_13); if (lean::obj_tag(x_13) == 0) { -obj* x_17; obj* x_20; obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_31; obj* x_33; obj* x_35; obj* x_36; obj* x_37; +obj* x_17; obj* x_20; obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_35; obj* x_36; lean::dec(x_13); lean::dec(x_0); x_17 = lean::cnstr_get(x_10, 1); @@ -14089,257 +13582,255 @@ x_25 = lean::box(0); x_26 = l_String_splitAux___main___closed__1; x_27 = l_mjoin___rarg___closed__1; x_28 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_26, x_27, x_25, x_25, x_5, x_20, x_17); -lean::dec(x_20); lean::dec(x_5); -x_31 = lean::cnstr_get(x_28, 0); -x_33 = lean::cnstr_get(x_28, 1); +x_30 = lean::cnstr_get(x_28, 0); +x_32 = lean::cnstr_get(x_28, 1); if (lean::is_exclusive(x_28)) { - x_35 = x_28; + x_34 = x_28; } else { - lean::inc(x_31); - lean::inc(x_33); + lean::inc(x_30); + lean::inc(x_32); lean::dec(x_28); - x_35 = lean::box(0); + x_34 = lean::box(0); } -x_36 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_31); -if (lean::is_scalar(x_35)) { - x_37 = lean::alloc_cnstr(0, 2, 0); +x_35 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_30); +if (lean::is_scalar(x_34)) { + x_36 = lean::alloc_cnstr(0, 2, 0); } else { - x_37 = x_35; + x_36 = x_34; } -lean::cnstr_set(x_37, 0, x_36); -lean::cnstr_set(x_37, 1, x_33); -return x_37; +lean::cnstr_set(x_36, 0, x_35); +lean::cnstr_set(x_36, 1, x_32); +return x_36; } else { -obj* x_38; -x_38 = lean::cnstr_get(x_13, 0); -lean::inc(x_38); +obj* x_37; +x_37 = lean::cnstr_get(x_13, 0); +lean::inc(x_37); lean::dec(x_13); -switch (lean::obj_tag(x_38)) { +switch (lean::obj_tag(x_37)) { case 0: { -obj* x_41; obj* x_44; obj* x_47; obj* x_49; obj* x_52; obj* x_55; obj* x_56; obj* x_57; obj* x_59; obj* x_61; obj* x_63; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; -x_41 = lean::cnstr_get(x_38, 0); -lean::inc(x_41); -lean::dec(x_38); -x_44 = lean::cnstr_get(x_10, 1); -lean::inc(x_44); +obj* x_40; obj* x_43; obj* x_46; obj* x_48; obj* x_51; obj* x_54; obj* x_55; obj* x_56; obj* x_58; obj* x_60; obj* x_62; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; +x_40 = lean::cnstr_get(x_37, 0); +lean::inc(x_40); +lean::dec(x_37); +x_43 = lean::cnstr_get(x_10, 1); +lean::inc(x_43); lean::dec(x_10); -x_47 = lean::cnstr_get(x_11, 1); -lean::inc(x_47); -x_49 = lean::cnstr_get(x_11, 2); -lean::inc(x_49); +x_46 = lean::cnstr_get(x_11, 1); +lean::inc(x_46); +x_48 = lean::cnstr_get(x_11, 2); +lean::inc(x_48); lean::dec(x_11); -x_52 = lean::cnstr_get(x_41, 1); -lean::inc(x_52); -lean::dec(x_41); -x_55 = lean::box(0); -x_56 = lean_name_mk_string(x_55, x_52); -x_57 = l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__2___rarg(x_0, x_56); -lean::dec(x_56); -x_59 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_57, x_5, x_47, x_44); +x_51 = lean::cnstr_get(x_40, 1); +lean::inc(x_51); +lean::dec(x_40); +x_54 = lean::box(0); +x_55 = lean_name_mk_string(x_54, x_51); +x_56 = l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg(x_0, x_55); +lean::dec(x_55); +x_58 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_56, x_5, x_46, x_43); lean::dec(x_5); -x_61 = lean::cnstr_get(x_59, 0); -x_63 = lean::cnstr_get(x_59, 1); -if (lean::is_exclusive(x_59)) { - x_65 = x_59; +x_60 = lean::cnstr_get(x_58, 0); +x_62 = lean::cnstr_get(x_58, 1); +if (lean::is_exclusive(x_58)) { + x_64 = x_58; } else { - lean::inc(x_61); - lean::inc(x_63); - lean::dec(x_59); - x_65 = lean::box(0); + lean::inc(x_60); + lean::inc(x_62); + lean::dec(x_58); + x_64 = lean::box(0); } -x_66 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_67 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_66, x_61); -x_68 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_49, x_67); -if (lean::is_scalar(x_65)) { - x_69 = lean::alloc_cnstr(0, 2, 0); +x_65 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_66 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_65, x_60); +x_67 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_48, x_66); +if (lean::is_scalar(x_64)) { + x_68 = lean::alloc_cnstr(0, 2, 0); } else { - x_69 = x_65; + x_68 = x_64; } -lean::cnstr_set(x_69, 0, x_68); -lean::cnstr_set(x_69, 1, x_63); -return x_69; +lean::cnstr_set(x_68, 0, x_67); +lean::cnstr_set(x_68, 1, x_62); +return x_68; } case 1: { -obj* x_71; obj* x_74; obj* x_76; obj* x_79; obj* x_80; obj* x_81; obj* x_83; obj* x_85; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; -lean::dec(x_38); -x_71 = lean::cnstr_get(x_10, 1); -lean::inc(x_71); +obj* x_70; obj* x_73; obj* x_75; obj* x_78; obj* x_79; obj* x_80; obj* x_82; obj* x_84; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; +lean::dec(x_37); +x_70 = lean::cnstr_get(x_10, 1); +lean::inc(x_70); lean::dec(x_10); -x_74 = lean::cnstr_get(x_11, 1); -lean::inc(x_74); -x_76 = lean::cnstr_get(x_11, 2); -lean::inc(x_76); +x_73 = lean::cnstr_get(x_11, 1); +lean::inc(x_73); +x_75 = lean::cnstr_get(x_11, 2); +lean::inc(x_75); lean::dec(x_11); -x_79 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1; -x_80 = l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg(x_0, x_79); -x_81 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_80, x_5, x_74, x_71); +x_78 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1; +x_79 = l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg(x_0, x_78); +x_80 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_79, x_5, x_73, x_70); lean::dec(x_5); -x_83 = lean::cnstr_get(x_81, 0); -x_85 = lean::cnstr_get(x_81, 1); -if (lean::is_exclusive(x_81)) { - x_87 = x_81; +x_82 = lean::cnstr_get(x_80, 0); +x_84 = lean::cnstr_get(x_80, 1); +if (lean::is_exclusive(x_80)) { + x_86 = x_80; } else { - lean::inc(x_83); - lean::inc(x_85); - lean::dec(x_81); - x_87 = lean::box(0); + lean::inc(x_82); + lean::inc(x_84); + lean::dec(x_80); + x_86 = lean::box(0); } -x_88 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_89 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_88, x_83); -x_90 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_76, x_89); -if (lean::is_scalar(x_87)) { - x_91 = lean::alloc_cnstr(0, 2, 0); +x_87 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_88 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_87, x_82); +x_89 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_75, x_88); +if (lean::is_scalar(x_86)) { + x_90 = lean::alloc_cnstr(0, 2, 0); } else { - x_91 = x_87; + x_90 = x_86; } -lean::cnstr_set(x_91, 0, x_90); -lean::cnstr_set(x_91, 1, x_85); -return x_91; +lean::cnstr_set(x_90, 0, x_89); +lean::cnstr_set(x_90, 1, x_84); +return x_90; } case 2: { -obj* x_92; obj* x_95; obj* x_97; obj* x_100; obj* x_103; obj* x_106; obj* x_108; obj* x_110; obj* x_112; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; -x_92 = lean::cnstr_get(x_10, 1); -lean::inc(x_92); +obj* x_91; obj* x_94; obj* x_96; obj* x_99; obj* x_102; obj* x_105; obj* x_107; obj* x_109; obj* x_111; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; +x_91 = lean::cnstr_get(x_10, 1); +lean::inc(x_91); lean::dec(x_10); -x_95 = lean::cnstr_get(x_11, 1); -lean::inc(x_95); -x_97 = lean::cnstr_get(x_11, 2); -lean::inc(x_97); +x_94 = lean::cnstr_get(x_11, 1); +lean::inc(x_94); +x_96 = lean::cnstr_get(x_11, 2); +lean::inc(x_96); lean::dec(x_11); -x_100 = lean::cnstr_get(x_38, 0); -lean::inc(x_100); -lean::dec(x_38); -x_103 = lean::cnstr_get(x_100, 0); -lean::inc(x_103); -lean::dec(x_100); -x_106 = l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg(x_0, x_103); -lean::dec(x_103); -x_108 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_106, x_5, x_95, x_92); +x_99 = lean::cnstr_get(x_37, 0); +lean::inc(x_99); +lean::dec(x_37); +x_102 = lean::cnstr_get(x_99, 0); +lean::inc(x_102); +lean::dec(x_99); +x_105 = l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__5___rarg(x_0, x_102); +lean::dec(x_102); +x_107 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_105, x_5, x_94, x_91); lean::dec(x_5); -x_110 = lean::cnstr_get(x_108, 0); -x_112 = lean::cnstr_get(x_108, 1); -if (lean::is_exclusive(x_108)) { - x_114 = x_108; +x_109 = lean::cnstr_get(x_107, 0); +x_111 = lean::cnstr_get(x_107, 1); +if (lean::is_exclusive(x_107)) { + x_113 = x_107; } else { - lean::inc(x_110); - lean::inc(x_112); - lean::dec(x_108); - x_114 = lean::box(0); + lean::inc(x_109); + lean::inc(x_111); + lean::dec(x_107); + x_113 = lean::box(0); } -x_115 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_116 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_115, x_110); -x_117 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_97, x_116); -if (lean::is_scalar(x_114)) { - x_118 = lean::alloc_cnstr(0, 2, 0); +x_114 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_115 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_114, x_109); +x_116 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_96, x_115); +if (lean::is_scalar(x_113)) { + x_117 = lean::alloc_cnstr(0, 2, 0); } else { - x_118 = x_114; + x_117 = x_113; } -lean::cnstr_set(x_118, 0, x_117); -lean::cnstr_set(x_118, 1, x_112); -return x_118; +lean::cnstr_set(x_117, 0, x_116); +lean::cnstr_set(x_117, 1, x_111); +return x_117; } default: { -obj* x_119; obj* x_122; obj* x_124; obj* x_127; obj* x_128; obj* x_129; obj* x_130; obj* x_132; -x_119 = lean::cnstr_get(x_10, 1); -lean::inc(x_119); +obj* x_118; obj* x_121; obj* x_123; obj* x_126; obj* x_127; obj* x_128; obj* x_129; obj* x_130; +x_118 = lean::cnstr_get(x_10, 1); +lean::inc(x_118); lean::dec(x_10); -x_122 = lean::cnstr_get(x_11, 1); -lean::inc(x_122); -x_124 = lean::cnstr_get(x_11, 2); -lean::inc(x_124); +x_121 = lean::cnstr_get(x_11, 1); +lean::inc(x_121); +x_123 = lean::cnstr_get(x_11, 2); +lean::inc(x_123); lean::dec(x_11); -x_127 = lean::box(0); -x_128 = l_String_splitAux___main___closed__1; -x_129 = l_mjoin___rarg___closed__1; -x_130 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_128, x_129, x_127, x_127, x_5, x_122, x_119); -lean::dec(x_122); -x_132 = lean::cnstr_get(x_130, 0); +x_126 = lean::box(0); +x_127 = l_String_splitAux___main___closed__1; +x_128 = l_mjoin___rarg___closed__1; +x_129 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_127, x_128, x_126, x_126, x_5, x_121, x_118); +x_130 = lean::cnstr_get(x_129, 0); +lean::inc(x_130); +if (lean::obj_tag(x_130) == 0) +{ +obj* x_132; obj* x_135; obj* x_137; obj* x_139; obj* x_142; obj* x_144; obj* x_146; obj* x_148; obj* x_150; obj* x_151; obj* x_152; obj* x_153; +x_132 = lean::cnstr_get(x_129, 1); lean::inc(x_132); -if (lean::obj_tag(x_132) == 0) -{ -obj* x_134; obj* x_137; obj* x_139; obj* x_141; obj* x_144; obj* x_146; obj* x_148; obj* x_150; obj* x_152; obj* x_153; obj* x_154; obj* x_155; -x_134 = lean::cnstr_get(x_130, 1); -lean::inc(x_134); -lean::dec(x_130); -x_137 = lean::cnstr_get(x_132, 0); +lean::dec(x_129); +x_135 = lean::cnstr_get(x_130, 0); +lean::inc(x_135); +x_137 = lean::cnstr_get(x_130, 1); lean::inc(x_137); -x_139 = lean::cnstr_get(x_132, 1); +x_139 = lean::cnstr_get(x_130, 2); lean::inc(x_139); -x_141 = lean::cnstr_get(x_132, 2); -lean::inc(x_141); -lean::dec(x_132); -x_144 = l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__5___rarg(x_0, x_137); -lean::dec(x_137); -x_146 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_144, x_5, x_139, x_134); +lean::dec(x_130); +x_142 = l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg(x_0, x_135); +lean::dec(x_135); +x_144 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_142, x_5, x_137, x_132); lean::dec(x_5); -x_148 = lean::cnstr_get(x_146, 0); -x_150 = lean::cnstr_get(x_146, 1); -if (lean::is_exclusive(x_146)) { - x_152 = x_146; +x_146 = lean::cnstr_get(x_144, 0); +x_148 = lean::cnstr_get(x_144, 1); +if (lean::is_exclusive(x_144)) { + x_150 = x_144; } else { + lean::inc(x_146); lean::inc(x_148); - lean::inc(x_150); - lean::dec(x_146); - x_152 = lean::box(0); + lean::dec(x_144); + x_150 = lean::box(0); } -x_153 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_141, x_148); -x_154 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_124, x_153); -if (lean::is_scalar(x_152)) { - x_155 = lean::alloc_cnstr(0, 2, 0); +x_151 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_139, x_146); +x_152 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_123, x_151); +if (lean::is_scalar(x_150)) { + x_153 = lean::alloc_cnstr(0, 2, 0); } else { - x_155 = x_152; + x_153 = x_150; } -lean::cnstr_set(x_155, 0, x_154); -lean::cnstr_set(x_155, 1, x_150); -return x_155; +lean::cnstr_set(x_153, 0, x_152); +lean::cnstr_set(x_153, 1, x_148); +return x_153; } else { -obj* x_158; obj* x_160; obj* x_161; uint8 x_163; obj* x_164; obj* x_165; obj* x_166; obj* x_167; obj* x_168; +obj* x_156; obj* x_158; obj* x_159; uint8 x_161; obj* x_162; obj* x_163; obj* x_164; obj* x_165; obj* x_166; lean::dec(x_5); lean::dec(x_0); -x_158 = lean::cnstr_get(x_130, 1); +x_156 = lean::cnstr_get(x_129, 1); +if (lean::is_exclusive(x_129)) { + lean::cnstr_release(x_129, 0); + x_158 = x_129; +} else { + lean::inc(x_156); + lean::dec(x_129); + x_158 = lean::box(0); +} +x_159 = lean::cnstr_get(x_130, 0); +x_161 = lean::cnstr_get_scalar(x_130, sizeof(void*)*1); if (lean::is_exclusive(x_130)) { - lean::cnstr_release(x_130, 0); - x_160 = x_130; + x_162 = x_130; } else { - lean::inc(x_158); + lean::inc(x_159); lean::dec(x_130); - x_160 = lean::box(0); + x_162 = lean::box(0); } -x_161 = lean::cnstr_get(x_132, 0); -x_163 = lean::cnstr_get_scalar(x_132, sizeof(void*)*1); -if (lean::is_exclusive(x_132)) { - x_164 = x_132; +if (lean::is_scalar(x_162)) { + x_163 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_161); - lean::dec(x_132); - x_164 = lean::box(0); + x_163 = x_162; } -if (lean::is_scalar(x_164)) { - x_165 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_163, 0, x_159); +lean::cnstr_set_scalar(x_163, sizeof(void*)*1, x_161); +x_164 = x_163; +x_165 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_123, x_164); +if (lean::is_scalar(x_158)) { + x_166 = lean::alloc_cnstr(0, 2, 0); } else { - x_165 = x_164; + x_166 = x_158; } -lean::cnstr_set(x_165, 0, x_161); -lean::cnstr_set_scalar(x_165, sizeof(void*)*1, x_163); -x_166 = x_165; -x_167 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_124, x_166); -if (lean::is_scalar(x_160)) { - x_168 = lean::alloc_cnstr(0, 2, 0); -} else { - x_168 = x_160; -} -lean::cnstr_set(x_168, 0, x_167); -lean::cnstr_set(x_168, 1, x_158); -return x_168; +lean::cnstr_set(x_166, 0, x_165); +lean::cnstr_set(x_166, 1, x_156); +return x_166; } } } @@ -14347,224 +13838,178 @@ return x_168; } else { -obj* x_171; obj* x_173; obj* x_174; uint8 x_176; obj* x_177; obj* x_178; obj* x_179; obj* x_180; +obj* x_169; obj* x_171; obj* x_172; uint8 x_174; obj* x_175; obj* x_176; obj* x_177; obj* x_178; lean::dec(x_5); lean::dec(x_0); -x_171 = lean::cnstr_get(x_10, 1); +x_169 = lean::cnstr_get(x_10, 1); if (lean::is_exclusive(x_10)) { lean::cnstr_release(x_10, 0); - x_173 = x_10; + x_171 = x_10; } else { - lean::inc(x_171); + lean::inc(x_169); lean::dec(x_10); - x_173 = lean::box(0); + x_171 = lean::box(0); } -x_174 = lean::cnstr_get(x_11, 0); -x_176 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); +x_172 = lean::cnstr_get(x_11, 0); +x_174 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); if (lean::is_exclusive(x_11)) { - x_177 = x_11; + x_175 = x_11; } else { - lean::inc(x_174); + lean::inc(x_172); lean::dec(x_11); - x_177 = lean::box(0); + x_175 = lean::box(0); } -if (lean::is_scalar(x_177)) { - x_178 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_175)) { + x_176 = lean::alloc_cnstr(1, 1, 1); } else { - x_178 = x_177; + x_176 = x_175; } -lean::cnstr_set(x_178, 0, x_174); -lean::cnstr_set_scalar(x_178, sizeof(void*)*1, x_176); -x_179 = x_178; -if (lean::is_scalar(x_173)) { - x_180 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_176, 0, x_172); +lean::cnstr_set_scalar(x_176, sizeof(void*)*1, x_174); +x_177 = x_176; +if (lean::is_scalar(x_171)) { + x_178 = lean::alloc_cnstr(0, 2, 0); } else { - x_180 = x_173; + x_178 = x_171; } -lean::cnstr_set(x_180, 0, x_179); -lean::cnstr_set(x_180, 1, x_171); -return x_180; +lean::cnstr_set(x_178, 0, x_177); +lean::cnstr_set(x_178, 1, x_169); +return x_178; } } } -obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__1(obj* x_0) { +obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__2(obj* x_0) { _start: { obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__1___rarg___boxed), 5, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__2___rarg___boxed), 5, 0); return x_1; } } -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__6___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_Lean_Parser_commandParser_run___lambda__1(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_6; obj* x_7; uint8 x_8; obj* x_9; obj* x_10; obj* x_11; -x_6 = l_Option_getOrElse___main___rarg(x_2, x_4); -x_7 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_7, 0, x_6); -lean::cnstr_set(x_7, 1, x_0); -lean::cnstr_set(x_7, 2, x_1); -lean::cnstr_set(x_7, 3, x_3); -x_8 = 0; -x_9 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_9, 0, x_7); -lean::cnstr_set_scalar(x_9, sizeof(void*)*1, x_8); -x_10 = x_9; -x_11 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_11, 0, x_10); -lean::cnstr_set(x_11, 1, x_5); -return x_11; +obj* x_3; obj* x_4; obj* x_5; obj* x_6; +x_3 = lean::box(0); +x_4 = l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1; +x_5 = l_mjoin___rarg___closed__1; +x_6 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__1___rarg(x_4, x_5, x_3, x_3, x_1, x_2); +return x_6; } } -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__6(obj* x_0) { +obj* l_Lean_Parser_commandParser_run___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { -obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__6___rarg___boxed), 6, 0); -return x_1; -} -} -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_commandParser_run___spec__8(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { -_start: -{ -obj* x_8; obj* x_10; obj* x_11; +obj* x_7; obj* x_8; lean::inc(x_1); -lean::inc(x_0); -x_8 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_commandParser_run___spec__8___boxed), 6, 3); -lean::closure_set(x_8, 0, x_0); -lean::closure_set(x_8, 1, x_1); -lean::closure_set(x_8, 2, x_2); -lean::inc(x_1); -x_10 = l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__1___rarg(x_0, x_1, x_8, x_4, x_5); -x_11 = lean::cnstr_get(x_10, 0); -lean::inc(x_11); -if (lean::obj_tag(x_11) == 0) +x_7 = l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__2___rarg(x_0, x_1, x_2, x_4, x_5); +x_8 = lean::cnstr_get(x_7, 0); +lean::inc(x_8); +if (lean::obj_tag(x_8) == 0) { -obj* x_13; obj* x_16; obj* x_18; obj* x_20; obj* x_23; obj* x_24; obj* x_26; obj* x_28; obj* x_29; obj* x_30; -x_13 = lean::cnstr_get(x_10, 1); +obj* x_10; obj* x_13; obj* x_15; obj* x_17; obj* x_20; obj* x_21; obj* x_23; obj* x_25; obj* x_26; obj* x_27; +x_10 = lean::cnstr_get(x_7, 1); +lean::inc(x_10); +lean::dec(x_7); +x_13 = lean::cnstr_get(x_8, 0); lean::inc(x_13); -lean::dec(x_10); -x_16 = lean::cnstr_get(x_11, 0); -lean::inc(x_16); -x_18 = lean::cnstr_get(x_11, 1); -lean::inc(x_18); -x_20 = lean::cnstr_get(x_11, 2); -lean::inc(x_20); -lean::dec(x_11); -x_23 = l_Lean_Parser_Combinators_anyOf___at_Lean_Parser_command_universe_Parser___spec__1(x_16, x_1, x_8, x_18, x_13); -x_24 = lean::cnstr_get(x_23, 0); -x_26 = lean::cnstr_get(x_23, 1); -if (lean::is_exclusive(x_23)) { - x_28 = x_23; +x_15 = lean::cnstr_get(x_8, 1); +lean::inc(x_15); +x_17 = lean::cnstr_get(x_8, 2); +lean::inc(x_17); +lean::dec(x_8); +x_20 = l_Lean_Parser_Combinators_anyOf___at_Lean_Parser_command_universe_Parser___spec__1(x_13, x_1, x_2, x_15, x_10); +x_21 = lean::cnstr_get(x_20, 0); +x_23 = lean::cnstr_get(x_20, 1); +if (lean::is_exclusive(x_20)) { + x_25 = x_20; } else { - lean::inc(x_24); - lean::inc(x_26); - lean::dec(x_23); - x_28 = lean::box(0); + lean::inc(x_21); + lean::inc(x_23); + lean::dec(x_20); + x_25 = lean::box(0); } -x_29 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_24); -if (lean::is_scalar(x_28)) { - x_30 = lean::alloc_cnstr(0, 2, 0); +x_26 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_21); +if (lean::is_scalar(x_25)) { + x_27 = lean::alloc_cnstr(0, 2, 0); } else { - x_30 = x_28; + x_27 = x_25; } -lean::cnstr_set(x_30, 0, x_29); -lean::cnstr_set(x_30, 1, x_26); -return x_30; +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_23); +return x_27; } else { -obj* x_33; obj* x_35; obj* x_36; uint8 x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; +obj* x_30; obj* x_32; obj* x_33; uint8 x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; lean::dec(x_1); -lean::dec(x_8); -x_33 = lean::cnstr_get(x_10, 1); -if (lean::is_exclusive(x_10)) { - lean::cnstr_release(x_10, 0); - x_35 = x_10; +lean::dec(x_2); +x_30 = lean::cnstr_get(x_7, 1); +if (lean::is_exclusive(x_7)) { + lean::cnstr_release(x_7, 0); + x_32 = x_7; +} else { + lean::inc(x_30); + lean::dec(x_7); + x_32 = lean::box(0); +} +x_33 = lean::cnstr_get(x_8, 0); +x_35 = lean::cnstr_get_scalar(x_8, sizeof(void*)*1); +if (lean::is_exclusive(x_8)) { + x_36 = x_8; } else { lean::inc(x_33); - lean::dec(x_10); - x_35 = lean::box(0); + lean::dec(x_8); + x_36 = lean::box(0); } -x_36 = lean::cnstr_get(x_11, 0); -x_38 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); -if (lean::is_exclusive(x_11)) { - x_39 = x_11; +if (lean::is_scalar(x_36)) { + x_37 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_36); - lean::dec(x_11); - x_39 = lean::box(0); + x_37 = x_36; } -if (lean::is_scalar(x_39)) { - x_40 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_37, 0, x_33); +lean::cnstr_set_scalar(x_37, sizeof(void*)*1, x_35); +x_38 = x_37; +if (lean::is_scalar(x_32)) { + x_39 = lean::alloc_cnstr(0, 2, 0); } else { - x_40 = x_39; + x_39 = x_32; } -lean::cnstr_set(x_40, 0, x_36); -lean::cnstr_set_scalar(x_40, sizeof(void*)*1, x_38); -x_41 = x_40; -if (lean::is_scalar(x_35)) { - x_42 = lean::alloc_cnstr(0, 2, 0); -} else { - x_42 = x_35; +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_30); +return x_39; } -lean::cnstr_set(x_42, 0, x_41); -lean::cnstr_set(x_42, 1, x_33); -return x_42; -} -} -} -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_commandParser_run___spec__7(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { -_start: -{ -obj* x_6; -x_6 = l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_commandParser_run___spec__8(x_0, x_1, x_2, x_3, x_4, x_5); -return x_6; } } obj* _init_l_Lean_Parser_commandParser_run___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; -x_0 = lean::box(0); -x_1 = lean::mk_string("RecT.runParsec: no progress"); -x_2 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 1, 0); -x_3 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__6___rarg___boxed), 6, 4); -lean::closure_set(x_3, 0, x_1); -lean::closure_set(x_3, 1, x_2); -lean::closure_set(x_3, 2, x_0); -lean::closure_set(x_3, 3, x_0); -return x_3; +obj* x_0; +x_0 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_commandParser_run___lambda__1___boxed), 3, 0); +return x_0; } } obj* l_Lean_Parser_commandParser_run(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_5; obj* x_7; obj* x_8; -x_5 = l_Lean_Parser_commandParser_run___closed__1; +obj* x_6; obj* x_7; obj* x_8; obj* x_9; lean::inc(x_2); -x_7 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_commandParser_run___spec__7___boxed), 6, 3); -lean::closure_set(x_7, 0, x_0); -lean::closure_set(x_7, 1, x_2); -lean::closure_set(x_7, 2, x_5); -x_8 = lean::apply_4(x_1, x_2, x_7, x_3, x_4); -return x_8; +x_6 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_commandParser_run___lambda__2___boxed), 6, 2); +lean::closure_set(x_6, 0, x_0); +lean::closure_set(x_6, 1, x_2); +x_7 = l_Lean_Parser_commandParser_run___closed__1; +x_8 = lean::alloc_closure(reinterpret_cast(l_fixCore___rarg___boxed), 3, 2); +lean::closure_set(x_8, 0, x_7); +lean::closure_set(x_8, 1, x_6); +x_9 = lean::apply_4(x_1, x_2, x_8, x_3, x_4); +return x_9; } } -obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__2___rarg___boxed(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__2___rarg(x_0, x_1); -lean::dec(x_1); -return x_2; -} -} -obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__2___boxed(obj* x_0) { +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__1___boxed(obj* x_0) { _start: { obj* x_1; -x_1 = l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__2(x_0); +x_1 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__1(x_0); lean::dec(x_0); return x_1; } @@ -14623,57 +14068,56 @@ lean::dec(x_0); return x_1; } } -obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__6___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBMap_find___main___at_Lean_Parser_commandParser_run___spec__6(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__2___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; -x_5 = l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__1___rarg(x_0, x_1, x_2, x_3, x_4); +x_5 = l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__2___rarg(x_0, x_1, x_2, x_3, x_4); lean::dec(x_2); return x_5; } } -obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__1___boxed(obj* x_0) { +obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__2___boxed(obj* x_0) { _start: { obj* x_1; -x_1 = l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__1(x_0); +x_1 = l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__2(x_0); lean::dec(x_0); return x_1; } } -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__6___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_Lean_Parser_commandParser_run___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_6; -x_6 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__6___rarg(x_0, x_1, x_2, x_3, x_4, x_5); -lean::dec(x_2); -lean::dec(x_4); -return x_6; -} -} -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__6___boxed(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__6(x_0); +obj* x_3; +x_3 = l_Lean_Parser_commandParser_run___lambda__1(x_0, x_1, x_2); lean::dec(x_0); -return x_1; +return x_3; } } -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_commandParser_run___spec__8___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_Lean_Parser_commandParser_run___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; -x_6 = l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_commandParser_run___spec__8(x_0, x_1, x_2, x_3, x_4, x_5); -lean::dec(x_3); -return x_6; -} -} -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_commandParser_run___spec__7___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { -_start: -{ -obj* x_6; -x_6 = l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_commandParser_run___spec__7(x_0, x_1, x_2, x_3, x_4, x_5); +x_6 = l_Lean_Parser_commandParser_run___lambda__2(x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_3); return x_6; } diff --git a/src/stage0/init/lean/parser/declaration.cpp b/src/stage0/init/lean/parser/declaration.cpp index 245cb4cc1e..3bf81276fa 100644 --- a/src/stage0/init/lean/parser/declaration.cpp +++ b/src/stage0/init/lean/parser/declaration.cpp @@ -150,7 +150,6 @@ obj* l_Lean_Parser_command_defLike; obj* l_Lean_Parser_command_structExplicitBinderContent_HasView; obj* l_Lean_Parser_command_docComment_Parser___lambda__1(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_structExplicitBinder_HasView_x_27___lambda__1(obj*); -extern obj* l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_command_declSig; obj* l_Lean_Parser_command_attrInstance_HasView_x_27; obj* l_Lean_Parser_command_constantKeyword_HasView_x_27___lambda__2___closed__1; @@ -176,7 +175,6 @@ obj* l_Lean_Parser_command_attrInstance_Parser___closed__1; obj* l_Lean_Parser_command_defLike_kind_HasView_x_27___lambda__1___closed__6; obj* l_Lean_Parser_command_declAttributes_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Combinators_sepBy1___at_Lean_Parser_command_declAttributes_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Option_get___main___at_Lean_Parser_run___spec__2(obj*); obj* l_Lean_Parser_MonadParsec_many1Aux_x_27___main___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__10(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_inferModifier_Parser_Lean_Parser_HasView___lambda__2(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_inferModifier_Parser_Lean_Parser_HasView; @@ -269,7 +267,6 @@ obj* l_Lean_Parser_command_declModifiers_HasView; obj* l_Lean_Parser_ParsecT_lookahead___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasView___spec__1(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_structureCtor_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Syntax_mkNode(obj*, obj*); -obj* l_Option_getOrElse___main___rarg(obj*, obj*); obj* l_Lean_Parser_MonadParsec_many1Aux_x_27___main___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__7___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_declModifiers_Parser_Lean_Parser_HasView; obj* l_Lean_Parser_command_attrInstance_HasView_x_27___lambda__1(obj*); @@ -294,6 +291,7 @@ obj* l_Lean_Parser_command_axiom_HasView_x_27___lambda__1___closed__1; obj* l_List_append___rarg(obj*, obj*); extern "C" obj* lean_name_mk_string(obj*, obj*); obj* l_Lean_Parser_command_visibility_HasView; +extern obj* l_Lean_Parser_Combinators_optional___rarg___lambda__1___closed__1; obj* l_Lean_Parser_command_extends_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_command_structureCtor_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_command_introRule_HasView_x_27; @@ -371,7 +369,6 @@ obj* l_Lean_Parser_command_visibility_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_command_identUnivParams_HasView_x_27___lambda__1___closed__3; obj* l_Lean_Parser_command_Declaration_Parser(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_instImplicitBinder_HasView; -extern obj* l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; obj* l_Lean_Parser_command_declModifiers_HasView_x_27___lambda__1___closed__3; obj* l_Lean_Parser_command_example_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_command_structBinderContent_HasView; @@ -831,25 +828,21 @@ goto lbl_29; obj* _init_l_Lean_Parser_command_docComment_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_5; obj* x_7; obj* x_8; obj* x_9; obj* x_10; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -lean::inc(x_3); -x_5 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_5, 0, x_3); -lean::cnstr_set(x_5, 1, x_0); -lean::inc(x_3); -x_7 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_7, 0, x_3); -lean::cnstr_set(x_7, 1, x_5); -x_8 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_8, 0, x_3); -lean::cnstr_set(x_8, 1, x_7); -x_9 = l_Lean_Parser_command_docComment; -x_10 = l_Lean_Parser_Syntax_mkNode(x_9, x_8); -return x_10; +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_3, 0, x_1); +lean::cnstr_set(x_3, 1, x_2); +x_4 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_4, 0, x_1); +lean::cnstr_set(x_4, 1, x_3); +x_5 = l_Lean_Parser_command_docComment; +x_6 = l_Lean_Parser_Syntax_mkNode(x_5, x_4); +return x_6; } } obj* l_Lean_Parser_command_docComment_HasView_x_27___lambda__2(obj* x_0) { @@ -876,256 +869,162 @@ return x_9; } else { -obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; +obj* x_10; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; x_10 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_12 = x_5; -} else { - lean::inc(x_10); - lean::dec(x_5); - x_12 = lean::box(0); -} +lean::inc(x_10); +lean::dec(x_5); x_13 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_13, 0, x_10); -if (lean::is_scalar(x_12)) { - x_14 = lean::alloc_cnstr(1, 1, 0); -} else { - x_14 = x_12; -} +x_14 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_14, 0, x_13); +lean::cnstr_set(x_14, 1, x_8); x_15 = lean::box(3); -x_16 = l_Option_getOrElse___main___rarg(x_14, x_15); -lean::dec(x_14); -x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_16); -lean::cnstr_set(x_18, 1, x_8); -x_19 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_19); -lean::cnstr_set(x_20, 1, x_18); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_19); -lean::cnstr_set(x_21, 1, x_20); -x_22 = l_Lean_Parser_command_docComment; -x_23 = l_Lean_Parser_Syntax_mkNode(x_22, x_21); -return x_23; +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_15); +lean::cnstr_set(x_16, 1, x_14); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_15); +lean::cnstr_set(x_17, 1, x_16); +x_18 = l_Lean_Parser_command_docComment; +x_19 = l_Lean_Parser_Syntax_mkNode(x_18, x_17); +return x_19; } } else { -obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; -x_24 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_26 = x_3; -} else { - lean::inc(x_24); - lean::dec(x_3); - x_26 = lean::box(0); -} -x_27 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_27, 0, x_24); -if (lean::is_scalar(x_26)) { - x_28 = lean::alloc_cnstr(1, 1, 0); -} else { - x_28 = x_26; -} -lean::cnstr_set(x_28, 0, x_27); -x_29 = lean::box(3); -x_30 = l_Option_getOrElse___main___rarg(x_28, x_29); -lean::dec(x_28); +obj* x_20; obj* x_23; +x_20 = lean::cnstr_get(x_3, 0); +lean::inc(x_20); +lean::dec(x_3); +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); if (lean::obj_tag(x_5) == 0) { -obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; -x_32 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_33 = lean::alloc_cnstr(1, 2, 0); +obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +x_24 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_23); +lean::cnstr_set(x_25, 1, x_24); +x_26 = lean::box(3); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_25); +x_28 = l_Lean_Parser_command_docComment; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; +} +else +{ +obj* x_30; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; +x_30 = lean::cnstr_get(x_5, 0); +lean::inc(x_30); +lean::dec(x_5); +x_33 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_33, 0, x_30); -lean::cnstr_set(x_33, 1, x_32); -x_34 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_33); +lean::cnstr_set(x_34, 1, x_8); x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_34); -lean::cnstr_set(x_35, 1, x_33); -x_36 = l_Lean_Parser_command_docComment; -x_37 = l_Lean_Parser_Syntax_mkNode(x_36, x_35); -return x_37; -} -else -{ -obj* x_38; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; -x_38 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_40 = x_5; -} else { - lean::inc(x_38); - lean::dec(x_5); - x_40 = lean::box(0); -} -x_41 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_41, 0, x_38); -if (lean::is_scalar(x_40)) { - x_42 = lean::alloc_cnstr(1, 1, 0); -} else { - x_42 = x_40; -} -lean::cnstr_set(x_42, 0, x_41); -x_43 = l_Option_getOrElse___main___rarg(x_42, x_29); -lean::dec(x_42); -x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_43); -lean::cnstr_set(x_45, 1, x_8); -x_46 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_46, 0, x_30); -lean::cnstr_set(x_46, 1, x_45); -x_47 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_48 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_48, 0, x_47); -lean::cnstr_set(x_48, 1, x_46); -x_49 = l_Lean_Parser_command_docComment; -x_50 = l_Lean_Parser_Syntax_mkNode(x_49, x_48); -return x_50; +lean::cnstr_set(x_35, 0, x_23); +lean::cnstr_set(x_35, 1, x_34); +x_36 = lean::box(3); +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_36); +lean::cnstr_set(x_37, 1, x_35); +x_38 = l_Lean_Parser_command_docComment; +x_39 = l_Lean_Parser_Syntax_mkNode(x_38, x_37); +return x_39; } } } else { -obj* x_51; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; -x_51 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_53 = x_1; -} else { - lean::inc(x_51); - lean::dec(x_1); - x_53 = lean::box(0); -} -x_54 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_54, 0, x_51); -if (lean::is_scalar(x_53)) { - x_55 = lean::alloc_cnstr(1, 1, 0); -} else { - x_55 = x_53; -} -lean::cnstr_set(x_55, 0, x_54); -x_56 = lean::box(3); -x_57 = l_Option_getOrElse___main___rarg(x_55, x_56); -lean::dec(x_55); +obj* x_40; obj* x_43; +x_40 = lean::cnstr_get(x_1, 0); +lean::inc(x_40); +lean::dec(x_1); +x_43 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_43, 0, x_40); if (lean::obj_tag(x_3) == 0) { if (lean::obj_tag(x_5) == 0) { -obj* x_59; obj* x_60; obj* x_61; obj* x_62; -x_59 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__3; -x_60 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_60, 0, x_57); -lean::cnstr_set(x_60, 1, x_59); -x_61 = l_Lean_Parser_command_docComment; -x_62 = l_Lean_Parser_Syntax_mkNode(x_61, x_60); -return x_62; +obj* x_44; obj* x_45; obj* x_46; obj* x_47; +x_44 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__3; +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_43); +lean::cnstr_set(x_45, 1, x_44); +x_46 = l_Lean_Parser_command_docComment; +x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); +return x_47; } else { -obj* x_63; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; -x_63 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_65 = x_5; -} else { - lean::inc(x_63); - lean::dec(x_5); - x_65 = lean::box(0); +obj* x_48; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_48 = lean::cnstr_get(x_5, 0); +lean::inc(x_48); +lean::dec(x_5); +x_51 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_51, 0, x_48); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_8); +x_53 = lean::box(3); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_52); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_43); +lean::cnstr_set(x_55, 1, x_54); +x_56 = l_Lean_Parser_command_docComment; +x_57 = l_Lean_Parser_Syntax_mkNode(x_56, x_55); +return x_57; } -x_66 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_66, 0, x_63); -if (lean::is_scalar(x_65)) { - x_67 = lean::alloc_cnstr(1, 1, 0); -} else { - x_67 = x_65; } -lean::cnstr_set(x_67, 0, x_66); -x_68 = l_Option_getOrElse___main___rarg(x_67, x_56); -lean::dec(x_67); -x_70 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_70, 0, x_68); -lean::cnstr_set(x_70, 1, x_8); -x_71 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +else +{ +obj* x_58; obj* x_61; +x_58 = lean::cnstr_get(x_3, 0); +lean::inc(x_58); +lean::dec(x_3); +x_61 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_61, 0, x_58); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; +x_62 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_63 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_63, 0, x_61); +lean::cnstr_set(x_63, 1, x_62); +x_64 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_64, 0, x_43); +lean::cnstr_set(x_64, 1, x_63); +x_65 = l_Lean_Parser_command_docComment; +x_66 = l_Lean_Parser_Syntax_mkNode(x_65, x_64); +return x_66; +} +else +{ +obj* x_67; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; +x_67 = lean::cnstr_get(x_5, 0); +lean::inc(x_67); +lean::dec(x_5); +x_70 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_70, 0, x_67); +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_70); +lean::cnstr_set(x_71, 1, x_8); x_72 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_72, 0, x_71); -lean::cnstr_set(x_72, 1, x_70); +lean::cnstr_set(x_72, 0, x_61); +lean::cnstr_set(x_72, 1, x_71); x_73 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_73, 0, x_57); +lean::cnstr_set(x_73, 0, x_43); lean::cnstr_set(x_73, 1, x_72); x_74 = l_Lean_Parser_command_docComment; x_75 = l_Lean_Parser_Syntax_mkNode(x_74, x_73); return x_75; } } -else -{ -obj* x_76; obj* x_78; obj* x_79; obj* x_80; obj* x_81; -x_76 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_78 = x_3; -} else { - lean::inc(x_76); - lean::dec(x_3); - x_78 = lean::box(0); -} -x_79 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_79, 0, x_76); -if (lean::is_scalar(x_78)) { - x_80 = lean::alloc_cnstr(1, 1, 0); -} else { - x_80 = x_78; -} -lean::cnstr_set(x_80, 0, x_79); -x_81 = l_Option_getOrElse___main___rarg(x_80, x_56); -lean::dec(x_80); -if (lean::obj_tag(x_5) == 0) -{ -obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; -x_83 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_84 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_84, 0, x_81); -lean::cnstr_set(x_84, 1, x_83); -x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_57); -lean::cnstr_set(x_85, 1, x_84); -x_86 = l_Lean_Parser_command_docComment; -x_87 = l_Lean_Parser_Syntax_mkNode(x_86, x_85); -return x_87; -} -else -{ -obj* x_88; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; -x_88 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_90 = x_5; -} else { - lean::inc(x_88); - lean::dec(x_5); - x_90 = lean::box(0); -} -x_91 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_91, 0, x_88); -if (lean::is_scalar(x_90)) { - x_92 = lean::alloc_cnstr(1, 1, 0); -} else { - x_92 = x_90; -} -lean::cnstr_set(x_92, 0, x_91); -x_93 = l_Option_getOrElse___main___rarg(x_92, x_56); -lean::dec(x_92); -x_95 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_95, 0, x_93); -lean::cnstr_set(x_95, 1, x_8); -x_96 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_96, 0, x_81); -lean::cnstr_set(x_96, 1, x_95); -x_97 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_97, 0, x_57); -lean::cnstr_set(x_97, 1, x_96); -x_98 = l_Lean_Parser_command_docComment; -x_99 = l_Lean_Parser_Syntax_mkNode(x_98, x_97); -return x_99; -} -} } } } @@ -1205,235 +1104,231 @@ x_34 = lean::string_dec_eq(x_0, x_31); lean::dec(x_0); if (x_34 == 0) { -obj* x_38; obj* x_39; obj* x_40; obj* x_44; +obj* x_38; obj* x_39; obj* x_40; obj* x_42; lean::dec(x_17); lean::dec(x_26); x_38 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_38, 0, x_5); x_39 = lean::box(0); x_40 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_31, x_2, x_38, x_39, x_7, x_22, x_15); -lean::dec(x_22); lean::dec(x_7); -lean::dec(x_38); -x_44 = lean::cnstr_get(x_40, 0); -lean::inc(x_44); -if (lean::obj_tag(x_44) == 0) +x_42 = lean::cnstr_get(x_40, 0); +lean::inc(x_42); +if (lean::obj_tag(x_42) == 0) { -obj* x_46; obj* x_48; obj* x_49; obj* x_51; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; -x_46 = lean::cnstr_get(x_40, 1); +obj* x_44; obj* x_46; obj* x_47; obj* x_49; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; +x_44 = lean::cnstr_get(x_40, 1); if (lean::is_exclusive(x_40)) { lean::cnstr_release(x_40, 0); - x_48 = x_40; + x_46 = x_40; } else { - lean::inc(x_46); + lean::inc(x_44); lean::dec(x_40); - x_48 = lean::box(0); + x_46 = lean::box(0); } -x_49 = lean::cnstr_get(x_44, 1); -x_51 = lean::cnstr_get(x_44, 2); -if (lean::is_exclusive(x_44)) { - lean::cnstr_release(x_44, 0); - x_53 = x_44; +x_47 = lean::cnstr_get(x_42, 1); +x_49 = lean::cnstr_get(x_42, 2); +if (lean::is_exclusive(x_42)) { + lean::cnstr_release(x_42, 0); + x_51 = x_42; } else { + lean::inc(x_47); lean::inc(x_49); - lean::inc(x_51); - lean::dec(x_44); - x_53 = lean::box(0); + lean::dec(x_42); + x_51 = lean::box(0); } -x_54 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_53)) { - x_55 = lean::alloc_cnstr(0, 3, 0); +x_52 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_51)) { + x_53 = lean::alloc_cnstr(0, 3, 0); } else { - x_55 = x_53; + x_53 = x_51; } -lean::cnstr_set(x_55, 0, x_20); -lean::cnstr_set(x_55, 1, x_49); -lean::cnstr_set(x_55, 2, x_54); -x_56 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_51, x_55); -x_57 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_24, x_56); -x_58 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_54, x_57); -x_59 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_58, x_19); -x_60 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_59); -if (lean::is_scalar(x_48)) { - x_61 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_53, 0, x_20); +lean::cnstr_set(x_53, 1, x_47); +lean::cnstr_set(x_53, 2, x_52); +x_54 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_49, x_53); +x_55 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_24, x_54); +x_56 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_52, x_55); +x_57 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_56, x_19); +x_58 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_57); +if (lean::is_scalar(x_46)) { + x_59 = lean::alloc_cnstr(0, 2, 0); } else { - x_61 = x_48; + x_59 = x_46; } -lean::cnstr_set(x_61, 0, x_60); -lean::cnstr_set(x_61, 1, x_46); -return x_61; +lean::cnstr_set(x_59, 0, x_58); +lean::cnstr_set(x_59, 1, x_44); +return x_59; } else { -obj* x_63; obj* x_65; obj* x_66; uint8 x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; +obj* x_61; obj* x_63; obj* x_64; uint8 x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; lean::dec(x_20); -x_63 = lean::cnstr_get(x_40, 1); +x_61 = lean::cnstr_get(x_40, 1); if (lean::is_exclusive(x_40)) { lean::cnstr_release(x_40, 0); - x_65 = x_40; + x_63 = x_40; } else { - lean::inc(x_63); + lean::inc(x_61); lean::dec(x_40); - x_65 = lean::box(0); + x_63 = lean::box(0); } -x_66 = lean::cnstr_get(x_44, 0); -x_68 = lean::cnstr_get_scalar(x_44, sizeof(void*)*1); -if (lean::is_exclusive(x_44)) { - x_69 = x_44; +x_64 = lean::cnstr_get(x_42, 0); +x_66 = lean::cnstr_get_scalar(x_42, sizeof(void*)*1); +if (lean::is_exclusive(x_42)) { + x_67 = x_42; } else { - lean::inc(x_66); - lean::dec(x_44); - x_69 = lean::box(0); + lean::inc(x_64); + lean::dec(x_42); + x_67 = lean::box(0); } -if (lean::is_scalar(x_69)) { - x_70 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_67)) { + x_68 = lean::alloc_cnstr(1, 1, 1); } else { - x_70 = x_69; + x_68 = x_67; } -lean::cnstr_set(x_70, 0, x_66); -lean::cnstr_set_scalar(x_70, sizeof(void*)*1, x_68); -x_71 = x_70; -x_72 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_24, x_71); -x_73 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_74 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_73, x_72); -x_75 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_74, x_19); -x_76 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_75); -if (lean::is_scalar(x_65)) { - x_77 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_68, 0, x_64); +lean::cnstr_set_scalar(x_68, sizeof(void*)*1, x_66); +x_69 = x_68; +x_70 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_24, x_69); +x_71 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_72 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_71, x_70); +x_73 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_72, x_19); +x_74 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_73); +if (lean::is_scalar(x_63)) { + x_75 = lean::alloc_cnstr(0, 2, 0); } else { - x_77 = x_65; + x_75 = x_63; } -lean::cnstr_set(x_77, 0, x_76); -lean::cnstr_set(x_77, 1, x_63); -return x_77; +lean::cnstr_set(x_75, 0, x_74); +lean::cnstr_set(x_75, 1, x_61); +return x_75; } } else { -obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; +obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; lean::dec(x_5); lean::dec(x_7); lean::dec(x_2); lean::dec(x_31); -x_82 = l_Lean_Parser_finishCommentBlock___closed__2; +x_80 = l_Lean_Parser_finishCommentBlock___closed__2; if (lean::is_scalar(x_26)) { - x_83 = lean::alloc_cnstr(0, 3, 0); + x_81 = lean::alloc_cnstr(0, 3, 0); } else { - x_83 = x_26; + x_81 = x_26; } -lean::cnstr_set(x_83, 0, x_20); -lean::cnstr_set(x_83, 1, x_22); -lean::cnstr_set(x_83, 2, x_82); -x_84 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_24, x_83); -x_85 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_86 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_85, x_84); -x_87 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_86, x_19); -x_88 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_87); +lean::cnstr_set(x_81, 0, x_20); +lean::cnstr_set(x_81, 1, x_22); +lean::cnstr_set(x_81, 2, x_80); +x_82 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_24, x_81); +x_83 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_84 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_83, x_82); +x_85 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_84, x_19); +x_86 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_85); if (lean::is_scalar(x_17)) { - x_89 = lean::alloc_cnstr(0, 2, 0); + x_87 = lean::alloc_cnstr(0, 2, 0); } else { - x_89 = x_17; + x_87 = x_17; } -lean::cnstr_set(x_89, 0, x_88); -lean::cnstr_set(x_89, 1, x_15); -return x_89; +lean::cnstr_set(x_87, 0, x_86); +lean::cnstr_set(x_87, 1, x_15); +return x_87; } } case 3: { -obj* x_93; +obj* x_91; lean::dec(x_17); lean::dec(x_26); lean::dec(x_0); -x_93 = lean::box(0); -x_27 = x_93; +x_91 = lean::box(0); +x_27 = x_91; goto lbl_28; } default: { -obj* x_98; +obj* x_96; lean::dec(x_17); lean::dec(x_26); lean::dec(x_0); lean::dec(x_20); -x_98 = lean::box(0); -x_27 = x_98; +x_96 = lean::box(0); +x_27 = x_96; goto lbl_28; } } lbl_28: { -obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_107; obj* x_109; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; +obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_103; obj* x_105; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; lean::dec(x_27); -x_100 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_100, 0, x_5); -x_101 = lean::box(0); -x_102 = l_String_splitAux___main___closed__1; -x_103 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_102, x_2, x_100, x_101, x_7, x_22, x_15); -lean::dec(x_22); +x_98 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_98, 0, x_5); +x_99 = lean::box(0); +x_100 = l_String_splitAux___main___closed__1; +x_101 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_100, x_2, x_98, x_99, x_7, x_22, x_15); lean::dec(x_7); -lean::dec(x_100); -x_107 = lean::cnstr_get(x_103, 0); -x_109 = lean::cnstr_get(x_103, 1); -if (lean::is_exclusive(x_103)) { - x_111 = x_103; +x_103 = lean::cnstr_get(x_101, 0); +x_105 = lean::cnstr_get(x_101, 1); +if (lean::is_exclusive(x_101)) { + x_107 = x_101; } else { - lean::inc(x_107); - lean::inc(x_109); - lean::dec(x_103); - x_111 = lean::box(0); + lean::inc(x_103); + lean::inc(x_105); + lean::dec(x_101); + x_107 = lean::box(0); } -x_112 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_24, x_107); -x_113 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_114 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_113, x_112); -x_115 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_114, x_19); -x_116 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_115); -if (lean::is_scalar(x_111)) { - x_117 = lean::alloc_cnstr(0, 2, 0); +x_108 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_24, x_103); +x_109 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_110 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_109, x_108); +x_111 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_110, x_19); +x_112 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_111); +if (lean::is_scalar(x_107)) { + x_113 = lean::alloc_cnstr(0, 2, 0); } else { - x_117 = x_111; + x_113 = x_107; } -lean::cnstr_set(x_117, 0, x_116); -lean::cnstr_set(x_117, 1, x_109); -return x_117; +lean::cnstr_set(x_113, 0, x_112); +lean::cnstr_set(x_113, 1, x_105); +return x_113; } } else { -obj* x_122; uint8 x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; obj* x_129; obj* x_130; obj* x_131; obj* x_132; +obj* x_118; uint8 x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; lean::dec(x_5); lean::dec(x_7); lean::dec(x_0); lean::dec(x_2); -x_122 = lean::cnstr_get(x_13, 0); -x_124 = lean::cnstr_get_scalar(x_13, sizeof(void*)*1); +x_118 = lean::cnstr_get(x_13, 0); +x_120 = lean::cnstr_get_scalar(x_13, sizeof(void*)*1); if (lean::is_exclusive(x_13)) { - x_125 = x_13; + x_121 = x_13; } else { - lean::inc(x_122); + lean::inc(x_118); lean::dec(x_13); - x_125 = lean::box(0); + x_121 = lean::box(0); } -if (lean::is_scalar(x_125)) { - x_126 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_121)) { + x_122 = lean::alloc_cnstr(1, 1, 1); } else { - x_126 = x_125; + x_122 = x_121; } -lean::cnstr_set(x_126, 0, x_122); -lean::cnstr_set_scalar(x_126, sizeof(void*)*1, x_124); -x_127 = x_126; -x_128 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_129 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_128, x_127); -x_130 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_129, x_19); -x_131 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_130); +lean::cnstr_set(x_122, 0, x_118); +lean::cnstr_set_scalar(x_122, sizeof(void*)*1, x_120); +x_123 = x_122; +x_124 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_125 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_124, x_123); +x_126 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_125, x_19); +x_127 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_126); if (lean::is_scalar(x_17)) { - x_132 = lean::alloc_cnstr(0, 2, 0); + x_128 = lean::alloc_cnstr(0, 2, 0); } else { - x_132 = x_17; + x_128 = x_17; } -lean::cnstr_set(x_132, 0, x_131); -lean::cnstr_set(x_132, 1, x_15); -return x_132; +lean::cnstr_set(x_128, 0, x_127); +lean::cnstr_set(x_128, 1, x_15); +return x_128; } } } @@ -1657,22 +1552,46 @@ return x_43; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__4___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { _start: { -obj* x_8; obj* x_9; uint8 x_10; obj* x_11; obj* x_12; obj* x_13; -x_8 = l_Option_getOrElse___main___rarg(x_2, x_6); -x_9 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -lean::cnstr_set(x_9, 2, x_1); -lean::cnstr_set(x_9, 3, x_3); -x_10 = 0; -x_11 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_11, 0, x_9); -lean::cnstr_set_scalar(x_11, sizeof(void*)*1, x_10); -x_12 = x_11; -x_13 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_13, 0, x_12); -lean::cnstr_set(x_13, 1, x_7); -return x_13; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_8; uint8 x_9; obj* x_10; obj* x_11; obj* x_12; +x_8 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_8, 0, x_6); +lean::cnstr_set(x_8, 1, x_0); +lean::cnstr_set(x_8, 2, x_1); +lean::cnstr_set(x_8, 3, x_3); +x_9 = 0; +x_10 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_10, 0, x_8); +lean::cnstr_set_scalar(x_10, sizeof(void*)*1, x_9); +x_11 = x_10; +x_12 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_7); +return x_12; +} +else +{ +obj* x_14; obj* x_17; uint8 x_18; obj* x_19; obj* x_20; obj* x_21; +lean::dec(x_6); +x_14 = lean::cnstr_get(x_2, 0); +lean::inc(x_14); +lean::dec(x_2); +x_17 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_17, 0, x_14); +lean::cnstr_set(x_17, 1, x_0); +lean::cnstr_set(x_17, 2, x_1); +lean::cnstr_set(x_17, 3, x_3); +x_18 = 0; +x_19 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_19, 0, x_17); +lean::cnstr_set_scalar(x_19, sizeof(void*)*1, x_18); +x_20 = x_19; +x_21 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_21, 0, x_20); +lean::cnstr_set(x_21, 1, x_7); +return x_21; +} } } obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__4(obj* x_0) { @@ -1690,85 +1609,83 @@ uint8 x_4; x_4 = l_String_OldIterator_hasNext___main(x_2); if (x_4 == 0) { -obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; +obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; x_5 = lean::box(0); x_6 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_7 = l_mjoin___rarg___closed__1; x_8 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_6, x_7, x_5, x_5, x_0, x_1, x_2, x_3); -lean::dec(x_2); -x_10 = lean::cnstr_get(x_8, 0); -x_12 = lean::cnstr_get(x_8, 1); +x_9 = lean::cnstr_get(x_8, 0); +x_11 = lean::cnstr_get(x_8, 1); if (lean::is_exclusive(x_8)) { - x_14 = x_8; + x_13 = x_8; } else { - lean::inc(x_10); - lean::inc(x_12); + lean::inc(x_9); + lean::inc(x_11); lean::dec(x_8); - x_14 = lean::box(0); + x_13 = lean::box(0); } -x_15 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_16 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_10); -if (lean::is_scalar(x_14)) { - x_17 = lean::alloc_cnstr(0, 2, 0); +x_14 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_15 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_9); +if (lean::is_scalar(x_13)) { + x_16 = lean::alloc_cnstr(0, 2, 0); } else { - x_17 = x_14; + x_16 = x_13; } -lean::cnstr_set(x_17, 0, x_16); -lean::cnstr_set(x_17, 1, x_12); -return x_17; +lean::cnstr_set(x_16, 0, x_15); +lean::cnstr_set(x_16, 1, x_11); +return x_16; } else { -uint32 x_18; uint8 x_19; -x_18 = l_String_OldIterator_curr___main(x_2); -x_19 = l_True_Decidable; -if (x_19 == 0) +uint32 x_17; uint8 x_18; +x_17 = l_String_OldIterator_curr___main(x_2); +x_18 = l_True_Decidable; +if (x_18 == 0) { -obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_36; -x_20 = l_Char_quoteCore(x_18); -x_21 = l_Char_HasRepr___closed__1; -x_22 = lean::string_append(x_21, x_20); -lean::dec(x_20); -x_24 = lean::string_append(x_22, x_21); -x_25 = lean::box(0); -x_26 = l_mjoin___rarg___closed__1; -x_27 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_24, x_26, x_25, x_25, x_0, x_1, x_2, x_3); -lean::dec(x_2); -x_29 = lean::cnstr_get(x_27, 0); -x_31 = lean::cnstr_get(x_27, 1); -if (lean::is_exclusive(x_27)) { - x_33 = x_27; +obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; +x_19 = l_Char_quoteCore(x_17); +x_20 = l_Char_HasRepr___closed__1; +x_21 = lean::string_append(x_20, x_19); +lean::dec(x_19); +x_23 = lean::string_append(x_21, x_20); +x_24 = lean::box(0); +x_25 = l_mjoin___rarg___closed__1; +x_26 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_23, x_25, x_24, x_24, x_0, x_1, x_2, x_3); +x_27 = lean::cnstr_get(x_26, 0); +x_29 = lean::cnstr_get(x_26, 1); +if (lean::is_exclusive(x_26)) { + x_31 = x_26; } else { + lean::inc(x_27); lean::inc(x_29); - lean::inc(x_31); - lean::dec(x_27); - x_33 = lean::box(0); + lean::dec(x_26); + x_31 = lean::box(0); } -x_34 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_35 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_34, x_29); -if (lean::is_scalar(x_33)) { - x_36 = lean::alloc_cnstr(0, 2, 0); +x_32 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_33 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_32, x_27); +if (lean::is_scalar(x_31)) { + x_34 = lean::alloc_cnstr(0, 2, 0); } else { - x_36 = x_33; + x_34 = x_31; } -lean::cnstr_set(x_36, 0, x_35); -lean::cnstr_set(x_36, 1, x_31); -return x_36; +lean::cnstr_set(x_34, 0, x_33); +lean::cnstr_set(x_34, 1, x_29); +return x_34; } else { -obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_37 = l_String_OldIterator_next___main(x_2); -x_38 = lean::box(0); -x_39 = lean::box_uint32(x_18); -x_40 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_40, 0, x_39); -lean::cnstr_set(x_40, 1, x_37); -lean::cnstr_set(x_40, 2, x_38); -x_41 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_3); -return x_41; +obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; +x_35 = l_String_OldIterator_next___main(x_2); +x_36 = lean::box(0); +x_37 = lean::box_uint32(x_17); +x_38 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_35); +lean::cnstr_set(x_38, 2, x_36); +x_39 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_3); +return x_39; } } } @@ -2650,10 +2567,8 @@ _start: { obj* x_8; x_8 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7); -lean::dec(x_2); lean::dec(x_4); lean::dec(x_5); -lean::dec(x_6); return x_8; } } @@ -3234,7 +3149,7 @@ lean::inc(x_9); x_11 = lean::unbox(x_9); if (x_11 == 0) { -obj* x_12; obj* x_15; obj* x_17; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_27; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; +obj* x_12; obj* x_15; obj* x_17; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32; x_12 = lean::cnstr_get(x_6, 1); lean::inc(x_12); lean::dec(x_6); @@ -3249,272 +3164,270 @@ x_21 = lean::box(0); x_22 = l___private_init_lean_parser_token_2__whitespaceAux___main___closed__2; x_23 = l_mjoin___rarg___closed__1; x_24 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_22, x_23, x_20, x_21, x_1, x_2, x_15, x_12); -lean::dec(x_15); -lean::dec(x_20); -x_27 = lean::cnstr_get(x_24, 0); -x_29 = lean::cnstr_get(x_24, 1); +x_25 = lean::cnstr_get(x_24, 0); +x_27 = lean::cnstr_get(x_24, 1); if (lean::is_exclusive(x_24)) { lean::cnstr_set(x_24, 0, lean::box(0)); lean::cnstr_set(x_24, 1, lean::box(0)); - x_31 = x_24; + x_29 = x_24; } else { + lean::inc(x_25); lean::inc(x_27); - lean::inc(x_29); lean::dec(x_24); - x_31 = lean::box(0); + x_29 = lean::box(0); } -x_32 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_27); -x_33 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_34 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_33, x_32); -if (lean::obj_tag(x_34) == 0) +x_30 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_25); +x_31 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_32 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_31, x_30); +if (lean::obj_tag(x_32) == 0) { -obj* x_36; obj* x_38; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_47; obj* x_48; -lean::dec(x_31); -x_36 = lean::cnstr_get(x_34, 1); +obj* x_34; obj* x_36; obj* x_39; obj* x_40; obj* x_42; obj* x_44; obj* x_45; obj* x_46; +lean::dec(x_29); +x_34 = lean::cnstr_get(x_32, 1); +lean::inc(x_34); +x_36 = lean::cnstr_get(x_32, 2); lean::inc(x_36); -x_38 = lean::cnstr_get(x_34, 2); -lean::inc(x_38); -lean::dec(x_34); -x_41 = l_Lean_Parser_MonadParsec_any___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__5(x_1, x_2, x_36, x_29); -x_42 = lean::cnstr_get(x_41, 0); -x_44 = lean::cnstr_get(x_41, 1); -if (lean::is_exclusive(x_41)) { - x_46 = x_41; +lean::dec(x_32); +x_39 = l_Lean_Parser_MonadParsec_any___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__5(x_1, x_2, x_34, x_27); +x_40 = lean::cnstr_get(x_39, 0); +x_42 = lean::cnstr_get(x_39, 1); +if (lean::is_exclusive(x_39)) { + x_44 = x_39; } else { + lean::inc(x_40); lean::inc(x_42); - lean::inc(x_44); - lean::dec(x_41); - x_46 = lean::box(0); + lean::dec(x_39); + x_44 = lean::box(0); } -x_47 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_42); -if (lean::is_scalar(x_46)) { - x_48 = lean::alloc_cnstr(0, 2, 0); +x_45 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_36, x_40); +if (lean::is_scalar(x_44)) { + x_46 = lean::alloc_cnstr(0, 2, 0); } else { - x_48 = x_46; + x_46 = x_44; } -lean::cnstr_set(x_48, 0, x_47); -lean::cnstr_set(x_48, 1, x_44); -return x_48; +lean::cnstr_set(x_46, 0, x_45); +lean::cnstr_set(x_46, 1, x_42); +return x_46; } else { -obj* x_49; uint8 x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; -x_49 = lean::cnstr_get(x_34, 0); -x_51 = lean::cnstr_get_scalar(x_34, sizeof(void*)*1); -if (lean::is_exclusive(x_34)) { - x_52 = x_34; +obj* x_47; uint8 x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_47 = lean::cnstr_get(x_32, 0); +x_49 = lean::cnstr_get_scalar(x_32, sizeof(void*)*1); +if (lean::is_exclusive(x_32)) { + x_50 = x_32; } else { - lean::inc(x_49); - lean::dec(x_34); - x_52 = lean::box(0); + lean::inc(x_47); + lean::dec(x_32); + x_50 = lean::box(0); } -if (lean::is_scalar(x_52)) { - x_53 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_50)) { + x_51 = lean::alloc_cnstr(1, 1, 1); } else { - x_53 = x_52; + x_51 = x_50; } -lean::cnstr_set(x_53, 0, x_49); -lean::cnstr_set_scalar(x_53, sizeof(void*)*1, x_51); -x_54 = x_53; -if (lean::is_scalar(x_31)) { - x_55 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_51, 0, x_47); +lean::cnstr_set_scalar(x_51, sizeof(void*)*1, x_49); +x_52 = x_51; +if (lean::is_scalar(x_29)) { + x_53 = lean::alloc_cnstr(0, 2, 0); } else { - x_55 = x_31; + x_53 = x_29; } -lean::cnstr_set(x_55, 0, x_54); -lean::cnstr_set(x_55, 1, x_29); -return x_55; +lean::cnstr_set(x_53, 0, x_52); +lean::cnstr_set(x_53, 1, x_27); +return x_53; } } else { -obj* x_57; obj* x_59; obj* x_60; obj* x_62; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; +obj* x_55; obj* x_57; obj* x_58; obj* x_60; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; lean::dec(x_3); -x_57 = lean::cnstr_get(x_6, 1); +x_55 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); lean::cnstr_set(x_6, 1, lean::box(0)); - x_59 = x_6; + x_57 = x_6; } else { - lean::inc(x_57); + lean::inc(x_55); lean::dec(x_6); - x_59 = lean::box(0); + x_57 = lean::box(0); } -x_60 = lean::cnstr_get(x_7, 1); -x_62 = lean::cnstr_get(x_7, 2); +x_58 = lean::cnstr_get(x_7, 1); +x_60 = lean::cnstr_get(x_7, 2); if (lean::is_exclusive(x_7)) { lean::cnstr_release(x_7, 0); - x_64 = x_7; + x_62 = x_7; } else { + lean::inc(x_58); lean::inc(x_60); - lean::inc(x_62); lean::dec(x_7); - x_64 = lean::box(0); + x_62 = lean::box(0); } -x_65 = lean::box(0); -x_66 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_64)) { - x_67 = lean::alloc_cnstr(0, 3, 0); +x_63 = lean::box(0); +x_64 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_62)) { + x_65 = lean::alloc_cnstr(0, 3, 0); } else { - x_67 = x_64; + x_65 = x_62; } -lean::cnstr_set(x_67, 0, x_65); -lean::cnstr_set(x_67, 1, x_60); -lean::cnstr_set(x_67, 2, x_66); -x_68 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_62, x_67); -x_69 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_66, x_68); -if (lean::obj_tag(x_69) == 0) +lean::cnstr_set(x_65, 0, x_63); +lean::cnstr_set(x_65, 1, x_58); +lean::cnstr_set(x_65, 2, x_64); +x_66 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_60, x_65); +x_67 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_64, x_66); +if (lean::obj_tag(x_67) == 0) { -obj* x_71; obj* x_73; obj* x_76; obj* x_77; obj* x_79; obj* x_81; obj* x_82; obj* x_83; -lean::dec(x_59); -x_71 = lean::cnstr_get(x_69, 1); +obj* x_69; obj* x_71; obj* x_74; obj* x_75; obj* x_77; obj* x_79; obj* x_80; obj* x_81; +lean::dec(x_57); +x_69 = lean::cnstr_get(x_67, 1); +lean::inc(x_69); +x_71 = lean::cnstr_get(x_67, 2); lean::inc(x_71); -x_73 = lean::cnstr_get(x_69, 2); -lean::inc(x_73); -lean::dec(x_69); -x_76 = l_Lean_Parser_MonadParsec_any___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__5(x_1, x_2, x_71, x_57); -x_77 = lean::cnstr_get(x_76, 0); -x_79 = lean::cnstr_get(x_76, 1); -if (lean::is_exclusive(x_76)) { - x_81 = x_76; +lean::dec(x_67); +x_74 = l_Lean_Parser_MonadParsec_any___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__5(x_1, x_2, x_69, x_55); +x_75 = lean::cnstr_get(x_74, 0); +x_77 = lean::cnstr_get(x_74, 1); +if (lean::is_exclusive(x_74)) { + x_79 = x_74; } else { + lean::inc(x_75); lean::inc(x_77); - lean::inc(x_79); - lean::dec(x_76); - x_81 = lean::box(0); + lean::dec(x_74); + x_79 = lean::box(0); } -x_82 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_73, x_77); -if (lean::is_scalar(x_81)) { - x_83 = lean::alloc_cnstr(0, 2, 0); +x_80 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_71, x_75); +if (lean::is_scalar(x_79)) { + x_81 = lean::alloc_cnstr(0, 2, 0); } else { - x_83 = x_81; + x_81 = x_79; } -lean::cnstr_set(x_83, 0, x_82); -lean::cnstr_set(x_83, 1, x_79); -return x_83; +lean::cnstr_set(x_81, 0, x_80); +lean::cnstr_set(x_81, 1, x_77); +return x_81; } else { -obj* x_84; uint8 x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; -x_84 = lean::cnstr_get(x_69, 0); -x_86 = lean::cnstr_get_scalar(x_69, sizeof(void*)*1); -if (lean::is_exclusive(x_69)) { - x_87 = x_69; +obj* x_82; uint8 x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; +x_82 = lean::cnstr_get(x_67, 0); +x_84 = lean::cnstr_get_scalar(x_67, sizeof(void*)*1); +if (lean::is_exclusive(x_67)) { + x_85 = x_67; } else { - lean::inc(x_84); - lean::dec(x_69); - x_87 = lean::box(0); + lean::inc(x_82); + lean::dec(x_67); + x_85 = lean::box(0); } -if (lean::is_scalar(x_87)) { - x_88 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_85)) { + x_86 = lean::alloc_cnstr(1, 1, 1); } else { - x_88 = x_87; + x_86 = x_85; } -lean::cnstr_set(x_88, 0, x_84); -lean::cnstr_set_scalar(x_88, sizeof(void*)*1, x_86); -x_89 = x_88; -if (lean::is_scalar(x_59)) { - x_90 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_86, 0, x_82); +lean::cnstr_set_scalar(x_86, sizeof(void*)*1, x_84); +x_87 = x_86; +if (lean::is_scalar(x_57)) { + x_88 = lean::alloc_cnstr(0, 2, 0); } else { - x_90 = x_59; + x_88 = x_57; } -lean::cnstr_set(x_90, 0, x_89); -lean::cnstr_set(x_90, 1, x_57); -return x_90; +lean::cnstr_set(x_88, 0, x_87); +lean::cnstr_set(x_88, 1, x_55); +return x_88; } } } else { -obj* x_92; obj* x_94; obj* x_95; uint8 x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; +obj* x_90; obj* x_92; obj* x_93; uint8 x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; lean::dec(x_3); -x_92 = lean::cnstr_get(x_6, 1); +x_90 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); lean::cnstr_set(x_6, 1, lean::box(0)); - x_94 = x_6; + x_92 = x_6; } else { - lean::inc(x_92); + lean::inc(x_90); lean::dec(x_6); - x_94 = lean::box(0); + x_92 = lean::box(0); } -x_95 = lean::cnstr_get(x_7, 0); -x_97 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); +x_93 = lean::cnstr_get(x_7, 0); +x_95 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); if (lean::is_exclusive(x_7)) { - x_98 = x_7; + x_96 = x_7; } else { - lean::inc(x_95); + lean::inc(x_93); lean::dec(x_7); - x_98 = lean::box(0); + x_96 = lean::box(0); } -if (lean::is_scalar(x_98)) { - x_99 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_96)) { + x_97 = lean::alloc_cnstr(1, 1, 1); } else { - x_99 = x_98; + x_97 = x_96; } -lean::cnstr_set(x_99, 0, x_95); -lean::cnstr_set_scalar(x_99, sizeof(void*)*1, x_97); -x_100 = x_99; -x_101 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_102 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_101, x_100); -if (lean::obj_tag(x_102) == 0) +lean::cnstr_set(x_97, 0, x_93); +lean::cnstr_set_scalar(x_97, sizeof(void*)*1, x_95); +x_98 = x_97; +x_99 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_100 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_99, x_98); +if (lean::obj_tag(x_100) == 0) { -obj* x_104; obj* x_106; obj* x_109; obj* x_110; obj* x_112; obj* x_114; obj* x_115; obj* x_116; -lean::dec(x_94); -x_104 = lean::cnstr_get(x_102, 1); +obj* x_102; obj* x_104; obj* x_107; obj* x_108; obj* x_110; obj* x_112; obj* x_113; obj* x_114; +lean::dec(x_92); +x_102 = lean::cnstr_get(x_100, 1); +lean::inc(x_102); +x_104 = lean::cnstr_get(x_100, 2); lean::inc(x_104); -x_106 = lean::cnstr_get(x_102, 2); -lean::inc(x_106); -lean::dec(x_102); -x_109 = l_Lean_Parser_MonadParsec_any___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__5(x_1, x_2, x_104, x_92); -x_110 = lean::cnstr_get(x_109, 0); -x_112 = lean::cnstr_get(x_109, 1); -if (lean::is_exclusive(x_109)) { - x_114 = x_109; +lean::dec(x_100); +x_107 = l_Lean_Parser_MonadParsec_any___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__5(x_1, x_2, x_102, x_90); +x_108 = lean::cnstr_get(x_107, 0); +x_110 = lean::cnstr_get(x_107, 1); +if (lean::is_exclusive(x_107)) { + x_112 = x_107; } else { + lean::inc(x_108); lean::inc(x_110); - lean::inc(x_112); - lean::dec(x_109); - x_114 = lean::box(0); + lean::dec(x_107); + x_112 = lean::box(0); } -x_115 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_106, x_110); -if (lean::is_scalar(x_114)) { - x_116 = lean::alloc_cnstr(0, 2, 0); +x_113 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_104, x_108); +if (lean::is_scalar(x_112)) { + x_114 = lean::alloc_cnstr(0, 2, 0); } else { - x_116 = x_114; + x_114 = x_112; } -lean::cnstr_set(x_116, 0, x_115); -lean::cnstr_set(x_116, 1, x_112); -return x_116; +lean::cnstr_set(x_114, 0, x_113); +lean::cnstr_set(x_114, 1, x_110); +return x_114; } else { -obj* x_117; uint8 x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; -x_117 = lean::cnstr_get(x_102, 0); -x_119 = lean::cnstr_get_scalar(x_102, sizeof(void*)*1); -if (lean::is_exclusive(x_102)) { - x_120 = x_102; +obj* x_115; uint8 x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; +x_115 = lean::cnstr_get(x_100, 0); +x_117 = lean::cnstr_get_scalar(x_100, sizeof(void*)*1); +if (lean::is_exclusive(x_100)) { + x_118 = x_100; } else { - lean::inc(x_117); - lean::dec(x_102); - x_120 = lean::box(0); + lean::inc(x_115); + lean::dec(x_100); + x_118 = lean::box(0); } -if (lean::is_scalar(x_120)) { - x_121 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_118)) { + x_119 = lean::alloc_cnstr(1, 1, 1); } else { - x_121 = x_120; + x_119 = x_118; } -lean::cnstr_set(x_121, 0, x_117); -lean::cnstr_set_scalar(x_121, sizeof(void*)*1, x_119); -x_122 = x_121; -if (lean::is_scalar(x_94)) { - x_123 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_119, 0, x_115); +lean::cnstr_set_scalar(x_119, sizeof(void*)*1, x_117); +x_120 = x_119; +if (lean::is_scalar(x_92)) { + x_121 = lean::alloc_cnstr(0, 2, 0); } else { - x_123 = x_94; + x_121 = x_92; } -lean::cnstr_set(x_123, 0, x_122); -lean::cnstr_set(x_123, 1, x_92); -return x_123; +lean::cnstr_set(x_121, 0, x_120); +lean::cnstr_set(x_121, 1, x_90); +return x_121; } } } @@ -4310,203 +4223,278 @@ goto lbl_20; } else { -obj* x_48; obj* x_51; obj* x_53; obj* x_54; obj* x_56; obj* x_59; obj* x_60; obj* x_62; obj* x_64; obj* x_67; obj* x_69; obj* x_70; obj* x_71; -x_48 = lean::cnstr_get(x_23, 1); -lean::inc(x_48); -lean::dec(x_23); -x_51 = lean::cnstr_get(x_24, 0); +obj* x_48; obj* x_50; obj* x_51; +x_48 = lean::cnstr_get(x_24, 0); if (lean::is_exclusive(x_24)) { lean::cnstr_set(x_24, 0, lean::box(0)); - x_53 = x_24; + x_50 = x_24; } else { - lean::inc(x_51); + lean::inc(x_48); lean::dec(x_24); - x_53 = lean::box(0); + x_50 = lean::box(0); } -x_54 = lean::cnstr_get(x_51, 3); -lean::inc(x_54); -x_56 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_54); -lean::dec(x_54); -lean::inc(x_1); -x_59 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_59, 0, x_56); -lean::cnstr_set(x_59, 1, x_1); -x_60 = lean::cnstr_get(x_51, 0); +x_51 = lean::cnstr_get(x_48, 3); +lean::inc(x_51); +if (lean::obj_tag(x_51) == 0) +{ +obj* x_53; obj* x_56; obj* x_58; obj* x_60; obj* x_63; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; +x_53 = lean::cnstr_get(x_23, 1); +lean::inc(x_53); +lean::dec(x_23); +x_56 = lean::cnstr_get(x_48, 0); +lean::inc(x_56); +x_58 = lean::cnstr_get(x_48, 1); +lean::inc(x_58); +x_60 = lean::cnstr_get(x_48, 2); lean::inc(x_60); -x_62 = lean::cnstr_get(x_51, 1); -lean::inc(x_62); -x_64 = lean::cnstr_get(x_51, 2); -lean::inc(x_64); -lean::dec(x_51); -x_67 = l_List_reverse___rarg(x_59); +lean::dec(x_48); +x_63 = lean::box(3); +lean::inc(x_1); +x_65 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_65, 0, x_63); +lean::cnstr_set(x_65, 1, x_1); +x_66 = l_List_reverse___rarg(x_65); lean::inc(x_0); -x_69 = l_Lean_Parser_Syntax_mkNode(x_0, x_67); -x_70 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_70, 0, x_69); -x_71 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_71, 0, x_60); -lean::cnstr_set(x_71, 1, x_62); -lean::cnstr_set(x_71, 2, x_64); -lean::cnstr_set(x_71, 3, x_70); +x_68 = l_Lean_Parser_Syntax_mkNode(x_0, x_66); +x_69 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_69, 0, x_68); +x_70 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_70, 0, x_56); +lean::cnstr_set(x_70, 1, x_58); +lean::cnstr_set(x_70, 2, x_60); +lean::cnstr_set(x_70, 3, x_69); if (x_29 == 0) { -uint8 x_72; obj* x_73; obj* x_74; -x_72 = 0; -if (lean::is_scalar(x_53)) { - x_73 = lean::alloc_cnstr(1, 1, 1); +uint8 x_71; obj* x_72; obj* x_73; +x_71 = 0; +if (lean::is_scalar(x_50)) { + x_72 = lean::alloc_cnstr(1, 1, 1); } else { - x_73 = x_53; + x_72 = x_50; } -lean::cnstr_set(x_73, 0, x_71); -lean::cnstr_set_scalar(x_73, sizeof(void*)*1, x_72); -x_74 = x_73; -x_18 = x_74; -x_19 = x_48; +lean::cnstr_set(x_72, 0, x_70); +lean::cnstr_set_scalar(x_72, sizeof(void*)*1, x_71); +x_73 = x_72; +x_18 = x_73; +x_19 = x_53; goto lbl_20; } else { -uint8 x_75; obj* x_76; obj* x_77; -x_75 = 1; -if (lean::is_scalar(x_53)) { - x_76 = lean::alloc_cnstr(1, 1, 1); +uint8 x_74; obj* x_75; obj* x_76; +x_74 = 1; +if (lean::is_scalar(x_50)) { + x_75 = lean::alloc_cnstr(1, 1, 1); } else { - x_76 = x_53; + x_75 = x_50; } -lean::cnstr_set(x_76, 0, x_71); -lean::cnstr_set_scalar(x_76, sizeof(void*)*1, x_75); -x_77 = x_76; -x_18 = x_77; -x_19 = x_48; +lean::cnstr_set(x_75, 0, x_70); +lean::cnstr_set_scalar(x_75, sizeof(void*)*1, x_74); +x_76 = x_75; +x_18 = x_76; +x_19 = x_53; goto lbl_20; } } +else +{ +obj* x_77; obj* x_80; obj* x_82; obj* x_84; obj* x_87; obj* x_89; obj* x_91; obj* x_92; obj* x_94; obj* x_95; obj* x_96; +x_77 = lean::cnstr_get(x_23, 1); +lean::inc(x_77); +lean::dec(x_23); +x_80 = lean::cnstr_get(x_48, 0); +lean::inc(x_80); +x_82 = lean::cnstr_get(x_48, 1); +lean::inc(x_82); +x_84 = lean::cnstr_get(x_48, 2); +lean::inc(x_84); +lean::dec(x_48); +x_87 = lean::cnstr_get(x_51, 0); +if (lean::is_exclusive(x_51)) { + x_89 = x_51; +} else { + lean::inc(x_87); + lean::dec(x_51); + x_89 = lean::box(0); +} +lean::inc(x_1); +x_91 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_91, 0, x_87); +lean::cnstr_set(x_91, 1, x_1); +x_92 = l_List_reverse___rarg(x_91); +lean::inc(x_0); +x_94 = l_Lean_Parser_Syntax_mkNode(x_0, x_92); +if (lean::is_scalar(x_89)) { + x_95 = lean::alloc_cnstr(1, 1, 0); +} else { + x_95 = x_89; +} +lean::cnstr_set(x_95, 0, x_94); +x_96 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_96, 0, x_80); +lean::cnstr_set(x_96, 1, x_82); +lean::cnstr_set(x_96, 2, x_84); +lean::cnstr_set(x_96, 3, x_95); +if (x_29 == 0) +{ +uint8 x_97; obj* x_98; obj* x_99; +x_97 = 0; +if (lean::is_scalar(x_50)) { + x_98 = lean::alloc_cnstr(1, 1, 1); +} else { + x_98 = x_50; +} +lean::cnstr_set(x_98, 0, x_96); +lean::cnstr_set_scalar(x_98, sizeof(void*)*1, x_97); +x_99 = x_98; +x_18 = x_99; +x_19 = x_77; +goto lbl_20; +} +else +{ +uint8 x_100; obj* x_101; obj* x_102; +x_100 = 1; +if (lean::is_scalar(x_50)) { + x_101 = lean::alloc_cnstr(1, 1, 1); +} else { + x_101 = x_50; +} +lean::cnstr_set(x_101, 0, x_96); +lean::cnstr_set_scalar(x_101, sizeof(void*)*1, x_100); +x_102 = x_101; +x_18 = x_102; +x_19 = x_77; +goto lbl_20; +} +} +} } lbl_20: { if (lean::obj_tag(x_18) == 0) { -obj* x_78; obj* x_80; obj* x_82; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; -x_78 = lean::cnstr_get(x_18, 0); -x_80 = lean::cnstr_get(x_18, 1); -x_82 = lean::cnstr_get(x_18, 2); +obj* x_103; obj* x_105; obj* x_107; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; +x_103 = lean::cnstr_get(x_18, 0); +x_105 = lean::cnstr_get(x_18, 1); +x_107 = lean::cnstr_get(x_18, 2); if (lean::is_exclusive(x_18)) { - x_84 = x_18; + x_109 = x_18; } else { - lean::inc(x_78); - lean::inc(x_80); - lean::inc(x_82); + lean::inc(x_103); + lean::inc(x_105); + lean::inc(x_107); lean::dec(x_18); - x_84 = lean::box(0); + x_109 = lean::box(0); } if (lean::is_scalar(x_17)) { - x_85 = lean::alloc_cnstr(1, 2, 0); + x_110 = lean::alloc_cnstr(1, 2, 0); } else { - x_85 = x_17; + x_110 = x_17; } -lean::cnstr_set(x_85, 0, x_78); -lean::cnstr_set(x_85, 1, x_1); -x_86 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_84)) { - x_87 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_110, 0, x_103); +lean::cnstr_set(x_110, 1, x_1); +x_111 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_109)) { + x_112 = lean::alloc_cnstr(0, 3, 0); } else { - x_87 = x_84; + x_112 = x_109; } -lean::cnstr_set(x_87, 0, x_85); -lean::cnstr_set(x_87, 1, x_80); -lean::cnstr_set(x_87, 2, x_86); -x_88 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_82, x_87); -if (lean::obj_tag(x_88) == 0) +lean::cnstr_set(x_112, 0, x_110); +lean::cnstr_set(x_112, 1, x_105); +lean::cnstr_set(x_112, 2, x_111); +x_113 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_107, x_112); +if (lean::obj_tag(x_113) == 0) { -obj* x_89; obj* x_91; obj* x_93; obj* x_96; obj* x_97; obj* x_99; obj* x_101; obj* x_102; obj* x_103; -x_89 = lean::cnstr_get(x_88, 0); -lean::inc(x_89); -x_91 = lean::cnstr_get(x_88, 1); -lean::inc(x_91); -x_93 = lean::cnstr_get(x_88, 2); -lean::inc(x_93); -lean::dec(x_88); -x_96 = l_List_mfoldl___main___at_Lean_Parser_command_docComment_Parser___spec__5(x_0, x_89, x_15, x_3, x_4, x_91, x_19); -x_97 = lean::cnstr_get(x_96, 0); -x_99 = lean::cnstr_get(x_96, 1); -if (lean::is_exclusive(x_96)) { - x_101 = x_96; +obj* x_114; obj* x_116; obj* x_118; obj* x_121; obj* x_122; obj* x_124; obj* x_126; obj* x_127; obj* x_128; +x_114 = lean::cnstr_get(x_113, 0); +lean::inc(x_114); +x_116 = lean::cnstr_get(x_113, 1); +lean::inc(x_116); +x_118 = lean::cnstr_get(x_113, 2); +lean::inc(x_118); +lean::dec(x_113); +x_121 = l_List_mfoldl___main___at_Lean_Parser_command_docComment_Parser___spec__5(x_0, x_114, x_15, x_3, x_4, x_116, x_19); +x_122 = lean::cnstr_get(x_121, 0); +x_124 = lean::cnstr_get(x_121, 1); +if (lean::is_exclusive(x_121)) { + x_126 = x_121; } else { - lean::inc(x_97); - lean::inc(x_99); - lean::dec(x_96); - x_101 = lean::box(0); + lean::inc(x_122); + lean::inc(x_124); + lean::dec(x_121); + x_126 = lean::box(0); } -x_102 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_93, x_97); -if (lean::is_scalar(x_101)) { - x_103 = lean::alloc_cnstr(0, 2, 0); +x_127 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_118, x_122); +if (lean::is_scalar(x_126)) { + x_128 = lean::alloc_cnstr(0, 2, 0); } else { - x_103 = x_101; + x_128 = x_126; } -lean::cnstr_set(x_103, 0, x_102); -lean::cnstr_set(x_103, 1, x_99); -return x_103; +lean::cnstr_set(x_128, 0, x_127); +lean::cnstr_set(x_128, 1, x_124); +return x_128; } else { -obj* x_108; uint8 x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; +obj* x_133; uint8 x_135; obj* x_136; obj* x_137; obj* x_138; obj* x_139; lean::dec(x_15); lean::dec(x_4); lean::dec(x_3); lean::dec(x_0); -x_108 = lean::cnstr_get(x_88, 0); -x_110 = lean::cnstr_get_scalar(x_88, sizeof(void*)*1); -if (lean::is_exclusive(x_88)) { - x_111 = x_88; +x_133 = lean::cnstr_get(x_113, 0); +x_135 = lean::cnstr_get_scalar(x_113, sizeof(void*)*1); +if (lean::is_exclusive(x_113)) { + x_136 = x_113; } else { - lean::inc(x_108); - lean::dec(x_88); - x_111 = lean::box(0); + lean::inc(x_133); + lean::dec(x_113); + x_136 = lean::box(0); } -if (lean::is_scalar(x_111)) { - x_112 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_136)) { + x_137 = lean::alloc_cnstr(1, 1, 1); } else { - x_112 = x_111; + x_137 = x_136; } -lean::cnstr_set(x_112, 0, x_108); -lean::cnstr_set_scalar(x_112, sizeof(void*)*1, x_110); -x_113 = x_112; -x_114 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_114, 0, x_113); -lean::cnstr_set(x_114, 1, x_19); -return x_114; +lean::cnstr_set(x_137, 0, x_133); +lean::cnstr_set_scalar(x_137, sizeof(void*)*1, x_135); +x_138 = x_137; +x_139 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_139, 0, x_138); +lean::cnstr_set(x_139, 1, x_19); +return x_139; } } else { -obj* x_121; uint8 x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; +obj* x_146; uint8 x_148; obj* x_149; obj* x_150; obj* x_151; obj* x_152; lean::dec(x_15); lean::dec(x_4); lean::dec(x_1); lean::dec(x_3); lean::dec(x_0); lean::dec(x_17); -x_121 = lean::cnstr_get(x_18, 0); -x_123 = lean::cnstr_get_scalar(x_18, sizeof(void*)*1); +x_146 = lean::cnstr_get(x_18, 0); +x_148 = lean::cnstr_get_scalar(x_18, sizeof(void*)*1); if (lean::is_exclusive(x_18)) { - x_124 = x_18; + x_149 = x_18; } else { - lean::inc(x_121); + lean::inc(x_146); lean::dec(x_18); - x_124 = lean::box(0); + x_149 = lean::box(0); } -if (lean::is_scalar(x_124)) { - x_125 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_149)) { + x_150 = lean::alloc_cnstr(1, 1, 1); } else { - x_125 = x_124; + x_150 = x_149; } -lean::cnstr_set(x_125, 0, x_121); -lean::cnstr_set_scalar(x_125, sizeof(void*)*1, x_123); -x_126 = x_125; -x_127 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_127, 0, x_126); -lean::cnstr_set(x_127, 1, x_19); -return x_127; +lean::cnstr_set(x_150, 0, x_146); +lean::cnstr_set_scalar(x_150, sizeof(void*)*1, x_148); +x_151 = x_150; +x_152 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_152, 0, x_151); +lean::cnstr_set(x_152, 1, x_19); +return x_152; } } } @@ -4623,7 +4611,7 @@ lean::inc(x_9); x_11 = lean::unbox(x_9); if (x_11 == 0) { -obj* x_12; obj* x_15; obj* x_17; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_27; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; +obj* x_12; obj* x_15; obj* x_17; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32; x_12 = lean::cnstr_get(x_6, 1); lean::inc(x_12); lean::dec(x_6); @@ -4638,272 +4626,270 @@ x_21 = lean::box(0); x_22 = l___private_init_lean_parser_token_2__whitespaceAux___main___closed__2; x_23 = l_mjoin___rarg___closed__1; x_24 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_22, x_23, x_20, x_21, x_1, x_2, x_15, x_12); -lean::dec(x_15); -lean::dec(x_20); -x_27 = lean::cnstr_get(x_24, 0); -x_29 = lean::cnstr_get(x_24, 1); +x_25 = lean::cnstr_get(x_24, 0); +x_27 = lean::cnstr_get(x_24, 1); if (lean::is_exclusive(x_24)) { lean::cnstr_set(x_24, 0, lean::box(0)); lean::cnstr_set(x_24, 1, lean::box(0)); - x_31 = x_24; + x_29 = x_24; } else { + lean::inc(x_25); lean::inc(x_27); - lean::inc(x_29); lean::dec(x_24); - x_31 = lean::box(0); + x_29 = lean::box(0); } -x_32 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_27); -x_33 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_34 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_33, x_32); -if (lean::obj_tag(x_34) == 0) +x_30 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_25); +x_31 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_32 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_31, x_30); +if (lean::obj_tag(x_32) == 0) { -obj* x_36; obj* x_38; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_47; obj* x_48; -lean::dec(x_31); -x_36 = lean::cnstr_get(x_34, 1); +obj* x_34; obj* x_36; obj* x_39; obj* x_40; obj* x_42; obj* x_44; obj* x_45; obj* x_46; +lean::dec(x_29); +x_34 = lean::cnstr_get(x_32, 1); +lean::inc(x_34); +x_36 = lean::cnstr_get(x_32, 2); lean::inc(x_36); -x_38 = lean::cnstr_get(x_34, 2); -lean::inc(x_38); -lean::dec(x_34); -x_41 = l_Lean_Parser_MonadParsec_any___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__5(x_1, x_2, x_36, x_29); -x_42 = lean::cnstr_get(x_41, 0); -x_44 = lean::cnstr_get(x_41, 1); -if (lean::is_exclusive(x_41)) { - x_46 = x_41; +lean::dec(x_32); +x_39 = l_Lean_Parser_MonadParsec_any___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__5(x_1, x_2, x_34, x_27); +x_40 = lean::cnstr_get(x_39, 0); +x_42 = lean::cnstr_get(x_39, 1); +if (lean::is_exclusive(x_39)) { + x_44 = x_39; } else { + lean::inc(x_40); lean::inc(x_42); - lean::inc(x_44); - lean::dec(x_41); - x_46 = lean::box(0); + lean::dec(x_39); + x_44 = lean::box(0); } -x_47 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_42); -if (lean::is_scalar(x_46)) { - x_48 = lean::alloc_cnstr(0, 2, 0); +x_45 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_36, x_40); +if (lean::is_scalar(x_44)) { + x_46 = lean::alloc_cnstr(0, 2, 0); } else { - x_48 = x_46; + x_46 = x_44; } -lean::cnstr_set(x_48, 0, x_47); -lean::cnstr_set(x_48, 1, x_44); -return x_48; +lean::cnstr_set(x_46, 0, x_45); +lean::cnstr_set(x_46, 1, x_42); +return x_46; } else { -obj* x_49; uint8 x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; -x_49 = lean::cnstr_get(x_34, 0); -x_51 = lean::cnstr_get_scalar(x_34, sizeof(void*)*1); -if (lean::is_exclusive(x_34)) { - x_52 = x_34; +obj* x_47; uint8 x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_47 = lean::cnstr_get(x_32, 0); +x_49 = lean::cnstr_get_scalar(x_32, sizeof(void*)*1); +if (lean::is_exclusive(x_32)) { + x_50 = x_32; } else { - lean::inc(x_49); - lean::dec(x_34); - x_52 = lean::box(0); + lean::inc(x_47); + lean::dec(x_32); + x_50 = lean::box(0); } -if (lean::is_scalar(x_52)) { - x_53 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_50)) { + x_51 = lean::alloc_cnstr(1, 1, 1); } else { - x_53 = x_52; + x_51 = x_50; } -lean::cnstr_set(x_53, 0, x_49); -lean::cnstr_set_scalar(x_53, sizeof(void*)*1, x_51); -x_54 = x_53; -if (lean::is_scalar(x_31)) { - x_55 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_51, 0, x_47); +lean::cnstr_set_scalar(x_51, sizeof(void*)*1, x_49); +x_52 = x_51; +if (lean::is_scalar(x_29)) { + x_53 = lean::alloc_cnstr(0, 2, 0); } else { - x_55 = x_31; + x_53 = x_29; } -lean::cnstr_set(x_55, 0, x_54); -lean::cnstr_set(x_55, 1, x_29); -return x_55; +lean::cnstr_set(x_53, 0, x_52); +lean::cnstr_set(x_53, 1, x_27); +return x_53; } } else { -obj* x_57; obj* x_59; obj* x_60; obj* x_62; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; +obj* x_55; obj* x_57; obj* x_58; obj* x_60; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; lean::dec(x_3); -x_57 = lean::cnstr_get(x_6, 1); +x_55 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); lean::cnstr_set(x_6, 1, lean::box(0)); - x_59 = x_6; + x_57 = x_6; } else { - lean::inc(x_57); + lean::inc(x_55); lean::dec(x_6); - x_59 = lean::box(0); + x_57 = lean::box(0); } -x_60 = lean::cnstr_get(x_7, 1); -x_62 = lean::cnstr_get(x_7, 2); +x_58 = lean::cnstr_get(x_7, 1); +x_60 = lean::cnstr_get(x_7, 2); if (lean::is_exclusive(x_7)) { lean::cnstr_release(x_7, 0); - x_64 = x_7; + x_62 = x_7; } else { + lean::inc(x_58); lean::inc(x_60); - lean::inc(x_62); lean::dec(x_7); - x_64 = lean::box(0); + x_62 = lean::box(0); } -x_65 = lean::box(0); -x_66 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_64)) { - x_67 = lean::alloc_cnstr(0, 3, 0); +x_63 = lean::box(0); +x_64 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_62)) { + x_65 = lean::alloc_cnstr(0, 3, 0); } else { - x_67 = x_64; + x_65 = x_62; } -lean::cnstr_set(x_67, 0, x_65); -lean::cnstr_set(x_67, 1, x_60); -lean::cnstr_set(x_67, 2, x_66); -x_68 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_62, x_67); -x_69 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_66, x_68); -if (lean::obj_tag(x_69) == 0) +lean::cnstr_set(x_65, 0, x_63); +lean::cnstr_set(x_65, 1, x_58); +lean::cnstr_set(x_65, 2, x_64); +x_66 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_60, x_65); +x_67 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_64, x_66); +if (lean::obj_tag(x_67) == 0) { -obj* x_71; obj* x_73; obj* x_76; obj* x_77; obj* x_79; obj* x_81; obj* x_82; obj* x_83; -lean::dec(x_59); -x_71 = lean::cnstr_get(x_69, 1); +obj* x_69; obj* x_71; obj* x_74; obj* x_75; obj* x_77; obj* x_79; obj* x_80; obj* x_81; +lean::dec(x_57); +x_69 = lean::cnstr_get(x_67, 1); +lean::inc(x_69); +x_71 = lean::cnstr_get(x_67, 2); lean::inc(x_71); -x_73 = lean::cnstr_get(x_69, 2); -lean::inc(x_73); -lean::dec(x_69); -x_76 = l_Lean_Parser_MonadParsec_any___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__5(x_1, x_2, x_71, x_57); -x_77 = lean::cnstr_get(x_76, 0); -x_79 = lean::cnstr_get(x_76, 1); -if (lean::is_exclusive(x_76)) { - x_81 = x_76; +lean::dec(x_67); +x_74 = l_Lean_Parser_MonadParsec_any___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__5(x_1, x_2, x_69, x_55); +x_75 = lean::cnstr_get(x_74, 0); +x_77 = lean::cnstr_get(x_74, 1); +if (lean::is_exclusive(x_74)) { + x_79 = x_74; } else { + lean::inc(x_75); lean::inc(x_77); - lean::inc(x_79); - lean::dec(x_76); - x_81 = lean::box(0); + lean::dec(x_74); + x_79 = lean::box(0); } -x_82 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_73, x_77); -if (lean::is_scalar(x_81)) { - x_83 = lean::alloc_cnstr(0, 2, 0); +x_80 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_71, x_75); +if (lean::is_scalar(x_79)) { + x_81 = lean::alloc_cnstr(0, 2, 0); } else { - x_83 = x_81; + x_81 = x_79; } -lean::cnstr_set(x_83, 0, x_82); -lean::cnstr_set(x_83, 1, x_79); -return x_83; +lean::cnstr_set(x_81, 0, x_80); +lean::cnstr_set(x_81, 1, x_77); +return x_81; } else { -obj* x_84; uint8 x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; -x_84 = lean::cnstr_get(x_69, 0); -x_86 = lean::cnstr_get_scalar(x_69, sizeof(void*)*1); -if (lean::is_exclusive(x_69)) { - x_87 = x_69; +obj* x_82; uint8 x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; +x_82 = lean::cnstr_get(x_67, 0); +x_84 = lean::cnstr_get_scalar(x_67, sizeof(void*)*1); +if (lean::is_exclusive(x_67)) { + x_85 = x_67; } else { - lean::inc(x_84); - lean::dec(x_69); - x_87 = lean::box(0); + lean::inc(x_82); + lean::dec(x_67); + x_85 = lean::box(0); } -if (lean::is_scalar(x_87)) { - x_88 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_85)) { + x_86 = lean::alloc_cnstr(1, 1, 1); } else { - x_88 = x_87; + x_86 = x_85; } -lean::cnstr_set(x_88, 0, x_84); -lean::cnstr_set_scalar(x_88, sizeof(void*)*1, x_86); -x_89 = x_88; -if (lean::is_scalar(x_59)) { - x_90 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_86, 0, x_82); +lean::cnstr_set_scalar(x_86, sizeof(void*)*1, x_84); +x_87 = x_86; +if (lean::is_scalar(x_57)) { + x_88 = lean::alloc_cnstr(0, 2, 0); } else { - x_90 = x_59; + x_88 = x_57; } -lean::cnstr_set(x_90, 0, x_89); -lean::cnstr_set(x_90, 1, x_57); -return x_90; +lean::cnstr_set(x_88, 0, x_87); +lean::cnstr_set(x_88, 1, x_55); +return x_88; } } } else { -obj* x_92; obj* x_94; obj* x_95; uint8 x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; +obj* x_90; obj* x_92; obj* x_93; uint8 x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; lean::dec(x_3); -x_92 = lean::cnstr_get(x_6, 1); +x_90 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); lean::cnstr_set(x_6, 1, lean::box(0)); - x_94 = x_6; + x_92 = x_6; } else { - lean::inc(x_92); + lean::inc(x_90); lean::dec(x_6); - x_94 = lean::box(0); + x_92 = lean::box(0); } -x_95 = lean::cnstr_get(x_7, 0); -x_97 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); +x_93 = lean::cnstr_get(x_7, 0); +x_95 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); if (lean::is_exclusive(x_7)) { - x_98 = x_7; + x_96 = x_7; } else { - lean::inc(x_95); + lean::inc(x_93); lean::dec(x_7); - x_98 = lean::box(0); + x_96 = lean::box(0); } -if (lean::is_scalar(x_98)) { - x_99 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_96)) { + x_97 = lean::alloc_cnstr(1, 1, 1); } else { - x_99 = x_98; + x_97 = x_96; } -lean::cnstr_set(x_99, 0, x_95); -lean::cnstr_set_scalar(x_99, sizeof(void*)*1, x_97); -x_100 = x_99; -x_101 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_102 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_101, x_100); -if (lean::obj_tag(x_102) == 0) +lean::cnstr_set(x_97, 0, x_93); +lean::cnstr_set_scalar(x_97, sizeof(void*)*1, x_95); +x_98 = x_97; +x_99 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_100 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_99, x_98); +if (lean::obj_tag(x_100) == 0) { -obj* x_104; obj* x_106; obj* x_109; obj* x_110; obj* x_112; obj* x_114; obj* x_115; obj* x_116; -lean::dec(x_94); -x_104 = lean::cnstr_get(x_102, 1); +obj* x_102; obj* x_104; obj* x_107; obj* x_108; obj* x_110; obj* x_112; obj* x_113; obj* x_114; +lean::dec(x_92); +x_102 = lean::cnstr_get(x_100, 1); +lean::inc(x_102); +x_104 = lean::cnstr_get(x_100, 2); lean::inc(x_104); -x_106 = lean::cnstr_get(x_102, 2); -lean::inc(x_106); -lean::dec(x_102); -x_109 = l_Lean_Parser_MonadParsec_any___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__5(x_1, x_2, x_104, x_92); -x_110 = lean::cnstr_get(x_109, 0); -x_112 = lean::cnstr_get(x_109, 1); -if (lean::is_exclusive(x_109)) { - x_114 = x_109; +lean::dec(x_100); +x_107 = l_Lean_Parser_MonadParsec_any___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__5(x_1, x_2, x_102, x_90); +x_108 = lean::cnstr_get(x_107, 0); +x_110 = lean::cnstr_get(x_107, 1); +if (lean::is_exclusive(x_107)) { + x_112 = x_107; } else { + lean::inc(x_108); lean::inc(x_110); - lean::inc(x_112); - lean::dec(x_109); - x_114 = lean::box(0); + lean::dec(x_107); + x_112 = lean::box(0); } -x_115 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_106, x_110); -if (lean::is_scalar(x_114)) { - x_116 = lean::alloc_cnstr(0, 2, 0); +x_113 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_104, x_108); +if (lean::is_scalar(x_112)) { + x_114 = lean::alloc_cnstr(0, 2, 0); } else { - x_116 = x_114; + x_114 = x_112; } -lean::cnstr_set(x_116, 0, x_115); -lean::cnstr_set(x_116, 1, x_112); -return x_116; +lean::cnstr_set(x_114, 0, x_113); +lean::cnstr_set(x_114, 1, x_110); +return x_114; } else { -obj* x_117; uint8 x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; -x_117 = lean::cnstr_get(x_102, 0); -x_119 = lean::cnstr_get_scalar(x_102, sizeof(void*)*1); -if (lean::is_exclusive(x_102)) { - x_120 = x_102; +obj* x_115; uint8 x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; +x_115 = lean::cnstr_get(x_100, 0); +x_117 = lean::cnstr_get_scalar(x_100, sizeof(void*)*1); +if (lean::is_exclusive(x_100)) { + x_118 = x_100; } else { - lean::inc(x_117); - lean::dec(x_102); - x_120 = lean::box(0); + lean::inc(x_115); + lean::dec(x_100); + x_118 = lean::box(0); } -if (lean::is_scalar(x_120)) { - x_121 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_118)) { + x_119 = lean::alloc_cnstr(1, 1, 1); } else { - x_121 = x_120; + x_119 = x_118; } -lean::cnstr_set(x_121, 0, x_117); -lean::cnstr_set_scalar(x_121, sizeof(void*)*1, x_119); -x_122 = x_121; -if (lean::is_scalar(x_94)) { - x_123 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_119, 0, x_115); +lean::cnstr_set_scalar(x_119, sizeof(void*)*1, x_117); +x_120 = x_119; +if (lean::is_scalar(x_92)) { + x_121 = lean::alloc_cnstr(0, 2, 0); } else { - x_123 = x_94; + x_121 = x_92; } -lean::cnstr_set(x_123, 0, x_122); -lean::cnstr_set(x_123, 1, x_92); -return x_123; +lean::cnstr_set(x_121, 0, x_120); +lean::cnstr_set(x_121, 1, x_90); +return x_121; } } } @@ -5402,7 +5388,7 @@ x_24 = l_Lean_Parser_Syntax_asNode___main(x_23); if (lean::obj_tag(x_24) == 0) { obj* x_25; obj* x_26; -x_25 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; +x_25 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_26 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_26, 0, x_20); lean::cnstr_set(x_26, 1, x_25); @@ -5437,7 +5423,7 @@ x_41 = l_Lean_Parser_Syntax_asNode___main(x_38); if (lean::obj_tag(x_41) == 0) { obj* x_42; obj* x_43; -x_42 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; +x_42 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_43 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_43, 0, x_35); lean::cnstr_set(x_43, 1, x_42); @@ -5681,258 +5667,335 @@ goto lbl_13; } else { -obj* x_23; obj* x_26; uint8 x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_34; obj* x_36; obj* x_39; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; -x_23 = lean::cnstr_get(x_17, 1); -lean::inc(x_23); -lean::dec(x_17); -x_26 = lean::cnstr_get(x_18, 0); -x_28 = lean::cnstr_get_scalar(x_18, sizeof(void*)*1); +obj* x_23; uint8 x_25; obj* x_26; obj* x_27; +x_23 = lean::cnstr_get(x_18, 0); +x_25 = lean::cnstr_get_scalar(x_18, sizeof(void*)*1); if (lean::is_exclusive(x_18)) { lean::cnstr_set(x_18, 0, lean::box(0)); - x_29 = x_18; + x_26 = x_18; } else { - lean::inc(x_26); + lean::inc(x_23); lean::dec(x_18); - x_29 = lean::box(0); + x_26 = lean::box(0); } -x_30 = lean::cnstr_get(x_26, 0); -lean::inc(x_30); -x_32 = lean::cnstr_get(x_26, 1); +x_27 = lean::cnstr_get(x_23, 3); +lean::inc(x_27); +if (lean::obj_tag(x_27) == 0) +{ +obj* x_29; obj* x_32; obj* x_34; obj* x_36; obj* x_39; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; +x_29 = lean::cnstr_get(x_17, 1); +lean::inc(x_29); +lean::dec(x_17); +x_32 = lean::cnstr_get(x_23, 0); lean::inc(x_32); -x_34 = lean::cnstr_get(x_26, 2); +x_34 = lean::cnstr_get(x_23, 1); lean::inc(x_34); -x_36 = lean::cnstr_get(x_26, 3); +x_36 = lean::cnstr_get(x_23, 2); lean::inc(x_36); -lean::dec(x_26); -x_39 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_36); -lean::dec(x_36); +lean::dec(x_23); +x_39 = lean::box(3); lean::inc(x_1); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_39); +lean::cnstr_set(x_41, 1, x_1); x_42 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_42, 0, x_39); -lean::cnstr_set(x_42, 1, x_1); -x_43 = lean::box(3); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_43); -lean::cnstr_set(x_44, 1, x_42); -x_45 = l_List_reverse___rarg(x_44); -x_46 = l_Lean_Parser_noKind; -x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); -x_48 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_48, 0, x_47); -x_49 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_49, 0, x_30); -lean::cnstr_set(x_49, 1, x_32); -lean::cnstr_set(x_49, 2, x_34); -lean::cnstr_set(x_49, 3, x_48); -if (x_28 == 0) +lean::cnstr_set(x_42, 1, x_41); +x_43 = l_List_reverse___rarg(x_42); +x_44 = l_Lean_Parser_noKind; +x_45 = l_Lean_Parser_Syntax_mkNode(x_44, x_43); +x_46 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_46, 0, x_45); +x_47 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_47, 0, x_32); +lean::cnstr_set(x_47, 1, x_34); +lean::cnstr_set(x_47, 2, x_36); +lean::cnstr_set(x_47, 3, x_46); +if (x_25 == 0) { -uint8 x_50; obj* x_51; obj* x_52; -x_50 = 0; -if (lean::is_scalar(x_29)) { - x_51 = lean::alloc_cnstr(1, 1, 1); +uint8 x_48; obj* x_49; obj* x_50; +x_48 = 0; +if (lean::is_scalar(x_26)) { + x_49 = lean::alloc_cnstr(1, 1, 1); } else { - x_51 = x_29; + x_49 = x_26; } -lean::cnstr_set(x_51, 0, x_49); -lean::cnstr_set_scalar(x_51, sizeof(void*)*1, x_50); -x_52 = x_51; -x_11 = x_52; -x_12 = x_23; +lean::cnstr_set(x_49, 0, x_47); +lean::cnstr_set_scalar(x_49, sizeof(void*)*1, x_48); +x_50 = x_49; +x_11 = x_50; +x_12 = x_29; goto lbl_13; } else { -uint8 x_53; obj* x_54; obj* x_55; -x_53 = 1; -if (lean::is_scalar(x_29)) { - x_54 = lean::alloc_cnstr(1, 1, 1); +uint8 x_51; obj* x_52; obj* x_53; +x_51 = 1; +if (lean::is_scalar(x_26)) { + x_52 = lean::alloc_cnstr(1, 1, 1); } else { - x_54 = x_29; + x_52 = x_26; } -lean::cnstr_set(x_54, 0, x_49); -lean::cnstr_set_scalar(x_54, sizeof(void*)*1, x_53); -x_55 = x_54; -x_11 = x_55; -x_12 = x_23; +lean::cnstr_set(x_52, 0, x_47); +lean::cnstr_set_scalar(x_52, sizeof(void*)*1, x_51); +x_53 = x_52; +x_11 = x_53; +x_12 = x_29; goto lbl_13; } } +else +{ +obj* x_54; obj* x_57; obj* x_59; obj* x_61; obj* x_64; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; +x_54 = lean::cnstr_get(x_17, 1); +lean::inc(x_54); +lean::dec(x_17); +x_57 = lean::cnstr_get(x_23, 0); +lean::inc(x_57); +x_59 = lean::cnstr_get(x_23, 1); +lean::inc(x_59); +x_61 = lean::cnstr_get(x_23, 2); +lean::inc(x_61); +lean::dec(x_23); +x_64 = lean::cnstr_get(x_27, 0); +if (lean::is_exclusive(x_27)) { + x_66 = x_27; +} else { + lean::inc(x_64); + lean::dec(x_27); + x_66 = lean::box(0); +} +lean::inc(x_1); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_64); +lean::cnstr_set(x_68, 1, x_1); +x_69 = lean::box(3); +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_69); +lean::cnstr_set(x_70, 1, x_68); +x_71 = l_List_reverse___rarg(x_70); +x_72 = l_Lean_Parser_noKind; +x_73 = l_Lean_Parser_Syntax_mkNode(x_72, x_71); +if (lean::is_scalar(x_66)) { + x_74 = lean::alloc_cnstr(1, 1, 0); +} else { + x_74 = x_66; +} +lean::cnstr_set(x_74, 0, x_73); +x_75 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_75, 0, x_57); +lean::cnstr_set(x_75, 1, x_59); +lean::cnstr_set(x_75, 2, x_61); +lean::cnstr_set(x_75, 3, x_74); +if (x_25 == 0) +{ +uint8 x_76; obj* x_77; obj* x_78; +x_76 = 0; +if (lean::is_scalar(x_26)) { + x_77 = lean::alloc_cnstr(1, 1, 1); +} else { + x_77 = x_26; +} +lean::cnstr_set(x_77, 0, x_75); +lean::cnstr_set_scalar(x_77, sizeof(void*)*1, x_76); +x_78 = x_77; +x_11 = x_78; +x_12 = x_54; +goto lbl_13; +} +else +{ +uint8 x_79; obj* x_80; obj* x_81; +x_79 = 1; +if (lean::is_scalar(x_26)) { + x_80 = lean::alloc_cnstr(1, 1, 1); +} else { + x_80 = x_26; +} +lean::cnstr_set(x_80, 0, x_75); +lean::cnstr_set_scalar(x_80, sizeof(void*)*1, x_79); +x_81 = x_80; +x_11 = x_81; +x_12 = x_54; +goto lbl_13; +} +} +} lbl_13: { if (lean::obj_tag(x_11) == 0) { -obj* x_56; obj* x_58; obj* x_60; obj* x_62; obj* x_63; obj* x_66; obj* x_68; -x_56 = lean::cnstr_get(x_11, 0); -x_58 = lean::cnstr_get(x_11, 1); -x_60 = lean::cnstr_get(x_11, 2); +obj* x_82; obj* x_84; obj* x_86; obj* x_88; obj* x_89; obj* x_92; obj* x_94; +x_82 = lean::cnstr_get(x_11, 0); +x_84 = lean::cnstr_get(x_11, 1); +x_86 = lean::cnstr_get(x_11, 2); if (lean::is_exclusive(x_11)) { lean::cnstr_set(x_11, 0, lean::box(0)); lean::cnstr_set(x_11, 1, lean::box(0)); lean::cnstr_set(x_11, 2, lean::box(0)); - x_62 = x_11; + x_88 = x_11; } else { - lean::inc(x_56); - lean::inc(x_58); - lean::inc(x_60); + lean::inc(x_82); + lean::inc(x_84); + lean::inc(x_86); lean::dec(x_11); - x_62 = lean::box(0); + x_88 = lean::box(0); } -x_63 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_63, 0, x_56); -lean::cnstr_set(x_63, 1, x_1); -lean::inc(x_58); -lean::inc(x_63); -x_66 = l___private_init_lean_parser_combinators_1__many1Aux___main___at_Lean_Parser_command_attrInstance_Parser_Lean_Parser_HasTokens___spec__4(x_0, x_63, x_10, x_3, x_4, x_58, x_12); +x_89 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_89, 0, x_82); +lean::cnstr_set(x_89, 1, x_1); +lean::inc(x_84); +lean::inc(x_89); +x_92 = l___private_init_lean_parser_combinators_1__many1Aux___main___at_Lean_Parser_command_attrInstance_Parser_Lean_Parser_HasTokens___spec__4(x_0, x_89, x_10, x_3, x_4, x_84, x_12); lean::dec(x_10); -x_68 = lean::cnstr_get(x_66, 0); -lean::inc(x_68); -if (lean::obj_tag(x_68) == 0) +x_94 = lean::cnstr_get(x_92, 0); +lean::inc(x_94); +if (lean::obj_tag(x_94) == 0) { -obj* x_73; obj* x_75; obj* x_76; obj* x_77; -lean::dec(x_58); -lean::dec(x_62); -lean::dec(x_63); -x_73 = lean::cnstr_get(x_66, 1); -if (lean::is_exclusive(x_66)) { - lean::cnstr_release(x_66, 0); - x_75 = x_66; +obj* x_99; obj* x_101; obj* x_102; obj* x_103; +lean::dec(x_88); +lean::dec(x_89); +lean::dec(x_84); +x_99 = lean::cnstr_get(x_92, 1); +if (lean::is_exclusive(x_92)) { + lean::cnstr_release(x_92, 0); + x_101 = x_92; } else { - lean::inc(x_73); - lean::dec(x_66); - x_75 = lean::box(0); + lean::inc(x_99); + lean::dec(x_92); + x_101 = lean::box(0); } -x_76 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_60, x_68); -if (lean::is_scalar(x_75)) { - x_77 = lean::alloc_cnstr(0, 2, 0); +x_102 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_86, x_94); +if (lean::is_scalar(x_101)) { + x_103 = lean::alloc_cnstr(0, 2, 0); } else { - x_77 = x_75; + x_103 = x_101; } -lean::cnstr_set(x_77, 0, x_76); -lean::cnstr_set(x_77, 1, x_73); -return x_77; +lean::cnstr_set(x_103, 0, x_102); +lean::cnstr_set(x_103, 1, x_99); +return x_103; } else { -uint8 x_78; -x_78 = lean::cnstr_get_scalar(x_68, sizeof(void*)*1); -if (x_78 == 0) +uint8 x_104; +x_104 = lean::cnstr_get_scalar(x_94, sizeof(void*)*1); +if (x_104 == 0) { -obj* x_79; obj* x_81; obj* x_82; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; -x_79 = lean::cnstr_get(x_66, 1); -if (lean::is_exclusive(x_66)) { - lean::cnstr_release(x_66, 0); - x_81 = x_66; +obj* x_105; obj* x_107; obj* x_108; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; +x_105 = lean::cnstr_get(x_92, 1); +if (lean::is_exclusive(x_92)) { + lean::cnstr_release(x_92, 0); + x_107 = x_92; } else { - lean::inc(x_79); - lean::dec(x_66); - x_81 = lean::box(0); + lean::inc(x_105); + lean::dec(x_92); + x_107 = lean::box(0); } -x_82 = lean::cnstr_get(x_68, 0); -lean::inc(x_82); -lean::dec(x_68); -x_85 = l_List_reverse___rarg(x_63); -x_86 = l_Lean_Parser_noKind; -x_87 = l_Lean_Parser_Syntax_mkNode(x_86, x_85); -x_88 = lean::cnstr_get(x_82, 2); -lean::inc(x_88); -lean::dec(x_82); -x_91 = l_mjoin___rarg___closed__1; -x_92 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_92, 0, x_88); -lean::closure_set(x_92, 1, x_91); -x_93 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_93, 0, x_92); -if (lean::is_scalar(x_62)) { - x_94 = lean::alloc_cnstr(0, 3, 0); +x_108 = lean::cnstr_get(x_94, 0); +lean::inc(x_108); +lean::dec(x_94); +x_111 = l_List_reverse___rarg(x_89); +x_112 = l_Lean_Parser_noKind; +x_113 = l_Lean_Parser_Syntax_mkNode(x_112, x_111); +x_114 = lean::cnstr_get(x_108, 2); +lean::inc(x_114); +lean::dec(x_108); +x_117 = l_mjoin___rarg___closed__1; +x_118 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_118, 0, x_114); +lean::closure_set(x_118, 1, x_117); +x_119 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_119, 0, x_118); +if (lean::is_scalar(x_88)) { + x_120 = lean::alloc_cnstr(0, 3, 0); } else { - x_94 = x_62; + x_120 = x_88; } -lean::cnstr_set(x_94, 0, x_87); -lean::cnstr_set(x_94, 1, x_58); -lean::cnstr_set(x_94, 2, x_93); -x_95 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_60, x_94); -if (lean::is_scalar(x_81)) { - x_96 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_120, 0, x_113); +lean::cnstr_set(x_120, 1, x_84); +lean::cnstr_set(x_120, 2, x_119); +x_121 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_86, x_120); +if (lean::is_scalar(x_107)) { + x_122 = lean::alloc_cnstr(0, 2, 0); } else { - x_96 = x_81; + x_122 = x_107; } -lean::cnstr_set(x_96, 0, x_95); -lean::cnstr_set(x_96, 1, x_79); -return x_96; -} -else -{ -obj* x_100; obj* x_102; obj* x_103; obj* x_104; -lean::dec(x_58); -lean::dec(x_62); -lean::dec(x_63); -x_100 = lean::cnstr_get(x_66, 1); -if (lean::is_exclusive(x_66)) { - lean::cnstr_release(x_66, 0); - x_102 = x_66; -} else { - lean::inc(x_100); - lean::dec(x_66); - x_102 = lean::box(0); -} -x_103 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_60, x_68); -if (lean::is_scalar(x_102)) { - x_104 = lean::alloc_cnstr(0, 2, 0); -} else { - x_104 = x_102; -} -lean::cnstr_set(x_104, 0, x_103); -lean::cnstr_set(x_104, 1, x_100); -return x_104; -} -} -} -else -{ -obj* x_110; uint8 x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; -lean::dec(x_4); -lean::dec(x_1); -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_10); -x_110 = lean::cnstr_get(x_11, 0); -x_112 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); -if (lean::is_exclusive(x_11)) { - x_113 = x_11; -} else { - lean::inc(x_110); - lean::dec(x_11); - x_113 = lean::box(0); -} -if (lean::is_scalar(x_113)) { - x_114 = lean::alloc_cnstr(1, 1, 1); -} else { - x_114 = x_113; -} -lean::cnstr_set(x_114, 0, x_110); -lean::cnstr_set_scalar(x_114, sizeof(void*)*1, x_112); -x_115 = x_114; -x_116 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_116, 0, x_115); -lean::cnstr_set(x_116, 1, x_12); -return x_116; -} -} -} -else -{ -obj* x_119; obj* x_120; obj* x_121; obj* x_122; -lean::dec(x_1); -lean::dec(x_0); -x_119 = lean::box(0); -x_120 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; -x_121 = l_mjoin___rarg___closed__1; -x_122 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_120, x_121, x_119, x_119, x_3, x_4, x_5, x_6); -lean::dec(x_5); -lean::dec(x_4); -lean::dec(x_3); +lean::cnstr_set(x_122, 0, x_121); +lean::cnstr_set(x_122, 1, x_105); return x_122; } +else +{ +obj* x_126; obj* x_128; obj* x_129; obj* x_130; +lean::dec(x_88); +lean::dec(x_89); +lean::dec(x_84); +x_126 = lean::cnstr_get(x_92, 1); +if (lean::is_exclusive(x_92)) { + lean::cnstr_release(x_92, 0); + x_128 = x_92; +} else { + lean::inc(x_126); + lean::dec(x_92); + x_128 = lean::box(0); +} +x_129 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_86, x_94); +if (lean::is_scalar(x_128)) { + x_130 = lean::alloc_cnstr(0, 2, 0); +} else { + x_130 = x_128; +} +lean::cnstr_set(x_130, 0, x_129); +lean::cnstr_set(x_130, 1, x_126); +return x_130; +} +} +} +else +{ +obj* x_136; uint8 x_138; obj* x_139; obj* x_140; obj* x_141; obj* x_142; +lean::dec(x_4); +lean::dec(x_1); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_10); +x_136 = lean::cnstr_get(x_11, 0); +x_138 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); +if (lean::is_exclusive(x_11)) { + x_139 = x_11; +} else { + lean::inc(x_136); + lean::dec(x_11); + x_139 = lean::box(0); +} +if (lean::is_scalar(x_139)) { + x_140 = lean::alloc_cnstr(1, 1, 1); +} else { + x_140 = x_139; +} +lean::cnstr_set(x_140, 0, x_136); +lean::cnstr_set_scalar(x_140, sizeof(void*)*1, x_138); +x_141 = x_140; +x_142 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_142, 0, x_141); +lean::cnstr_set(x_142, 1, x_12); +return x_142; +} +} +} +else +{ +obj* x_145; obj* x_146; obj* x_147; obj* x_148; +lean::dec(x_1); +lean::dec(x_0); +x_145 = lean::box(0); +x_146 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; +x_147 = l_mjoin___rarg___closed__1; +x_148 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_146, x_147, x_145, x_145, x_3, x_4, x_5, x_6); +lean::dec(x_4); +lean::dec(x_3); +return x_148; +} } } obj* l_Lean_Parser_Combinators_many1___at_Lean_Parser_command_attrInstance_Parser_Lean_Parser_HasTokens___spec__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { @@ -6389,41 +6452,27 @@ return x_31; } else { -obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_41; obj* x_42; obj* x_43; +obj* x_32; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; x_32 = lean::cnstr_get(x_21, 0); -if (lean::is_exclusive(x_21)) { - x_34 = x_21; -} else { - lean::inc(x_32); - lean::dec(x_21); - x_34 = lean::box(0); -} +lean::inc(x_32); +lean::dec(x_21); x_35 = lean::box(0); x_36 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_36, 0, x_32); -if (lean::is_scalar(x_34)) { - x_37 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_6)) { + x_37 = lean::alloc_cnstr(1, 2, 0); } else { - x_37 = x_34; + x_37 = x_6; } lean::cnstr_set(x_37, 0, x_36); -x_38 = lean::box(3); -x_39 = l_Option_getOrElse___main___rarg(x_37, x_38); -lean::dec(x_37); -if (lean::is_scalar(x_6)) { - x_41 = lean::alloc_cnstr(1, 2, 0); -} else { - x_41 = x_6; -} -lean::cnstr_set(x_41, 0, x_39); -lean::cnstr_set(x_41, 1, x_35); -x_42 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_42, 0, x_28); -lean::cnstr_set(x_42, 1, x_41); -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_42); -lean::cnstr_set(x_43, 1, x_12); -return x_43; +lean::cnstr_set(x_37, 1, x_35); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_28); +lean::cnstr_set(x_38, 1, x_37); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_12); +return x_39; } } } @@ -6782,7 +6831,7 @@ x_13 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2 x_14 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_14, 0, x_11); lean::cnstr_set(x_14, 1, x_13); -x_15 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_15 = lean::box(3); x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); lean::cnstr_set(x_16, 1, x_14); @@ -6792,110 +6841,69 @@ return x_18; } else { -obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; +obj* x_19; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; x_19 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_21 = x_5; -} else { - lean::inc(x_19); - lean::dec(x_5); - x_21 = lean::box(0); -} +lean::inc(x_19); +lean::dec(x_5); x_22 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_22, 0, x_19); -if (lean::is_scalar(x_21)) { - x_23 = lean::alloc_cnstr(1, 1, 0); -} else { - x_23 = x_21; -} +x_23 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_23, 0, x_22); -x_24 = lean::box(3); -x_25 = l_Option_getOrElse___main___rarg(x_23, x_24); -lean::dec(x_23); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_25); -lean::cnstr_set(x_27, 1, x_12); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_11); -lean::cnstr_set(x_28, 1, x_27); -x_29 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_30 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_30, 0, x_29); -lean::cnstr_set(x_30, 1, x_28); -x_31 = l_Lean_Parser_command_declAttributes; -x_32 = l_Lean_Parser_Syntax_mkNode(x_31, x_30); -return x_32; +lean::cnstr_set(x_23, 1, x_12); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_11); +lean::cnstr_set(x_24, 1, x_23); +x_25 = lean::box(3); +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_24); +x_27 = l_Lean_Parser_command_declAttributes; +x_28 = l_Lean_Parser_Syntax_mkNode(x_27, x_26); +return x_28; } } else { -obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; -x_33 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_35 = x_1; -} else { - lean::inc(x_33); - lean::dec(x_1); - x_35 = lean::box(0); -} -x_36 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_36, 0, x_33); -if (lean::is_scalar(x_35)) { - x_37 = lean::alloc_cnstr(1, 1, 0); -} else { - x_37 = x_35; -} -lean::cnstr_set(x_37, 0, x_36); -x_38 = lean::box(3); -x_39 = l_Option_getOrElse___main___rarg(x_37, x_38); -lean::dec(x_37); +obj* x_29; obj* x_32; +x_29 = lean::cnstr_get(x_1, 0); +lean::inc(x_29); +lean::dec(x_1); +x_32 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_32, 0, x_29); if (lean::obj_tag(x_5) == 0) { -obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; -x_41 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_42 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_42, 0, x_11); -lean::cnstr_set(x_42, 1, x_41); -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_39); -lean::cnstr_set(x_43, 1, x_42); -x_44 = l_Lean_Parser_command_declAttributes; -x_45 = l_Lean_Parser_Syntax_mkNode(x_44, x_43); -return x_45; +obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_33 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_11); +lean::cnstr_set(x_34, 1, x_33); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_32); +lean::cnstr_set(x_35, 1, x_34); +x_36 = l_Lean_Parser_command_declAttributes; +x_37 = l_Lean_Parser_Syntax_mkNode(x_36, x_35); +return x_37; } else { -obj* x_46; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; -x_46 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_48 = x_5; -} else { - lean::inc(x_46); - lean::dec(x_5); - x_48 = lean::box(0); -} -x_49 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_49, 0, x_46); -if (lean::is_scalar(x_48)) { - x_50 = lean::alloc_cnstr(1, 1, 0); -} else { - x_50 = x_48; -} -lean::cnstr_set(x_50, 0, x_49); -x_51 = l_Option_getOrElse___main___rarg(x_50, x_38); -lean::dec(x_50); -x_53 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_53, 0, x_51); -lean::cnstr_set(x_53, 1, x_12); -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_11); -lean::cnstr_set(x_54, 1, x_53); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_39); -lean::cnstr_set(x_55, 1, x_54); -x_56 = l_Lean_Parser_command_declAttributes; -x_57 = l_Lean_Parser_Syntax_mkNode(x_56, x_55); -return x_57; +obj* x_38; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_38 = lean::cnstr_get(x_5, 0); +lean::inc(x_38); +lean::dec(x_5); +x_41 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_41, 0, x_38); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_41); +lean::cnstr_set(x_42, 1, x_12); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_11); +lean::cnstr_set(x_43, 1, x_42); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_32); +lean::cnstr_set(x_44, 1, x_43); +x_45 = l_Lean_Parser_command_declAttributes; +x_46 = l_Lean_Parser_Syntax_mkNode(x_45, x_44); +return x_46; } } } @@ -6980,300 +6988,171 @@ lean::cnstr_set(x_38, 0, x_36); lean::cnstr_set(x_38, 1, x_31); lean::cnstr_set(x_38, 2, x_37); x_39 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_33, x_38); -if (lean::obj_tag(x_39) == 0) -{ -x_14 = x_39; -x_15 = x_26; -goto lbl_16; +x_17 = x_39; +x_18 = x_26; +goto lbl_19; } else { -obj* x_40; uint8 x_42; obj* x_43; obj* x_44; obj* x_46; obj* x_48; obj* x_50; obj* x_53; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; -x_40 = lean::cnstr_get(x_39, 0); -x_42 = lean::cnstr_get_scalar(x_39, sizeof(void*)*1); -if (lean::is_exclusive(x_39)) { - lean::cnstr_set(x_39, 0, lean::box(0)); - x_43 = x_39; -} else { - lean::inc(x_40); - lean::dec(x_39); - x_43 = lean::box(0); -} -x_44 = lean::cnstr_get(x_40, 0); -lean::inc(x_44); -x_46 = lean::cnstr_get(x_40, 1); -lean::inc(x_46); -x_48 = lean::cnstr_get(x_40, 2); -lean::inc(x_48); -x_50 = lean::cnstr_get(x_40, 3); -lean::inc(x_50); -lean::dec(x_40); -x_53 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_50); -lean::dec(x_50); -lean::inc(x_4); -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_53); -lean::cnstr_set(x_56, 1, x_4); -x_57 = lean::box(3); -x_58 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_58, 0, x_57); -lean::cnstr_set(x_58, 1, x_56); -x_59 = l_List_reverse___rarg(x_58); -x_60 = l_Lean_Parser_noKind; -x_61 = l_Lean_Parser_Syntax_mkNode(x_60, x_59); -x_62 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_62, 0, x_61); -x_63 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_63, 0, x_44); -lean::cnstr_set(x_63, 1, x_46); -lean::cnstr_set(x_63, 2, x_48); -lean::cnstr_set(x_63, 3, x_62); -if (x_42 == 0) -{ -uint8 x_64; obj* x_65; obj* x_66; -x_64 = 0; -if (lean::is_scalar(x_43)) { - x_65 = lean::alloc_cnstr(1, 1, 1); -} else { - x_65 = x_43; -} -lean::cnstr_set(x_65, 0, x_63); -lean::cnstr_set_scalar(x_65, sizeof(void*)*1, x_64); -x_66 = x_65; -x_14 = x_66; -x_15 = x_26; -goto lbl_16; -} -else -{ -uint8 x_67; obj* x_68; obj* x_69; -x_67 = 1; -if (lean::is_scalar(x_43)) { - x_68 = lean::alloc_cnstr(1, 1, 1); -} else { - x_68 = x_43; -} -lean::cnstr_set(x_68, 0, x_63); -lean::cnstr_set_scalar(x_68, sizeof(void*)*1, x_67); -x_69 = x_68; -x_14 = x_69; -x_15 = x_26; -goto lbl_16; -} -} -} -else -{ -obj* x_70; obj* x_73; uint8 x_75; obj* x_76; obj* x_77; obj* x_79; obj* x_81; obj* x_83; obj* x_86; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; -x_70 = lean::cnstr_get(x_23, 1); -lean::inc(x_70); +obj* x_40; obj* x_43; uint8 x_45; obj* x_46; obj* x_47; obj* x_48; +x_40 = lean::cnstr_get(x_23, 1); +lean::inc(x_40); lean::dec(x_23); -x_73 = lean::cnstr_get(x_24, 0); -x_75 = lean::cnstr_get_scalar(x_24, sizeof(void*)*1); +x_43 = lean::cnstr_get(x_24, 0); +x_45 = lean::cnstr_get_scalar(x_24, sizeof(void*)*1); if (lean::is_exclusive(x_24)) { - lean::cnstr_set(x_24, 0, lean::box(0)); - x_76 = x_24; + x_46 = x_24; } else { - lean::inc(x_73); + lean::inc(x_43); lean::dec(x_24); - x_76 = lean::box(0); + x_46 = lean::box(0); } -x_77 = lean::cnstr_get(x_73, 0); -lean::inc(x_77); -x_79 = lean::cnstr_get(x_73, 1); -lean::inc(x_79); -x_81 = lean::cnstr_get(x_73, 2); -lean::inc(x_81); -x_83 = lean::cnstr_get(x_73, 3); -lean::inc(x_83); -lean::dec(x_73); -x_86 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_83); -lean::dec(x_83); -lean::inc(x_4); -x_89 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_89, 0, x_86); -lean::cnstr_set(x_89, 1, x_4); -x_90 = lean::box(3); -x_91 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_91, 0, x_90); -lean::cnstr_set(x_91, 1, x_89); -x_92 = l_List_reverse___rarg(x_91); -x_93 = l_Lean_Parser_noKind; -x_94 = l_Lean_Parser_Syntax_mkNode(x_93, x_92); -x_95 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_95, 0, x_94); -x_96 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_96, 0, x_77); -lean::cnstr_set(x_96, 1, x_79); -lean::cnstr_set(x_96, 2, x_81); -lean::cnstr_set(x_96, 3, x_95); -if (x_75 == 0) -{ -uint8 x_97; obj* x_98; obj* x_99; -x_97 = 0; -if (lean::is_scalar(x_76)) { - x_98 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_46)) { + x_47 = lean::alloc_cnstr(1, 1, 1); } else { - x_98 = x_76; -} -lean::cnstr_set(x_98, 0, x_96); -lean::cnstr_set_scalar(x_98, sizeof(void*)*1, x_97); -x_99 = x_98; -x_14 = x_99; -x_15 = x_70; -goto lbl_16; -} -else -{ -uint8 x_100; obj* x_101; obj* x_102; -x_100 = 1; -if (lean::is_scalar(x_76)) { - x_101 = lean::alloc_cnstr(1, 1, 1); -} else { - x_101 = x_76; -} -lean::cnstr_set(x_101, 0, x_96); -lean::cnstr_set_scalar(x_101, sizeof(void*)*1, x_100); -x_102 = x_101; -x_14 = x_102; -x_15 = x_70; -goto lbl_16; + x_47 = x_46; } +lean::cnstr_set(x_47, 0, x_43); +lean::cnstr_set_scalar(x_47, sizeof(void*)*1, x_45); +x_48 = x_47; +x_17 = x_48; +x_18 = x_40; +goto lbl_19; } } else { -obj* x_107; obj* x_108; obj* x_110; obj* x_113; +obj* x_53; obj* x_54; obj* x_56; obj* x_59; lean::inc(x_8); lean::inc(x_7); lean::inc(x_6); lean::inc(x_0); -x_107 = lean::apply_4(x_0, x_6, x_7, x_8, x_9); -x_108 = lean::cnstr_get(x_107, 0); -lean::inc(x_108); -x_110 = lean::cnstr_get(x_107, 1); -lean::inc(x_110); -lean::dec(x_107); -x_113 = lean::box(0); -if (lean::obj_tag(x_108) == 0) +x_53 = lean::apply_4(x_0, x_6, x_7, x_8, x_9); +x_54 = lean::cnstr_get(x_53, 0); +lean::inc(x_54); +x_56 = lean::cnstr_get(x_53, 1); +lean::inc(x_56); +lean::dec(x_53); +x_59 = lean::box(0); +if (lean::obj_tag(x_54) == 0) { -obj* x_114; obj* x_116; obj* x_118; obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; -x_114 = lean::cnstr_get(x_108, 0); -x_116 = lean::cnstr_get(x_108, 1); -x_118 = lean::cnstr_get(x_108, 2); -if (lean::is_exclusive(x_108)) { - x_120 = x_108; +obj* x_60; obj* x_62; obj* x_64; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; +x_60 = lean::cnstr_get(x_54, 0); +x_62 = lean::cnstr_get(x_54, 1); +x_64 = lean::cnstr_get(x_54, 2); +if (lean::is_exclusive(x_54)) { + x_66 = x_54; } else { - lean::inc(x_114); - lean::inc(x_116); - lean::inc(x_118); - lean::dec(x_108); - x_120 = lean::box(0); + lean::inc(x_60); + lean::inc(x_62); + lean::inc(x_64); + lean::dec(x_54); + x_66 = lean::box(0); } -x_121 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_121, 0, x_114); -x_122 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_120)) { - x_123 = lean::alloc_cnstr(0, 3, 0); +x_67 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_67, 0, x_60); +x_68 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_66)) { + x_69 = lean::alloc_cnstr(0, 3, 0); } else { - x_123 = x_120; + x_69 = x_66; } -lean::cnstr_set(x_123, 0, x_121); -lean::cnstr_set(x_123, 1, x_116); -lean::cnstr_set(x_123, 2, x_122); -x_124 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_118, x_123); -if (lean::obj_tag(x_124) == 0) +lean::cnstr_set(x_69, 0, x_67); +lean::cnstr_set(x_69, 1, x_62); +lean::cnstr_set(x_69, 2, x_68); +x_70 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_64, x_69); +if (lean::obj_tag(x_70) == 0) { lean::dec(x_8); -x_17 = x_124; -x_18 = x_110; +x_17 = x_70; +x_18 = x_56; goto lbl_19; } else { -uint8 x_126; -x_126 = lean::cnstr_get_scalar(x_124, sizeof(void*)*1); -if (x_126 == 0) +uint8 x_72; +x_72 = lean::cnstr_get_scalar(x_70, sizeof(void*)*1); +if (x_72 == 0) { -obj* x_127; obj* x_130; obj* x_133; obj* x_134; obj* x_135; obj* x_136; -x_127 = lean::cnstr_get(x_124, 0); -lean::inc(x_127); -lean::dec(x_124); -x_130 = lean::cnstr_get(x_127, 2); -lean::inc(x_130); -lean::dec(x_127); -x_133 = l_mjoin___rarg___closed__1; -x_134 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_134, 0, x_130); -lean::closure_set(x_134, 1, x_133); -x_135 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_135, 0, x_134); -x_136 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_136, 0, x_113); -lean::cnstr_set(x_136, 1, x_8); -lean::cnstr_set(x_136, 2, x_135); -x_17 = x_136; -x_18 = x_110; +obj* x_73; obj* x_76; obj* x_79; obj* x_80; obj* x_81; obj* x_82; +x_73 = lean::cnstr_get(x_70, 0); +lean::inc(x_73); +lean::dec(x_70); +x_76 = lean::cnstr_get(x_73, 2); +lean::inc(x_76); +lean::dec(x_73); +x_79 = l_mjoin___rarg___closed__1; +x_80 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_80, 0, x_76); +lean::closure_set(x_80, 1, x_79); +x_81 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_81, 0, x_80); +x_82 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_82, 0, x_59); +lean::cnstr_set(x_82, 1, x_8); +lean::cnstr_set(x_82, 2, x_81); +x_17 = x_82; +x_18 = x_56; goto lbl_19; } else { lean::dec(x_8); -x_17 = x_124; -x_18 = x_110; +x_17 = x_70; +x_18 = x_56; goto lbl_19; } } } else { -uint8 x_138; -x_138 = lean::cnstr_get_scalar(x_108, sizeof(void*)*1); -if (x_138 == 0) +uint8 x_84; +x_84 = lean::cnstr_get_scalar(x_54, sizeof(void*)*1); +if (x_84 == 0) { -obj* x_139; obj* x_142; obj* x_145; obj* x_146; obj* x_147; obj* x_148; -x_139 = lean::cnstr_get(x_108, 0); -lean::inc(x_139); -lean::dec(x_108); -x_142 = lean::cnstr_get(x_139, 2); -lean::inc(x_142); -lean::dec(x_139); -x_145 = l_mjoin___rarg___closed__1; -x_146 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_146, 0, x_142); -lean::closure_set(x_146, 1, x_145); -x_147 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_147, 0, x_146); -x_148 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_148, 0, x_113); -lean::cnstr_set(x_148, 1, x_8); -lean::cnstr_set(x_148, 2, x_147); -x_17 = x_148; -x_18 = x_110; +obj* x_85; obj* x_88; obj* x_91; obj* x_92; obj* x_93; obj* x_94; +x_85 = lean::cnstr_get(x_54, 0); +lean::inc(x_85); +lean::dec(x_54); +x_88 = lean::cnstr_get(x_85, 2); +lean::inc(x_88); +lean::dec(x_85); +x_91 = l_mjoin___rarg___closed__1; +x_92 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_92, 0, x_88); +lean::closure_set(x_92, 1, x_91); +x_93 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_93, 0, x_92); +x_94 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_94, 0, x_59); +lean::cnstr_set(x_94, 1, x_8); +lean::cnstr_set(x_94, 2, x_93); +x_17 = x_94; +x_18 = x_56; goto lbl_19; } else { -obj* x_150; obj* x_152; obj* x_153; obj* x_154; +obj* x_96; obj* x_98; obj* x_99; obj* x_100; lean::dec(x_8); -x_150 = lean::cnstr_get(x_108, 0); -if (lean::is_exclusive(x_108)) { - x_152 = x_108; +x_96 = lean::cnstr_get(x_54, 0); +if (lean::is_exclusive(x_54)) { + x_98 = x_54; } else { - lean::inc(x_150); - lean::dec(x_108); - x_152 = lean::box(0); + lean::inc(x_96); + lean::dec(x_54); + x_98 = lean::box(0); } -if (lean::is_scalar(x_152)) { - x_153 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_98)) { + x_99 = lean::alloc_cnstr(1, 1, 1); } else { - x_153 = x_152; + x_99 = x_98; } -lean::cnstr_set(x_153, 0, x_150); -lean::cnstr_set_scalar(x_153, sizeof(void*)*1, x_138); -x_154 = x_153; -x_17 = x_154; -x_18 = x_110; +lean::cnstr_set(x_99, 0, x_96); +lean::cnstr_set_scalar(x_99, sizeof(void*)*1, x_84); +x_100 = x_99; +x_17 = x_100; +x_18 = x_56; goto lbl_19; } } @@ -7282,210 +7161,331 @@ lbl_16: { if (lean::obj_tag(x_14) == 0) { -obj* x_155; -x_155 = lean::cnstr_get(x_14, 0); -lean::inc(x_155); -if (lean::obj_tag(x_155) == 0) +obj* x_101; +x_101 = lean::cnstr_get(x_14, 0); +lean::inc(x_101); +if (lean::obj_tag(x_101) == 0) { -obj* x_162; obj* x_164; obj* x_166; obj* x_167; obj* x_168; obj* x_169; obj* x_170; obj* x_171; obj* x_172; obj* x_173; +obj* x_108; obj* x_110; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; lean::dec(x_13); lean::dec(x_7); lean::dec(x_1); lean::dec(x_6); lean::dec(x_0); -x_162 = lean::cnstr_get(x_14, 1); -x_164 = lean::cnstr_get(x_14, 2); +x_108 = lean::cnstr_get(x_14, 1); +x_110 = lean::cnstr_get(x_14, 2); if (lean::is_exclusive(x_14)) { lean::cnstr_release(x_14, 0); - x_166 = x_14; + x_112 = x_14; } else { - lean::inc(x_162); - lean::inc(x_164); + lean::inc(x_108); + lean::inc(x_110); lean::dec(x_14); - x_166 = lean::box(0); + x_112 = lean::box(0); } -x_167 = l_List_reverse___rarg(x_4); -x_168 = l_Lean_Parser_noKind; -x_169 = l_Lean_Parser_Syntax_mkNode(x_168, x_167); -x_170 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_166)) { - x_171 = lean::alloc_cnstr(0, 3, 0); +x_113 = l_List_reverse___rarg(x_4); +x_114 = l_Lean_Parser_noKind; +x_115 = l_Lean_Parser_Syntax_mkNode(x_114, x_113); +x_116 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_112)) { + x_117 = lean::alloc_cnstr(0, 3, 0); } else { - x_171 = x_166; + x_117 = x_112; } -lean::cnstr_set(x_171, 0, x_169); -lean::cnstr_set(x_171, 1, x_162); -lean::cnstr_set(x_171, 2, x_170); -x_172 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_164, x_171); -x_173 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_173, 0, x_172); -lean::cnstr_set(x_173, 1, x_15); -return x_173; +lean::cnstr_set(x_117, 0, x_115); +lean::cnstr_set(x_117, 1, x_108); +lean::cnstr_set(x_117, 2, x_116); +x_118 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_110, x_117); +x_119 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_119, 0, x_118); +lean::cnstr_set(x_119, 1, x_15); +return x_119; } else { -obj* x_174; obj* x_176; obj* x_178; obj* x_179; obj* x_181; obj* x_182; obj* x_183; obj* x_189; obj* x_190; obj* x_192; obj* x_195; obj* x_196; -x_174 = lean::cnstr_get(x_14, 1); -x_176 = lean::cnstr_get(x_14, 2); +obj* x_120; obj* x_122; obj* x_124; obj* x_125; obj* x_127; obj* x_128; obj* x_129; obj* x_135; obj* x_136; obj* x_138; obj* x_141; obj* x_142; +x_120 = lean::cnstr_get(x_14, 1); +x_122 = lean::cnstr_get(x_14, 2); if (lean::is_exclusive(x_14)) { lean::cnstr_release(x_14, 0); lean::cnstr_set(x_14, 1, lean::box(0)); lean::cnstr_set(x_14, 2, lean::box(0)); - x_178 = x_14; + x_124 = x_14; } else { - lean::inc(x_174); - lean::inc(x_176); + lean::inc(x_120); + lean::inc(x_122); lean::dec(x_14); - x_178 = lean::box(0); + x_124 = lean::box(0); } -x_179 = lean::cnstr_get(x_155, 0); -if (lean::is_exclusive(x_155)) { - lean::cnstr_set(x_155, 0, lean::box(0)); - x_181 = x_155; +x_125 = lean::cnstr_get(x_101, 0); +if (lean::is_exclusive(x_101)) { + lean::cnstr_set(x_101, 0, lean::box(0)); + x_127 = x_101; } else { - lean::inc(x_179); - lean::dec(x_155); - x_181 = lean::box(0); + lean::inc(x_125); + lean::dec(x_101); + x_127 = lean::box(0); } -lean::inc(x_174); +lean::inc(x_120); lean::inc(x_7); lean::inc(x_6); lean::inc(x_1); -x_189 = lean::apply_4(x_1, x_6, x_7, x_174, x_15); -x_190 = lean::cnstr_get(x_189, 0); -lean::inc(x_190); -x_192 = lean::cnstr_get(x_189, 1); -lean::inc(x_192); -lean::dec(x_189); -x_195 = lean::box(0); -x_196 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_190); -if (lean::obj_tag(x_196) == 0) +x_135 = lean::apply_4(x_1, x_6, x_7, x_120, x_15); +x_136 = lean::cnstr_get(x_135, 0); +lean::inc(x_136); +x_138 = lean::cnstr_get(x_135, 1); +lean::inc(x_138); +lean::dec(x_135); +x_141 = lean::box(0); +x_142 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_136); +if (lean::obj_tag(x_142) == 0) { -obj* x_197; obj* x_199; obj* x_201; obj* x_203; obj* x_204; obj* x_205; obj* x_206; obj* x_207; -x_197 = lean::cnstr_get(x_196, 0); -x_199 = lean::cnstr_get(x_196, 1); -x_201 = lean::cnstr_get(x_196, 2); -if (lean::is_exclusive(x_196)) { - x_203 = x_196; +obj* x_143; obj* x_145; obj* x_147; obj* x_149; obj* x_150; obj* x_151; obj* x_152; obj* x_153; +x_143 = lean::cnstr_get(x_142, 0); +x_145 = lean::cnstr_get(x_142, 1); +x_147 = lean::cnstr_get(x_142, 2); +if (lean::is_exclusive(x_142)) { + x_149 = x_142; } else { + lean::inc(x_143); + lean::inc(x_145); + lean::inc(x_147); + lean::dec(x_142); + x_149 = lean::box(0); +} +if (lean::is_scalar(x_127)) { + x_150 = lean::alloc_cnstr(1, 1, 0); +} else { + x_150 = x_127; +} +lean::cnstr_set(x_150, 0, x_143); +x_151 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_149)) { + x_152 = lean::alloc_cnstr(0, 3, 0); +} else { + x_152 = x_149; +} +lean::cnstr_set(x_152, 0, x_150); +lean::cnstr_set(x_152, 1, x_145); +lean::cnstr_set(x_152, 2, x_151); +x_153 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_147, x_152); +if (lean::obj_tag(x_153) == 0) +{ +lean::dec(x_120); +lean::dec(x_124); +x_128 = x_153; +x_129 = x_138; +goto lbl_130; +} +else +{ +uint8 x_156; +x_156 = lean::cnstr_get_scalar(x_153, sizeof(void*)*1); +if (x_156 == 0) +{ +obj* x_157; obj* x_160; obj* x_163; obj* x_164; obj* x_165; obj* x_166; +x_157 = lean::cnstr_get(x_153, 0); +lean::inc(x_157); +lean::dec(x_153); +x_160 = lean::cnstr_get(x_157, 2); +lean::inc(x_160); +lean::dec(x_157); +x_163 = l_mjoin___rarg___closed__1; +x_164 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_164, 0, x_160); +lean::closure_set(x_164, 1, x_163); +x_165 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_165, 0, x_164); +if (lean::is_scalar(x_124)) { + x_166 = lean::alloc_cnstr(0, 3, 0); +} else { + x_166 = x_124; +} +lean::cnstr_set(x_166, 0, x_141); +lean::cnstr_set(x_166, 1, x_120); +lean::cnstr_set(x_166, 2, x_165); +x_128 = x_166; +x_129 = x_138; +goto lbl_130; +} +else +{ +lean::dec(x_120); +lean::dec(x_124); +x_128 = x_153; +x_129 = x_138; +goto lbl_130; +} +} +} +else +{ +uint8 x_169; +x_169 = lean::cnstr_get_scalar(x_142, sizeof(void*)*1); +if (x_169 == 0) +{ +obj* x_170; obj* x_173; obj* x_176; obj* x_177; obj* x_178; obj* x_179; +x_170 = lean::cnstr_get(x_142, 0); +lean::inc(x_170); +lean::dec(x_142); +x_173 = lean::cnstr_get(x_170, 2); +lean::inc(x_173); +lean::dec(x_170); +x_176 = l_mjoin___rarg___closed__1; +x_177 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_177, 0, x_173); +lean::closure_set(x_177, 1, x_176); +if (lean::is_scalar(x_127)) { + x_178 = lean::alloc_cnstr(1, 1, 0); +} else { + x_178 = x_127; +} +lean::cnstr_set(x_178, 0, x_177); +if (lean::is_scalar(x_124)) { + x_179 = lean::alloc_cnstr(0, 3, 0); +} else { + x_179 = x_124; +} +lean::cnstr_set(x_179, 0, x_141); +lean::cnstr_set(x_179, 1, x_120); +lean::cnstr_set(x_179, 2, x_178); +x_128 = x_179; +x_129 = x_138; +goto lbl_130; +} +else +{ +obj* x_183; obj* x_185; obj* x_186; obj* x_187; +lean::dec(x_120); +lean::dec(x_124); +lean::dec(x_127); +x_183 = lean::cnstr_get(x_142, 0); +if (lean::is_exclusive(x_142)) { + x_185 = x_142; +} else { + lean::inc(x_183); + lean::dec(x_142); + x_185 = lean::box(0); +} +if (lean::is_scalar(x_185)) { + x_186 = lean::alloc_cnstr(1, 1, 1); +} else { + x_186 = x_185; +} +lean::cnstr_set(x_186, 0, x_183); +lean::cnstr_set_scalar(x_186, sizeof(void*)*1, x_169); +x_187 = x_186; +x_128 = x_187; +x_129 = x_138; +goto lbl_130; +} +} +lbl_130: +{ +if (lean::obj_tag(x_128) == 0) +{ +obj* x_188; +x_188 = lean::cnstr_get(x_128, 0); +lean::inc(x_188); +if (lean::obj_tag(x_188) == 0) +{ +obj* x_195; obj* x_197; obj* x_199; obj* x_200; obj* x_201; obj* x_202; obj* x_203; obj* x_204; obj* x_205; obj* x_206; obj* x_207; obj* x_208; +lean::dec(x_13); +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_6); +lean::dec(x_0); +x_195 = lean::cnstr_get(x_128, 1); +x_197 = lean::cnstr_get(x_128, 2); +if (lean::is_exclusive(x_128)) { + lean::cnstr_release(x_128, 0); + x_199 = x_128; +} else { + lean::inc(x_195); lean::inc(x_197); - lean::inc(x_199); - lean::inc(x_201); - lean::dec(x_196); - x_203 = lean::box(0); + lean::dec(x_128); + x_199 = lean::box(0); } -if (lean::is_scalar(x_181)) { - x_204 = lean::alloc_cnstr(1, 1, 0); +x_200 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_200, 0, x_125); +lean::cnstr_set(x_200, 1, x_4); +x_201 = l_List_reverse___rarg(x_200); +x_202 = l_Lean_Parser_noKind; +x_203 = l_Lean_Parser_Syntax_mkNode(x_202, x_201); +x_204 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_199)) { + x_205 = lean::alloc_cnstr(0, 3, 0); } else { - x_204 = x_181; + x_205 = x_199; } -lean::cnstr_set(x_204, 0, x_197); -x_205 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_203)) { - x_206 = lean::alloc_cnstr(0, 3, 0); -} else { - x_206 = x_203; -} -lean::cnstr_set(x_206, 0, x_204); -lean::cnstr_set(x_206, 1, x_199); -lean::cnstr_set(x_206, 2, x_205); -x_207 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_201, x_206); -if (lean::obj_tag(x_207) == 0) -{ -lean::dec(x_174); -lean::dec(x_178); -x_182 = x_207; -x_183 = x_192; -goto lbl_184; +lean::cnstr_set(x_205, 0, x_203); +lean::cnstr_set(x_205, 1, x_195); +lean::cnstr_set(x_205, 2, x_204); +x_206 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_197, x_205); +x_207 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_122, x_206); +x_208 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_208, 0, x_207); +lean::cnstr_set(x_208, 1, x_129); +return x_208; } else { -uint8 x_210; -x_210 = lean::cnstr_get_scalar(x_207, sizeof(void*)*1); -if (x_210 == 0) -{ -obj* x_211; obj* x_214; obj* x_217; obj* x_218; obj* x_219; obj* x_220; -x_211 = lean::cnstr_get(x_207, 0); +obj* x_209; obj* x_211; obj* x_214; obj* x_217; obj* x_218; obj* x_219; obj* x_221; obj* x_223; obj* x_225; obj* x_226; obj* x_227; obj* x_228; +x_209 = lean::cnstr_get(x_128, 1); +lean::inc(x_209); +x_211 = lean::cnstr_get(x_128, 2); lean::inc(x_211); -lean::dec(x_207); -x_214 = lean::cnstr_get(x_211, 2); +lean::dec(x_128); +x_214 = lean::cnstr_get(x_188, 0); lean::inc(x_214); -lean::dec(x_211); -x_217 = l_mjoin___rarg___closed__1; -x_218 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_218, 0, x_214); -lean::closure_set(x_218, 1, x_217); -x_219 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_219, 0, x_218); -if (lean::is_scalar(x_178)) { - x_220 = lean::alloc_cnstr(0, 3, 0); +lean::dec(x_188); +x_217 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_217, 0, x_125); +lean::cnstr_set(x_217, 1, x_4); +x_218 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_218, 0, x_214); +lean::cnstr_set(x_218, 1, x_217); +x_219 = l___private_init_lean_parser_combinators_2__sepByAux___main___at_Lean_Parser_command_declAttributes_Parser_Lean_Parser_HasTokens___spec__2(x_0, x_1, x_2, x_2, x_218, x_13, x_6, x_7, x_209, x_129); +lean::dec(x_13); +x_221 = lean::cnstr_get(x_219, 0); +x_223 = lean::cnstr_get(x_219, 1); +if (lean::is_exclusive(x_219)) { + x_225 = x_219; } else { - x_220 = x_178; + lean::inc(x_221); + lean::inc(x_223); + lean::dec(x_219); + x_225 = lean::box(0); } -lean::cnstr_set(x_220, 0, x_195); -lean::cnstr_set(x_220, 1, x_174); -lean::cnstr_set(x_220, 2, x_219); -x_182 = x_220; -x_183 = x_192; -goto lbl_184; -} -else -{ -lean::dec(x_174); -lean::dec(x_178); -x_182 = x_207; -x_183 = x_192; -goto lbl_184; +x_226 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_211, x_221); +x_227 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_122, x_226); +if (lean::is_scalar(x_225)) { + x_228 = lean::alloc_cnstr(0, 2, 0); +} else { + x_228 = x_225; } +lean::cnstr_set(x_228, 0, x_227); +lean::cnstr_set(x_228, 1, x_223); +return x_228; } } else { -uint8 x_223; -x_223 = lean::cnstr_get_scalar(x_196, sizeof(void*)*1); -if (x_223 == 0) -{ -obj* x_224; obj* x_227; obj* x_230; obj* x_231; obj* x_232; obj* x_233; -x_224 = lean::cnstr_get(x_196, 0); -lean::inc(x_224); -lean::dec(x_196); -x_227 = lean::cnstr_get(x_224, 2); -lean::inc(x_227); -lean::dec(x_224); -x_230 = l_mjoin___rarg___closed__1; -x_231 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_231, 0, x_227); -lean::closure_set(x_231, 1, x_230); -if (lean::is_scalar(x_181)) { - x_232 = lean::alloc_cnstr(1, 1, 0); +obj* x_236; uint8 x_238; obj* x_239; obj* x_240; obj* x_241; obj* x_242; obj* x_243; +lean::dec(x_13); +lean::dec(x_7); +lean::dec(x_4); +lean::dec(x_1); +lean::dec(x_6); +lean::dec(x_0); +lean::dec(x_125); +x_236 = lean::cnstr_get(x_128, 0); +x_238 = lean::cnstr_get_scalar(x_128, sizeof(void*)*1); +if (lean::is_exclusive(x_128)) { + x_239 = x_128; } else { - x_232 = x_181; -} -lean::cnstr_set(x_232, 0, x_231); -if (lean::is_scalar(x_178)) { - x_233 = lean::alloc_cnstr(0, 3, 0); -} else { - x_233 = x_178; -} -lean::cnstr_set(x_233, 0, x_195); -lean::cnstr_set(x_233, 1, x_174); -lean::cnstr_set(x_233, 2, x_232); -x_182 = x_233; -x_183 = x_192; -goto lbl_184; -} -else -{ -obj* x_237; obj* x_239; obj* x_240; obj* x_241; -lean::dec(x_174); -lean::dec(x_178); -lean::dec(x_181); -x_237 = lean::cnstr_get(x_196, 0); -if (lean::is_exclusive(x_196)) { - x_239 = x_196; -} else { - lean::inc(x_237); - lean::dec(x_196); + lean::inc(x_236); + lean::dec(x_128); x_239 = lean::box(0); } if (lean::is_scalar(x_239)) { @@ -7493,169 +7493,48 @@ if (lean::is_scalar(x_239)) { } else { x_240 = x_239; } -lean::cnstr_set(x_240, 0, x_237); -lean::cnstr_set_scalar(x_240, sizeof(void*)*1, x_223); +lean::cnstr_set(x_240, 0, x_236); +lean::cnstr_set_scalar(x_240, sizeof(void*)*1, x_238); x_241 = x_240; -x_182 = x_241; -x_183 = x_192; -goto lbl_184; +x_242 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_122, x_241); +x_243 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_243, 0, x_242); +lean::cnstr_set(x_243, 1, x_129); +return x_243; } } -lbl_184: +} +} +else { -if (lean::obj_tag(x_182) == 0) -{ -obj* x_242; -x_242 = lean::cnstr_get(x_182, 0); -lean::inc(x_242); -if (lean::obj_tag(x_242) == 0) -{ -obj* x_249; obj* x_251; obj* x_253; obj* x_254; obj* x_255; obj* x_256; obj* x_257; obj* x_258; obj* x_259; obj* x_260; obj* x_261; obj* x_262; +obj* x_250; uint8 x_252; obj* x_253; obj* x_254; obj* x_255; obj* x_256; lean::dec(x_13); lean::dec(x_7); +lean::dec(x_4); lean::dec(x_1); lean::dec(x_6); lean::dec(x_0); -x_249 = lean::cnstr_get(x_182, 1); -x_251 = lean::cnstr_get(x_182, 2); -if (lean::is_exclusive(x_182)) { - lean::cnstr_release(x_182, 0); - x_253 = x_182; +x_250 = lean::cnstr_get(x_14, 0); +x_252 = lean::cnstr_get_scalar(x_14, sizeof(void*)*1); +if (lean::is_exclusive(x_14)) { + x_253 = x_14; } else { - lean::inc(x_249); - lean::inc(x_251); - lean::dec(x_182); + lean::inc(x_250); + lean::dec(x_14); x_253 = lean::box(0); } -x_254 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_254, 0, x_179); -lean::cnstr_set(x_254, 1, x_4); -x_255 = l_List_reverse___rarg(x_254); -x_256 = l_Lean_Parser_noKind; -x_257 = l_Lean_Parser_Syntax_mkNode(x_256, x_255); -x_258 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; if (lean::is_scalar(x_253)) { - x_259 = lean::alloc_cnstr(0, 3, 0); + x_254 = lean::alloc_cnstr(1, 1, 1); } else { - x_259 = x_253; + x_254 = x_253; } -lean::cnstr_set(x_259, 0, x_257); -lean::cnstr_set(x_259, 1, x_249); -lean::cnstr_set(x_259, 2, x_258); -x_260 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_251, x_259); -x_261 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_176, x_260); -x_262 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_262, 0, x_261); -lean::cnstr_set(x_262, 1, x_183); -return x_262; -} -else -{ -obj* x_263; obj* x_265; obj* x_268; obj* x_271; obj* x_272; obj* x_273; obj* x_275; obj* x_277; obj* x_279; obj* x_280; obj* x_281; obj* x_282; -x_263 = lean::cnstr_get(x_182, 1); -lean::inc(x_263); -x_265 = lean::cnstr_get(x_182, 2); -lean::inc(x_265); -lean::dec(x_182); -x_268 = lean::cnstr_get(x_242, 0); -lean::inc(x_268); -lean::dec(x_242); -x_271 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_271, 0, x_179); -lean::cnstr_set(x_271, 1, x_4); -x_272 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_272, 0, x_268); -lean::cnstr_set(x_272, 1, x_271); -x_273 = l___private_init_lean_parser_combinators_2__sepByAux___main___at_Lean_Parser_command_declAttributes_Parser_Lean_Parser_HasTokens___spec__2(x_0, x_1, x_2, x_2, x_272, x_13, x_6, x_7, x_263, x_183); -lean::dec(x_13); -x_275 = lean::cnstr_get(x_273, 0); -x_277 = lean::cnstr_get(x_273, 1); -if (lean::is_exclusive(x_273)) { - x_279 = x_273; -} else { - lean::inc(x_275); - lean::inc(x_277); - lean::dec(x_273); - x_279 = lean::box(0); -} -x_280 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_265, x_275); -x_281 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_176, x_280); -if (lean::is_scalar(x_279)) { - x_282 = lean::alloc_cnstr(0, 2, 0); -} else { - x_282 = x_279; -} -lean::cnstr_set(x_282, 0, x_281); -lean::cnstr_set(x_282, 1, x_277); -return x_282; -} -} -else -{ -obj* x_290; uint8 x_292; obj* x_293; obj* x_294; obj* x_295; obj* x_296; obj* x_297; -lean::dec(x_179); -lean::dec(x_13); -lean::dec(x_7); -lean::dec(x_4); -lean::dec(x_1); -lean::dec(x_6); -lean::dec(x_0); -x_290 = lean::cnstr_get(x_182, 0); -x_292 = lean::cnstr_get_scalar(x_182, sizeof(void*)*1); -if (lean::is_exclusive(x_182)) { - x_293 = x_182; -} else { - lean::inc(x_290); - lean::dec(x_182); - x_293 = lean::box(0); -} -if (lean::is_scalar(x_293)) { - x_294 = lean::alloc_cnstr(1, 1, 1); -} else { - x_294 = x_293; -} -lean::cnstr_set(x_294, 0, x_290); -lean::cnstr_set_scalar(x_294, sizeof(void*)*1, x_292); -x_295 = x_294; -x_296 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_176, x_295); -x_297 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_297, 0, x_296); -lean::cnstr_set(x_297, 1, x_183); -return x_297; -} -} -} -} -else -{ -obj* x_304; uint8 x_306; obj* x_307; obj* x_308; obj* x_309; obj* x_310; -lean::dec(x_13); -lean::dec(x_7); -lean::dec(x_4); -lean::dec(x_1); -lean::dec(x_6); -lean::dec(x_0); -x_304 = lean::cnstr_get(x_14, 0); -x_306 = lean::cnstr_get_scalar(x_14, sizeof(void*)*1); -if (lean::is_exclusive(x_14)) { - x_307 = x_14; -} else { - lean::inc(x_304); - lean::dec(x_14); - x_307 = lean::box(0); -} -if (lean::is_scalar(x_307)) { - x_308 = lean::alloc_cnstr(1, 1, 1); -} else { - x_308 = x_307; -} -lean::cnstr_set(x_308, 0, x_304); -lean::cnstr_set_scalar(x_308, sizeof(void*)*1, x_306); -x_309 = x_308; -x_310 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_310, 0, x_309); -lean::cnstr_set(x_310, 1, x_15); -return x_310; +lean::cnstr_set(x_254, 0, x_250); +lean::cnstr_set_scalar(x_254, sizeof(void*)*1, x_252); +x_255 = x_254; +x_256 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_256, 0, x_255); +lean::cnstr_set(x_256, 1, x_15); +return x_256; } } lbl_19: @@ -7668,95 +7547,169 @@ goto lbl_16; } else { -obj* x_311; uint8 x_313; obj* x_314; obj* x_315; obj* x_317; obj* x_319; obj* x_321; obj* x_324; obj* x_327; obj* x_328; obj* x_329; obj* x_330; obj* x_331; obj* x_332; obj* x_333; obj* x_334; -x_311 = lean::cnstr_get(x_17, 0); -x_313 = lean::cnstr_get_scalar(x_17, sizeof(void*)*1); +obj* x_257; uint8 x_259; obj* x_260; obj* x_261; +x_257 = lean::cnstr_get(x_17, 0); +x_259 = lean::cnstr_get_scalar(x_17, sizeof(void*)*1); if (lean::is_exclusive(x_17)) { lean::cnstr_set(x_17, 0, lean::box(0)); - x_314 = x_17; + x_260 = x_17; } else { - lean::inc(x_311); + lean::inc(x_257); lean::dec(x_17); - x_314 = lean::box(0); + x_260 = lean::box(0); } -x_315 = lean::cnstr_get(x_311, 0); -lean::inc(x_315); -x_317 = lean::cnstr_get(x_311, 1); -lean::inc(x_317); -x_319 = lean::cnstr_get(x_311, 2); -lean::inc(x_319); -x_321 = lean::cnstr_get(x_311, 3); -lean::inc(x_321); -lean::dec(x_311); -x_324 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_321); -lean::dec(x_321); +x_261 = lean::cnstr_get(x_257, 3); +lean::inc(x_261); +if (lean::obj_tag(x_261) == 0) +{ +obj* x_263; obj* x_265; obj* x_267; obj* x_270; obj* x_272; obj* x_273; obj* x_274; obj* x_275; obj* x_276; obj* x_277; obj* x_278; +x_263 = lean::cnstr_get(x_257, 0); +lean::inc(x_263); +x_265 = lean::cnstr_get(x_257, 1); +lean::inc(x_265); +x_267 = lean::cnstr_get(x_257, 2); +lean::inc(x_267); +lean::dec(x_257); +x_270 = lean::box(3); lean::inc(x_4); -x_327 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_327, 0, x_324); -lean::cnstr_set(x_327, 1, x_4); -x_328 = lean::box(3); -x_329 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_329, 0, x_328); -lean::cnstr_set(x_329, 1, x_327); -x_330 = l_List_reverse___rarg(x_329); -x_331 = l_Lean_Parser_noKind; -x_332 = l_Lean_Parser_Syntax_mkNode(x_331, x_330); -x_333 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_333, 0, x_332); -x_334 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_334, 0, x_315); -lean::cnstr_set(x_334, 1, x_317); -lean::cnstr_set(x_334, 2, x_319); -lean::cnstr_set(x_334, 3, x_333); -if (x_313 == 0) +x_272 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_272, 0, x_270); +lean::cnstr_set(x_272, 1, x_4); +x_273 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_273, 0, x_270); +lean::cnstr_set(x_273, 1, x_272); +x_274 = l_List_reverse___rarg(x_273); +x_275 = l_Lean_Parser_noKind; +x_276 = l_Lean_Parser_Syntax_mkNode(x_275, x_274); +x_277 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_277, 0, x_276); +x_278 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_278, 0, x_263); +lean::cnstr_set(x_278, 1, x_265); +lean::cnstr_set(x_278, 2, x_267); +lean::cnstr_set(x_278, 3, x_277); +if (x_259 == 0) { -uint8 x_335; obj* x_336; obj* x_337; -x_335 = 0; -if (lean::is_scalar(x_314)) { - x_336 = lean::alloc_cnstr(1, 1, 1); +uint8 x_279; obj* x_280; obj* x_281; +x_279 = 0; +if (lean::is_scalar(x_260)) { + x_280 = lean::alloc_cnstr(1, 1, 1); } else { - x_336 = x_314; + x_280 = x_260; } -lean::cnstr_set(x_336, 0, x_334); -lean::cnstr_set_scalar(x_336, sizeof(void*)*1, x_335); -x_337 = x_336; -x_14 = x_337; +lean::cnstr_set(x_280, 0, x_278); +lean::cnstr_set_scalar(x_280, sizeof(void*)*1, x_279); +x_281 = x_280; +x_14 = x_281; x_15 = x_18; goto lbl_16; } else { -uint8 x_338; obj* x_339; obj* x_340; -x_338 = 1; -if (lean::is_scalar(x_314)) { - x_339 = lean::alloc_cnstr(1, 1, 1); +uint8 x_282; obj* x_283; obj* x_284; +x_282 = 1; +if (lean::is_scalar(x_260)) { + x_283 = lean::alloc_cnstr(1, 1, 1); } else { - x_339 = x_314; + x_283 = x_260; } -lean::cnstr_set(x_339, 0, x_334); -lean::cnstr_set_scalar(x_339, sizeof(void*)*1, x_338); -x_340 = x_339; -x_14 = x_340; +lean::cnstr_set(x_283, 0, x_278); +lean::cnstr_set_scalar(x_283, sizeof(void*)*1, x_282); +x_284 = x_283; +x_14 = x_284; +x_15 = x_18; +goto lbl_16; +} +} +else +{ +obj* x_285; obj* x_287; obj* x_289; obj* x_292; obj* x_294; obj* x_296; obj* x_297; obj* x_298; obj* x_299; obj* x_300; obj* x_301; obj* x_302; obj* x_303; +x_285 = lean::cnstr_get(x_257, 0); +lean::inc(x_285); +x_287 = lean::cnstr_get(x_257, 1); +lean::inc(x_287); +x_289 = lean::cnstr_get(x_257, 2); +lean::inc(x_289); +lean::dec(x_257); +x_292 = lean::cnstr_get(x_261, 0); +if (lean::is_exclusive(x_261)) { + x_294 = x_261; +} else { + lean::inc(x_292); + lean::dec(x_261); + x_294 = lean::box(0); +} +lean::inc(x_4); +x_296 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_296, 0, x_292); +lean::cnstr_set(x_296, 1, x_4); +x_297 = lean::box(3); +x_298 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_298, 0, x_297); +lean::cnstr_set(x_298, 1, x_296); +x_299 = l_List_reverse___rarg(x_298); +x_300 = l_Lean_Parser_noKind; +x_301 = l_Lean_Parser_Syntax_mkNode(x_300, x_299); +if (lean::is_scalar(x_294)) { + x_302 = lean::alloc_cnstr(1, 1, 0); +} else { + x_302 = x_294; +} +lean::cnstr_set(x_302, 0, x_301); +x_303 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_303, 0, x_285); +lean::cnstr_set(x_303, 1, x_287); +lean::cnstr_set(x_303, 2, x_289); +lean::cnstr_set(x_303, 3, x_302); +if (x_259 == 0) +{ +uint8 x_304; obj* x_305; obj* x_306; +x_304 = 0; +if (lean::is_scalar(x_260)) { + x_305 = lean::alloc_cnstr(1, 1, 1); +} else { + x_305 = x_260; +} +lean::cnstr_set(x_305, 0, x_303); +lean::cnstr_set_scalar(x_305, sizeof(void*)*1, x_304); +x_306 = x_305; +x_14 = x_306; +x_15 = x_18; +goto lbl_16; +} +else +{ +uint8 x_307; obj* x_308; obj* x_309; +x_307 = 1; +if (lean::is_scalar(x_260)) { + x_308 = lean::alloc_cnstr(1, 1, 1); +} else { + x_308 = x_260; +} +lean::cnstr_set(x_308, 0, x_303); +lean::cnstr_set_scalar(x_308, sizeof(void*)*1, x_307); +x_309 = x_308; +x_14 = x_309; x_15 = x_18; goto lbl_16; } } } } +} else { -obj* x_344; obj* x_345; obj* x_346; obj* x_347; +obj* x_313; obj* x_314; obj* x_315; obj* x_316; lean::dec(x_4); lean::dec(x_1); lean::dec(x_0); -x_344 = lean::box(0); -x_345 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; -x_346 = l_mjoin___rarg___closed__1; -x_347 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_345, x_346, x_344, x_344, x_6, x_7, x_8, x_9); -lean::dec(x_8); +x_313 = lean::box(0); +x_314 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; +x_315 = l_mjoin___rarg___closed__1; +x_316 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_314, x_315, x_313, x_313, x_6, x_7, x_8, x_9); lean::dec(x_7); lean::dec(x_6); -return x_347; +return x_316; } } } @@ -8275,47 +8228,43 @@ return x_89; obj* _init_l_Lean_Parser_command_visibility_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(0ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_visibility; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_visibility; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_command_visibility_HasView_x_27___lambda__2___closed__2() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(1ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_visibility; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_visibility; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* l_Lean_Parser_command_visibility_HasView_x_27___lambda__2(obj* x_0) { @@ -8337,84 +8286,56 @@ return x_5; } else { -obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +obj* x_6; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; x_6 = lean::cnstr_get(x_2, 0); -if (lean::is_exclusive(x_2)) { - x_8 = x_2; -} else { - lean::inc(x_6); - lean::dec(x_2); - x_8 = lean::box(0); -} +lean::inc(x_6); +lean::dec(x_2); x_9 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_9, 0, x_6); -if (lean::is_scalar(x_8)) { - x_10 = lean::alloc_cnstr(1, 1, 0); -} else { - x_10 = x_8; -} +x_10 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_10, 0, x_9); -x_11 = lean::box(3); -x_12 = l_Option_getOrElse___main___rarg(x_10, x_11); -lean::dec(x_10); -x_14 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_14, 0, x_12); -lean::cnstr_set(x_14, 1, x_1); -x_15 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; -x_16 = l_Lean_Parser_Syntax_mkNode(x_15, x_14); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_16); -lean::cnstr_set(x_17, 1, x_1); -x_18 = l_Lean_Parser_command_visibility; -x_19 = l_Lean_Parser_Syntax_mkNode(x_18, x_17); +lean::cnstr_set(x_10, 1, x_1); +x_11 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; +x_12 = l_Lean_Parser_Syntax_mkNode(x_11, x_10); +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_1); +x_14 = l_Lean_Parser_command_visibility; +x_15 = l_Lean_Parser_Syntax_mkNode(x_14, x_13); +return x_15; +} +} +else +{ +obj* x_16; +x_16 = lean::cnstr_get(x_0, 0); +lean::inc(x_16); +lean::dec(x_0); +if (lean::obj_tag(x_16) == 0) +{ +obj* x_19; +x_19 = l_Lean_Parser_command_visibility_HasView_x_27___lambda__2___closed__2; return x_19; } -} else { -obj* x_20; -x_20 = lean::cnstr_get(x_0, 0); +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +x_20 = lean::cnstr_get(x_16, 0); lean::inc(x_20); -lean::dec(x_0); -if (lean::obj_tag(x_20) == 0) -{ -obj* x_23; -x_23 = l_Lean_Parser_command_visibility_HasView_x_27___lambda__2___closed__2; -return x_23; -} -else -{ -obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; -x_24 = lean::cnstr_get(x_20, 0); -if (lean::is_exclusive(x_20)) { - x_26 = x_20; -} else { - lean::inc(x_24); - lean::dec(x_20); - x_26 = lean::box(0); -} -x_27 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_27, 0, x_24); -if (lean::is_scalar(x_26)) { - x_28 = lean::alloc_cnstr(1, 1, 0); -} else { - x_28 = x_26; -} -lean::cnstr_set(x_28, 0, x_27); -x_29 = lean::box(3); -x_30 = l_Option_getOrElse___main___rarg(x_28, x_29); -lean::dec(x_28); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_30); -lean::cnstr_set(x_32, 1, x_1); -x_33 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; -x_34 = l_Lean_Parser_Syntax_mkNode(x_33, x_32); -x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_34); -lean::cnstr_set(x_35, 1, x_1); -x_36 = l_Lean_Parser_command_visibility; -x_37 = l_Lean_Parser_Syntax_mkNode(x_36, x_35); -return x_37; +lean::dec(x_16); +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_23); +lean::cnstr_set(x_24, 1, x_1); +x_25 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; +x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_1); +x_28 = l_Lean_Parser_command_visibility; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } } @@ -9517,43 +9438,39 @@ return x_197; obj* _init_l_Lean_Parser_command_declModifiers_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -x_4 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_4, 0, x_3); -lean::cnstr_set(x_4, 1, x_0); -x_5 = l_Lean_Parser_noKind; -x_6 = l_Lean_Parser_Syntax_mkNode(x_5, x_4); -x_7 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_7, 0, x_6); -lean::cnstr_set(x_7, 1, x_0); -return x_7; +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = l_Lean_Parser_noKind; +x_4 = l_Lean_Parser_Syntax_mkNode(x_3, x_2); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +return x_5; } } obj* _init_l_Lean_Parser_command_declModifiers_HasView_x_27___lambda__2___closed__2() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -x_4 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_4, 0, x_3); -lean::cnstr_set(x_4, 1, x_0); -x_5 = l_Lean_Parser_noKind; -x_6 = l_Lean_Parser_Syntax_mkNode(x_5, x_4); -x_7 = l_Lean_Parser_Syntax_mkNode(x_5, x_0); -x_8 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_8, 0, x_7); -lean::cnstr_set(x_8, 1, x_0); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_6); -lean::cnstr_set(x_9, 1, x_8); -return x_9; +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = l_Lean_Parser_noKind; +x_4 = l_Lean_Parser_Syntax_mkNode(x_3, x_2); +x_5 = l_Lean_Parser_Syntax_mkNode(x_3, x_0); +x_6 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_6, 0, x_5); +lean::cnstr_set(x_6, 1, x_0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_4); +lean::cnstr_set(x_7, 1, x_6); +return x_7; } } obj* l_Lean_Parser_command_declModifiers_HasView_x_27___lambda__2(obj* x_0) { @@ -9729,59 +9646,45 @@ goto lbl_57; } else { -obj* x_81; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_89; obj* x_90; obj* x_91; +obj* x_81; obj* x_84; obj* x_85; obj* x_86; obj* x_87; x_81 = lean::cnstr_get(x_68, 0); -if (lean::is_exclusive(x_68)) { - x_83 = x_68; -} else { - lean::inc(x_81); - lean::dec(x_68); - x_83 = lean::box(0); -} +lean::inc(x_81); +lean::dec(x_68); x_84 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_84, 0, x_81); -if (lean::is_scalar(x_83)) { - x_85 = lean::alloc_cnstr(1, 1, 0); -} else { - x_85 = x_83; -} +x_85 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_85, 0, x_84); -x_86 = lean::box(3); -x_87 = l_Option_getOrElse___main___rarg(x_85, x_86); -lean::dec(x_85); -x_89 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_89, 0, x_87); -lean::cnstr_set(x_89, 1, x_12); -x_90 = l_Lean_Parser_noKind; -x_91 = l_Lean_Parser_Syntax_mkNode(x_90, x_89); +lean::cnstr_set(x_85, 1, x_12); +x_86 = l_Lean_Parser_noKind; +x_87 = l_Lean_Parser_Syntax_mkNode(x_86, x_85); if (lean::obj_tag(x_9) == 0) { -obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; -x_92 = l_Lean_Parser_detailIdent_HasView_x_27___lambda__2___closed__1; -x_93 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_93, 0, x_91); -lean::cnstr_set(x_93, 1, x_92); -x_94 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_94, 0, x_41); -lean::cnstr_set(x_94, 1, x_93); -x_95 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_95, 0, x_27); -lean::cnstr_set(x_95, 1, x_94); -x_96 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_96, 0, x_13); -lean::cnstr_set(x_96, 1, x_95); -x_97 = l_Lean_Parser_command_declModifiers; -x_98 = l_Lean_Parser_Syntax_mkNode(x_97, x_96); -return x_98; +obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; +x_88 = l_Lean_Parser_detailIdent_HasView_x_27___lambda__2___closed__1; +x_89 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_89, 0, x_87); +lean::cnstr_set(x_89, 1, x_88); +x_90 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_90, 0, x_41); +lean::cnstr_set(x_90, 1, x_89); +x_91 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_91, 0, x_27); +lean::cnstr_set(x_91, 1, x_90); +x_92 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_92, 0, x_13); +lean::cnstr_set(x_92, 1, x_91); +x_93 = l_Lean_Parser_command_declModifiers; +x_94 = l_Lean_Parser_Syntax_mkNode(x_93, x_92); +return x_94; } else { -obj* x_99; -x_99 = lean::cnstr_get(x_9, 0); -lean::inc(x_99); +obj* x_95; +x_95 = lean::cnstr_get(x_9, 0); +lean::inc(x_95); lean::dec(x_9); -x_55 = x_91; -x_56 = x_99; +x_55 = x_87; +x_56 = x_95; goto lbl_57; } } @@ -9790,69 +9693,55 @@ lbl_57: { if (lean::obj_tag(x_56) == 0) { -obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; -x_102 = l_Lean_Parser_command_declModifiers_HasView_x_27___lambda__2___closed__1; -x_103 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_103, 0, x_55); -lean::cnstr_set(x_103, 1, x_102); -x_104 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_104, 0, x_41); -lean::cnstr_set(x_104, 1, x_103); -x_105 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_105, 0, x_27); -lean::cnstr_set(x_105, 1, x_104); -x_106 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_106, 0, x_13); -lean::cnstr_set(x_106, 1, x_105); -x_107 = l_Lean_Parser_command_declModifiers; -x_108 = l_Lean_Parser_Syntax_mkNode(x_107, x_106); -return x_108; +obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; +x_98 = l_Lean_Parser_command_declModifiers_HasView_x_27___lambda__2___closed__1; +x_99 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_99, 0, x_55); +lean::cnstr_set(x_99, 1, x_98); +x_100 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_100, 0, x_41); +lean::cnstr_set(x_100, 1, x_99); +x_101 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_101, 0, x_27); +lean::cnstr_set(x_101, 1, x_100); +x_102 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_102, 0, x_13); +lean::cnstr_set(x_102, 1, x_101); +x_103 = l_Lean_Parser_command_declModifiers; +x_104 = l_Lean_Parser_Syntax_mkNode(x_103, x_102); +return x_104; } else { -obj* x_109; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; -x_109 = lean::cnstr_get(x_56, 0); -if (lean::is_exclusive(x_56)) { - x_111 = x_56; -} else { - lean::inc(x_109); - lean::dec(x_56); - x_111 = lean::box(0); -} -x_112 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_112, 0, x_109); -if (lean::is_scalar(x_111)) { - x_113 = lean::alloc_cnstr(1, 1, 0); -} else { - x_113 = x_111; -} -lean::cnstr_set(x_113, 0, x_112); -x_114 = lean::box(3); -x_115 = l_Option_getOrElse___main___rarg(x_113, x_114); -lean::dec(x_113); -x_117 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_117, 0, x_115); -lean::cnstr_set(x_117, 1, x_12); -x_118 = l_Lean_Parser_noKind; -x_119 = l_Lean_Parser_Syntax_mkNode(x_118, x_117); -x_120 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_120, 0, x_119); -lean::cnstr_set(x_120, 1, x_12); -x_121 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_121, 0, x_55); -lean::cnstr_set(x_121, 1, x_120); -x_122 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_122, 0, x_41); -lean::cnstr_set(x_122, 1, x_121); -x_123 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_123, 0, x_27); -lean::cnstr_set(x_123, 1, x_122); -x_124 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_124, 0, x_13); -lean::cnstr_set(x_124, 1, x_123); -x_125 = l_Lean_Parser_command_declModifiers; -x_126 = l_Lean_Parser_Syntax_mkNode(x_125, x_124); -return x_126; +obj* x_105; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; +x_105 = lean::cnstr_get(x_56, 0); +lean::inc(x_105); +lean::dec(x_56); +x_108 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_108, 0, x_105); +x_109 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_109, 0, x_108); +lean::cnstr_set(x_109, 1, x_12); +x_110 = l_Lean_Parser_noKind; +x_111 = l_Lean_Parser_Syntax_mkNode(x_110, x_109); +x_112 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_112, 0, x_111); +lean::cnstr_set(x_112, 1, x_12); +x_113 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_113, 0, x_55); +lean::cnstr_set(x_113, 1, x_112); +x_114 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_114, 0, x_41); +lean::cnstr_set(x_114, 1, x_113); +x_115 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_115, 0, x_27); +lean::cnstr_set(x_115, 1, x_114); +x_116 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_116, 0, x_13); +lean::cnstr_set(x_116, 1, x_115); +x_117 = l_Lean_Parser_command_declModifiers; +x_118 = l_Lean_Parser_Syntax_mkNode(x_117, x_116); +return x_118; } } } @@ -9894,181 +9783,273 @@ x_15 = lean::cnstr_get(x_14, 0); lean::inc(x_15); if (lean::obj_tag(x_15) == 0) { -if (lean::obj_tag(x_15) == 0) -{ -obj* x_17; obj* x_20; obj* x_22; obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; +obj* x_17; x_17 = lean::cnstr_get(x_14, 1); lean::inc(x_17); lean::dec(x_14); -x_20 = lean::cnstr_get(x_15, 0); -x_22 = lean::cnstr_get(x_15, 1); -x_24 = lean::cnstr_get(x_15, 2); -if (lean::is_exclusive(x_15)) { - x_26 = x_15; -} else { - lean::inc(x_20); - lean::inc(x_22); - lean::inc(x_24); - lean::dec(x_15); - x_26 = lean::box(0); -} -x_27 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_27, 0, x_20); -x_28 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_26)) { - x_29 = lean::alloc_cnstr(0, 3, 0); -} else { - x_29 = x_26; -} -lean::cnstr_set(x_29, 0, x_27); -lean::cnstr_set(x_29, 1, x_22); -lean::cnstr_set(x_29, 2, x_28); -x_30 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_24, x_29); -x_10 = x_30; +x_10 = x_15; x_11 = x_17; goto lbl_12; } else { -obj* x_31; obj* x_34; uint8 x_36; obj* x_37; obj* x_38; obj* x_39; -x_31 = lean::cnstr_get(x_14, 1); -lean::inc(x_31); -lean::dec(x_14); -x_34 = lean::cnstr_get(x_15, 0); -x_36 = lean::cnstr_get_scalar(x_15, sizeof(void*)*1); -if (lean::is_exclusive(x_15)) { - x_37 = x_15; -} else { - lean::inc(x_34); - lean::dec(x_15); - x_37 = lean::box(0); -} -if (lean::is_scalar(x_37)) { - x_38 = lean::alloc_cnstr(1, 1, 1); -} else { - x_38 = x_37; -} -lean::cnstr_set(x_38, 0, x_34); -lean::cnstr_set_scalar(x_38, sizeof(void*)*1, x_36); -x_39 = x_38; -x_10 = x_39; -x_11 = x_31; -goto lbl_12; -} -} -else -{ -obj* x_40; obj* x_43; uint8 x_45; obj* x_46; obj* x_47; obj* x_49; obj* x_51; obj* x_53; obj* x_56; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; -x_40 = lean::cnstr_get(x_14, 1); -lean::inc(x_40); -lean::dec(x_14); -x_43 = lean::cnstr_get(x_15, 0); -x_45 = lean::cnstr_get_scalar(x_15, sizeof(void*)*1); +obj* x_20; uint8 x_22; obj* x_23; obj* x_24; +x_20 = lean::cnstr_get(x_15, 0); +x_22 = lean::cnstr_get_scalar(x_15, sizeof(void*)*1); if (lean::is_exclusive(x_15)) { lean::cnstr_set(x_15, 0, lean::box(0)); - x_46 = x_15; + x_23 = x_15; } else { - lean::inc(x_43); + lean::inc(x_20); lean::dec(x_15); - x_46 = lean::box(0); + x_23 = lean::box(0); } -x_47 = lean::cnstr_get(x_43, 0); -lean::inc(x_47); -x_49 = lean::cnstr_get(x_43, 1); -lean::inc(x_49); -x_51 = lean::cnstr_get(x_43, 2); -lean::inc(x_51); -x_53 = lean::cnstr_get(x_43, 3); -lean::inc(x_53); -lean::dec(x_43); -x_56 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_53); -lean::dec(x_53); -x_58 = lean::box(0); -x_59 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_59, 0, x_56); -lean::cnstr_set(x_59, 1, x_58); -x_60 = l_Lean_Parser_noKind; -x_61 = l_Lean_Parser_Syntax_mkNode(x_60, x_59); -x_62 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_62, 0, x_61); -x_63 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_63, 0, x_47); -lean::cnstr_set(x_63, 1, x_49); -lean::cnstr_set(x_63, 2, x_51); -lean::cnstr_set(x_63, 3, x_62); -if (x_45 == 0) +x_24 = lean::cnstr_get(x_20, 3); +lean::inc(x_24); +if (lean::obj_tag(x_24) == 0) { -uint8 x_64; obj* x_65; obj* x_66; -x_64 = 0; -if (lean::is_scalar(x_46)) { - x_65 = lean::alloc_cnstr(1, 1, 1); +obj* x_26; obj* x_29; obj* x_31; obj* x_33; obj* x_36; obj* x_37; +x_26 = lean::cnstr_get(x_14, 1); +lean::inc(x_26); +lean::dec(x_14); +x_29 = lean::cnstr_get(x_20, 0); +lean::inc(x_29); +x_31 = lean::cnstr_get(x_20, 1); +lean::inc(x_31); +x_33 = lean::cnstr_get(x_20, 2); +lean::inc(x_33); +lean::dec(x_20); +x_36 = l_Lean_Parser_Combinators_optional___rarg___lambda__1___closed__1; +x_37 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_37, 0, x_29); +lean::cnstr_set(x_37, 1, x_31); +lean::cnstr_set(x_37, 2, x_33); +lean::cnstr_set(x_37, 3, x_36); +if (x_22 == 0) +{ +uint8 x_38; obj* x_39; obj* x_40; +x_38 = 0; +if (lean::is_scalar(x_23)) { + x_39 = lean::alloc_cnstr(1, 1, 1); } else { - x_65 = x_46; + x_39 = x_23; } -lean::cnstr_set(x_65, 0, x_63); -lean::cnstr_set_scalar(x_65, sizeof(void*)*1, x_64); -x_66 = x_65; -x_10 = x_66; -x_11 = x_40; +lean::cnstr_set(x_39, 0, x_37); +lean::cnstr_set_scalar(x_39, sizeof(void*)*1, x_38); +x_40 = x_39; +x_10 = x_40; +x_11 = x_26; goto lbl_12; } else { -uint8 x_67; obj* x_68; obj* x_69; -x_67 = 1; -if (lean::is_scalar(x_46)) { - x_68 = lean::alloc_cnstr(1, 1, 1); +uint8 x_41; obj* x_42; obj* x_43; +x_41 = 1; +if (lean::is_scalar(x_23)) { + x_42 = lean::alloc_cnstr(1, 1, 1); } else { - x_68 = x_46; + x_42 = x_23; } -lean::cnstr_set(x_68, 0, x_63); -lean::cnstr_set_scalar(x_68, sizeof(void*)*1, x_67); -x_69 = x_68; -x_10 = x_69; -x_11 = x_40; +lean::cnstr_set(x_42, 0, x_37); +lean::cnstr_set_scalar(x_42, sizeof(void*)*1, x_41); +x_43 = x_42; +x_10 = x_43; +x_11 = x_26; goto lbl_12; } } +else +{ +obj* x_44; obj* x_47; obj* x_49; obj* x_51; obj* x_54; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; +x_44 = lean::cnstr_get(x_14, 1); +lean::inc(x_44); +lean::dec(x_14); +x_47 = lean::cnstr_get(x_20, 0); +lean::inc(x_47); +x_49 = lean::cnstr_get(x_20, 1); +lean::inc(x_49); +x_51 = lean::cnstr_get(x_20, 2); +lean::inc(x_51); +lean::dec(x_20); +x_54 = lean::cnstr_get(x_24, 0); +if (lean::is_exclusive(x_24)) { + x_56 = x_24; +} else { + lean::inc(x_54); + lean::dec(x_24); + x_56 = lean::box(0); +} +x_57 = lean::box(0); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_54); +lean::cnstr_set(x_58, 1, x_57); +x_59 = l_Lean_Parser_noKind; +x_60 = l_Lean_Parser_Syntax_mkNode(x_59, x_58); +if (lean::is_scalar(x_56)) { + x_61 = lean::alloc_cnstr(1, 1, 0); +} else { + x_61 = x_56; +} +lean::cnstr_set(x_61, 0, x_60); +x_62 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_62, 0, x_47); +lean::cnstr_set(x_62, 1, x_49); +lean::cnstr_set(x_62, 2, x_51); +lean::cnstr_set(x_62, 3, x_61); +if (x_22 == 0) +{ +uint8 x_63; obj* x_64; obj* x_65; +x_63 = 0; +if (lean::is_scalar(x_23)) { + x_64 = lean::alloc_cnstr(1, 1, 1); +} else { + x_64 = x_23; +} +lean::cnstr_set(x_64, 0, x_62); +lean::cnstr_set_scalar(x_64, sizeof(void*)*1, x_63); +x_65 = x_64; +x_10 = x_65; +x_11 = x_44; +goto lbl_12; +} +else +{ +uint8 x_66; obj* x_67; obj* x_68; +x_66 = 1; +if (lean::is_scalar(x_23)) { + x_67 = lean::alloc_cnstr(1, 1, 1); +} else { + x_67 = x_23; +} +lean::cnstr_set(x_67, 0, x_62); +lean::cnstr_set_scalar(x_67, sizeof(void*)*1, x_66); +x_68 = x_67; +x_10 = x_68; +x_11 = x_44; +goto lbl_12; +} +} +} lbl_12: { if (lean::obj_tag(x_10) == 0) { +obj* x_69; obj* x_71; obj* x_73; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; +x_69 = lean::cnstr_get(x_10, 0); +x_71 = lean::cnstr_get(x_10, 1); +x_73 = lean::cnstr_get(x_10, 2); +if (lean::is_exclusive(x_10)) { + x_75 = x_10; +} else { + lean::inc(x_69); + lean::inc(x_71); + lean::inc(x_73); + lean::dec(x_10); + x_75 = lean::box(0); +} +x_76 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_76, 0, x_69); +x_77 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_75)) { + x_78 = lean::alloc_cnstr(0, 3, 0); +} else { + x_78 = x_75; +} +lean::cnstr_set(x_78, 0, x_76); +lean::cnstr_set(x_78, 1, x_71); +lean::cnstr_set(x_78, 2, x_77); +x_79 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_73, x_78); +if (lean::obj_tag(x_79) == 0) +{ lean::dec(x_4); -x_6 = x_10; +x_6 = x_79; x_7 = x_11; goto lbl_8; } else { -uint8 x_71; -x_71 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); -if (x_71 == 0) +uint8 x_81; +x_81 = lean::cnstr_get_scalar(x_79, sizeof(void*)*1); +if (x_81 == 0) { -obj* x_72; obj* x_75; obj* x_78; obj* x_79; obj* x_80; obj* x_81; -x_72 = lean::cnstr_get(x_10, 0); -lean::inc(x_72); +obj* x_82; obj* x_85; obj* x_88; obj* x_89; obj* x_90; obj* x_91; +x_82 = lean::cnstr_get(x_79, 0); +lean::inc(x_82); +lean::dec(x_79); +x_85 = lean::cnstr_get(x_82, 2); +lean::inc(x_85); +lean::dec(x_82); +x_88 = l_mjoin___rarg___closed__1; +x_89 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_89, 0, x_85); +lean::closure_set(x_89, 1, x_88); +x_90 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_90, 0, x_89); +x_91 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_91, 0, x_9); +lean::cnstr_set(x_91, 1, x_4); +lean::cnstr_set(x_91, 2, x_90); +x_6 = x_91; +x_7 = x_11; +goto lbl_8; +} +else +{ +lean::dec(x_4); +x_6 = x_79; +x_7 = x_11; +goto lbl_8; +} +} +} +else +{ +uint8 x_93; +x_93 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); +if (x_93 == 0) +{ +obj* x_94; obj* x_97; obj* x_100; obj* x_101; obj* x_102; obj* x_103; +x_94 = lean::cnstr_get(x_10, 0); +lean::inc(x_94); lean::dec(x_10); -x_75 = lean::cnstr_get(x_72, 2); -lean::inc(x_75); -lean::dec(x_72); -x_78 = l_mjoin___rarg___closed__1; -x_79 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_79, 0, x_75); -lean::closure_set(x_79, 1, x_78); -x_80 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_80, 0, x_79); -x_81 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_81, 0, x_9); -lean::cnstr_set(x_81, 1, x_4); -lean::cnstr_set(x_81, 2, x_80); -x_6 = x_81; +x_97 = lean::cnstr_get(x_94, 2); +lean::inc(x_97); +lean::dec(x_94); +x_100 = l_mjoin___rarg___closed__1; +x_101 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_101, 0, x_97); +lean::closure_set(x_101, 1, x_100); +x_102 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_102, 0, x_101); +x_103 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_103, 0, x_9); +lean::cnstr_set(x_103, 1, x_4); +lean::cnstr_set(x_103, 2, x_102); +x_6 = x_103; x_7 = x_11; goto lbl_8; } else { +obj* x_105; obj* x_107; obj* x_108; obj* x_109; lean::dec(x_4); -x_6 = x_10; +x_105 = lean::cnstr_get(x_10, 0); +if (lean::is_exclusive(x_10)) { + x_107 = x_10; +} else { + lean::inc(x_105); + lean::dec(x_10); + x_107 = lean::box(0); +} +if (lean::is_scalar(x_107)) { + x_108 = lean::alloc_cnstr(1, 1, 1); +} else { + x_108 = x_107; +} +lean::cnstr_set(x_108, 0, x_105); +lean::cnstr_set_scalar(x_108, sizeof(void*)*1, x_93); +x_109 = x_108; +x_6 = x_109; x_7 = x_11; goto lbl_8; } @@ -10077,110 +10058,110 @@ goto lbl_8; } else { -obj* x_83; -x_83 = lean::apply_4(x_0, x_2, x_3, x_4, x_5); -return x_83; +obj* x_110; +x_110 = lean::apply_4(x_0, x_2, x_3, x_4, x_5); +return x_110; } lbl_8: { if (lean::obj_tag(x_6) == 0) { -obj* x_84; -x_84 = lean::cnstr_get(x_6, 0); -lean::inc(x_84); -if (lean::obj_tag(x_84) == 0) +obj* x_111; +x_111 = lean::cnstr_get(x_6, 0); +lean::inc(x_111); +if (lean::obj_tag(x_111) == 0) { -obj* x_86; obj* x_88; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; -x_86 = lean::cnstr_get(x_6, 1); -x_88 = lean::cnstr_get(x_6, 2); +obj* x_113; obj* x_115; obj* x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; +x_113 = lean::cnstr_get(x_6, 1); +x_115 = lean::cnstr_get(x_6, 2); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); - x_90 = x_6; + x_117 = x_6; } else { - lean::inc(x_86); - lean::inc(x_88); + lean::inc(x_113); + lean::inc(x_115); lean::dec(x_6); - x_90 = lean::box(0); + x_117 = lean::box(0); } -x_91 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_92 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_90)) { - x_93 = lean::alloc_cnstr(0, 3, 0); +x_118 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_119 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_117)) { + x_120 = lean::alloc_cnstr(0, 3, 0); } else { - x_93 = x_90; + x_120 = x_117; } -lean::cnstr_set(x_93, 0, x_91); -lean::cnstr_set(x_93, 1, x_86); -lean::cnstr_set(x_93, 2, x_92); -x_94 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_88, x_93); -x_95 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_95, 0, x_94); -lean::cnstr_set(x_95, 1, x_7); -return x_95; +lean::cnstr_set(x_120, 0, x_118); +lean::cnstr_set(x_120, 1, x_113); +lean::cnstr_set(x_120, 2, x_119); +x_121 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_115, x_120); +x_122 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_122, 0, x_121); +lean::cnstr_set(x_122, 1, x_7); +return x_122; } else { -obj* x_96; obj* x_98; obj* x_100; obj* x_101; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; -x_96 = lean::cnstr_get(x_6, 1); -x_98 = lean::cnstr_get(x_6, 2); +obj* x_123; obj* x_125; obj* x_127; obj* x_128; obj* x_131; obj* x_132; obj* x_133; obj* x_134; obj* x_135; obj* x_136; obj* x_137; obj* x_138; +x_123 = lean::cnstr_get(x_6, 1); +x_125 = lean::cnstr_get(x_6, 2); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); - x_100 = x_6; + x_127 = x_6; } else { - lean::inc(x_96); - lean::inc(x_98); + lean::inc(x_123); + lean::inc(x_125); lean::dec(x_6); - x_100 = lean::box(0); + x_127 = lean::box(0); } -x_101 = lean::cnstr_get(x_84, 0); -lean::inc(x_101); -lean::dec(x_84); -x_104 = lean::box(0); -x_105 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_105, 0, x_101); -lean::cnstr_set(x_105, 1, x_104); -x_106 = l_Lean_Parser_noKind; -x_107 = l_Lean_Parser_Syntax_mkNode(x_106, x_105); -x_108 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_100)) { - x_109 = lean::alloc_cnstr(0, 3, 0); +x_128 = lean::cnstr_get(x_111, 0); +lean::inc(x_128); +lean::dec(x_111); +x_131 = lean::box(0); +x_132 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_132, 0, x_128); +lean::cnstr_set(x_132, 1, x_131); +x_133 = l_Lean_Parser_noKind; +x_134 = l_Lean_Parser_Syntax_mkNode(x_133, x_132); +x_135 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_127)) { + x_136 = lean::alloc_cnstr(0, 3, 0); } else { - x_109 = x_100; + x_136 = x_127; } -lean::cnstr_set(x_109, 0, x_107); -lean::cnstr_set(x_109, 1, x_96); -lean::cnstr_set(x_109, 2, x_108); -x_110 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_98, x_109); -x_111 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_111, 0, x_110); -lean::cnstr_set(x_111, 1, x_7); -return x_111; +lean::cnstr_set(x_136, 0, x_134); +lean::cnstr_set(x_136, 1, x_123); +lean::cnstr_set(x_136, 2, x_135); +x_137 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_125, x_136); +x_138 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_138, 0, x_137); +lean::cnstr_set(x_138, 1, x_7); +return x_138; } } else { -obj* x_112; uint8 x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; -x_112 = lean::cnstr_get(x_6, 0); -x_114 = lean::cnstr_get_scalar(x_6, sizeof(void*)*1); +obj* x_139; uint8 x_141; obj* x_142; obj* x_143; obj* x_144; obj* x_145; +x_139 = lean::cnstr_get(x_6, 0); +x_141 = lean::cnstr_get_scalar(x_6, sizeof(void*)*1); if (lean::is_exclusive(x_6)) { - x_115 = x_6; + x_142 = x_6; } else { - lean::inc(x_112); + lean::inc(x_139); lean::dec(x_6); - x_115 = lean::box(0); + x_142 = lean::box(0); } -if (lean::is_scalar(x_115)) { - x_116 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_142)) { + x_143 = lean::alloc_cnstr(1, 1, 1); } else { - x_116 = x_115; + x_143 = x_142; } -lean::cnstr_set(x_116, 0, x_112); -lean::cnstr_set_scalar(x_116, sizeof(void*)*1, x_114); -x_117 = x_116; -x_118 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_118, 0, x_117); -lean::cnstr_set(x_118, 1, x_7); -return x_118; +lean::cnstr_set(x_143, 0, x_139); +lean::cnstr_set_scalar(x_143, sizeof(void*)*1, x_141); +x_144 = x_143; +x_145 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_145, 0, x_144); +lean::cnstr_set(x_145, 1, x_7); +return x_145; } } } @@ -10196,214 +10177,213 @@ x_7 = lean::box(0); x_8 = l_Lean_Parser_Combinators_choiceAux___main___rarg___closed__1; x_9 = l_mjoin___rarg___closed__1; x_10 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_8, x_9, x_7, x_7, x_2, x_3, x_4, x_5); -lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); return x_10; } else { -obj* x_14; obj* x_16; obj* x_18; obj* x_22; obj* x_23; obj* x_25; obj* x_27; obj* x_28; obj* x_29; -x_14 = lean::cnstr_get(x_0, 0); -x_16 = lean::cnstr_get(x_0, 1); +obj* x_13; obj* x_15; obj* x_17; obj* x_21; obj* x_22; obj* x_24; obj* x_26; obj* x_27; obj* x_28; +x_13 = lean::cnstr_get(x_0, 0); +x_15 = lean::cnstr_get(x_0, 1); if (lean::is_exclusive(x_0)) { lean::cnstr_set(x_0, 0, lean::box(0)); lean::cnstr_set(x_0, 1, lean::box(0)); - x_18 = x_0; + x_17 = x_0; } else { - lean::inc(x_14); - lean::inc(x_16); + lean::inc(x_13); + lean::inc(x_15); lean::dec(x_0); - x_18 = lean::box(0); + x_17 = lean::box(0); } lean::inc(x_4); lean::inc(x_3); lean::inc(x_2); -x_22 = lean::apply_4(x_14, x_2, x_3, x_4, x_5); -x_23 = lean::cnstr_get(x_22, 0); -x_25 = lean::cnstr_get(x_22, 1); +x_21 = lean::apply_4(x_13, x_2, x_3, x_4, x_5); +x_22 = lean::cnstr_get(x_21, 0); +x_24 = lean::cnstr_get(x_21, 1); +if (lean::is_exclusive(x_21)) { + lean::cnstr_set(x_21, 0, lean::box(0)); + lean::cnstr_set(x_21, 1, lean::box(0)); + x_26 = x_21; +} else { + lean::inc(x_22); + lean::inc(x_24); + lean::dec(x_21); + x_26 = lean::box(0); +} +x_27 = lean::mk_nat_obj(1ul); +x_28 = lean::nat_add(x_1, x_27); +if (lean::obj_tag(x_22) == 0) +{ +obj* x_29; obj* x_31; obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; +x_29 = lean::cnstr_get(x_22, 0); +x_31 = lean::cnstr_get(x_22, 1); +x_33 = lean::cnstr_get(x_22, 2); if (lean::is_exclusive(x_22)) { - lean::cnstr_set(x_22, 0, lean::box(0)); - lean::cnstr_set(x_22, 1, lean::box(0)); - x_27 = x_22; + x_35 = x_22; } else { - lean::inc(x_23); - lean::inc(x_25); + lean::inc(x_29); + lean::inc(x_31); + lean::inc(x_33); lean::dec(x_22); - x_27 = lean::box(0); + x_35 = lean::box(0); } -x_28 = lean::mk_nat_obj(1ul); -x_29 = lean::nat_add(x_1, x_28); -if (lean::obj_tag(x_23) == 0) +x_36 = lean::box(0); +x_37 = lean_name_mk_numeral(x_36, x_1); +x_38 = lean::box(0); +if (lean::is_scalar(x_17)) { + x_39 = lean::alloc_cnstr(1, 2, 0); +} else { + x_39 = x_17; +} +lean::cnstr_set(x_39, 0, x_29); +lean::cnstr_set(x_39, 1, x_38); +x_40 = l_Lean_Parser_Syntax_mkNode(x_37, x_39); +x_41 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_35)) { + x_42 = lean::alloc_cnstr(0, 3, 0); +} else { + x_42 = x_35; +} +lean::cnstr_set(x_42, 0, x_40); +lean::cnstr_set(x_42, 1, x_31); +lean::cnstr_set(x_42, 2, x_41); +x_43 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_33, x_42); +if (lean::obj_tag(x_43) == 0) { -obj* x_30; obj* x_32; obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; -x_30 = lean::cnstr_get(x_23, 0); -x_32 = lean::cnstr_get(x_23, 1); -x_34 = lean::cnstr_get(x_23, 2); -if (lean::is_exclusive(x_23)) { - x_36 = x_23; -} else { - lean::inc(x_30); - lean::inc(x_32); - lean::inc(x_34); - lean::dec(x_23); - x_36 = lean::box(0); -} -x_37 = lean::box(0); -x_38 = lean_name_mk_numeral(x_37, x_1); -x_39 = lean::box(0); -if (lean::is_scalar(x_18)) { - x_40 = lean::alloc_cnstr(1, 2, 0); -} else { - x_40 = x_18; -} -lean::cnstr_set(x_40, 0, x_30); -lean::cnstr_set(x_40, 1, x_39); -x_41 = l_Lean_Parser_Syntax_mkNode(x_38, x_40); -x_42 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_36)) { - x_43 = lean::alloc_cnstr(0, 3, 0); -} else { - x_43 = x_36; -} -lean::cnstr_set(x_43, 0, x_41); -lean::cnstr_set(x_43, 1, x_32); -lean::cnstr_set(x_43, 2, x_42); -x_44 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_34, x_43); -if (lean::obj_tag(x_44) == 0) -{ -obj* x_50; +obj* x_49; lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_29); -lean::dec(x_16); -if (lean::is_scalar(x_27)) { - x_50 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_28); +lean::dec(x_15); +if (lean::is_scalar(x_26)) { + x_49 = lean::alloc_cnstr(0, 2, 0); } else { - x_50 = x_27; + x_49 = x_26; } -lean::cnstr_set(x_50, 0, x_44); -lean::cnstr_set(x_50, 1, x_25); -return x_50; +lean::cnstr_set(x_49, 0, x_43); +lean::cnstr_set(x_49, 1, x_24); +return x_49; } else { -uint8 x_51; -x_51 = lean::cnstr_get_scalar(x_44, sizeof(void*)*1); -if (x_51 == 0) +uint8 x_50; +x_50 = lean::cnstr_get_scalar(x_43, sizeof(void*)*1); +if (x_50 == 0) { -obj* x_53; obj* x_56; obj* x_57; obj* x_59; obj* x_61; obj* x_62; obj* x_63; -lean::dec(x_27); -x_53 = lean::cnstr_get(x_44, 0); -lean::inc(x_53); -lean::dec(x_44); -x_56 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_command_declModifiers_Parser_Lean_Parser_HasTokens___spec__2(x_16, x_29, x_2, x_3, x_4, x_25); -x_57 = lean::cnstr_get(x_56, 0); -x_59 = lean::cnstr_get(x_56, 1); -if (lean::is_exclusive(x_56)) { - x_61 = x_56; +obj* x_52; obj* x_55; obj* x_56; obj* x_58; obj* x_60; obj* x_61; obj* x_62; +lean::dec(x_26); +x_52 = lean::cnstr_get(x_43, 0); +lean::inc(x_52); +lean::dec(x_43); +x_55 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_command_declModifiers_Parser_Lean_Parser_HasTokens___spec__2(x_15, x_28, x_2, x_3, x_4, x_24); +x_56 = lean::cnstr_get(x_55, 0); +x_58 = lean::cnstr_get(x_55, 1); +if (lean::is_exclusive(x_55)) { + x_60 = x_55; } else { - lean::inc(x_57); - lean::inc(x_59); - lean::dec(x_56); - x_61 = lean::box(0); + lean::inc(x_56); + lean::inc(x_58); + lean::dec(x_55); + x_60 = lean::box(0); } -x_62 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_53, x_57); -if (lean::is_scalar(x_61)) { - x_63 = lean::alloc_cnstr(0, 2, 0); +x_61 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_52, x_56); +if (lean::is_scalar(x_60)) { + x_62 = lean::alloc_cnstr(0, 2, 0); } else { - x_63 = x_61; + x_62 = x_60; } -lean::cnstr_set(x_63, 0, x_62); -lean::cnstr_set(x_63, 1, x_59); -return x_63; +lean::cnstr_set(x_62, 0, x_61); +lean::cnstr_set(x_62, 1, x_58); +return x_62; } else { -obj* x_69; +obj* x_68; lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_29); -lean::dec(x_16); -if (lean::is_scalar(x_27)) { - x_69 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_28); +lean::dec(x_15); +if (lean::is_scalar(x_26)) { + x_68 = lean::alloc_cnstr(0, 2, 0); } else { - x_69 = x_27; + x_68 = x_26; } -lean::cnstr_set(x_69, 0, x_44); -lean::cnstr_set(x_69, 1, x_25); -return x_69; +lean::cnstr_set(x_68, 0, x_43); +lean::cnstr_set(x_68, 1, x_24); +return x_68; } } } else { -uint8 x_72; +uint8 x_71; lean::dec(x_1); -lean::dec(x_18); -x_72 = lean::cnstr_get_scalar(x_23, sizeof(void*)*1); -if (x_72 == 0) +lean::dec(x_17); +x_71 = lean::cnstr_get_scalar(x_22, sizeof(void*)*1); +if (x_71 == 0) { -obj* x_74; obj* x_77; obj* x_78; obj* x_80; obj* x_82; obj* x_83; obj* x_84; -lean::dec(x_27); -x_74 = lean::cnstr_get(x_23, 0); -lean::inc(x_74); -lean::dec(x_23); -x_77 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_command_declModifiers_Parser_Lean_Parser_HasTokens___spec__2(x_16, x_29, x_2, x_3, x_4, x_25); -x_78 = lean::cnstr_get(x_77, 0); -x_80 = lean::cnstr_get(x_77, 1); -if (lean::is_exclusive(x_77)) { - x_82 = x_77; +obj* x_73; obj* x_76; obj* x_77; obj* x_79; obj* x_81; obj* x_82; obj* x_83; +lean::dec(x_26); +x_73 = lean::cnstr_get(x_22, 0); +lean::inc(x_73); +lean::dec(x_22); +x_76 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_command_declModifiers_Parser_Lean_Parser_HasTokens___spec__2(x_15, x_28, x_2, x_3, x_4, x_24); +x_77 = lean::cnstr_get(x_76, 0); +x_79 = lean::cnstr_get(x_76, 1); +if (lean::is_exclusive(x_76)) { + x_81 = x_76; } else { - lean::inc(x_78); - lean::inc(x_80); - lean::dec(x_77); - x_82 = lean::box(0); + lean::inc(x_77); + lean::inc(x_79); + lean::dec(x_76); + x_81 = lean::box(0); } -x_83 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_74, x_78); -if (lean::is_scalar(x_82)) { - x_84 = lean::alloc_cnstr(0, 2, 0); +x_82 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_73, x_77); +if (lean::is_scalar(x_81)) { + x_83 = lean::alloc_cnstr(0, 2, 0); } else { - x_84 = x_82; + x_83 = x_81; } -lean::cnstr_set(x_84, 0, x_83); -lean::cnstr_set(x_84, 1, x_80); -return x_84; +lean::cnstr_set(x_83, 0, x_82); +lean::cnstr_set(x_83, 1, x_79); +return x_83; } else { -obj* x_90; obj* x_92; obj* x_93; obj* x_94; obj* x_95; +obj* x_89; obj* x_91; obj* x_92; obj* x_93; obj* x_94; lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_29); -lean::dec(x_16); -x_90 = lean::cnstr_get(x_23, 0); -if (lean::is_exclusive(x_23)) { - x_92 = x_23; +lean::dec(x_28); +lean::dec(x_15); +x_89 = lean::cnstr_get(x_22, 0); +if (lean::is_exclusive(x_22)) { + x_91 = x_22; } else { - lean::inc(x_90); - lean::dec(x_23); - x_92 = lean::box(0); + lean::inc(x_89); + lean::dec(x_22); + x_91 = lean::box(0); } -if (lean::is_scalar(x_92)) { - x_93 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_91)) { + x_92 = lean::alloc_cnstr(1, 1, 1); } else { - x_93 = x_92; + x_92 = x_91; } -lean::cnstr_set(x_93, 0, x_90); -lean::cnstr_set_scalar(x_93, sizeof(void*)*1, x_72); -x_94 = x_93; -if (lean::is_scalar(x_27)) { - x_95 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_92, 0, x_89); +lean::cnstr_set_scalar(x_92, sizeof(void*)*1, x_71); +x_93 = x_92; +if (lean::is_scalar(x_26)) { + x_94 = lean::alloc_cnstr(0, 2, 0); } else { - x_95 = x_27; + x_94 = x_26; } -lean::cnstr_set(x_95, 0, x_94); -lean::cnstr_set(x_95, 1, x_25); -return x_95; +lean::cnstr_set(x_94, 0, x_93); +lean::cnstr_set(x_94, 1, x_24); +return x_94; } } } @@ -11544,7 +11524,7 @@ x_2 = l_Lean_Parser_Syntax_asNode___main(x_1); if (lean::obj_tag(x_2) == 0) { obj* x_3; obj* x_4; -x_3 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; +x_3 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_4 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_4, 0, x_0); lean::cnstr_set(x_4, 1, x_3); @@ -11679,7 +11659,7 @@ x_37 = lean::box(0); if (lean::obj_tag(x_27) == 0) { obj* x_38; obj* x_39; obj* x_40; -x_38 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; +x_38 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_39 = lean::box(3); x_40 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_40, 0, x_18); @@ -11694,7 +11674,7 @@ obj* x_41; obj* x_44; obj* x_45; x_41 = lean::cnstr_get(x_27, 0); lean::inc(x_41); lean::dec(x_27); -x_44 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; +x_44 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_45 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_45, 0, x_18); lean::cnstr_set(x_45, 1, x_44); @@ -11723,7 +11703,7 @@ lean::cnstr_set(x_54, 0, x_51); if (lean::obj_tag(x_48) == 0) { obj* x_55; obj* x_56; obj* x_57; -x_55 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; +x_55 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_56 = lean::box(3); x_57 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_57, 0, x_18); @@ -11738,7 +11718,7 @@ obj* x_58; obj* x_61; obj* x_62; x_58 = lean::cnstr_get(x_48, 0); lean::inc(x_58); lean::dec(x_48); -x_61 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; +x_61 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_62 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_62, 0, x_18); lean::cnstr_set(x_62, 1, x_61); @@ -11757,7 +11737,7 @@ x_66 = lean::box(0); if (lean::obj_tag(x_63) == 0) { obj* x_67; obj* x_68; obj* x_69; -x_67 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; +x_67 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_68 = lean::box(3); x_69 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_69, 0, x_18); @@ -11772,7 +11752,7 @@ obj* x_70; obj* x_73; obj* x_74; x_70 = lean::cnstr_get(x_63, 0); lean::inc(x_70); lean::dec(x_63); -x_73 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; +x_73 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_74 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_74, 0, x_18); lean::cnstr_set(x_74, 1, x_73); @@ -11792,7 +11772,7 @@ x_79 = lean::box(0); if (lean::obj_tag(x_76) == 0) { obj* x_80; obj* x_81; obj* x_82; -x_80 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; +x_80 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_81 = lean::box(3); x_82 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_82, 0, x_18); @@ -11807,7 +11787,7 @@ obj* x_83; obj* x_86; obj* x_87; x_83 = lean::cnstr_get(x_76, 0); lean::inc(x_83); lean::dec(x_76); -x_86 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; +x_86 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_87 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_87, 0, x_18); lean::cnstr_set(x_87, 1, x_86); @@ -12011,7 +11991,7 @@ if (lean::obj_tag(x_1) == 0) if (lean::obj_tag(x_5) == 0) { obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; -x_15 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_15 = lean::box(3); x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); lean::cnstr_set(x_16, 1, x_14); @@ -12027,113 +12007,72 @@ return x_20; } else { -obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; +obj* x_21; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; x_21 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_23 = x_5; -} else { - lean::inc(x_21); - lean::dec(x_5); - x_23 = lean::box(0); -} +lean::inc(x_21); +lean::dec(x_5); x_24 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_24, 0, x_21); -if (lean::is_scalar(x_23)) { - x_25 = lean::alloc_cnstr(1, 1, 0); -} else { - x_25 = x_23; -} +x_25 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_25, 0, x_24); -x_26 = lean::box(3); -x_27 = l_Option_getOrElse___main___rarg(x_25, x_26); -lean::dec(x_25); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_27); -lean::cnstr_set(x_29, 1, x_14); -x_30 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_30, 0, x_12); -lean::cnstr_set(x_30, 1, x_29); -x_31 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_31); -lean::cnstr_set(x_32, 1, x_30); -x_33 = l_Lean_Parser_command_equation; -x_34 = l_Lean_Parser_Syntax_mkNode(x_33, x_32); -return x_34; +lean::cnstr_set(x_25, 1, x_14); +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_12); +lean::cnstr_set(x_26, 1, x_25); +x_27 = lean::box(3); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_27); +lean::cnstr_set(x_28, 1, x_26); +x_29 = l_Lean_Parser_command_equation; +x_30 = l_Lean_Parser_Syntax_mkNode(x_29, x_28); +return x_30; } } else { -obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_35 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_37 = x_1; -} else { - lean::inc(x_35); - lean::dec(x_1); - x_37 = lean::box(0); -} -x_38 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_38, 0, x_35); -if (lean::is_scalar(x_37)) { - x_39 = lean::alloc_cnstr(1, 1, 0); -} else { - x_39 = x_37; -} -lean::cnstr_set(x_39, 0, x_38); -x_40 = lean::box(3); -x_41 = l_Option_getOrElse___main___rarg(x_39, x_40); -lean::dec(x_39); +obj* x_31; obj* x_34; +x_31 = lean::cnstr_get(x_1, 0); +lean::inc(x_31); +lean::dec(x_1); +x_34 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_34, 0, x_31); if (lean::obj_tag(x_5) == 0) { -obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; -x_43 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_43); -lean::cnstr_set(x_44, 1, x_14); -x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_12); -lean::cnstr_set(x_45, 1, x_44); -x_46 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_46, 0, x_41); -lean::cnstr_set(x_46, 1, x_45); -x_47 = l_Lean_Parser_command_equation; -x_48 = l_Lean_Parser_Syntax_mkNode(x_47, x_46); -return x_48; +obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_35 = lean::box(3); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_35); +lean::cnstr_set(x_36, 1, x_14); +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_12); +lean::cnstr_set(x_37, 1, x_36); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_34); +lean::cnstr_set(x_38, 1, x_37); +x_39 = l_Lean_Parser_command_equation; +x_40 = l_Lean_Parser_Syntax_mkNode(x_39, x_38); +return x_40; } else { -obj* x_49; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; -x_49 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_51 = x_5; -} else { - lean::inc(x_49); - lean::dec(x_5); - x_51 = lean::box(0); -} -x_52 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_52, 0, x_49); -if (lean::is_scalar(x_51)) { - x_53 = lean::alloc_cnstr(1, 1, 0); -} else { - x_53 = x_51; -} -lean::cnstr_set(x_53, 0, x_52); -x_54 = l_Option_getOrElse___main___rarg(x_53, x_40); -lean::dec(x_53); -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_54); -lean::cnstr_set(x_56, 1, x_14); -x_57 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_57, 0, x_12); -lean::cnstr_set(x_57, 1, x_56); -x_58 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_58, 0, x_41); -lean::cnstr_set(x_58, 1, x_57); -x_59 = l_Lean_Parser_command_equation; -x_60 = l_Lean_Parser_Syntax_mkNode(x_59, x_58); -return x_60; +obj* x_41; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_41 = lean::cnstr_get(x_5, 0); +lean::inc(x_41); +lean::dec(x_5); +x_44 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_44, 0, x_41); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_44); +lean::cnstr_set(x_45, 1, x_14); +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_12); +lean::cnstr_set(x_46, 1, x_45); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_34); +lean::cnstr_set(x_47, 1, x_46); +x_48 = l_Lean_Parser_command_equation; +x_49 = l_Lean_Parser_Syntax_mkNode(x_48, x_47); +return x_49; } } } @@ -12503,7 +12442,7 @@ lean::cnstr_set(x_7, 1, x_6); if (lean::obj_tag(x_1) == 0) { obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_8 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_8 = lean::box(3); x_9 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_9, 0, x_8); lean::cnstr_set(x_9, 1, x_7); @@ -12513,32 +12452,18 @@ return x_11; } else { -obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; x_12 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_14 = x_1; -} else { - lean::inc(x_12); - lean::dec(x_1); - x_14 = lean::box(0); -} +lean::inc(x_12); +lean::dec(x_1); x_15 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_15, 0, x_12); -if (lean::is_scalar(x_14)) { - x_16 = lean::alloc_cnstr(1, 1, 0); -} else { - x_16 = x_14; -} +x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); -x_17 = lean::box(3); -x_18 = l_Option_getOrElse___main___rarg(x_16, x_17); -lean::dec(x_16); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_18); -lean::cnstr_set(x_20, 1, x_7); -x_21 = l_Lean_Parser_command_simpleDeclVal; -x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); -return x_22; +lean::cnstr_set(x_16, 1, x_7); +x_17 = l_Lean_Parser_command_simpleDeclVal; +x_18 = l_Lean_Parser_Syntax_mkNode(x_17, x_16); +return x_18; } } } @@ -12902,24 +12827,22 @@ return x_101; obj* _init_l_Lean_Parser_command_declVal_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(1ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_declVal; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_declVal; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_command_declVal_HasView_x_27___lambda__2___closed__2() { @@ -12976,60 +12899,46 @@ return x_19; } else { -obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_20 = lean::cnstr_get(x_16, 0); -if (lean::is_exclusive(x_16)) { - x_22 = x_16; -} else { - lean::inc(x_20); - lean::dec(x_16); - x_22 = lean::box(0); -} +lean::inc(x_20); +lean::dec(x_16); x_23 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_23, 0, x_20); -if (lean::is_scalar(x_22)) { - x_24 = lean::alloc_cnstr(1, 1, 0); -} else { - x_24 = x_22; -} +x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); -x_25 = lean::box(3); -x_26 = l_Option_getOrElse___main___rarg(x_24, x_25); -lean::dec(x_24); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_26); -lean::cnstr_set(x_28, 1, x_1); -x_29 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; -x_30 = l_Lean_Parser_Syntax_mkNode(x_29, x_28); -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_30); -lean::cnstr_set(x_31, 1, x_1); -x_32 = l_Lean_Parser_command_declVal; -x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); -return x_33; +lean::cnstr_set(x_24, 1, x_1); +x_25 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; +x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_1); +x_28 = l_Lean_Parser_command_declVal; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } default: { -obj* x_34; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; -x_34 = lean::cnstr_get(x_0, 0); -lean::inc(x_34); +obj* x_30; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; +x_30 = lean::cnstr_get(x_0, 0); +lean::inc(x_30); lean::dec(x_0); -x_37 = l_Lean_Parser_command_declVal_HasView_x_27___lambda__2___closed__2; -x_38 = l_List_map___main___rarg(x_37, x_34); -x_39 = l_Lean_Parser_noKind; -x_40 = l_Lean_Parser_Syntax_mkNode(x_39, x_38); -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_1); -x_42 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__4; -x_43 = l_Lean_Parser_Syntax_mkNode(x_42, x_41); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_43); -lean::cnstr_set(x_44, 1, x_1); -x_45 = l_Lean_Parser_command_declVal; -x_46 = l_Lean_Parser_Syntax_mkNode(x_45, x_44); -return x_46; +x_33 = l_Lean_Parser_command_declVal_HasView_x_27___lambda__2___closed__2; +x_34 = l_List_map___main___rarg(x_33, x_30); +x_35 = l_Lean_Parser_noKind; +x_36 = l_Lean_Parser_Syntax_mkNode(x_35, x_34); +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_36); +lean::cnstr_set(x_37, 1, x_1); +x_38 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__4; +x_39 = l_Lean_Parser_Syntax_mkNode(x_38, x_37); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_39); +lean::cnstr_set(x_40, 1, x_1); +x_41 = l_Lean_Parser_command_declVal; +x_42 = l_Lean_Parser_Syntax_mkNode(x_41, x_40); +return x_42; } } } @@ -13426,21 +13335,18 @@ goto lbl_3; obj* _init_l_Lean_Parser_command_relaxedInferModifier_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_5; obj* x_6; obj* x_7; obj* x_8; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -lean::inc(x_3); -x_5 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_5, 0, x_3); -lean::cnstr_set(x_5, 1, x_0); -x_6 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_6, 0, x_3); -lean::cnstr_set(x_6, 1, x_5); -x_7 = l_Lean_Parser_command_relaxedInferModifier; -x_8 = l_Lean_Parser_Syntax_mkNode(x_7, x_6); -return x_8; +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_3, 0, x_1); +lean::cnstr_set(x_3, 1, x_2); +x_4 = l_Lean_Parser_command_relaxedInferModifier; +x_5 = l_Lean_Parser_Syntax_mkNode(x_4, x_3); +return x_5; } } obj* l_Lean_Parser_command_relaxedInferModifier_HasView_x_27___lambda__2(obj* x_0) { @@ -13463,102 +13369,61 @@ return x_7; } else { -obj* x_8; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +obj* x_8; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; x_8 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_10 = x_3; -} else { - lean::inc(x_8); - lean::dec(x_3); - x_10 = lean::box(0); -} +lean::inc(x_8); +lean::dec(x_3); x_11 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_11, 0, x_8); -if (lean::is_scalar(x_10)) { - x_12 = lean::alloc_cnstr(1, 1, 0); -} else { - x_12 = x_10; -} +x_12 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_6); x_13 = lean::box(3); -x_14 = l_Option_getOrElse___main___rarg(x_12, x_13); -lean::dec(x_12); -x_16 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_16, 0, x_14); -lean::cnstr_set(x_16, 1, x_6); -x_17 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_17); -lean::cnstr_set(x_18, 1, x_16); -x_19 = l_Lean_Parser_command_relaxedInferModifier; -x_20 = l_Lean_Parser_Syntax_mkNode(x_19, x_18); -return x_20; +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_13); +lean::cnstr_set(x_14, 1, x_12); +x_15 = l_Lean_Parser_command_relaxedInferModifier; +x_16 = l_Lean_Parser_Syntax_mkNode(x_15, x_14); +return x_16; } } else { -obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; -x_21 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_23 = x_1; -} else { - lean::inc(x_21); - lean::dec(x_1); - x_23 = lean::box(0); -} -x_24 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_24, 0, x_21); -if (lean::is_scalar(x_23)) { - x_25 = lean::alloc_cnstr(1, 1, 0); -} else { - x_25 = x_23; -} -lean::cnstr_set(x_25, 0, x_24); -x_26 = lean::box(3); -x_27 = l_Option_getOrElse___main___rarg(x_25, x_26); -lean::dec(x_25); +obj* x_17; obj* x_20; +x_17 = lean::cnstr_get(x_1, 0); +lean::inc(x_17); +lean::dec(x_1); +x_20 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_20, 0, x_17); if (lean::obj_tag(x_3) == 0) { -obj* x_29; obj* x_30; obj* x_31; obj* x_32; -x_29 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +obj* x_21; obj* x_22; obj* x_23; obj* x_24; +x_21 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_20); +lean::cnstr_set(x_22, 1, x_21); +x_23 = l_Lean_Parser_command_relaxedInferModifier; +x_24 = l_Lean_Parser_Syntax_mkNode(x_23, x_22); +return x_24; +} +else +{ +obj* x_25; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; +x_25 = lean::cnstr_get(x_3, 0); +lean::inc(x_25); +lean::dec(x_3); +x_28 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_28, 0, x_25); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_28); +lean::cnstr_set(x_29, 1, x_6); x_30 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_30, 0, x_27); +lean::cnstr_set(x_30, 0, x_20); lean::cnstr_set(x_30, 1, x_29); x_31 = l_Lean_Parser_command_relaxedInferModifier; x_32 = l_Lean_Parser_Syntax_mkNode(x_31, x_30); return x_32; } -else -{ -obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_40; obj* x_41; obj* x_42; obj* x_43; -x_33 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_35 = x_3; -} else { - lean::inc(x_33); - lean::dec(x_3); - x_35 = lean::box(0); -} -x_36 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_36, 0, x_33); -if (lean::is_scalar(x_35)) { - x_37 = lean::alloc_cnstr(1, 1, 0); -} else { - x_37 = x_35; -} -lean::cnstr_set(x_37, 0, x_36); -x_38 = l_Option_getOrElse___main___rarg(x_37, x_26); -lean::dec(x_37); -x_40 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_40, 0, x_38); -lean::cnstr_set(x_40, 1, x_6); -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_27); -lean::cnstr_set(x_41, 1, x_40); -x_42 = l_Lean_Parser_command_relaxedInferModifier; -x_43 = l_Lean_Parser_Syntax_mkNode(x_42, x_41); -return x_43; -} } } } @@ -13774,21 +13639,18 @@ goto lbl_3; obj* _init_l_Lean_Parser_command_strictInferModifier_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_5; obj* x_6; obj* x_7; obj* x_8; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -lean::inc(x_3); -x_5 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_5, 0, x_3); -lean::cnstr_set(x_5, 1, x_0); -x_6 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_6, 0, x_3); -lean::cnstr_set(x_6, 1, x_5); -x_7 = l_Lean_Parser_command_strictInferModifier; -x_8 = l_Lean_Parser_Syntax_mkNode(x_7, x_6); -return x_8; +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_3, 0, x_1); +lean::cnstr_set(x_3, 1, x_2); +x_4 = l_Lean_Parser_command_strictInferModifier; +x_5 = l_Lean_Parser_Syntax_mkNode(x_4, x_3); +return x_5; } } obj* l_Lean_Parser_command_strictInferModifier_HasView_x_27___lambda__2(obj* x_0) { @@ -13811,102 +13673,61 @@ return x_7; } else { -obj* x_8; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +obj* x_8; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; x_8 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_10 = x_3; -} else { - lean::inc(x_8); - lean::dec(x_3); - x_10 = lean::box(0); -} +lean::inc(x_8); +lean::dec(x_3); x_11 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_11, 0, x_8); -if (lean::is_scalar(x_10)) { - x_12 = lean::alloc_cnstr(1, 1, 0); -} else { - x_12 = x_10; -} +x_12 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_6); x_13 = lean::box(3); -x_14 = l_Option_getOrElse___main___rarg(x_12, x_13); -lean::dec(x_12); -x_16 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_16, 0, x_14); -lean::cnstr_set(x_16, 1, x_6); -x_17 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_17); -lean::cnstr_set(x_18, 1, x_16); -x_19 = l_Lean_Parser_command_strictInferModifier; -x_20 = l_Lean_Parser_Syntax_mkNode(x_19, x_18); -return x_20; +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_13); +lean::cnstr_set(x_14, 1, x_12); +x_15 = l_Lean_Parser_command_strictInferModifier; +x_16 = l_Lean_Parser_Syntax_mkNode(x_15, x_14); +return x_16; } } else { -obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; -x_21 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_23 = x_1; -} else { - lean::inc(x_21); - lean::dec(x_1); - x_23 = lean::box(0); -} -x_24 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_24, 0, x_21); -if (lean::is_scalar(x_23)) { - x_25 = lean::alloc_cnstr(1, 1, 0); -} else { - x_25 = x_23; -} -lean::cnstr_set(x_25, 0, x_24); -x_26 = lean::box(3); -x_27 = l_Option_getOrElse___main___rarg(x_25, x_26); -lean::dec(x_25); +obj* x_17; obj* x_20; +x_17 = lean::cnstr_get(x_1, 0); +lean::inc(x_17); +lean::dec(x_1); +x_20 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_20, 0, x_17); if (lean::obj_tag(x_3) == 0) { -obj* x_29; obj* x_30; obj* x_31; obj* x_32; -x_29 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +obj* x_21; obj* x_22; obj* x_23; obj* x_24; +x_21 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_20); +lean::cnstr_set(x_22, 1, x_21); +x_23 = l_Lean_Parser_command_strictInferModifier; +x_24 = l_Lean_Parser_Syntax_mkNode(x_23, x_22); +return x_24; +} +else +{ +obj* x_25; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; +x_25 = lean::cnstr_get(x_3, 0); +lean::inc(x_25); +lean::dec(x_3); +x_28 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_28, 0, x_25); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_28); +lean::cnstr_set(x_29, 1, x_6); x_30 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_30, 0, x_27); +lean::cnstr_set(x_30, 0, x_20); lean::cnstr_set(x_30, 1, x_29); x_31 = l_Lean_Parser_command_strictInferModifier; x_32 = l_Lean_Parser_Syntax_mkNode(x_31, x_30); return x_32; } -else -{ -obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_40; obj* x_41; obj* x_42; obj* x_43; -x_33 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_35 = x_3; -} else { - lean::inc(x_33); - lean::dec(x_3); - x_35 = lean::box(0); -} -x_36 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_36, 0, x_33); -if (lean::is_scalar(x_35)) { - x_37 = lean::alloc_cnstr(1, 1, 0); -} else { - x_37 = x_35; -} -lean::cnstr_set(x_37, 0, x_36); -x_38 = l_Option_getOrElse___main___rarg(x_37, x_26); -lean::dec(x_37); -x_40 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_40, 0, x_38); -lean::cnstr_set(x_40, 1, x_6); -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_27); -lean::cnstr_set(x_41, 1, x_40); -x_42 = l_Lean_Parser_command_strictInferModifier; -x_43 = l_Lean_Parser_Syntax_mkNode(x_42, x_41); -return x_43; -} } } } @@ -15018,7 +14839,7 @@ lean::cnstr_set(x_19, 1, x_17); x_20 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_20, 0, x_10); lean::cnstr_set(x_20, 1, x_19); -x_21 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_21 = lean::box(3); x_22 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_22, 0, x_21); lean::cnstr_set(x_22, 1, x_20); @@ -15048,7 +14869,7 @@ lean::cnstr_set(x_36, 1, x_17); x_37 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_37, 0, x_10); lean::cnstr_set(x_37, 1, x_36); -x_38 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_38 = lean::box(3); x_39 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_39, 0, x_38); lean::cnstr_set(x_39, 1, x_37); @@ -15059,71 +14880,57 @@ return x_41; } else { -obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; +obj* x_42; obj* x_45; x_42 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_44 = x_1; -} else { - lean::inc(x_42); - lean::dec(x_1); - x_44 = lean::box(0); -} +lean::inc(x_42); +lean::dec(x_1); x_45 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_45, 0, x_42); -if (lean::is_scalar(x_44)) { - x_46 = lean::alloc_cnstr(1, 1, 0); -} else { - x_46 = x_44; -} -lean::cnstr_set(x_46, 0, x_45); -x_47 = lean::box(3); -x_48 = l_Option_getOrElse___main___rarg(x_46, x_47); -lean::dec(x_46); if (lean::obj_tag(x_5) == 0) { -obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; -x_50 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_51 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_51, 0, x_50); -lean::cnstr_set(x_51, 1, x_17); -x_52 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_52, 0, x_10); -lean::cnstr_set(x_52, 1, x_51); -x_53 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_53, 0, x_48); -lean::cnstr_set(x_53, 1, x_52); -x_54 = l_Lean_Parser_command_introRule; -x_55 = l_Lean_Parser_Syntax_mkNode(x_54, x_53); -return x_55; +obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_46 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_46); +lean::cnstr_set(x_47, 1, x_17); +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_10); +lean::cnstr_set(x_48, 1, x_47); +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_45); +lean::cnstr_set(x_49, 1, x_48); +x_50 = l_Lean_Parser_command_introRule; +x_51 = l_Lean_Parser_Syntax_mkNode(x_50, x_49); +return x_51; } else { -obj* x_56; obj* x_59; obj* x_60; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; -x_56 = lean::cnstr_get(x_5, 0); -lean::inc(x_56); +obj* x_52; obj* x_55; obj* x_56; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; +x_52 = lean::cnstr_get(x_5, 0); +lean::inc(x_52); lean::dec(x_5); -x_59 = l_Lean_Parser_command_inferModifier_HasView; -x_60 = lean::cnstr_get(x_59, 1); -lean::inc(x_60); -lean::dec(x_59); -x_63 = lean::apply_1(x_60, x_56); +x_55 = l_Lean_Parser_command_inferModifier_HasView; +x_56 = lean::cnstr_get(x_55, 1); +lean::inc(x_56); +lean::dec(x_55); +x_59 = lean::apply_1(x_56, x_52); +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_59); +lean::cnstr_set(x_60, 1, x_16); +x_61 = l_Lean_Parser_noKind; +x_62 = l_Lean_Parser_Syntax_mkNode(x_61, x_60); +x_63 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_63, 0, x_62); +lean::cnstr_set(x_63, 1, x_17); x_64 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_64, 0, x_63); -lean::cnstr_set(x_64, 1, x_16); -x_65 = l_Lean_Parser_noKind; -x_66 = l_Lean_Parser_Syntax_mkNode(x_65, x_64); -x_67 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_67, 0, x_66); -lean::cnstr_set(x_67, 1, x_17); -x_68 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_68, 0, x_10); -lean::cnstr_set(x_68, 1, x_67); -x_69 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_69, 0, x_48); -lean::cnstr_set(x_69, 1, x_68); -x_70 = l_Lean_Parser_command_introRule; -x_71 = l_Lean_Parser_Syntax_mkNode(x_70, x_69); -return x_71; +lean::cnstr_set(x_64, 0, x_10); +lean::cnstr_set(x_64, 1, x_63); +x_65 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_65, 0, x_45); +lean::cnstr_set(x_65, 1, x_64); +x_66 = l_Lean_Parser_command_introRule; +x_67 = l_Lean_Parser_Syntax_mkNode(x_66, x_65); +return x_67; } } } @@ -15239,7 +15046,7 @@ goto lbl_23; } lbl_23: { -obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_50; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_48; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; lean::dec(x_22); x_42 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_42, 0, x_2); @@ -15247,78 +15054,76 @@ x_43 = lean::box(0); x_44 = l_String_splitAux___main___closed__1; x_45 = l_Lean_Parser_ident_Parser___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__4___rarg___closed__1; x_46 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_44, x_45, x_42, x_43, x_4, x_17, x_12); -lean::dec(x_17); lean::dec(x_4); -lean::dec(x_42); -x_50 = lean::cnstr_get(x_46, 0); -x_52 = lean::cnstr_get(x_46, 1); +x_48 = lean::cnstr_get(x_46, 0); +x_50 = lean::cnstr_get(x_46, 1); if (lean::is_exclusive(x_46)) { - x_54 = x_46; + x_52 = x_46; } else { + lean::inc(x_48); lean::inc(x_50); - lean::inc(x_52); lean::dec(x_46); - x_54 = lean::box(0); + x_52 = lean::box(0); } -x_55 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_19, x_50); -x_56 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_57 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_56, x_55); -x_58 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_57, x_45); -x_59 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_58); -if (lean::is_scalar(x_54)) { - x_60 = lean::alloc_cnstr(0, 2, 0); +x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_19, x_48); +x_54 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_55 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_54, x_53); +x_56 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_55, x_45); +x_57 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_56); +if (lean::is_scalar(x_52)) { + x_58 = lean::alloc_cnstr(0, 2, 0); } else { - x_60 = x_54; + x_58 = x_52; } -lean::cnstr_set(x_60, 0, x_59); -lean::cnstr_set(x_60, 1, x_52); -return x_60; +lean::cnstr_set(x_58, 0, x_57); +lean::cnstr_set(x_58, 1, x_50); +return x_58; } } else { -obj* x_63; obj* x_65; obj* x_66; uint8 x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; +obj* x_61; obj* x_63; obj* x_64; uint8 x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; lean::dec(x_4); lean::dec(x_2); -x_63 = lean::cnstr_get(x_9, 1); +x_61 = lean::cnstr_get(x_9, 1); if (lean::is_exclusive(x_9)) { lean::cnstr_release(x_9, 0); - x_65 = x_9; + x_63 = x_9; } else { - lean::inc(x_63); + lean::inc(x_61); lean::dec(x_9); - x_65 = lean::box(0); + x_63 = lean::box(0); } -x_66 = lean::cnstr_get(x_10, 0); -x_68 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); +x_64 = lean::cnstr_get(x_10, 0); +x_66 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); if (lean::is_exclusive(x_10)) { - x_69 = x_10; + x_67 = x_10; } else { - lean::inc(x_66); + lean::inc(x_64); lean::dec(x_10); - x_69 = lean::box(0); + x_67 = lean::box(0); } -if (lean::is_scalar(x_69)) { - x_70 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_67)) { + x_68 = lean::alloc_cnstr(1, 1, 1); } else { - x_70 = x_69; + x_68 = x_67; } -lean::cnstr_set(x_70, 0, x_66); -lean::cnstr_set_scalar(x_70, sizeof(void*)*1, x_68); -x_71 = x_70; -x_72 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_73 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_72, x_71); -x_74 = l_Lean_Parser_ident_Parser___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__4___rarg___closed__1; -x_75 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_73, x_74); -x_76 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_75); -if (lean::is_scalar(x_65)) { - x_77 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_68, 0, x_64); +lean::cnstr_set_scalar(x_68, sizeof(void*)*1, x_66); +x_69 = x_68; +x_70 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_71 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_70, x_69); +x_72 = l_Lean_Parser_ident_Parser___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__4___rarg___closed__1; +x_73 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_71, x_72); +x_74 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_73); +if (lean::is_scalar(x_63)) { + x_75 = lean::alloc_cnstr(0, 2, 0); } else { - x_77 = x_65; + x_75 = x_63; } -lean::cnstr_set(x_77, 0, x_76); -lean::cnstr_set(x_77, 1, x_63); -return x_77; +lean::cnstr_set(x_75, 0, x_74); +lean::cnstr_set(x_75, 1, x_61); +return x_75; } } } @@ -17068,7 +16873,7 @@ x_14 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2 x_15 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_15, 0, x_12); lean::cnstr_set(x_15, 1, x_14); -x_16 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::box(3); x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_16); lean::cnstr_set(x_17, 1, x_15); @@ -17078,110 +16883,69 @@ return x_19; } else { -obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_20 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_22 = x_5; -} else { - lean::inc(x_20); - lean::dec(x_5); - x_22 = lean::box(0); -} +lean::inc(x_20); +lean::dec(x_5); x_23 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_23, 0, x_20); -if (lean::is_scalar(x_22)) { - x_24 = lean::alloc_cnstr(1, 1, 0); -} else { - x_24 = x_22; -} +x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); -x_25 = lean::box(3); -x_26 = l_Option_getOrElse___main___rarg(x_24, x_25); -lean::dec(x_24); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_26); -lean::cnstr_set(x_28, 1, x_13); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_12); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_30); -lean::cnstr_set(x_31, 1, x_29); -x_32 = l_Lean_Parser_command_structExplicitBinder; -x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); -return x_33; +lean::cnstr_set(x_24, 1, x_13); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_12); +lean::cnstr_set(x_25, 1, x_24); +x_26 = lean::box(3); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_25); +x_28 = l_Lean_Parser_command_structExplicitBinder; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } else { -obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; -x_34 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_36 = x_1; -} else { - lean::inc(x_34); - lean::dec(x_1); - x_36 = lean::box(0); -} -x_37 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_37, 0, x_34); -if (lean::is_scalar(x_36)) { - x_38 = lean::alloc_cnstr(1, 1, 0); -} else { - x_38 = x_36; -} -lean::cnstr_set(x_38, 0, x_37); -x_39 = lean::box(3); -x_40 = l_Option_getOrElse___main___rarg(x_38, x_39); -lean::dec(x_38); +obj* x_30; obj* x_33; +x_30 = lean::cnstr_get(x_1, 0); +lean::inc(x_30); +lean::dec(x_1); +x_33 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_33, 0, x_30); if (lean::obj_tag(x_5) == 0) { -obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; -x_42 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_12); -lean::cnstr_set(x_43, 1, x_42); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_40); -lean::cnstr_set(x_44, 1, x_43); -x_45 = l_Lean_Parser_command_structExplicitBinder; -x_46 = l_Lean_Parser_Syntax_mkNode(x_45, x_44); -return x_46; +obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_34 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_12); +lean::cnstr_set(x_35, 1, x_34); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_33); +lean::cnstr_set(x_36, 1, x_35); +x_37 = l_Lean_Parser_command_structExplicitBinder; +x_38 = l_Lean_Parser_Syntax_mkNode(x_37, x_36); +return x_38; } else { -obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; -x_47 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_49 = x_5; -} else { - lean::inc(x_47); - lean::dec(x_5); - x_49 = lean::box(0); -} -x_50 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_50, 0, x_47); -if (lean::is_scalar(x_49)) { - x_51 = lean::alloc_cnstr(1, 1, 0); -} else { - x_51 = x_49; -} -lean::cnstr_set(x_51, 0, x_50); -x_52 = l_Option_getOrElse___main___rarg(x_51, x_39); -lean::dec(x_51); -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_52); -lean::cnstr_set(x_54, 1, x_13); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_12); -lean::cnstr_set(x_55, 1, x_54); -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_40); -lean::cnstr_set(x_56, 1, x_55); -x_57 = l_Lean_Parser_command_structExplicitBinder; -x_58 = l_Lean_Parser_Syntax_mkNode(x_57, x_56); -return x_58; +obj* x_39; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; +x_39 = lean::cnstr_get(x_5, 0); +lean::inc(x_39); +lean::dec(x_5); +x_42 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_42, 0, x_39); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_13); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_12); +lean::cnstr_set(x_44, 1, x_43); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_33); +lean::cnstr_set(x_45, 1, x_44); +x_46 = l_Lean_Parser_command_structExplicitBinder; +x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); +return x_47; } } } @@ -17521,7 +17285,7 @@ x_14 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2 x_15 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_15, 0, x_12); lean::cnstr_set(x_15, 1, x_14); -x_16 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::box(3); x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_16); lean::cnstr_set(x_17, 1, x_15); @@ -17531,110 +17295,69 @@ return x_19; } else { -obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_20 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_22 = x_5; -} else { - lean::inc(x_20); - lean::dec(x_5); - x_22 = lean::box(0); -} +lean::inc(x_20); +lean::dec(x_5); x_23 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_23, 0, x_20); -if (lean::is_scalar(x_22)) { - x_24 = lean::alloc_cnstr(1, 1, 0); -} else { - x_24 = x_22; -} +x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); -x_25 = lean::box(3); -x_26 = l_Option_getOrElse___main___rarg(x_24, x_25); -lean::dec(x_24); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_26); -lean::cnstr_set(x_28, 1, x_13); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_12); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_30); -lean::cnstr_set(x_31, 1, x_29); -x_32 = l_Lean_Parser_command_structImplicitBinder; -x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); -return x_33; +lean::cnstr_set(x_24, 1, x_13); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_12); +lean::cnstr_set(x_25, 1, x_24); +x_26 = lean::box(3); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_25); +x_28 = l_Lean_Parser_command_structImplicitBinder; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } else { -obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; -x_34 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_36 = x_1; -} else { - lean::inc(x_34); - lean::dec(x_1); - x_36 = lean::box(0); -} -x_37 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_37, 0, x_34); -if (lean::is_scalar(x_36)) { - x_38 = lean::alloc_cnstr(1, 1, 0); -} else { - x_38 = x_36; -} -lean::cnstr_set(x_38, 0, x_37); -x_39 = lean::box(3); -x_40 = l_Option_getOrElse___main___rarg(x_38, x_39); -lean::dec(x_38); +obj* x_30; obj* x_33; +x_30 = lean::cnstr_get(x_1, 0); +lean::inc(x_30); +lean::dec(x_1); +x_33 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_33, 0, x_30); if (lean::obj_tag(x_5) == 0) { -obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; -x_42 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_12); -lean::cnstr_set(x_43, 1, x_42); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_40); -lean::cnstr_set(x_44, 1, x_43); -x_45 = l_Lean_Parser_command_structImplicitBinder; -x_46 = l_Lean_Parser_Syntax_mkNode(x_45, x_44); -return x_46; +obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_34 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_12); +lean::cnstr_set(x_35, 1, x_34); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_33); +lean::cnstr_set(x_36, 1, x_35); +x_37 = l_Lean_Parser_command_structImplicitBinder; +x_38 = l_Lean_Parser_Syntax_mkNode(x_37, x_36); +return x_38; } else { -obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; -x_47 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_49 = x_5; -} else { - lean::inc(x_47); - lean::dec(x_5); - x_49 = lean::box(0); -} -x_50 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_50, 0, x_47); -if (lean::is_scalar(x_49)) { - x_51 = lean::alloc_cnstr(1, 1, 0); -} else { - x_51 = x_49; -} -lean::cnstr_set(x_51, 0, x_50); -x_52 = l_Option_getOrElse___main___rarg(x_51, x_39); -lean::dec(x_51); -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_52); -lean::cnstr_set(x_54, 1, x_13); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_12); -lean::cnstr_set(x_55, 1, x_54); -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_40); -lean::cnstr_set(x_56, 1, x_55); -x_57 = l_Lean_Parser_command_structImplicitBinder; -x_58 = l_Lean_Parser_Syntax_mkNode(x_57, x_56); -return x_58; +obj* x_39; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; +x_39 = lean::cnstr_get(x_5, 0); +lean::inc(x_39); +lean::dec(x_5); +x_42 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_42, 0, x_39); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_13); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_12); +lean::cnstr_set(x_44, 1, x_43); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_33); +lean::cnstr_set(x_45, 1, x_44); +x_46 = l_Lean_Parser_command_structImplicitBinder; +x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); +return x_47; } } } @@ -17961,7 +17684,7 @@ x_14 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2 x_15 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_15, 0, x_12); lean::cnstr_set(x_15, 1, x_14); -x_16 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::box(3); x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_16); lean::cnstr_set(x_17, 1, x_15); @@ -17971,110 +17694,69 @@ return x_19; } else { -obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_20 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_22 = x_5; -} else { - lean::inc(x_20); - lean::dec(x_5); - x_22 = lean::box(0); -} +lean::inc(x_20); +lean::dec(x_5); x_23 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_23, 0, x_20); -if (lean::is_scalar(x_22)) { - x_24 = lean::alloc_cnstr(1, 1, 0); -} else { - x_24 = x_22; -} +x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); -x_25 = lean::box(3); -x_26 = l_Option_getOrElse___main___rarg(x_24, x_25); -lean::dec(x_24); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_26); -lean::cnstr_set(x_28, 1, x_13); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_12); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_30); -lean::cnstr_set(x_31, 1, x_29); -x_32 = l_Lean_Parser_command_strictImplicitBinder; -x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); -return x_33; +lean::cnstr_set(x_24, 1, x_13); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_12); +lean::cnstr_set(x_25, 1, x_24); +x_26 = lean::box(3); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_25); +x_28 = l_Lean_Parser_command_strictImplicitBinder; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } else { -obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; -x_34 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_36 = x_1; -} else { - lean::inc(x_34); - lean::dec(x_1); - x_36 = lean::box(0); -} -x_37 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_37, 0, x_34); -if (lean::is_scalar(x_36)) { - x_38 = lean::alloc_cnstr(1, 1, 0); -} else { - x_38 = x_36; -} -lean::cnstr_set(x_38, 0, x_37); -x_39 = lean::box(3); -x_40 = l_Option_getOrElse___main___rarg(x_38, x_39); -lean::dec(x_38); +obj* x_30; obj* x_33; +x_30 = lean::cnstr_get(x_1, 0); +lean::inc(x_30); +lean::dec(x_1); +x_33 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_33, 0, x_30); if (lean::obj_tag(x_5) == 0) { -obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; -x_42 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_12); -lean::cnstr_set(x_43, 1, x_42); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_40); -lean::cnstr_set(x_44, 1, x_43); -x_45 = l_Lean_Parser_command_strictImplicitBinder; -x_46 = l_Lean_Parser_Syntax_mkNode(x_45, x_44); -return x_46; +obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_34 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_12); +lean::cnstr_set(x_35, 1, x_34); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_33); +lean::cnstr_set(x_36, 1, x_35); +x_37 = l_Lean_Parser_command_strictImplicitBinder; +x_38 = l_Lean_Parser_Syntax_mkNode(x_37, x_36); +return x_38; } else { -obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; -x_47 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_49 = x_5; -} else { - lean::inc(x_47); - lean::dec(x_5); - x_49 = lean::box(0); -} -x_50 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_50, 0, x_47); -if (lean::is_scalar(x_49)) { - x_51 = lean::alloc_cnstr(1, 1, 0); -} else { - x_51 = x_49; -} -lean::cnstr_set(x_51, 0, x_50); -x_52 = l_Option_getOrElse___main___rarg(x_51, x_39); -lean::dec(x_51); -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_52); -lean::cnstr_set(x_54, 1, x_13); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_12); -lean::cnstr_set(x_55, 1, x_54); -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_40); -lean::cnstr_set(x_56, 1, x_55); -x_57 = l_Lean_Parser_command_strictImplicitBinder; -x_58 = l_Lean_Parser_Syntax_mkNode(x_57, x_56); -return x_58; +obj* x_39; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; +x_39 = lean::cnstr_get(x_5, 0); +lean::inc(x_39); +lean::dec(x_5); +x_42 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_42, 0, x_39); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_13); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_12); +lean::cnstr_set(x_44, 1, x_43); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_33); +lean::cnstr_set(x_45, 1, x_44); +x_46 = l_Lean_Parser_command_strictImplicitBinder; +x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); +return x_47; } } } @@ -18401,7 +18083,7 @@ x_14 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2 x_15 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_15, 0, x_12); lean::cnstr_set(x_15, 1, x_14); -x_16 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::box(3); x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_16); lean::cnstr_set(x_17, 1, x_15); @@ -18411,110 +18093,69 @@ return x_19; } else { -obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_20 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_22 = x_5; -} else { - lean::inc(x_20); - lean::dec(x_5); - x_22 = lean::box(0); -} +lean::inc(x_20); +lean::dec(x_5); x_23 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_23, 0, x_20); -if (lean::is_scalar(x_22)) { - x_24 = lean::alloc_cnstr(1, 1, 0); -} else { - x_24 = x_22; -} +x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); -x_25 = lean::box(3); -x_26 = l_Option_getOrElse___main___rarg(x_24, x_25); -lean::dec(x_24); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_26); -lean::cnstr_set(x_28, 1, x_13); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_12); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_30); -lean::cnstr_set(x_31, 1, x_29); -x_32 = l_Lean_Parser_command_instImplicitBinder; -x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); -return x_33; +lean::cnstr_set(x_24, 1, x_13); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_12); +lean::cnstr_set(x_25, 1, x_24); +x_26 = lean::box(3); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_25); +x_28 = l_Lean_Parser_command_instImplicitBinder; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } else { -obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; -x_34 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_36 = x_1; -} else { - lean::inc(x_34); - lean::dec(x_1); - x_36 = lean::box(0); -} -x_37 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_37, 0, x_34); -if (lean::is_scalar(x_36)) { - x_38 = lean::alloc_cnstr(1, 1, 0); -} else { - x_38 = x_36; -} -lean::cnstr_set(x_38, 0, x_37); -x_39 = lean::box(3); -x_40 = l_Option_getOrElse___main___rarg(x_38, x_39); -lean::dec(x_38); +obj* x_30; obj* x_33; +x_30 = lean::cnstr_get(x_1, 0); +lean::inc(x_30); +lean::dec(x_1); +x_33 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_33, 0, x_30); if (lean::obj_tag(x_5) == 0) { -obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; -x_42 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_12); -lean::cnstr_set(x_43, 1, x_42); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_40); -lean::cnstr_set(x_44, 1, x_43); -x_45 = l_Lean_Parser_command_instImplicitBinder; -x_46 = l_Lean_Parser_Syntax_mkNode(x_45, x_44); -return x_46; +obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_34 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_12); +lean::cnstr_set(x_35, 1, x_34); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_33); +lean::cnstr_set(x_36, 1, x_35); +x_37 = l_Lean_Parser_command_instImplicitBinder; +x_38 = l_Lean_Parser_Syntax_mkNode(x_37, x_36); +return x_38; } else { -obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; -x_47 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_49 = x_5; -} else { - lean::inc(x_47); - lean::dec(x_5); - x_49 = lean::box(0); -} -x_50 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_50, 0, x_47); -if (lean::is_scalar(x_49)) { - x_51 = lean::alloc_cnstr(1, 1, 0); -} else { - x_51 = x_49; -} -lean::cnstr_set(x_51, 0, x_50); -x_52 = l_Option_getOrElse___main___rarg(x_51, x_39); -lean::dec(x_51); -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_52); -lean::cnstr_set(x_54, 1, x_13); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_12); -lean::cnstr_set(x_55, 1, x_54); -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_40); -lean::cnstr_set(x_56, 1, x_55); -x_57 = l_Lean_Parser_command_instImplicitBinder; -x_58 = l_Lean_Parser_Syntax_mkNode(x_57, x_56); -return x_58; +obj* x_39; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; +x_39 = lean::cnstr_get(x_5, 0); +lean::inc(x_39); +lean::dec(x_5); +x_42 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_42, 0, x_39); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_13); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_12); +lean::cnstr_set(x_44, 1, x_43); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_33); +lean::cnstr_set(x_45, 1, x_44); +x_46 = l_Lean_Parser_command_instImplicitBinder; +x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); +return x_47; } } } @@ -19832,7 +19473,7 @@ x_12 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2 x_13 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_13, 0, x_10); lean::cnstr_set(x_13, 1, x_12); -x_14 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_14 = lean::box(3); x_15 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_15, 0, x_14); lean::cnstr_set(x_15, 1, x_13); @@ -19842,110 +19483,69 @@ return x_17; } else { -obj* x_18; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +obj* x_18; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; x_18 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_20 = x_5; -} else { - lean::inc(x_18); - lean::dec(x_5); - x_20 = lean::box(0); -} +lean::inc(x_18); +lean::dec(x_5); x_21 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_21, 0, x_18); -if (lean::is_scalar(x_20)) { - x_22 = lean::alloc_cnstr(1, 1, 0); -} else { - x_22 = x_20; -} +x_22 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_22, 0, x_21); -x_23 = lean::box(3); -x_24 = l_Option_getOrElse___main___rarg(x_22, x_23); -lean::dec(x_22); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_24); -lean::cnstr_set(x_26, 1, x_11); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_10); -lean::cnstr_set(x_27, 1, x_26); -x_28 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_28); -lean::cnstr_set(x_29, 1, x_27); -x_30 = l_Lean_Parser_command_oldUnivParams; -x_31 = l_Lean_Parser_Syntax_mkNode(x_30, x_29); -return x_31; +lean::cnstr_set(x_22, 1, x_11); +x_23 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_23, 0, x_10); +lean::cnstr_set(x_23, 1, x_22); +x_24 = lean::box(3); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_24); +lean::cnstr_set(x_25, 1, x_23); +x_26 = l_Lean_Parser_command_oldUnivParams; +x_27 = l_Lean_Parser_Syntax_mkNode(x_26, x_25); +return x_27; } } else { -obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; -x_32 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_34 = x_1; -} else { - lean::inc(x_32); - lean::dec(x_1); - x_34 = lean::box(0); -} -x_35 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_35, 0, x_32); -if (lean::is_scalar(x_34)) { - x_36 = lean::alloc_cnstr(1, 1, 0); -} else { - x_36 = x_34; -} -lean::cnstr_set(x_36, 0, x_35); -x_37 = lean::box(3); -x_38 = l_Option_getOrElse___main___rarg(x_36, x_37); -lean::dec(x_36); +obj* x_28; obj* x_31; +x_28 = lean::cnstr_get(x_1, 0); +lean::inc(x_28); +lean::dec(x_1); +x_31 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_31, 0, x_28); if (lean::obj_tag(x_5) == 0) { -obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; -x_40 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_10); -lean::cnstr_set(x_41, 1, x_40); -x_42 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_42, 0, x_38); -lean::cnstr_set(x_42, 1, x_41); -x_43 = l_Lean_Parser_command_oldUnivParams; -x_44 = l_Lean_Parser_Syntax_mkNode(x_43, x_42); -return x_44; +obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; +x_32 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_10); +lean::cnstr_set(x_33, 1, x_32); +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_31); +lean::cnstr_set(x_34, 1, x_33); +x_35 = l_Lean_Parser_command_oldUnivParams; +x_36 = l_Lean_Parser_Syntax_mkNode(x_35, x_34); +return x_36; } else { -obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; -x_45 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_47 = x_5; -} else { - lean::inc(x_45); - lean::dec(x_5); - x_47 = lean::box(0); -} -x_48 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_48, 0, x_45); -if (lean::is_scalar(x_47)) { - x_49 = lean::alloc_cnstr(1, 1, 0); -} else { - x_49 = x_47; -} -lean::cnstr_set(x_49, 0, x_48); -x_50 = l_Option_getOrElse___main___rarg(x_49, x_37); -lean::dec(x_49); -x_52 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_52, 0, x_50); -lean::cnstr_set(x_52, 1, x_11); -x_53 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_53, 0, x_10); -lean::cnstr_set(x_53, 1, x_52); -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_38); -lean::cnstr_set(x_54, 1, x_53); -x_55 = l_Lean_Parser_command_oldUnivParams; -x_56 = l_Lean_Parser_Syntax_mkNode(x_55, x_54); -return x_56; +obj* x_37; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; +x_37 = lean::cnstr_get(x_5, 0); +lean::inc(x_37); +lean::dec(x_5); +x_40 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_40, 0, x_37); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_40); +lean::cnstr_set(x_41, 1, x_11); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_10); +lean::cnstr_set(x_42, 1, x_41); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_31); +lean::cnstr_set(x_43, 1, x_42); +x_44 = l_Lean_Parser_command_oldUnivParams; +x_45 = l_Lean_Parser_Syntax_mkNode(x_44, x_43); +return x_45; } } } @@ -20521,7 +20121,7 @@ x_12 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2 x_13 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_13, 0, x_10); lean::cnstr_set(x_13, 1, x_12); -x_14 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_14 = lean::box(3); x_15 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_15, 0, x_14); lean::cnstr_set(x_15, 1, x_13); @@ -20531,110 +20131,69 @@ return x_17; } else { -obj* x_18; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +obj* x_18; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; x_18 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_20 = x_5; -} else { - lean::inc(x_18); - lean::dec(x_5); - x_20 = lean::box(0); -} +lean::inc(x_18); +lean::dec(x_5); x_21 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_21, 0, x_18); -if (lean::is_scalar(x_20)) { - x_22 = lean::alloc_cnstr(1, 1, 0); -} else { - x_22 = x_20; -} +x_22 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_22, 0, x_21); -x_23 = lean::box(3); -x_24 = l_Option_getOrElse___main___rarg(x_22, x_23); -lean::dec(x_22); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_24); -lean::cnstr_set(x_26, 1, x_11); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_10); -lean::cnstr_set(x_27, 1, x_26); -x_28 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_28); -lean::cnstr_set(x_29, 1, x_27); -x_30 = l_Lean_Parser_command_univParams; -x_31 = l_Lean_Parser_Syntax_mkNode(x_30, x_29); -return x_31; +lean::cnstr_set(x_22, 1, x_11); +x_23 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_23, 0, x_10); +lean::cnstr_set(x_23, 1, x_22); +x_24 = lean::box(3); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_24); +lean::cnstr_set(x_25, 1, x_23); +x_26 = l_Lean_Parser_command_univParams; +x_27 = l_Lean_Parser_Syntax_mkNode(x_26, x_25); +return x_27; } } else { -obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; -x_32 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_34 = x_1; -} else { - lean::inc(x_32); - lean::dec(x_1); - x_34 = lean::box(0); -} -x_35 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_35, 0, x_32); -if (lean::is_scalar(x_34)) { - x_36 = lean::alloc_cnstr(1, 1, 0); -} else { - x_36 = x_34; -} -lean::cnstr_set(x_36, 0, x_35); -x_37 = lean::box(3); -x_38 = l_Option_getOrElse___main___rarg(x_36, x_37); -lean::dec(x_36); +obj* x_28; obj* x_31; +x_28 = lean::cnstr_get(x_1, 0); +lean::inc(x_28); +lean::dec(x_1); +x_31 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_31, 0, x_28); if (lean::obj_tag(x_5) == 0) { -obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; -x_40 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_10); -lean::cnstr_set(x_41, 1, x_40); -x_42 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_42, 0, x_38); -lean::cnstr_set(x_42, 1, x_41); -x_43 = l_Lean_Parser_command_univParams; -x_44 = l_Lean_Parser_Syntax_mkNode(x_43, x_42); -return x_44; +obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; +x_32 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_10); +lean::cnstr_set(x_33, 1, x_32); +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_31); +lean::cnstr_set(x_34, 1, x_33); +x_35 = l_Lean_Parser_command_univParams; +x_36 = l_Lean_Parser_Syntax_mkNode(x_35, x_34); +return x_36; } else { -obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; -x_45 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_47 = x_5; -} else { - lean::inc(x_45); - lean::dec(x_5); - x_47 = lean::box(0); -} -x_48 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_48, 0, x_45); -if (lean::is_scalar(x_47)) { - x_49 = lean::alloc_cnstr(1, 1, 0); -} else { - x_49 = x_47; -} -lean::cnstr_set(x_49, 0, x_48); -x_50 = l_Option_getOrElse___main___rarg(x_49, x_37); -lean::dec(x_49); -x_52 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_52, 0, x_50); -lean::cnstr_set(x_52, 1, x_11); -x_53 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_53, 0, x_10); -lean::cnstr_set(x_53, 1, x_52); -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_38); -lean::cnstr_set(x_54, 1, x_53); -x_55 = l_Lean_Parser_command_univParams; -x_56 = l_Lean_Parser_Syntax_mkNode(x_55, x_54); -return x_56; +obj* x_37; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; +x_37 = lean::cnstr_get(x_5, 0); +lean::inc(x_37); +lean::dec(x_5); +x_40 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_40, 0, x_37); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_40); +lean::cnstr_set(x_41, 1, x_11); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_10); +lean::cnstr_set(x_42, 1, x_41); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_31); +lean::cnstr_set(x_43, 1, x_42); +x_44 = l_Lean_Parser_command_univParams; +x_45 = l_Lean_Parser_Syntax_mkNode(x_44, x_43); +return x_45; } } } @@ -21688,47 +21247,43 @@ return x_89; obj* _init_l_Lean_Parser_command_structureKw_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(0ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_structureKw; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_structureKw; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_command_structureKw_HasView_x_27___lambda__2___closed__2() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(1ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_structureKw; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_structureKw; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* l_Lean_Parser_command_structureKw_HasView_x_27___lambda__2(obj* x_0) { @@ -21750,84 +21305,56 @@ return x_5; } else { -obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +obj* x_6; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; x_6 = lean::cnstr_get(x_2, 0); -if (lean::is_exclusive(x_2)) { - x_8 = x_2; -} else { - lean::inc(x_6); - lean::dec(x_2); - x_8 = lean::box(0); -} +lean::inc(x_6); +lean::dec(x_2); x_9 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_9, 0, x_6); -if (lean::is_scalar(x_8)) { - x_10 = lean::alloc_cnstr(1, 1, 0); -} else { - x_10 = x_8; -} +x_10 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_10, 0, x_9); -x_11 = lean::box(3); -x_12 = l_Option_getOrElse___main___rarg(x_10, x_11); -lean::dec(x_10); -x_14 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_14, 0, x_12); -lean::cnstr_set(x_14, 1, x_1); -x_15 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; -x_16 = l_Lean_Parser_Syntax_mkNode(x_15, x_14); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_16); -lean::cnstr_set(x_17, 1, x_1); -x_18 = l_Lean_Parser_command_structureKw; -x_19 = l_Lean_Parser_Syntax_mkNode(x_18, x_17); +lean::cnstr_set(x_10, 1, x_1); +x_11 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; +x_12 = l_Lean_Parser_Syntax_mkNode(x_11, x_10); +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_1); +x_14 = l_Lean_Parser_command_structureKw; +x_15 = l_Lean_Parser_Syntax_mkNode(x_14, x_13); +return x_15; +} +} +else +{ +obj* x_16; +x_16 = lean::cnstr_get(x_0, 0); +lean::inc(x_16); +lean::dec(x_0); +if (lean::obj_tag(x_16) == 0) +{ +obj* x_19; +x_19 = l_Lean_Parser_command_structureKw_HasView_x_27___lambda__2___closed__2; return x_19; } -} else { -obj* x_20; -x_20 = lean::cnstr_get(x_0, 0); +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +x_20 = lean::cnstr_get(x_16, 0); lean::inc(x_20); -lean::dec(x_0); -if (lean::obj_tag(x_20) == 0) -{ -obj* x_23; -x_23 = l_Lean_Parser_command_structureKw_HasView_x_27___lambda__2___closed__2; -return x_23; -} -else -{ -obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; -x_24 = lean::cnstr_get(x_20, 0); -if (lean::is_exclusive(x_20)) { - x_26 = x_20; -} else { - lean::inc(x_24); - lean::dec(x_20); - x_26 = lean::box(0); -} -x_27 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_27, 0, x_24); -if (lean::is_scalar(x_26)) { - x_28 = lean::alloc_cnstr(1, 1, 0); -} else { - x_28 = x_26; -} -lean::cnstr_set(x_28, 0, x_27); -x_29 = lean::box(3); -x_30 = l_Option_getOrElse___main___rarg(x_28, x_29); -lean::dec(x_28); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_30); -lean::cnstr_set(x_32, 1, x_1); -x_33 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; -x_34 = l_Lean_Parser_Syntax_mkNode(x_33, x_32); -x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_34); -lean::cnstr_set(x_35, 1, x_1); -x_36 = l_Lean_Parser_command_structureKw; -x_37 = l_Lean_Parser_Syntax_mkNode(x_36, x_35); -return x_37; +lean::dec(x_16); +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_23); +lean::cnstr_set(x_24, 1, x_1); +x_25 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; +x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_1); +x_28 = l_Lean_Parser_command_structureKw; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } } @@ -22058,41 +21585,27 @@ return x_21; } else { -obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_22 = lean::cnstr_get(x_16, 0); -if (lean::is_exclusive(x_16)) { - x_24 = x_16; -} else { - lean::inc(x_22); - lean::dec(x_16); - x_24 = lean::box(0); -} +lean::inc(x_22); +lean::dec(x_16); x_25 = lean::box(0); x_26 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_26, 0, x_22); -if (lean::is_scalar(x_24)) { - x_27 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_6)) { + x_27 = lean::alloc_cnstr(1, 2, 0); } else { - x_27 = x_24; + x_27 = x_6; } lean::cnstr_set(x_27, 0, x_26); -x_28 = lean::box(3); -x_29 = l_Option_getOrElse___main___rarg(x_27, x_28); -lean::dec(x_27); -if (lean::is_scalar(x_6)) { - x_31 = lean::alloc_cnstr(1, 2, 0); -} else { - x_31 = x_6; -} -lean::cnstr_set(x_31, 0, x_29); -lean::cnstr_set(x_31, 1, x_25); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_7); -lean::cnstr_set(x_32, 1, x_31); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_32); -lean::cnstr_set(x_33, 1, x_12); -return x_33; +lean::cnstr_set(x_27, 1, x_25); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_7); +lean::cnstr_set(x_28, 1, x_27); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_28); +lean::cnstr_set(x_29, 1, x_12); +return x_29; } } } @@ -22345,7 +21858,7 @@ lean::cnstr_set(x_11, 1, x_10); if (lean::obj_tag(x_1) == 0) { obj* x_12; obj* x_13; obj* x_14; obj* x_15; -x_12 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_12 = lean::box(3); x_13 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_13, 0, x_12); lean::cnstr_set(x_13, 1, x_11); @@ -22355,32 +21868,18 @@ return x_15; } else { -obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; +obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; x_16 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_18 = x_1; -} else { - lean::inc(x_16); - lean::dec(x_1); - x_18 = lean::box(0); -} +lean::inc(x_16); +lean::dec(x_1); x_19 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_19, 0, x_16); -if (lean::is_scalar(x_18)) { - x_20 = lean::alloc_cnstr(1, 1, 0); -} else { - x_20 = x_18; -} +x_20 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_20, 0, x_19); -x_21 = lean::box(3); -x_22 = l_Option_getOrElse___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_11); -x_25 = l_Lean_Parser_command_extends; -x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); -return x_26; +lean::cnstr_set(x_20, 1, x_11); +x_21 = l_Lean_Parser_command_extends; +x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); +return x_22; } } } @@ -22833,105 +22332,77 @@ return x_13; } else { -obj* x_14; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; x_14 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_16 = x_5; -} else { - lean::inc(x_14); - lean::dec(x_5); - x_16 = lean::box(0); -} +lean::inc(x_14); +lean::dec(x_5); x_17 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_17, 0, x_14); -if (lean::is_scalar(x_16)) { - x_18 = lean::alloc_cnstr(1, 1, 0); -} else { - x_18 = x_16; -} +x_18 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_18, 0, x_17); -x_19 = lean::box(3); -x_20 = l_Option_getOrElse___main___rarg(x_18, x_19); -lean::dec(x_18); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_20); -lean::cnstr_set(x_22, 1, x_9); -x_23 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_23); -lean::cnstr_set(x_24, 1, x_22); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_8); -lean::cnstr_set(x_25, 1, x_24); -x_26 = l_Lean_Parser_command_structureCtor; -x_27 = l_Lean_Parser_Syntax_mkNode(x_26, x_25); -return x_27; +lean::cnstr_set(x_18, 1, x_9); +x_19 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_19); +lean::cnstr_set(x_20, 1, x_18); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_8); +lean::cnstr_set(x_21, 1, x_20); +x_22 = l_Lean_Parser_command_structureCtor; +x_23 = l_Lean_Parser_Syntax_mkNode(x_22, x_21); +return x_23; } } else { -obj* x_28; obj* x_31; obj* x_32; obj* x_35; obj* x_36; obj* x_37; obj* x_38; -x_28 = lean::cnstr_get(x_3, 0); -lean::inc(x_28); +obj* x_24; obj* x_27; obj* x_28; obj* x_31; obj* x_32; obj* x_33; obj* x_34; +x_24 = lean::cnstr_get(x_3, 0); +lean::inc(x_24); lean::dec(x_3); -x_31 = l_Lean_Parser_command_inferModifier_HasView; -x_32 = lean::cnstr_get(x_31, 1); -lean::inc(x_32); -lean::dec(x_31); -x_35 = lean::apply_1(x_32, x_28); -x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_35); -lean::cnstr_set(x_36, 1, x_9); -x_37 = l_Lean_Parser_noKind; -x_38 = l_Lean_Parser_Syntax_mkNode(x_37, x_36); +x_27 = l_Lean_Parser_command_inferModifier_HasView; +x_28 = lean::cnstr_get(x_27, 1); +lean::inc(x_28); +lean::dec(x_27); +x_31 = lean::apply_1(x_28, x_24); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_31); +lean::cnstr_set(x_32, 1, x_9); +x_33 = l_Lean_Parser_noKind; +x_34 = l_Lean_Parser_Syntax_mkNode(x_33, x_32); if (lean::obj_tag(x_5) == 0) { -obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; -x_39 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_40 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_40, 0, x_38); -lean::cnstr_set(x_40, 1, x_39); -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_8); -lean::cnstr_set(x_41, 1, x_40); -x_42 = l_Lean_Parser_command_structureCtor; -x_43 = l_Lean_Parser_Syntax_mkNode(x_42, x_41); -return x_43; +obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; +x_35 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_34); +lean::cnstr_set(x_36, 1, x_35); +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_8); +lean::cnstr_set(x_37, 1, x_36); +x_38 = l_Lean_Parser_command_structureCtor; +x_39 = l_Lean_Parser_Syntax_mkNode(x_38, x_37); +return x_39; } else { -obj* x_44; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; -x_44 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_46 = x_5; -} else { - lean::inc(x_44); - lean::dec(x_5); - x_46 = lean::box(0); -} -x_47 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_47, 0, x_44); -if (lean::is_scalar(x_46)) { - x_48 = lean::alloc_cnstr(1, 1, 0); -} else { - x_48 = x_46; -} -lean::cnstr_set(x_48, 0, x_47); -x_49 = lean::box(3); -x_50 = l_Option_getOrElse___main___rarg(x_48, x_49); -lean::dec(x_48); -x_52 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_52, 0, x_50); -lean::cnstr_set(x_52, 1, x_9); -x_53 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_53, 0, x_38); -lean::cnstr_set(x_53, 1, x_52); -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_8); -lean::cnstr_set(x_54, 1, x_53); -x_55 = l_Lean_Parser_command_structureCtor; -x_56 = l_Lean_Parser_Syntax_mkNode(x_55, x_54); -return x_56; +obj* x_40; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; +x_40 = lean::cnstr_get(x_5, 0); +lean::inc(x_40); +lean::dec(x_5); +x_43 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_43, 0, x_40); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_43); +lean::cnstr_set(x_44, 1, x_9); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_34); +lean::cnstr_set(x_45, 1, x_44); +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_8); +lean::cnstr_set(x_46, 1, x_45); +x_47 = l_Lean_Parser_command_structureCtor; +x_48 = l_Lean_Parser_Syntax_mkNode(x_47, x_46); +return x_48; } } } @@ -24053,7 +23524,7 @@ x_75 = l_Lean_Parser_Combinators_many___rarg___closed__1; x_76 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_76, 0, x_75); lean::cnstr_set(x_76, 1, x_38); -x_77 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_77 = lean::box(3); x_78 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_78, 0, x_77); lean::cnstr_set(x_78, 1, x_76); @@ -24094,7 +23565,7 @@ x_95 = l_Lean_Parser_Syntax_mkNode(x_35, x_94); x_96 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_96, 0, x_95); lean::cnstr_set(x_96, 1, x_38); -x_97 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_97 = lean::box(3); x_98 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_98, 0, x_97); lean::cnstr_set(x_98, 1, x_96); @@ -24120,82 +23591,77 @@ return x_105; } lbl_56: { -obj* x_106; obj* x_107; obj* x_108; obj* x_109; +obj* x_106; x_106 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_106, 0, x_55); -x_107 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_107, 0, x_106); -x_108 = lean::box(3); -x_109 = l_Option_getOrElse___main___rarg(x_107, x_108); -lean::dec(x_107); if (lean::obj_tag(x_13) == 0) { -obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; obj* x_120; -x_111 = l_Lean_Parser_Combinators_many___rarg___closed__1; +obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; +x_107 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_108 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_108, 0, x_107); +lean::cnstr_set(x_108, 1, x_38); +x_109 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_109, 0, x_106); +lean::cnstr_set(x_109, 1, x_108); +x_110 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_110, 0, x_54); +lean::cnstr_set(x_110, 1, x_109); +x_111 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_111, 0, x_32); +lean::cnstr_set(x_111, 1, x_110); x_112 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_112, 0, x_111); -lean::cnstr_set(x_112, 1, x_38); +lean::cnstr_set(x_112, 0, x_27); +lean::cnstr_set(x_112, 1, x_111); x_113 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_113, 0, x_109); +lean::cnstr_set(x_113, 0, x_39); lean::cnstr_set(x_113, 1, x_112); x_114 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_114, 0, x_54); +lean::cnstr_set(x_114, 0, x_22); lean::cnstr_set(x_114, 1, x_113); -x_115 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_115, 0, x_32); -lean::cnstr_set(x_115, 1, x_114); -x_116 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_116, 0, x_27); -lean::cnstr_set(x_116, 1, x_115); -x_117 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_117, 0, x_39); -lean::cnstr_set(x_117, 1, x_116); -x_118 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_118, 0, x_22); -lean::cnstr_set(x_118, 1, x_117); -x_119 = l_Lean_Parser_command_structure; -x_120 = l_Lean_Parser_Syntax_mkNode(x_119, x_118); -return x_120; +x_115 = l_Lean_Parser_command_structure; +x_116 = l_Lean_Parser_Syntax_mkNode(x_115, x_114); +return x_116; } else { -obj* x_121; obj* x_124; obj* x_125; obj* x_128; obj* x_129; obj* x_130; obj* x_131; obj* x_132; obj* x_133; obj* x_134; obj* x_135; obj* x_136; obj* x_137; obj* x_138; obj* x_139; -x_121 = lean::cnstr_get(x_13, 0); -lean::inc(x_121); +obj* x_117; obj* x_120; obj* x_121; obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; obj* x_129; obj* x_130; obj* x_131; obj* x_132; obj* x_133; obj* x_134; obj* x_135; +x_117 = lean::cnstr_get(x_13, 0); +lean::inc(x_117); lean::dec(x_13); -x_124 = l_Lean_Parser_command_structureCtor_HasView; -x_125 = lean::cnstr_get(x_124, 1); -lean::inc(x_125); -lean::dec(x_124); -x_128 = lean::apply_1(x_125, x_121); +x_120 = l_Lean_Parser_command_structureCtor_HasView; +x_121 = lean::cnstr_get(x_120, 1); +lean::inc(x_121); +lean::dec(x_120); +x_124 = lean::apply_1(x_121, x_117); +x_125 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_125, 0, x_124); +lean::cnstr_set(x_125, 1, x_37); +x_126 = l_Lean_Parser_Syntax_mkNode(x_35, x_125); +x_127 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_127, 0, x_126); +lean::cnstr_set(x_127, 1, x_38); +x_128 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_128, 0, x_106); +lean::cnstr_set(x_128, 1, x_127); x_129 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_129, 0, x_128); -lean::cnstr_set(x_129, 1, x_37); -x_130 = l_Lean_Parser_Syntax_mkNode(x_35, x_129); +lean::cnstr_set(x_129, 0, x_54); +lean::cnstr_set(x_129, 1, x_128); +x_130 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_130, 0, x_32); +lean::cnstr_set(x_130, 1, x_129); x_131 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_131, 0, x_130); -lean::cnstr_set(x_131, 1, x_38); +lean::cnstr_set(x_131, 0, x_27); +lean::cnstr_set(x_131, 1, x_130); x_132 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_132, 0, x_109); +lean::cnstr_set(x_132, 0, x_39); lean::cnstr_set(x_132, 1, x_131); x_133 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_133, 0, x_54); +lean::cnstr_set(x_133, 0, x_22); lean::cnstr_set(x_133, 1, x_132); -x_134 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_134, 0, x_32); -lean::cnstr_set(x_134, 1, x_133); -x_135 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_135, 0, x_27); -lean::cnstr_set(x_135, 1, x_134); -x_136 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_136, 0, x_39); -lean::cnstr_set(x_136, 1, x_135); -x_137 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_137, 0, x_22); -lean::cnstr_set(x_137, 1, x_136); -x_138 = l_Lean_Parser_command_structure; -x_139 = l_Lean_Parser_Syntax_mkNode(x_138, x_137); -return x_139; +x_134 = l_Lean_Parser_command_structure; +x_135 = l_Lean_Parser_Syntax_mkNode(x_134, x_133); +return x_135; } } } @@ -25132,116 +24598,106 @@ return x_128; obj* _init_l_Lean_Parser_command_defLike_kind_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(0ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_defLike_kind; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_defLike_kind; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_command_defLike_kind_HasView_x_27___lambda__2___closed__2() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(1ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_defLike_kind; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_defLike_kind; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_command_defLike_kind_HasView_x_27___lambda__2___closed__3() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(2ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_defLike_kind; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_defLike_kind; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_command_defLike_kind_HasView_x_27___lambda__2___closed__4() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(3ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_defLike_kind; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_defLike_kind; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_command_defLike_kind_HasView_x_27___lambda__2___closed__5() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(4ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_defLike_kind; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_defLike_kind; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* l_Lean_Parser_command_defLike_kind_HasView_x_27___lambda__2(obj* x_0) { @@ -25264,225 +24720,155 @@ return x_5; } else { -obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +obj* x_6; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; x_6 = lean::cnstr_get(x_2, 0); -if (lean::is_exclusive(x_2)) { - x_8 = x_2; -} else { - lean::inc(x_6); - lean::dec(x_2); - x_8 = lean::box(0); -} +lean::inc(x_6); +lean::dec(x_2); x_9 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_9, 0, x_6); -if (lean::is_scalar(x_8)) { - x_10 = lean::alloc_cnstr(1, 1, 0); -} else { - x_10 = x_8; -} +x_10 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_10, 0, x_9); -x_11 = lean::box(3); -x_12 = l_Option_getOrElse___main___rarg(x_10, x_11); -lean::dec(x_10); -x_14 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_14, 0, x_12); -lean::cnstr_set(x_14, 1, x_1); -x_15 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; -x_16 = l_Lean_Parser_Syntax_mkNode(x_15, x_14); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_16); -lean::cnstr_set(x_17, 1, x_1); -x_18 = l_Lean_Parser_command_defLike_kind; -x_19 = l_Lean_Parser_Syntax_mkNode(x_18, x_17); -return x_19; +lean::cnstr_set(x_10, 1, x_1); +x_11 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; +x_12 = l_Lean_Parser_Syntax_mkNode(x_11, x_10); +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_1); +x_14 = l_Lean_Parser_command_defLike_kind; +x_15 = l_Lean_Parser_Syntax_mkNode(x_14, x_13); +return x_15; } } case 1: { -obj* x_20; -x_20 = lean::cnstr_get(x_0, 0); -lean::inc(x_20); +obj* x_16; +x_16 = lean::cnstr_get(x_0, 0); +lean::inc(x_16); lean::dec(x_0); -if (lean::obj_tag(x_20) == 0) +if (lean::obj_tag(x_16) == 0) { -obj* x_23; -x_23 = l_Lean_Parser_command_defLike_kind_HasView_x_27___lambda__2___closed__2; -return x_23; +obj* x_19; +x_19 = l_Lean_Parser_command_defLike_kind_HasView_x_27___lambda__2___closed__2; +return x_19; } else { -obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; -x_24 = lean::cnstr_get(x_20, 0); -if (lean::is_exclusive(x_20)) { - x_26 = x_20; -} else { - lean::inc(x_24); - lean::dec(x_20); - x_26 = lean::box(0); -} -x_27 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_27, 0, x_24); -if (lean::is_scalar(x_26)) { - x_28 = lean::alloc_cnstr(1, 1, 0); -} else { - x_28 = x_26; -} -lean::cnstr_set(x_28, 0, x_27); -x_29 = lean::box(3); -x_30 = l_Option_getOrElse___main___rarg(x_28, x_29); -lean::dec(x_28); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_30); -lean::cnstr_set(x_32, 1, x_1); -x_33 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; -x_34 = l_Lean_Parser_Syntax_mkNode(x_33, x_32); -x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_34); -lean::cnstr_set(x_35, 1, x_1); -x_36 = l_Lean_Parser_command_defLike_kind; -x_37 = l_Lean_Parser_Syntax_mkNode(x_36, x_35); -return x_37; +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +x_20 = lean::cnstr_get(x_16, 0); +lean::inc(x_20); +lean::dec(x_16); +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_23); +lean::cnstr_set(x_24, 1, x_1); +x_25 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; +x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_1); +x_28 = l_Lean_Parser_command_defLike_kind; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } case 2: { -obj* x_38; -x_38 = lean::cnstr_get(x_0, 0); -lean::inc(x_38); +obj* x_30; +x_30 = lean::cnstr_get(x_0, 0); +lean::inc(x_30); lean::dec(x_0); -if (lean::obj_tag(x_38) == 0) +if (lean::obj_tag(x_30) == 0) { -obj* x_41; -x_41 = l_Lean_Parser_command_defLike_kind_HasView_x_27___lambda__2___closed__3; -return x_41; +obj* x_33; +x_33 = l_Lean_Parser_command_defLike_kind_HasView_x_27___lambda__2___closed__3; +return x_33; } else { -obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; -x_42 = lean::cnstr_get(x_38, 0); -if (lean::is_exclusive(x_38)) { - x_44 = x_38; -} else { - lean::inc(x_42); - lean::dec(x_38); - x_44 = lean::box(0); -} -x_45 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_45, 0, x_42); -if (lean::is_scalar(x_44)) { - x_46 = lean::alloc_cnstr(1, 1, 0); -} else { - x_46 = x_44; -} -lean::cnstr_set(x_46, 0, x_45); -x_47 = lean::box(3); -x_48 = l_Option_getOrElse___main___rarg(x_46, x_47); -lean::dec(x_46); -x_50 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_50, 0, x_48); -lean::cnstr_set(x_50, 1, x_1); -x_51 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__4; -x_52 = l_Lean_Parser_Syntax_mkNode(x_51, x_50); -x_53 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_53, 0, x_52); -lean::cnstr_set(x_53, 1, x_1); -x_54 = l_Lean_Parser_command_defLike_kind; -x_55 = l_Lean_Parser_Syntax_mkNode(x_54, x_53); -return x_55; +obj* x_34; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; +x_34 = lean::cnstr_get(x_30, 0); +lean::inc(x_34); +lean::dec(x_30); +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_34); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_1); +x_39 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__4; +x_40 = l_Lean_Parser_Syntax_mkNode(x_39, x_38); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_40); +lean::cnstr_set(x_41, 1, x_1); +x_42 = l_Lean_Parser_command_defLike_kind; +x_43 = l_Lean_Parser_Syntax_mkNode(x_42, x_41); +return x_43; } } case 3: { -obj* x_56; -x_56 = lean::cnstr_get(x_0, 0); -lean::inc(x_56); +obj* x_44; +x_44 = lean::cnstr_get(x_0, 0); +lean::inc(x_44); lean::dec(x_0); -if (lean::obj_tag(x_56) == 0) +if (lean::obj_tag(x_44) == 0) { -obj* x_59; -x_59 = l_Lean_Parser_command_defLike_kind_HasView_x_27___lambda__2___closed__4; -return x_59; +obj* x_47; +x_47 = l_Lean_Parser_command_defLike_kind_HasView_x_27___lambda__2___closed__4; +return x_47; } else { -obj* x_60; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; -x_60 = lean::cnstr_get(x_56, 0); -if (lean::is_exclusive(x_56)) { - x_62 = x_56; -} else { - lean::inc(x_60); - lean::dec(x_56); - x_62 = lean::box(0); -} -x_63 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_63, 0, x_60); -if (lean::is_scalar(x_62)) { - x_64 = lean::alloc_cnstr(1, 1, 0); -} else { - x_64 = x_62; -} -lean::cnstr_set(x_64, 0, x_63); -x_65 = lean::box(3); -x_66 = l_Option_getOrElse___main___rarg(x_64, x_65); -lean::dec(x_64); -x_68 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_68, 0, x_66); -lean::cnstr_set(x_68, 1, x_1); -x_69 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__6; -x_70 = l_Lean_Parser_Syntax_mkNode(x_69, x_68); -x_71 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_71, 0, x_70); -lean::cnstr_set(x_71, 1, x_1); -x_72 = l_Lean_Parser_command_defLike_kind; -x_73 = l_Lean_Parser_Syntax_mkNode(x_72, x_71); -return x_73; +obj* x_48; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_48 = lean::cnstr_get(x_44, 0); +lean::inc(x_48); +lean::dec(x_44); +x_51 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_51, 0, x_48); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_1); +x_53 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__6; +x_54 = l_Lean_Parser_Syntax_mkNode(x_53, x_52); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_54); +lean::cnstr_set(x_55, 1, x_1); +x_56 = l_Lean_Parser_command_defLike_kind; +x_57 = l_Lean_Parser_Syntax_mkNode(x_56, x_55); +return x_57; } } default: { -obj* x_74; -x_74 = lean::cnstr_get(x_0, 0); -lean::inc(x_74); +obj* x_58; +x_58 = lean::cnstr_get(x_0, 0); +lean::inc(x_58); lean::dec(x_0); -if (lean::obj_tag(x_74) == 0) +if (lean::obj_tag(x_58) == 0) { -obj* x_77; -x_77 = l_Lean_Parser_command_defLike_kind_HasView_x_27___lambda__2___closed__5; -return x_77; +obj* x_61; +x_61 = l_Lean_Parser_command_defLike_kind_HasView_x_27___lambda__2___closed__5; +return x_61; } else { -obj* x_78; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; -x_78 = lean::cnstr_get(x_74, 0); -if (lean::is_exclusive(x_74)) { - x_80 = x_74; -} else { - lean::inc(x_78); - lean::dec(x_74); - x_80 = lean::box(0); -} -x_81 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_81, 0, x_78); -if (lean::is_scalar(x_80)) { - x_82 = lean::alloc_cnstr(1, 1, 0); -} else { - x_82 = x_80; -} -lean::cnstr_set(x_82, 0, x_81); -x_83 = lean::box(3); -x_84 = l_Option_getOrElse___main___rarg(x_82, x_83); -lean::dec(x_82); -x_86 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_86, 0, x_84); -lean::cnstr_set(x_86, 1, x_1); -x_87 = l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__6; -x_88 = l_Lean_Parser_Syntax_mkNode(x_87, x_86); -x_89 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_89, 0, x_88); -lean::cnstr_set(x_89, 1, x_1); -x_90 = l_Lean_Parser_command_defLike_kind; -x_91 = l_Lean_Parser_Syntax_mkNode(x_90, x_89); -return x_91; +obj* x_62; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; +x_62 = lean::cnstr_get(x_58, 0); +lean::inc(x_62); +lean::dec(x_58); +x_65 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_65, 0, x_62); +x_66 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_66, 0, x_65); +lean::cnstr_set(x_66, 1, x_1); +x_67 = l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__6; +x_68 = l_Lean_Parser_Syntax_mkNode(x_67, x_66); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_68); +lean::cnstr_set(x_69, 1, x_1); +x_70 = l_Lean_Parser_command_defLike_kind; +x_71 = l_Lean_Parser_Syntax_mkNode(x_70, x_69); +return x_71; } } } @@ -26478,7 +25864,7 @@ x_23 = l_Lean_Parser_Combinators_many___rarg___closed__1; x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_22); -x_25 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_25 = lean::box(3); x_26 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_26, 0, x_25); lean::cnstr_set(x_26, 1, x_24); @@ -26505,7 +25891,7 @@ x_39 = l_Lean_Parser_Syntax_mkNode(x_38, x_37); x_40 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_40, 0, x_39); lean::cnstr_set(x_40, 1, x_22); -x_41 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_41 = lean::box(3); x_42 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_42, 0, x_41); lean::cnstr_set(x_42, 1, x_40); @@ -26516,65 +25902,51 @@ return x_44; } else { -obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +obj* x_45; obj* x_48; x_45 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_47 = x_1; -} else { - lean::inc(x_45); - lean::dec(x_1); - x_47 = lean::box(0); -} +lean::inc(x_45); +lean::dec(x_1); x_48 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_48, 0, x_45); -if (lean::is_scalar(x_47)) { - x_49 = lean::alloc_cnstr(1, 1, 0); -} else { - x_49 = x_47; -} -lean::cnstr_set(x_49, 0, x_48); -x_50 = lean::box(3); -x_51 = l_Option_getOrElse___main___rarg(x_49, x_50); -lean::dec(x_49); if (lean::obj_tag(x_3) == 0) { -obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; -x_53 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_53); -lean::cnstr_set(x_54, 1, x_22); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_51); -lean::cnstr_set(x_55, 1, x_54); -x_56 = l_Lean_Parser_command_instance; -x_57 = l_Lean_Parser_Syntax_mkNode(x_56, x_55); -return x_57; +obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_49 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_49); +lean::cnstr_set(x_50, 1, x_22); +x_51 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_51, 0, x_48); +lean::cnstr_set(x_51, 1, x_50); +x_52 = l_Lean_Parser_command_instance; +x_53 = l_Lean_Parser_Syntax_mkNode(x_52, x_51); +return x_53; } else { -obj* x_58; obj* x_61; obj* x_62; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; -x_58 = lean::cnstr_get(x_3, 0); -lean::inc(x_58); +obj* x_54; obj* x_57; obj* x_58; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; +x_54 = lean::cnstr_get(x_3, 0); +lean::inc(x_54); lean::dec(x_3); -x_61 = l_Lean_Parser_command_identUnivParams_HasView; -x_62 = lean::cnstr_get(x_61, 1); -lean::inc(x_62); -lean::dec(x_61); -x_65 = lean::apply_1(x_62, x_58); +x_57 = l_Lean_Parser_command_identUnivParams_HasView; +x_58 = lean::cnstr_get(x_57, 1); +lean::inc(x_58); +lean::dec(x_57); +x_61 = lean::apply_1(x_58, x_54); +x_62 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_62, 0, x_61); +lean::cnstr_set(x_62, 1, x_20); +x_63 = l_Lean_Parser_noKind; +x_64 = l_Lean_Parser_Syntax_mkNode(x_63, x_62); +x_65 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_65, 0, x_64); +lean::cnstr_set(x_65, 1, x_22); x_66 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_66, 0, x_65); -lean::cnstr_set(x_66, 1, x_20); -x_67 = l_Lean_Parser_noKind; +lean::cnstr_set(x_66, 0, x_48); +lean::cnstr_set(x_66, 1, x_65); +x_67 = l_Lean_Parser_command_instance; x_68 = l_Lean_Parser_Syntax_mkNode(x_67, x_66); -x_69 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_69, 0, x_68); -lean::cnstr_set(x_69, 1, x_22); -x_70 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_70, 0, x_51); -lean::cnstr_set(x_70, 1, x_69); -x_71 = l_Lean_Parser_command_instance; -x_72 = l_Lean_Parser_Syntax_mkNode(x_71, x_70); -return x_72; +return x_68; } } } @@ -26851,7 +26223,7 @@ lean::cnstr_set(x_20, 1, x_19); if (lean::obj_tag(x_1) == 0) { obj* x_21; obj* x_22; obj* x_23; obj* x_24; -x_21 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_21 = lean::box(3); x_22 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_22, 0, x_21); lean::cnstr_set(x_22, 1, x_20); @@ -26861,32 +26233,18 @@ return x_24; } else { -obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_33; obj* x_34; obj* x_35; +obj* x_25; obj* x_28; obj* x_29; obj* x_30; obj* x_31; x_25 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_27 = x_1; -} else { - lean::inc(x_25); - lean::dec(x_1); - x_27 = lean::box(0); -} +lean::inc(x_25); +lean::dec(x_1); x_28 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_28, 0, x_25); -if (lean::is_scalar(x_27)) { - x_29 = lean::alloc_cnstr(1, 1, 0); -} else { - x_29 = x_27; -} +x_29 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_29, 0, x_28); -x_30 = lean::box(3); -x_31 = l_Option_getOrElse___main___rarg(x_29, x_30); -lean::dec(x_29); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_31); -lean::cnstr_set(x_33, 1, x_20); -x_34 = l_Lean_Parser_command_example; -x_35 = l_Lean_Parser_Syntax_mkNode(x_34, x_33); -return x_35; +lean::cnstr_set(x_29, 1, x_20); +x_30 = l_Lean_Parser_command_example; +x_31 = l_Lean_Parser_Syntax_mkNode(x_30, x_29); +return x_31; } } } @@ -27143,24 +26501,22 @@ return x_70; obj* _init_l_Lean_Parser_command_constantKeyword_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(0ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_constantKeyword; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_constantKeyword; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* l_Lean_Parser_command_constantKeyword_HasView_x_27___lambda__2(obj* x_0) { @@ -27174,38 +26530,24 @@ return x_1; } else { -obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; +obj* x_2; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; x_2 = lean::cnstr_get(x_0, 0); -if (lean::is_exclusive(x_0)) { - x_4 = x_0; -} else { - lean::inc(x_2); - lean::dec(x_0); - x_4 = lean::box(0); -} +lean::inc(x_2); +lean::dec(x_0); x_5 = lean::box(0); x_6 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_6, 0, x_2); -if (lean::is_scalar(x_4)) { - x_7 = lean::alloc_cnstr(1, 1, 0); -} else { - x_7 = x_4; -} +x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); -x_8 = lean::box(3); -x_9 = l_Option_getOrElse___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_11, 0, x_9); -lean::cnstr_set(x_11, 1, x_5); -x_12 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; -x_13 = l_Lean_Parser_Syntax_mkNode(x_12, x_11); -x_14 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_14, 0, x_13); -lean::cnstr_set(x_14, 1, x_5); -x_15 = l_Lean_Parser_command_constantKeyword; -x_16 = l_Lean_Parser_Syntax_mkNode(x_15, x_14); -return x_16; +lean::cnstr_set(x_7, 1, x_5); +x_8 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +x_10 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_10, 0, x_9); +lean::cnstr_set(x_10, 1, x_5); +x_11 = l_Lean_Parser_command_constantKeyword; +x_12 = l_Lean_Parser_Syntax_mkNode(x_11, x_10); +return x_12; } } } @@ -28529,211 +27871,183 @@ goto lbl_33; } else { -obj* x_39; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_47; obj* x_48; +obj* x_39; obj* x_42; obj* x_43; obj* x_44; x_39 = lean::cnstr_get(x_35, 0); -if (lean::is_exclusive(x_35)) { - x_41 = x_35; -} else { - lean::inc(x_39); - lean::dec(x_35); - x_41 = lean::box(0); -} +lean::inc(x_39); +lean::dec(x_35); x_42 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_42, 0, x_39); -if (lean::is_scalar(x_41)) { - x_43 = lean::alloc_cnstr(1, 1, 0); -} else { - x_43 = x_41; -} +x_43 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_43, 0, x_42); -x_44 = lean::box(3); -x_45 = l_Option_getOrElse___main___rarg(x_43, x_44); -lean::dec(x_43); -x_47 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_47, 0, x_45); -lean::cnstr_set(x_47, 1, x_16); -x_48 = l_Lean_Parser_Syntax_mkNode(x_29, x_47); -x_32 = x_48; +lean::cnstr_set(x_43, 1, x_16); +x_44 = l_Lean_Parser_Syntax_mkNode(x_29, x_43); +x_32 = x_44; goto lbl_33; } } lbl_33: { -obj* x_49; +obj* x_45; if (lean::obj_tag(x_3) == 0) { -obj* x_51; -x_51 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_49 = x_51; -goto lbl_50; +obj* x_47; +x_47 = lean::box(3); +x_45 = x_47; +goto lbl_46; } else { -obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; -x_52 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_54 = x_3; -} else { - lean::inc(x_52); - lean::dec(x_3); - x_54 = lean::box(0); +obj* x_48; obj* x_51; +x_48 = lean::cnstr_get(x_3, 0); +lean::inc(x_48); +lean::dec(x_3); +x_51 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_51, 0, x_48); +x_45 = x_51; +goto lbl_46; } -x_55 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_55, 0, x_52); -if (lean::is_scalar(x_54)) { - x_56 = lean::alloc_cnstr(1, 1, 0); -} else { - x_56 = x_54; -} -lean::cnstr_set(x_56, 0, x_55); -x_57 = lean::box(3); -x_58 = l_Option_getOrElse___main___rarg(x_56, x_57); -lean::dec(x_56); -x_49 = x_58; -goto lbl_50; -} -lbl_50: +lbl_46: { -obj* x_60; obj* x_61; obj* x_62; -x_60 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_60, 0, x_49); -lean::cnstr_set(x_60, 1, x_16); -x_61 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_61, 0, x_32); -lean::cnstr_set(x_61, 1, x_60); -x_62 = l_Lean_Parser_Syntax_mkNode(x_29, x_61); +obj* x_52; obj* x_53; obj* x_54; +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_45); +lean::cnstr_set(x_52, 1, x_16); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_32); +lean::cnstr_set(x_53, 1, x_52); +x_54 = l_Lean_Parser_Syntax_mkNode(x_29, x_53); if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_11) == 0) { -obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; -x_63 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_64 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_64, 0, x_63); -lean::cnstr_set(x_64, 1, x_31); -x_65 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_65, 0, x_26); -lean::cnstr_set(x_65, 1, x_64); -x_66 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_66, 0, x_21); -lean::cnstr_set(x_66, 1, x_65); -x_67 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_67, 0, x_63); -lean::cnstr_set(x_67, 1, x_66); -x_68 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_68, 0, x_62); -lean::cnstr_set(x_68, 1, x_67); -x_69 = l_Lean_Parser_command_inductive; -x_70 = l_Lean_Parser_Syntax_mkNode(x_69, x_68); -return x_70; +obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; +x_55 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_55); +lean::cnstr_set(x_56, 1, x_31); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_26); +lean::cnstr_set(x_57, 1, x_56); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_21); +lean::cnstr_set(x_58, 1, x_57); +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_55); +lean::cnstr_set(x_59, 1, x_58); +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_54); +lean::cnstr_set(x_60, 1, x_59); +x_61 = l_Lean_Parser_command_inductive; +x_62 = l_Lean_Parser_Syntax_mkNode(x_61, x_60); +return x_62; } else { -obj* x_71; obj* x_74; obj* x_75; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; -x_71 = lean::cnstr_get(x_11, 0); -lean::inc(x_71); +obj* x_63; obj* x_66; obj* x_67; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; +x_63 = lean::cnstr_get(x_11, 0); +lean::inc(x_63); lean::dec(x_11); -x_74 = l_Lean_Parser_command_notationLike_HasView; -x_75 = lean::cnstr_get(x_74, 1); -lean::inc(x_75); -lean::dec(x_74); -x_78 = lean::apply_1(x_75, x_71); -x_79 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_79, 0, x_78); -lean::cnstr_set(x_79, 1, x_16); -x_80 = l_Lean_Parser_Syntax_mkNode(x_29, x_79); -x_81 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_81, 0, x_80); -lean::cnstr_set(x_81, 1, x_31); -x_82 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_82, 0, x_26); -lean::cnstr_set(x_82, 1, x_81); -x_83 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_83, 0, x_21); -lean::cnstr_set(x_83, 1, x_82); -x_84 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_84); -lean::cnstr_set(x_85, 1, x_83); -x_86 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_86, 0, x_62); -lean::cnstr_set(x_86, 1, x_85); -x_87 = l_Lean_Parser_command_inductive; -x_88 = l_Lean_Parser_Syntax_mkNode(x_87, x_86); -return x_88; +x_66 = l_Lean_Parser_command_notationLike_HasView; +x_67 = lean::cnstr_get(x_66, 1); +lean::inc(x_67); +lean::dec(x_66); +x_70 = lean::apply_1(x_67, x_63); +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_70); +lean::cnstr_set(x_71, 1, x_16); +x_72 = l_Lean_Parser_Syntax_mkNode(x_29, x_71); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_72); +lean::cnstr_set(x_73, 1, x_31); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_26); +lean::cnstr_set(x_74, 1, x_73); +x_75 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_75, 0, x_21); +lean::cnstr_set(x_75, 1, x_74); +x_76 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_77 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_77, 0, x_76); +lean::cnstr_set(x_77, 1, x_75); +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_54); +lean::cnstr_set(x_78, 1, x_77); +x_79 = l_Lean_Parser_command_inductive; +x_80 = l_Lean_Parser_Syntax_mkNode(x_79, x_78); +return x_80; } } else { -obj* x_89; obj* x_92; obj* x_93; obj* x_96; obj* x_97; obj* x_98; -x_89 = lean::cnstr_get(x_5, 0); -lean::inc(x_89); +obj* x_81; obj* x_84; obj* x_85; obj* x_88; obj* x_89; obj* x_90; +x_81 = lean::cnstr_get(x_5, 0); +lean::inc(x_81); lean::dec(x_5); -x_92 = l_Lean_Parser_command_oldUnivParams_HasView; -x_93 = lean::cnstr_get(x_92, 1); -lean::inc(x_93); -lean::dec(x_92); -x_96 = lean::apply_1(x_93, x_89); -x_97 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_97, 0, x_96); -lean::cnstr_set(x_97, 1, x_16); -x_98 = l_Lean_Parser_Syntax_mkNode(x_29, x_97); +x_84 = l_Lean_Parser_command_oldUnivParams_HasView; +x_85 = lean::cnstr_get(x_84, 1); +lean::inc(x_85); +lean::dec(x_84); +x_88 = lean::apply_1(x_85, x_81); +x_89 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_89, 0, x_88); +lean::cnstr_set(x_89, 1, x_16); +x_90 = l_Lean_Parser_Syntax_mkNode(x_29, x_89); if (lean::obj_tag(x_11) == 0) { -obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; -x_99 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_100 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_100, 0, x_99); -lean::cnstr_set(x_100, 1, x_31); -x_101 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_101, 0, x_26); -lean::cnstr_set(x_101, 1, x_100); -x_102 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_102, 0, x_21); -lean::cnstr_set(x_102, 1, x_101); -x_103 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_103, 0, x_98); -lean::cnstr_set(x_103, 1, x_102); -x_104 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_104, 0, x_62); -lean::cnstr_set(x_104, 1, x_103); -x_105 = l_Lean_Parser_command_inductive; -x_106 = l_Lean_Parser_Syntax_mkNode(x_105, x_104); -return x_106; +obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; +x_91 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_92 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_92, 0, x_91); +lean::cnstr_set(x_92, 1, x_31); +x_93 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_93, 0, x_26); +lean::cnstr_set(x_93, 1, x_92); +x_94 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_94, 0, x_21); +lean::cnstr_set(x_94, 1, x_93); +x_95 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_95, 0, x_90); +lean::cnstr_set(x_95, 1, x_94); +x_96 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_96, 0, x_54); +lean::cnstr_set(x_96, 1, x_95); +x_97 = l_Lean_Parser_command_inductive; +x_98 = l_Lean_Parser_Syntax_mkNode(x_97, x_96); +return x_98; } else { -obj* x_107; obj* x_110; obj* x_111; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; -x_107 = lean::cnstr_get(x_11, 0); -lean::inc(x_107); +obj* x_99; obj* x_102; obj* x_103; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; +x_99 = lean::cnstr_get(x_11, 0); +lean::inc(x_99); lean::dec(x_11); -x_110 = l_Lean_Parser_command_notationLike_HasView; -x_111 = lean::cnstr_get(x_110, 1); -lean::inc(x_111); -lean::dec(x_110); -x_114 = lean::apply_1(x_111, x_107); -x_115 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_115, 0, x_114); -lean::cnstr_set(x_115, 1, x_16); -x_116 = l_Lean_Parser_Syntax_mkNode(x_29, x_115); -x_117 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_117, 0, x_116); -lean::cnstr_set(x_117, 1, x_31); -x_118 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_118, 0, x_26); -lean::cnstr_set(x_118, 1, x_117); -x_119 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_119, 0, x_21); -lean::cnstr_set(x_119, 1, x_118); -x_120 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_120, 0, x_98); -lean::cnstr_set(x_120, 1, x_119); -x_121 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_121, 0, x_62); -lean::cnstr_set(x_121, 1, x_120); -x_122 = l_Lean_Parser_command_inductive; -x_123 = l_Lean_Parser_Syntax_mkNode(x_122, x_121); -return x_123; +x_102 = l_Lean_Parser_command_notationLike_HasView; +x_103 = lean::cnstr_get(x_102, 1); +lean::inc(x_103); +lean::dec(x_102); +x_106 = lean::apply_1(x_103, x_99); +x_107 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_107, 0, x_106); +lean::cnstr_set(x_107, 1, x_16); +x_108 = l_Lean_Parser_Syntax_mkNode(x_29, x_107); +x_109 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_109, 0, x_108); +lean::cnstr_set(x_109, 1, x_31); +x_110 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_110, 0, x_26); +lean::cnstr_set(x_110, 1, x_109); +x_111 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_111, 0, x_21); +lean::cnstr_set(x_111, 1, x_110); +x_112 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_112, 0, x_90); +lean::cnstr_set(x_112, 1, x_111); +x_113 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_113, 0, x_54); +lean::cnstr_set(x_113, 1, x_112); +x_114 = l_Lean_Parser_command_inductive; +x_115 = l_Lean_Parser_Syntax_mkNode(x_114, x_113); +return x_115; } } } diff --git a/src/stage0/init/lean/parser/level.cpp b/src/stage0/init/lean/parser/level.cpp index d5c7137eb0..2af40416fa 100644 --- a/src/stage0/init/lean/parser/level.cpp +++ b/src/stage0/init/lean/parser/level.cpp @@ -14,10 +14,11 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-label" #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif -obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Level_leading_Parser___closed__1; obj* l_Lean_Parser_prattParser_View___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_fixCore___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_monadParsecTrans___rarg(obj*, obj*, obj*); +obj* l_Lean_Parser_prattParser___at_Lean_Parser_levelParser_run___spec__1___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_LevelParserM_Lean_Parser_MonadParsec; obj* l_Lean_Parser_LevelParserM_Monad; obj* l_Lean_Parser_levelParser_run_Lean_Parser_HasView___boxed(obj*); @@ -51,12 +52,12 @@ extern obj* l_Lean_Parser_currLbp___rarg___lambda__3___closed__2; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Level_trailing_Parser_Lean_Parser_HasTokens___spec__2___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Level_leading_HasView_x_27___lambda__2___closed__2; obj* l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__4(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_number_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__2___rarg___closed__1; obj* l_Lean_Parser_TrailingLevelParserM_Alternative; obj* l_Lean_Parser_levelParser_run_Lean_Parser_HasView___closed__1; obj* l_Lean_Parser_ParsecT_labelsMkRes___rarg(obj*, obj*); obj* l_List_reverse___rarg(obj*); obj* l_Lean_Parser_levelParser_run_Lean_Parser_HasView___closed__3; +uint8 l_Lean_Parser_Syntax_isOfKind___main(obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_levelParser_run___spec__3(obj*); obj* l_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Level_leading_Parser(obj*, obj*, obj*, obj*); @@ -73,7 +74,6 @@ obj* l_Lean_Parser_Combinators_node_view___rarg(obj*, obj*, obj*, obj*, obj*, ob obj* l_Lean_Parser_LevelParserM_Lean_Parser_MonadRec; obj* l_Lean_Parser_Level_paren_Parser_Lean_Parser_HasTokens; extern obj* l_Lean_Parser_number_HasView; -obj* l_Option_get___main___at_Lean_Parser_run___spec__2(obj*); obj* l_Lean_Parser_number_Parser___at_Lean_Parser_Level_addLit_Parser_Lean_Parser_HasTokens___spec__2___rarg(obj*, obj*, obj*); obj* l_Lean_Parser_Substring_toString(obj*); obj* l_Lean_Parser_symbolCore___at_Lean_Parser_Level_paren_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); @@ -97,7 +97,6 @@ obj* l_ReaderT_Monad___rarg(obj*); obj* l_Lean_Parser_RecT_Lean_Parser_MonadParsec___rarg(obj*, obj*, obj*); obj* l_Lean_Parser_symbolOrIdent___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__1(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_observing___at_Lean_Parser_peekToken___spec__2(obj*, obj*, obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_levelParser_run___spec__6___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_number; obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_levelParser_run___spec__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_number_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__2___boxed(obj*); @@ -107,7 +106,6 @@ obj* l_Lean_Parser_Level_app_HasView_x_27; obj* l_Lean_Parser_Level_trailing_Parser_Lean_Parser_HasView; obj* l_Lean_Parser_Syntax_mkNode(obj*, obj*); obj* l_Lean_Parser_Level_Parser_Lean_Parser_HasTokens(obj*); -obj* l_Option_getOrElse___main___rarg(obj*, obj*); obj* l_Lean_Parser_Level_app_Parser_Lean_Parser_HasView; obj* l_Lean_Parser_Level_leading_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_LevelParserM_Lean_Parser_monadBasicParser; @@ -119,7 +117,6 @@ uint8 nat_dec_lt(obj*, obj*); } obj* l_Lean_Parser_Level_trailing_Parser___closed__1; obj* l_Lean_Parser_Level_paren_Parser_Lean_Parser_HasView; -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_levelParser_run___spec__6(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_hasMonadLiftTRefl___boxed(obj*, obj*); extern obj* l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; obj* l_Lean_Parser_Level_paren_HasView_x_27; @@ -151,7 +148,6 @@ obj* l_Lean_Parser_Level_paren_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Level_addLit_Parser_Lean_Parser_HasView; obj* l_Lean_Parser_ParsecT_tryMkRes___rarg(obj*); obj* l_Lean_Parser_ident_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__3(obj*); -obj* l_Lean_Parser_tryView___at_Lean_Parser_number_Parser___spec__1(obj*, obj*); obj* l_Lean_Parser_Level_paren_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_levelParser_run_Lean_Parser_HasTokens___boxed(obj*); obj* l_Lean_Parser_Level_Parser_Lean_Parser_HasView(obj*); @@ -168,13 +164,11 @@ obj* l_Lean_Parser_Combinators_label_view___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_List_mfoldl___main___at_Lean_Parser_Level_app_Parser___spec__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Level_addLit_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_Level_leading_HasView_x_27___lambda__1___closed__3; -extern obj* l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; obj* l_Lean_Parser_symbolCore___at_Lean_Parser_Level_addLit_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Level_app_HasView; extern obj* l_Lean_Parser_maxPrec; obj* l_Lean_Parser_Level_Parser___closed__1; obj* l_Lean_Parser_levelParser_run_Lean_Parser_HasView___closed__2; -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_levelParser_run___spec__5(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_String_trim(obj*); obj* l_Lean_Parser_ident_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__3___boxed(obj*); obj* l_Lean_Parser_ParsecT_bindMkRes___rarg(obj*, obj*); @@ -187,6 +181,7 @@ extern obj* l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___clos extern "C" obj* lean_name_mk_numeral(obj*, obj*); obj* l_Lean_Parser_Level_paren_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_ident_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__3___rarg(obj*, obj*, obj*); +obj* l_Lean_Parser_prattParser___at_Lean_Parser_levelParser_run___spec__1___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; obj* l_Lean_Parser_token(obj*, obj*, obj*); obj* l_Lean_Parser_symbolOrIdent___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*); @@ -221,6 +216,7 @@ obj* l_ReaderT_Alternative___rarg(obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Level_trailing_Parser_Lean_Parser_HasTokens___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Level_addLit_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_levelParser_run_Lean_Parser_HasView(obj*); +obj* l_Lean_Parser_detailIdent_Parser___lambda__1___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Level_addLit_Parser(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_number_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__2(obj*); obj* l_Lean_Parser_Level_Lean_Parser_HasTokens; @@ -237,7 +233,7 @@ obj* l_Lean_Parser_Level_app_Parser_Lean_Parser_HasView___lambda__1(obj*, obj*, obj* l_Lean_Parser_prattParser___at_Lean_Parser_levelParser_run___spec__1(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Level_app_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_TrailingLevelParserM_Monad; -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_levelParser_run___spec__5___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); +extern obj* l_Lean_Parser_number_Parser___rarg___lambda__1___closed__1; obj* l_Lean_Parser_Level_trailing_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_levelParser_run_Lean_Parser_HasTokens(obj*); obj* l_Lean_Parser_Level_trailing_HasView_x_27___lambda__1(obj*); @@ -858,7 +854,7 @@ x_9 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_10 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_10, 0, x_3); lean::cnstr_set(x_10, 1, x_9); -x_11 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_11 = lean::box(3); x_12 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_12, 0, x_11); lean::cnstr_set(x_12, 1, x_10); @@ -868,110 +864,69 @@ return x_14; } else { -obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; +obj* x_15; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; x_15 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_17 = x_5; -} else { - lean::inc(x_15); - lean::dec(x_5); - x_17 = lean::box(0); -} +lean::inc(x_15); +lean::dec(x_5); x_18 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_18, 0, x_15); -if (lean::is_scalar(x_17)) { - x_19 = lean::alloc_cnstr(1, 1, 0); -} else { - x_19 = x_17; -} +x_19 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_19, 0, x_18); -x_20 = lean::box(3); -x_21 = l_Option_getOrElse___main___rarg(x_19, x_20); -lean::dec(x_19); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_21); -lean::cnstr_set(x_23, 1, x_8); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_3); -lean::cnstr_set(x_24, 1, x_23); -x_25 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_25); -lean::cnstr_set(x_26, 1, x_24); -x_27 = l_Lean_Parser_Level_paren; -x_28 = l_Lean_Parser_Syntax_mkNode(x_27, x_26); -return x_28; +lean::cnstr_set(x_19, 1, x_8); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_3); +lean::cnstr_set(x_20, 1, x_19); +x_21 = lean::box(3); +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_21); +lean::cnstr_set(x_22, 1, x_20); +x_23 = l_Lean_Parser_Level_paren; +x_24 = l_Lean_Parser_Syntax_mkNode(x_23, x_22); +return x_24; } } else { -obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; -x_29 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_31 = x_1; -} else { - lean::inc(x_29); - lean::dec(x_1); - x_31 = lean::box(0); -} -x_32 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_32, 0, x_29); -if (lean::is_scalar(x_31)) { - x_33 = lean::alloc_cnstr(1, 1, 0); -} else { - x_33 = x_31; -} -lean::cnstr_set(x_33, 0, x_32); -x_34 = lean::box(3); -x_35 = l_Option_getOrElse___main___rarg(x_33, x_34); -lean::dec(x_33); +obj* x_25; obj* x_28; +x_25 = lean::cnstr_get(x_1, 0); +lean::inc(x_25); +lean::dec(x_1); +x_28 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_28, 0, x_25); if (lean::obj_tag(x_5) == 0) { -obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_37 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_38 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_38, 0, x_3); -lean::cnstr_set(x_38, 1, x_37); -x_39 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_39, 0, x_35); -lean::cnstr_set(x_39, 1, x_38); -x_40 = l_Lean_Parser_Level_paren; -x_41 = l_Lean_Parser_Syntax_mkNode(x_40, x_39); -return x_41; +obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_29 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_3); +lean::cnstr_set(x_30, 1, x_29); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_28); +lean::cnstr_set(x_31, 1, x_30); +x_32 = l_Lean_Parser_Level_paren; +x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); +return x_33; } else { -obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; -x_42 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_44 = x_5; -} else { - lean::inc(x_42); - lean::dec(x_5); - x_44 = lean::box(0); -} -x_45 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_45, 0, x_42); -if (lean::is_scalar(x_44)) { - x_46 = lean::alloc_cnstr(1, 1, 0); -} else { - x_46 = x_44; -} -lean::cnstr_set(x_46, 0, x_45); -x_47 = l_Option_getOrElse___main___rarg(x_46, x_34); -lean::dec(x_46); -x_49 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_49, 0, x_47); -lean::cnstr_set(x_49, 1, x_8); -x_50 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_50, 0, x_3); -lean::cnstr_set(x_50, 1, x_49); -x_51 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_51, 0, x_35); -lean::cnstr_set(x_51, 1, x_50); -x_52 = l_Lean_Parser_Level_paren; -x_53 = l_Lean_Parser_Syntax_mkNode(x_52, x_51); -return x_53; +obj* x_34; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; +x_34 = lean::cnstr_get(x_5, 0); +lean::inc(x_34); +lean::dec(x_5); +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_34); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_8); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_3); +lean::cnstr_set(x_39, 1, x_38); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_28); +lean::cnstr_set(x_40, 1, x_39); +x_41 = l_Lean_Parser_Level_paren; +x_42 = l_Lean_Parser_Syntax_mkNode(x_41, x_40); +return x_42; } } } @@ -1049,235 +1004,231 @@ x_31 = lean::string_dec_eq(x_0, x_28); lean::dec(x_0); if (x_31 == 0) { -obj* x_35; obj* x_36; obj* x_37; obj* x_41; +obj* x_35; obj* x_36; obj* x_37; obj* x_39; lean::dec(x_23); lean::dec(x_14); x_35 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_35, 0, x_5); x_36 = lean::box(0); x_37 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_28, x_2, x_35, x_36, x_4, x_19, x_12); -lean::dec(x_19); lean::dec(x_4); -lean::dec(x_35); -x_41 = lean::cnstr_get(x_37, 0); -lean::inc(x_41); -if (lean::obj_tag(x_41) == 0) +x_39 = lean::cnstr_get(x_37, 0); +lean::inc(x_39); +if (lean::obj_tag(x_39) == 0) { -obj* x_43; obj* x_45; obj* x_46; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; -x_43 = lean::cnstr_get(x_37, 1); +obj* x_41; obj* x_43; obj* x_44; obj* x_46; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +x_41 = lean::cnstr_get(x_37, 1); if (lean::is_exclusive(x_37)) { lean::cnstr_release(x_37, 0); - x_45 = x_37; + x_43 = x_37; } else { - lean::inc(x_43); + lean::inc(x_41); lean::dec(x_37); - x_45 = lean::box(0); + x_43 = lean::box(0); } -x_46 = lean::cnstr_get(x_41, 1); -x_48 = lean::cnstr_get(x_41, 2); -if (lean::is_exclusive(x_41)) { - lean::cnstr_release(x_41, 0); - x_50 = x_41; +x_44 = lean::cnstr_get(x_39, 1); +x_46 = lean::cnstr_get(x_39, 2); +if (lean::is_exclusive(x_39)) { + lean::cnstr_release(x_39, 0); + x_48 = x_39; } else { + lean::inc(x_44); lean::inc(x_46); - lean::inc(x_48); - lean::dec(x_41); - x_50 = lean::box(0); + lean::dec(x_39); + x_48 = lean::box(0); } -x_51 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_50)) { - x_52 = lean::alloc_cnstr(0, 3, 0); +x_49 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_48)) { + x_50 = lean::alloc_cnstr(0, 3, 0); } else { - x_52 = x_50; + x_50 = x_48; } -lean::cnstr_set(x_52, 0, x_17); -lean::cnstr_set(x_52, 1, x_46); -lean::cnstr_set(x_52, 2, x_51); -x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_48, x_52); -x_54 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_53); -x_55 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_51, x_54); -x_56 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_55, x_16); -x_57 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_56); -if (lean::is_scalar(x_45)) { - x_58 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_50, 0, x_17); +lean::cnstr_set(x_50, 1, x_44); +lean::cnstr_set(x_50, 2, x_49); +x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_46, x_50); +x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_51); +x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_49, x_52); +x_54 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_53, x_16); +x_55 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_54); +if (lean::is_scalar(x_43)) { + x_56 = lean::alloc_cnstr(0, 2, 0); } else { - x_58 = x_45; + x_56 = x_43; } -lean::cnstr_set(x_58, 0, x_57); -lean::cnstr_set(x_58, 1, x_43); -return x_58; +lean::cnstr_set(x_56, 0, x_55); +lean::cnstr_set(x_56, 1, x_41); +return x_56; } else { -obj* x_60; obj* x_62; obj* x_63; uint8 x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; +obj* x_58; obj* x_60; obj* x_61; uint8 x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; lean::dec(x_17); -x_60 = lean::cnstr_get(x_37, 1); +x_58 = lean::cnstr_get(x_37, 1); if (lean::is_exclusive(x_37)) { lean::cnstr_release(x_37, 0); - x_62 = x_37; + x_60 = x_37; } else { - lean::inc(x_60); + lean::inc(x_58); lean::dec(x_37); - x_62 = lean::box(0); + x_60 = lean::box(0); } -x_63 = lean::cnstr_get(x_41, 0); -x_65 = lean::cnstr_get_scalar(x_41, sizeof(void*)*1); -if (lean::is_exclusive(x_41)) { - x_66 = x_41; +x_61 = lean::cnstr_get(x_39, 0); +x_63 = lean::cnstr_get_scalar(x_39, sizeof(void*)*1); +if (lean::is_exclusive(x_39)) { + x_64 = x_39; } else { - lean::inc(x_63); - lean::dec(x_41); - x_66 = lean::box(0); + lean::inc(x_61); + lean::dec(x_39); + x_64 = lean::box(0); } -if (lean::is_scalar(x_66)) { - x_67 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_64)) { + x_65 = lean::alloc_cnstr(1, 1, 1); } else { - x_67 = x_66; + x_65 = x_64; } -lean::cnstr_set(x_67, 0, x_63); -lean::cnstr_set_scalar(x_67, sizeof(void*)*1, x_65); -x_68 = x_67; -x_69 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_68); -x_70 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_71 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_70, x_69); -x_72 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_71, x_16); -x_73 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_72); -if (lean::is_scalar(x_62)) { - x_74 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_65, 0, x_61); +lean::cnstr_set_scalar(x_65, sizeof(void*)*1, x_63); +x_66 = x_65; +x_67 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_66); +x_68 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_69 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_68, x_67); +x_70 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_69, x_16); +x_71 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_70); +if (lean::is_scalar(x_60)) { + x_72 = lean::alloc_cnstr(0, 2, 0); } else { - x_74 = x_62; + x_72 = x_60; } -lean::cnstr_set(x_74, 0, x_73); -lean::cnstr_set(x_74, 1, x_60); -return x_74; +lean::cnstr_set(x_72, 0, x_71); +lean::cnstr_set(x_72, 1, x_58); +return x_72; } } else { -obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; +obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; lean::dec(x_5); lean::dec(x_4); lean::dec(x_2); lean::dec(x_28); -x_79 = l_Lean_Parser_finishCommentBlock___closed__2; +x_77 = l_Lean_Parser_finishCommentBlock___closed__2; if (lean::is_scalar(x_23)) { - x_80 = lean::alloc_cnstr(0, 3, 0); + x_78 = lean::alloc_cnstr(0, 3, 0); } else { - x_80 = x_23; + x_78 = x_23; } -lean::cnstr_set(x_80, 0, x_17); -lean::cnstr_set(x_80, 1, x_19); -lean::cnstr_set(x_80, 2, x_79); -x_81 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_80); -x_82 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_83 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_82, x_81); -x_84 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_83, x_16); -x_85 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_84); +lean::cnstr_set(x_78, 0, x_17); +lean::cnstr_set(x_78, 1, x_19); +lean::cnstr_set(x_78, 2, x_77); +x_79 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_78); +x_80 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_81 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_80, x_79); +x_82 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_81, x_16); +x_83 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_82); if (lean::is_scalar(x_14)) { - x_86 = lean::alloc_cnstr(0, 2, 0); + x_84 = lean::alloc_cnstr(0, 2, 0); } else { - x_86 = x_14; + x_84 = x_14; } -lean::cnstr_set(x_86, 0, x_85); -lean::cnstr_set(x_86, 1, x_12); -return x_86; +lean::cnstr_set(x_84, 0, x_83); +lean::cnstr_set(x_84, 1, x_12); +return x_84; } } case 3: { -obj* x_90; +obj* x_88; lean::dec(x_23); lean::dec(x_14); lean::dec(x_0); -x_90 = lean::box(0); -x_24 = x_90; +x_88 = lean::box(0); +x_24 = x_88; goto lbl_25; } default: { -obj* x_95; +obj* x_93; lean::dec(x_23); lean::dec(x_14); lean::dec(x_0); lean::dec(x_17); -x_95 = lean::box(0); -x_24 = x_95; +x_93 = lean::box(0); +x_24 = x_93; goto lbl_25; } } lbl_25: { -obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_104; obj* x_106; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; +obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_100; obj* x_102; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; lean::dec(x_24); -x_97 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_97, 0, x_5); -x_98 = lean::box(0); -x_99 = l_String_splitAux___main___closed__1; -x_100 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_99, x_2, x_97, x_98, x_4, x_19, x_12); -lean::dec(x_19); +x_95 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_95, 0, x_5); +x_96 = lean::box(0); +x_97 = l_String_splitAux___main___closed__1; +x_98 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_97, x_2, x_95, x_96, x_4, x_19, x_12); lean::dec(x_4); -lean::dec(x_97); -x_104 = lean::cnstr_get(x_100, 0); -x_106 = lean::cnstr_get(x_100, 1); -if (lean::is_exclusive(x_100)) { - x_108 = x_100; +x_100 = lean::cnstr_get(x_98, 0); +x_102 = lean::cnstr_get(x_98, 1); +if (lean::is_exclusive(x_98)) { + x_104 = x_98; } else { - lean::inc(x_104); - lean::inc(x_106); - lean::dec(x_100); - x_108 = lean::box(0); + lean::inc(x_100); + lean::inc(x_102); + lean::dec(x_98); + x_104 = lean::box(0); } -x_109 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_104); -x_110 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_111 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_110, x_109); -x_112 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_111, x_16); -x_113 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_112); -if (lean::is_scalar(x_108)) { - x_114 = lean::alloc_cnstr(0, 2, 0); +x_105 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_100); +x_106 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_107 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_106, x_105); +x_108 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_107, x_16); +x_109 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_108); +if (lean::is_scalar(x_104)) { + x_110 = lean::alloc_cnstr(0, 2, 0); } else { - x_114 = x_108; + x_110 = x_104; } -lean::cnstr_set(x_114, 0, x_113); -lean::cnstr_set(x_114, 1, x_106); -return x_114; +lean::cnstr_set(x_110, 0, x_109); +lean::cnstr_set(x_110, 1, x_102); +return x_110; } } else { -obj* x_119; uint8 x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; obj* x_129; +obj* x_115; uint8 x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; lean::dec(x_5); lean::dec(x_4); lean::dec(x_0); lean::dec(x_2); -x_119 = lean::cnstr_get(x_10, 0); -x_121 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); +x_115 = lean::cnstr_get(x_10, 0); +x_117 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); if (lean::is_exclusive(x_10)) { - x_122 = x_10; + x_118 = x_10; } else { - lean::inc(x_119); + lean::inc(x_115); lean::dec(x_10); - x_122 = lean::box(0); + x_118 = lean::box(0); } -if (lean::is_scalar(x_122)) { - x_123 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_118)) { + x_119 = lean::alloc_cnstr(1, 1, 1); } else { - x_123 = x_122; + x_119 = x_118; } -lean::cnstr_set(x_123, 0, x_119); -lean::cnstr_set_scalar(x_123, sizeof(void*)*1, x_121); -x_124 = x_123; -x_125 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_126 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_125, x_124); -x_127 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_126, x_16); -x_128 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_127); +lean::cnstr_set(x_119, 0, x_115); +lean::cnstr_set_scalar(x_119, sizeof(void*)*1, x_117); +x_120 = x_119; +x_121 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_122 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_121, x_120); +x_123 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_122, x_16); +x_124 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_123); if (lean::is_scalar(x_14)) { - x_129 = lean::alloc_cnstr(0, 2, 0); + x_125 = lean::alloc_cnstr(0, 2, 0); } else { - x_129 = x_14; + x_125 = x_14; } -lean::cnstr_set(x_129, 0, x_128); -lean::cnstr_set(x_129, 1, x_12); -return x_129; +lean::cnstr_set(x_125, 0, x_124); +lean::cnstr_set(x_125, 1, x_12); +return x_125; } } } @@ -1478,203 +1429,278 @@ goto lbl_20; } else { -obj* x_48; obj* x_51; obj* x_53; obj* x_54; obj* x_56; obj* x_59; obj* x_60; obj* x_62; obj* x_64; obj* x_67; obj* x_69; obj* x_70; obj* x_71; -x_48 = lean::cnstr_get(x_23, 1); -lean::inc(x_48); -lean::dec(x_23); -x_51 = lean::cnstr_get(x_24, 0); +obj* x_48; obj* x_50; obj* x_51; +x_48 = lean::cnstr_get(x_24, 0); if (lean::is_exclusive(x_24)) { lean::cnstr_set(x_24, 0, lean::box(0)); - x_53 = x_24; + x_50 = x_24; } else { - lean::inc(x_51); + lean::inc(x_48); lean::dec(x_24); - x_53 = lean::box(0); + x_50 = lean::box(0); } -x_54 = lean::cnstr_get(x_51, 3); -lean::inc(x_54); -x_56 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_54); -lean::dec(x_54); -lean::inc(x_1); -x_59 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_59, 0, x_56); -lean::cnstr_set(x_59, 1, x_1); -x_60 = lean::cnstr_get(x_51, 0); +x_51 = lean::cnstr_get(x_48, 3); +lean::inc(x_51); +if (lean::obj_tag(x_51) == 0) +{ +obj* x_53; obj* x_56; obj* x_58; obj* x_60; obj* x_63; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; +x_53 = lean::cnstr_get(x_23, 1); +lean::inc(x_53); +lean::dec(x_23); +x_56 = lean::cnstr_get(x_48, 0); +lean::inc(x_56); +x_58 = lean::cnstr_get(x_48, 1); +lean::inc(x_58); +x_60 = lean::cnstr_get(x_48, 2); lean::inc(x_60); -x_62 = lean::cnstr_get(x_51, 1); -lean::inc(x_62); -x_64 = lean::cnstr_get(x_51, 2); -lean::inc(x_64); -lean::dec(x_51); -x_67 = l_List_reverse___rarg(x_59); +lean::dec(x_48); +x_63 = lean::box(3); +lean::inc(x_1); +x_65 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_65, 0, x_63); +lean::cnstr_set(x_65, 1, x_1); +x_66 = l_List_reverse___rarg(x_65); lean::inc(x_0); -x_69 = l_Lean_Parser_Syntax_mkNode(x_0, x_67); -x_70 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_70, 0, x_69); -x_71 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_71, 0, x_60); -lean::cnstr_set(x_71, 1, x_62); -lean::cnstr_set(x_71, 2, x_64); -lean::cnstr_set(x_71, 3, x_70); +x_68 = l_Lean_Parser_Syntax_mkNode(x_0, x_66); +x_69 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_69, 0, x_68); +x_70 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_70, 0, x_56); +lean::cnstr_set(x_70, 1, x_58); +lean::cnstr_set(x_70, 2, x_60); +lean::cnstr_set(x_70, 3, x_69); if (x_29 == 0) { -uint8 x_72; obj* x_73; obj* x_74; -x_72 = 0; -if (lean::is_scalar(x_53)) { - x_73 = lean::alloc_cnstr(1, 1, 1); +uint8 x_71; obj* x_72; obj* x_73; +x_71 = 0; +if (lean::is_scalar(x_50)) { + x_72 = lean::alloc_cnstr(1, 1, 1); } else { - x_73 = x_53; + x_72 = x_50; } -lean::cnstr_set(x_73, 0, x_71); -lean::cnstr_set_scalar(x_73, sizeof(void*)*1, x_72); -x_74 = x_73; -x_18 = x_74; -x_19 = x_48; +lean::cnstr_set(x_72, 0, x_70); +lean::cnstr_set_scalar(x_72, sizeof(void*)*1, x_71); +x_73 = x_72; +x_18 = x_73; +x_19 = x_53; goto lbl_20; } else { -uint8 x_75; obj* x_76; obj* x_77; -x_75 = 1; -if (lean::is_scalar(x_53)) { - x_76 = lean::alloc_cnstr(1, 1, 1); +uint8 x_74; obj* x_75; obj* x_76; +x_74 = 1; +if (lean::is_scalar(x_50)) { + x_75 = lean::alloc_cnstr(1, 1, 1); } else { - x_76 = x_53; + x_75 = x_50; } -lean::cnstr_set(x_76, 0, x_71); -lean::cnstr_set_scalar(x_76, sizeof(void*)*1, x_75); -x_77 = x_76; -x_18 = x_77; -x_19 = x_48; +lean::cnstr_set(x_75, 0, x_70); +lean::cnstr_set_scalar(x_75, sizeof(void*)*1, x_74); +x_76 = x_75; +x_18 = x_76; +x_19 = x_53; goto lbl_20; } } +else +{ +obj* x_77; obj* x_80; obj* x_82; obj* x_84; obj* x_87; obj* x_89; obj* x_91; obj* x_92; obj* x_94; obj* x_95; obj* x_96; +x_77 = lean::cnstr_get(x_23, 1); +lean::inc(x_77); +lean::dec(x_23); +x_80 = lean::cnstr_get(x_48, 0); +lean::inc(x_80); +x_82 = lean::cnstr_get(x_48, 1); +lean::inc(x_82); +x_84 = lean::cnstr_get(x_48, 2); +lean::inc(x_84); +lean::dec(x_48); +x_87 = lean::cnstr_get(x_51, 0); +if (lean::is_exclusive(x_51)) { + x_89 = x_51; +} else { + lean::inc(x_87); + lean::dec(x_51); + x_89 = lean::box(0); +} +lean::inc(x_1); +x_91 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_91, 0, x_87); +lean::cnstr_set(x_91, 1, x_1); +x_92 = l_List_reverse___rarg(x_91); +lean::inc(x_0); +x_94 = l_Lean_Parser_Syntax_mkNode(x_0, x_92); +if (lean::is_scalar(x_89)) { + x_95 = lean::alloc_cnstr(1, 1, 0); +} else { + x_95 = x_89; +} +lean::cnstr_set(x_95, 0, x_94); +x_96 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_96, 0, x_80); +lean::cnstr_set(x_96, 1, x_82); +lean::cnstr_set(x_96, 2, x_84); +lean::cnstr_set(x_96, 3, x_95); +if (x_29 == 0) +{ +uint8 x_97; obj* x_98; obj* x_99; +x_97 = 0; +if (lean::is_scalar(x_50)) { + x_98 = lean::alloc_cnstr(1, 1, 1); +} else { + x_98 = x_50; +} +lean::cnstr_set(x_98, 0, x_96); +lean::cnstr_set_scalar(x_98, sizeof(void*)*1, x_97); +x_99 = x_98; +x_18 = x_99; +x_19 = x_77; +goto lbl_20; +} +else +{ +uint8 x_100; obj* x_101; obj* x_102; +x_100 = 1; +if (lean::is_scalar(x_50)) { + x_101 = lean::alloc_cnstr(1, 1, 1); +} else { + x_101 = x_50; +} +lean::cnstr_set(x_101, 0, x_96); +lean::cnstr_set_scalar(x_101, sizeof(void*)*1, x_100); +x_102 = x_101; +x_18 = x_102; +x_19 = x_77; +goto lbl_20; +} +} +} } lbl_20: { if (lean::obj_tag(x_18) == 0) { -obj* x_78; obj* x_80; obj* x_82; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; -x_78 = lean::cnstr_get(x_18, 0); -x_80 = lean::cnstr_get(x_18, 1); -x_82 = lean::cnstr_get(x_18, 2); +obj* x_103; obj* x_105; obj* x_107; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; +x_103 = lean::cnstr_get(x_18, 0); +x_105 = lean::cnstr_get(x_18, 1); +x_107 = lean::cnstr_get(x_18, 2); if (lean::is_exclusive(x_18)) { - x_84 = x_18; + x_109 = x_18; } else { - lean::inc(x_78); - lean::inc(x_80); - lean::inc(x_82); + lean::inc(x_103); + lean::inc(x_105); + lean::inc(x_107); lean::dec(x_18); - x_84 = lean::box(0); + x_109 = lean::box(0); } if (lean::is_scalar(x_17)) { - x_85 = lean::alloc_cnstr(1, 2, 0); + x_110 = lean::alloc_cnstr(1, 2, 0); } else { - x_85 = x_17; + x_110 = x_17; } -lean::cnstr_set(x_85, 0, x_78); -lean::cnstr_set(x_85, 1, x_1); -x_86 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_84)) { - x_87 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_110, 0, x_103); +lean::cnstr_set(x_110, 1, x_1); +x_111 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_109)) { + x_112 = lean::alloc_cnstr(0, 3, 0); } else { - x_87 = x_84; + x_112 = x_109; } -lean::cnstr_set(x_87, 0, x_85); -lean::cnstr_set(x_87, 1, x_80); -lean::cnstr_set(x_87, 2, x_86); -x_88 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_82, x_87); -if (lean::obj_tag(x_88) == 0) +lean::cnstr_set(x_112, 0, x_110); +lean::cnstr_set(x_112, 1, x_105); +lean::cnstr_set(x_112, 2, x_111); +x_113 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_107, x_112); +if (lean::obj_tag(x_113) == 0) { -obj* x_89; obj* x_91; obj* x_93; obj* x_96; obj* x_97; obj* x_99; obj* x_101; obj* x_102; obj* x_103; -x_89 = lean::cnstr_get(x_88, 0); -lean::inc(x_89); -x_91 = lean::cnstr_get(x_88, 1); -lean::inc(x_91); -x_93 = lean::cnstr_get(x_88, 2); -lean::inc(x_93); -lean::dec(x_88); -x_96 = l_List_mfoldl___main___at_Lean_Parser_Level_paren_Parser___spec__2(x_0, x_89, x_15, x_3, x_4, x_91, x_19); -x_97 = lean::cnstr_get(x_96, 0); -x_99 = lean::cnstr_get(x_96, 1); -if (lean::is_exclusive(x_96)) { - x_101 = x_96; +obj* x_114; obj* x_116; obj* x_118; obj* x_121; obj* x_122; obj* x_124; obj* x_126; obj* x_127; obj* x_128; +x_114 = lean::cnstr_get(x_113, 0); +lean::inc(x_114); +x_116 = lean::cnstr_get(x_113, 1); +lean::inc(x_116); +x_118 = lean::cnstr_get(x_113, 2); +lean::inc(x_118); +lean::dec(x_113); +x_121 = l_List_mfoldl___main___at_Lean_Parser_Level_paren_Parser___spec__2(x_0, x_114, x_15, x_3, x_4, x_116, x_19); +x_122 = lean::cnstr_get(x_121, 0); +x_124 = lean::cnstr_get(x_121, 1); +if (lean::is_exclusive(x_121)) { + x_126 = x_121; } else { - lean::inc(x_97); - lean::inc(x_99); - lean::dec(x_96); - x_101 = lean::box(0); + lean::inc(x_122); + lean::inc(x_124); + lean::dec(x_121); + x_126 = lean::box(0); } -x_102 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_93, x_97); -if (lean::is_scalar(x_101)) { - x_103 = lean::alloc_cnstr(0, 2, 0); +x_127 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_118, x_122); +if (lean::is_scalar(x_126)) { + x_128 = lean::alloc_cnstr(0, 2, 0); } else { - x_103 = x_101; + x_128 = x_126; } -lean::cnstr_set(x_103, 0, x_102); -lean::cnstr_set(x_103, 1, x_99); -return x_103; +lean::cnstr_set(x_128, 0, x_127); +lean::cnstr_set(x_128, 1, x_124); +return x_128; } else { -obj* x_108; uint8 x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; +obj* x_133; uint8 x_135; obj* x_136; obj* x_137; obj* x_138; obj* x_139; lean::dec(x_15); lean::dec(x_4); lean::dec(x_3); lean::dec(x_0); -x_108 = lean::cnstr_get(x_88, 0); -x_110 = lean::cnstr_get_scalar(x_88, sizeof(void*)*1); -if (lean::is_exclusive(x_88)) { - x_111 = x_88; +x_133 = lean::cnstr_get(x_113, 0); +x_135 = lean::cnstr_get_scalar(x_113, sizeof(void*)*1); +if (lean::is_exclusive(x_113)) { + x_136 = x_113; } else { - lean::inc(x_108); - lean::dec(x_88); - x_111 = lean::box(0); + lean::inc(x_133); + lean::dec(x_113); + x_136 = lean::box(0); } -if (lean::is_scalar(x_111)) { - x_112 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_136)) { + x_137 = lean::alloc_cnstr(1, 1, 1); } else { - x_112 = x_111; + x_137 = x_136; } -lean::cnstr_set(x_112, 0, x_108); -lean::cnstr_set_scalar(x_112, sizeof(void*)*1, x_110); -x_113 = x_112; -x_114 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_114, 0, x_113); -lean::cnstr_set(x_114, 1, x_19); -return x_114; +lean::cnstr_set(x_137, 0, x_133); +lean::cnstr_set_scalar(x_137, sizeof(void*)*1, x_135); +x_138 = x_137; +x_139 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_139, 0, x_138); +lean::cnstr_set(x_139, 1, x_19); +return x_139; } } else { -obj* x_121; uint8 x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; +obj* x_146; uint8 x_148; obj* x_149; obj* x_150; obj* x_151; obj* x_152; lean::dec(x_15); lean::dec(x_4); lean::dec(x_1); lean::dec(x_3); lean::dec(x_0); lean::dec(x_17); -x_121 = lean::cnstr_get(x_18, 0); -x_123 = lean::cnstr_get_scalar(x_18, sizeof(void*)*1); +x_146 = lean::cnstr_get(x_18, 0); +x_148 = lean::cnstr_get_scalar(x_18, sizeof(void*)*1); if (lean::is_exclusive(x_18)) { - x_124 = x_18; + x_149 = x_18; } else { - lean::inc(x_121); + lean::inc(x_146); lean::dec(x_18); - x_124 = lean::box(0); + x_149 = lean::box(0); } -if (lean::is_scalar(x_124)) { - x_125 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_149)) { + x_150 = lean::alloc_cnstr(1, 1, 1); } else { - x_125 = x_124; + x_150 = x_149; } -lean::cnstr_set(x_125, 0, x_121); -lean::cnstr_set_scalar(x_125, sizeof(void*)*1, x_123); -x_126 = x_125; -x_127 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_127, 0, x_126); -lean::cnstr_set(x_127, 1, x_19); -return x_127; +lean::cnstr_set(x_150, 0, x_146); +lean::cnstr_set_scalar(x_150, sizeof(void*)*1, x_148); +x_151 = x_150; +x_152 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_152, 0, x_151); +lean::cnstr_set(x_152, 1, x_19); +return x_152; } } } @@ -2211,24 +2237,22 @@ return x_115; obj* _init_l_Lean_Parser_Level_leading_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(2ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_Level_leading; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_Level_leading; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_Level_leading_HasView_x_27___lambda__2___closed__2() { @@ -2307,104 +2331,90 @@ return x_23; } else { -obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +obj* x_24; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; x_24 = lean::cnstr_get(x_20, 0); -if (lean::is_exclusive(x_20)) { - x_26 = x_20; -} else { - lean::inc(x_24); - lean::dec(x_20); - x_26 = lean::box(0); -} +lean::inc(x_24); +lean::dec(x_20); x_27 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_27, 0, x_24); -if (lean::is_scalar(x_26)) { - x_28 = lean::alloc_cnstr(1, 1, 0); -} else { - x_28 = x_26; -} +x_28 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_28, 0, x_27); -x_29 = lean::box(3); -x_30 = l_Option_getOrElse___main___rarg(x_28, x_29); -lean::dec(x_28); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_30); -lean::cnstr_set(x_32, 1, x_1); -x_33 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__4; -x_34 = l_Lean_Parser_Syntax_mkNode(x_33, x_32); -x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_34); -lean::cnstr_set(x_35, 1, x_1); -x_36 = l_Lean_Parser_Level_leading; -x_37 = l_Lean_Parser_Syntax_mkNode(x_36, x_35); -return x_37; +lean::cnstr_set(x_28, 1, x_1); +x_29 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__4; +x_30 = l_Lean_Parser_Syntax_mkNode(x_29, x_28); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_1); +x_32 = l_Lean_Parser_Level_leading; +x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); +return x_33; } } case 3: { -obj* x_38; obj* x_41; obj* x_42; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; -x_38 = lean::cnstr_get(x_0, 0); -lean::inc(x_38); +obj* x_34; obj* x_37; obj* x_38; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; +x_34 = lean::cnstr_get(x_0, 0); +lean::inc(x_34); lean::dec(x_0); -x_41 = l_Lean_Parser_Level_paren_HasView; -x_42 = lean::cnstr_get(x_41, 1); -lean::inc(x_42); -lean::dec(x_41); -x_45 = lean::apply_1(x_42, x_38); -x_46 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_46, 0, x_45); -lean::cnstr_set(x_46, 1, x_1); -x_47 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__6; -x_48 = l_Lean_Parser_Syntax_mkNode(x_47, x_46); -x_49 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_49, 0, x_48); -lean::cnstr_set(x_49, 1, x_1); -x_50 = l_Lean_Parser_Level_leading; -x_51 = l_Lean_Parser_Syntax_mkNode(x_50, x_49); -return x_51; +x_37 = l_Lean_Parser_Level_paren_HasView; +x_38 = lean::cnstr_get(x_37, 1); +lean::inc(x_38); +lean::dec(x_37); +x_41 = lean::apply_1(x_38, x_34); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_41); +lean::cnstr_set(x_42, 1, x_1); +x_43 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__6; +x_44 = l_Lean_Parser_Syntax_mkNode(x_43, x_42); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_44); +lean::cnstr_set(x_45, 1, x_1); +x_46 = l_Lean_Parser_Level_leading; +x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); +return x_47; } case 4: { -obj* x_52; obj* x_55; obj* x_56; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; -x_52 = lean::cnstr_get(x_0, 0); -lean::inc(x_52); +obj* x_48; obj* x_51; obj* x_52; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; +x_48 = lean::cnstr_get(x_0, 0); +lean::inc(x_48); lean::dec(x_0); -x_55 = l_Lean_Parser_number_HasView; -x_56 = lean::cnstr_get(x_55, 1); -lean::inc(x_56); -lean::dec(x_55); -x_59 = lean::apply_1(x_56, x_52); -x_60 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_60, 0, x_59); -lean::cnstr_set(x_60, 1, x_1); -x_61 = l_Lean_Parser_Level_leading_HasView_x_27___lambda__2___closed__2; -x_62 = l_Lean_Parser_Syntax_mkNode(x_61, x_60); -x_63 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_63, 0, x_62); -lean::cnstr_set(x_63, 1, x_1); -x_64 = l_Lean_Parser_Level_leading; -x_65 = l_Lean_Parser_Syntax_mkNode(x_64, x_63); -return x_65; +x_51 = l_Lean_Parser_number_HasView; +x_52 = lean::cnstr_get(x_51, 1); +lean::inc(x_52); +lean::dec(x_51); +x_55 = lean::apply_1(x_52, x_48); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_55); +lean::cnstr_set(x_56, 1, x_1); +x_57 = l_Lean_Parser_Level_leading_HasView_x_27___lambda__2___closed__2; +x_58 = l_Lean_Parser_Syntax_mkNode(x_57, x_56); +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_58); +lean::cnstr_set(x_59, 1, x_1); +x_60 = l_Lean_Parser_Level_leading; +x_61 = l_Lean_Parser_Syntax_mkNode(x_60, x_59); +return x_61; } default: { -obj* x_66; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; -x_66 = lean::cnstr_get(x_0, 0); -lean::inc(x_66); +obj* x_62; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; +x_62 = lean::cnstr_get(x_0, 0); +lean::inc(x_62); lean::dec(x_0); -x_69 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_69, 0, x_66); -x_70 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_70, 0, x_69); -lean::cnstr_set(x_70, 1, x_1); -x_71 = l_Lean_Parser_Level_leading_HasView_x_27___lambda__2___closed__3; -x_72 = l_Lean_Parser_Syntax_mkNode(x_71, x_70); -x_73 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_73, 0, x_72); -lean::cnstr_set(x_73, 1, x_1); -x_74 = l_Lean_Parser_Level_leading; -x_75 = l_Lean_Parser_Syntax_mkNode(x_74, x_73); -return x_75; +x_65 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_65, 0, x_62); +x_66 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_66, 0, x_65); +lean::cnstr_set(x_66, 1, x_1); +x_67 = l_Lean_Parser_Level_leading_HasView_x_27___lambda__2___closed__3; +x_68 = l_Lean_Parser_Syntax_mkNode(x_67, x_66); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_68); +lean::cnstr_set(x_69, 1, x_1); +x_70 = l_Lean_Parser_Level_leading; +x_71 = l_Lean_Parser_Syntax_mkNode(x_70, x_69); +return x_71; } } } @@ -2568,7 +2578,7 @@ return x_56; } else { -obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_68; +obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_66; lean::dec(x_12); lean::dec(x_19); x_59 = l_String_quote(x_0); @@ -2579,98 +2589,96 @@ lean::cnstr_set(x_61, 0, x_3); x_62 = lean::box(0); x_63 = l_String_splitAux___main___closed__1; x_64 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_63, x_60, x_61, x_62, x_2, x_15, x_10); -lean::dec(x_15); lean::dec(x_2); -lean::dec(x_61); -x_68 = lean::cnstr_get(x_64, 0); -lean::inc(x_68); -if (lean::obj_tag(x_68) == 0) +x_66 = lean::cnstr_get(x_64, 0); +lean::inc(x_66); +if (lean::obj_tag(x_66) == 0) { -obj* x_70; obj* x_72; obj* x_73; obj* x_75; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; -x_70 = lean::cnstr_get(x_64, 1); +obj* x_68; obj* x_70; obj* x_71; obj* x_73; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; +x_68 = lean::cnstr_get(x_64, 1); if (lean::is_exclusive(x_64)) { lean::cnstr_release(x_64, 0); - x_72 = x_64; + x_70 = x_64; } else { - lean::inc(x_70); + lean::inc(x_68); lean::dec(x_64); - x_72 = lean::box(0); + x_70 = lean::box(0); } -x_73 = lean::cnstr_get(x_68, 1); -x_75 = lean::cnstr_get(x_68, 2); -if (lean::is_exclusive(x_68)) { - lean::cnstr_release(x_68, 0); - x_77 = x_68; +x_71 = lean::cnstr_get(x_66, 1); +x_73 = lean::cnstr_get(x_66, 2); +if (lean::is_exclusive(x_66)) { + lean::cnstr_release(x_66, 0); + x_75 = x_66; } else { + lean::inc(x_71); lean::inc(x_73); - lean::inc(x_75); - lean::dec(x_68); - x_77 = lean::box(0); + lean::dec(x_66); + x_75 = lean::box(0); } -x_78 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_77)) { - x_79 = lean::alloc_cnstr(0, 3, 0); +x_76 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_75)) { + x_77 = lean::alloc_cnstr(0, 3, 0); } else { - x_79 = x_77; + x_77 = x_75; } -lean::cnstr_set(x_79, 0, x_13); -lean::cnstr_set(x_79, 1, x_73); -lean::cnstr_set(x_79, 2, x_78); -x_80 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_75, x_79); -x_81 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_80); -x_82 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_78, x_81); -x_83 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_82); -if (lean::is_scalar(x_72)) { - x_84 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_77, 0, x_13); +lean::cnstr_set(x_77, 1, x_71); +lean::cnstr_set(x_77, 2, x_76); +x_78 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_73, x_77); +x_79 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_78); +x_80 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_76, x_79); +x_81 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_80); +if (lean::is_scalar(x_70)) { + x_82 = lean::alloc_cnstr(0, 2, 0); } else { - x_84 = x_72; + x_82 = x_70; } -lean::cnstr_set(x_84, 0, x_83); -lean::cnstr_set(x_84, 1, x_70); -return x_84; +lean::cnstr_set(x_82, 0, x_81); +lean::cnstr_set(x_82, 1, x_68); +return x_82; } else { -obj* x_86; obj* x_88; obj* x_89; uint8 x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; +obj* x_84; obj* x_86; obj* x_87; uint8 x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; lean::dec(x_13); -x_86 = lean::cnstr_get(x_64, 1); +x_84 = lean::cnstr_get(x_64, 1); if (lean::is_exclusive(x_64)) { lean::cnstr_release(x_64, 0); - x_88 = x_64; + x_86 = x_64; } else { - lean::inc(x_86); + lean::inc(x_84); lean::dec(x_64); - x_88 = lean::box(0); + x_86 = lean::box(0); } -x_89 = lean::cnstr_get(x_68, 0); -x_91 = lean::cnstr_get_scalar(x_68, sizeof(void*)*1); -if (lean::is_exclusive(x_68)) { - x_92 = x_68; +x_87 = lean::cnstr_get(x_66, 0); +x_89 = lean::cnstr_get_scalar(x_66, sizeof(void*)*1); +if (lean::is_exclusive(x_66)) { + x_90 = x_66; } else { - lean::inc(x_89); - lean::dec(x_68); - x_92 = lean::box(0); + lean::inc(x_87); + lean::dec(x_66); + x_90 = lean::box(0); } -if (lean::is_scalar(x_92)) { - x_93 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_90)) { + x_91 = lean::alloc_cnstr(1, 1, 1); } else { - x_93 = x_92; + x_91 = x_90; } -lean::cnstr_set(x_93, 0, x_89); -lean::cnstr_set_scalar(x_93, sizeof(void*)*1, x_91); -x_94 = x_93; -x_95 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_94); -x_96 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_97 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_96, x_95); -x_98 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_97); -if (lean::is_scalar(x_88)) { - x_99 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_91, 0, x_87); +lean::cnstr_set_scalar(x_91, sizeof(void*)*1, x_89); +x_92 = x_91; +x_93 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_92); +x_94 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_95 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_94, x_93); +x_96 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_95); +if (lean::is_scalar(x_86)) { + x_97 = lean::alloc_cnstr(0, 2, 0); } else { - x_99 = x_88; + x_97 = x_86; } -lean::cnstr_set(x_99, 0, x_98); -lean::cnstr_set(x_99, 1, x_86); -return x_99; +lean::cnstr_set(x_97, 0, x_96); +lean::cnstr_set(x_97, 1, x_84); +return x_97; } } } @@ -2678,60 +2686,50 @@ return x_99; } else { -obj* x_103; obj* x_105; obj* x_106; uint8 x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; +obj* x_101; obj* x_103; obj* x_104; uint8 x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; lean::dec(x_3); lean::dec(x_0); lean::dec(x_2); -x_103 = lean::cnstr_get(x_7, 1); +x_101 = lean::cnstr_get(x_7, 1); if (lean::is_exclusive(x_7)) { lean::cnstr_release(x_7, 0); - x_105 = x_7; + x_103 = x_7; } else { - lean::inc(x_103); + lean::inc(x_101); lean::dec(x_7); - x_105 = lean::box(0); + x_103 = lean::box(0); } -x_106 = lean::cnstr_get(x_8, 0); -x_108 = lean::cnstr_get_scalar(x_8, sizeof(void*)*1); +x_104 = lean::cnstr_get(x_8, 0); +x_106 = lean::cnstr_get_scalar(x_8, sizeof(void*)*1); if (lean::is_exclusive(x_8)) { - x_109 = x_8; + x_107 = x_8; } else { - lean::inc(x_106); + lean::inc(x_104); lean::dec(x_8); - x_109 = lean::box(0); + x_107 = lean::box(0); } -if (lean::is_scalar(x_109)) { - x_110 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_107)) { + x_108 = lean::alloc_cnstr(1, 1, 1); } else { - x_110 = x_109; + x_108 = x_107; } -lean::cnstr_set(x_110, 0, x_106); -lean::cnstr_set_scalar(x_110, sizeof(void*)*1, x_108); -x_111 = x_110; -x_112 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_113 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_112, x_111); -x_114 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_113); -if (lean::is_scalar(x_105)) { - x_115 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_108, 0, x_104); +lean::cnstr_set_scalar(x_108, sizeof(void*)*1, x_106); +x_109 = x_108; +x_110 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_111 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_110, x_109); +x_112 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_111); +if (lean::is_scalar(x_103)) { + x_113 = lean::alloc_cnstr(0, 2, 0); } else { - x_115 = x_105; + x_113 = x_103; } -lean::cnstr_set(x_115, 0, x_114); -lean::cnstr_set(x_115, 1, x_103); -return x_115; +lean::cnstr_set(x_113, 0, x_112); +lean::cnstr_set(x_113, 1, x_101); +return x_113; } } } -obj* _init_l_Lean_Parser_number_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__2___rarg___closed__1() { -_start: -{ -obj* x_0; obj* x_1; -x_0 = lean::mk_string("number"); -x_1 = lean::alloc_closure(reinterpret_cast(l_DList_singleton___rarg), 2, 1); -lean::closure_set(x_1, 0, x_0); -return x_1; -} -} obj* l_Lean_Parser_number_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { @@ -2743,7 +2741,7 @@ x_6 = lean::cnstr_get(x_5, 0); lean::inc(x_6); if (lean::obj_tag(x_6) == 0) { -obj* x_8; obj* x_10; obj* x_11; obj* x_13; obj* x_15; obj* x_17; obj* x_18; obj* x_20; +obj* x_8; obj* x_10; obj* x_11; obj* x_13; obj* x_15; obj* x_17; obj* x_18; uint8 x_19; x_8 = lean::cnstr_get(x_5, 1); if (lean::is_exclusive(x_5)) { lean::cnstr_release(x_5, 0); @@ -2770,123 +2768,112 @@ if (lean::is_exclusive(x_6)) { x_17 = lean::box(0); } x_18 = l_Lean_Parser_number; -lean::inc(x_11); -x_20 = l_Lean_Parser_tryView___at_Lean_Parser_number_Parser___spec__1(x_18, x_11); -if (lean::obj_tag(x_20) == 0) +x_19 = l_Lean_Parser_Syntax_isOfKind___main(x_18, x_11); +if (x_19 == 0) { -obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_32; obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; +obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; lean::dec(x_17); lean::dec(x_10); lean::dec(x_11); -x_24 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_24, 0, x_1); -x_25 = lean::box(0); -x_26 = l_String_splitAux___main___closed__1; -x_27 = l_Lean_Parser_number_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__2___rarg___closed__1; -x_28 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_26, x_27, x_24, x_25, x_0, x_13, x_8); -lean::dec(x_13); +x_23 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_23, 0, x_1); +x_24 = lean::box(0); +x_25 = l_String_splitAux___main___closed__1; +x_26 = l_Lean_Parser_number_Parser___rarg___lambda__1___closed__1; +x_27 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_25, x_26, x_23, x_24, x_0, x_13, x_8); lean::dec(x_0); -lean::dec(x_24); -x_32 = lean::cnstr_get(x_28, 0); -x_34 = lean::cnstr_get(x_28, 1); -if (lean::is_exclusive(x_28)) { - x_36 = x_28; +x_29 = lean::cnstr_get(x_27, 0); +x_31 = lean::cnstr_get(x_27, 1); +if (lean::is_exclusive(x_27)) { + x_33 = x_27; } else { - lean::inc(x_32); - lean::inc(x_34); - lean::dec(x_28); - x_36 = lean::box(0); + lean::inc(x_29); + lean::inc(x_31); + lean::dec(x_27); + x_33 = lean::box(0); } -x_37 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_38 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_37, x_32); -x_39 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_38); -x_40 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_37, x_39); -x_41 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_40, x_27); -x_42 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_41); -if (lean::is_scalar(x_36)) { - x_43 = lean::alloc_cnstr(0, 2, 0); +x_34 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_29); +x_35 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_36 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_35, x_34); +x_37 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_36); +if (lean::is_scalar(x_33)) { + x_38 = lean::alloc_cnstr(0, 2, 0); } else { - x_43 = x_36; + x_38 = x_33; } -lean::cnstr_set(x_43, 0, x_42); -lean::cnstr_set(x_43, 1, x_34); -return x_43; +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_31); +return x_38; } else { -obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; +obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; lean::dec(x_1); lean::dec(x_0); -lean::dec(x_20); -x_47 = l_Lean_Parser_finishCommentBlock___closed__2; +x_41 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; if (lean::is_scalar(x_17)) { - x_48 = lean::alloc_cnstr(0, 3, 0); + x_42 = lean::alloc_cnstr(0, 3, 0); } else { - x_48 = x_17; + x_42 = x_17; } -lean::cnstr_set(x_48, 0, x_11); -lean::cnstr_set(x_48, 1, x_13); -lean::cnstr_set(x_48, 2, x_47); -x_49 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_48); -x_50 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_50, x_49); -x_52 = l_Lean_Parser_number_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__2___rarg___closed__1; -x_53 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_51, x_52); -x_54 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_53); +lean::cnstr_set(x_42, 0, x_11); +lean::cnstr_set(x_42, 1, x_13); +lean::cnstr_set(x_42, 2, x_41); +x_43 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_42); +x_44 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_41, x_43); +x_45 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_44); if (lean::is_scalar(x_10)) { - x_55 = lean::alloc_cnstr(0, 2, 0); + x_46 = lean::alloc_cnstr(0, 2, 0); } else { - x_55 = x_10; + x_46 = x_10; } -lean::cnstr_set(x_55, 0, x_54); -lean::cnstr_set(x_55, 1, x_8); -return x_55; +lean::cnstr_set(x_46, 0, x_45); +lean::cnstr_set(x_46, 1, x_8); +return x_46; } } else { -obj* x_58; obj* x_60; obj* x_61; uint8 x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; +obj* x_49; obj* x_51; obj* x_52; uint8 x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; lean::dec(x_1); lean::dec(x_0); -x_58 = lean::cnstr_get(x_5, 1); +x_49 = lean::cnstr_get(x_5, 1); if (lean::is_exclusive(x_5)) { lean::cnstr_release(x_5, 0); - x_60 = x_5; + x_51 = x_5; } else { - lean::inc(x_58); + lean::inc(x_49); lean::dec(x_5); - x_60 = lean::box(0); + x_51 = lean::box(0); } -x_61 = lean::cnstr_get(x_6, 0); -x_63 = lean::cnstr_get_scalar(x_6, sizeof(void*)*1); +x_52 = lean::cnstr_get(x_6, 0); +x_54 = lean::cnstr_get_scalar(x_6, sizeof(void*)*1); if (lean::is_exclusive(x_6)) { - x_64 = x_6; + x_55 = x_6; } else { - lean::inc(x_61); + lean::inc(x_52); lean::dec(x_6); - x_64 = lean::box(0); + x_55 = lean::box(0); } -if (lean::is_scalar(x_64)) { - x_65 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_55)) { + x_56 = lean::alloc_cnstr(1, 1, 1); } else { - x_65 = x_64; + x_56 = x_55; } -lean::cnstr_set(x_65, 0, x_61); -lean::cnstr_set_scalar(x_65, sizeof(void*)*1, x_63); -x_66 = x_65; -x_67 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_68 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_67, x_66); -x_69 = l_Lean_Parser_number_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__2___rarg___closed__1; -x_70 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_68, x_69); -x_71 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_70); -if (lean::is_scalar(x_60)) { - x_72 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_56, 0, x_52); +lean::cnstr_set_scalar(x_56, sizeof(void*)*1, x_54); +x_57 = x_56; +x_58 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_59 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_58, x_57); +x_60 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_59); +if (lean::is_scalar(x_51)) { + x_61 = lean::alloc_cnstr(0, 2, 0); } else { - x_72 = x_60; + x_61 = x_51; } -lean::cnstr_set(x_72, 0, x_71); -lean::cnstr_set(x_72, 1, x_58); -return x_72; +lean::cnstr_set(x_61, 0, x_60); +lean::cnstr_set(x_61, 1, x_49); +return x_61; } } } @@ -2996,7 +2983,7 @@ goto lbl_19; } lbl_19: { -obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_46; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; lean::dec(x_18); x_38 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_38, 0, x_1); @@ -3004,78 +2991,76 @@ x_39 = lean::box(0); x_40 = l_String_splitAux___main___closed__1; x_41 = l_Lean_Parser_ident_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__3___rarg___closed__1; x_42 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_40, x_41, x_38, x_39, x_0, x_13, x_8); -lean::dec(x_13); lean::dec(x_0); -lean::dec(x_38); -x_46 = lean::cnstr_get(x_42, 0); -x_48 = lean::cnstr_get(x_42, 1); +x_44 = lean::cnstr_get(x_42, 0); +x_46 = lean::cnstr_get(x_42, 1); if (lean::is_exclusive(x_42)) { - x_50 = x_42; + x_48 = x_42; } else { + lean::inc(x_44); lean::inc(x_46); - lean::inc(x_48); lean::dec(x_42); - x_50 = lean::box(0); + x_48 = lean::box(0); } -x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_46); -x_52 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_52, x_51); -x_54 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_53, x_41); -x_55 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_54); -if (lean::is_scalar(x_50)) { - x_56 = lean::alloc_cnstr(0, 2, 0); +x_49 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_44); +x_50 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_50, x_49); +x_52 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_51, x_41); +x_53 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_52); +if (lean::is_scalar(x_48)) { + x_54 = lean::alloc_cnstr(0, 2, 0); } else { - x_56 = x_50; + x_54 = x_48; } -lean::cnstr_set(x_56, 0, x_55); -lean::cnstr_set(x_56, 1, x_48); -return x_56; +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_46); +return x_54; } } else { -obj* x_59; obj* x_61; obj* x_62; uint8 x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; +obj* x_57; obj* x_59; obj* x_60; uint8 x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; lean::dec(x_1); lean::dec(x_0); -x_59 = lean::cnstr_get(x_5, 1); +x_57 = lean::cnstr_get(x_5, 1); if (lean::is_exclusive(x_5)) { lean::cnstr_release(x_5, 0); - x_61 = x_5; + x_59 = x_5; } else { - lean::inc(x_59); + lean::inc(x_57); lean::dec(x_5); - x_61 = lean::box(0); + x_59 = lean::box(0); } -x_62 = lean::cnstr_get(x_6, 0); -x_64 = lean::cnstr_get_scalar(x_6, sizeof(void*)*1); +x_60 = lean::cnstr_get(x_6, 0); +x_62 = lean::cnstr_get_scalar(x_6, sizeof(void*)*1); if (lean::is_exclusive(x_6)) { - x_65 = x_6; + x_63 = x_6; } else { - lean::inc(x_62); + lean::inc(x_60); lean::dec(x_6); - x_65 = lean::box(0); + x_63 = lean::box(0); } -if (lean::is_scalar(x_65)) { - x_66 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_63)) { + x_64 = lean::alloc_cnstr(1, 1, 1); } else { - x_66 = x_65; + x_64 = x_63; } -lean::cnstr_set(x_66, 0, x_62); -lean::cnstr_set_scalar(x_66, sizeof(void*)*1, x_64); -x_67 = x_66; -x_68 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_69 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_68, x_67); -x_70 = l_Lean_Parser_ident_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__3___rarg___closed__1; -x_71 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_69, x_70); -x_72 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_71); -if (lean::is_scalar(x_61)) { - x_73 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_64, 0, x_60); +lean::cnstr_set_scalar(x_64, sizeof(void*)*1, x_62); +x_65 = x_64; +x_66 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_67 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_66, x_65); +x_68 = l_Lean_Parser_ident_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__3___rarg___closed__1; +x_69 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_67, x_68); +x_70 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_69); +if (lean::is_scalar(x_59)) { + x_71 = lean::alloc_cnstr(0, 2, 0); } else { - x_73 = x_61; + x_71 = x_59; } -lean::cnstr_set(x_73, 0, x_72); -lean::cnstr_set(x_73, 1, x_59); -return x_73; +lean::cnstr_set(x_71, 0, x_70); +lean::cnstr_set(x_71, 1, x_57); +return x_71; } } } @@ -3090,22 +3075,46 @@ return x_1; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__5___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { _start: { -obj* x_8; obj* x_9; uint8 x_10; obj* x_11; obj* x_12; obj* x_13; -x_8 = l_Option_getOrElse___main___rarg(x_2, x_6); -x_9 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -lean::cnstr_set(x_9, 2, x_1); -lean::cnstr_set(x_9, 3, x_3); -x_10 = 0; -x_11 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_11, 0, x_9); -lean::cnstr_set_scalar(x_11, sizeof(void*)*1, x_10); -x_12 = x_11; -x_13 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_13, 0, x_12); -lean::cnstr_set(x_13, 1, x_7); -return x_13; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_8; uint8 x_9; obj* x_10; obj* x_11; obj* x_12; +x_8 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_8, 0, x_6); +lean::cnstr_set(x_8, 1, x_0); +lean::cnstr_set(x_8, 2, x_1); +lean::cnstr_set(x_8, 3, x_3); +x_9 = 0; +x_10 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_10, 0, x_8); +lean::cnstr_set_scalar(x_10, sizeof(void*)*1, x_9); +x_11 = x_10; +x_12 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_7); +return x_12; +} +else +{ +obj* x_14; obj* x_17; uint8 x_18; obj* x_19; obj* x_20; obj* x_21; +lean::dec(x_6); +x_14 = lean::cnstr_get(x_2, 0); +lean::inc(x_14); +lean::dec(x_2); +x_17 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_17, 0, x_14); +lean::cnstr_set(x_17, 1, x_0); +lean::cnstr_set(x_17, 2, x_1); +lean::cnstr_set(x_17, 3, x_3); +x_18 = 0; +x_19 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_19, 0, x_17); +lean::cnstr_set_scalar(x_19, sizeof(void*)*1, x_18); +x_20 = x_19; +x_21 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_21, 0, x_20); +lean::cnstr_set(x_21, 1, x_7); +return x_21; +} } } obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__5(obj* x_0) { @@ -3127,214 +3136,213 @@ x_7 = lean::box(0); x_8 = l_Lean_Parser_Combinators_choiceAux___main___rarg___closed__1; x_9 = l_mjoin___rarg___closed__1; x_10 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__5___rarg(x_8, x_9, x_7, x_7, x_2, x_3, x_4, x_5); -lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); return x_10; } else { -obj* x_14; obj* x_16; obj* x_18; obj* x_22; obj* x_23; obj* x_25; obj* x_27; obj* x_28; obj* x_29; -x_14 = lean::cnstr_get(x_0, 0); -x_16 = lean::cnstr_get(x_0, 1); +obj* x_13; obj* x_15; obj* x_17; obj* x_21; obj* x_22; obj* x_24; obj* x_26; obj* x_27; obj* x_28; +x_13 = lean::cnstr_get(x_0, 0); +x_15 = lean::cnstr_get(x_0, 1); if (lean::is_exclusive(x_0)) { lean::cnstr_set(x_0, 0, lean::box(0)); lean::cnstr_set(x_0, 1, lean::box(0)); - x_18 = x_0; + x_17 = x_0; } else { - lean::inc(x_14); - lean::inc(x_16); + lean::inc(x_13); + lean::inc(x_15); lean::dec(x_0); - x_18 = lean::box(0); + x_17 = lean::box(0); } lean::inc(x_4); lean::inc(x_3); lean::inc(x_2); -x_22 = lean::apply_4(x_14, x_2, x_3, x_4, x_5); -x_23 = lean::cnstr_get(x_22, 0); -x_25 = lean::cnstr_get(x_22, 1); +x_21 = lean::apply_4(x_13, x_2, x_3, x_4, x_5); +x_22 = lean::cnstr_get(x_21, 0); +x_24 = lean::cnstr_get(x_21, 1); +if (lean::is_exclusive(x_21)) { + lean::cnstr_set(x_21, 0, lean::box(0)); + lean::cnstr_set(x_21, 1, lean::box(0)); + x_26 = x_21; +} else { + lean::inc(x_22); + lean::inc(x_24); + lean::dec(x_21); + x_26 = lean::box(0); +} +x_27 = lean::mk_nat_obj(1ul); +x_28 = lean::nat_add(x_1, x_27); +if (lean::obj_tag(x_22) == 0) +{ +obj* x_29; obj* x_31; obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; +x_29 = lean::cnstr_get(x_22, 0); +x_31 = lean::cnstr_get(x_22, 1); +x_33 = lean::cnstr_get(x_22, 2); if (lean::is_exclusive(x_22)) { - lean::cnstr_set(x_22, 0, lean::box(0)); - lean::cnstr_set(x_22, 1, lean::box(0)); - x_27 = x_22; + x_35 = x_22; } else { - lean::inc(x_23); - lean::inc(x_25); + lean::inc(x_29); + lean::inc(x_31); + lean::inc(x_33); lean::dec(x_22); - x_27 = lean::box(0); + x_35 = lean::box(0); } -x_28 = lean::mk_nat_obj(1ul); -x_29 = lean::nat_add(x_1, x_28); -if (lean::obj_tag(x_23) == 0) +x_36 = lean::box(0); +x_37 = lean_name_mk_numeral(x_36, x_1); +x_38 = lean::box(0); +if (lean::is_scalar(x_17)) { + x_39 = lean::alloc_cnstr(1, 2, 0); +} else { + x_39 = x_17; +} +lean::cnstr_set(x_39, 0, x_29); +lean::cnstr_set(x_39, 1, x_38); +x_40 = l_Lean_Parser_Syntax_mkNode(x_37, x_39); +x_41 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_35)) { + x_42 = lean::alloc_cnstr(0, 3, 0); +} else { + x_42 = x_35; +} +lean::cnstr_set(x_42, 0, x_40); +lean::cnstr_set(x_42, 1, x_31); +lean::cnstr_set(x_42, 2, x_41); +x_43 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_33, x_42); +if (lean::obj_tag(x_43) == 0) { -obj* x_30; obj* x_32; obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; -x_30 = lean::cnstr_get(x_23, 0); -x_32 = lean::cnstr_get(x_23, 1); -x_34 = lean::cnstr_get(x_23, 2); -if (lean::is_exclusive(x_23)) { - x_36 = x_23; -} else { - lean::inc(x_30); - lean::inc(x_32); - lean::inc(x_34); - lean::dec(x_23); - x_36 = lean::box(0); -} -x_37 = lean::box(0); -x_38 = lean_name_mk_numeral(x_37, x_1); -x_39 = lean::box(0); -if (lean::is_scalar(x_18)) { - x_40 = lean::alloc_cnstr(1, 2, 0); -} else { - x_40 = x_18; -} -lean::cnstr_set(x_40, 0, x_30); -lean::cnstr_set(x_40, 1, x_39); -x_41 = l_Lean_Parser_Syntax_mkNode(x_38, x_40); -x_42 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_36)) { - x_43 = lean::alloc_cnstr(0, 3, 0); -} else { - x_43 = x_36; -} -lean::cnstr_set(x_43, 0, x_41); -lean::cnstr_set(x_43, 1, x_32); -lean::cnstr_set(x_43, 2, x_42); -x_44 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_34, x_43); -if (lean::obj_tag(x_44) == 0) -{ -obj* x_50; +obj* x_49; lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_29); -lean::dec(x_16); -if (lean::is_scalar(x_27)) { - x_50 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_28); +lean::dec(x_15); +if (lean::is_scalar(x_26)) { + x_49 = lean::alloc_cnstr(0, 2, 0); } else { - x_50 = x_27; + x_49 = x_26; } -lean::cnstr_set(x_50, 0, x_44); -lean::cnstr_set(x_50, 1, x_25); -return x_50; +lean::cnstr_set(x_49, 0, x_43); +lean::cnstr_set(x_49, 1, x_24); +return x_49; } else { -uint8 x_51; -x_51 = lean::cnstr_get_scalar(x_44, sizeof(void*)*1); -if (x_51 == 0) +uint8 x_50; +x_50 = lean::cnstr_get_scalar(x_43, sizeof(void*)*1); +if (x_50 == 0) { -obj* x_53; obj* x_56; obj* x_57; obj* x_59; obj* x_61; obj* x_62; obj* x_63; -lean::dec(x_27); -x_53 = lean::cnstr_get(x_44, 0); -lean::inc(x_53); -lean::dec(x_44); -x_56 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__4(x_16, x_29, x_2, x_3, x_4, x_25); -x_57 = lean::cnstr_get(x_56, 0); -x_59 = lean::cnstr_get(x_56, 1); -if (lean::is_exclusive(x_56)) { - x_61 = x_56; +obj* x_52; obj* x_55; obj* x_56; obj* x_58; obj* x_60; obj* x_61; obj* x_62; +lean::dec(x_26); +x_52 = lean::cnstr_get(x_43, 0); +lean::inc(x_52); +lean::dec(x_43); +x_55 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__4(x_15, x_28, x_2, x_3, x_4, x_24); +x_56 = lean::cnstr_get(x_55, 0); +x_58 = lean::cnstr_get(x_55, 1); +if (lean::is_exclusive(x_55)) { + x_60 = x_55; } else { - lean::inc(x_57); - lean::inc(x_59); - lean::dec(x_56); - x_61 = lean::box(0); + lean::inc(x_56); + lean::inc(x_58); + lean::dec(x_55); + x_60 = lean::box(0); } -x_62 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_53, x_57); -if (lean::is_scalar(x_61)) { - x_63 = lean::alloc_cnstr(0, 2, 0); +x_61 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_52, x_56); +if (lean::is_scalar(x_60)) { + x_62 = lean::alloc_cnstr(0, 2, 0); } else { - x_63 = x_61; + x_62 = x_60; } -lean::cnstr_set(x_63, 0, x_62); -lean::cnstr_set(x_63, 1, x_59); -return x_63; +lean::cnstr_set(x_62, 0, x_61); +lean::cnstr_set(x_62, 1, x_58); +return x_62; } else { -obj* x_69; +obj* x_68; lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_29); -lean::dec(x_16); -if (lean::is_scalar(x_27)) { - x_69 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_28); +lean::dec(x_15); +if (lean::is_scalar(x_26)) { + x_68 = lean::alloc_cnstr(0, 2, 0); } else { - x_69 = x_27; + x_68 = x_26; } -lean::cnstr_set(x_69, 0, x_44); -lean::cnstr_set(x_69, 1, x_25); -return x_69; +lean::cnstr_set(x_68, 0, x_43); +lean::cnstr_set(x_68, 1, x_24); +return x_68; } } } else { -uint8 x_72; +uint8 x_71; lean::dec(x_1); -lean::dec(x_18); -x_72 = lean::cnstr_get_scalar(x_23, sizeof(void*)*1); -if (x_72 == 0) +lean::dec(x_17); +x_71 = lean::cnstr_get_scalar(x_22, sizeof(void*)*1); +if (x_71 == 0) { -obj* x_74; obj* x_77; obj* x_78; obj* x_80; obj* x_82; obj* x_83; obj* x_84; -lean::dec(x_27); -x_74 = lean::cnstr_get(x_23, 0); -lean::inc(x_74); -lean::dec(x_23); -x_77 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__4(x_16, x_29, x_2, x_3, x_4, x_25); -x_78 = lean::cnstr_get(x_77, 0); -x_80 = lean::cnstr_get(x_77, 1); -if (lean::is_exclusive(x_77)) { - x_82 = x_77; +obj* x_73; obj* x_76; obj* x_77; obj* x_79; obj* x_81; obj* x_82; obj* x_83; +lean::dec(x_26); +x_73 = lean::cnstr_get(x_22, 0); +lean::inc(x_73); +lean::dec(x_22); +x_76 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__4(x_15, x_28, x_2, x_3, x_4, x_24); +x_77 = lean::cnstr_get(x_76, 0); +x_79 = lean::cnstr_get(x_76, 1); +if (lean::is_exclusive(x_76)) { + x_81 = x_76; } else { - lean::inc(x_78); - lean::inc(x_80); - lean::dec(x_77); - x_82 = lean::box(0); + lean::inc(x_77); + lean::inc(x_79); + lean::dec(x_76); + x_81 = lean::box(0); } -x_83 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_74, x_78); -if (lean::is_scalar(x_82)) { - x_84 = lean::alloc_cnstr(0, 2, 0); +x_82 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_73, x_77); +if (lean::is_scalar(x_81)) { + x_83 = lean::alloc_cnstr(0, 2, 0); } else { - x_84 = x_82; + x_83 = x_81; } -lean::cnstr_set(x_84, 0, x_83); -lean::cnstr_set(x_84, 1, x_80); -return x_84; +lean::cnstr_set(x_83, 0, x_82); +lean::cnstr_set(x_83, 1, x_79); +return x_83; } else { -obj* x_90; obj* x_92; obj* x_93; obj* x_94; obj* x_95; +obj* x_89; obj* x_91; obj* x_92; obj* x_93; obj* x_94; lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_29); -lean::dec(x_16); -x_90 = lean::cnstr_get(x_23, 0); -if (lean::is_exclusive(x_23)) { - x_92 = x_23; +lean::dec(x_28); +lean::dec(x_15); +x_89 = lean::cnstr_get(x_22, 0); +if (lean::is_exclusive(x_22)) { + x_91 = x_22; } else { - lean::inc(x_90); - lean::dec(x_23); - x_92 = lean::box(0); + lean::inc(x_89); + lean::dec(x_22); + x_91 = lean::box(0); } -if (lean::is_scalar(x_92)) { - x_93 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_91)) { + x_92 = lean::alloc_cnstr(1, 1, 1); } else { - x_93 = x_92; + x_92 = x_91; } -lean::cnstr_set(x_93, 0, x_90); -lean::cnstr_set_scalar(x_93, sizeof(void*)*1, x_72); -x_94 = x_93; -if (lean::is_scalar(x_27)) { - x_95 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_92, 0, x_89); +lean::cnstr_set_scalar(x_92, sizeof(void*)*1, x_71); +x_93 = x_92; +if (lean::is_scalar(x_26)) { + x_94 = lean::alloc_cnstr(0, 2, 0); } else { - x_95 = x_27; + x_94 = x_26; } -lean::cnstr_set(x_95, 0, x_94); -lean::cnstr_set(x_95, 1, x_25); -return x_95; +lean::cnstr_set(x_94, 0, x_93); +lean::cnstr_set(x_94, 1, x_24); +return x_94; } } } @@ -3403,10 +3411,8 @@ _start: { obj* x_8; x_8 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__5___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7); -lean::dec(x_2); lean::dec(x_4); lean::dec(x_5); -lean::dec(x_6); return x_8; } } @@ -3860,177 +3866,252 @@ goto lbl_22; } else { -obj* x_51; obj* x_54; obj* x_56; obj* x_57; obj* x_59; obj* x_62; obj* x_63; obj* x_65; obj* x_67; obj* x_70; obj* x_72; obj* x_73; obj* x_74; -x_51 = lean::cnstr_get(x_26, 1); -lean::inc(x_51); -lean::dec(x_26); -x_54 = lean::cnstr_get(x_27, 0); +obj* x_51; obj* x_53; obj* x_54; +x_51 = lean::cnstr_get(x_27, 0); if (lean::is_exclusive(x_27)) { lean::cnstr_set(x_27, 0, lean::box(0)); - x_56 = x_27; + x_53 = x_27; } else { - lean::inc(x_54); + lean::inc(x_51); lean::dec(x_27); - x_56 = lean::box(0); + x_53 = lean::box(0); } -x_57 = lean::cnstr_get(x_54, 3); -lean::inc(x_57); -x_59 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_57); -lean::dec(x_57); -lean::inc(x_1); -x_62 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_62, 0, x_59); -lean::cnstr_set(x_62, 1, x_1); -x_63 = lean::cnstr_get(x_54, 0); +x_54 = lean::cnstr_get(x_51, 3); +lean::inc(x_54); +if (lean::obj_tag(x_54) == 0) +{ +obj* x_56; obj* x_59; obj* x_61; obj* x_63; obj* x_66; obj* x_68; obj* x_69; obj* x_71; obj* x_72; obj* x_73; +x_56 = lean::cnstr_get(x_26, 1); +lean::inc(x_56); +lean::dec(x_26); +x_59 = lean::cnstr_get(x_51, 0); +lean::inc(x_59); +x_61 = lean::cnstr_get(x_51, 1); +lean::inc(x_61); +x_63 = lean::cnstr_get(x_51, 2); lean::inc(x_63); -x_65 = lean::cnstr_get(x_54, 1); -lean::inc(x_65); -x_67 = lean::cnstr_get(x_54, 2); -lean::inc(x_67); -lean::dec(x_54); -x_70 = l_List_reverse___rarg(x_62); +lean::dec(x_51); +x_66 = lean::box(3); +lean::inc(x_1); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_66); +lean::cnstr_set(x_68, 1, x_1); +x_69 = l_List_reverse___rarg(x_68); lean::inc(x_0); -x_72 = l_Lean_Parser_Syntax_mkNode(x_0, x_70); -x_73 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_73, 0, x_72); -x_74 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_74, 0, x_63); -lean::cnstr_set(x_74, 1, x_65); -lean::cnstr_set(x_74, 2, x_67); -lean::cnstr_set(x_74, 3, x_73); +x_71 = l_Lean_Parser_Syntax_mkNode(x_0, x_69); +x_72 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_72, 0, x_71); +x_73 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_73, 0, x_59); +lean::cnstr_set(x_73, 1, x_61); +lean::cnstr_set(x_73, 2, x_63); +lean::cnstr_set(x_73, 3, x_72); if (x_32 == 0) { -uint8 x_75; obj* x_76; obj* x_77; -x_75 = 0; -if (lean::is_scalar(x_56)) { - x_76 = lean::alloc_cnstr(1, 1, 1); +uint8 x_74; obj* x_75; obj* x_76; +x_74 = 0; +if (lean::is_scalar(x_53)) { + x_75 = lean::alloc_cnstr(1, 1, 1); } else { - x_76 = x_56; + x_75 = x_53; } -lean::cnstr_set(x_76, 0, x_74); -lean::cnstr_set_scalar(x_76, sizeof(void*)*1, x_75); -x_77 = x_76; -x_20 = x_77; -x_21 = x_51; +lean::cnstr_set(x_75, 0, x_73); +lean::cnstr_set_scalar(x_75, sizeof(void*)*1, x_74); +x_76 = x_75; +x_20 = x_76; +x_21 = x_56; goto lbl_22; } else { -uint8 x_78; obj* x_79; obj* x_80; -x_78 = 1; -if (lean::is_scalar(x_56)) { - x_79 = lean::alloc_cnstr(1, 1, 1); +uint8 x_77; obj* x_78; obj* x_79; +x_77 = 1; +if (lean::is_scalar(x_53)) { + x_78 = lean::alloc_cnstr(1, 1, 1); } else { - x_79 = x_56; + x_78 = x_53; } -lean::cnstr_set(x_79, 0, x_74); -lean::cnstr_set_scalar(x_79, sizeof(void*)*1, x_78); -x_80 = x_79; -x_20 = x_80; -x_21 = x_51; +lean::cnstr_set(x_78, 0, x_73); +lean::cnstr_set_scalar(x_78, sizeof(void*)*1, x_77); +x_79 = x_78; +x_20 = x_79; +x_21 = x_56; goto lbl_22; } } +else +{ +obj* x_80; obj* x_83; obj* x_85; obj* x_87; obj* x_90; obj* x_92; obj* x_94; obj* x_95; obj* x_97; obj* x_98; obj* x_99; +x_80 = lean::cnstr_get(x_26, 1); +lean::inc(x_80); +lean::dec(x_26); +x_83 = lean::cnstr_get(x_51, 0); +lean::inc(x_83); +x_85 = lean::cnstr_get(x_51, 1); +lean::inc(x_85); +x_87 = lean::cnstr_get(x_51, 2); +lean::inc(x_87); +lean::dec(x_51); +x_90 = lean::cnstr_get(x_54, 0); +if (lean::is_exclusive(x_54)) { + x_92 = x_54; +} else { + lean::inc(x_90); + lean::dec(x_54); + x_92 = lean::box(0); +} +lean::inc(x_1); +x_94 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_94, 0, x_90); +lean::cnstr_set(x_94, 1, x_1); +x_95 = l_List_reverse___rarg(x_94); +lean::inc(x_0); +x_97 = l_Lean_Parser_Syntax_mkNode(x_0, x_95); +if (lean::is_scalar(x_92)) { + x_98 = lean::alloc_cnstr(1, 1, 0); +} else { + x_98 = x_92; +} +lean::cnstr_set(x_98, 0, x_97); +x_99 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_99, 0, x_83); +lean::cnstr_set(x_99, 1, x_85); +lean::cnstr_set(x_99, 2, x_87); +lean::cnstr_set(x_99, 3, x_98); +if (x_32 == 0) +{ +uint8 x_100; obj* x_101; obj* x_102; +x_100 = 0; +if (lean::is_scalar(x_53)) { + x_101 = lean::alloc_cnstr(1, 1, 1); +} else { + x_101 = x_53; +} +lean::cnstr_set(x_101, 0, x_99); +lean::cnstr_set_scalar(x_101, sizeof(void*)*1, x_100); +x_102 = x_101; +x_20 = x_102; +x_21 = x_80; +goto lbl_22; +} +else +{ +uint8 x_103; obj* x_104; obj* x_105; +x_103 = 1; +if (lean::is_scalar(x_53)) { + x_104 = lean::alloc_cnstr(1, 1, 1); +} else { + x_104 = x_53; +} +lean::cnstr_set(x_104, 0, x_99); +lean::cnstr_set_scalar(x_104, sizeof(void*)*1, x_103); +x_105 = x_104; +x_20 = x_105; +x_21 = x_80; +goto lbl_22; +} +} +} } lbl_22: { if (lean::obj_tag(x_20) == 0) { -obj* x_81; obj* x_83; obj* x_85; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; -x_81 = lean::cnstr_get(x_20, 0); -x_83 = lean::cnstr_get(x_20, 1); -x_85 = lean::cnstr_get(x_20, 2); +obj* x_106; obj* x_108; obj* x_110; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; +x_106 = lean::cnstr_get(x_20, 0); +x_108 = lean::cnstr_get(x_20, 1); +x_110 = lean::cnstr_get(x_20, 2); if (lean::is_exclusive(x_20)) { - x_87 = x_20; + x_112 = x_20; } else { - lean::inc(x_81); - lean::inc(x_83); - lean::inc(x_85); + lean::inc(x_106); + lean::inc(x_108); + lean::inc(x_110); lean::dec(x_20); - x_87 = lean::box(0); + x_112 = lean::box(0); } if (lean::is_scalar(x_19)) { - x_88 = lean::alloc_cnstr(1, 2, 0); + x_113 = lean::alloc_cnstr(1, 2, 0); } else { - x_88 = x_19; + x_113 = x_19; } -lean::cnstr_set(x_88, 0, x_81); -lean::cnstr_set(x_88, 1, x_1); -x_89 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_87)) { - x_90 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_113, 0, x_106); +lean::cnstr_set(x_113, 1, x_1); +x_114 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_112)) { + x_115 = lean::alloc_cnstr(0, 3, 0); } else { - x_90 = x_87; + x_115 = x_112; } -lean::cnstr_set(x_90, 0, x_88); -lean::cnstr_set(x_90, 1, x_83); -lean::cnstr_set(x_90, 2, x_89); -x_91 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_85, x_90); -if (lean::obj_tag(x_91) == 0) +lean::cnstr_set(x_115, 0, x_113); +lean::cnstr_set(x_115, 1, x_108); +lean::cnstr_set(x_115, 2, x_114); +x_116 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_110, x_115); +if (lean::obj_tag(x_116) == 0) { -obj* x_92; obj* x_94; obj* x_96; obj* x_99; obj* x_100; obj* x_102; obj* x_104; obj* x_105; obj* x_106; -x_92 = lean::cnstr_get(x_91, 0); -lean::inc(x_92); -x_94 = lean::cnstr_get(x_91, 1); -lean::inc(x_94); -x_96 = lean::cnstr_get(x_91, 2); -lean::inc(x_96); -lean::dec(x_91); -x_99 = l_List_mfoldl___main___at_Lean_Parser_Level_app_Parser___spec__2(x_0, x_92, x_17, x_3, x_4, x_5, x_94, x_21); -x_100 = lean::cnstr_get(x_99, 0); -x_102 = lean::cnstr_get(x_99, 1); -if (lean::is_exclusive(x_99)) { - x_104 = x_99; +obj* x_117; obj* x_119; obj* x_121; obj* x_124; obj* x_125; obj* x_127; obj* x_129; obj* x_130; obj* x_131; +x_117 = lean::cnstr_get(x_116, 0); +lean::inc(x_117); +x_119 = lean::cnstr_get(x_116, 1); +lean::inc(x_119); +x_121 = lean::cnstr_get(x_116, 2); +lean::inc(x_121); +lean::dec(x_116); +x_124 = l_List_mfoldl___main___at_Lean_Parser_Level_app_Parser___spec__2(x_0, x_117, x_17, x_3, x_4, x_5, x_119, x_21); +x_125 = lean::cnstr_get(x_124, 0); +x_127 = lean::cnstr_get(x_124, 1); +if (lean::is_exclusive(x_124)) { + x_129 = x_124; } else { - lean::inc(x_100); - lean::inc(x_102); - lean::dec(x_99); - x_104 = lean::box(0); + lean::inc(x_125); + lean::inc(x_127); + lean::dec(x_124); + x_129 = lean::box(0); } -x_105 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_96, x_100); -if (lean::is_scalar(x_104)) { - x_106 = lean::alloc_cnstr(0, 2, 0); +x_130 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_121, x_125); +if (lean::is_scalar(x_129)) { + x_131 = lean::alloc_cnstr(0, 2, 0); } else { - x_106 = x_104; + x_131 = x_129; } -lean::cnstr_set(x_106, 0, x_105); -lean::cnstr_set(x_106, 1, x_102); -return x_106; +lean::cnstr_set(x_131, 0, x_130); +lean::cnstr_set(x_131, 1, x_127); +return x_131; } else { -obj* x_112; uint8 x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; +obj* x_137; uint8 x_139; obj* x_140; obj* x_141; obj* x_142; obj* x_143; lean::dec(x_5); lean::dec(x_4); lean::dec(x_3); lean::dec(x_0); lean::dec(x_17); -x_112 = lean::cnstr_get(x_91, 0); -x_114 = lean::cnstr_get_scalar(x_91, sizeof(void*)*1); -if (lean::is_exclusive(x_91)) { - x_115 = x_91; +x_137 = lean::cnstr_get(x_116, 0); +x_139 = lean::cnstr_get_scalar(x_116, sizeof(void*)*1); +if (lean::is_exclusive(x_116)) { + x_140 = x_116; } else { - lean::inc(x_112); - lean::dec(x_91); - x_115 = lean::box(0); + lean::inc(x_137); + lean::dec(x_116); + x_140 = lean::box(0); } -if (lean::is_scalar(x_115)) { - x_116 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_140)) { + x_141 = lean::alloc_cnstr(1, 1, 1); } else { - x_116 = x_115; + x_141 = x_140; } -lean::cnstr_set(x_116, 0, x_112); -lean::cnstr_set_scalar(x_116, sizeof(void*)*1, x_114); -x_117 = x_116; -x_118 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_118, 0, x_117); -lean::cnstr_set(x_118, 1, x_21); -return x_118; +lean::cnstr_set(x_141, 0, x_137); +lean::cnstr_set_scalar(x_141, sizeof(void*)*1, x_139); +x_142 = x_141; +x_143 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_143, 0, x_142); +lean::cnstr_set(x_143, 1, x_21); +return x_143; } } else { -obj* x_126; uint8 x_128; obj* x_129; obj* x_130; obj* x_131; obj* x_132; +obj* x_151; uint8 x_153; obj* x_154; obj* x_155; obj* x_156; obj* x_157; lean::dec(x_5); lean::dec(x_4); lean::dec(x_1); @@ -4038,27 +4119,27 @@ lean::dec(x_3); lean::dec(x_0); lean::dec(x_17); lean::dec(x_19); -x_126 = lean::cnstr_get(x_20, 0); -x_128 = lean::cnstr_get_scalar(x_20, sizeof(void*)*1); +x_151 = lean::cnstr_get(x_20, 0); +x_153 = lean::cnstr_get_scalar(x_20, sizeof(void*)*1); if (lean::is_exclusive(x_20)) { - x_129 = x_20; + x_154 = x_20; } else { - lean::inc(x_126); + lean::inc(x_151); lean::dec(x_20); - x_129 = lean::box(0); + x_154 = lean::box(0); } -if (lean::is_scalar(x_129)) { - x_130 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_154)) { + x_155 = lean::alloc_cnstr(1, 1, 1); } else { - x_130 = x_129; + x_155 = x_154; } -lean::cnstr_set(x_130, 0, x_126); -lean::cnstr_set_scalar(x_130, sizeof(void*)*1, x_128); -x_131 = x_130; -x_132 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_132, 0, x_131); -lean::cnstr_set(x_132, 1, x_21); -return x_132; +lean::cnstr_set(x_155, 0, x_151); +lean::cnstr_set_scalar(x_155, sizeof(void*)*1, x_153); +x_156 = x_155; +x_157 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_157, 0, x_156); +lean::cnstr_set(x_157, 1, x_21); +return x_157; } } } @@ -4424,7 +4505,7 @@ lean::cnstr_set(x_14, 1, x_13); if (lean::obj_tag(x_3) == 0) { obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; -x_15 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_15 = lean::box(3); x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); lean::cnstr_set(x_16, 1, x_14); @@ -4437,35 +4518,21 @@ return x_19; } else { -obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; x_20 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_22 = x_3; -} else { - lean::inc(x_20); - lean::dec(x_3); - x_22 = lean::box(0); -} +lean::inc(x_20); +lean::dec(x_3); x_23 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_23, 0, x_20); -if (lean::is_scalar(x_22)) { - x_24 = lean::alloc_cnstr(1, 1, 0); -} else { - x_24 = x_22; -} +x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); -x_25 = lean::box(3); -x_26 = l_Option_getOrElse___main___rarg(x_24, x_25); -lean::dec(x_24); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_26); -lean::cnstr_set(x_28, 1, x_14); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_1); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_Lean_Parser_Level_addLit; -x_31 = l_Lean_Parser_Syntax_mkNode(x_30, x_29); -return x_31; +lean::cnstr_set(x_24, 1, x_14); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_1); +lean::cnstr_set(x_25, 1, x_24); +x_26 = l_Lean_Parser_Level_addLit; +x_27 = l_Lean_Parser_Syntax_mkNode(x_26, x_25); +return x_27; } } } @@ -4542,235 +4609,231 @@ x_32 = lean::string_dec_eq(x_0, x_29); lean::dec(x_0); if (x_32 == 0) { -obj* x_36; obj* x_37; obj* x_38; obj* x_42; +obj* x_36; obj* x_37; obj* x_38; obj* x_40; lean::dec(x_15); lean::dec(x_24); x_36 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_36, 0, x_6); x_37 = lean::box(0); x_38 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_29, x_2, x_36, x_37, x_5, x_20, x_13); -lean::dec(x_20); lean::dec(x_5); -lean::dec(x_36); -x_42 = lean::cnstr_get(x_38, 0); -lean::inc(x_42); -if (lean::obj_tag(x_42) == 0) +x_40 = lean::cnstr_get(x_38, 0); +lean::inc(x_40); +if (lean::obj_tag(x_40) == 0) { -obj* x_44; obj* x_46; obj* x_47; obj* x_49; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; -x_44 = lean::cnstr_get(x_38, 1); +obj* x_42; obj* x_44; obj* x_45; obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_42 = lean::cnstr_get(x_38, 1); if (lean::is_exclusive(x_38)) { lean::cnstr_release(x_38, 0); - x_46 = x_38; + x_44 = x_38; } else { - lean::inc(x_44); + lean::inc(x_42); lean::dec(x_38); - x_46 = lean::box(0); + x_44 = lean::box(0); } -x_47 = lean::cnstr_get(x_42, 1); -x_49 = lean::cnstr_get(x_42, 2); -if (lean::is_exclusive(x_42)) { - lean::cnstr_release(x_42, 0); - x_51 = x_42; +x_45 = lean::cnstr_get(x_40, 1); +x_47 = lean::cnstr_get(x_40, 2); +if (lean::is_exclusive(x_40)) { + lean::cnstr_release(x_40, 0); + x_49 = x_40; } else { + lean::inc(x_45); lean::inc(x_47); - lean::inc(x_49); - lean::dec(x_42); - x_51 = lean::box(0); + lean::dec(x_40); + x_49 = lean::box(0); } -x_52 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_51)) { - x_53 = lean::alloc_cnstr(0, 3, 0); +x_50 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_49)) { + x_51 = lean::alloc_cnstr(0, 3, 0); } else { - x_53 = x_51; + x_51 = x_49; } -lean::cnstr_set(x_53, 0, x_18); -lean::cnstr_set(x_53, 1, x_47); -lean::cnstr_set(x_53, 2, x_52); -x_54 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_49, x_53); -x_55 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_54); -x_56 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_52, x_55); -x_57 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_56, x_17); -x_58 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_57); -if (lean::is_scalar(x_46)) { - x_59 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_51, 0, x_18); +lean::cnstr_set(x_51, 1, x_45); +lean::cnstr_set(x_51, 2, x_50); +x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_47, x_51); +x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_52); +x_54 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_50, x_53); +x_55 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_54, x_17); +x_56 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_55); +if (lean::is_scalar(x_44)) { + x_57 = lean::alloc_cnstr(0, 2, 0); } else { - x_59 = x_46; + x_57 = x_44; } -lean::cnstr_set(x_59, 0, x_58); -lean::cnstr_set(x_59, 1, x_44); -return x_59; +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_42); +return x_57; } else { -obj* x_61; obj* x_63; obj* x_64; uint8 x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; +obj* x_59; obj* x_61; obj* x_62; uint8 x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; lean::dec(x_18); -x_61 = lean::cnstr_get(x_38, 1); +x_59 = lean::cnstr_get(x_38, 1); if (lean::is_exclusive(x_38)) { lean::cnstr_release(x_38, 0); - x_63 = x_38; + x_61 = x_38; } else { - lean::inc(x_61); + lean::inc(x_59); lean::dec(x_38); - x_63 = lean::box(0); + x_61 = lean::box(0); } -x_64 = lean::cnstr_get(x_42, 0); -x_66 = lean::cnstr_get_scalar(x_42, sizeof(void*)*1); -if (lean::is_exclusive(x_42)) { - x_67 = x_42; +x_62 = lean::cnstr_get(x_40, 0); +x_64 = lean::cnstr_get_scalar(x_40, sizeof(void*)*1); +if (lean::is_exclusive(x_40)) { + x_65 = x_40; } else { - lean::inc(x_64); - lean::dec(x_42); - x_67 = lean::box(0); + lean::inc(x_62); + lean::dec(x_40); + x_65 = lean::box(0); } -if (lean::is_scalar(x_67)) { - x_68 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_65)) { + x_66 = lean::alloc_cnstr(1, 1, 1); } else { - x_68 = x_67; + x_66 = x_65; } -lean::cnstr_set(x_68, 0, x_64); -lean::cnstr_set_scalar(x_68, sizeof(void*)*1, x_66); -x_69 = x_68; -x_70 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_69); -x_71 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_72 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_71, x_70); -x_73 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_72, x_17); -x_74 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_73); -if (lean::is_scalar(x_63)) { - x_75 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_66, 0, x_62); +lean::cnstr_set_scalar(x_66, sizeof(void*)*1, x_64); +x_67 = x_66; +x_68 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_67); +x_69 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_70 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_69, x_68); +x_71 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_70, x_17); +x_72 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_71); +if (lean::is_scalar(x_61)) { + x_73 = lean::alloc_cnstr(0, 2, 0); } else { - x_75 = x_63; + x_73 = x_61; } -lean::cnstr_set(x_75, 0, x_74); -lean::cnstr_set(x_75, 1, x_61); -return x_75; +lean::cnstr_set(x_73, 0, x_72); +lean::cnstr_set(x_73, 1, x_59); +return x_73; } } else { -obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; +obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; lean::dec(x_5); lean::dec(x_6); lean::dec(x_2); lean::dec(x_29); -x_80 = l_Lean_Parser_finishCommentBlock___closed__2; +x_78 = l_Lean_Parser_finishCommentBlock___closed__2; if (lean::is_scalar(x_24)) { - x_81 = lean::alloc_cnstr(0, 3, 0); + x_79 = lean::alloc_cnstr(0, 3, 0); } else { - x_81 = x_24; + x_79 = x_24; } -lean::cnstr_set(x_81, 0, x_18); -lean::cnstr_set(x_81, 1, x_20); -lean::cnstr_set(x_81, 2, x_80); -x_82 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_81); -x_83 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_84 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_83, x_82); -x_85 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_84, x_17); -x_86 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_85); +lean::cnstr_set(x_79, 0, x_18); +lean::cnstr_set(x_79, 1, x_20); +lean::cnstr_set(x_79, 2, x_78); +x_80 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_79); +x_81 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_82 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_81, x_80); +x_83 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_82, x_17); +x_84 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_83); if (lean::is_scalar(x_15)) { - x_87 = lean::alloc_cnstr(0, 2, 0); + x_85 = lean::alloc_cnstr(0, 2, 0); } else { - x_87 = x_15; + x_85 = x_15; } -lean::cnstr_set(x_87, 0, x_86); -lean::cnstr_set(x_87, 1, x_13); -return x_87; +lean::cnstr_set(x_85, 0, x_84); +lean::cnstr_set(x_85, 1, x_13); +return x_85; } } case 3: { -obj* x_91; +obj* x_89; lean::dec(x_15); lean::dec(x_24); lean::dec(x_0); -x_91 = lean::box(0); -x_25 = x_91; +x_89 = lean::box(0); +x_25 = x_89; goto lbl_26; } default: { -obj* x_96; +obj* x_94; lean::dec(x_15); lean::dec(x_24); lean::dec(x_0); lean::dec(x_18); -x_96 = lean::box(0); -x_25 = x_96; +x_94 = lean::box(0); +x_25 = x_94; goto lbl_26; } } lbl_26: { -obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_105; obj* x_107; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; +obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_101; obj* x_103; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; lean::dec(x_25); -x_98 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_98, 0, x_6); -x_99 = lean::box(0); -x_100 = l_String_splitAux___main___closed__1; -x_101 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_100, x_2, x_98, x_99, x_5, x_20, x_13); -lean::dec(x_20); +x_96 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_96, 0, x_6); +x_97 = lean::box(0); +x_98 = l_String_splitAux___main___closed__1; +x_99 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_98, x_2, x_96, x_97, x_5, x_20, x_13); lean::dec(x_5); -lean::dec(x_98); -x_105 = lean::cnstr_get(x_101, 0); -x_107 = lean::cnstr_get(x_101, 1); -if (lean::is_exclusive(x_101)) { - x_109 = x_101; +x_101 = lean::cnstr_get(x_99, 0); +x_103 = lean::cnstr_get(x_99, 1); +if (lean::is_exclusive(x_99)) { + x_105 = x_99; } else { - lean::inc(x_105); - lean::inc(x_107); - lean::dec(x_101); - x_109 = lean::box(0); + lean::inc(x_101); + lean::inc(x_103); + lean::dec(x_99); + x_105 = lean::box(0); } -x_110 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_105); -x_111 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_112 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_111, x_110); -x_113 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_112, x_17); -x_114 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_113); -if (lean::is_scalar(x_109)) { - x_115 = lean::alloc_cnstr(0, 2, 0); +x_106 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_101); +x_107 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_108 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_107, x_106); +x_109 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_108, x_17); +x_110 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_109); +if (lean::is_scalar(x_105)) { + x_111 = lean::alloc_cnstr(0, 2, 0); } else { - x_115 = x_109; + x_111 = x_105; } -lean::cnstr_set(x_115, 0, x_114); -lean::cnstr_set(x_115, 1, x_107); -return x_115; +lean::cnstr_set(x_111, 0, x_110); +lean::cnstr_set(x_111, 1, x_103); +return x_111; } } else { -obj* x_120; uint8 x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; obj* x_129; obj* x_130; +obj* x_116; uint8 x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; lean::dec(x_5); lean::dec(x_6); lean::dec(x_0); lean::dec(x_2); -x_120 = lean::cnstr_get(x_11, 0); -x_122 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); +x_116 = lean::cnstr_get(x_11, 0); +x_118 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); if (lean::is_exclusive(x_11)) { - x_123 = x_11; + x_119 = x_11; } else { - lean::inc(x_120); + lean::inc(x_116); lean::dec(x_11); - x_123 = lean::box(0); + x_119 = lean::box(0); } -if (lean::is_scalar(x_123)) { - x_124 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_119)) { + x_120 = lean::alloc_cnstr(1, 1, 1); } else { - x_124 = x_123; + x_120 = x_119; } -lean::cnstr_set(x_124, 0, x_120); -lean::cnstr_set_scalar(x_124, sizeof(void*)*1, x_122); -x_125 = x_124; -x_126 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_127 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_126, x_125); -x_128 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_127, x_17); -x_129 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_128); +lean::cnstr_set(x_120, 0, x_116); +lean::cnstr_set_scalar(x_120, sizeof(void*)*1, x_118); +x_121 = x_120; +x_122 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_123 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_122, x_121); +x_124 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_123, x_17); +x_125 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_124); if (lean::is_scalar(x_15)) { - x_130 = lean::alloc_cnstr(0, 2, 0); + x_126 = lean::alloc_cnstr(0, 2, 0); } else { - x_130 = x_15; + x_126 = x_15; } -lean::cnstr_set(x_130, 0, x_129); -lean::cnstr_set(x_130, 1, x_13); -return x_130; +lean::cnstr_set(x_126, 0, x_125); +lean::cnstr_set(x_126, 1, x_13); +return x_126; } } } @@ -4785,7 +4848,7 @@ x_6 = lean::cnstr_get(x_5, 0); lean::inc(x_6); if (lean::obj_tag(x_6) == 0) { -obj* x_8; obj* x_10; obj* x_11; obj* x_13; obj* x_15; obj* x_17; obj* x_18; obj* x_20; +obj* x_8; obj* x_10; obj* x_11; obj* x_13; obj* x_15; obj* x_17; obj* x_18; uint8 x_19; x_8 = lean::cnstr_get(x_5, 1); if (lean::is_exclusive(x_5)) { lean::cnstr_release(x_5, 0); @@ -4812,123 +4875,112 @@ if (lean::is_exclusive(x_6)) { x_17 = lean::box(0); } x_18 = l_Lean_Parser_number; -lean::inc(x_11); -x_20 = l_Lean_Parser_tryView___at_Lean_Parser_number_Parser___spec__1(x_18, x_11); -if (lean::obj_tag(x_20) == 0) +x_19 = l_Lean_Parser_Syntax_isOfKind___main(x_18, x_11); +if (x_19 == 0) { -obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_32; obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; +obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; lean::dec(x_17); lean::dec(x_10); lean::dec(x_11); -x_24 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_24, 0, x_1); -x_25 = lean::box(0); -x_26 = l_String_splitAux___main___closed__1; -x_27 = l_Lean_Parser_number_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__2___rarg___closed__1; -x_28 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_26, x_27, x_24, x_25, x_0, x_13, x_8); -lean::dec(x_13); +x_23 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_23, 0, x_1); +x_24 = lean::box(0); +x_25 = l_String_splitAux___main___closed__1; +x_26 = l_Lean_Parser_number_Parser___rarg___lambda__1___closed__1; +x_27 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_25, x_26, x_23, x_24, x_0, x_13, x_8); lean::dec(x_0); -lean::dec(x_24); -x_32 = lean::cnstr_get(x_28, 0); -x_34 = lean::cnstr_get(x_28, 1); -if (lean::is_exclusive(x_28)) { - x_36 = x_28; +x_29 = lean::cnstr_get(x_27, 0); +x_31 = lean::cnstr_get(x_27, 1); +if (lean::is_exclusive(x_27)) { + x_33 = x_27; } else { - lean::inc(x_32); - lean::inc(x_34); - lean::dec(x_28); - x_36 = lean::box(0); + lean::inc(x_29); + lean::inc(x_31); + lean::dec(x_27); + x_33 = lean::box(0); } -x_37 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_38 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_37, x_32); -x_39 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_38); -x_40 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_37, x_39); -x_41 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_40, x_27); -x_42 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_41); -if (lean::is_scalar(x_36)) { - x_43 = lean::alloc_cnstr(0, 2, 0); +x_34 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_29); +x_35 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_36 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_35, x_34); +x_37 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_36); +if (lean::is_scalar(x_33)) { + x_38 = lean::alloc_cnstr(0, 2, 0); } else { - x_43 = x_36; + x_38 = x_33; } -lean::cnstr_set(x_43, 0, x_42); -lean::cnstr_set(x_43, 1, x_34); -return x_43; +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_31); +return x_38; } else { -obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; +obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; lean::dec(x_1); lean::dec(x_0); -lean::dec(x_20); -x_47 = l_Lean_Parser_finishCommentBlock___closed__2; +x_41 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; if (lean::is_scalar(x_17)) { - x_48 = lean::alloc_cnstr(0, 3, 0); + x_42 = lean::alloc_cnstr(0, 3, 0); } else { - x_48 = x_17; + x_42 = x_17; } -lean::cnstr_set(x_48, 0, x_11); -lean::cnstr_set(x_48, 1, x_13); -lean::cnstr_set(x_48, 2, x_47); -x_49 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_48); -x_50 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_50, x_49); -x_52 = l_Lean_Parser_number_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__2___rarg___closed__1; -x_53 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_51, x_52); -x_54 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_53); +lean::cnstr_set(x_42, 0, x_11); +lean::cnstr_set(x_42, 1, x_13); +lean::cnstr_set(x_42, 2, x_41); +x_43 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_42); +x_44 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_41, x_43); +x_45 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_44); if (lean::is_scalar(x_10)) { - x_55 = lean::alloc_cnstr(0, 2, 0); + x_46 = lean::alloc_cnstr(0, 2, 0); } else { - x_55 = x_10; + x_46 = x_10; } -lean::cnstr_set(x_55, 0, x_54); -lean::cnstr_set(x_55, 1, x_8); -return x_55; +lean::cnstr_set(x_46, 0, x_45); +lean::cnstr_set(x_46, 1, x_8); +return x_46; } } else { -obj* x_58; obj* x_60; obj* x_61; uint8 x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; +obj* x_49; obj* x_51; obj* x_52; uint8 x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; lean::dec(x_1); lean::dec(x_0); -x_58 = lean::cnstr_get(x_5, 1); +x_49 = lean::cnstr_get(x_5, 1); if (lean::is_exclusive(x_5)) { lean::cnstr_release(x_5, 0); - x_60 = x_5; + x_51 = x_5; } else { - lean::inc(x_58); + lean::inc(x_49); lean::dec(x_5); - x_60 = lean::box(0); + x_51 = lean::box(0); } -x_61 = lean::cnstr_get(x_6, 0); -x_63 = lean::cnstr_get_scalar(x_6, sizeof(void*)*1); +x_52 = lean::cnstr_get(x_6, 0); +x_54 = lean::cnstr_get_scalar(x_6, sizeof(void*)*1); if (lean::is_exclusive(x_6)) { - x_64 = x_6; + x_55 = x_6; } else { - lean::inc(x_61); + lean::inc(x_52); lean::dec(x_6); - x_64 = lean::box(0); + x_55 = lean::box(0); } -if (lean::is_scalar(x_64)) { - x_65 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_55)) { + x_56 = lean::alloc_cnstr(1, 1, 1); } else { - x_65 = x_64; + x_56 = x_55; } -lean::cnstr_set(x_65, 0, x_61); -lean::cnstr_set_scalar(x_65, sizeof(void*)*1, x_63); -x_66 = x_65; -x_67 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_68 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_67, x_66); -x_69 = l_Lean_Parser_number_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__2___rarg___closed__1; -x_70 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_68, x_69); -x_71 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_70); -if (lean::is_scalar(x_60)) { - x_72 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_56, 0, x_52); +lean::cnstr_set_scalar(x_56, sizeof(void*)*1, x_54); +x_57 = x_56; +x_58 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_59 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_58, x_57); +x_60 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_59); +if (lean::is_scalar(x_51)) { + x_61 = lean::alloc_cnstr(0, 2, 0); } else { - x_72 = x_60; + x_61 = x_51; } -lean::cnstr_set(x_72, 0, x_71); -lean::cnstr_set(x_72, 1, x_58); -return x_72; +lean::cnstr_set(x_61, 0, x_60); +lean::cnstr_set(x_61, 1, x_49); +return x_61; } } } @@ -5363,22 +5415,46 @@ return x_0; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Level_trailing_Parser_Lean_Parser_HasTokens___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { _start: { -obj* x_9; obj* x_10; uint8 x_11; obj* x_12; obj* x_13; obj* x_14; -x_9 = l_Option_getOrElse___main___rarg(x_2, x_7); -x_10 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_10, 0, x_9); -lean::cnstr_set(x_10, 1, x_0); -lean::cnstr_set(x_10, 2, x_1); -lean::cnstr_set(x_10, 3, x_3); -x_11 = 0; -x_12 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_12, 0, x_10); -lean::cnstr_set_scalar(x_12, sizeof(void*)*1, x_11); -x_13 = x_12; -x_14 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_14, 0, x_13); -lean::cnstr_set(x_14, 1, x_8); -return x_14; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_9; uint8 x_10; obj* x_11; obj* x_12; obj* x_13; +x_9 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_9, 0, x_7); +lean::cnstr_set(x_9, 1, x_0); +lean::cnstr_set(x_9, 2, x_1); +lean::cnstr_set(x_9, 3, x_3); +x_10 = 0; +x_11 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_11, 0, x_9); +lean::cnstr_set_scalar(x_11, sizeof(void*)*1, x_10); +x_12 = x_11; +x_13 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_8); +return x_13; +} +else +{ +obj* x_15; obj* x_18; uint8 x_19; obj* x_20; obj* x_21; obj* x_22; +lean::dec(x_7); +x_15 = lean::cnstr_get(x_2, 0); +lean::inc(x_15); +lean::dec(x_2); +x_18 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_18, 0, x_15); +lean::cnstr_set(x_18, 1, x_0); +lean::cnstr_set(x_18, 2, x_1); +lean::cnstr_set(x_18, 3, x_3); +x_19 = 0; +x_20 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set_scalar(x_20, sizeof(void*)*1, x_19); +x_21 = x_20; +x_22 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_22, 0, x_21); +lean::cnstr_set(x_22, 1, x_8); +return x_22; +} } } obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Level_trailing_Parser_Lean_Parser_HasTokens___spec__2(obj* x_0) { @@ -5400,7 +5476,6 @@ x_8 = lean::box(0); x_9 = l_Lean_Parser_Combinators_choiceAux___main___rarg___closed__1; x_10 = l_mjoin___rarg___closed__1; x_11 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Level_trailing_Parser_Lean_Parser_HasTokens___spec__2___rarg(x_9, x_10, x_8, x_8, x_2, x_3, x_4, x_5, x_6); -lean::dec(x_5); lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); @@ -5408,211 +5483,211 @@ return x_11; } else { -obj* x_16; obj* x_18; obj* x_20; obj* x_25; obj* x_26; obj* x_28; obj* x_30; obj* x_31; obj* x_32; -x_16 = lean::cnstr_get(x_0, 0); -x_18 = lean::cnstr_get(x_0, 1); +obj* x_15; obj* x_17; obj* x_19; obj* x_24; obj* x_25; obj* x_27; obj* x_29; obj* x_30; obj* x_31; +x_15 = lean::cnstr_get(x_0, 0); +x_17 = lean::cnstr_get(x_0, 1); if (lean::is_exclusive(x_0)) { lean::cnstr_set(x_0, 0, lean::box(0)); lean::cnstr_set(x_0, 1, lean::box(0)); - x_20 = x_0; + x_19 = x_0; } else { - lean::inc(x_16); - lean::inc(x_18); + lean::inc(x_15); + lean::inc(x_17); lean::dec(x_0); - x_20 = lean::box(0); + x_19 = lean::box(0); } lean::inc(x_5); lean::inc(x_4); lean::inc(x_3); lean::inc(x_2); -x_25 = lean::apply_5(x_16, x_2, x_3, x_4, x_5, x_6); -x_26 = lean::cnstr_get(x_25, 0); -x_28 = lean::cnstr_get(x_25, 1); +x_24 = lean::apply_5(x_15, x_2, x_3, x_4, x_5, x_6); +x_25 = lean::cnstr_get(x_24, 0); +x_27 = lean::cnstr_get(x_24, 1); +if (lean::is_exclusive(x_24)) { + lean::cnstr_set(x_24, 0, lean::box(0)); + lean::cnstr_set(x_24, 1, lean::box(0)); + x_29 = x_24; +} else { + lean::inc(x_25); + lean::inc(x_27); + lean::dec(x_24); + x_29 = lean::box(0); +} +x_30 = lean::mk_nat_obj(1ul); +x_31 = lean::nat_add(x_1, x_30); +if (lean::obj_tag(x_25) == 0) +{ +obj* x_32; obj* x_34; obj* x_36; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_32 = lean::cnstr_get(x_25, 0); +x_34 = lean::cnstr_get(x_25, 1); +x_36 = lean::cnstr_get(x_25, 2); if (lean::is_exclusive(x_25)) { - lean::cnstr_set(x_25, 0, lean::box(0)); - lean::cnstr_set(x_25, 1, lean::box(0)); - x_30 = x_25; + x_38 = x_25; } else { - lean::inc(x_26); - lean::inc(x_28); + lean::inc(x_32); + lean::inc(x_34); + lean::inc(x_36); lean::dec(x_25); - x_30 = lean::box(0); + x_38 = lean::box(0); } -x_31 = lean::mk_nat_obj(1ul); -x_32 = lean::nat_add(x_1, x_31); -if (lean::obj_tag(x_26) == 0) +x_39 = lean::box(0); +x_40 = lean_name_mk_numeral(x_39, x_1); +x_41 = lean::box(0); +if (lean::is_scalar(x_19)) { + x_42 = lean::alloc_cnstr(1, 2, 0); +} else { + x_42 = x_19; +} +lean::cnstr_set(x_42, 0, x_32); +lean::cnstr_set(x_42, 1, x_41); +x_43 = l_Lean_Parser_Syntax_mkNode(x_40, x_42); +x_44 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_38)) { + x_45 = lean::alloc_cnstr(0, 3, 0); +} else { + x_45 = x_38; +} +lean::cnstr_set(x_45, 0, x_43); +lean::cnstr_set(x_45, 1, x_34); +lean::cnstr_set(x_45, 2, x_44); +x_46 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_36, x_45); +if (lean::obj_tag(x_46) == 0) { -obj* x_33; obj* x_35; obj* x_37; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; -x_33 = lean::cnstr_get(x_26, 0); -x_35 = lean::cnstr_get(x_26, 1); -x_37 = lean::cnstr_get(x_26, 2); -if (lean::is_exclusive(x_26)) { - x_39 = x_26; -} else { - lean::inc(x_33); - lean::inc(x_35); - lean::inc(x_37); - lean::dec(x_26); - x_39 = lean::box(0); -} -x_40 = lean::box(0); -x_41 = lean_name_mk_numeral(x_40, x_1); -x_42 = lean::box(0); -if (lean::is_scalar(x_20)) { - x_43 = lean::alloc_cnstr(1, 2, 0); -} else { - x_43 = x_20; -} -lean::cnstr_set(x_43, 0, x_33); -lean::cnstr_set(x_43, 1, x_42); -x_44 = l_Lean_Parser_Syntax_mkNode(x_41, x_43); -x_45 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_39)) { - x_46 = lean::alloc_cnstr(0, 3, 0); -} else { - x_46 = x_39; -} -lean::cnstr_set(x_46, 0, x_44); -lean::cnstr_set(x_46, 1, x_35); -lean::cnstr_set(x_46, 2, x_45); -x_47 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_37, x_46); -if (lean::obj_tag(x_47) == 0) -{ -obj* x_54; +obj* x_53; lean::dec(x_5); -lean::dec(x_18); lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_32); -if (lean::is_scalar(x_30)) { - x_54 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_31); +lean::dec(x_17); +if (lean::is_scalar(x_29)) { + x_53 = lean::alloc_cnstr(0, 2, 0); } else { - x_54 = x_30; + x_53 = x_29; } -lean::cnstr_set(x_54, 0, x_47); -lean::cnstr_set(x_54, 1, x_28); -return x_54; +lean::cnstr_set(x_53, 0, x_46); +lean::cnstr_set(x_53, 1, x_27); +return x_53; } else { -uint8 x_55; -x_55 = lean::cnstr_get_scalar(x_47, sizeof(void*)*1); -if (x_55 == 0) +uint8 x_54; +x_54 = lean::cnstr_get_scalar(x_46, sizeof(void*)*1); +if (x_54 == 0) { -obj* x_57; obj* x_60; obj* x_61; obj* x_63; obj* x_65; obj* x_66; obj* x_67; -lean::dec(x_30); -x_57 = lean::cnstr_get(x_47, 0); -lean::inc(x_57); -lean::dec(x_47); -x_60 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_Level_trailing_Parser_Lean_Parser_HasTokens___spec__1(x_18, x_32, x_2, x_3, x_4, x_5, x_28); -x_61 = lean::cnstr_get(x_60, 0); -x_63 = lean::cnstr_get(x_60, 1); -if (lean::is_exclusive(x_60)) { - x_65 = x_60; +obj* x_56; obj* x_59; obj* x_60; obj* x_62; obj* x_64; obj* x_65; obj* x_66; +lean::dec(x_29); +x_56 = lean::cnstr_get(x_46, 0); +lean::inc(x_56); +lean::dec(x_46); +x_59 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_Level_trailing_Parser_Lean_Parser_HasTokens___spec__1(x_17, x_31, x_2, x_3, x_4, x_5, x_27); +x_60 = lean::cnstr_get(x_59, 0); +x_62 = lean::cnstr_get(x_59, 1); +if (lean::is_exclusive(x_59)) { + x_64 = x_59; } else { - lean::inc(x_61); - lean::inc(x_63); - lean::dec(x_60); - x_65 = lean::box(0); + lean::inc(x_60); + lean::inc(x_62); + lean::dec(x_59); + x_64 = lean::box(0); } -x_66 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_57, x_61); -if (lean::is_scalar(x_65)) { - x_67 = lean::alloc_cnstr(0, 2, 0); +x_65 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_56, x_60); +if (lean::is_scalar(x_64)) { + x_66 = lean::alloc_cnstr(0, 2, 0); } else { - x_67 = x_65; + x_66 = x_64; } -lean::cnstr_set(x_67, 0, x_66); -lean::cnstr_set(x_67, 1, x_63); -return x_67; +lean::cnstr_set(x_66, 0, x_65); +lean::cnstr_set(x_66, 1, x_62); +return x_66; } else { -obj* x_74; +obj* x_73; lean::dec(x_5); -lean::dec(x_18); lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_32); -if (lean::is_scalar(x_30)) { - x_74 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_31); +lean::dec(x_17); +if (lean::is_scalar(x_29)) { + x_73 = lean::alloc_cnstr(0, 2, 0); } else { - x_74 = x_30; + x_73 = x_29; } -lean::cnstr_set(x_74, 0, x_47); -lean::cnstr_set(x_74, 1, x_28); -return x_74; +lean::cnstr_set(x_73, 0, x_46); +lean::cnstr_set(x_73, 1, x_27); +return x_73; } } } else { -uint8 x_77; -lean::dec(x_20); +uint8 x_76; +lean::dec(x_19); lean::dec(x_1); -x_77 = lean::cnstr_get_scalar(x_26, sizeof(void*)*1); -if (x_77 == 0) +x_76 = lean::cnstr_get_scalar(x_25, sizeof(void*)*1); +if (x_76 == 0) { -obj* x_79; obj* x_82; obj* x_83; obj* x_85; obj* x_87; obj* x_88; obj* x_89; -lean::dec(x_30); -x_79 = lean::cnstr_get(x_26, 0); -lean::inc(x_79); -lean::dec(x_26); -x_82 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_Level_trailing_Parser_Lean_Parser_HasTokens___spec__1(x_18, x_32, x_2, x_3, x_4, x_5, x_28); -x_83 = lean::cnstr_get(x_82, 0); -x_85 = lean::cnstr_get(x_82, 1); -if (lean::is_exclusive(x_82)) { - x_87 = x_82; +obj* x_78; obj* x_81; obj* x_82; obj* x_84; obj* x_86; obj* x_87; obj* x_88; +lean::dec(x_29); +x_78 = lean::cnstr_get(x_25, 0); +lean::inc(x_78); +lean::dec(x_25); +x_81 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_Level_trailing_Parser_Lean_Parser_HasTokens___spec__1(x_17, x_31, x_2, x_3, x_4, x_5, x_27); +x_82 = lean::cnstr_get(x_81, 0); +x_84 = lean::cnstr_get(x_81, 1); +if (lean::is_exclusive(x_81)) { + x_86 = x_81; } else { - lean::inc(x_83); - lean::inc(x_85); - lean::dec(x_82); - x_87 = lean::box(0); + lean::inc(x_82); + lean::inc(x_84); + lean::dec(x_81); + x_86 = lean::box(0); } -x_88 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_79, x_83); -if (lean::is_scalar(x_87)) { - x_89 = lean::alloc_cnstr(0, 2, 0); +x_87 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_78, x_82); +if (lean::is_scalar(x_86)) { + x_88 = lean::alloc_cnstr(0, 2, 0); } else { - x_89 = x_87; + x_88 = x_86; } -lean::cnstr_set(x_89, 0, x_88); -lean::cnstr_set(x_89, 1, x_85); -return x_89; +lean::cnstr_set(x_88, 0, x_87); +lean::cnstr_set(x_88, 1, x_84); +return x_88; } else { -obj* x_96; obj* x_98; obj* x_99; obj* x_100; obj* x_101; +obj* x_95; obj* x_97; obj* x_98; obj* x_99; obj* x_100; lean::dec(x_5); -lean::dec(x_18); lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_32); -x_96 = lean::cnstr_get(x_26, 0); -if (lean::is_exclusive(x_26)) { - x_98 = x_26; +lean::dec(x_31); +lean::dec(x_17); +x_95 = lean::cnstr_get(x_25, 0); +if (lean::is_exclusive(x_25)) { + x_97 = x_25; } else { - lean::inc(x_96); - lean::dec(x_26); - x_98 = lean::box(0); + lean::inc(x_95); + lean::dec(x_25); + x_97 = lean::box(0); } -if (lean::is_scalar(x_98)) { - x_99 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_97)) { + x_98 = lean::alloc_cnstr(1, 1, 1); } else { - x_99 = x_98; + x_98 = x_97; } -lean::cnstr_set(x_99, 0, x_96); -lean::cnstr_set_scalar(x_99, sizeof(void*)*1, x_77); -x_100 = x_99; -if (lean::is_scalar(x_30)) { - x_101 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_98, 0, x_95); +lean::cnstr_set_scalar(x_98, sizeof(void*)*1, x_76); +x_99 = x_98; +if (lean::is_scalar(x_29)) { + x_100 = lean::alloc_cnstr(0, 2, 0); } else { - x_101 = x_30; + x_100 = x_29; } -lean::cnstr_set(x_101, 0, x_100); -lean::cnstr_set(x_101, 1, x_28); -return x_101; +lean::cnstr_set(x_100, 0, x_99); +lean::cnstr_set(x_100, 1, x_27); +return x_100; } } } @@ -5642,11 +5717,9 @@ _start: { obj* x_9; x_9 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Level_trailing_Parser_Lean_Parser_HasTokens___spec__2___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); -lean::dec(x_2); lean::dec(x_4); lean::dec(x_5); lean::dec(x_6); -lean::dec(x_7); return x_9; } } @@ -5795,22 +5868,46 @@ return x_1; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_levelParser_run___spec__3___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { _start: { -obj* x_8; obj* x_9; uint8 x_10; obj* x_11; obj* x_12; obj* x_13; -x_8 = l_Option_getOrElse___main___rarg(x_2, x_6); -x_9 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -lean::cnstr_set(x_9, 2, x_1); -lean::cnstr_set(x_9, 3, x_3); -x_10 = 0; -x_11 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_11, 0, x_9); -lean::cnstr_set_scalar(x_11, sizeof(void*)*1, x_10); -x_12 = x_11; -x_13 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_13, 0, x_12); -lean::cnstr_set(x_13, 1, x_7); -return x_13; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_8; uint8 x_9; obj* x_10; obj* x_11; obj* x_12; +x_8 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_8, 0, x_6); +lean::cnstr_set(x_8, 1, x_0); +lean::cnstr_set(x_8, 2, x_1); +lean::cnstr_set(x_8, 3, x_3); +x_9 = 0; +x_10 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_10, 0, x_8); +lean::cnstr_set_scalar(x_10, sizeof(void*)*1, x_9); +x_11 = x_10; +x_12 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_7); +return x_12; +} +else +{ +obj* x_14; obj* x_17; uint8 x_18; obj* x_19; obj* x_20; obj* x_21; +lean::dec(x_6); +x_14 = lean::cnstr_get(x_2, 0); +lean::inc(x_14); +lean::dec(x_2); +x_17 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_17, 0, x_14); +lean::cnstr_set(x_17, 1, x_0); +lean::cnstr_set(x_17, 2, x_1); +lean::cnstr_set(x_17, 3, x_3); +x_18 = 0; +x_19 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_19, 0, x_17); +lean::cnstr_set_scalar(x_19, sizeof(void*)*1, x_18); +x_20 = x_19; +x_21 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_21, 0, x_20); +lean::cnstr_set(x_21, 1, x_7); +return x_21; +} } } obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_levelParser_run___spec__3(obj* x_0) { @@ -5922,321 +6019,318 @@ lean::cnstr_set(x_46, 2, x_45); x_47 = l_Lean_Parser_Trie_matchPrefix___rarg(x_43, x_46); if (lean::obj_tag(x_47) == 0) { -obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_55; obj* x_57; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; +obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_56; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; lean::dec(x_39); x_49 = lean::box(0); x_50 = l_Lean_Parser_currLbp___rarg___lambda__1___closed__1; x_51 = l_mjoin___rarg___closed__1; x_52 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_levelParser_run___spec__3___rarg(x_50, x_51, x_49, x_49, x_0, x_1, x_35, x_32); -lean::dec(x_35); lean::dec(x_1); -x_55 = lean::cnstr_get(x_52, 0); -x_57 = lean::cnstr_get(x_52, 1); +x_54 = lean::cnstr_get(x_52, 0); +x_56 = lean::cnstr_get(x_52, 1); if (lean::is_exclusive(x_52)) { - x_59 = x_52; + x_58 = x_52; } else { - lean::inc(x_55); - lean::inc(x_57); + lean::inc(x_54); + lean::inc(x_56); lean::dec(x_52); - x_59 = lean::box(0); + x_58 = lean::box(0); } -x_60 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_61 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_60, x_55); -x_62 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_60, x_61); -x_63 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_37, x_62); -if (lean::is_scalar(x_59)) { - x_64 = lean::alloc_cnstr(0, 2, 0); +x_59 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_60 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_59, x_54); +x_61 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_59, x_60); +x_62 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_37, x_61); +if (lean::is_scalar(x_58)) { + x_63 = lean::alloc_cnstr(0, 2, 0); } else { - x_64 = x_59; + x_63 = x_58; } -lean::cnstr_set(x_64, 0, x_63); -lean::cnstr_set(x_64, 1, x_57); -return x_64; +lean::cnstr_set(x_63, 0, x_62); +lean::cnstr_set(x_63, 1, x_56); +return x_63; } else { -obj* x_66; obj* x_69; obj* x_71; obj* x_72; obj* x_75; obj* x_76; obj* x_77; obj* x_78; +obj* x_65; obj* x_68; obj* x_70; obj* x_71; obj* x_74; obj* x_75; obj* x_76; obj* x_77; lean::dec(x_1); -x_66 = lean::cnstr_get(x_47, 0); -lean::inc(x_66); +x_65 = lean::cnstr_get(x_47, 0); +lean::inc(x_65); lean::dec(x_47); -x_69 = lean::cnstr_get(x_66, 1); -if (lean::is_exclusive(x_66)) { - lean::cnstr_release(x_66, 0); - x_71 = x_66; +x_68 = lean::cnstr_get(x_65, 1); +if (lean::is_exclusive(x_65)) { + lean::cnstr_release(x_65, 0); + x_70 = x_65; } else { - lean::inc(x_69); - lean::dec(x_66); - x_71 = lean::box(0); + lean::inc(x_68); + lean::dec(x_65); + x_70 = lean::box(0); } -x_72 = lean::cnstr_get(x_69, 1); -lean::inc(x_72); -lean::dec(x_69); -x_75 = l_Lean_Parser_matchToken___closed__1; +x_71 = lean::cnstr_get(x_68, 1); +lean::inc(x_71); +lean::dec(x_68); +x_74 = l_Lean_Parser_matchToken___closed__1; if (lean::is_scalar(x_39)) { - x_76 = lean::alloc_cnstr(0, 3, 0); + x_75 = lean::alloc_cnstr(0, 3, 0); } else { - x_76 = x_39; + x_75 = x_39; } -lean::cnstr_set(x_76, 0, x_72); -lean::cnstr_set(x_76, 1, x_35); -lean::cnstr_set(x_76, 2, x_75); -x_77 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_37, x_76); -if (lean::is_scalar(x_71)) { - x_78 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_75, 0, x_71); +lean::cnstr_set(x_75, 1, x_35); +lean::cnstr_set(x_75, 2, x_74); +x_76 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_37, x_75); +if (lean::is_scalar(x_70)) { + x_77 = lean::alloc_cnstr(0, 2, 0); } else { - x_78 = x_71; + x_77 = x_70; } -lean::cnstr_set(x_78, 0, x_77); -lean::cnstr_set(x_78, 1, x_32); -return x_78; +lean::cnstr_set(x_77, 0, x_76); +lean::cnstr_set(x_77, 1, x_32); +return x_77; } } case 1: { -obj* x_81; obj* x_83; obj* x_84; obj* x_86; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; +obj* x_80; obj* x_82; obj* x_83; obj* x_85; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; lean::dec(x_1); lean::dec(x_26); -x_81 = lean::cnstr_get(x_6, 1); +x_80 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); - x_83 = x_6; + x_82 = x_6; } else { - lean::inc(x_81); + lean::inc(x_80); lean::dec(x_6); - x_83 = lean::box(0); + x_82 = lean::box(0); } -x_84 = lean::cnstr_get(x_7, 1); -x_86 = lean::cnstr_get(x_7, 2); +x_83 = lean::cnstr_get(x_7, 1); +x_85 = lean::cnstr_get(x_7, 2); if (lean::is_exclusive(x_7)) { lean::cnstr_release(x_7, 0); - x_88 = x_7; + x_87 = x_7; } else { - lean::inc(x_84); - lean::inc(x_86); + lean::inc(x_83); + lean::inc(x_85); lean::dec(x_7); - x_88 = lean::box(0); + x_87 = lean::box(0); } -x_89 = l_Lean_Parser_maxPrec; -x_90 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_88)) { - x_91 = lean::alloc_cnstr(0, 3, 0); +x_88 = l_Lean_Parser_maxPrec; +x_89 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_87)) { + x_90 = lean::alloc_cnstr(0, 3, 0); } else { - x_91 = x_88; + x_90 = x_87; } -lean::cnstr_set(x_91, 0, x_89); -lean::cnstr_set(x_91, 1, x_84); -lean::cnstr_set(x_91, 2, x_90); -x_92 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_86, x_91); -if (lean::is_scalar(x_83)) { - x_93 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_90, 0, x_88); +lean::cnstr_set(x_90, 1, x_83); +lean::cnstr_set(x_90, 2, x_89); +x_91 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_85, x_90); +if (lean::is_scalar(x_82)) { + x_92 = lean::alloc_cnstr(0, 2, 0); } else { - x_93 = x_83; + x_92 = x_82; } -lean::cnstr_set(x_93, 0, x_92); -lean::cnstr_set(x_93, 1, x_81); -return x_93; +lean::cnstr_set(x_92, 0, x_91); +lean::cnstr_set(x_92, 1, x_80); +return x_92; } case 2: { -obj* x_94; obj* x_97; obj* x_99; obj* x_100; obj* x_102; obj* x_104; obj* x_105; obj* x_108; uint8 x_109; -x_94 = lean::cnstr_get(x_26, 0); -lean::inc(x_94); +obj* x_93; obj* x_96; obj* x_98; obj* x_99; obj* x_101; obj* x_103; obj* x_104; obj* x_107; uint8 x_108; +x_93 = lean::cnstr_get(x_26, 0); +lean::inc(x_93); lean::dec(x_26); -x_97 = lean::cnstr_get(x_6, 1); +x_96 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); lean::cnstr_set(x_6, 1, lean::box(0)); - x_99 = x_6; + x_98 = x_6; } else { - lean::inc(x_97); + lean::inc(x_96); lean::dec(x_6); - x_99 = lean::box(0); + x_98 = lean::box(0); } -x_100 = lean::cnstr_get(x_7, 1); -x_102 = lean::cnstr_get(x_7, 2); +x_99 = lean::cnstr_get(x_7, 1); +x_101 = lean::cnstr_get(x_7, 2); if (lean::is_exclusive(x_7)) { lean::cnstr_release(x_7, 0); lean::cnstr_set(x_7, 1, lean::box(0)); lean::cnstr_set(x_7, 2, lean::box(0)); - x_104 = x_7; + x_103 = x_7; } else { - lean::inc(x_100); - lean::inc(x_102); + lean::inc(x_99); + lean::inc(x_101); lean::dec(x_7); - x_104 = lean::box(0); + x_103 = lean::box(0); } -x_105 = lean::cnstr_get(x_94, 0); -lean::inc(x_105); -lean::dec(x_94); -x_108 = l_Lean_Parser_number_HasView_x_27___lambda__1___closed__6; -x_109 = lean_name_dec_eq(x_105, x_108); -if (x_109 == 0) +x_104 = lean::cnstr_get(x_93, 0); +lean::inc(x_104); +lean::dec(x_93); +x_107 = l_Lean_Parser_number_HasView_x_27___lambda__1___closed__6; +x_108 = lean_name_dec_eq(x_104, x_107); +if (x_108 == 0) { -obj* x_110; uint8 x_111; -x_110 = l_Lean_Parser_currLbp___rarg___lambda__3___closed__1; -x_111 = lean_name_dec_eq(x_105, x_110); -lean::dec(x_105); -if (x_111 == 0) -{ -obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_121; obj* x_123; obj* x_125; obj* x_126; obj* x_127; +obj* x_109; uint8 x_110; +x_109 = l_Lean_Parser_currLbp___rarg___lambda__3___closed__1; +x_110 = lean_name_dec_eq(x_104, x_109); lean::dec(x_104); -lean::dec(x_99); -x_115 = lean::box(0); -x_116 = l_Lean_Parser_currLbp___rarg___lambda__3___closed__2; -x_117 = l_mjoin___rarg___closed__1; -x_118 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_levelParser_run___spec__3___rarg(x_116, x_117, x_115, x_115, x_0, x_1, x_100, x_97); -lean::dec(x_100); +if (x_110 == 0) +{ +obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_119; obj* x_121; obj* x_123; obj* x_124; obj* x_125; +lean::dec(x_103); +lean::dec(x_98); +x_114 = lean::box(0); +x_115 = l_Lean_Parser_currLbp___rarg___lambda__3___closed__2; +x_116 = l_mjoin___rarg___closed__1; +x_117 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_levelParser_run___spec__3___rarg(x_115, x_116, x_114, x_114, x_0, x_1, x_99, x_96); lean::dec(x_1); -x_121 = lean::cnstr_get(x_118, 0); -x_123 = lean::cnstr_get(x_118, 1); -if (lean::is_exclusive(x_118)) { - x_125 = x_118; +x_119 = lean::cnstr_get(x_117, 0); +x_121 = lean::cnstr_get(x_117, 1); +if (lean::is_exclusive(x_117)) { + x_123 = x_117; } else { + lean::inc(x_119); lean::inc(x_121); - lean::inc(x_123); - lean::dec(x_118); - x_125 = lean::box(0); + lean::dec(x_117); + x_123 = lean::box(0); } -x_126 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_102, x_121); -if (lean::is_scalar(x_125)) { - x_127 = lean::alloc_cnstr(0, 2, 0); +x_124 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_101, x_119); +if (lean::is_scalar(x_123)) { + x_125 = lean::alloc_cnstr(0, 2, 0); } else { - x_127 = x_125; + x_125 = x_123; } -lean::cnstr_set(x_127, 0, x_126); -lean::cnstr_set(x_127, 1, x_123); -return x_127; +lean::cnstr_set(x_125, 0, x_124); +lean::cnstr_set(x_125, 1, x_121); +return x_125; } else { -obj* x_129; obj* x_130; obj* x_131; obj* x_132; obj* x_133; +obj* x_127; obj* x_128; obj* x_129; obj* x_130; obj* x_131; lean::dec(x_1); -x_129 = l_Lean_Parser_maxPrec; -x_130 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_104)) { - x_131 = lean::alloc_cnstr(0, 3, 0); +x_127 = l_Lean_Parser_maxPrec; +x_128 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_103)) { + x_129 = lean::alloc_cnstr(0, 3, 0); } else { - x_131 = x_104; + x_129 = x_103; } -lean::cnstr_set(x_131, 0, x_129); -lean::cnstr_set(x_131, 1, x_100); -lean::cnstr_set(x_131, 2, x_130); -x_132 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_102, x_131); -if (lean::is_scalar(x_99)) { - x_133 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_129, 0, x_127); +lean::cnstr_set(x_129, 1, x_99); +lean::cnstr_set(x_129, 2, x_128); +x_130 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_101, x_129); +if (lean::is_scalar(x_98)) { + x_131 = lean::alloc_cnstr(0, 2, 0); } else { - x_133 = x_99; + x_131 = x_98; } -lean::cnstr_set(x_133, 0, x_132); -lean::cnstr_set(x_133, 1, x_97); -return x_133; +lean::cnstr_set(x_131, 0, x_130); +lean::cnstr_set(x_131, 1, x_96); +return x_131; } } else { -obj* x_136; obj* x_137; obj* x_138; obj* x_139; obj* x_140; +obj* x_134; obj* x_135; obj* x_136; obj* x_137; obj* x_138; lean::dec(x_1); -lean::dec(x_105); -x_136 = l_Lean_Parser_maxPrec; -x_137 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_104)) { - x_138 = lean::alloc_cnstr(0, 3, 0); +lean::dec(x_104); +x_134 = l_Lean_Parser_maxPrec; +x_135 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_103)) { + x_136 = lean::alloc_cnstr(0, 3, 0); } else { - x_138 = x_104; + x_136 = x_103; } -lean::cnstr_set(x_138, 0, x_136); -lean::cnstr_set(x_138, 1, x_100); -lean::cnstr_set(x_138, 2, x_137); -x_139 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_102, x_138); -if (lean::is_scalar(x_99)) { - x_140 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_136, 0, x_134); +lean::cnstr_set(x_136, 1, x_99); +lean::cnstr_set(x_136, 2, x_135); +x_137 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_101, x_136); +if (lean::is_scalar(x_98)) { + x_138 = lean::alloc_cnstr(0, 2, 0); } else { - x_140 = x_99; + x_138 = x_98; } -lean::cnstr_set(x_140, 0, x_139); -lean::cnstr_set(x_140, 1, x_97); -return x_140; +lean::cnstr_set(x_138, 0, x_137); +lean::cnstr_set(x_138, 1, x_96); +return x_138; } } default: { -obj* x_141; obj* x_144; obj* x_146; obj* x_149; obj* x_150; obj* x_151; obj* x_152; obj* x_155; obj* x_157; obj* x_159; obj* x_160; obj* x_161; -x_141 = lean::cnstr_get(x_6, 1); -lean::inc(x_141); +obj* x_139; obj* x_142; obj* x_144; obj* x_147; obj* x_148; obj* x_149; obj* x_150; obj* x_152; obj* x_154; obj* x_156; obj* x_157; obj* x_158; +x_139 = lean::cnstr_get(x_6, 1); +lean::inc(x_139); lean::dec(x_6); -x_144 = lean::cnstr_get(x_7, 1); +x_142 = lean::cnstr_get(x_7, 1); +lean::inc(x_142); +x_144 = lean::cnstr_get(x_7, 2); lean::inc(x_144); -x_146 = lean::cnstr_get(x_7, 2); -lean::inc(x_146); lean::dec(x_7); -x_149 = lean::box(0); -x_150 = l_Lean_Parser_currLbp___rarg___lambda__3___closed__2; -x_151 = l_mjoin___rarg___closed__1; -x_152 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_levelParser_run___spec__3___rarg(x_150, x_151, x_149, x_149, x_0, x_1, x_144, x_141); -lean::dec(x_144); +x_147 = lean::box(0); +x_148 = l_Lean_Parser_currLbp___rarg___lambda__3___closed__2; +x_149 = l_mjoin___rarg___closed__1; +x_150 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_levelParser_run___spec__3___rarg(x_148, x_149, x_147, x_147, x_0, x_1, x_142, x_139); lean::dec(x_1); -x_155 = lean::cnstr_get(x_152, 0); -x_157 = lean::cnstr_get(x_152, 1); -if (lean::is_exclusive(x_152)) { - x_159 = x_152; +x_152 = lean::cnstr_get(x_150, 0); +x_154 = lean::cnstr_get(x_150, 1); +if (lean::is_exclusive(x_150)) { + x_156 = x_150; } else { - lean::inc(x_155); - lean::inc(x_157); - lean::dec(x_152); - x_159 = lean::box(0); + lean::inc(x_152); + lean::inc(x_154); + lean::dec(x_150); + x_156 = lean::box(0); } -x_160 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_146, x_155); -if (lean::is_scalar(x_159)) { - x_161 = lean::alloc_cnstr(0, 2, 0); +x_157 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_144, x_152); +if (lean::is_scalar(x_156)) { + x_158 = lean::alloc_cnstr(0, 2, 0); } else { - x_161 = x_159; + x_158 = x_156; } -lean::cnstr_set(x_161, 0, x_160); -lean::cnstr_set(x_161, 1, x_157); -return x_161; +lean::cnstr_set(x_158, 0, x_157); +lean::cnstr_set(x_158, 1, x_154); +return x_158; } } } } else { -obj* x_163; obj* x_165; obj* x_166; uint8 x_168; obj* x_169; obj* x_170; obj* x_171; obj* x_172; +obj* x_160; obj* x_162; obj* x_163; uint8 x_165; obj* x_166; obj* x_167; obj* x_168; obj* x_169; lean::dec(x_1); -x_163 = lean::cnstr_get(x_6, 1); +x_160 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); - x_165 = x_6; + x_162 = x_6; +} else { + lean::inc(x_160); + lean::dec(x_6); + x_162 = lean::box(0); +} +x_163 = lean::cnstr_get(x_7, 0); +x_165 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); +if (lean::is_exclusive(x_7)) { + x_166 = x_7; } else { lean::inc(x_163); - lean::dec(x_6); - x_165 = lean::box(0); -} -x_166 = lean::cnstr_get(x_7, 0); -x_168 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); -if (lean::is_exclusive(x_7)) { - x_169 = x_7; -} else { - lean::inc(x_166); lean::dec(x_7); - x_169 = lean::box(0); + x_166 = lean::box(0); } -if (lean::is_scalar(x_169)) { - x_170 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_166)) { + x_167 = lean::alloc_cnstr(1, 1, 1); } else { - x_170 = x_169; + x_167 = x_166; } -lean::cnstr_set(x_170, 0, x_166); -lean::cnstr_set_scalar(x_170, sizeof(void*)*1, x_168); -x_171 = x_170; -if (lean::is_scalar(x_165)) { - x_172 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_167, 0, x_163); +lean::cnstr_set_scalar(x_167, sizeof(void*)*1, x_165); +x_168 = x_167; +if (lean::is_scalar(x_162)) { + x_169 = lean::alloc_cnstr(0, 2, 0); } else { - x_172 = x_165; + x_169 = x_162; } -lean::cnstr_set(x_172, 0, x_171); -lean::cnstr_set(x_172, 1, x_163); -return x_172; +lean::cnstr_set(x_169, 0, x_168); +lean::cnstr_set(x_169, 1, x_160); +return x_169; } } } @@ -6454,146 +6548,126 @@ x_94 = lean::box(0); x_95 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; x_96 = l_mjoin___rarg___closed__1; x_97 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_levelParser_run___spec__3___rarg(x_95, x_96, x_94, x_94, x_4, x_5, x_6, x_7); -lean::dec(x_6); lean::dec(x_5); lean::dec(x_4); return x_97; } } } -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_levelParser_run___spec__6(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { +obj* l_Lean_Parser_prattParser___at_Lean_Parser_levelParser_run___spec__1___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { -obj* x_9; obj* x_12; obj* x_13; -lean::inc(x_1); -lean::inc(x_0); -x_9 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_levelParser_run___spec__6___boxed), 7, 3); -lean::closure_set(x_9, 0, x_0); -lean::closure_set(x_9, 1, x_1); -lean::closure_set(x_9, 2, x_2); +obj* x_9; obj* x_10; lean::inc(x_4); -lean::inc(x_9); -x_12 = lean::apply_4(x_0, x_9, x_4, x_5, x_6); -x_13 = lean::cnstr_get(x_12, 0); -lean::inc(x_13); -if (lean::obj_tag(x_13) == 0) +lean::inc(x_2); +x_9 = lean::apply_4(x_0, x_2, x_4, x_5, x_6); +x_10 = lean::cnstr_get(x_9, 0); +lean::inc(x_10); +if (lean::obj_tag(x_10) == 0) { -obj* x_15; obj* x_18; obj* x_20; obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; -x_15 = lean::cnstr_get(x_12, 1); +obj* x_12; obj* x_15; obj* x_17; obj* x_19; obj* x_22; obj* x_23; obj* x_24; obj* x_26; obj* x_28; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; +x_12 = lean::cnstr_get(x_9, 1); +lean::inc(x_12); +lean::dec(x_9); +x_15 = lean::cnstr_get(x_10, 0); lean::inc(x_15); -lean::dec(x_12); -x_18 = lean::cnstr_get(x_13, 0); -lean::inc(x_18); -x_20 = lean::cnstr_get(x_13, 1); -lean::inc(x_20); -x_22 = lean::cnstr_get(x_13, 2); -lean::inc(x_22); -lean::dec(x_13); -x_25 = l_String_OldIterator_remaining___main(x_20); -x_26 = lean::mk_nat_obj(1ul); -x_27 = lean::nat_add(x_25, x_26); -lean::dec(x_25); -x_29 = l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_levelParser_run___spec__2(x_1, x_3, x_27, x_18, x_9, x_4, x_20, x_15); -lean::dec(x_27); -x_31 = lean::cnstr_get(x_29, 0); -x_33 = lean::cnstr_get(x_29, 1); -if (lean::is_exclusive(x_29)) { - x_35 = x_29; +x_17 = lean::cnstr_get(x_10, 1); +lean::inc(x_17); +x_19 = lean::cnstr_get(x_10, 2); +lean::inc(x_19); +lean::dec(x_10); +x_22 = l_String_OldIterator_remaining___main(x_17); +x_23 = lean::mk_nat_obj(1ul); +x_24 = lean::nat_add(x_22, x_23); +lean::dec(x_22); +x_26 = l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_levelParser_run___spec__2(x_1, x_3, x_24, x_15, x_2, x_4, x_17, x_12); +lean::dec(x_24); +x_28 = lean::cnstr_get(x_26, 0); +x_30 = lean::cnstr_get(x_26, 1); +if (lean::is_exclusive(x_26)) { + x_32 = x_26; } else { - lean::inc(x_31); - lean::inc(x_33); - lean::dec(x_29); - x_35 = lean::box(0); + lean::inc(x_28); + lean::inc(x_30); + lean::dec(x_26); + x_32 = lean::box(0); } -x_36 = l_Lean_Parser_finishCommentBlock___closed__2; -x_37 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_36, x_31); -x_38 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_37); -if (lean::is_scalar(x_35)) { - x_39 = lean::alloc_cnstr(0, 2, 0); +x_33 = l_Lean_Parser_finishCommentBlock___closed__2; +x_34 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_33, x_28); +x_35 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_19, x_34); +if (lean::is_scalar(x_32)) { + x_36 = lean::alloc_cnstr(0, 2, 0); } else { - x_39 = x_35; + x_36 = x_32; } -lean::cnstr_set(x_39, 0, x_38); -lean::cnstr_set(x_39, 1, x_33); -return x_39; +lean::cnstr_set(x_36, 0, x_35); +lean::cnstr_set(x_36, 1, x_30); +return x_36; } else { -obj* x_43; obj* x_45; obj* x_46; uint8 x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; -lean::dec(x_9); +obj* x_40; obj* x_42; obj* x_43; uint8 x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; lean::dec(x_4); lean::dec(x_1); -x_43 = lean::cnstr_get(x_12, 1); -if (lean::is_exclusive(x_12)) { - lean::cnstr_release(x_12, 0); - x_45 = x_12; +lean::dec(x_2); +x_40 = lean::cnstr_get(x_9, 1); +if (lean::is_exclusive(x_9)) { + lean::cnstr_release(x_9, 0); + x_42 = x_9; +} else { + lean::inc(x_40); + lean::dec(x_9); + x_42 = lean::box(0); +} +x_43 = lean::cnstr_get(x_10, 0); +x_45 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); +if (lean::is_exclusive(x_10)) { + x_46 = x_10; } else { lean::inc(x_43); - lean::dec(x_12); - x_45 = lean::box(0); + lean::dec(x_10); + x_46 = lean::box(0); } -x_46 = lean::cnstr_get(x_13, 0); -x_48 = lean::cnstr_get_scalar(x_13, sizeof(void*)*1); -if (lean::is_exclusive(x_13)) { - x_49 = x_13; +if (lean::is_scalar(x_46)) { + x_47 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_46); - lean::dec(x_13); - x_49 = lean::box(0); + x_47 = x_46; } -if (lean::is_scalar(x_49)) { - x_50 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_47, 0, x_43); +lean::cnstr_set_scalar(x_47, sizeof(void*)*1, x_45); +x_48 = x_47; +if (lean::is_scalar(x_42)) { + x_49 = lean::alloc_cnstr(0, 2, 0); } else { - x_50 = x_49; + x_49 = x_42; } -lean::cnstr_set(x_50, 0, x_46); -lean::cnstr_set_scalar(x_50, sizeof(void*)*1, x_48); -x_51 = x_50; -if (lean::is_scalar(x_45)) { - x_52 = lean::alloc_cnstr(0, 2, 0); -} else { - x_52 = x_45; +lean::cnstr_set(x_49, 0, x_48); +lean::cnstr_set(x_49, 1, x_40); +return x_49; } -lean::cnstr_set(x_52, 0, x_51); -lean::cnstr_set(x_52, 1, x_43); -return x_52; -} -} -} -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_levelParser_run___spec__5(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { -_start: -{ -obj* x_7; -x_7 = l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_levelParser_run___spec__6(x_0, x_1, x_2, x_3, x_4, x_5, x_6); -return x_7; } } obj* _init_l_Lean_Parser_prattParser___at_Lean_Parser_levelParser_run___spec__1___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; -x_0 = lean::box(0); -x_1 = lean::mk_string("RecT.runParsec: no progress"); -x_2 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 1, 0); -x_3 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg___boxed), 7, 4); -lean::closure_set(x_3, 0, x_1); -lean::closure_set(x_3, 1, x_2); -lean::closure_set(x_3, 2, x_0); -lean::closure_set(x_3, 3, x_0); -return x_3; +obj* x_0; +x_0 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_detailIdent_Parser___lambda__1___boxed), 4, 0); +return x_0; } } obj* l_Lean_Parser_prattParser___at_Lean_Parser_levelParser_run___spec__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { -obj* x_6; obj* x_7; obj* x_8; -x_6 = l_Lean_Parser_prattParser___at_Lean_Parser_levelParser_run___spec__1___closed__1; -x_7 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_levelParser_run___spec__5___boxed), 7, 3); -lean::closure_set(x_7, 0, x_0); -lean::closure_set(x_7, 1, x_1); -lean::closure_set(x_7, 2, x_6); -x_8 = lean::apply_4(x_2, x_7, x_3, x_4, x_5); -return x_8; +obj* x_6; obj* x_7; obj* x_8; obj* x_9; +x_6 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_prattParser___at_Lean_Parser_levelParser_run___spec__1___lambda__1___boxed), 7, 2); +lean::closure_set(x_6, 0, x_0); +lean::closure_set(x_6, 1, x_1); +x_7 = l_Lean_Parser_prattParser___at_Lean_Parser_levelParser_run___spec__1___closed__1; +x_8 = lean::alloc_closure(reinterpret_cast(l_fixCore___rarg___boxed), 3, 2); +lean::closure_set(x_8, 0, x_7); +lean::closure_set(x_8, 1, x_6); +x_9 = lean::apply_4(x_2, x_8, x_3, x_4, x_5); +return x_9; } } obj* l_Lean_Parser_levelParser_run(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { @@ -6611,10 +6685,8 @@ _start: { obj* x_8; x_8 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_levelParser_run___spec__3___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7); -lean::dec(x_2); lean::dec(x_4); lean::dec(x_5); -lean::dec(x_6); return x_8; } } @@ -6646,20 +6718,11 @@ lean::dec(x_2); return x_8; } } -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_levelParser_run___spec__6___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { +obj* l_Lean_Parser_prattParser___at_Lean_Parser_levelParser_run___spec__1___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { obj* x_7; -x_7 = l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_levelParser_run___spec__6(x_0, x_1, x_2, x_3, x_4, x_5, x_6); -lean::dec(x_3); -return x_7; -} -} -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_levelParser_run___spec__5___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { -_start: -{ -obj* x_7; -x_7 = l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_levelParser_run___spec__5(x_0, x_1, x_2, x_3, x_4, x_5, x_6); +x_7 = l_Lean_Parser_prattParser___at_Lean_Parser_levelParser_run___spec__1___lambda__1(x_0, x_1, x_2, x_3, x_4, x_5, x_6); lean::dec(x_3); return x_7; } @@ -6753,8 +6816,6 @@ lean::mark_persistent(l_Lean_Parser_Level_leading_HasView_x_27___lambda__2___clo lean::mark_persistent(l_Lean_Parser_Level_leading_HasView_x_27); l_Lean_Parser_Level_leading_HasView = _init_l_Lean_Parser_Level_leading_HasView(); lean::mark_persistent(l_Lean_Parser_Level_leading_HasView); - l_Lean_Parser_number_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__2___rarg___closed__1 = _init_l_Lean_Parser_number_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__2___rarg___closed__1(); -lean::mark_persistent(l_Lean_Parser_number_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__2___rarg___closed__1); l_Lean_Parser_ident_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__3___rarg___closed__1 = _init_l_Lean_Parser_ident_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__3___rarg___closed__1(); lean::mark_persistent(l_Lean_Parser_ident_Parser___at_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens___spec__3___rarg___closed__1); l_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens = _init_l_Lean_Parser_Level_leading_Parser_Lean_Parser_HasTokens(); diff --git a/src/stage0/init/lean/parser/module.cpp b/src/stage0/init/lean/parser/module.cpp index 5de0960687..2c3a93a6e1 100644 --- a/src/stage0/init/lean/parser/module.cpp +++ b/src/stage0/init/lean/parser/module.cpp @@ -77,7 +77,6 @@ obj* l_List_map___main___rarg(obj*, obj*); obj* l_Lean_Parser_Combinators_node_view___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Module_header_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_ParsecT_runFrom___at_Lean_Parser_resumeModuleParser___spec__1___boxed(obj*, obj*); -obj* l_Option_get___main___at_Lean_Parser_run___spec__2(obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Module_eoi_Parser___spec__2(obj*); obj* l_Lean_Parser_ParsecT_runFrom___at_Lean_Parser_resumeModuleParser___spec__1___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_ident_Parser___at_Lean_Parser_Module_importPath_Parser_Lean_Parser_HasView___spec__2(obj*, obj*, obj*); @@ -109,7 +108,6 @@ obj* string_append(obj*, obj*); obj* l_String_OldIterator_next___main(obj*); obj* l_Lean_Parser_Module_header_HasView_x_27___lambda__2___closed__1; obj* l_Lean_Parser_Syntax_mkNode(obj*, obj*); -obj* l_Option_getOrElse___main___rarg(obj*, obj*); obj* l_Lean_Parser_Module_importPath_HasView_x_27___lambda__1___closed__4; obj* l_Lean_Parser_parseHeader___lambda__3(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_logMessage___at___private_init_lean_parser_module_1__commandWrecAux___main___spec__3(obj*, obj*, obj*, obj*, obj*); @@ -122,6 +120,7 @@ extern obj* l_Lean_Parser_noKind; obj* l_Lean_Parser_Module_import; extern "C" obj* lean_name_mk_string(obj*, obj*); obj* l_String_OldIterator_toEnd___main(obj*); +extern obj* l_Lean_Parser_Combinators_optional___rarg___lambda__1___closed__1; obj* l_Lean_Parser_Module_header_HasView; obj* l_Char_quoteCore(uint32); obj* l_Lean_Parser_ParsecT_orelseMkRes___rarg(obj*, obj*); @@ -151,7 +150,6 @@ obj* l_Lean_Parser_Module_header_HasView_x_27___lambda__1___closed__6; obj* l_Lean_Parser_Module_import_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_MonadParsec_strCore___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__3(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_ModuleParserM_liftParserT___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); -extern obj* l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; obj* l_Lean_Parser_Module_import_Parser___closed__1; obj* l_Lean_Parser_logMessage___at___private_init_lean_parser_module_1__commandWrecAux___main___spec__1(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_any___at___private_init_lean_parser_module_1__commandWrecAux___main___spec__2(obj*, obj*, obj*, obj*); @@ -159,6 +157,7 @@ obj* l_Lean_Parser_ParserT_Monad___rarg(obj*); obj* l_Lean_Parser_Combinators_optional___at_Lean_Parser_Module_header_Parser_Lean_Parser_HasView___spec__1___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_moduleParserConfigCoe___boxed(obj*); obj* l_StateT_bind___at_Lean_Parser_parseHeader___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l___private_init_lean_parser_module_1__commandWrecAux___main___closed__3; obj* l_String_trim(obj*); obj* l_Lean_Parser_ParsecT_bindMkRes___rarg(obj*, obj*); obj* l_StateT_MonadFunctor___boxed(obj*, obj*, obj*, obj*, obj*, obj*); @@ -611,17 +610,15 @@ return x_8; obj* _init_l_Lean_Parser_Module_prelude_HasView_x_27___lambda__1___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -x_4 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_4, 0, x_3); -lean::cnstr_set(x_4, 1, x_0); -x_5 = l_Lean_Parser_Module_prelude; -x_6 = l_Lean_Parser_Syntax_mkNode(x_5, x_4); -return x_6; +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = l_Lean_Parser_Module_prelude; +x_4 = l_Lean_Parser_Syntax_mkNode(x_3, x_2); +return x_4; } } obj* l_Lean_Parser_Module_prelude_HasView_x_27___lambda__1(obj* x_0) { @@ -635,33 +632,19 @@ return x_1; } else { -obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; +obj* x_2; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_2 = lean::cnstr_get(x_0, 0); -if (lean::is_exclusive(x_0)) { - x_4 = x_0; -} else { - lean::inc(x_2); - lean::dec(x_0); - x_4 = lean::box(0); -} +lean::inc(x_2); +lean::dec(x_0); x_5 = lean::box(0); x_6 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_6, 0, x_2); -if (lean::is_scalar(x_4)) { - x_7 = lean::alloc_cnstr(1, 1, 0); -} else { - x_7 = x_4; -} +x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); -x_8 = lean::box(3); -x_9 = l_Option_getOrElse___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_11, 0, x_9); -lean::cnstr_set(x_11, 1, x_5); -x_12 = l_Lean_Parser_Module_prelude; -x_13 = l_Lean_Parser_Syntax_mkNode(x_12, x_11); -return x_13; +lean::cnstr_set(x_7, 1, x_5); +x_8 = l_Lean_Parser_Module_prelude; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } } @@ -881,7 +864,7 @@ x_7 = l_List_map___main___at_Lean_Parser_Module_importPath_HasView_x_27___spec__ if (lean::obj_tag(x_2) == 0) { obj* x_8; obj* x_9; -x_8 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_8 = lean::box(3); if (lean::is_scalar(x_6)) { x_9 = lean::alloc_cnstr(1, 2, 0); } else { @@ -893,34 +876,20 @@ return x_9; } else { -obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_18; +obj* x_10; obj* x_13; obj* x_14; x_10 = lean::cnstr_get(x_2, 0); -if (lean::is_exclusive(x_2)) { - x_12 = x_2; -} else { - lean::inc(x_10); - lean::dec(x_2); - x_12 = lean::box(0); -} +lean::inc(x_10); +lean::dec(x_2); x_13 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_13, 0, x_10); -if (lean::is_scalar(x_12)) { - x_14 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_6)) { + x_14 = lean::alloc_cnstr(1, 2, 0); } else { - x_14 = x_12; + x_14 = x_6; } lean::cnstr_set(x_14, 0, x_13); -x_15 = lean::box(3); -x_16 = l_Option_getOrElse___main___rarg(x_14, x_15); -lean::dec(x_14); -if (lean::is_scalar(x_6)) { - x_18 = lean::alloc_cnstr(1, 2, 0); -} else { - x_18 = x_6; -} -lean::cnstr_set(x_18, 0, x_16); -lean::cnstr_set(x_18, 1, x_7); -return x_18; +lean::cnstr_set(x_14, 1, x_7); +return x_14; } } } @@ -1382,7 +1351,7 @@ goto lbl_19; } lbl_19: { -obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_46; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; lean::dec(x_18); x_38 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_38, 0, x_1); @@ -1390,78 +1359,76 @@ x_39 = lean::box(0); x_40 = l_String_splitAux___main___closed__1; x_41 = l_Lean_Parser_ident_Parser___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__4___rarg___closed__1; x_42 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_40, x_41, x_38, x_39, x_0, x_13, x_8); -lean::dec(x_13); lean::dec(x_0); -lean::dec(x_38); -x_46 = lean::cnstr_get(x_42, 0); -x_48 = lean::cnstr_get(x_42, 1); +x_44 = lean::cnstr_get(x_42, 0); +x_46 = lean::cnstr_get(x_42, 1); if (lean::is_exclusive(x_42)) { - x_50 = x_42; + x_48 = x_42; } else { + lean::inc(x_44); lean::inc(x_46); - lean::inc(x_48); lean::dec(x_42); - x_50 = lean::box(0); + x_48 = lean::box(0); } -x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_46); -x_52 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_52, x_51); -x_54 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_53, x_41); -x_55 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_54); -if (lean::is_scalar(x_50)) { - x_56 = lean::alloc_cnstr(0, 2, 0); +x_49 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_44); +x_50 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_50, x_49); +x_52 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_51, x_41); +x_53 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_52); +if (lean::is_scalar(x_48)) { + x_54 = lean::alloc_cnstr(0, 2, 0); } else { - x_56 = x_50; + x_54 = x_48; } -lean::cnstr_set(x_56, 0, x_55); -lean::cnstr_set(x_56, 1, x_48); -return x_56; +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_46); +return x_54; } } else { -obj* x_59; obj* x_61; obj* x_62; uint8 x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; +obj* x_57; obj* x_59; obj* x_60; uint8 x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; lean::dec(x_1); lean::dec(x_0); -x_59 = lean::cnstr_get(x_5, 1); +x_57 = lean::cnstr_get(x_5, 1); if (lean::is_exclusive(x_5)) { lean::cnstr_release(x_5, 0); - x_61 = x_5; + x_59 = x_5; } else { - lean::inc(x_59); + lean::inc(x_57); lean::dec(x_5); - x_61 = lean::box(0); + x_59 = lean::box(0); } -x_62 = lean::cnstr_get(x_6, 0); -x_64 = lean::cnstr_get_scalar(x_6, sizeof(void*)*1); +x_60 = lean::cnstr_get(x_6, 0); +x_62 = lean::cnstr_get_scalar(x_6, sizeof(void*)*1); if (lean::is_exclusive(x_6)) { - x_65 = x_6; + x_63 = x_6; } else { - lean::inc(x_62); + lean::inc(x_60); lean::dec(x_6); - x_65 = lean::box(0); + x_63 = lean::box(0); } -if (lean::is_scalar(x_65)) { - x_66 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_63)) { + x_64 = lean::alloc_cnstr(1, 1, 1); } else { - x_66 = x_65; + x_64 = x_63; } -lean::cnstr_set(x_66, 0, x_62); -lean::cnstr_set_scalar(x_66, sizeof(void*)*1, x_64); -x_67 = x_66; -x_68 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_69 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_68, x_67); -x_70 = l_Lean_Parser_ident_Parser___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__4___rarg___closed__1; -x_71 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_69, x_70); -x_72 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_71); -if (lean::is_scalar(x_61)) { - x_73 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_64, 0, x_60); +lean::cnstr_set_scalar(x_64, sizeof(void*)*1, x_62); +x_65 = x_64; +x_66 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_67 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_66, x_65); +x_68 = l_Lean_Parser_ident_Parser___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__4___rarg___closed__1; +x_69 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_67, x_68); +x_70 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_69); +if (lean::is_scalar(x_59)) { + x_71 = lean::alloc_cnstr(0, 2, 0); } else { - x_73 = x_61; + x_71 = x_59; } -lean::cnstr_set(x_73, 0, x_72); -lean::cnstr_set(x_73, 1, x_59); -return x_73; +lean::cnstr_set(x_71, 0, x_70); +lean::cnstr_set(x_71, 1, x_57); +return x_71; } } } @@ -1963,7 +1930,7 @@ lean::cnstr_set(x_11, 1, x_10); if (lean::obj_tag(x_1) == 0) { obj* x_12; obj* x_13; obj* x_14; obj* x_15; -x_12 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_12 = lean::box(3); x_13 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_13, 0, x_12); lean::cnstr_set(x_13, 1, x_11); @@ -1973,32 +1940,18 @@ return x_15; } else { -obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; +obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; x_16 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_18 = x_1; -} else { - lean::inc(x_16); - lean::dec(x_1); - x_18 = lean::box(0); -} +lean::inc(x_16); +lean::dec(x_1); x_19 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_19, 0, x_16); -if (lean::is_scalar(x_18)) { - x_20 = lean::alloc_cnstr(1, 1, 0); -} else { - x_20 = x_18; -} +x_20 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_20, 0, x_19); -x_21 = lean::box(3); -x_22 = l_Option_getOrElse___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_11); -x_25 = l_Lean_Parser_Module_import; -x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); -return x_26; +lean::cnstr_set(x_20, 1, x_11); +x_21 = l_Lean_Parser_Module_import; +x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); +return x_22; } } } @@ -2649,181 +2602,273 @@ x_14 = lean::cnstr_get(x_13, 0); lean::inc(x_14); if (lean::obj_tag(x_14) == 0) { -if (lean::obj_tag(x_14) == 0) -{ -obj* x_16; obj* x_19; obj* x_21; obj* x_23; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +obj* x_16; x_16 = lean::cnstr_get(x_13, 1); lean::inc(x_16); lean::dec(x_13); -x_19 = lean::cnstr_get(x_14, 0); -x_21 = lean::cnstr_get(x_14, 1); -x_23 = lean::cnstr_get(x_14, 2); -if (lean::is_exclusive(x_14)) { - x_25 = x_14; -} else { - lean::inc(x_19); - lean::inc(x_21); - lean::inc(x_23); - lean::dec(x_14); - x_25 = lean::box(0); -} -x_26 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_26, 0, x_19); -x_27 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_25)) { - x_28 = lean::alloc_cnstr(0, 3, 0); -} else { - x_28 = x_25; -} -lean::cnstr_set(x_28, 0, x_26); -lean::cnstr_set(x_28, 1, x_21); -lean::cnstr_set(x_28, 2, x_27); -x_29 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_23, x_28); -x_9 = x_29; +x_9 = x_14; x_10 = x_16; goto lbl_11; } else { -obj* x_30; obj* x_33; uint8 x_35; obj* x_36; obj* x_37; obj* x_38; -x_30 = lean::cnstr_get(x_13, 1); -lean::inc(x_30); -lean::dec(x_13); -x_33 = lean::cnstr_get(x_14, 0); -x_35 = lean::cnstr_get_scalar(x_14, sizeof(void*)*1); -if (lean::is_exclusive(x_14)) { - x_36 = x_14; -} else { - lean::inc(x_33); - lean::dec(x_14); - x_36 = lean::box(0); -} -if (lean::is_scalar(x_36)) { - x_37 = lean::alloc_cnstr(1, 1, 1); -} else { - x_37 = x_36; -} -lean::cnstr_set(x_37, 0, x_33); -lean::cnstr_set_scalar(x_37, sizeof(void*)*1, x_35); -x_38 = x_37; -x_9 = x_38; -x_10 = x_30; -goto lbl_11; -} -} -else -{ -obj* x_39; obj* x_42; uint8 x_44; obj* x_45; obj* x_46; obj* x_48; obj* x_50; obj* x_52; obj* x_55; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; -x_39 = lean::cnstr_get(x_13, 1); -lean::inc(x_39); -lean::dec(x_13); -x_42 = lean::cnstr_get(x_14, 0); -x_44 = lean::cnstr_get_scalar(x_14, sizeof(void*)*1); +obj* x_19; uint8 x_21; obj* x_22; obj* x_23; +x_19 = lean::cnstr_get(x_14, 0); +x_21 = lean::cnstr_get_scalar(x_14, sizeof(void*)*1); if (lean::is_exclusive(x_14)) { lean::cnstr_set(x_14, 0, lean::box(0)); - x_45 = x_14; + x_22 = x_14; } else { - lean::inc(x_42); + lean::inc(x_19); lean::dec(x_14); - x_45 = lean::box(0); + x_22 = lean::box(0); } -x_46 = lean::cnstr_get(x_42, 0); -lean::inc(x_46); -x_48 = lean::cnstr_get(x_42, 1); -lean::inc(x_48); -x_50 = lean::cnstr_get(x_42, 2); -lean::inc(x_50); -x_52 = lean::cnstr_get(x_42, 3); -lean::inc(x_52); -lean::dec(x_42); -x_55 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_52); -lean::dec(x_52); -x_57 = lean::box(0); -x_58 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_58, 0, x_55); -lean::cnstr_set(x_58, 1, x_57); -x_59 = l_Lean_Parser_noKind; -x_60 = l_Lean_Parser_Syntax_mkNode(x_59, x_58); -x_61 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_61, 0, x_60); -x_62 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_62, 0, x_46); -lean::cnstr_set(x_62, 1, x_48); -lean::cnstr_set(x_62, 2, x_50); -lean::cnstr_set(x_62, 3, x_61); -if (x_44 == 0) +x_23 = lean::cnstr_get(x_19, 3); +lean::inc(x_23); +if (lean::obj_tag(x_23) == 0) { -uint8 x_63; obj* x_64; obj* x_65; -x_63 = 0; -if (lean::is_scalar(x_45)) { - x_64 = lean::alloc_cnstr(1, 1, 1); +obj* x_25; obj* x_28; obj* x_30; obj* x_32; obj* x_35; obj* x_36; +x_25 = lean::cnstr_get(x_13, 1); +lean::inc(x_25); +lean::dec(x_13); +x_28 = lean::cnstr_get(x_19, 0); +lean::inc(x_28); +x_30 = lean::cnstr_get(x_19, 1); +lean::inc(x_30); +x_32 = lean::cnstr_get(x_19, 2); +lean::inc(x_32); +lean::dec(x_19); +x_35 = l_Lean_Parser_Combinators_optional___rarg___lambda__1___closed__1; +x_36 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_36, 0, x_28); +lean::cnstr_set(x_36, 1, x_30); +lean::cnstr_set(x_36, 2, x_32); +lean::cnstr_set(x_36, 3, x_35); +if (x_21 == 0) +{ +uint8 x_37; obj* x_38; obj* x_39; +x_37 = 0; +if (lean::is_scalar(x_22)) { + x_38 = lean::alloc_cnstr(1, 1, 1); } else { - x_64 = x_45; + x_38 = x_22; } -lean::cnstr_set(x_64, 0, x_62); -lean::cnstr_set_scalar(x_64, sizeof(void*)*1, x_63); -x_65 = x_64; -x_9 = x_65; -x_10 = x_39; +lean::cnstr_set(x_38, 0, x_36); +lean::cnstr_set_scalar(x_38, sizeof(void*)*1, x_37); +x_39 = x_38; +x_9 = x_39; +x_10 = x_25; goto lbl_11; } else { -uint8 x_66; obj* x_67; obj* x_68; -x_66 = 1; -if (lean::is_scalar(x_45)) { - x_67 = lean::alloc_cnstr(1, 1, 1); +uint8 x_40; obj* x_41; obj* x_42; +x_40 = 1; +if (lean::is_scalar(x_22)) { + x_41 = lean::alloc_cnstr(1, 1, 1); } else { - x_67 = x_45; + x_41 = x_22; } -lean::cnstr_set(x_67, 0, x_62); -lean::cnstr_set_scalar(x_67, sizeof(void*)*1, x_66); -x_68 = x_67; -x_9 = x_68; -x_10 = x_39; +lean::cnstr_set(x_41, 0, x_36); +lean::cnstr_set_scalar(x_41, sizeof(void*)*1, x_40); +x_42 = x_41; +x_9 = x_42; +x_10 = x_25; goto lbl_11; } } +else +{ +obj* x_43; obj* x_46; obj* x_48; obj* x_50; obj* x_53; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; +x_43 = lean::cnstr_get(x_13, 1); +lean::inc(x_43); +lean::dec(x_13); +x_46 = lean::cnstr_get(x_19, 0); +lean::inc(x_46); +x_48 = lean::cnstr_get(x_19, 1); +lean::inc(x_48); +x_50 = lean::cnstr_get(x_19, 2); +lean::inc(x_50); +lean::dec(x_19); +x_53 = lean::cnstr_get(x_23, 0); +if (lean::is_exclusive(x_23)) { + x_55 = x_23; +} else { + lean::inc(x_53); + lean::dec(x_23); + x_55 = lean::box(0); +} +x_56 = lean::box(0); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_53); +lean::cnstr_set(x_57, 1, x_56); +x_58 = l_Lean_Parser_noKind; +x_59 = l_Lean_Parser_Syntax_mkNode(x_58, x_57); +if (lean::is_scalar(x_55)) { + x_60 = lean::alloc_cnstr(1, 1, 0); +} else { + x_60 = x_55; +} +lean::cnstr_set(x_60, 0, x_59); +x_61 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_61, 0, x_46); +lean::cnstr_set(x_61, 1, x_48); +lean::cnstr_set(x_61, 2, x_50); +lean::cnstr_set(x_61, 3, x_60); +if (x_21 == 0) +{ +uint8 x_62; obj* x_63; obj* x_64; +x_62 = 0; +if (lean::is_scalar(x_22)) { + x_63 = lean::alloc_cnstr(1, 1, 1); +} else { + x_63 = x_22; +} +lean::cnstr_set(x_63, 0, x_61); +lean::cnstr_set_scalar(x_63, sizeof(void*)*1, x_62); +x_64 = x_63; +x_9 = x_64; +x_10 = x_43; +goto lbl_11; +} +else +{ +uint8 x_65; obj* x_66; obj* x_67; +x_65 = 1; +if (lean::is_scalar(x_22)) { + x_66 = lean::alloc_cnstr(1, 1, 1); +} else { + x_66 = x_22; +} +lean::cnstr_set(x_66, 0, x_61); +lean::cnstr_set_scalar(x_66, sizeof(void*)*1, x_65); +x_67 = x_66; +x_9 = x_67; +x_10 = x_43; +goto lbl_11; +} +} +} lbl_11: { if (lean::obj_tag(x_9) == 0) { +obj* x_68; obj* x_70; obj* x_72; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; +x_68 = lean::cnstr_get(x_9, 0); +x_70 = lean::cnstr_get(x_9, 1); +x_72 = lean::cnstr_get(x_9, 2); +if (lean::is_exclusive(x_9)) { + x_74 = x_9; +} else { + lean::inc(x_68); + lean::inc(x_70); + lean::inc(x_72); + lean::dec(x_9); + x_74 = lean::box(0); +} +x_75 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_75, 0, x_68); +x_76 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_74)) { + x_77 = lean::alloc_cnstr(0, 3, 0); +} else { + x_77 = x_74; +} +lean::cnstr_set(x_77, 0, x_75); +lean::cnstr_set(x_77, 1, x_70); +lean::cnstr_set(x_77, 2, x_76); +x_78 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_72, x_77); +if (lean::obj_tag(x_78) == 0) +{ lean::dec(x_3); -x_5 = x_9; +x_5 = x_78; x_6 = x_10; goto lbl_7; } else { -uint8 x_70; -x_70 = lean::cnstr_get_scalar(x_9, sizeof(void*)*1); -if (x_70 == 0) +uint8 x_80; +x_80 = lean::cnstr_get_scalar(x_78, sizeof(void*)*1); +if (x_80 == 0) { -obj* x_71; obj* x_74; obj* x_77; obj* x_78; obj* x_79; obj* x_80; -x_71 = lean::cnstr_get(x_9, 0); -lean::inc(x_71); +obj* x_81; obj* x_84; obj* x_87; obj* x_88; obj* x_89; obj* x_90; +x_81 = lean::cnstr_get(x_78, 0); +lean::inc(x_81); +lean::dec(x_78); +x_84 = lean::cnstr_get(x_81, 2); +lean::inc(x_84); +lean::dec(x_81); +x_87 = l_mjoin___rarg___closed__1; +x_88 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_88, 0, x_84); +lean::closure_set(x_88, 1, x_87); +x_89 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_89, 0, x_88); +x_90 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_90, 0, x_8); +lean::cnstr_set(x_90, 1, x_3); +lean::cnstr_set(x_90, 2, x_89); +x_5 = x_90; +x_6 = x_10; +goto lbl_7; +} +else +{ +lean::dec(x_3); +x_5 = x_78; +x_6 = x_10; +goto lbl_7; +} +} +} +else +{ +uint8 x_92; +x_92 = lean::cnstr_get_scalar(x_9, sizeof(void*)*1); +if (x_92 == 0) +{ +obj* x_93; obj* x_96; obj* x_99; obj* x_100; obj* x_101; obj* x_102; +x_93 = lean::cnstr_get(x_9, 0); +lean::inc(x_93); lean::dec(x_9); -x_74 = lean::cnstr_get(x_71, 2); -lean::inc(x_74); -lean::dec(x_71); -x_77 = l_mjoin___rarg___closed__1; -x_78 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_78, 0, x_74); -lean::closure_set(x_78, 1, x_77); -x_79 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_79, 0, x_78); -x_80 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_80, 0, x_8); -lean::cnstr_set(x_80, 1, x_3); -lean::cnstr_set(x_80, 2, x_79); -x_5 = x_80; +x_96 = lean::cnstr_get(x_93, 2); +lean::inc(x_96); +lean::dec(x_93); +x_99 = l_mjoin___rarg___closed__1; +x_100 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_100, 0, x_96); +lean::closure_set(x_100, 1, x_99); +x_101 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_101, 0, x_100); +x_102 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_102, 0, x_8); +lean::cnstr_set(x_102, 1, x_3); +lean::cnstr_set(x_102, 2, x_101); +x_5 = x_102; x_6 = x_10; goto lbl_7; } else { +obj* x_104; obj* x_106; obj* x_107; obj* x_108; lean::dec(x_3); -x_5 = x_9; +x_104 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_106 = x_9; +} else { + lean::inc(x_104); + lean::dec(x_9); + x_106 = lean::box(0); +} +if (lean::is_scalar(x_106)) { + x_107 = lean::alloc_cnstr(1, 1, 1); +} else { + x_107 = x_106; +} +lean::cnstr_set(x_107, 0, x_104); +lean::cnstr_set_scalar(x_107, sizeof(void*)*1, x_92); +x_108 = x_107; +x_5 = x_108; x_6 = x_10; goto lbl_7; } @@ -2832,110 +2877,110 @@ goto lbl_7; } else { -obj* x_82; -x_82 = lean::apply_3(x_0, x_2, x_3, x_4); -return x_82; +obj* x_109; +x_109 = lean::apply_3(x_0, x_2, x_3, x_4); +return x_109; } lbl_7: { if (lean::obj_tag(x_5) == 0) { -obj* x_83; -x_83 = lean::cnstr_get(x_5, 0); -lean::inc(x_83); -if (lean::obj_tag(x_83) == 0) +obj* x_110; +x_110 = lean::cnstr_get(x_5, 0); +lean::inc(x_110); +if (lean::obj_tag(x_110) == 0) { -obj* x_85; obj* x_87; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; -x_85 = lean::cnstr_get(x_5, 1); -x_87 = lean::cnstr_get(x_5, 2); +obj* x_112; obj* x_114; obj* x_116; obj* x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; +x_112 = lean::cnstr_get(x_5, 1); +x_114 = lean::cnstr_get(x_5, 2); if (lean::is_exclusive(x_5)) { lean::cnstr_release(x_5, 0); - x_89 = x_5; + x_116 = x_5; } else { - lean::inc(x_85); - lean::inc(x_87); + lean::inc(x_112); + lean::inc(x_114); lean::dec(x_5); - x_89 = lean::box(0); + x_116 = lean::box(0); } -x_90 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_91 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_89)) { - x_92 = lean::alloc_cnstr(0, 3, 0); +x_117 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_118 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_116)) { + x_119 = lean::alloc_cnstr(0, 3, 0); } else { - x_92 = x_89; + x_119 = x_116; } -lean::cnstr_set(x_92, 0, x_90); -lean::cnstr_set(x_92, 1, x_85); -lean::cnstr_set(x_92, 2, x_91); -x_93 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_87, x_92); -x_94 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_94, 0, x_93); -lean::cnstr_set(x_94, 1, x_6); -return x_94; +lean::cnstr_set(x_119, 0, x_117); +lean::cnstr_set(x_119, 1, x_112); +lean::cnstr_set(x_119, 2, x_118); +x_120 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_114, x_119); +x_121 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_121, 0, x_120); +lean::cnstr_set(x_121, 1, x_6); +return x_121; } else { -obj* x_95; obj* x_97; obj* x_99; obj* x_100; obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; -x_95 = lean::cnstr_get(x_5, 1); -x_97 = lean::cnstr_get(x_5, 2); +obj* x_122; obj* x_124; obj* x_126; obj* x_127; obj* x_130; obj* x_131; obj* x_132; obj* x_133; obj* x_134; obj* x_135; obj* x_136; obj* x_137; +x_122 = lean::cnstr_get(x_5, 1); +x_124 = lean::cnstr_get(x_5, 2); if (lean::is_exclusive(x_5)) { lean::cnstr_release(x_5, 0); - x_99 = x_5; + x_126 = x_5; } else { - lean::inc(x_95); - lean::inc(x_97); + lean::inc(x_122); + lean::inc(x_124); lean::dec(x_5); - x_99 = lean::box(0); + x_126 = lean::box(0); } -x_100 = lean::cnstr_get(x_83, 0); -lean::inc(x_100); -lean::dec(x_83); -x_103 = lean::box(0); -x_104 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_104, 0, x_100); -lean::cnstr_set(x_104, 1, x_103); -x_105 = l_Lean_Parser_noKind; -x_106 = l_Lean_Parser_Syntax_mkNode(x_105, x_104); -x_107 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_99)) { - x_108 = lean::alloc_cnstr(0, 3, 0); +x_127 = lean::cnstr_get(x_110, 0); +lean::inc(x_127); +lean::dec(x_110); +x_130 = lean::box(0); +x_131 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_131, 0, x_127); +lean::cnstr_set(x_131, 1, x_130); +x_132 = l_Lean_Parser_noKind; +x_133 = l_Lean_Parser_Syntax_mkNode(x_132, x_131); +x_134 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_126)) { + x_135 = lean::alloc_cnstr(0, 3, 0); } else { - x_108 = x_99; + x_135 = x_126; } -lean::cnstr_set(x_108, 0, x_106); -lean::cnstr_set(x_108, 1, x_95); -lean::cnstr_set(x_108, 2, x_107); -x_109 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_97, x_108); -x_110 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_110, 0, x_109); -lean::cnstr_set(x_110, 1, x_6); -return x_110; +lean::cnstr_set(x_135, 0, x_133); +lean::cnstr_set(x_135, 1, x_122); +lean::cnstr_set(x_135, 2, x_134); +x_136 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_124, x_135); +x_137 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_137, 0, x_136); +lean::cnstr_set(x_137, 1, x_6); +return x_137; } } else { -obj* x_111; uint8 x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; -x_111 = lean::cnstr_get(x_5, 0); -x_113 = lean::cnstr_get_scalar(x_5, sizeof(void*)*1); +obj* x_138; uint8 x_140; obj* x_141; obj* x_142; obj* x_143; obj* x_144; +x_138 = lean::cnstr_get(x_5, 0); +x_140 = lean::cnstr_get_scalar(x_5, sizeof(void*)*1); if (lean::is_exclusive(x_5)) { - x_114 = x_5; + x_141 = x_5; } else { - lean::inc(x_111); + lean::inc(x_138); lean::dec(x_5); - x_114 = lean::box(0); + x_141 = lean::box(0); } -if (lean::is_scalar(x_114)) { - x_115 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_141)) { + x_142 = lean::alloc_cnstr(1, 1, 1); } else { - x_115 = x_114; + x_142 = x_141; } -lean::cnstr_set(x_115, 0, x_111); -lean::cnstr_set_scalar(x_115, sizeof(void*)*1, x_113); -x_116 = x_115; -x_117 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_117, 0, x_116); -lean::cnstr_set(x_117, 1, x_6); -return x_117; +lean::cnstr_set(x_142, 0, x_138); +lean::cnstr_set_scalar(x_142, sizeof(void*)*1, x_140); +x_143 = x_142; +x_144 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_144, 0, x_143); +lean::cnstr_set(x_144, 1, x_6); +return x_144; } } } @@ -3051,22 +3096,46 @@ return x_8; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Module_eoi_Parser___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { _start: { -obj* x_8; obj* x_9; uint8 x_10; obj* x_11; obj* x_12; obj* x_13; -x_8 = l_Option_getOrElse___main___rarg(x_2, x_6); -x_9 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -lean::cnstr_set(x_9, 2, x_1); -lean::cnstr_set(x_9, 3, x_3); -x_10 = 0; -x_11 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_11, 0, x_9); -lean::cnstr_set_scalar(x_11, sizeof(void*)*1, x_10); -x_12 = x_11; -x_13 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_13, 0, x_12); -lean::cnstr_set(x_13, 1, x_7); -return x_13; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_8; uint8 x_9; obj* x_10; obj* x_11; obj* x_12; +x_8 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_8, 0, x_6); +lean::cnstr_set(x_8, 1, x_0); +lean::cnstr_set(x_8, 2, x_1); +lean::cnstr_set(x_8, 3, x_3); +x_9 = 0; +x_10 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_10, 0, x_8); +lean::cnstr_set_scalar(x_10, sizeof(void*)*1, x_9); +x_11 = x_10; +x_12 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_7); +return x_12; +} +else +{ +obj* x_14; obj* x_17; uint8 x_18; obj* x_19; obj* x_20; obj* x_21; +lean::dec(x_6); +x_14 = lean::cnstr_get(x_2, 0); +lean::inc(x_14); +lean::dec(x_2); +x_17 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_17, 0, x_14); +lean::cnstr_set(x_17, 1, x_0); +lean::cnstr_set(x_17, 2, x_1); +lean::cnstr_set(x_17, 3, x_3); +x_18 = 0; +x_19 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_19, 0, x_17); +lean::cnstr_set_scalar(x_19, sizeof(void*)*1, x_18); +x_20 = x_19; +x_21 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_21, 0, x_20); +lean::cnstr_set(x_21, 1, x_7); +return x_21; +} } } obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Module_eoi_Parser___spec__2(obj* x_0) { @@ -3105,7 +3174,7 @@ x_6 = lean::nat_dec_eq(x_4, x_5); lean::dec(x_4); if (x_6 == 0) { -uint32 x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_19; obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +uint32 x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_18; obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; x_8 = l_String_OldIterator_curr___main(x_2); x_9 = l_Char_quoteCore(x_8); x_10 = l_Char_HasRepr___closed__1; @@ -3115,45 +3184,44 @@ x_13 = lean::string_append(x_11, x_10); x_14 = lean::box(0); x_15 = l_Lean_Parser_MonadParsec_eoi___rarg___lambda__1___closed__1; x_16 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Module_eoi_Parser___spec__2___rarg(x_13, x_15, x_14, x_14, x_0, x_1, x_2, x_3); -lean::dec(x_2); lean::dec(x_0); -x_19 = lean::cnstr_get(x_16, 0); -x_21 = lean::cnstr_get(x_16, 1); +x_18 = lean::cnstr_get(x_16, 0); +x_20 = lean::cnstr_get(x_16, 1); if (lean::is_exclusive(x_16)) { - x_23 = x_16; + x_22 = x_16; } else { - lean::inc(x_19); - lean::inc(x_21); + lean::inc(x_18); + lean::inc(x_20); lean::dec(x_16); - x_23 = lean::box(0); + x_22 = lean::box(0); } -x_24 = l_Lean_Parser_finishCommentBlock___closed__2; -x_25 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_24, x_19); -if (lean::is_scalar(x_23)) { - x_26 = lean::alloc_cnstr(0, 2, 0); +x_23 = l_Lean_Parser_finishCommentBlock___closed__2; +x_24 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_23, x_18); +if (lean::is_scalar(x_22)) { + x_25 = lean::alloc_cnstr(0, 2, 0); } else { - x_26 = x_23; + x_25 = x_22; } -lean::cnstr_set(x_26, 0, x_25); -lean::cnstr_set(x_26, 1, x_21); -return x_26; +lean::cnstr_set(x_25, 0, x_24); +lean::cnstr_set(x_25, 1, x_20); +return x_25; } else { -obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; -x_27 = lean::box(0); -x_28 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_28, 0, x_27); -lean::cnstr_set(x_28, 1, x_0); -x_29 = l_Lean_Parser_MonadParsec_eoi___at_Lean_Parser_Module_eoi_Parser___spec__1___closed__1; -x_30 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_30, 0, x_28); -lean::cnstr_set(x_30, 1, x_2); -lean::cnstr_set(x_30, 2, x_29); -x_31 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_31, 0, x_30); -lean::cnstr_set(x_31, 1, x_3); -return x_31; +obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; +x_26 = lean::box(0); +x_27 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_0); +x_28 = l_Lean_Parser_MonadParsec_eoi___at_Lean_Parser_Module_eoi_Parser___spec__1___closed__1; +x_29 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_29, 0, x_27); +lean::cnstr_set(x_29, 1, x_2); +lean::cnstr_set(x_29, 2, x_28); +x_30 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_30, 0, x_29); +lean::cnstr_set(x_30, 1, x_3); +return x_30; } } } @@ -3298,10 +3366,8 @@ _start: { obj* x_8; x_8 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Module_eoi_Parser___spec__2___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7); -lean::dec(x_2); lean::dec(x_4); lean::dec(x_5); -lean::dec(x_6); return x_8; } } @@ -3371,90 +3437,88 @@ uint8 x_4; x_4 = l_String_OldIterator_hasNext___main(x_2); if (x_4 == 0) { -obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_11; obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; +obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; x_5 = lean::box(0); x_6 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_7 = l_mjoin___rarg___closed__1; x_8 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Module_eoi_Parser___spec__2___rarg(x_6, x_7, x_5, x_5, x_0, x_1, x_2, x_3); -lean::dec(x_2); lean::dec(x_0); -x_11 = lean::cnstr_get(x_8, 0); -x_13 = lean::cnstr_get(x_8, 1); +x_10 = lean::cnstr_get(x_8, 0); +x_12 = lean::cnstr_get(x_8, 1); if (lean::is_exclusive(x_8)) { - x_15 = x_8; + x_14 = x_8; } else { - lean::inc(x_11); - lean::inc(x_13); + lean::inc(x_10); + lean::inc(x_12); lean::dec(x_8); - x_15 = lean::box(0); + x_14 = lean::box(0); } -x_16 = l_Lean_Parser_finishCommentBlock___closed__2; -x_17 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_11); -if (lean::is_scalar(x_15)) { - x_18 = lean::alloc_cnstr(0, 2, 0); +x_15 = l_Lean_Parser_finishCommentBlock___closed__2; +x_16 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_10); +if (lean::is_scalar(x_14)) { + x_17 = lean::alloc_cnstr(0, 2, 0); } else { - x_18 = x_15; + x_17 = x_14; } -lean::cnstr_set(x_18, 0, x_17); -lean::cnstr_set(x_18, 1, x_13); -return x_18; +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_12); +return x_17; } else { -uint32 x_19; uint8 x_20; -x_19 = l_String_OldIterator_curr___main(x_2); -x_20 = l_True_Decidable; -if (x_20 == 0) +uint32 x_18; uint8 x_19; +x_18 = l_String_OldIterator_curr___main(x_2); +x_19 = l_True_Decidable; +if (x_19 == 0) { -obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_31; obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; -x_21 = l_Char_quoteCore(x_19); -x_22 = l_Char_HasRepr___closed__1; -x_23 = lean::string_append(x_22, x_21); -lean::dec(x_21); -x_25 = lean::string_append(x_23, x_22); -x_26 = lean::box(0); -x_27 = l_mjoin___rarg___closed__1; -x_28 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Module_eoi_Parser___spec__2___rarg(x_25, x_27, x_26, x_26, x_0, x_1, x_2, x_3); -lean::dec(x_2); +obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_36; +x_20 = l_Char_quoteCore(x_18); +x_21 = l_Char_HasRepr___closed__1; +x_22 = lean::string_append(x_21, x_20); +lean::dec(x_20); +x_24 = lean::string_append(x_22, x_21); +x_25 = lean::box(0); +x_26 = l_mjoin___rarg___closed__1; +x_27 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Module_eoi_Parser___spec__2___rarg(x_24, x_26, x_25, x_25, x_0, x_1, x_2, x_3); lean::dec(x_0); -x_31 = lean::cnstr_get(x_28, 0); -x_33 = lean::cnstr_get(x_28, 1); -if (lean::is_exclusive(x_28)) { - x_35 = x_28; +x_29 = lean::cnstr_get(x_27, 0); +x_31 = lean::cnstr_get(x_27, 1); +if (lean::is_exclusive(x_27)) { + x_33 = x_27; } else { + lean::inc(x_29); lean::inc(x_31); - lean::inc(x_33); - lean::dec(x_28); - x_35 = lean::box(0); + lean::dec(x_27); + x_33 = lean::box(0); } -x_36 = l_Lean_Parser_finishCommentBlock___closed__2; -x_37 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_36, x_31); -if (lean::is_scalar(x_35)) { - x_38 = lean::alloc_cnstr(0, 2, 0); +x_34 = l_Lean_Parser_finishCommentBlock___closed__2; +x_35 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_34, x_29); +if (lean::is_scalar(x_33)) { + x_36 = lean::alloc_cnstr(0, 2, 0); } else { - x_38 = x_35; + x_36 = x_33; } -lean::cnstr_set(x_38, 0, x_37); -lean::cnstr_set(x_38, 1, x_33); -return x_38; +lean::cnstr_set(x_36, 0, x_35); +lean::cnstr_set(x_36, 1, x_31); +return x_36; } else { -obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; -x_39 = l_String_OldIterator_next___main(x_2); -x_40 = lean::box(0); -x_41 = lean::box_uint32(x_19); +obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; +x_37 = l_String_OldIterator_next___main(x_2); +x_38 = lean::box(0); +x_39 = lean::box_uint32(x_18); +x_40 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_40, 0, x_39); +lean::cnstr_set(x_40, 1, x_0); +x_41 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_41, 0, x_40); +lean::cnstr_set(x_41, 1, x_37); +lean::cnstr_set(x_41, 2, x_38); x_42 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_42, 0, x_41); -lean::cnstr_set(x_42, 1, x_0); -x_43 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_43, 0, x_42); -lean::cnstr_set(x_43, 1, x_39); -lean::cnstr_set(x_43, 2, x_40); -x_44 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_44, 0, x_43); -lean::cnstr_set(x_44, 1, x_3); -return x_44; +lean::cnstr_set(x_42, 1, x_3); +return x_42; } } } @@ -3494,6 +3558,21 @@ return x_20; obj* _init_l___private_init_lean_parser_module_1__commandWrecAux___main___closed__1() { _start: { +obj* x_0; obj* x_1; uint8 x_2; obj* x_3; obj* x_4; +x_0 = lean::box(3); +x_1 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1, 0, x_0); +x_2 = 1; +x_3 = lean::box(x_2); +x_4 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_4, 0, x_3); +lean::cnstr_set(x_4, 1, x_1); +return x_4; +} +} +obj* _init_l___private_init_lean_parser_module_1__commandWrecAux___main___closed__2() { +_start: +{ obj* x_0; uint8 x_1; obj* x_2; obj* x_3; x_0 = lean::box(0); x_1 = 1; @@ -3504,7 +3583,7 @@ lean::cnstr_set(x_3, 1, x_0); return x_3; } } -obj* _init_l___private_init_lean_parser_module_1__commandWrecAux___main___closed__2() { +obj* _init_l___private_init_lean_parser_module_1__commandWrecAux___main___closed__3() { _start: { obj* x_0; @@ -3834,185 +3913,302 @@ x_139 = lean::cnstr_get(x_138, 0); lean::inc(x_139); if (lean::obj_tag(x_139) == 0) { -obj* x_141; obj* x_143; obj* x_145; obj* x_146; obj* x_148; obj* x_150; obj* x_151; obj* x_153; obj* x_154; obj* x_157; obj* x_159; uint8 x_160; obj* x_161; obj* x_162; obj* x_163; obj* x_164; obj* x_165; obj* x_166; +obj* x_141; obj* x_143; x_141 = lean::cnstr_get(x_139, 0); lean::inc(x_141); -x_143 = lean::cnstr_get(x_138, 1); -if (lean::is_exclusive(x_138)) { - lean::cnstr_release(x_138, 0); - x_145 = x_138; -} else { - lean::inc(x_143); - lean::dec(x_138); - x_145 = lean::box(0); -} -x_146 = lean::cnstr_get(x_139, 1); -x_148 = lean::cnstr_get(x_139, 2); +x_143 = lean::cnstr_get(x_130, 3); +lean::inc(x_143); +lean::dec(x_130); +if (lean::obj_tag(x_143) == 0) +{ +obj* x_146; obj* x_149; obj* x_151; obj* x_153; obj* x_154; obj* x_156; obj* x_157; obj* x_158; obj* x_159; obj* x_160; obj* x_161; +x_146 = lean::cnstr_get(x_138, 1); +lean::inc(x_146); +lean::dec(x_138); +x_149 = lean::cnstr_get(x_139, 1); +x_151 = lean::cnstr_get(x_139, 2); if (lean::is_exclusive(x_139)) { lean::cnstr_release(x_139, 0); - x_150 = x_139; -} else { - lean::inc(x_146); - lean::inc(x_148); - lean::dec(x_139); - x_150 = lean::box(0); -} -x_151 = lean::cnstr_get(x_141, 1); -if (lean::is_exclusive(x_141)) { - lean::cnstr_release(x_141, 0); - x_153 = x_141; + x_153 = x_139; } else { + lean::inc(x_149); lean::inc(x_151); - lean::dec(x_141); + lean::dec(x_139); x_153 = lean::box(0); } -x_154 = lean::cnstr_get(x_130, 3); -lean::inc(x_154); -lean::dec(x_130); -x_157 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_154); -lean::dec(x_154); -x_159 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_159, 0, x_157); -x_160 = 1; -x_161 = lean::box(x_160); +x_154 = lean::cnstr_get(x_141, 1); +if (lean::is_exclusive(x_141)) { + lean::cnstr_release(x_141, 0); + x_156 = x_141; +} else { + lean::inc(x_154); + lean::dec(x_141); + x_156 = lean::box(0); +} +x_157 = l___private_init_lean_parser_module_1__commandWrecAux___main___closed__1; +if (lean::is_scalar(x_156)) { + x_158 = lean::alloc_cnstr(0, 2, 0); +} else { + x_158 = x_156; +} +lean::cnstr_set(x_158, 0, x_157); +lean::cnstr_set(x_158, 1, x_154); +x_159 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; if (lean::is_scalar(x_153)) { - x_162 = lean::alloc_cnstr(0, 2, 0); + x_160 = lean::alloc_cnstr(0, 3, 0); } else { - x_162 = x_153; + x_160 = x_153; } -lean::cnstr_set(x_162, 0, x_161); -lean::cnstr_set(x_162, 1, x_159); -if (lean::is_scalar(x_145)) { - x_163 = lean::alloc_cnstr(0, 2, 0); -} else { - x_163 = x_145; -} -lean::cnstr_set(x_163, 0, x_162); -lean::cnstr_set(x_163, 1, x_151); -x_164 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_150)) { - x_165 = lean::alloc_cnstr(0, 3, 0); -} else { - x_165 = x_150; -} -lean::cnstr_set(x_165, 0, x_163); -lean::cnstr_set(x_165, 1, x_146); -lean::cnstr_set(x_165, 2, x_164); -x_166 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_148, x_165); -if (lean::obj_tag(x_166) == 0) +lean::cnstr_set(x_160, 0, x_158); +lean::cnstr_set(x_160, 1, x_149); +lean::cnstr_set(x_160, 2, x_159); +x_161 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_151, x_160); +if (lean::obj_tag(x_161) == 0) { -x_11 = x_166; -x_12 = x_143; +x_11 = x_161; +x_12 = x_146; goto lbl_13; } else { -uint8 x_167; -x_167 = lean::cnstr_get_scalar(x_166, sizeof(void*)*1); +uint8 x_162; +x_162 = lean::cnstr_get_scalar(x_161, sizeof(void*)*1); if (x_132 == 0) { -obj* x_168; obj* x_170; obj* x_171; obj* x_172; -x_168 = lean::cnstr_get(x_166, 0); -if (lean::is_exclusive(x_166)) { - x_170 = x_166; +obj* x_163; obj* x_165; obj* x_166; obj* x_167; +x_163 = lean::cnstr_get(x_161, 0); +if (lean::is_exclusive(x_161)) { + x_165 = x_161; +} else { + lean::inc(x_163); + lean::dec(x_161); + x_165 = lean::box(0); +} +if (lean::is_scalar(x_165)) { + x_166 = lean::alloc_cnstr(1, 1, 1); +} else { + x_166 = x_165; +} +lean::cnstr_set(x_166, 0, x_163); +lean::cnstr_set_scalar(x_166, sizeof(void*)*1, x_162); +x_167 = x_166; +x_11 = x_167; +x_12 = x_146; +goto lbl_13; +} +else +{ +obj* x_168; obj* x_170; uint8 x_171; obj* x_172; obj* x_173; +x_168 = lean::cnstr_get(x_161, 0); +if (lean::is_exclusive(x_161)) { + x_170 = x_161; } else { lean::inc(x_168); - lean::dec(x_166); + lean::dec(x_161); x_170 = lean::box(0); } +x_171 = 1; if (lean::is_scalar(x_170)) { - x_171 = lean::alloc_cnstr(1, 1, 1); + x_172 = lean::alloc_cnstr(1, 1, 1); } else { - x_171 = x_170; + x_172 = x_170; } -lean::cnstr_set(x_171, 0, x_168); -lean::cnstr_set_scalar(x_171, sizeof(void*)*1, x_167); -x_172 = x_171; -x_11 = x_172; -x_12 = x_143; -goto lbl_13; -} -else -{ -obj* x_173; obj* x_175; obj* x_176; obj* x_177; -x_173 = lean::cnstr_get(x_166, 0); -if (lean::is_exclusive(x_166)) { - x_175 = x_166; -} else { - lean::inc(x_173); - lean::dec(x_166); - x_175 = lean::box(0); -} -if (lean::is_scalar(x_175)) { - x_176 = lean::alloc_cnstr(1, 1, 1); -} else { - x_176 = x_175; -} -lean::cnstr_set(x_176, 0, x_173); -lean::cnstr_set_scalar(x_176, sizeof(void*)*1, x_160); -x_177 = x_176; -x_11 = x_177; -x_12 = x_143; +lean::cnstr_set(x_172, 0, x_168); +lean::cnstr_set_scalar(x_172, sizeof(void*)*1, x_171); +x_173 = x_172; +x_11 = x_173; +x_12 = x_146; goto lbl_13; } } } else { -uint8 x_179; -lean::dec(x_130); -x_179 = lean::cnstr_get_scalar(x_139, sizeof(void*)*1); +obj* x_174; obj* x_176; obj* x_177; obj* x_179; obj* x_181; obj* x_182; obj* x_184; obj* x_185; obj* x_187; obj* x_188; uint8 x_189; obj* x_190; obj* x_191; obj* x_192; obj* x_193; obj* x_194; obj* x_195; +x_174 = lean::cnstr_get(x_138, 1); +if (lean::is_exclusive(x_138)) { + lean::cnstr_release(x_138, 0); + x_176 = x_138; +} else { + lean::inc(x_174); + lean::dec(x_138); + x_176 = lean::box(0); +} +x_177 = lean::cnstr_get(x_139, 1); +x_179 = lean::cnstr_get(x_139, 2); +if (lean::is_exclusive(x_139)) { + lean::cnstr_release(x_139, 0); + x_181 = x_139; +} else { + lean::inc(x_177); + lean::inc(x_179); + lean::dec(x_139); + x_181 = lean::box(0); +} +x_182 = lean::cnstr_get(x_141, 1); +if (lean::is_exclusive(x_141)) { + lean::cnstr_release(x_141, 0); + x_184 = x_141; +} else { + lean::inc(x_182); + lean::dec(x_141); + x_184 = lean::box(0); +} +x_185 = lean::cnstr_get(x_143, 0); +if (lean::is_exclusive(x_143)) { + x_187 = x_143; +} else { + lean::inc(x_185); + lean::dec(x_143); + x_187 = lean::box(0); +} +if (lean::is_scalar(x_187)) { + x_188 = lean::alloc_cnstr(1, 1, 0); +} else { + x_188 = x_187; +} +lean::cnstr_set(x_188, 0, x_185); +x_189 = 1; +x_190 = lean::box(x_189); +if (lean::is_scalar(x_184)) { + x_191 = lean::alloc_cnstr(0, 2, 0); +} else { + x_191 = x_184; +} +lean::cnstr_set(x_191, 0, x_190); +lean::cnstr_set(x_191, 1, x_188); +if (lean::is_scalar(x_176)) { + x_192 = lean::alloc_cnstr(0, 2, 0); +} else { + x_192 = x_176; +} +lean::cnstr_set(x_192, 0, x_191); +lean::cnstr_set(x_192, 1, x_182); +x_193 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_181)) { + x_194 = lean::alloc_cnstr(0, 3, 0); +} else { + x_194 = x_181; +} +lean::cnstr_set(x_194, 0, x_192); +lean::cnstr_set(x_194, 1, x_177); +lean::cnstr_set(x_194, 2, x_193); +x_195 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_179, x_194); +if (lean::obj_tag(x_195) == 0) +{ +x_11 = x_195; +x_12 = x_174; +goto lbl_13; +} +else +{ +uint8 x_196; +x_196 = lean::cnstr_get_scalar(x_195, sizeof(void*)*1); if (x_132 == 0) { -obj* x_180; obj* x_183; obj* x_185; obj* x_186; obj* x_187; -x_180 = lean::cnstr_get(x_138, 1); -lean::inc(x_180); -lean::dec(x_138); -x_183 = lean::cnstr_get(x_139, 0); -if (lean::is_exclusive(x_139)) { - x_185 = x_139; +obj* x_197; obj* x_199; obj* x_200; obj* x_201; +x_197 = lean::cnstr_get(x_195, 0); +if (lean::is_exclusive(x_195)) { + x_199 = x_195; } else { - lean::inc(x_183); - lean::dec(x_139); - x_185 = lean::box(0); + lean::inc(x_197); + lean::dec(x_195); + x_199 = lean::box(0); } -if (lean::is_scalar(x_185)) { - x_186 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_199)) { + x_200 = lean::alloc_cnstr(1, 1, 1); } else { - x_186 = x_185; + x_200 = x_199; } -lean::cnstr_set(x_186, 0, x_183); -lean::cnstr_set_scalar(x_186, sizeof(void*)*1, x_179); -x_187 = x_186; -x_11 = x_187; -x_12 = x_180; +lean::cnstr_set(x_200, 0, x_197); +lean::cnstr_set_scalar(x_200, sizeof(void*)*1, x_196); +x_201 = x_200; +x_11 = x_201; +x_12 = x_174; goto lbl_13; } else { -obj* x_188; obj* x_191; obj* x_193; uint8 x_194; obj* x_195; obj* x_196; -x_188 = lean::cnstr_get(x_138, 1); -lean::inc(x_188); +obj* x_202; obj* x_204; obj* x_205; obj* x_206; +x_202 = lean::cnstr_get(x_195, 0); +if (lean::is_exclusive(x_195)) { + x_204 = x_195; +} else { + lean::inc(x_202); + lean::dec(x_195); + x_204 = lean::box(0); +} +if (lean::is_scalar(x_204)) { + x_205 = lean::alloc_cnstr(1, 1, 1); +} else { + x_205 = x_204; +} +lean::cnstr_set(x_205, 0, x_202); +lean::cnstr_set_scalar(x_205, sizeof(void*)*1, x_189); +x_206 = x_205; +x_11 = x_206; +x_12 = x_174; +goto lbl_13; +} +} +} +} +else +{ +uint8 x_208; +lean::dec(x_130); +x_208 = lean::cnstr_get_scalar(x_139, sizeof(void*)*1); +if (x_132 == 0) +{ +obj* x_209; obj* x_212; obj* x_214; obj* x_215; obj* x_216; +x_209 = lean::cnstr_get(x_138, 1); +lean::inc(x_209); lean::dec(x_138); -x_191 = lean::cnstr_get(x_139, 0); +x_212 = lean::cnstr_get(x_139, 0); if (lean::is_exclusive(x_139)) { - x_193 = x_139; + x_214 = x_139; } else { - lean::inc(x_191); + lean::inc(x_212); lean::dec(x_139); - x_193 = lean::box(0); + x_214 = lean::box(0); } -x_194 = 1; -if (lean::is_scalar(x_193)) { - x_195 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_214)) { + x_215 = lean::alloc_cnstr(1, 1, 1); } else { - x_195 = x_193; + x_215 = x_214; } -lean::cnstr_set(x_195, 0, x_191); -lean::cnstr_set_scalar(x_195, sizeof(void*)*1, x_194); -x_196 = x_195; -x_11 = x_196; -x_12 = x_188; +lean::cnstr_set(x_215, 0, x_212); +lean::cnstr_set_scalar(x_215, sizeof(void*)*1, x_208); +x_216 = x_215; +x_11 = x_216; +x_12 = x_209; +goto lbl_13; +} +else +{ +obj* x_217; obj* x_220; obj* x_222; uint8 x_223; obj* x_224; obj* x_225; +x_217 = lean::cnstr_get(x_138, 1); +lean::inc(x_217); +lean::dec(x_138); +x_220 = lean::cnstr_get(x_139, 0); +if (lean::is_exclusive(x_139)) { + x_222 = x_139; +} else { + lean::inc(x_220); + lean::dec(x_139); + x_222 = lean::box(0); +} +x_223 = 1; +if (lean::is_scalar(x_222)) { + x_224 = lean::alloc_cnstr(1, 1, 1); +} else { + x_224 = x_222; +} +lean::cnstr_set(x_224, 0, x_220); +lean::cnstr_set_scalar(x_224, sizeof(void*)*1, x_223); +x_225 = x_224; +x_11 = x_225; +x_12 = x_217; goto lbl_13; } } @@ -4020,616 +4216,616 @@ goto lbl_13; } lbl_18: { -obj* x_197; obj* x_198; obj* x_200; obj* x_202; obj* x_204; obj* x_206; obj* x_207; -x_200 = lean::cnstr_get(x_3, 1); -lean::inc(x_200); -x_202 = lean::cnstr_get(x_3, 0); -lean::inc(x_202); -x_204 = l___private_init_lean_parser_module_1__commandWrecAux___main___closed__2; +obj* x_226; obj* x_227; obj* x_229; obj* x_231; obj* x_233; obj* x_235; obj* x_236; +x_229 = lean::cnstr_get(x_3, 1); +lean::inc(x_229); +x_231 = lean::cnstr_get(x_3, 0); +lean::inc(x_231); +x_233 = l___private_init_lean_parser_module_1__commandWrecAux___main___closed__3; lean::inc(x_4); -x_206 = l_Lean_Parser_commandParser_run(x_200, x_204, x_202, x_4, x_5); -x_207 = lean::cnstr_get(x_206, 0); -lean::inc(x_207); -if (lean::obj_tag(x_207) == 0) +x_235 = l_Lean_Parser_commandParser_run(x_229, x_233, x_231, x_4, x_5); +x_236 = lean::cnstr_get(x_235, 0); +lean::inc(x_236); +if (lean::obj_tag(x_236) == 0) { -obj* x_209; obj* x_211; obj* x_212; obj* x_214; obj* x_216; obj* x_218; obj* x_220; obj* x_221; obj* x_222; obj* x_223; -x_209 = lean::cnstr_get(x_206, 1); -if (lean::is_exclusive(x_206)) { - lean::cnstr_release(x_206, 0); - x_211 = x_206; +obj* x_238; obj* x_240; obj* x_241; obj* x_243; obj* x_245; obj* x_247; obj* x_249; obj* x_250; obj* x_251; obj* x_252; +x_238 = lean::cnstr_get(x_235, 1); +if (lean::is_exclusive(x_235)) { + lean::cnstr_release(x_235, 0); + x_240 = x_235; } else { - lean::inc(x_209); - lean::dec(x_206); - x_211 = lean::box(0); + lean::inc(x_238); + lean::dec(x_235); + x_240 = lean::box(0); } -x_212 = lean::cnstr_get(x_207, 0); -x_214 = lean::cnstr_get(x_207, 1); -x_216 = lean::cnstr_get(x_207, 2); -if (lean::is_exclusive(x_207)) { - x_218 = x_207; +x_241 = lean::cnstr_get(x_236, 0); +x_243 = lean::cnstr_get(x_236, 1); +x_245 = lean::cnstr_get(x_236, 2); +if (lean::is_exclusive(x_236)) { + x_247 = x_236; } else { - lean::inc(x_212); - lean::inc(x_214); - lean::inc(x_216); - lean::dec(x_207); - x_218 = lean::box(0); + lean::inc(x_241); + lean::inc(x_243); + lean::inc(x_245); + lean::dec(x_236); + x_247 = lean::box(0); } lean::inc(x_2); -if (lean::is_scalar(x_211)) { - x_220 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_240)) { + x_249 = lean::alloc_cnstr(0, 2, 0); } else { - x_220 = x_211; + x_249 = x_240; } -lean::cnstr_set(x_220, 0, x_212); -lean::cnstr_set(x_220, 1, x_2); -x_221 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_218)) { - x_222 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_249, 0, x_241); +lean::cnstr_set(x_249, 1, x_2); +x_250 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_247)) { + x_251 = lean::alloc_cnstr(0, 3, 0); } else { - x_222 = x_218; + x_251 = x_247; } -lean::cnstr_set(x_222, 0, x_220); -lean::cnstr_set(x_222, 1, x_214); -lean::cnstr_set(x_222, 2, x_221); -x_223 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_216, x_222); -if (lean::obj_tag(x_223) == 0) +lean::cnstr_set(x_251, 0, x_249); +lean::cnstr_set(x_251, 1, x_243); +lean::cnstr_set(x_251, 2, x_250); +x_252 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_245, x_251); +if (lean::obj_tag(x_252) == 0) { -obj* x_224; obj* x_226; obj* x_228; obj* x_230; obj* x_231; obj* x_233; obj* x_235; obj* x_236; uint8 x_237; obj* x_238; obj* x_239; obj* x_240; obj* x_241; obj* x_242; obj* x_243; obj* x_244; -x_224 = lean::cnstr_get(x_223, 0); -x_226 = lean::cnstr_get(x_223, 1); -x_228 = lean::cnstr_get(x_223, 2); -if (lean::is_exclusive(x_223)) { - x_230 = x_223; +obj* x_253; obj* x_255; obj* x_257; obj* x_259; obj* x_260; obj* x_262; obj* x_264; obj* x_265; uint8 x_266; obj* x_267; obj* x_268; obj* x_269; obj* x_270; obj* x_271; obj* x_272; obj* x_273; +x_253 = lean::cnstr_get(x_252, 0); +x_255 = lean::cnstr_get(x_252, 1); +x_257 = lean::cnstr_get(x_252, 2); +if (lean::is_exclusive(x_252)) { + x_259 = x_252; } else { - lean::inc(x_224); - lean::inc(x_226); - lean::inc(x_228); - lean::dec(x_223); - x_230 = lean::box(0); -} -x_231 = lean::cnstr_get(x_224, 0); -x_233 = lean::cnstr_get(x_224, 1); -if (lean::is_exclusive(x_224)) { - x_235 = x_224; -} else { - lean::inc(x_231); - lean::inc(x_233); - lean::dec(x_224); - x_235 = lean::box(0); -} -x_236 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_236, 0, x_231); -x_237 = 0; -x_238 = lean::box(x_237); -if (lean::is_scalar(x_235)) { - x_239 = lean::alloc_cnstr(0, 2, 0); -} else { - x_239 = x_235; -} -lean::cnstr_set(x_239, 0, x_238); -lean::cnstr_set(x_239, 1, x_236); -x_240 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_240, 0, x_239); -lean::cnstr_set(x_240, 1, x_233); -if (lean::is_scalar(x_230)) { - x_241 = lean::alloc_cnstr(0, 3, 0); -} else { - x_241 = x_230; -} -lean::cnstr_set(x_241, 0, x_240); -lean::cnstr_set(x_241, 1, x_226); -lean::cnstr_set(x_241, 2, x_221); -x_242 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_228, x_241); -x_243 = l_Lean_Parser_finishCommentBlock___closed__2; -x_244 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_243, x_242); -x_197 = x_244; -x_198 = x_209; -goto lbl_199; -} -else -{ -obj* x_245; uint8 x_247; obj* x_248; obj* x_249; obj* x_250; obj* x_251; obj* x_252; -x_245 = lean::cnstr_get(x_223, 0); -x_247 = lean::cnstr_get_scalar(x_223, sizeof(void*)*1); -if (lean::is_exclusive(x_223)) { - x_248 = x_223; -} else { - lean::inc(x_245); - lean::dec(x_223); - x_248 = lean::box(0); -} -if (lean::is_scalar(x_248)) { - x_249 = lean::alloc_cnstr(1, 1, 1); -} else { - x_249 = x_248; -} -lean::cnstr_set(x_249, 0, x_245); -lean::cnstr_set_scalar(x_249, sizeof(void*)*1, x_247); -x_250 = x_249; -x_251 = l_Lean_Parser_finishCommentBlock___closed__2; -x_252 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_251, x_250); -x_197 = x_252; -x_198 = x_209; -goto lbl_199; -} -} -else -{ -obj* x_253; obj* x_256; uint8 x_258; obj* x_259; obj* x_260; obj* x_261; obj* x_262; obj* x_263; -x_253 = lean::cnstr_get(x_206, 1); -lean::inc(x_253); -lean::dec(x_206); -x_256 = lean::cnstr_get(x_207, 0); -x_258 = lean::cnstr_get_scalar(x_207, sizeof(void*)*1); -if (lean::is_exclusive(x_207)) { - x_259 = x_207; -} else { - lean::inc(x_256); - lean::dec(x_207); + lean::inc(x_253); + lean::inc(x_255); + lean::inc(x_257); + lean::dec(x_252); x_259 = lean::box(0); } -if (lean::is_scalar(x_259)) { - x_260 = lean::alloc_cnstr(1, 1, 1); +x_260 = lean::cnstr_get(x_253, 0); +x_262 = lean::cnstr_get(x_253, 1); +if (lean::is_exclusive(x_253)) { + x_264 = x_253; } else { - x_260 = x_259; + lean::inc(x_260); + lean::inc(x_262); + lean::dec(x_253); + x_264 = lean::box(0); } -lean::cnstr_set(x_260, 0, x_256); -lean::cnstr_set_scalar(x_260, sizeof(void*)*1, x_258); -x_261 = x_260; -x_262 = l_Lean_Parser_finishCommentBlock___closed__2; -x_263 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_262, x_261); -x_197 = x_263; -x_198 = x_253; -goto lbl_199; +x_265 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_265, 0, x_260); +x_266 = 0; +x_267 = lean::box(x_266); +if (lean::is_scalar(x_264)) { + x_268 = lean::alloc_cnstr(0, 2, 0); +} else { + x_268 = x_264; } -lbl_199: +lean::cnstr_set(x_268, 0, x_267); +lean::cnstr_set(x_268, 1, x_265); +x_269 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_269, 0, x_268); +lean::cnstr_set(x_269, 1, x_262); +if (lean::is_scalar(x_259)) { + x_270 = lean::alloc_cnstr(0, 3, 0); +} else { + x_270 = x_259; +} +lean::cnstr_set(x_270, 0, x_269); +lean::cnstr_set(x_270, 1, x_255); +lean::cnstr_set(x_270, 2, x_250); +x_271 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_257, x_270); +x_272 = l_Lean_Parser_finishCommentBlock___closed__2; +x_273 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_272, x_271); +x_226 = x_273; +x_227 = x_238; +goto lbl_228; +} +else { -if (lean::obj_tag(x_197) == 0) +obj* x_274; uint8 x_276; obj* x_277; obj* x_278; obj* x_279; obj* x_280; obj* x_281; +x_274 = lean::cnstr_get(x_252, 0); +x_276 = lean::cnstr_get_scalar(x_252, sizeof(void*)*1); +if (lean::is_exclusive(x_252)) { + x_277 = x_252; +} else { + lean::inc(x_274); + lean::dec(x_252); + x_277 = lean::box(0); +} +if (lean::is_scalar(x_277)) { + x_278 = lean::alloc_cnstr(1, 1, 1); +} else { + x_278 = x_277; +} +lean::cnstr_set(x_278, 0, x_274); +lean::cnstr_set_scalar(x_278, sizeof(void*)*1, x_276); +x_279 = x_278; +x_280 = l_Lean_Parser_finishCommentBlock___closed__2; +x_281 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_280, x_279); +x_226 = x_281; +x_227 = x_238; +goto lbl_228; +} +} +else +{ +obj* x_282; obj* x_285; uint8 x_287; obj* x_288; obj* x_289; obj* x_290; obj* x_291; obj* x_292; +x_282 = lean::cnstr_get(x_235, 1); +lean::inc(x_282); +lean::dec(x_235); +x_285 = lean::cnstr_get(x_236, 0); +x_287 = lean::cnstr_get_scalar(x_236, sizeof(void*)*1); +if (lean::is_exclusive(x_236)) { + x_288 = x_236; +} else { + lean::inc(x_285); + lean::dec(x_236); + x_288 = lean::box(0); +} +if (lean::is_scalar(x_288)) { + x_289 = lean::alloc_cnstr(1, 1, 1); +} else { + x_289 = x_288; +} +lean::cnstr_set(x_289, 0, x_285); +lean::cnstr_set_scalar(x_289, sizeof(void*)*1, x_287); +x_290 = x_289; +x_291 = l_Lean_Parser_finishCommentBlock___closed__2; +x_292 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_291, x_290); +x_226 = x_292; +x_227 = x_282; +goto lbl_228; +} +lbl_228: +{ +if (lean::obj_tag(x_226) == 0) { lean::dec(x_4); -x_14 = x_197; -x_15 = x_198; +x_14 = x_226; +x_15 = x_227; goto lbl_16; } else { -obj* x_265; uint8 x_267; obj* x_268; obj* x_269; -x_265 = lean::cnstr_get(x_197, 0); -lean::inc(x_265); -x_267 = lean::cnstr_get_scalar(x_197, sizeof(void*)*1); -if (x_267 == 0) +obj* x_294; uint8 x_296; obj* x_297; obj* x_298; +x_294 = lean::cnstr_get(x_226, 0); +lean::inc(x_294); +x_296 = lean::cnstr_get_scalar(x_226, sizeof(void*)*1); +if (x_296 == 0) { -lean::dec(x_197); +lean::dec(x_226); if (x_17 == 0) { -obj* x_272; obj* x_274; obj* x_275; obj* x_276; -x_272 = lean::box(0); +obj* x_301; obj* x_303; obj* x_304; obj* x_305; +x_301 = lean::box(0); lean::inc(x_2); -x_274 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_274, 0, x_272); -lean::cnstr_set(x_274, 1, x_2); -x_275 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_276 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_276, 0, x_274); -lean::cnstr_set(x_276, 1, x_4); -lean::cnstr_set(x_276, 2, x_275); -x_268 = x_276; -x_269 = x_198; -goto lbl_270; +x_303 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_303, 0, x_301); +lean::cnstr_set(x_303, 1, x_2); +x_304 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_305 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_305, 0, x_303); +lean::cnstr_set(x_305, 1, x_4); +lean::cnstr_set(x_305, 2, x_304); +x_297 = x_305; +x_298 = x_227; +goto lbl_299; } else { -obj* x_277; obj* x_278; obj* x_279; obj* x_281; obj* x_284; obj* x_285; obj* x_287; obj* x_290; obj* x_291; -x_277 = l_String_splitAux___main___closed__1; -x_278 = l_Lean_Parser_command_Parser___rarg___closed__1; -x_279 = l_Lean_Parser_ParsecT_MonadFail___rarg___closed__1; +obj* x_306; obj* x_307; obj* x_308; obj* x_310; obj* x_313; obj* x_314; obj* x_316; obj* x_319; obj* x_320; +x_306 = l_String_splitAux___main___closed__1; +x_307 = l_Lean_Parser_command_Parser___rarg___closed__1; +x_308 = l_Lean_Parser_ParsecT_MonadFail___rarg___closed__1; lean::inc(x_4); -x_281 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_281, 0, x_4); -lean::cnstr_set(x_281, 1, x_277); -lean::cnstr_set(x_281, 2, x_278); -lean::cnstr_set(x_281, 3, x_279); +x_310 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_310, 0, x_4); +lean::cnstr_set(x_310, 1, x_306); +lean::cnstr_set(x_310, 2, x_307); +lean::cnstr_set(x_310, 3, x_308); lean::inc(x_3); lean::inc(x_2); -x_284 = l_Lean_Parser_logMessage___at___private_init_lean_parser_module_1__commandWrecAux___main___spec__3(x_281, x_2, x_3, x_4, x_198); -x_285 = lean::cnstr_get(x_284, 0); -lean::inc(x_285); -x_287 = lean::cnstr_get(x_284, 1); -lean::inc(x_287); -lean::dec(x_284); -x_290 = l_Lean_Parser_finishCommentBlock___closed__2; -x_291 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_290, x_285); -x_268 = x_291; -x_269 = x_287; -goto lbl_270; +x_313 = l_Lean_Parser_logMessage___at___private_init_lean_parser_module_1__commandWrecAux___main___spec__3(x_310, x_2, x_3, x_4, x_227); +x_314 = lean::cnstr_get(x_313, 0); +lean::inc(x_314); +x_316 = lean::cnstr_get(x_313, 1); +lean::inc(x_316); +lean::dec(x_313); +x_319 = l_Lean_Parser_finishCommentBlock___closed__2; +x_320 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_319, x_314); +x_297 = x_320; +x_298 = x_316; +goto lbl_299; } } else { -lean::dec(x_265); +lean::dec(x_294); lean::dec(x_4); -x_14 = x_197; -x_15 = x_198; +x_14 = x_226; +x_15 = x_227; goto lbl_16; } -lbl_270: +lbl_299: { -if (lean::obj_tag(x_268) == 0) +if (lean::obj_tag(x_297) == 0) { -obj* x_294; obj* x_296; obj* x_298; obj* x_301; obj* x_302; obj* x_304; obj* x_307; obj* x_308; obj* x_310; obj* x_312; obj* x_316; obj* x_317; -x_294 = lean::cnstr_get(x_268, 0); -lean::inc(x_294); -x_296 = lean::cnstr_get(x_268, 1); -lean::inc(x_296); -x_298 = lean::cnstr_get(x_268, 2); -lean::inc(x_298); -lean::dec(x_268); -x_304 = lean::cnstr_get(x_294, 1); -lean::inc(x_304); -lean::dec(x_294); -x_310 = lean::cnstr_get(x_3, 0); -lean::inc(x_310); -x_312 = lean::cnstr_get(x_310, 0); -lean::inc(x_312); -lean::dec(x_310); -lean::inc(x_296); -x_316 = l_Lean_Parser_token(x_312, x_296, x_269); -x_317 = lean::cnstr_get(x_316, 0); -lean::inc(x_317); -if (lean::obj_tag(x_317) == 0) +obj* x_323; obj* x_325; obj* x_327; obj* x_330; obj* x_331; obj* x_333; obj* x_336; obj* x_337; obj* x_339; obj* x_341; obj* x_345; obj* x_346; +x_323 = lean::cnstr_get(x_297, 0); +lean::inc(x_323); +x_325 = lean::cnstr_get(x_297, 1); +lean::inc(x_325); +x_327 = lean::cnstr_get(x_297, 2); +lean::inc(x_327); +lean::dec(x_297); +x_333 = lean::cnstr_get(x_323, 1); +lean::inc(x_333); +lean::dec(x_323); +x_339 = lean::cnstr_get(x_3, 0); +lean::inc(x_339); +x_341 = lean::cnstr_get(x_339, 0); +lean::inc(x_341); +lean::dec(x_339); +lean::inc(x_325); +x_345 = l_Lean_Parser_token(x_341, x_325, x_298); +x_346 = lean::cnstr_get(x_345, 0); +lean::inc(x_346); +if (lean::obj_tag(x_346) == 0) { -obj* x_319; obj* x_321; obj* x_322; obj* x_324; obj* x_326; obj* x_328; obj* x_330; obj* x_331; obj* x_332; obj* x_333; -x_319 = lean::cnstr_get(x_316, 1); -if (lean::is_exclusive(x_316)) { - lean::cnstr_release(x_316, 0); - x_321 = x_316; +obj* x_348; obj* x_350; obj* x_351; obj* x_353; obj* x_355; obj* x_357; obj* x_359; obj* x_360; obj* x_361; obj* x_362; +x_348 = lean::cnstr_get(x_345, 1); +if (lean::is_exclusive(x_345)) { + lean::cnstr_release(x_345, 0); + x_350 = x_345; } else { - lean::inc(x_319); - lean::dec(x_316); - x_321 = lean::box(0); + lean::inc(x_348); + lean::dec(x_345); + x_350 = lean::box(0); } -x_322 = lean::cnstr_get(x_317, 0); -x_324 = lean::cnstr_get(x_317, 1); -x_326 = lean::cnstr_get(x_317, 2); -if (lean::is_exclusive(x_317)) { - x_328 = x_317; +x_351 = lean::cnstr_get(x_346, 0); +x_353 = lean::cnstr_get(x_346, 1); +x_355 = lean::cnstr_get(x_346, 2); +if (lean::is_exclusive(x_346)) { + x_357 = x_346; } else { - lean::inc(x_322); - lean::inc(x_324); - lean::inc(x_326); - lean::dec(x_317); - x_328 = lean::box(0); + lean::inc(x_351); + lean::inc(x_353); + lean::inc(x_355); + lean::dec(x_346); + x_357 = lean::box(0); } -lean::inc(x_304); -if (lean::is_scalar(x_321)) { - x_330 = lean::alloc_cnstr(0, 2, 0); +lean::inc(x_333); +if (lean::is_scalar(x_350)) { + x_359 = lean::alloc_cnstr(0, 2, 0); } else { - x_330 = x_321; + x_359 = x_350; } -lean::cnstr_set(x_330, 0, x_322); -lean::cnstr_set(x_330, 1, x_304); -x_331 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_328)) { - x_332 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_359, 0, x_351); +lean::cnstr_set(x_359, 1, x_333); +x_360 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_357)) { + x_361 = lean::alloc_cnstr(0, 3, 0); } else { - x_332 = x_328; + x_361 = x_357; } -lean::cnstr_set(x_332, 0, x_330); -lean::cnstr_set(x_332, 1, x_324); -lean::cnstr_set(x_332, 2, x_331); -x_333 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_326, x_332); -if (lean::obj_tag(x_333) == 0) +lean::cnstr_set(x_361, 0, x_359); +lean::cnstr_set(x_361, 1, x_353); +lean::cnstr_set(x_361, 2, x_360); +x_362 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_355, x_361); +if (lean::obj_tag(x_362) == 0) { -obj* x_334; obj* x_336; obj* x_338; obj* x_340; obj* x_341; obj* x_343; obj* x_344; obj* x_345; obj* x_346; obj* x_347; obj* x_348; -x_334 = lean::cnstr_get(x_333, 0); -x_336 = lean::cnstr_get(x_333, 1); -x_338 = lean::cnstr_get(x_333, 2); -if (lean::is_exclusive(x_333)) { - x_340 = x_333; +obj* x_363; obj* x_365; obj* x_367; obj* x_369; obj* x_370; obj* x_372; obj* x_373; obj* x_374; obj* x_375; obj* x_376; obj* x_377; +x_363 = lean::cnstr_get(x_362, 0); +x_365 = lean::cnstr_get(x_362, 1); +x_367 = lean::cnstr_get(x_362, 2); +if (lean::is_exclusive(x_362)) { + x_369 = x_362; } else { - lean::inc(x_334); - lean::inc(x_336); - lean::inc(x_338); - lean::dec(x_333); - x_340 = lean::box(0); + lean::inc(x_363); + lean::inc(x_365); + lean::inc(x_367); + lean::dec(x_362); + x_369 = lean::box(0); } -x_341 = lean::cnstr_get(x_334, 1); -if (lean::is_exclusive(x_334)) { - lean::cnstr_release(x_334, 0); - x_343 = x_334; +x_370 = lean::cnstr_get(x_363, 1); +if (lean::is_exclusive(x_363)) { + lean::cnstr_release(x_363, 0); + x_372 = x_363; } else { - lean::inc(x_341); - lean::dec(x_334); - x_343 = lean::box(0); + lean::inc(x_370); + lean::dec(x_363); + x_372 = lean::box(0); } -x_344 = lean::box(0); -if (lean::is_scalar(x_343)) { - x_345 = lean::alloc_cnstr(0, 2, 0); +x_373 = lean::box(0); +if (lean::is_scalar(x_372)) { + x_374 = lean::alloc_cnstr(0, 2, 0); } else { - x_345 = x_343; + x_374 = x_372; } -lean::cnstr_set(x_345, 0, x_344); -lean::cnstr_set(x_345, 1, x_341); -if (lean::is_scalar(x_340)) { - x_346 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_374, 0, x_373); +lean::cnstr_set(x_374, 1, x_370); +if (lean::is_scalar(x_369)) { + x_375 = lean::alloc_cnstr(0, 3, 0); } else { - x_346 = x_340; -} -lean::cnstr_set(x_346, 0, x_345); -lean::cnstr_set(x_346, 1, x_336); -lean::cnstr_set(x_346, 2, x_331); -x_347 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_338, x_346); -x_348 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_347); -x_307 = x_348; -x_308 = x_319; -goto lbl_309; -} -else -{ -obj* x_349; obj* x_351; uint8 x_352; obj* x_353; obj* x_354; -x_349 = lean::cnstr_get(x_333, 0); -if (lean::is_exclusive(x_333)) { - x_351 = x_333; -} else { - lean::inc(x_349); - lean::dec(x_333); - x_351 = lean::box(0); -} -x_352 = 0; -if (lean::is_scalar(x_351)) { - x_353 = lean::alloc_cnstr(1, 1, 1); -} else { - x_353 = x_351; -} -lean::cnstr_set(x_353, 0, x_349); -lean::cnstr_set_scalar(x_353, sizeof(void*)*1, x_352); -x_354 = x_353; -x_307 = x_354; -x_308 = x_319; -goto lbl_309; -} -} -else -{ -obj* x_355; obj* x_358; obj* x_360; uint8 x_361; obj* x_362; obj* x_363; -x_355 = lean::cnstr_get(x_316, 1); -lean::inc(x_355); -lean::dec(x_316); -x_358 = lean::cnstr_get(x_317, 0); -if (lean::is_exclusive(x_317)) { - x_360 = x_317; -} else { - lean::inc(x_358); - lean::dec(x_317); - x_360 = lean::box(0); -} -x_361 = 0; -if (lean::is_scalar(x_360)) { - x_362 = lean::alloc_cnstr(1, 1, 1); -} else { - x_362 = x_360; -} -lean::cnstr_set(x_362, 0, x_358); -lean::cnstr_set_scalar(x_362, sizeof(void*)*1, x_361); -x_363 = x_362; -x_307 = x_363; -x_308 = x_355; -goto lbl_309; -} -lbl_303: -{ -if (lean::obj_tag(x_301) == 0) -{ -obj* x_364; obj* x_366; obj* x_368; obj* x_370; obj* x_371; obj* x_373; obj* x_374; obj* x_375; obj* x_376; obj* x_377; obj* x_378; obj* x_379; obj* x_380; -x_364 = lean::cnstr_get(x_301, 0); -x_366 = lean::cnstr_get(x_301, 1); -x_368 = lean::cnstr_get(x_301, 2); -if (lean::is_exclusive(x_301)) { - x_370 = x_301; -} else { - lean::inc(x_364); - lean::inc(x_366); - lean::inc(x_368); - lean::dec(x_301); - x_370 = lean::box(0); -} -x_371 = lean::cnstr_get(x_364, 1); -if (lean::is_exclusive(x_364)) { - lean::cnstr_release(x_364, 0); - x_373 = x_364; -} else { - lean::inc(x_371); - lean::dec(x_364); - x_373 = lean::box(0); -} -x_374 = l___private_init_lean_parser_module_1__commandWrecAux___main___closed__1; -if (lean::is_scalar(x_373)) { - x_375 = lean::alloc_cnstr(0, 2, 0); -} else { - x_375 = x_373; + x_375 = x_369; } lean::cnstr_set(x_375, 0, x_374); -lean::cnstr_set(x_375, 1, x_371); -x_376 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_370)) { - x_377 = lean::alloc_cnstr(0, 3, 0); -} else { - x_377 = x_370; +lean::cnstr_set(x_375, 1, x_365); +lean::cnstr_set(x_375, 2, x_360); +x_376 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_367, x_375); +x_377 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_376); +x_336 = x_377; +x_337 = x_348; +goto lbl_338; } -lean::cnstr_set(x_377, 0, x_375); -lean::cnstr_set(x_377, 1, x_366); -lean::cnstr_set(x_377, 2, x_376); -x_378 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_368, x_377); -x_379 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_298, x_378); -x_380 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_265, x_379); -x_14 = x_380; -x_15 = x_302; +else +{ +obj* x_378; obj* x_380; uint8 x_381; obj* x_382; obj* x_383; +x_378 = lean::cnstr_get(x_362, 0); +if (lean::is_exclusive(x_362)) { + x_380 = x_362; +} else { + lean::inc(x_378); + lean::dec(x_362); + x_380 = lean::box(0); +} +x_381 = 0; +if (lean::is_scalar(x_380)) { + x_382 = lean::alloc_cnstr(1, 1, 1); +} else { + x_382 = x_380; +} +lean::cnstr_set(x_382, 0, x_378); +lean::cnstr_set_scalar(x_382, sizeof(void*)*1, x_381); +x_383 = x_382; +x_336 = x_383; +x_337 = x_348; +goto lbl_338; +} +} +else +{ +obj* x_384; obj* x_387; obj* x_389; uint8 x_390; obj* x_391; obj* x_392; +x_384 = lean::cnstr_get(x_345, 1); +lean::inc(x_384); +lean::dec(x_345); +x_387 = lean::cnstr_get(x_346, 0); +if (lean::is_exclusive(x_346)) { + x_389 = x_346; +} else { + lean::inc(x_387); + lean::dec(x_346); + x_389 = lean::box(0); +} +x_390 = 0; +if (lean::is_scalar(x_389)) { + x_391 = lean::alloc_cnstr(1, 1, 1); +} else { + x_391 = x_389; +} +lean::cnstr_set(x_391, 0, x_387); +lean::cnstr_set_scalar(x_391, sizeof(void*)*1, x_390); +x_392 = x_391; +x_336 = x_392; +x_337 = x_384; +goto lbl_338; +} +lbl_332: +{ +if (lean::obj_tag(x_330) == 0) +{ +obj* x_393; obj* x_395; obj* x_397; obj* x_399; obj* x_400; obj* x_402; obj* x_403; obj* x_404; obj* x_405; obj* x_406; obj* x_407; obj* x_408; obj* x_409; +x_393 = lean::cnstr_get(x_330, 0); +x_395 = lean::cnstr_get(x_330, 1); +x_397 = lean::cnstr_get(x_330, 2); +if (lean::is_exclusive(x_330)) { + x_399 = x_330; +} else { + lean::inc(x_393); + lean::inc(x_395); + lean::inc(x_397); + lean::dec(x_330); + x_399 = lean::box(0); +} +x_400 = lean::cnstr_get(x_393, 1); +if (lean::is_exclusive(x_393)) { + lean::cnstr_release(x_393, 0); + x_402 = x_393; +} else { + lean::inc(x_400); + lean::dec(x_393); + x_402 = lean::box(0); +} +x_403 = l___private_init_lean_parser_module_1__commandWrecAux___main___closed__2; +if (lean::is_scalar(x_402)) { + x_404 = lean::alloc_cnstr(0, 2, 0); +} else { + x_404 = x_402; +} +lean::cnstr_set(x_404, 0, x_403); +lean::cnstr_set(x_404, 1, x_400); +x_405 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_399)) { + x_406 = lean::alloc_cnstr(0, 3, 0); +} else { + x_406 = x_399; +} +lean::cnstr_set(x_406, 0, x_404); +lean::cnstr_set(x_406, 1, x_395); +lean::cnstr_set(x_406, 2, x_405); +x_407 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_397, x_406); +x_408 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_327, x_407); +x_409 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_294, x_408); +x_14 = x_409; +x_15 = x_331; goto lbl_16; } else { -obj* x_381; uint8 x_383; obj* x_384; obj* x_385; obj* x_386; obj* x_387; obj* x_388; -x_381 = lean::cnstr_get(x_301, 0); -x_383 = lean::cnstr_get_scalar(x_301, sizeof(void*)*1); -if (lean::is_exclusive(x_301)) { - x_384 = x_301; +obj* x_410; uint8 x_412; obj* x_413; obj* x_414; obj* x_415; obj* x_416; obj* x_417; +x_410 = lean::cnstr_get(x_330, 0); +x_412 = lean::cnstr_get_scalar(x_330, sizeof(void*)*1); +if (lean::is_exclusive(x_330)) { + x_413 = x_330; } else { - lean::inc(x_381); - lean::dec(x_301); - x_384 = lean::box(0); + lean::inc(x_410); + lean::dec(x_330); + x_413 = lean::box(0); } -if (lean::is_scalar(x_384)) { - x_385 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_413)) { + x_414 = lean::alloc_cnstr(1, 1, 1); } else { - x_385 = x_384; + x_414 = x_413; } -lean::cnstr_set(x_385, 0, x_381); -lean::cnstr_set_scalar(x_385, sizeof(void*)*1, x_383); -x_386 = x_385; -x_387 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_298, x_386); -x_388 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_265, x_387); -x_14 = x_388; -x_15 = x_302; +lean::cnstr_set(x_414, 0, x_410); +lean::cnstr_set_scalar(x_414, sizeof(void*)*1, x_412); +x_415 = x_414; +x_416 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_327, x_415); +x_417 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_294, x_416); +x_14 = x_417; +x_15 = x_331; goto lbl_16; } } -lbl_309: +lbl_338: { -if (lean::obj_tag(x_307) == 0) +if (lean::obj_tag(x_336) == 0) { -lean::dec(x_304); -lean::dec(x_296); -x_301 = x_307; -x_302 = x_308; -goto lbl_303; +lean::dec(x_333); +lean::dec(x_325); +x_330 = x_336; +x_331 = x_337; +goto lbl_332; } else { -uint8 x_391; -x_391 = lean::cnstr_get_scalar(x_307, sizeof(void*)*1); -if (x_391 == 0) +uint8 x_420; +x_420 = lean::cnstr_get_scalar(x_336, sizeof(void*)*1); +if (x_420 == 0) { -obj* x_392; obj* x_395; obj* x_396; -x_392 = lean::cnstr_get(x_307, 0); -lean::inc(x_392); -lean::dec(x_307); -x_395 = l_Lean_Parser_MonadParsec_any___at___private_init_lean_parser_module_1__commandWrecAux___main___spec__2(x_304, x_3, x_296, x_308); -x_396 = lean::cnstr_get(x_395, 0); -lean::inc(x_396); -if (lean::obj_tag(x_396) == 0) +obj* x_421; obj* x_424; obj* x_425; +x_421 = lean::cnstr_get(x_336, 0); +lean::inc(x_421); +lean::dec(x_336); +x_424 = l_Lean_Parser_MonadParsec_any___at___private_init_lean_parser_module_1__commandWrecAux___main___spec__2(x_333, x_3, x_325, x_337); +x_425 = lean::cnstr_get(x_424, 0); +lean::inc(x_425); +if (lean::obj_tag(x_425) == 0) { -obj* x_398; obj* x_400; obj* x_403; obj* x_405; obj* x_407; obj* x_408; obj* x_410; obj* x_411; obj* x_412; obj* x_413; obj* x_414; obj* x_415; obj* x_416; -x_398 = lean::cnstr_get(x_396, 0); -lean::inc(x_398); -x_400 = lean::cnstr_get(x_395, 1); -lean::inc(x_400); -lean::dec(x_395); -x_403 = lean::cnstr_get(x_396, 1); -x_405 = lean::cnstr_get(x_396, 2); -if (lean::is_exclusive(x_396)) { - lean::cnstr_release(x_396, 0); - x_407 = x_396; +obj* x_427; obj* x_429; obj* x_432; obj* x_434; obj* x_436; obj* x_437; obj* x_439; obj* x_440; obj* x_441; obj* x_442; obj* x_443; obj* x_444; obj* x_445; +x_427 = lean::cnstr_get(x_425, 0); +lean::inc(x_427); +x_429 = lean::cnstr_get(x_424, 1); +lean::inc(x_429); +lean::dec(x_424); +x_432 = lean::cnstr_get(x_425, 1); +x_434 = lean::cnstr_get(x_425, 2); +if (lean::is_exclusive(x_425)) { + lean::cnstr_release(x_425, 0); + x_436 = x_425; } else { - lean::inc(x_403); - lean::inc(x_405); - lean::dec(x_396); - x_407 = lean::box(0); + lean::inc(x_432); + lean::inc(x_434); + lean::dec(x_425); + x_436 = lean::box(0); } -x_408 = lean::cnstr_get(x_398, 1); -if (lean::is_exclusive(x_398)) { - lean::cnstr_release(x_398, 0); - x_410 = x_398; +x_437 = lean::cnstr_get(x_427, 1); +if (lean::is_exclusive(x_427)) { + lean::cnstr_release(x_427, 0); + x_439 = x_427; } else { - lean::inc(x_408); - lean::dec(x_398); - x_410 = lean::box(0); + lean::inc(x_437); + lean::dec(x_427); + x_439 = lean::box(0); } -x_411 = lean::box(0); -if (lean::is_scalar(x_410)) { - x_412 = lean::alloc_cnstr(0, 2, 0); +x_440 = lean::box(0); +if (lean::is_scalar(x_439)) { + x_441 = lean::alloc_cnstr(0, 2, 0); } else { - x_412 = x_410; + x_441 = x_439; } -lean::cnstr_set(x_412, 0, x_411); -lean::cnstr_set(x_412, 1, x_408); -x_413 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_407)) { - x_414 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_441, 0, x_440); +lean::cnstr_set(x_441, 1, x_437); +x_442 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_436)) { + x_443 = lean::alloc_cnstr(0, 3, 0); } else { - x_414 = x_407; + x_443 = x_436; } -lean::cnstr_set(x_414, 0, x_412); -lean::cnstr_set(x_414, 1, x_403); -lean::cnstr_set(x_414, 2, x_413); -x_415 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_405, x_414); -x_416 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_392, x_415); -x_301 = x_416; -x_302 = x_400; -goto lbl_303; +lean::cnstr_set(x_443, 0, x_441); +lean::cnstr_set(x_443, 1, x_432); +lean::cnstr_set(x_443, 2, x_442); +x_444 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_434, x_443); +x_445 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_421, x_444); +x_330 = x_445; +x_331 = x_429; +goto lbl_332; } else { -obj* x_417; obj* x_420; uint8 x_422; obj* x_423; obj* x_424; obj* x_425; obj* x_426; -x_417 = lean::cnstr_get(x_395, 1); -lean::inc(x_417); -lean::dec(x_395); -x_420 = lean::cnstr_get(x_396, 0); -x_422 = lean::cnstr_get_scalar(x_396, sizeof(void*)*1); -if (lean::is_exclusive(x_396)) { - x_423 = x_396; +obj* x_446; obj* x_449; uint8 x_451; obj* x_452; obj* x_453; obj* x_454; obj* x_455; +x_446 = lean::cnstr_get(x_424, 1); +lean::inc(x_446); +lean::dec(x_424); +x_449 = lean::cnstr_get(x_425, 0); +x_451 = lean::cnstr_get_scalar(x_425, sizeof(void*)*1); +if (lean::is_exclusive(x_425)) { + x_452 = x_425; } else { - lean::inc(x_420); - lean::dec(x_396); - x_423 = lean::box(0); + lean::inc(x_449); + lean::dec(x_425); + x_452 = lean::box(0); } -if (lean::is_scalar(x_423)) { - x_424 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_452)) { + x_453 = lean::alloc_cnstr(1, 1, 1); } else { - x_424 = x_423; + x_453 = x_452; } -lean::cnstr_set(x_424, 0, x_420); -lean::cnstr_set_scalar(x_424, sizeof(void*)*1, x_422); -x_425 = x_424; -x_426 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_392, x_425); -x_301 = x_426; -x_302 = x_417; -goto lbl_303; +lean::cnstr_set(x_453, 0, x_449); +lean::cnstr_set_scalar(x_453, sizeof(void*)*1, x_451); +x_454 = x_453; +x_455 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_421, x_454); +x_330 = x_455; +x_331 = x_446; +goto lbl_332; } } else { -lean::dec(x_304); -lean::dec(x_296); -x_301 = x_307; -x_302 = x_308; -goto lbl_303; +lean::dec(x_333); +lean::dec(x_325); +x_330 = x_336; +x_331 = x_337; +goto lbl_332; } } } } else { -obj* x_429; uint8 x_431; obj* x_432; obj* x_433; obj* x_434; obj* x_435; -x_429 = lean::cnstr_get(x_268, 0); -x_431 = lean::cnstr_get_scalar(x_268, sizeof(void*)*1); -if (lean::is_exclusive(x_268)) { - x_432 = x_268; +obj* x_458; uint8 x_460; obj* x_461; obj* x_462; obj* x_463; obj* x_464; +x_458 = lean::cnstr_get(x_297, 0); +x_460 = lean::cnstr_get_scalar(x_297, sizeof(void*)*1); +if (lean::is_exclusive(x_297)) { + x_461 = x_297; } else { - lean::inc(x_429); - lean::dec(x_268); - x_432 = lean::box(0); + lean::inc(x_458); + lean::dec(x_297); + x_461 = lean::box(0); } -if (lean::is_scalar(x_432)) { - x_433 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_461)) { + x_462 = lean::alloc_cnstr(1, 1, 1); } else { - x_433 = x_432; + x_462 = x_461; } -lean::cnstr_set(x_433, 0, x_429); -lean::cnstr_set_scalar(x_433, sizeof(void*)*1, x_431); -x_434 = x_433; -x_435 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_265, x_434); -x_14 = x_435; -x_15 = x_269; +lean::cnstr_set(x_462, 0, x_458); +lean::cnstr_set_scalar(x_462, sizeof(void*)*1, x_460); +x_463 = x_462; +x_464 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_294, x_463); +x_14 = x_464; +x_15 = x_298; goto lbl_16; } } @@ -4639,15 +4835,14 @@ goto lbl_16; } else { -obj* x_436; obj* x_437; obj* x_438; obj* x_439; -x_436 = lean::box(0); -x_437 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; -x_438 = l_mjoin___rarg___closed__1; -x_439 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Module_eoi_Parser___spec__2___rarg(x_437, x_438, x_436, x_436, x_2, x_3, x_4, x_5); -lean::dec(x_4); +obj* x_465; obj* x_466; obj* x_467; obj* x_468; +x_465 = lean::box(0); +x_466 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; +x_467 = l_mjoin___rarg___closed__1; +x_468 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Module_eoi_Parser___spec__2___rarg(x_466, x_467, x_465, x_465, x_2, x_3, x_4, x_5); lean::dec(x_3); lean::dec(x_2); -return x_439; +return x_468; } } } @@ -5010,7 +5205,7 @@ if (lean::is_exclusive(x_11)) { } if (lean::obj_tag(x_12) == 0) { -obj* x_16; obj* x_18; obj* x_19; obj* x_21; obj* x_23; obj* x_26; obj* x_29; obj* x_32; obj* x_33; obj* x_34; +obj* x_16; obj* x_18; obj* x_19; obj* x_21; obj* x_24; obj* x_27; obj* x_30; obj* x_31; lean::dec(x_2); x_16 = lean::cnstr_get(x_12, 0); if (lean::is_exclusive(x_12)) { @@ -5022,99 +5217,117 @@ if (lean::is_exclusive(x_12)) { } x_19 = lean::cnstr_get(x_16, 3); lean::inc(x_19); -x_21 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_19); -lean::dec(x_19); -x_23 = lean::cnstr_get(x_0, 0); -lean::inc(x_23); +x_21 = lean::cnstr_get(x_0, 0); +lean::inc(x_21); lean::dec(x_0); -x_26 = lean::cnstr_get(x_23, 0); -lean::inc(x_26); -lean::dec(x_23); -x_29 = lean::cnstr_get(x_26, 0); -lean::inc(x_29); -lean::dec(x_26); -x_32 = l_Lean_Parser_messageOfParsecMessage___rarg(x_29, x_16); +x_24 = lean::cnstr_get(x_21, 0); +lean::inc(x_24); +lean::dec(x_21); +x_27 = lean::cnstr_get(x_24, 0); +lean::inc(x_27); +lean::dec(x_24); +x_30 = l_Lean_Parser_messageOfParsecMessage___rarg(x_27, x_16); if (lean::is_scalar(x_18)) { - x_33 = lean::alloc_cnstr(0, 1, 0); + x_31 = lean::alloc_cnstr(0, 1, 0); } else { - x_33 = x_18; + x_31 = x_18; +} +lean::cnstr_set(x_31, 0, x_30); +if (lean::obj_tag(x_19) == 0) +{ +obj* x_32; obj* x_33; +x_32 = lean::box(3); +if (lean::is_scalar(x_14)) { + x_33 = lean::alloc_cnstr(0, 2, 0); +} else { + x_33 = x_14; } lean::cnstr_set(x_33, 0, x_32); -if (lean::is_scalar(x_14)) { - x_34 = lean::alloc_cnstr(0, 2, 0); -} else { - x_34 = x_14; -} -lean::cnstr_set(x_34, 0, x_21); -lean::cnstr_set(x_34, 1, x_33); -return x_34; +lean::cnstr_set(x_33, 1, x_31); +return x_33; } else { -obj* x_37; obj* x_39; obj* x_40; obj* x_42; obj* x_45; obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_53; obj* x_55; uint8 x_56; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; +obj* x_34; obj* x_37; +x_34 = lean::cnstr_get(x_19, 0); +lean::inc(x_34); +lean::dec(x_19); +if (lean::is_scalar(x_14)) { + x_37 = lean::alloc_cnstr(0, 2, 0); +} else { + x_37 = x_14; +} +lean::cnstr_set(x_37, 0, x_34); +lean::cnstr_set(x_37, 1, x_31); +return x_37; +} +} +else +{ +obj* x_40; obj* x_42; obj* x_43; obj* x_45; obj* x_48; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_56; obj* x_58; uint8 x_59; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; lean::dec(x_14); lean::dec(x_0); -x_37 = lean::cnstr_get(x_12, 0); +x_40 = lean::cnstr_get(x_12, 0); if (lean::is_exclusive(x_12)) { - x_39 = x_12; + x_42 = x_12; } else { - lean::inc(x_37); + lean::inc(x_40); lean::dec(x_12); - x_39 = lean::box(0); + x_42 = lean::box(0); } -x_40 = lean::cnstr_get(x_37, 0); -lean::inc(x_40); -x_42 = lean::cnstr_get(x_37, 1); -lean::inc(x_42); -lean::dec(x_37); -x_45 = lean::cnstr_get(x_40, 0); -x_47 = lean::cnstr_get(x_40, 1); -if (lean::is_exclusive(x_40)) { - x_49 = x_40; +x_43 = lean::cnstr_get(x_40, 0); +lean::inc(x_43); +x_45 = lean::cnstr_get(x_40, 1); +lean::inc(x_45); +lean::dec(x_40); +x_48 = lean::cnstr_get(x_43, 0); +x_50 = lean::cnstr_get(x_43, 1); +if (lean::is_exclusive(x_43)) { + x_52 = x_43; } else { - lean::inc(x_45); - lean::inc(x_47); - lean::dec(x_40); - x_49 = lean::box(0); + lean::inc(x_48); + lean::inc(x_50); + lean::dec(x_43); + x_52 = lean::box(0); } -x_50 = lean::apply_1(x_2, x_45); -x_51 = lean::cnstr_get(x_50, 0); -x_53 = lean::cnstr_get(x_50, 1); -if (lean::is_exclusive(x_50)) { - x_55 = x_50; +x_53 = lean::apply_1(x_2, x_48); +x_54 = lean::cnstr_get(x_53, 0); +x_56 = lean::cnstr_get(x_53, 1); +if (lean::is_exclusive(x_53)) { + x_58 = x_53; } else { - lean::inc(x_51); - lean::inc(x_53); - lean::dec(x_50); - x_55 = lean::box(0); + lean::inc(x_54); + lean::inc(x_56); + lean::dec(x_53); + x_58 = lean::box(0); } -x_56 = lean::cnstr_get_scalar(x_53, sizeof(void*)*1); -lean::dec(x_53); -x_58 = lean::alloc_cnstr(0, 1, 1); -lean::cnstr_set(x_58, 0, x_47); -lean::cnstr_set_scalar(x_58, sizeof(void*)*1, x_56); -x_59 = x_58; -if (lean::is_scalar(x_55)) { - x_60 = lean::alloc_cnstr(0, 2, 0); +x_59 = lean::cnstr_get_scalar(x_56, sizeof(void*)*1); +lean::dec(x_56); +x_61 = lean::alloc_cnstr(0, 1, 1); +lean::cnstr_set(x_61, 0, x_50); +lean::cnstr_set_scalar(x_61, sizeof(void*)*1, x_59); +x_62 = x_61; +if (lean::is_scalar(x_58)) { + x_63 = lean::alloc_cnstr(0, 2, 0); } else { - x_60 = x_55; + x_63 = x_58; } -lean::cnstr_set(x_60, 0, x_59); -lean::cnstr_set(x_60, 1, x_42); -if (lean::is_scalar(x_39)) { - x_61 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_63, 0, x_62); +lean::cnstr_set(x_63, 1, x_45); +if (lean::is_scalar(x_42)) { + x_64 = lean::alloc_cnstr(1, 1, 0); } else { - x_61 = x_39; + x_64 = x_42; } -lean::cnstr_set(x_61, 0, x_60); -if (lean::is_scalar(x_49)) { - x_62 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_64, 0, x_63); +if (lean::is_scalar(x_52)) { + x_65 = lean::alloc_cnstr(0, 2, 0); } else { - x_62 = x_49; + x_65 = x_52; } -lean::cnstr_set(x_62, 0, x_51); -lean::cnstr_set(x_62, 1, x_61); -return x_62; +lean::cnstr_set(x_65, 0, x_54); +lean::cnstr_set(x_65, 1, x_64); +return x_65; } } } @@ -5679,6 +5892,8 @@ lean::mark_persistent(l_Lean_Parser_MonadParsec_eoi___at_Lean_Parser_Module_eoi_ lean::mark_persistent(l___private_init_lean_parser_module_1__commandWrecAux___main___closed__1); l___private_init_lean_parser_module_1__commandWrecAux___main___closed__2 = _init_l___private_init_lean_parser_module_1__commandWrecAux___main___closed__2(); lean::mark_persistent(l___private_init_lean_parser_module_1__commandWrecAux___main___closed__2); + l___private_init_lean_parser_module_1__commandWrecAux___main___closed__3 = _init_l___private_init_lean_parser_module_1__commandWrecAux___main___closed__3(); +lean::mark_persistent(l___private_init_lean_parser_module_1__commandWrecAux___main___closed__3); l_Lean_Parser_parseHeader___closed__1 = _init_l_Lean_Parser_parseHeader___closed__1(); lean::mark_persistent(l_Lean_Parser_parseHeader___closed__1); return w; diff --git a/src/stage0/init/lean/parser/notation.cpp b/src/stage0/init/lean/parser/notation.cpp index 02f8cb7530..097c5fbeba 100644 --- a/src/stage0/init/lean/parser/notation.cpp +++ b/src/stage0/init/lean/parser/notation.cpp @@ -104,7 +104,6 @@ obj* l_Lean_Parser_command_NotationSpec_binders_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_command_NotationSpec_binders_HasView_x_27; obj* l_Lean_Parser_command_NotationSpec_precedenceLit_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_RecT_recurse___at_Lean_Parser_Term_Parser_Lean_Parser_HasTokens___spec__1(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___rarg___closed__1; obj* l_Lean_Parser_Combinators_optional___at_Lean_Parser_command_NotationSpec_symbolQuote_Parser_Lean_Parser_HasTokens___spec__7___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_NotationSpec_precedenceOffsetOp_HasView_x_27___lambda__2___closed__1; obj* l_Lean_Parser_command_NotationSpec_precedenceOffset_HasView_x_27___lambda__1___closed__2; @@ -120,6 +119,7 @@ obj* l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenc obj* l_Lean_Parser_command_NotationSpec_scopedAction_HasView; obj* l_Lean_Parser_command_NotationSpec_symbolQuote_Parser_Lean_Parser_HasView___lambda__1___closed__1; obj* l_Lean_Parser_ident_Parser___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__4(obj*); +uint8 l_Lean_Parser_Syntax_isOfKind___main(obj*, obj*); obj* l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__1___closed__3; obj* l_Lean_Parser_command_NotationSpec_actionKind_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_command_NotationSpec_mixfixSymbol_Parser_Lean_Parser_HasView; @@ -151,7 +151,6 @@ obj* l_Lean_Parser_command_reserveNotation_HasView_x_27; obj* l_Lean_Parser_command_NotationSpec_precedenceTerm_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens; extern obj* l_Lean_Parser_number_HasView; -obj* l_Option_get___main___at_Lean_Parser_run___spec__2(obj*); obj* l_Lean_Parser_command_NotationSpec_scopedAction_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_command_NotationSpec_symbolQuote_Parser___closed__1; obj* l_Lean_Parser_command_NotationSpec_precedence; @@ -231,7 +230,6 @@ obj* l_Lean_Parser_command_NotationSpec_precedenceTerm_Parser___closed__1; obj* l_Lean_Parser_command_NotationSpec_Parser___closed__1; obj* l_Lean_Parser_raw_view___rarg___lambda__1(obj*); obj* l_Lean_Parser_Syntax_mkNode(obj*, obj*); -obj* l_Option_getOrElse___main___rarg(obj*, obj*); obj* l_Lean_Parser_command_NotationSpec_symbolQuote_Parser_Lean_Parser_HasView___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_List_foldl___main___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__3(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_NotationSpec_precedenceTerm_View_toNat___main(obj*); @@ -260,6 +258,7 @@ obj* l_List_append___rarg(obj*, obj*); obj* l_Lean_Parser_symbolCore___at_Lean_Parser_command_NotationSpec_precedenceTerm_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_NotationSpec_argument_HasView_x_27___lambda__1___closed__4; extern "C" obj* lean_name_mk_string(obj*, obj*); +extern obj* l_Lean_Parser_Combinators_optional___rarg___lambda__1___closed__1; obj* l_Lean_Parser_command_NotationSpec_mixfixSymbol_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_command_notationLike_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_ParsecT_orelseMkRes___rarg(obj*, obj*); @@ -297,7 +296,6 @@ obj* l_Lean_Parser_command_NotationSpec_precedenceTerm; obj* l_ReaderT_lift___at_Lean_Parser_command_NotationSpec_symbolQuote_Parser_Lean_Parser_HasTokens___spec__2___boxed(obj*); obj* l___private_init_lean_parser_token_3__updateTrailing___main(obj*, obj*); obj* l_Lean_Parser_command_NotationSpec_symbolQuote_Parser(obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_tryView___at_Lean_Parser_number_Parser___spec__1(obj*, obj*); obj* l_Lean_Parser_command_NotationSpec_foldActionFolder_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_command_NotationSpec_rule_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_command_NotationSpec_transition_HasView_x_27___lambda__2(obj*); @@ -315,7 +313,6 @@ obj* l_Lean_Parser_Combinators_label_view___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_command_notation_HasView; obj* l_Lean_Parser_command_NotationSpec_foldAction_HasView_x_27___lambda__2(obj*); -extern obj* l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; obj* l_ReaderT_lift___at_Lean_Parser_command_NotationSpec_symbolQuote_Parser_Lean_Parser_HasTokens___spec__2(obj*); obj* l_Lean_Parser_command_NotationSpec_transition_Parser_Lean_Parser_HasView; obj* l_Lean_Parser_command_mixfix_kind_Parser_Lean_Parser_HasTokens; @@ -456,6 +453,7 @@ obj* l_ReaderT_lift___at_Lean_Parser_command_NotationSpec_symbolQuote_Parser_Lea obj* l___private_init_lean_parser_parsec_5__takeWhileAux___main___at_Lean_Parser_command_NotationSpec_quotedSymbol_Parser_Lean_Parser_HasView___spec__2(obj*, obj*, obj*); obj* l_Lean_Parser_command_reserveMixfix_HasView_x_27___lambda__1___closed__2; extern obj* l_Lean_Parser_TermParserM_Lean_Parser_MonadParsec; +extern obj* l_Lean_Parser_number_Parser___rarg___lambda__1___closed__1; obj* l_Lean_Parser_ident_Parser___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__4___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_NotationSpec_rule_HasView_x_27; obj* l_Lean_Parser_command_NotationSpec_action_HasView; @@ -856,16 +854,6 @@ x_0 = l_Lean_Parser_command_NotationSpec_precedenceLit_HasView_x_27; return x_0; } } -obj* _init_l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___rarg___closed__1() { -_start: -{ -obj* x_0; obj* x_1; -x_0 = lean::mk_string("number"); -x_1 = lean::alloc_closure(reinterpret_cast(l_DList_singleton___rarg), 2, 1); -lean::closure_set(x_1, 0, x_0); -return x_1; -} -} obj* l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { @@ -877,7 +865,7 @@ x_7 = lean::cnstr_get(x_6, 0); lean::inc(x_7); if (lean::obj_tag(x_7) == 0) { -obj* x_9; obj* x_11; obj* x_12; obj* x_14; obj* x_16; obj* x_18; obj* x_19; obj* x_21; +obj* x_9; obj* x_11; obj* x_12; obj* x_14; obj* x_16; obj* x_18; obj* x_19; uint8 x_20; x_9 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); @@ -904,123 +892,112 @@ if (lean::is_exclusive(x_7)) { x_18 = lean::box(0); } x_19 = l_Lean_Parser_number; -lean::inc(x_12); -x_21 = l_Lean_Parser_tryView___at_Lean_Parser_number_Parser___spec__1(x_19, x_12); -if (lean::obj_tag(x_21) == 0) +x_20 = l_Lean_Parser_Syntax_isOfKind___main(x_19, x_12); +if (x_20 == 0) { -obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_33; obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; +obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; lean::dec(x_11); lean::dec(x_12); lean::dec(x_18); -x_25 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_25, 0, x_2); -x_26 = lean::box(0); -x_27 = l_String_splitAux___main___closed__1; -x_28 = l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___rarg___closed__1; -x_29 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_27, x_28, x_25, x_26, x_0, x_14, x_9); -lean::dec(x_14); +x_24 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_24, 0, x_2); +x_25 = lean::box(0); +x_26 = l_String_splitAux___main___closed__1; +x_27 = l_Lean_Parser_number_Parser___rarg___lambda__1___closed__1; +x_28 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_26, x_27, x_24, x_25, x_0, x_14, x_9); lean::dec(x_0); -lean::dec(x_25); -x_33 = lean::cnstr_get(x_29, 0); -x_35 = lean::cnstr_get(x_29, 1); -if (lean::is_exclusive(x_29)) { - x_37 = x_29; +x_30 = lean::cnstr_get(x_28, 0); +x_32 = lean::cnstr_get(x_28, 1); +if (lean::is_exclusive(x_28)) { + x_34 = x_28; } else { - lean::inc(x_33); - lean::inc(x_35); - lean::dec(x_29); - x_37 = lean::box(0); + lean::inc(x_30); + lean::inc(x_32); + lean::dec(x_28); + x_34 = lean::box(0); } -x_38 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_39 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_33); -x_40 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_39); -x_41 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_40); -x_42 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_41, x_28); -x_43 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_42); -if (lean::is_scalar(x_37)) { - x_44 = lean::alloc_cnstr(0, 2, 0); +x_35 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_30); +x_36 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_37 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_36, x_35); +x_38 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_37); +if (lean::is_scalar(x_34)) { + x_39 = lean::alloc_cnstr(0, 2, 0); } else { - x_44 = x_37; + x_39 = x_34; } -lean::cnstr_set(x_44, 0, x_43); -lean::cnstr_set(x_44, 1, x_35); -return x_44; +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_32); +return x_39; } else { -obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; lean::dec(x_0); lean::dec(x_2); -lean::dec(x_21); -x_48 = l_Lean_Parser_finishCommentBlock___closed__2; +x_42 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; if (lean::is_scalar(x_18)) { - x_49 = lean::alloc_cnstr(0, 3, 0); + x_43 = lean::alloc_cnstr(0, 3, 0); } else { - x_49 = x_18; + x_43 = x_18; } -lean::cnstr_set(x_49, 0, x_12); -lean::cnstr_set(x_49, 1, x_14); -lean::cnstr_set(x_49, 2, x_48); -x_50 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_49); -x_51 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_51, x_50); -x_53 = l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___rarg___closed__1; -x_54 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_52, x_53); -x_55 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_54); +lean::cnstr_set(x_43, 0, x_12); +lean::cnstr_set(x_43, 1, x_14); +lean::cnstr_set(x_43, 2, x_42); +x_44 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_43); +x_45 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_42, x_44); +x_46 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_45); if (lean::is_scalar(x_11)) { - x_56 = lean::alloc_cnstr(0, 2, 0); + x_47 = lean::alloc_cnstr(0, 2, 0); } else { - x_56 = x_11; + x_47 = x_11; } -lean::cnstr_set(x_56, 0, x_55); -lean::cnstr_set(x_56, 1, x_9); -return x_56; +lean::cnstr_set(x_47, 0, x_46); +lean::cnstr_set(x_47, 1, x_9); +return x_47; } } else { -obj* x_59; obj* x_61; obj* x_62; uint8 x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; +obj* x_50; obj* x_52; obj* x_53; uint8 x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; lean::dec(x_0); lean::dec(x_2); -x_59 = lean::cnstr_get(x_6, 1); +x_50 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); - x_61 = x_6; + x_52 = x_6; } else { - lean::inc(x_59); + lean::inc(x_50); lean::dec(x_6); - x_61 = lean::box(0); + x_52 = lean::box(0); } -x_62 = lean::cnstr_get(x_7, 0); -x_64 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); +x_53 = lean::cnstr_get(x_7, 0); +x_55 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); if (lean::is_exclusive(x_7)) { - x_65 = x_7; + x_56 = x_7; } else { - lean::inc(x_62); + lean::inc(x_53); lean::dec(x_7); - x_65 = lean::box(0); + x_56 = lean::box(0); } -if (lean::is_scalar(x_65)) { - x_66 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_56)) { + x_57 = lean::alloc_cnstr(1, 1, 1); } else { - x_66 = x_65; + x_57 = x_56; } -lean::cnstr_set(x_66, 0, x_62); -lean::cnstr_set_scalar(x_66, sizeof(void*)*1, x_64); -x_67 = x_66; -x_68 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_69 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_68, x_67); -x_70 = l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___rarg___closed__1; -x_71 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_69, x_70); -x_72 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_71); -if (lean::is_scalar(x_61)) { - x_73 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_57, 0, x_53); +lean::cnstr_set_scalar(x_57, sizeof(void*)*1, x_55); +x_58 = x_57; +x_59 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_60 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_59, x_58); +x_61 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_60); +if (lean::is_scalar(x_52)) { + x_62 = lean::alloc_cnstr(0, 2, 0); } else { - x_73 = x_61; + x_62 = x_52; } -lean::cnstr_set(x_73, 0, x_72); -lean::cnstr_set(x_73, 1, x_59); -return x_73; +lean::cnstr_set(x_62, 0, x_61); +lean::cnstr_set(x_62, 1, x_50); +return x_62; } } } @@ -1171,7 +1148,7 @@ return x_57; } else { -obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_69; +obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_67; lean::dec(x_13); lean::dec(x_20); x_60 = l_String_quote(x_0); @@ -1182,98 +1159,96 @@ lean::cnstr_set(x_62, 0, x_4); x_63 = lean::box(0); x_64 = l_String_splitAux___main___closed__1; x_65 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_64, x_61, x_62, x_63, x_2, x_16, x_11); -lean::dec(x_16); lean::dec(x_2); -lean::dec(x_62); -x_69 = lean::cnstr_get(x_65, 0); -lean::inc(x_69); -if (lean::obj_tag(x_69) == 0) +x_67 = lean::cnstr_get(x_65, 0); +lean::inc(x_67); +if (lean::obj_tag(x_67) == 0) { -obj* x_71; obj* x_73; obj* x_74; obj* x_76; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; -x_71 = lean::cnstr_get(x_65, 1); +obj* x_69; obj* x_71; obj* x_72; obj* x_74; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; +x_69 = lean::cnstr_get(x_65, 1); if (lean::is_exclusive(x_65)) { lean::cnstr_release(x_65, 0); - x_73 = x_65; + x_71 = x_65; } else { - lean::inc(x_71); + lean::inc(x_69); lean::dec(x_65); - x_73 = lean::box(0); + x_71 = lean::box(0); } -x_74 = lean::cnstr_get(x_69, 1); -x_76 = lean::cnstr_get(x_69, 2); -if (lean::is_exclusive(x_69)) { - lean::cnstr_release(x_69, 0); - x_78 = x_69; +x_72 = lean::cnstr_get(x_67, 1); +x_74 = lean::cnstr_get(x_67, 2); +if (lean::is_exclusive(x_67)) { + lean::cnstr_release(x_67, 0); + x_76 = x_67; } else { + lean::inc(x_72); lean::inc(x_74); - lean::inc(x_76); - lean::dec(x_69); - x_78 = lean::box(0); + lean::dec(x_67); + x_76 = lean::box(0); } -x_79 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_78)) { - x_80 = lean::alloc_cnstr(0, 3, 0); +x_77 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_76)) { + x_78 = lean::alloc_cnstr(0, 3, 0); } else { - x_80 = x_78; + x_78 = x_76; } -lean::cnstr_set(x_80, 0, x_14); -lean::cnstr_set(x_80, 1, x_74); -lean::cnstr_set(x_80, 2, x_79); -x_81 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_76, x_80); -x_82 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_81); -x_83 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_79, x_82); -x_84 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_83); -if (lean::is_scalar(x_73)) { - x_85 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_78, 0, x_14); +lean::cnstr_set(x_78, 1, x_72); +lean::cnstr_set(x_78, 2, x_77); +x_79 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_74, x_78); +x_80 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_79); +x_81 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_77, x_80); +x_82 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_81); +if (lean::is_scalar(x_71)) { + x_83 = lean::alloc_cnstr(0, 2, 0); } else { - x_85 = x_73; + x_83 = x_71; } -lean::cnstr_set(x_85, 0, x_84); -lean::cnstr_set(x_85, 1, x_71); -return x_85; +lean::cnstr_set(x_83, 0, x_82); +lean::cnstr_set(x_83, 1, x_69); +return x_83; } else { -obj* x_87; obj* x_89; obj* x_90; uint8 x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; +obj* x_85; obj* x_87; obj* x_88; uint8 x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; lean::dec(x_14); -x_87 = lean::cnstr_get(x_65, 1); +x_85 = lean::cnstr_get(x_65, 1); if (lean::is_exclusive(x_65)) { lean::cnstr_release(x_65, 0); - x_89 = x_65; + x_87 = x_65; } else { - lean::inc(x_87); + lean::inc(x_85); lean::dec(x_65); - x_89 = lean::box(0); + x_87 = lean::box(0); } -x_90 = lean::cnstr_get(x_69, 0); -x_92 = lean::cnstr_get_scalar(x_69, sizeof(void*)*1); -if (lean::is_exclusive(x_69)) { - x_93 = x_69; +x_88 = lean::cnstr_get(x_67, 0); +x_90 = lean::cnstr_get_scalar(x_67, sizeof(void*)*1); +if (lean::is_exclusive(x_67)) { + x_91 = x_67; } else { - lean::inc(x_90); - lean::dec(x_69); - x_93 = lean::box(0); + lean::inc(x_88); + lean::dec(x_67); + x_91 = lean::box(0); } -if (lean::is_scalar(x_93)) { - x_94 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_91)) { + x_92 = lean::alloc_cnstr(1, 1, 1); } else { - x_94 = x_93; + x_92 = x_91; } -lean::cnstr_set(x_94, 0, x_90); -lean::cnstr_set_scalar(x_94, sizeof(void*)*1, x_92); -x_95 = x_94; -x_96 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_95); -x_97 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_98 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_97, x_96); -x_99 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_98); -if (lean::is_scalar(x_89)) { - x_100 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_92, 0, x_88); +lean::cnstr_set_scalar(x_92, sizeof(void*)*1, x_90); +x_93 = x_92; +x_94 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_93); +x_95 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_96 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_95, x_94); +x_97 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_96); +if (lean::is_scalar(x_87)) { + x_98 = lean::alloc_cnstr(0, 2, 0); } else { - x_100 = x_89; + x_98 = x_87; } -lean::cnstr_set(x_100, 0, x_99); -lean::cnstr_set(x_100, 1, x_87); -return x_100; +lean::cnstr_set(x_98, 0, x_97); +lean::cnstr_set(x_98, 1, x_85); +return x_98; } } } @@ -1281,69 +1256,93 @@ return x_100; } else { -obj* x_104; obj* x_106; obj* x_107; uint8 x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; +obj* x_102; obj* x_104; obj* x_105; uint8 x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; lean::dec(x_4); lean::dec(x_0); lean::dec(x_2); -x_104 = lean::cnstr_get(x_8, 1); +x_102 = lean::cnstr_get(x_8, 1); if (lean::is_exclusive(x_8)) { lean::cnstr_release(x_8, 0); - x_106 = x_8; + x_104 = x_8; } else { - lean::inc(x_104); + lean::inc(x_102); lean::dec(x_8); - x_106 = lean::box(0); + x_104 = lean::box(0); } -x_107 = lean::cnstr_get(x_9, 0); -x_109 = lean::cnstr_get_scalar(x_9, sizeof(void*)*1); +x_105 = lean::cnstr_get(x_9, 0); +x_107 = lean::cnstr_get_scalar(x_9, sizeof(void*)*1); if (lean::is_exclusive(x_9)) { - x_110 = x_9; + x_108 = x_9; } else { - lean::inc(x_107); + lean::inc(x_105); lean::dec(x_9); - x_110 = lean::box(0); + x_108 = lean::box(0); } -if (lean::is_scalar(x_110)) { - x_111 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_108)) { + x_109 = lean::alloc_cnstr(1, 1, 1); } else { - x_111 = x_110; + x_109 = x_108; } -lean::cnstr_set(x_111, 0, x_107); -lean::cnstr_set_scalar(x_111, sizeof(void*)*1, x_109); -x_112 = x_111; -x_113 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_114 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_113, x_112); -x_115 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_114); -if (lean::is_scalar(x_106)) { - x_116 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_109, 0, x_105); +lean::cnstr_set_scalar(x_109, sizeof(void*)*1, x_107); +x_110 = x_109; +x_111 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_112 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_111, x_110); +x_113 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_112); +if (lean::is_scalar(x_104)) { + x_114 = lean::alloc_cnstr(0, 2, 0); } else { - x_116 = x_106; + x_114 = x_104; } -lean::cnstr_set(x_116, 0, x_115); -lean::cnstr_set(x_116, 1, x_104); -return x_116; +lean::cnstr_set(x_114, 0, x_113); +lean::cnstr_set(x_114, 1, x_102); +return x_114; } } } obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__4___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { _start: { -obj* x_9; obj* x_10; uint8 x_11; obj* x_12; obj* x_13; obj* x_14; -x_9 = l_Option_getOrElse___main___rarg(x_2, x_7); -x_10 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_10, 0, x_9); -lean::cnstr_set(x_10, 1, x_0); -lean::cnstr_set(x_10, 2, x_1); -lean::cnstr_set(x_10, 3, x_3); -x_11 = 0; -x_12 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_12, 0, x_10); -lean::cnstr_set_scalar(x_12, sizeof(void*)*1, x_11); -x_13 = x_12; -x_14 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_14, 0, x_13); -lean::cnstr_set(x_14, 1, x_8); -return x_14; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_9; uint8 x_10; obj* x_11; obj* x_12; obj* x_13; +x_9 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_9, 0, x_7); +lean::cnstr_set(x_9, 1, x_0); +lean::cnstr_set(x_9, 2, x_1); +lean::cnstr_set(x_9, 3, x_3); +x_10 = 0; +x_11 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_11, 0, x_9); +lean::cnstr_set_scalar(x_11, sizeof(void*)*1, x_10); +x_12 = x_11; +x_13 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_8); +return x_13; +} +else +{ +obj* x_15; obj* x_18; uint8 x_19; obj* x_20; obj* x_21; obj* x_22; +lean::dec(x_7); +x_15 = lean::cnstr_get(x_2, 0); +lean::inc(x_15); +lean::dec(x_2); +x_18 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_18, 0, x_15); +lean::cnstr_set(x_18, 1, x_0); +lean::cnstr_set(x_18, 2, x_1); +lean::cnstr_set(x_18, 3, x_3); +x_19 = 0; +x_20 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set_scalar(x_20, sizeof(void*)*1, x_19); +x_21 = x_20; +x_22 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_22, 0, x_21); +lean::cnstr_set(x_22, 1, x_8); +return x_22; +} } } obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__4(obj* x_0) { @@ -1365,7 +1364,6 @@ x_8 = lean::box(0); x_9 = l_Lean_Parser_Combinators_choiceAux___main___rarg___closed__1; x_10 = l_mjoin___rarg___closed__1; x_11 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_9, x_10, x_8, x_8, x_2, x_3, x_4, x_5, x_6); -lean::dec(x_5); lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); @@ -1373,211 +1371,211 @@ return x_11; } else { -obj* x_16; obj* x_18; obj* x_20; obj* x_25; obj* x_26; obj* x_28; obj* x_30; obj* x_31; obj* x_32; -x_16 = lean::cnstr_get(x_0, 0); -x_18 = lean::cnstr_get(x_0, 1); +obj* x_15; obj* x_17; obj* x_19; obj* x_24; obj* x_25; obj* x_27; obj* x_29; obj* x_30; obj* x_31; +x_15 = lean::cnstr_get(x_0, 0); +x_17 = lean::cnstr_get(x_0, 1); if (lean::is_exclusive(x_0)) { lean::cnstr_set(x_0, 0, lean::box(0)); lean::cnstr_set(x_0, 1, lean::box(0)); - x_20 = x_0; + x_19 = x_0; } else { - lean::inc(x_16); - lean::inc(x_18); + lean::inc(x_15); + lean::inc(x_17); lean::dec(x_0); - x_20 = lean::box(0); + x_19 = lean::box(0); } lean::inc(x_5); lean::inc(x_4); lean::inc(x_3); lean::inc(x_2); -x_25 = lean::apply_5(x_16, x_2, x_3, x_4, x_5, x_6); -x_26 = lean::cnstr_get(x_25, 0); -x_28 = lean::cnstr_get(x_25, 1); +x_24 = lean::apply_5(x_15, x_2, x_3, x_4, x_5, x_6); +x_25 = lean::cnstr_get(x_24, 0); +x_27 = lean::cnstr_get(x_24, 1); +if (lean::is_exclusive(x_24)) { + lean::cnstr_set(x_24, 0, lean::box(0)); + lean::cnstr_set(x_24, 1, lean::box(0)); + x_29 = x_24; +} else { + lean::inc(x_25); + lean::inc(x_27); + lean::dec(x_24); + x_29 = lean::box(0); +} +x_30 = lean::mk_nat_obj(1ul); +x_31 = lean::nat_add(x_1, x_30); +if (lean::obj_tag(x_25) == 0) +{ +obj* x_32; obj* x_34; obj* x_36; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_32 = lean::cnstr_get(x_25, 0); +x_34 = lean::cnstr_get(x_25, 1); +x_36 = lean::cnstr_get(x_25, 2); if (lean::is_exclusive(x_25)) { - lean::cnstr_set(x_25, 0, lean::box(0)); - lean::cnstr_set(x_25, 1, lean::box(0)); - x_30 = x_25; + x_38 = x_25; } else { - lean::inc(x_26); - lean::inc(x_28); + lean::inc(x_32); + lean::inc(x_34); + lean::inc(x_36); lean::dec(x_25); - x_30 = lean::box(0); + x_38 = lean::box(0); } -x_31 = lean::mk_nat_obj(1ul); -x_32 = lean::nat_add(x_1, x_31); -if (lean::obj_tag(x_26) == 0) +x_39 = lean::box(0); +x_40 = lean_name_mk_numeral(x_39, x_1); +x_41 = lean::box(0); +if (lean::is_scalar(x_19)) { + x_42 = lean::alloc_cnstr(1, 2, 0); +} else { + x_42 = x_19; +} +lean::cnstr_set(x_42, 0, x_32); +lean::cnstr_set(x_42, 1, x_41); +x_43 = l_Lean_Parser_Syntax_mkNode(x_40, x_42); +x_44 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_38)) { + x_45 = lean::alloc_cnstr(0, 3, 0); +} else { + x_45 = x_38; +} +lean::cnstr_set(x_45, 0, x_43); +lean::cnstr_set(x_45, 1, x_34); +lean::cnstr_set(x_45, 2, x_44); +x_46 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_36, x_45); +if (lean::obj_tag(x_46) == 0) { -obj* x_33; obj* x_35; obj* x_37; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; -x_33 = lean::cnstr_get(x_26, 0); -x_35 = lean::cnstr_get(x_26, 1); -x_37 = lean::cnstr_get(x_26, 2); -if (lean::is_exclusive(x_26)) { - x_39 = x_26; -} else { - lean::inc(x_33); - lean::inc(x_35); - lean::inc(x_37); - lean::dec(x_26); - x_39 = lean::box(0); -} -x_40 = lean::box(0); -x_41 = lean_name_mk_numeral(x_40, x_1); -x_42 = lean::box(0); -if (lean::is_scalar(x_20)) { - x_43 = lean::alloc_cnstr(1, 2, 0); -} else { - x_43 = x_20; -} -lean::cnstr_set(x_43, 0, x_33); -lean::cnstr_set(x_43, 1, x_42); -x_44 = l_Lean_Parser_Syntax_mkNode(x_41, x_43); -x_45 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_39)) { - x_46 = lean::alloc_cnstr(0, 3, 0); -} else { - x_46 = x_39; -} -lean::cnstr_set(x_46, 0, x_44); -lean::cnstr_set(x_46, 1, x_35); -lean::cnstr_set(x_46, 2, x_45); -x_47 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_37, x_46); -if (lean::obj_tag(x_47) == 0) -{ -obj* x_54; +obj* x_53; lean::dec(x_5); -lean::dec(x_18); lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_32); -if (lean::is_scalar(x_30)) { - x_54 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_31); +lean::dec(x_17); +if (lean::is_scalar(x_29)) { + x_53 = lean::alloc_cnstr(0, 2, 0); } else { - x_54 = x_30; + x_53 = x_29; } -lean::cnstr_set(x_54, 0, x_47); -lean::cnstr_set(x_54, 1, x_28); -return x_54; +lean::cnstr_set(x_53, 0, x_46); +lean::cnstr_set(x_53, 1, x_27); +return x_53; } else { -uint8 x_55; -x_55 = lean::cnstr_get_scalar(x_47, sizeof(void*)*1); -if (x_55 == 0) +uint8 x_54; +x_54 = lean::cnstr_get_scalar(x_46, sizeof(void*)*1); +if (x_54 == 0) { -obj* x_57; obj* x_60; obj* x_61; obj* x_63; obj* x_65; obj* x_66; obj* x_67; -lean::dec(x_30); -x_57 = lean::cnstr_get(x_47, 0); -lean::inc(x_57); -lean::dec(x_47); -x_60 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__3(x_18, x_32, x_2, x_3, x_4, x_5, x_28); -x_61 = lean::cnstr_get(x_60, 0); -x_63 = lean::cnstr_get(x_60, 1); -if (lean::is_exclusive(x_60)) { - x_65 = x_60; +obj* x_56; obj* x_59; obj* x_60; obj* x_62; obj* x_64; obj* x_65; obj* x_66; +lean::dec(x_29); +x_56 = lean::cnstr_get(x_46, 0); +lean::inc(x_56); +lean::dec(x_46); +x_59 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__3(x_17, x_31, x_2, x_3, x_4, x_5, x_27); +x_60 = lean::cnstr_get(x_59, 0); +x_62 = lean::cnstr_get(x_59, 1); +if (lean::is_exclusive(x_59)) { + x_64 = x_59; } else { - lean::inc(x_61); - lean::inc(x_63); - lean::dec(x_60); - x_65 = lean::box(0); + lean::inc(x_60); + lean::inc(x_62); + lean::dec(x_59); + x_64 = lean::box(0); } -x_66 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_57, x_61); -if (lean::is_scalar(x_65)) { - x_67 = lean::alloc_cnstr(0, 2, 0); +x_65 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_56, x_60); +if (lean::is_scalar(x_64)) { + x_66 = lean::alloc_cnstr(0, 2, 0); } else { - x_67 = x_65; + x_66 = x_64; } -lean::cnstr_set(x_67, 0, x_66); -lean::cnstr_set(x_67, 1, x_63); -return x_67; +lean::cnstr_set(x_66, 0, x_65); +lean::cnstr_set(x_66, 1, x_62); +return x_66; } else { -obj* x_74; +obj* x_73; lean::dec(x_5); -lean::dec(x_18); lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_32); -if (lean::is_scalar(x_30)) { - x_74 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_31); +lean::dec(x_17); +if (lean::is_scalar(x_29)) { + x_73 = lean::alloc_cnstr(0, 2, 0); } else { - x_74 = x_30; + x_73 = x_29; } -lean::cnstr_set(x_74, 0, x_47); -lean::cnstr_set(x_74, 1, x_28); -return x_74; +lean::cnstr_set(x_73, 0, x_46); +lean::cnstr_set(x_73, 1, x_27); +return x_73; } } } else { -uint8 x_77; -lean::dec(x_20); +uint8 x_76; +lean::dec(x_19); lean::dec(x_1); -x_77 = lean::cnstr_get_scalar(x_26, sizeof(void*)*1); -if (x_77 == 0) +x_76 = lean::cnstr_get_scalar(x_25, sizeof(void*)*1); +if (x_76 == 0) { -obj* x_79; obj* x_82; obj* x_83; obj* x_85; obj* x_87; obj* x_88; obj* x_89; -lean::dec(x_30); -x_79 = lean::cnstr_get(x_26, 0); -lean::inc(x_79); -lean::dec(x_26); -x_82 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__3(x_18, x_32, x_2, x_3, x_4, x_5, x_28); -x_83 = lean::cnstr_get(x_82, 0); -x_85 = lean::cnstr_get(x_82, 1); -if (lean::is_exclusive(x_82)) { - x_87 = x_82; +obj* x_78; obj* x_81; obj* x_82; obj* x_84; obj* x_86; obj* x_87; obj* x_88; +lean::dec(x_29); +x_78 = lean::cnstr_get(x_25, 0); +lean::inc(x_78); +lean::dec(x_25); +x_81 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__3(x_17, x_31, x_2, x_3, x_4, x_5, x_27); +x_82 = lean::cnstr_get(x_81, 0); +x_84 = lean::cnstr_get(x_81, 1); +if (lean::is_exclusive(x_81)) { + x_86 = x_81; } else { - lean::inc(x_83); - lean::inc(x_85); - lean::dec(x_82); - x_87 = lean::box(0); + lean::inc(x_82); + lean::inc(x_84); + lean::dec(x_81); + x_86 = lean::box(0); } -x_88 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_79, x_83); -if (lean::is_scalar(x_87)) { - x_89 = lean::alloc_cnstr(0, 2, 0); +x_87 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_78, x_82); +if (lean::is_scalar(x_86)) { + x_88 = lean::alloc_cnstr(0, 2, 0); } else { - x_89 = x_87; + x_88 = x_86; } -lean::cnstr_set(x_89, 0, x_88); -lean::cnstr_set(x_89, 1, x_85); -return x_89; +lean::cnstr_set(x_88, 0, x_87); +lean::cnstr_set(x_88, 1, x_84); +return x_88; } else { -obj* x_96; obj* x_98; obj* x_99; obj* x_100; obj* x_101; +obj* x_95; obj* x_97; obj* x_98; obj* x_99; obj* x_100; lean::dec(x_5); -lean::dec(x_18); lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_32); -x_96 = lean::cnstr_get(x_26, 0); -if (lean::is_exclusive(x_26)) { - x_98 = x_26; +lean::dec(x_31); +lean::dec(x_17); +x_95 = lean::cnstr_get(x_25, 0); +if (lean::is_exclusive(x_25)) { + x_97 = x_25; } else { - lean::inc(x_96); - lean::dec(x_26); - x_98 = lean::box(0); + lean::inc(x_95); + lean::dec(x_25); + x_97 = lean::box(0); } -if (lean::is_scalar(x_98)) { - x_99 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_97)) { + x_98 = lean::alloc_cnstr(1, 1, 1); } else { - x_99 = x_98; + x_98 = x_97; } -lean::cnstr_set(x_99, 0, x_96); -lean::cnstr_set_scalar(x_99, sizeof(void*)*1, x_77); -x_100 = x_99; -if (lean::is_scalar(x_30)) { - x_101 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_98, 0, x_95); +lean::cnstr_set_scalar(x_98, sizeof(void*)*1, x_76); +x_99 = x_98; +if (lean::is_scalar(x_29)) { + x_100 = lean::alloc_cnstr(0, 2, 0); } else { - x_101 = x_30; + x_100 = x_29; } -lean::cnstr_set(x_101, 0, x_100); -lean::cnstr_set(x_101, 1, x_28); -return x_101; +lean::cnstr_set(x_100, 0, x_99); +lean::cnstr_set(x_100, 1, x_27); +return x_100; } } } @@ -1633,11 +1631,9 @@ _start: { obj* x_9; x_9 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); -lean::dec(x_2); lean::dec(x_4); lean::dec(x_5); lean::dec(x_6); -lean::dec(x_7); return x_9; } } @@ -1797,177 +1793,252 @@ goto lbl_22; } else { -obj* x_51; obj* x_54; obj* x_56; obj* x_57; obj* x_59; obj* x_62; obj* x_63; obj* x_65; obj* x_67; obj* x_70; obj* x_72; obj* x_73; obj* x_74; -x_51 = lean::cnstr_get(x_26, 1); -lean::inc(x_51); -lean::dec(x_26); -x_54 = lean::cnstr_get(x_27, 0); +obj* x_51; obj* x_53; obj* x_54; +x_51 = lean::cnstr_get(x_27, 0); if (lean::is_exclusive(x_27)) { lean::cnstr_set(x_27, 0, lean::box(0)); - x_56 = x_27; + x_53 = x_27; } else { - lean::inc(x_54); + lean::inc(x_51); lean::dec(x_27); - x_56 = lean::box(0); + x_53 = lean::box(0); } -x_57 = lean::cnstr_get(x_54, 3); -lean::inc(x_57); -x_59 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_57); -lean::dec(x_57); -lean::inc(x_1); -x_62 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_62, 0, x_59); -lean::cnstr_set(x_62, 1, x_1); -x_63 = lean::cnstr_get(x_54, 0); +x_54 = lean::cnstr_get(x_51, 3); +lean::inc(x_54); +if (lean::obj_tag(x_54) == 0) +{ +obj* x_56; obj* x_59; obj* x_61; obj* x_63; obj* x_66; obj* x_68; obj* x_69; obj* x_71; obj* x_72; obj* x_73; +x_56 = lean::cnstr_get(x_26, 1); +lean::inc(x_56); +lean::dec(x_26); +x_59 = lean::cnstr_get(x_51, 0); +lean::inc(x_59); +x_61 = lean::cnstr_get(x_51, 1); +lean::inc(x_61); +x_63 = lean::cnstr_get(x_51, 2); lean::inc(x_63); -x_65 = lean::cnstr_get(x_54, 1); -lean::inc(x_65); -x_67 = lean::cnstr_get(x_54, 2); -lean::inc(x_67); -lean::dec(x_54); -x_70 = l_List_reverse___rarg(x_62); +lean::dec(x_51); +x_66 = lean::box(3); +lean::inc(x_1); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_66); +lean::cnstr_set(x_68, 1, x_1); +x_69 = l_List_reverse___rarg(x_68); lean::inc(x_0); -x_72 = l_Lean_Parser_Syntax_mkNode(x_0, x_70); -x_73 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_73, 0, x_72); -x_74 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_74, 0, x_63); -lean::cnstr_set(x_74, 1, x_65); -lean::cnstr_set(x_74, 2, x_67); -lean::cnstr_set(x_74, 3, x_73); +x_71 = l_Lean_Parser_Syntax_mkNode(x_0, x_69); +x_72 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_72, 0, x_71); +x_73 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_73, 0, x_59); +lean::cnstr_set(x_73, 1, x_61); +lean::cnstr_set(x_73, 2, x_63); +lean::cnstr_set(x_73, 3, x_72); if (x_32 == 0) { -uint8 x_75; obj* x_76; obj* x_77; -x_75 = 0; -if (lean::is_scalar(x_56)) { - x_76 = lean::alloc_cnstr(1, 1, 1); +uint8 x_74; obj* x_75; obj* x_76; +x_74 = 0; +if (lean::is_scalar(x_53)) { + x_75 = lean::alloc_cnstr(1, 1, 1); } else { - x_76 = x_56; + x_75 = x_53; } -lean::cnstr_set(x_76, 0, x_74); -lean::cnstr_set_scalar(x_76, sizeof(void*)*1, x_75); -x_77 = x_76; -x_20 = x_77; -x_21 = x_51; +lean::cnstr_set(x_75, 0, x_73); +lean::cnstr_set_scalar(x_75, sizeof(void*)*1, x_74); +x_76 = x_75; +x_20 = x_76; +x_21 = x_56; goto lbl_22; } else { -uint8 x_78; obj* x_79; obj* x_80; -x_78 = 1; -if (lean::is_scalar(x_56)) { - x_79 = lean::alloc_cnstr(1, 1, 1); +uint8 x_77; obj* x_78; obj* x_79; +x_77 = 1; +if (lean::is_scalar(x_53)) { + x_78 = lean::alloc_cnstr(1, 1, 1); } else { - x_79 = x_56; + x_78 = x_53; } -lean::cnstr_set(x_79, 0, x_74); -lean::cnstr_set_scalar(x_79, sizeof(void*)*1, x_78); -x_80 = x_79; -x_20 = x_80; -x_21 = x_51; +lean::cnstr_set(x_78, 0, x_73); +lean::cnstr_set_scalar(x_78, sizeof(void*)*1, x_77); +x_79 = x_78; +x_20 = x_79; +x_21 = x_56; goto lbl_22; } } +else +{ +obj* x_80; obj* x_83; obj* x_85; obj* x_87; obj* x_90; obj* x_92; obj* x_94; obj* x_95; obj* x_97; obj* x_98; obj* x_99; +x_80 = lean::cnstr_get(x_26, 1); +lean::inc(x_80); +lean::dec(x_26); +x_83 = lean::cnstr_get(x_51, 0); +lean::inc(x_83); +x_85 = lean::cnstr_get(x_51, 1); +lean::inc(x_85); +x_87 = lean::cnstr_get(x_51, 2); +lean::inc(x_87); +lean::dec(x_51); +x_90 = lean::cnstr_get(x_54, 0); +if (lean::is_exclusive(x_54)) { + x_92 = x_54; +} else { + lean::inc(x_90); + lean::dec(x_54); + x_92 = lean::box(0); +} +lean::inc(x_1); +x_94 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_94, 0, x_90); +lean::cnstr_set(x_94, 1, x_1); +x_95 = l_List_reverse___rarg(x_94); +lean::inc(x_0); +x_97 = l_Lean_Parser_Syntax_mkNode(x_0, x_95); +if (lean::is_scalar(x_92)) { + x_98 = lean::alloc_cnstr(1, 1, 0); +} else { + x_98 = x_92; +} +lean::cnstr_set(x_98, 0, x_97); +x_99 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_99, 0, x_83); +lean::cnstr_set(x_99, 1, x_85); +lean::cnstr_set(x_99, 2, x_87); +lean::cnstr_set(x_99, 3, x_98); +if (x_32 == 0) +{ +uint8 x_100; obj* x_101; obj* x_102; +x_100 = 0; +if (lean::is_scalar(x_53)) { + x_101 = lean::alloc_cnstr(1, 1, 1); +} else { + x_101 = x_53; +} +lean::cnstr_set(x_101, 0, x_99); +lean::cnstr_set_scalar(x_101, sizeof(void*)*1, x_100); +x_102 = x_101; +x_20 = x_102; +x_21 = x_80; +goto lbl_22; +} +else +{ +uint8 x_103; obj* x_104; obj* x_105; +x_103 = 1; +if (lean::is_scalar(x_53)) { + x_104 = lean::alloc_cnstr(1, 1, 1); +} else { + x_104 = x_53; +} +lean::cnstr_set(x_104, 0, x_99); +lean::cnstr_set_scalar(x_104, sizeof(void*)*1, x_103); +x_105 = x_104; +x_20 = x_105; +x_21 = x_80; +goto lbl_22; +} +} +} } lbl_22: { if (lean::obj_tag(x_20) == 0) { -obj* x_81; obj* x_83; obj* x_85; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; -x_81 = lean::cnstr_get(x_20, 0); -x_83 = lean::cnstr_get(x_20, 1); -x_85 = lean::cnstr_get(x_20, 2); +obj* x_106; obj* x_108; obj* x_110; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; +x_106 = lean::cnstr_get(x_20, 0); +x_108 = lean::cnstr_get(x_20, 1); +x_110 = lean::cnstr_get(x_20, 2); if (lean::is_exclusive(x_20)) { - x_87 = x_20; + x_112 = x_20; } else { - lean::inc(x_81); - lean::inc(x_83); - lean::inc(x_85); + lean::inc(x_106); + lean::inc(x_108); + lean::inc(x_110); lean::dec(x_20); - x_87 = lean::box(0); + x_112 = lean::box(0); } if (lean::is_scalar(x_19)) { - x_88 = lean::alloc_cnstr(1, 2, 0); + x_113 = lean::alloc_cnstr(1, 2, 0); } else { - x_88 = x_19; + x_113 = x_19; } -lean::cnstr_set(x_88, 0, x_81); -lean::cnstr_set(x_88, 1, x_1); -x_89 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_87)) { - x_90 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_113, 0, x_106); +lean::cnstr_set(x_113, 1, x_1); +x_114 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_112)) { + x_115 = lean::alloc_cnstr(0, 3, 0); } else { - x_90 = x_87; + x_115 = x_112; } -lean::cnstr_set(x_90, 0, x_88); -lean::cnstr_set(x_90, 1, x_83); -lean::cnstr_set(x_90, 2, x_89); -x_91 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_85, x_90); -if (lean::obj_tag(x_91) == 0) +lean::cnstr_set(x_115, 0, x_113); +lean::cnstr_set(x_115, 1, x_108); +lean::cnstr_set(x_115, 2, x_114); +x_116 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_110, x_115); +if (lean::obj_tag(x_116) == 0) { -obj* x_92; obj* x_94; obj* x_96; obj* x_99; obj* x_100; obj* x_102; obj* x_104; obj* x_105; obj* x_106; -x_92 = lean::cnstr_get(x_91, 0); -lean::inc(x_92); -x_94 = lean::cnstr_get(x_91, 1); -lean::inc(x_94); -x_96 = lean::cnstr_get(x_91, 2); -lean::inc(x_96); -lean::dec(x_91); -x_99 = l_List_mfoldl___main___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser___spec__2(x_0, x_92, x_17, x_3, x_4, x_5, x_94, x_21); -x_100 = lean::cnstr_get(x_99, 0); -x_102 = lean::cnstr_get(x_99, 1); -if (lean::is_exclusive(x_99)) { - x_104 = x_99; +obj* x_117; obj* x_119; obj* x_121; obj* x_124; obj* x_125; obj* x_127; obj* x_129; obj* x_130; obj* x_131; +x_117 = lean::cnstr_get(x_116, 0); +lean::inc(x_117); +x_119 = lean::cnstr_get(x_116, 1); +lean::inc(x_119); +x_121 = lean::cnstr_get(x_116, 2); +lean::inc(x_121); +lean::dec(x_116); +x_124 = l_List_mfoldl___main___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser___spec__2(x_0, x_117, x_17, x_3, x_4, x_5, x_119, x_21); +x_125 = lean::cnstr_get(x_124, 0); +x_127 = lean::cnstr_get(x_124, 1); +if (lean::is_exclusive(x_124)) { + x_129 = x_124; } else { - lean::inc(x_100); - lean::inc(x_102); - lean::dec(x_99); - x_104 = lean::box(0); + lean::inc(x_125); + lean::inc(x_127); + lean::dec(x_124); + x_129 = lean::box(0); } -x_105 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_96, x_100); -if (lean::is_scalar(x_104)) { - x_106 = lean::alloc_cnstr(0, 2, 0); +x_130 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_121, x_125); +if (lean::is_scalar(x_129)) { + x_131 = lean::alloc_cnstr(0, 2, 0); } else { - x_106 = x_104; + x_131 = x_129; } -lean::cnstr_set(x_106, 0, x_105); -lean::cnstr_set(x_106, 1, x_102); -return x_106; +lean::cnstr_set(x_131, 0, x_130); +lean::cnstr_set(x_131, 1, x_127); +return x_131; } else { -obj* x_112; uint8 x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; +obj* x_137; uint8 x_139; obj* x_140; obj* x_141; obj* x_142; obj* x_143; lean::dec(x_5); lean::dec(x_4); lean::dec(x_3); lean::dec(x_0); lean::dec(x_17); -x_112 = lean::cnstr_get(x_91, 0); -x_114 = lean::cnstr_get_scalar(x_91, sizeof(void*)*1); -if (lean::is_exclusive(x_91)) { - x_115 = x_91; +x_137 = lean::cnstr_get(x_116, 0); +x_139 = lean::cnstr_get_scalar(x_116, sizeof(void*)*1); +if (lean::is_exclusive(x_116)) { + x_140 = x_116; } else { - lean::inc(x_112); - lean::dec(x_91); - x_115 = lean::box(0); + lean::inc(x_137); + lean::dec(x_116); + x_140 = lean::box(0); } -if (lean::is_scalar(x_115)) { - x_116 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_140)) { + x_141 = lean::alloc_cnstr(1, 1, 1); } else { - x_116 = x_115; + x_141 = x_140; } -lean::cnstr_set(x_116, 0, x_112); -lean::cnstr_set_scalar(x_116, sizeof(void*)*1, x_114); -x_117 = x_116; -x_118 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_118, 0, x_117); -lean::cnstr_set(x_118, 1, x_21); -return x_118; +lean::cnstr_set(x_141, 0, x_137); +lean::cnstr_set_scalar(x_141, sizeof(void*)*1, x_139); +x_142 = x_141; +x_143 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_143, 0, x_142); +lean::cnstr_set(x_143, 1, x_21); +return x_143; } } else { -obj* x_126; uint8 x_128; obj* x_129; obj* x_130; obj* x_131; obj* x_132; +obj* x_151; uint8 x_153; obj* x_154; obj* x_155; obj* x_156; obj* x_157; lean::dec(x_5); lean::dec(x_4); lean::dec(x_1); @@ -1975,27 +2046,27 @@ lean::dec(x_3); lean::dec(x_0); lean::dec(x_17); lean::dec(x_19); -x_126 = lean::cnstr_get(x_20, 0); -x_128 = lean::cnstr_get_scalar(x_20, sizeof(void*)*1); +x_151 = lean::cnstr_get(x_20, 0); +x_153 = lean::cnstr_get_scalar(x_20, sizeof(void*)*1); if (lean::is_exclusive(x_20)) { - x_129 = x_20; + x_154 = x_20; } else { - lean::inc(x_126); + lean::inc(x_151); lean::dec(x_20); - x_129 = lean::box(0); + x_154 = lean::box(0); } -if (lean::is_scalar(x_129)) { - x_130 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_154)) { + x_155 = lean::alloc_cnstr(1, 1, 1); } else { - x_130 = x_129; + x_155 = x_154; } -lean::cnstr_set(x_130, 0, x_126); -lean::cnstr_set_scalar(x_130, sizeof(void*)*1, x_128); -x_131 = x_130; -x_132 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_132, 0, x_131); -lean::cnstr_set(x_132, 1, x_21); -return x_132; +lean::cnstr_set(x_155, 0, x_151); +lean::cnstr_set_scalar(x_155, sizeof(void*)*1, x_153); +x_156 = x_155; +x_157 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_157, 0, x_156); +lean::cnstr_set(x_157, 1, x_21); +return x_157; } } } @@ -2466,47 +2537,43 @@ return x_89; obj* _init_l_Lean_Parser_command_NotationSpec_precedenceOffsetOp_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(0ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_NotationSpec_precedenceOffsetOp; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_NotationSpec_precedenceOffsetOp; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_command_NotationSpec_precedenceOffsetOp_HasView_x_27___lambda__2___closed__2() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(1ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_NotationSpec_precedenceOffsetOp; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_NotationSpec_precedenceOffsetOp; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* l_Lean_Parser_command_NotationSpec_precedenceOffsetOp_HasView_x_27___lambda__2(obj* x_0) { @@ -2528,84 +2595,56 @@ return x_5; } else { -obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +obj* x_6; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; x_6 = lean::cnstr_get(x_2, 0); -if (lean::is_exclusive(x_2)) { - x_8 = x_2; -} else { - lean::inc(x_6); - lean::dec(x_2); - x_8 = lean::box(0); -} +lean::inc(x_6); +lean::dec(x_2); x_9 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_9, 0, x_6); -if (lean::is_scalar(x_8)) { - x_10 = lean::alloc_cnstr(1, 1, 0); -} else { - x_10 = x_8; -} +x_10 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_10, 0, x_9); -x_11 = lean::box(3); -x_12 = l_Option_getOrElse___main___rarg(x_10, x_11); -lean::dec(x_10); -x_14 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_14, 0, x_12); -lean::cnstr_set(x_14, 1, x_1); -x_15 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; -x_16 = l_Lean_Parser_Syntax_mkNode(x_15, x_14); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_16); -lean::cnstr_set(x_17, 1, x_1); -x_18 = l_Lean_Parser_command_NotationSpec_precedenceOffsetOp; -x_19 = l_Lean_Parser_Syntax_mkNode(x_18, x_17); +lean::cnstr_set(x_10, 1, x_1); +x_11 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; +x_12 = l_Lean_Parser_Syntax_mkNode(x_11, x_10); +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_1); +x_14 = l_Lean_Parser_command_NotationSpec_precedenceOffsetOp; +x_15 = l_Lean_Parser_Syntax_mkNode(x_14, x_13); +return x_15; +} +} +else +{ +obj* x_16; +x_16 = lean::cnstr_get(x_0, 0); +lean::inc(x_16); +lean::dec(x_0); +if (lean::obj_tag(x_16) == 0) +{ +obj* x_19; +x_19 = l_Lean_Parser_command_NotationSpec_precedenceOffsetOp_HasView_x_27___lambda__2___closed__2; return x_19; } -} else { -obj* x_20; -x_20 = lean::cnstr_get(x_0, 0); +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +x_20 = lean::cnstr_get(x_16, 0); lean::inc(x_20); -lean::dec(x_0); -if (lean::obj_tag(x_20) == 0) -{ -obj* x_23; -x_23 = l_Lean_Parser_command_NotationSpec_precedenceOffsetOp_HasView_x_27___lambda__2___closed__2; -return x_23; -} -else -{ -obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; -x_24 = lean::cnstr_get(x_20, 0); -if (lean::is_exclusive(x_20)) { - x_26 = x_20; -} else { - lean::inc(x_24); - lean::dec(x_20); - x_26 = lean::box(0); -} -x_27 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_27, 0, x_24); -if (lean::is_scalar(x_26)) { - x_28 = lean::alloc_cnstr(1, 1, 0); -} else { - x_28 = x_26; -} -lean::cnstr_set(x_28, 0, x_27); -x_29 = lean::box(3); -x_30 = l_Option_getOrElse___main___rarg(x_28, x_29); -lean::dec(x_28); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_30); -lean::cnstr_set(x_32, 1, x_1); -x_33 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; -x_34 = l_Lean_Parser_Syntax_mkNode(x_33, x_32); -x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_34); -lean::cnstr_set(x_35, 1, x_1); -x_36 = l_Lean_Parser_command_NotationSpec_precedenceOffsetOp; -x_37 = l_Lean_Parser_Syntax_mkNode(x_36, x_35); -return x_37; +lean::dec(x_16); +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_23); +lean::cnstr_set(x_24, 1, x_1); +x_25 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; +x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_1); +x_28 = l_Lean_Parser_command_NotationSpec_precedenceOffsetOp; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } } @@ -3015,7 +3054,7 @@ lean::cnstr_set(x_30, 1, x_29); x_31 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_31, 0, x_16); lean::cnstr_set(x_31, 1, x_30); -x_32 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_32 = lean::box(3); x_33 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_33, 0, x_32); lean::cnstr_set(x_33, 1, x_31); @@ -3025,128 +3064,87 @@ return x_35; } else { -obj* x_36; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +obj* x_36; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; x_36 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_38 = x_9; -} else { - lean::inc(x_36); - lean::dec(x_9); - x_38 = lean::box(0); -} +lean::inc(x_36); +lean::dec(x_9); x_39 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_39, 0, x_36); -if (lean::is_scalar(x_38)) { - x_40 = lean::alloc_cnstr(1, 1, 0); -} else { - x_40 = x_38; -} +x_40 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_40, 0, x_39); -x_41 = lean::box(3); -x_42 = l_Option_getOrElse___main___rarg(x_40, x_41); -lean::dec(x_40); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_42); -lean::cnstr_set(x_44, 1, x_27); +lean::cnstr_set(x_40, 1, x_27); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_26); +lean::cnstr_set(x_41, 1, x_40); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_21); +lean::cnstr_set(x_42, 1, x_41); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_16); +lean::cnstr_set(x_43, 1, x_42); +x_44 = lean::box(3); x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_26); -lean::cnstr_set(x_45, 1, x_44); -x_46 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_46, 0, x_21); -lean::cnstr_set(x_46, 1, x_45); -x_47 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_47, 0, x_16); -lean::cnstr_set(x_47, 1, x_46); -x_48 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_49 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_49, 0, x_48); -lean::cnstr_set(x_49, 1, x_47); -x_50 = l_Lean_Parser_command_NotationSpec_precedenceOffset; -x_51 = l_Lean_Parser_Syntax_mkNode(x_50, x_49); -return x_51; +lean::cnstr_set(x_45, 0, x_44); +lean::cnstr_set(x_45, 1, x_43); +x_46 = l_Lean_Parser_command_NotationSpec_precedenceOffset; +x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); +return x_47; } } else { -obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; -x_52 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_54 = x_1; -} else { - lean::inc(x_52); - lean::dec(x_1); - x_54 = lean::box(0); -} -x_55 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_55, 0, x_52); -if (lean::is_scalar(x_54)) { - x_56 = lean::alloc_cnstr(1, 1, 0); -} else { - x_56 = x_54; -} -lean::cnstr_set(x_56, 0, x_55); -x_57 = lean::box(3); -x_58 = l_Option_getOrElse___main___rarg(x_56, x_57); -lean::dec(x_56); +obj* x_48; obj* x_51; +x_48 = lean::cnstr_get(x_1, 0); +lean::inc(x_48); +lean::dec(x_1); +x_51 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_51, 0, x_48); if (lean::obj_tag(x_9) == 0) { -obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; -x_60 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_61 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_61, 0, x_26); -lean::cnstr_set(x_61, 1, x_60); -x_62 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_62, 0, x_21); -lean::cnstr_set(x_62, 1, x_61); -x_63 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_63, 0, x_16); -lean::cnstr_set(x_63, 1, x_62); -x_64 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_64, 0, x_58); -lean::cnstr_set(x_64, 1, x_63); -x_65 = l_Lean_Parser_command_NotationSpec_precedenceOffset; -x_66 = l_Lean_Parser_Syntax_mkNode(x_65, x_64); -return x_66; +obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; +x_52 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_26); +lean::cnstr_set(x_53, 1, x_52); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_21); +lean::cnstr_set(x_54, 1, x_53); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_16); +lean::cnstr_set(x_55, 1, x_54); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_51); +lean::cnstr_set(x_56, 1, x_55); +x_57 = l_Lean_Parser_command_NotationSpec_precedenceOffset; +x_58 = l_Lean_Parser_Syntax_mkNode(x_57, x_56); +return x_58; } else { -obj* x_67; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; -x_67 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_69 = x_9; -} else { - lean::inc(x_67); - lean::dec(x_9); - x_69 = lean::box(0); -} -x_70 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_70, 0, x_67); -if (lean::is_scalar(x_69)) { - x_71 = lean::alloc_cnstr(1, 1, 0); -} else { - x_71 = x_69; -} -lean::cnstr_set(x_71, 0, x_70); -x_72 = l_Option_getOrElse___main___rarg(x_71, x_57); -lean::dec(x_71); -x_74 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_74, 0, x_72); -lean::cnstr_set(x_74, 1, x_27); -x_75 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_75, 0, x_26); -lean::cnstr_set(x_75, 1, x_74); -x_76 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_76, 0, x_21); -lean::cnstr_set(x_76, 1, x_75); -x_77 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_77, 0, x_16); -lean::cnstr_set(x_77, 1, x_76); -x_78 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_78, 0, x_58); -lean::cnstr_set(x_78, 1, x_77); -x_79 = l_Lean_Parser_command_NotationSpec_precedenceOffset; -x_80 = l_Lean_Parser_Syntax_mkNode(x_79, x_78); -return x_80; +obj* x_59; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; +x_59 = lean::cnstr_get(x_9, 0); +lean::inc(x_59); +lean::dec(x_9); +x_62 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_62, 0, x_59); +x_63 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_63, 0, x_62); +lean::cnstr_set(x_63, 1, x_27); +x_64 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_64, 0, x_26); +lean::cnstr_set(x_64, 1, x_63); +x_65 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_65, 0, x_21); +lean::cnstr_set(x_65, 1, x_64); +x_66 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_66, 0, x_16); +lean::cnstr_set(x_66, 1, x_65); +x_67 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_67, 0, x_51); +lean::cnstr_set(x_67, 1, x_66); +x_68 = l_Lean_Parser_command_NotationSpec_precedenceOffset; +x_69 = l_Lean_Parser_Syntax_mkNode(x_68, x_67); +return x_69; } } } @@ -3528,235 +3526,231 @@ x_32 = lean::string_dec_eq(x_0, x_29); lean::dec(x_0); if (x_32 == 0) { -obj* x_36; obj* x_37; obj* x_38; obj* x_42; +obj* x_36; obj* x_37; obj* x_38; obj* x_40; lean::dec(x_15); lean::dec(x_24); x_36 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_36, 0, x_6); x_37 = lean::box(0); x_38 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_29, x_2, x_36, x_37, x_4, x_20, x_13); -lean::dec(x_20); lean::dec(x_4); -lean::dec(x_36); -x_42 = lean::cnstr_get(x_38, 0); -lean::inc(x_42); -if (lean::obj_tag(x_42) == 0) +x_40 = lean::cnstr_get(x_38, 0); +lean::inc(x_40); +if (lean::obj_tag(x_40) == 0) { -obj* x_44; obj* x_46; obj* x_47; obj* x_49; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; -x_44 = lean::cnstr_get(x_38, 1); +obj* x_42; obj* x_44; obj* x_45; obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_42 = lean::cnstr_get(x_38, 1); if (lean::is_exclusive(x_38)) { lean::cnstr_release(x_38, 0); - x_46 = x_38; + x_44 = x_38; } else { - lean::inc(x_44); + lean::inc(x_42); lean::dec(x_38); - x_46 = lean::box(0); + x_44 = lean::box(0); } -x_47 = lean::cnstr_get(x_42, 1); -x_49 = lean::cnstr_get(x_42, 2); -if (lean::is_exclusive(x_42)) { - lean::cnstr_release(x_42, 0); - x_51 = x_42; +x_45 = lean::cnstr_get(x_40, 1); +x_47 = lean::cnstr_get(x_40, 2); +if (lean::is_exclusive(x_40)) { + lean::cnstr_release(x_40, 0); + x_49 = x_40; } else { + lean::inc(x_45); lean::inc(x_47); - lean::inc(x_49); - lean::dec(x_42); - x_51 = lean::box(0); + lean::dec(x_40); + x_49 = lean::box(0); } -x_52 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_51)) { - x_53 = lean::alloc_cnstr(0, 3, 0); +x_50 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_49)) { + x_51 = lean::alloc_cnstr(0, 3, 0); } else { - x_53 = x_51; + x_51 = x_49; } -lean::cnstr_set(x_53, 0, x_18); -lean::cnstr_set(x_53, 1, x_47); -lean::cnstr_set(x_53, 2, x_52); -x_54 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_49, x_53); -x_55 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_54); -x_56 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_52, x_55); -x_57 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_56, x_17); -x_58 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_57); -if (lean::is_scalar(x_46)) { - x_59 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_51, 0, x_18); +lean::cnstr_set(x_51, 1, x_45); +lean::cnstr_set(x_51, 2, x_50); +x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_47, x_51); +x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_52); +x_54 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_50, x_53); +x_55 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_54, x_17); +x_56 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_55); +if (lean::is_scalar(x_44)) { + x_57 = lean::alloc_cnstr(0, 2, 0); } else { - x_59 = x_46; + x_57 = x_44; } -lean::cnstr_set(x_59, 0, x_58); -lean::cnstr_set(x_59, 1, x_44); -return x_59; +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_42); +return x_57; } else { -obj* x_61; obj* x_63; obj* x_64; uint8 x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; +obj* x_59; obj* x_61; obj* x_62; uint8 x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; lean::dec(x_18); -x_61 = lean::cnstr_get(x_38, 1); +x_59 = lean::cnstr_get(x_38, 1); if (lean::is_exclusive(x_38)) { lean::cnstr_release(x_38, 0); - x_63 = x_38; + x_61 = x_38; } else { - lean::inc(x_61); + lean::inc(x_59); lean::dec(x_38); - x_63 = lean::box(0); + x_61 = lean::box(0); } -x_64 = lean::cnstr_get(x_42, 0); -x_66 = lean::cnstr_get_scalar(x_42, sizeof(void*)*1); -if (lean::is_exclusive(x_42)) { - x_67 = x_42; +x_62 = lean::cnstr_get(x_40, 0); +x_64 = lean::cnstr_get_scalar(x_40, sizeof(void*)*1); +if (lean::is_exclusive(x_40)) { + x_65 = x_40; } else { - lean::inc(x_64); - lean::dec(x_42); - x_67 = lean::box(0); + lean::inc(x_62); + lean::dec(x_40); + x_65 = lean::box(0); } -if (lean::is_scalar(x_67)) { - x_68 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_65)) { + x_66 = lean::alloc_cnstr(1, 1, 1); } else { - x_68 = x_67; + x_66 = x_65; } -lean::cnstr_set(x_68, 0, x_64); -lean::cnstr_set_scalar(x_68, sizeof(void*)*1, x_66); -x_69 = x_68; -x_70 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_69); -x_71 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_72 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_71, x_70); -x_73 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_72, x_17); -x_74 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_73); -if (lean::is_scalar(x_63)) { - x_75 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_66, 0, x_62); +lean::cnstr_set_scalar(x_66, sizeof(void*)*1, x_64); +x_67 = x_66; +x_68 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_67); +x_69 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_70 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_69, x_68); +x_71 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_70, x_17); +x_72 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_71); +if (lean::is_scalar(x_61)) { + x_73 = lean::alloc_cnstr(0, 2, 0); } else { - x_75 = x_63; + x_73 = x_61; } -lean::cnstr_set(x_75, 0, x_74); -lean::cnstr_set(x_75, 1, x_61); -return x_75; +lean::cnstr_set(x_73, 0, x_72); +lean::cnstr_set(x_73, 1, x_59); +return x_73; } } else { -obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; +obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; lean::dec(x_4); lean::dec(x_6); lean::dec(x_2); lean::dec(x_29); -x_80 = l_Lean_Parser_finishCommentBlock___closed__2; +x_78 = l_Lean_Parser_finishCommentBlock___closed__2; if (lean::is_scalar(x_24)) { - x_81 = lean::alloc_cnstr(0, 3, 0); + x_79 = lean::alloc_cnstr(0, 3, 0); } else { - x_81 = x_24; + x_79 = x_24; } -lean::cnstr_set(x_81, 0, x_18); -lean::cnstr_set(x_81, 1, x_20); -lean::cnstr_set(x_81, 2, x_80); -x_82 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_81); -x_83 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_84 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_83, x_82); -x_85 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_84, x_17); -x_86 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_85); +lean::cnstr_set(x_79, 0, x_18); +lean::cnstr_set(x_79, 1, x_20); +lean::cnstr_set(x_79, 2, x_78); +x_80 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_79); +x_81 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_82 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_81, x_80); +x_83 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_82, x_17); +x_84 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_83); if (lean::is_scalar(x_15)) { - x_87 = lean::alloc_cnstr(0, 2, 0); + x_85 = lean::alloc_cnstr(0, 2, 0); } else { - x_87 = x_15; + x_85 = x_15; } -lean::cnstr_set(x_87, 0, x_86); -lean::cnstr_set(x_87, 1, x_13); -return x_87; +lean::cnstr_set(x_85, 0, x_84); +lean::cnstr_set(x_85, 1, x_13); +return x_85; } } case 3: { -obj* x_91; +obj* x_89; lean::dec(x_15); lean::dec(x_24); lean::dec(x_0); -x_91 = lean::box(0); -x_25 = x_91; +x_89 = lean::box(0); +x_25 = x_89; goto lbl_26; } default: { -obj* x_96; +obj* x_94; lean::dec(x_15); lean::dec(x_24); lean::dec(x_0); lean::dec(x_18); -x_96 = lean::box(0); -x_25 = x_96; +x_94 = lean::box(0); +x_25 = x_94; goto lbl_26; } } lbl_26: { -obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_105; obj* x_107; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; +obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_101; obj* x_103; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; lean::dec(x_25); -x_98 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_98, 0, x_6); -x_99 = lean::box(0); -x_100 = l_String_splitAux___main___closed__1; -x_101 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_100, x_2, x_98, x_99, x_4, x_20, x_13); -lean::dec(x_20); +x_96 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_96, 0, x_6); +x_97 = lean::box(0); +x_98 = l_String_splitAux___main___closed__1; +x_99 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_98, x_2, x_96, x_97, x_4, x_20, x_13); lean::dec(x_4); -lean::dec(x_98); -x_105 = lean::cnstr_get(x_101, 0); -x_107 = lean::cnstr_get(x_101, 1); -if (lean::is_exclusive(x_101)) { - x_109 = x_101; +x_101 = lean::cnstr_get(x_99, 0); +x_103 = lean::cnstr_get(x_99, 1); +if (lean::is_exclusive(x_99)) { + x_105 = x_99; } else { - lean::inc(x_105); - lean::inc(x_107); - lean::dec(x_101); - x_109 = lean::box(0); + lean::inc(x_101); + lean::inc(x_103); + lean::dec(x_99); + x_105 = lean::box(0); } -x_110 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_105); -x_111 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_112 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_111, x_110); -x_113 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_112, x_17); -x_114 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_113); -if (lean::is_scalar(x_109)) { - x_115 = lean::alloc_cnstr(0, 2, 0); +x_106 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_101); +x_107 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_108 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_107, x_106); +x_109 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_108, x_17); +x_110 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_109); +if (lean::is_scalar(x_105)) { + x_111 = lean::alloc_cnstr(0, 2, 0); } else { - x_115 = x_109; + x_111 = x_105; } -lean::cnstr_set(x_115, 0, x_114); -lean::cnstr_set(x_115, 1, x_107); -return x_115; +lean::cnstr_set(x_111, 0, x_110); +lean::cnstr_set(x_111, 1, x_103); +return x_111; } } else { -obj* x_120; uint8 x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; obj* x_129; obj* x_130; +obj* x_116; uint8 x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; lean::dec(x_4); lean::dec(x_6); lean::dec(x_0); lean::dec(x_2); -x_120 = lean::cnstr_get(x_11, 0); -x_122 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); +x_116 = lean::cnstr_get(x_11, 0); +x_118 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); if (lean::is_exclusive(x_11)) { - x_123 = x_11; + x_119 = x_11; } else { - lean::inc(x_120); + lean::inc(x_116); lean::dec(x_11); - x_123 = lean::box(0); + x_119 = lean::box(0); } -if (lean::is_scalar(x_123)) { - x_124 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_119)) { + x_120 = lean::alloc_cnstr(1, 1, 1); } else { - x_124 = x_123; + x_120 = x_119; } -lean::cnstr_set(x_124, 0, x_120); -lean::cnstr_set_scalar(x_124, sizeof(void*)*1, x_122); -x_125 = x_124; -x_126 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_127 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_126, x_125); -x_128 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_127, x_17); -x_129 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_128); +lean::cnstr_set(x_120, 0, x_116); +lean::cnstr_set_scalar(x_120, sizeof(void*)*1, x_118); +x_121 = x_120; +x_122 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_123 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_122, x_121); +x_124 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_123, x_17); +x_125 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_124); if (lean::is_scalar(x_15)) { - x_130 = lean::alloc_cnstr(0, 2, 0); + x_126 = lean::alloc_cnstr(0, 2, 0); } else { - x_130 = x_15; + x_126 = x_15; } -lean::cnstr_set(x_130, 0, x_129); -lean::cnstr_set(x_130, 1, x_13); -return x_130; +lean::cnstr_set(x_126, 0, x_125); +lean::cnstr_set(x_126, 1, x_13); +return x_126; } } } @@ -4319,7 +4313,7 @@ lean::cnstr_set(x_12, 1, x_11); if (lean::obj_tag(x_1) == 0) { obj* x_13; obj* x_14; obj* x_15; obj* x_16; -x_13 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_13 = lean::box(3); x_14 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_14, 0, x_13); lean::cnstr_set(x_14, 1, x_12); @@ -4329,32 +4323,18 @@ return x_16; } else { -obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27; +obj* x_17; obj* x_20; obj* x_21; obj* x_22; obj* x_23; x_17 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_19 = x_1; -} else { - lean::inc(x_17); - lean::dec(x_1); - x_19 = lean::box(0); -} +lean::inc(x_17); +lean::dec(x_1); x_20 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_20, 0, x_17); -if (lean::is_scalar(x_19)) { - x_21 = lean::alloc_cnstr(1, 1, 0); -} else { - x_21 = x_19; -} +x_21 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_21, 0, x_20); -x_22 = lean::box(3); -x_23 = l_Option_getOrElse___main___rarg(x_21, x_22); -lean::dec(x_21); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_23); -lean::cnstr_set(x_25, 1, x_12); -x_26 = l_Lean_Parser_command_NotationSpec_precedence; -x_27 = l_Lean_Parser_Syntax_mkNode(x_26, x_25); -return x_27; +lean::cnstr_set(x_21, 1, x_12); +x_22 = l_Lean_Parser_command_NotationSpec_precedence; +x_23 = l_Lean_Parser_Syntax_mkNode(x_22, x_21); +return x_23; } } } @@ -5396,49 +5376,44 @@ return x_139; obj* _init_l_Lean_Parser_command_NotationSpec_symbolQuote_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_8; obj* x_9; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -x_4 = l_Lean_Parser_noKind; -x_5 = l_Lean_Parser_Syntax_mkNode(x_4, x_0); +x_1 = l_Lean_Parser_noKind; +x_2 = l_Lean_Parser_Syntax_mkNode(x_1, x_0); +x_3 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_3, 0, x_2); +lean::cnstr_set(x_3, 1, x_0); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_3); x_6 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_0); -lean::inc(x_3); -x_8 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_8, 0, x_3); -lean::cnstr_set(x_8, 1, x_6); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_3); -lean::cnstr_set(x_9, 1, x_8); -return x_9; +lean::cnstr_set(x_6, 0, x_4); +lean::cnstr_set(x_6, 1, x_5); +return x_6; } } obj* _init_l_Lean_Parser_command_NotationSpec_symbolQuote_HasView_x_27___lambda__2___closed__2() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -x_4 = l_Lean_Parser_noKind; -x_5 = l_Lean_Parser_Syntax_mkNode(x_4, x_0); -x_6 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_0); -x_7 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_7, 0, x_3); -lean::cnstr_set(x_7, 1, x_6); -return x_7; +x_1 = l_Lean_Parser_noKind; +x_2 = l_Lean_Parser_Syntax_mkNode(x_1, x_0); +x_3 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_3, 0, x_2); +lean::cnstr_set(x_3, 1, x_0); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_3); +return x_5; } } obj* l_Lean_Parser_command_NotationSpec_symbolQuote_HasView_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_13; obj* x_14; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -5451,242 +5426,271 @@ lean::dec(x_0); x_10 = lean::box(0); if (lean::obj_tag(x_1) == 0) { -obj* x_13; -x_13 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_11 = x_13; +if (lean::obj_tag(x_3) == 0) +{ +obj* x_16; +x_16 = lean::box(3); +x_11 = x_16; goto lbl_12; } else { -obj* x_14; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; -x_14 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_16 = x_1; -} else { - lean::inc(x_14); - lean::dec(x_1); - x_16 = lean::box(0); +obj* x_17; obj* x_20; +x_17 = lean::cnstr_get(x_3, 0); +lean::inc(x_17); +lean::dec(x_3); +x_20 = lean::box(3); +x_13 = x_20; +x_14 = x_17; +goto lbl_15; } -x_17 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_17, 0, x_14); -if (lean::is_scalar(x_16)) { - x_18 = lean::alloc_cnstr(1, 1, 0); -} else { - x_18 = x_16; } -lean::cnstr_set(x_18, 0, x_17); -x_19 = lean::box(3); -x_20 = l_Option_getOrElse___main___rarg(x_18, x_19); -lean::dec(x_18); -x_11 = x_20; +else +{ +obj* x_21; obj* x_24; +x_21 = lean::cnstr_get(x_1, 0); +lean::inc(x_21); +lean::dec(x_1); +x_24 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_24, 0, x_21); +if (lean::obj_tag(x_3) == 0) +{ +x_11 = x_24; goto lbl_12; } +else +{ +obj* x_25; +x_25 = lean::cnstr_get(x_3, 0); +lean::inc(x_25); +lean::dec(x_3); +x_13 = x_24; +x_14 = x_25; +goto lbl_15; +} +} lbl_12: { -obj* x_22; obj* x_23; -if (lean::obj_tag(x_3) == 0) -{ if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_7) == 0) { -obj* x_25; obj* x_26; obj* x_27; obj* x_28; -x_25 = l_Lean_Parser_command_NotationSpec_symbolQuote_HasView_x_27___lambda__2___closed__1; -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_11); -lean::cnstr_set(x_26, 1, x_25); -x_27 = l_Lean_Parser_command_NotationSpec_symbolQuote; -x_28 = l_Lean_Parser_Syntax_mkNode(x_27, x_26); -return x_28; +obj* x_28; obj* x_29; obj* x_30; obj* x_31; +x_28 = l_Lean_Parser_command_NotationSpec_symbolQuote_HasView_x_27___lambda__2___closed__1; +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_11); +lean::cnstr_set(x_29, 1, x_28); +x_30 = l_Lean_Parser_command_NotationSpec_symbolQuote; +x_31 = l_Lean_Parser_Syntax_mkNode(x_30, x_29); +return x_31; } else { -obj* x_29; obj* x_32; obj* x_33; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; -x_29 = lean::cnstr_get(x_7, 0); -lean::inc(x_29); +obj* x_32; obj* x_35; obj* x_36; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_32 = lean::cnstr_get(x_7, 0); +lean::inc(x_32); lean::dec(x_7); -x_32 = l_Lean_Parser_command_NotationSpec_precedence_HasView; -x_33 = lean::cnstr_get(x_32, 1); -lean::inc(x_33); -lean::dec(x_32); -x_36 = lean::apply_1(x_33, x_29); -x_37 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_37, 0, x_36); -lean::cnstr_set(x_37, 1, x_10); -x_38 = l_Lean_Parser_noKind; -x_39 = l_Lean_Parser_Syntax_mkNode(x_38, x_37); +x_35 = l_Lean_Parser_command_NotationSpec_precedence_HasView; +x_36 = lean::cnstr_get(x_35, 1); +lean::inc(x_36); +lean::dec(x_35); +x_39 = lean::apply_1(x_36, x_32); x_40 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_40, 0, x_39); lean::cnstr_set(x_40, 1, x_10); -x_41 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_42 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_42, 0, x_41); -lean::cnstr_set(x_42, 1, x_40); +x_41 = l_Lean_Parser_noKind; +x_42 = l_Lean_Parser_Syntax_mkNode(x_41, x_40); x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_41); -lean::cnstr_set(x_43, 1, x_42); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_11); -lean::cnstr_set(x_44, 1, x_43); -x_45 = l_Lean_Parser_command_NotationSpec_symbolQuote; -x_46 = l_Lean_Parser_Syntax_mkNode(x_45, x_44); -return x_46; +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_10); +x_44 = lean::box(3); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_44); +lean::cnstr_set(x_45, 1, x_43); +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_44); +lean::cnstr_set(x_46, 1, x_45); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_11); +lean::cnstr_set(x_47, 1, x_46); +x_48 = l_Lean_Parser_command_NotationSpec_symbolQuote; +x_49 = l_Lean_Parser_Syntax_mkNode(x_48, x_47); +return x_49; } } else { -obj* x_47; obj* x_50; -x_47 = lean::cnstr_get(x_5, 0); -lean::inc(x_47); +obj* x_50; obj* x_53; +x_50 = lean::cnstr_get(x_5, 0); +lean::inc(x_50); lean::dec(x_5); -x_50 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_22 = x_50; -x_23 = x_47; -goto lbl_24; -} +x_53 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_53, 0, x_50); +if (lean::obj_tag(x_7) == 0) +{ +obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_54 = l_Lean_Parser_detailIdent_HasView_x_27___lambda__2___closed__1; +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_53); +lean::cnstr_set(x_55, 1, x_54); +x_56 = lean::box(3); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_55); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_11); +lean::cnstr_set(x_58, 1, x_57); +x_59 = l_Lean_Parser_command_NotationSpec_symbolQuote; +x_60 = l_Lean_Parser_Syntax_mkNode(x_59, x_58); +return x_60; } else { -obj* x_51; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; -x_51 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_53 = x_3; -} else { - lean::inc(x_51); - lean::dec(x_3); - x_53 = lean::box(0); +obj* x_61; obj* x_64; obj* x_65; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; +x_61 = lean::cnstr_get(x_7, 0); +lean::inc(x_61); +lean::dec(x_7); +x_64 = l_Lean_Parser_command_NotationSpec_precedence_HasView; +x_65 = lean::cnstr_get(x_64, 1); +lean::inc(x_65); +lean::dec(x_64); +x_68 = lean::apply_1(x_65, x_61); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_68); +lean::cnstr_set(x_69, 1, x_10); +x_70 = l_Lean_Parser_noKind; +x_71 = l_Lean_Parser_Syntax_mkNode(x_70, x_69); +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_71); +lean::cnstr_set(x_72, 1, x_10); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_53); +lean::cnstr_set(x_73, 1, x_72); +x_74 = lean::box(3); +x_75 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_75, 0, x_74); +lean::cnstr_set(x_75, 1, x_73); +x_76 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_76, 0, x_11); +lean::cnstr_set(x_76, 1, x_75); +x_77 = l_Lean_Parser_command_NotationSpec_symbolQuote; +x_78 = l_Lean_Parser_Syntax_mkNode(x_77, x_76); +return x_78; } -x_54 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_54, 0, x_51); -if (lean::is_scalar(x_53)) { - x_55 = lean::alloc_cnstr(1, 1, 0); -} else { - x_55 = x_53; } -lean::cnstr_set(x_55, 0, x_54); -x_56 = lean::box(3); -x_57 = l_Option_getOrElse___main___rarg(x_55, x_56); -lean::dec(x_55); +} +lbl_15: +{ +obj* x_79; +x_79 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_79, 0, x_14); if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_7) == 0) { -obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; -x_59 = l_Lean_Parser_command_NotationSpec_symbolQuote_HasView_x_27___lambda__2___closed__2; -x_60 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_60, 0, x_57); -lean::cnstr_set(x_60, 1, x_59); -x_61 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_61, 0, x_11); -lean::cnstr_set(x_61, 1, x_60); -x_62 = l_Lean_Parser_command_NotationSpec_symbolQuote; -x_63 = l_Lean_Parser_Syntax_mkNode(x_62, x_61); -return x_63; +obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; +x_80 = l_Lean_Parser_command_NotationSpec_symbolQuote_HasView_x_27___lambda__2___closed__2; +x_81 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_81, 0, x_79); +lean::cnstr_set(x_81, 1, x_80); +x_82 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_82, 0, x_13); +lean::cnstr_set(x_82, 1, x_81); +x_83 = l_Lean_Parser_command_NotationSpec_symbolQuote; +x_84 = l_Lean_Parser_Syntax_mkNode(x_83, x_82); +return x_84; } else { -obj* x_64; obj* x_67; obj* x_68; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; -x_64 = lean::cnstr_get(x_7, 0); -lean::inc(x_64); +obj* x_85; obj* x_88; obj* x_89; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; +x_85 = lean::cnstr_get(x_7, 0); +lean::inc(x_85); lean::dec(x_7); -x_67 = l_Lean_Parser_command_NotationSpec_precedence_HasView; -x_68 = lean::cnstr_get(x_67, 1); -lean::inc(x_68); -lean::dec(x_67); -x_71 = lean::apply_1(x_68, x_64); -x_72 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_72, 0, x_71); -lean::cnstr_set(x_72, 1, x_10); -x_73 = l_Lean_Parser_noKind; -x_74 = l_Lean_Parser_Syntax_mkNode(x_73, x_72); -x_75 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_75, 0, x_74); -lean::cnstr_set(x_75, 1, x_10); -x_76 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_77 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_77, 0, x_76); -lean::cnstr_set(x_77, 1, x_75); -x_78 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_78, 0, x_57); -lean::cnstr_set(x_78, 1, x_77); -x_79 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_79, 0, x_11); -lean::cnstr_set(x_79, 1, x_78); -x_80 = l_Lean_Parser_command_NotationSpec_symbolQuote; -x_81 = l_Lean_Parser_Syntax_mkNode(x_80, x_79); -return x_81; +x_88 = l_Lean_Parser_command_NotationSpec_precedence_HasView; +x_89 = lean::cnstr_get(x_88, 1); +lean::inc(x_89); +lean::dec(x_88); +x_92 = lean::apply_1(x_89, x_85); +x_93 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_93, 0, x_92); +lean::cnstr_set(x_93, 1, x_10); +x_94 = l_Lean_Parser_noKind; +x_95 = l_Lean_Parser_Syntax_mkNode(x_94, x_93); +x_96 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_96, 0, x_95); +lean::cnstr_set(x_96, 1, x_10); +x_97 = lean::box(3); +x_98 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_98, 0, x_97); +lean::cnstr_set(x_98, 1, x_96); +x_99 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_99, 0, x_79); +lean::cnstr_set(x_99, 1, x_98); +x_100 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_100, 0, x_13); +lean::cnstr_set(x_100, 1, x_99); +x_101 = l_Lean_Parser_command_NotationSpec_symbolQuote; +x_102 = l_Lean_Parser_Syntax_mkNode(x_101, x_100); +return x_102; } } else { -obj* x_82; -x_82 = lean::cnstr_get(x_5, 0); -lean::inc(x_82); +obj* x_103; obj* x_106; +x_103 = lean::cnstr_get(x_5, 0); +lean::inc(x_103); lean::dec(x_5); -x_22 = x_57; -x_23 = x_82; -goto lbl_24; -} -} -lbl_24: -{ -obj* x_85; obj* x_86; obj* x_87; obj* x_88; -x_85 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_85, 0, x_23); -x_86 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_86, 0, x_85); -x_87 = lean::box(3); -x_88 = l_Option_getOrElse___main___rarg(x_86, x_87); -lean::dec(x_86); +x_106 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_106, 0, x_103); if (lean::obj_tag(x_7) == 0) { -obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; -x_90 = l_Lean_Parser_detailIdent_HasView_x_27___lambda__2___closed__1; -x_91 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_91, 0, x_88); -lean::cnstr_set(x_91, 1, x_90); -x_92 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_92, 0, x_22); -lean::cnstr_set(x_92, 1, x_91); -x_93 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_93, 0, x_11); -lean::cnstr_set(x_93, 1, x_92); -x_94 = l_Lean_Parser_command_NotationSpec_symbolQuote; -x_95 = l_Lean_Parser_Syntax_mkNode(x_94, x_93); -return x_95; -} -else -{ -obj* x_96; obj* x_99; obj* x_100; obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; -x_96 = lean::cnstr_get(x_7, 0); -lean::inc(x_96); -lean::dec(x_7); -x_99 = l_Lean_Parser_command_NotationSpec_precedence_HasView; -x_100 = lean::cnstr_get(x_99, 1); -lean::inc(x_100); -lean::dec(x_99); -x_103 = lean::apply_1(x_100, x_96); -x_104 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_104, 0, x_103); -lean::cnstr_set(x_104, 1, x_10); -x_105 = l_Lean_Parser_noKind; -x_106 = l_Lean_Parser_Syntax_mkNode(x_105, x_104); -x_107 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_107, 0, x_106); -lean::cnstr_set(x_107, 1, x_10); +obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; +x_107 = l_Lean_Parser_detailIdent_HasView_x_27___lambda__2___closed__1; x_108 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_108, 0, x_88); +lean::cnstr_set(x_108, 0, x_106); lean::cnstr_set(x_108, 1, x_107); x_109 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_109, 0, x_22); +lean::cnstr_set(x_109, 0, x_79); lean::cnstr_set(x_109, 1, x_108); x_110 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_110, 0, x_11); +lean::cnstr_set(x_110, 0, x_13); lean::cnstr_set(x_110, 1, x_109); x_111 = l_Lean_Parser_command_NotationSpec_symbolQuote; x_112 = l_Lean_Parser_Syntax_mkNode(x_111, x_110); return x_112; } +else +{ +obj* x_113; obj* x_116; obj* x_117; obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; obj* x_129; +x_113 = lean::cnstr_get(x_7, 0); +lean::inc(x_113); +lean::dec(x_7); +x_116 = l_Lean_Parser_command_NotationSpec_precedence_HasView; +x_117 = lean::cnstr_get(x_116, 1); +lean::inc(x_117); +lean::dec(x_116); +x_120 = lean::apply_1(x_117, x_113); +x_121 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_121, 0, x_120); +lean::cnstr_set(x_121, 1, x_10); +x_122 = l_Lean_Parser_noKind; +x_123 = l_Lean_Parser_Syntax_mkNode(x_122, x_121); +x_124 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_124, 0, x_123); +lean::cnstr_set(x_124, 1, x_10); +x_125 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_125, 0, x_106); +lean::cnstr_set(x_125, 1, x_124); +x_126 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_126, 0, x_79); +lean::cnstr_set(x_126, 1, x_125); +x_127 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_127, 0, x_13); +lean::cnstr_set(x_127, 1, x_126); +x_128 = l_Lean_Parser_command_NotationSpec_symbolQuote; +x_129 = l_Lean_Parser_Syntax_mkNode(x_128, x_127); +return x_129; +} } } } @@ -6157,181 +6161,273 @@ x_16 = lean::cnstr_get(x_15, 0); lean::inc(x_16); if (lean::obj_tag(x_16) == 0) { -if (lean::obj_tag(x_16) == 0) -{ -obj* x_18; obj* x_21; obj* x_23; obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +obj* x_18; x_18 = lean::cnstr_get(x_15, 1); lean::inc(x_18); lean::dec(x_15); -x_21 = lean::cnstr_get(x_16, 0); -x_23 = lean::cnstr_get(x_16, 1); -x_25 = lean::cnstr_get(x_16, 2); -if (lean::is_exclusive(x_16)) { - x_27 = x_16; -} else { - lean::inc(x_21); - lean::inc(x_23); - lean::inc(x_25); - lean::dec(x_16); - x_27 = lean::box(0); -} -x_28 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_28, 0, x_21); -x_29 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_27)) { - x_30 = lean::alloc_cnstr(0, 3, 0); -} else { - x_30 = x_27; -} -lean::cnstr_set(x_30, 0, x_28); -lean::cnstr_set(x_30, 1, x_23); -lean::cnstr_set(x_30, 2, x_29); -x_31 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_25, x_30); -x_11 = x_31; +x_11 = x_16; x_12 = x_18; goto lbl_13; } else { -obj* x_32; obj* x_35; uint8 x_37; obj* x_38; obj* x_39; obj* x_40; -x_32 = lean::cnstr_get(x_15, 1); -lean::inc(x_32); -lean::dec(x_15); -x_35 = lean::cnstr_get(x_16, 0); -x_37 = lean::cnstr_get_scalar(x_16, sizeof(void*)*1); -if (lean::is_exclusive(x_16)) { - x_38 = x_16; -} else { - lean::inc(x_35); - lean::dec(x_16); - x_38 = lean::box(0); -} -if (lean::is_scalar(x_38)) { - x_39 = lean::alloc_cnstr(1, 1, 1); -} else { - x_39 = x_38; -} -lean::cnstr_set(x_39, 0, x_35); -lean::cnstr_set_scalar(x_39, sizeof(void*)*1, x_37); -x_40 = x_39; -x_11 = x_40; -x_12 = x_32; -goto lbl_13; -} -} -else -{ -obj* x_41; obj* x_44; uint8 x_46; obj* x_47; obj* x_48; obj* x_50; obj* x_52; obj* x_54; obj* x_57; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; -x_41 = lean::cnstr_get(x_15, 1); -lean::inc(x_41); -lean::dec(x_15); -x_44 = lean::cnstr_get(x_16, 0); -x_46 = lean::cnstr_get_scalar(x_16, sizeof(void*)*1); +obj* x_21; uint8 x_23; obj* x_24; obj* x_25; +x_21 = lean::cnstr_get(x_16, 0); +x_23 = lean::cnstr_get_scalar(x_16, sizeof(void*)*1); if (lean::is_exclusive(x_16)) { lean::cnstr_set(x_16, 0, lean::box(0)); - x_47 = x_16; + x_24 = x_16; } else { - lean::inc(x_44); + lean::inc(x_21); lean::dec(x_16); - x_47 = lean::box(0); + x_24 = lean::box(0); } -x_48 = lean::cnstr_get(x_44, 0); -lean::inc(x_48); -x_50 = lean::cnstr_get(x_44, 1); -lean::inc(x_50); -x_52 = lean::cnstr_get(x_44, 2); -lean::inc(x_52); -x_54 = lean::cnstr_get(x_44, 3); -lean::inc(x_54); -lean::dec(x_44); -x_57 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_54); -lean::dec(x_54); -x_59 = lean::box(0); -x_60 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_60, 0, x_57); -lean::cnstr_set(x_60, 1, x_59); -x_61 = l_Lean_Parser_noKind; -x_62 = l_Lean_Parser_Syntax_mkNode(x_61, x_60); -x_63 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_63, 0, x_62); -x_64 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_64, 0, x_48); -lean::cnstr_set(x_64, 1, x_50); -lean::cnstr_set(x_64, 2, x_52); -lean::cnstr_set(x_64, 3, x_63); -if (x_46 == 0) +x_25 = lean::cnstr_get(x_21, 3); +lean::inc(x_25); +if (lean::obj_tag(x_25) == 0) { -uint8 x_65; obj* x_66; obj* x_67; -x_65 = 0; -if (lean::is_scalar(x_47)) { - x_66 = lean::alloc_cnstr(1, 1, 1); +obj* x_27; obj* x_30; obj* x_32; obj* x_34; obj* x_37; obj* x_38; +x_27 = lean::cnstr_get(x_15, 1); +lean::inc(x_27); +lean::dec(x_15); +x_30 = lean::cnstr_get(x_21, 0); +lean::inc(x_30); +x_32 = lean::cnstr_get(x_21, 1); +lean::inc(x_32); +x_34 = lean::cnstr_get(x_21, 2); +lean::inc(x_34); +lean::dec(x_21); +x_37 = l_Lean_Parser_Combinators_optional___rarg___lambda__1___closed__1; +x_38 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_38, 0, x_30); +lean::cnstr_set(x_38, 1, x_32); +lean::cnstr_set(x_38, 2, x_34); +lean::cnstr_set(x_38, 3, x_37); +if (x_23 == 0) +{ +uint8 x_39; obj* x_40; obj* x_41; +x_39 = 0; +if (lean::is_scalar(x_24)) { + x_40 = lean::alloc_cnstr(1, 1, 1); } else { - x_66 = x_47; + x_40 = x_24; } -lean::cnstr_set(x_66, 0, x_64); -lean::cnstr_set_scalar(x_66, sizeof(void*)*1, x_65); -x_67 = x_66; -x_11 = x_67; -x_12 = x_41; +lean::cnstr_set(x_40, 0, x_38); +lean::cnstr_set_scalar(x_40, sizeof(void*)*1, x_39); +x_41 = x_40; +x_11 = x_41; +x_12 = x_27; goto lbl_13; } else { -uint8 x_68; obj* x_69; obj* x_70; -x_68 = 1; -if (lean::is_scalar(x_47)) { - x_69 = lean::alloc_cnstr(1, 1, 1); +uint8 x_42; obj* x_43; obj* x_44; +x_42 = 1; +if (lean::is_scalar(x_24)) { + x_43 = lean::alloc_cnstr(1, 1, 1); } else { - x_69 = x_47; + x_43 = x_24; } -lean::cnstr_set(x_69, 0, x_64); -lean::cnstr_set_scalar(x_69, sizeof(void*)*1, x_68); -x_70 = x_69; -x_11 = x_70; -x_12 = x_41; +lean::cnstr_set(x_43, 0, x_38); +lean::cnstr_set_scalar(x_43, sizeof(void*)*1, x_42); +x_44 = x_43; +x_11 = x_44; +x_12 = x_27; goto lbl_13; } } +else +{ +obj* x_45; obj* x_48; obj* x_50; obj* x_52; obj* x_55; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; +x_45 = lean::cnstr_get(x_15, 1); +lean::inc(x_45); +lean::dec(x_15); +x_48 = lean::cnstr_get(x_21, 0); +lean::inc(x_48); +x_50 = lean::cnstr_get(x_21, 1); +lean::inc(x_50); +x_52 = lean::cnstr_get(x_21, 2); +lean::inc(x_52); +lean::dec(x_21); +x_55 = lean::cnstr_get(x_25, 0); +if (lean::is_exclusive(x_25)) { + x_57 = x_25; +} else { + lean::inc(x_55); + lean::dec(x_25); + x_57 = lean::box(0); +} +x_58 = lean::box(0); +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_55); +lean::cnstr_set(x_59, 1, x_58); +x_60 = l_Lean_Parser_noKind; +x_61 = l_Lean_Parser_Syntax_mkNode(x_60, x_59); +if (lean::is_scalar(x_57)) { + x_62 = lean::alloc_cnstr(1, 1, 0); +} else { + x_62 = x_57; +} +lean::cnstr_set(x_62, 0, x_61); +x_63 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_63, 0, x_48); +lean::cnstr_set(x_63, 1, x_50); +lean::cnstr_set(x_63, 2, x_52); +lean::cnstr_set(x_63, 3, x_62); +if (x_23 == 0) +{ +uint8 x_64; obj* x_65; obj* x_66; +x_64 = 0; +if (lean::is_scalar(x_24)) { + x_65 = lean::alloc_cnstr(1, 1, 1); +} else { + x_65 = x_24; +} +lean::cnstr_set(x_65, 0, x_63); +lean::cnstr_set_scalar(x_65, sizeof(void*)*1, x_64); +x_66 = x_65; +x_11 = x_66; +x_12 = x_45; +goto lbl_13; +} +else +{ +uint8 x_67; obj* x_68; obj* x_69; +x_67 = 1; +if (lean::is_scalar(x_24)) { + x_68 = lean::alloc_cnstr(1, 1, 1); +} else { + x_68 = x_24; +} +lean::cnstr_set(x_68, 0, x_63); +lean::cnstr_set_scalar(x_68, sizeof(void*)*1, x_67); +x_69 = x_68; +x_11 = x_69; +x_12 = x_45; +goto lbl_13; +} +} +} lbl_13: { if (lean::obj_tag(x_11) == 0) { +obj* x_70; obj* x_72; obj* x_74; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; +x_70 = lean::cnstr_get(x_11, 0); +x_72 = lean::cnstr_get(x_11, 1); +x_74 = lean::cnstr_get(x_11, 2); +if (lean::is_exclusive(x_11)) { + x_76 = x_11; +} else { + lean::inc(x_70); + lean::inc(x_72); + lean::inc(x_74); + lean::dec(x_11); + x_76 = lean::box(0); +} +x_77 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_77, 0, x_70); +x_78 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_76)) { + x_79 = lean::alloc_cnstr(0, 3, 0); +} else { + x_79 = x_76; +} +lean::cnstr_set(x_79, 0, x_77); +lean::cnstr_set(x_79, 1, x_72); +lean::cnstr_set(x_79, 2, x_78); +x_80 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_74, x_79); +if (lean::obj_tag(x_80) == 0) +{ lean::dec(x_5); -x_7 = x_11; +x_7 = x_80; x_8 = x_12; goto lbl_9; } else { -uint8 x_72; -x_72 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); -if (x_72 == 0) +uint8 x_82; +x_82 = lean::cnstr_get_scalar(x_80, sizeof(void*)*1); +if (x_82 == 0) { -obj* x_73; obj* x_76; obj* x_79; obj* x_80; obj* x_81; obj* x_82; -x_73 = lean::cnstr_get(x_11, 0); -lean::inc(x_73); +obj* x_83; obj* x_86; obj* x_89; obj* x_90; obj* x_91; obj* x_92; +x_83 = lean::cnstr_get(x_80, 0); +lean::inc(x_83); +lean::dec(x_80); +x_86 = lean::cnstr_get(x_83, 2); +lean::inc(x_86); +lean::dec(x_83); +x_89 = l_mjoin___rarg___closed__1; +x_90 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_90, 0, x_86); +lean::closure_set(x_90, 1, x_89); +x_91 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_91, 0, x_90); +x_92 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_92, 0, x_10); +lean::cnstr_set(x_92, 1, x_5); +lean::cnstr_set(x_92, 2, x_91); +x_7 = x_92; +x_8 = x_12; +goto lbl_9; +} +else +{ +lean::dec(x_5); +x_7 = x_80; +x_8 = x_12; +goto lbl_9; +} +} +} +else +{ +uint8 x_94; +x_94 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); +if (x_94 == 0) +{ +obj* x_95; obj* x_98; obj* x_101; obj* x_102; obj* x_103; obj* x_104; +x_95 = lean::cnstr_get(x_11, 0); +lean::inc(x_95); lean::dec(x_11); -x_76 = lean::cnstr_get(x_73, 2); -lean::inc(x_76); -lean::dec(x_73); -x_79 = l_mjoin___rarg___closed__1; -x_80 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_80, 0, x_76); -lean::closure_set(x_80, 1, x_79); -x_81 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_81, 0, x_80); -x_82 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_82, 0, x_10); -lean::cnstr_set(x_82, 1, x_5); -lean::cnstr_set(x_82, 2, x_81); -x_7 = x_82; +x_98 = lean::cnstr_get(x_95, 2); +lean::inc(x_98); +lean::dec(x_95); +x_101 = l_mjoin___rarg___closed__1; +x_102 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_102, 0, x_98); +lean::closure_set(x_102, 1, x_101); +x_103 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_103, 0, x_102); +x_104 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_104, 0, x_10); +lean::cnstr_set(x_104, 1, x_5); +lean::cnstr_set(x_104, 2, x_103); +x_7 = x_104; x_8 = x_12; goto lbl_9; } else { +obj* x_106; obj* x_108; obj* x_109; obj* x_110; lean::dec(x_5); -x_7 = x_11; +x_106 = lean::cnstr_get(x_11, 0); +if (lean::is_exclusive(x_11)) { + x_108 = x_11; +} else { + lean::inc(x_106); + lean::dec(x_11); + x_108 = lean::box(0); +} +if (lean::is_scalar(x_108)) { + x_109 = lean::alloc_cnstr(1, 1, 1); +} else { + x_109 = x_108; +} +lean::cnstr_set(x_109, 0, x_106); +lean::cnstr_set_scalar(x_109, sizeof(void*)*1, x_94); +x_110 = x_109; +x_7 = x_110; x_8 = x_12; goto lbl_9; } @@ -6340,110 +6436,110 @@ goto lbl_9; } else { -obj* x_84; -x_84 = lean::apply_5(x_0, x_2, x_3, x_4, x_5, x_6); -return x_84; +obj* x_111; +x_111 = lean::apply_5(x_0, x_2, x_3, x_4, x_5, x_6); +return x_111; } lbl_9: { if (lean::obj_tag(x_7) == 0) { -obj* x_85; -x_85 = lean::cnstr_get(x_7, 0); -lean::inc(x_85); -if (lean::obj_tag(x_85) == 0) +obj* x_112; +x_112 = lean::cnstr_get(x_7, 0); +lean::inc(x_112); +if (lean::obj_tag(x_112) == 0) { -obj* x_87; obj* x_89; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; -x_87 = lean::cnstr_get(x_7, 1); -x_89 = lean::cnstr_get(x_7, 2); +obj* x_114; obj* x_116; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; +x_114 = lean::cnstr_get(x_7, 1); +x_116 = lean::cnstr_get(x_7, 2); if (lean::is_exclusive(x_7)) { lean::cnstr_release(x_7, 0); - x_91 = x_7; + x_118 = x_7; } else { - lean::inc(x_87); - lean::inc(x_89); + lean::inc(x_114); + lean::inc(x_116); lean::dec(x_7); - x_91 = lean::box(0); + x_118 = lean::box(0); } -x_92 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_93 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_91)) { - x_94 = lean::alloc_cnstr(0, 3, 0); +x_119 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_120 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_118)) { + x_121 = lean::alloc_cnstr(0, 3, 0); } else { - x_94 = x_91; + x_121 = x_118; } -lean::cnstr_set(x_94, 0, x_92); -lean::cnstr_set(x_94, 1, x_87); -lean::cnstr_set(x_94, 2, x_93); -x_95 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_89, x_94); -x_96 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_96, 0, x_95); -lean::cnstr_set(x_96, 1, x_8); -return x_96; +lean::cnstr_set(x_121, 0, x_119); +lean::cnstr_set(x_121, 1, x_114); +lean::cnstr_set(x_121, 2, x_120); +x_122 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_116, x_121); +x_123 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_123, 0, x_122); +lean::cnstr_set(x_123, 1, x_8); +return x_123; } else { -obj* x_97; obj* x_99; obj* x_101; obj* x_102; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; -x_97 = lean::cnstr_get(x_7, 1); -x_99 = lean::cnstr_get(x_7, 2); +obj* x_124; obj* x_126; obj* x_128; obj* x_129; obj* x_132; obj* x_133; obj* x_134; obj* x_135; obj* x_136; obj* x_137; obj* x_138; obj* x_139; +x_124 = lean::cnstr_get(x_7, 1); +x_126 = lean::cnstr_get(x_7, 2); if (lean::is_exclusive(x_7)) { lean::cnstr_release(x_7, 0); - x_101 = x_7; + x_128 = x_7; } else { - lean::inc(x_97); - lean::inc(x_99); + lean::inc(x_124); + lean::inc(x_126); lean::dec(x_7); - x_101 = lean::box(0); + x_128 = lean::box(0); } -x_102 = lean::cnstr_get(x_85, 0); -lean::inc(x_102); -lean::dec(x_85); -x_105 = lean::box(0); -x_106 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_106, 0, x_102); -lean::cnstr_set(x_106, 1, x_105); -x_107 = l_Lean_Parser_noKind; -x_108 = l_Lean_Parser_Syntax_mkNode(x_107, x_106); -x_109 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_101)) { - x_110 = lean::alloc_cnstr(0, 3, 0); +x_129 = lean::cnstr_get(x_112, 0); +lean::inc(x_129); +lean::dec(x_112); +x_132 = lean::box(0); +x_133 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_133, 0, x_129); +lean::cnstr_set(x_133, 1, x_132); +x_134 = l_Lean_Parser_noKind; +x_135 = l_Lean_Parser_Syntax_mkNode(x_134, x_133); +x_136 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_128)) { + x_137 = lean::alloc_cnstr(0, 3, 0); } else { - x_110 = x_101; + x_137 = x_128; } -lean::cnstr_set(x_110, 0, x_108); -lean::cnstr_set(x_110, 1, x_97); -lean::cnstr_set(x_110, 2, x_109); -x_111 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_99, x_110); -x_112 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_112, 0, x_111); -lean::cnstr_set(x_112, 1, x_8); -return x_112; +lean::cnstr_set(x_137, 0, x_135); +lean::cnstr_set(x_137, 1, x_124); +lean::cnstr_set(x_137, 2, x_136); +x_138 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_126, x_137); +x_139 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_139, 0, x_138); +lean::cnstr_set(x_139, 1, x_8); +return x_139; } } else { -obj* x_113; uint8 x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; -x_113 = lean::cnstr_get(x_7, 0); -x_115 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); +obj* x_140; uint8 x_142; obj* x_143; obj* x_144; obj* x_145; obj* x_146; +x_140 = lean::cnstr_get(x_7, 0); +x_142 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); if (lean::is_exclusive(x_7)) { - x_116 = x_7; + x_143 = x_7; } else { - lean::inc(x_113); + lean::inc(x_140); lean::dec(x_7); - x_116 = lean::box(0); + x_143 = lean::box(0); } -if (lean::is_scalar(x_116)) { - x_117 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_143)) { + x_144 = lean::alloc_cnstr(1, 1, 1); } else { - x_117 = x_116; + x_144 = x_143; } -lean::cnstr_set(x_117, 0, x_113); -lean::cnstr_set_scalar(x_117, sizeof(void*)*1, x_115); -x_118 = x_117; -x_119 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_119, 0, x_118); -lean::cnstr_set(x_119, 1, x_8); -return x_119; +lean::cnstr_set(x_144, 0, x_140); +lean::cnstr_set_scalar(x_144, sizeof(void*)*1, x_142); +x_145 = x_144; +x_146 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_146, 0, x_145); +lean::cnstr_set(x_146, 1, x_8); +return x_146; } } } @@ -6988,7 +7084,7 @@ goto lbl_21; } lbl_21: { -obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_48; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; +obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_46; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; lean::dec(x_20); x_40 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_40, 0, x_3); @@ -6996,78 +7092,76 @@ x_41 = lean::box(0); x_42 = l_String_splitAux___main___closed__1; x_43 = l_Lean_Parser_command_NotationSpec_unquotedSymbol_Parser___closed__1; x_44 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_42, x_43, x_40, x_41, x_0, x_1, x_2, x_15, x_10); -lean::dec(x_15); lean::dec(x_1); -lean::dec(x_40); -x_48 = lean::cnstr_get(x_44, 0); -x_50 = lean::cnstr_get(x_44, 1); +x_46 = lean::cnstr_get(x_44, 0); +x_48 = lean::cnstr_get(x_44, 1); if (lean::is_exclusive(x_44)) { - x_52 = x_44; + x_50 = x_44; } else { + lean::inc(x_46); lean::inc(x_48); - lean::inc(x_50); lean::dec(x_44); - x_52 = lean::box(0); + x_50 = lean::box(0); } -x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_48); -x_54 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_55 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_54, x_53); -x_56 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_55, x_43); -x_57 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_56); -if (lean::is_scalar(x_52)) { - x_58 = lean::alloc_cnstr(0, 2, 0); +x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_46); +x_52 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_52, x_51); +x_54 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_53, x_43); +x_55 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_54); +if (lean::is_scalar(x_50)) { + x_56 = lean::alloc_cnstr(0, 2, 0); } else { - x_58 = x_52; + x_56 = x_50; } -lean::cnstr_set(x_58, 0, x_57); -lean::cnstr_set(x_58, 1, x_50); -return x_58; +lean::cnstr_set(x_56, 0, x_55); +lean::cnstr_set(x_56, 1, x_48); +return x_56; } } else { -obj* x_61; obj* x_63; obj* x_64; uint8 x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; +obj* x_59; obj* x_61; obj* x_62; uint8 x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; lean::dec(x_1); lean::dec(x_3); -x_61 = lean::cnstr_get(x_7, 1); +x_59 = lean::cnstr_get(x_7, 1); if (lean::is_exclusive(x_7)) { lean::cnstr_release(x_7, 0); - x_63 = x_7; + x_61 = x_7; } else { - lean::inc(x_61); + lean::inc(x_59); lean::dec(x_7); - x_63 = lean::box(0); + x_61 = lean::box(0); } -x_64 = lean::cnstr_get(x_8, 0); -x_66 = lean::cnstr_get_scalar(x_8, sizeof(void*)*1); +x_62 = lean::cnstr_get(x_8, 0); +x_64 = lean::cnstr_get_scalar(x_8, sizeof(void*)*1); if (lean::is_exclusive(x_8)) { - x_67 = x_8; + x_65 = x_8; } else { - lean::inc(x_64); + lean::inc(x_62); lean::dec(x_8); - x_67 = lean::box(0); + x_65 = lean::box(0); } -if (lean::is_scalar(x_67)) { - x_68 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_65)) { + x_66 = lean::alloc_cnstr(1, 1, 1); } else { - x_68 = x_67; + x_66 = x_65; } -lean::cnstr_set(x_68, 0, x_64); -lean::cnstr_set_scalar(x_68, sizeof(void*)*1, x_66); -x_69 = x_68; -x_70 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_71 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_70, x_69); -x_72 = l_Lean_Parser_command_NotationSpec_unquotedSymbol_Parser___closed__1; -x_73 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_71, x_72); -x_74 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_73); -if (lean::is_scalar(x_63)) { - x_75 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_66, 0, x_62); +lean::cnstr_set_scalar(x_66, sizeof(void*)*1, x_64); +x_67 = x_66; +x_68 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_69 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_68, x_67); +x_70 = l_Lean_Parser_command_NotationSpec_unquotedSymbol_Parser___closed__1; +x_71 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_69, x_70); +x_72 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_71); +if (lean::is_scalar(x_61)) { + x_73 = lean::alloc_cnstr(0, 2, 0); } else { - x_75 = x_63; + x_73 = x_61; } -lean::cnstr_set(x_75, 0, x_74); -lean::cnstr_set(x_75, 1, x_61); -return x_75; +lean::cnstr_set(x_73, 0, x_72); +lean::cnstr_set(x_73, 1, x_59); +return x_73; } } } @@ -7699,24 +7793,22 @@ return x_86; obj* _init_l_Lean_Parser_command_NotationSpec_mixfixSymbol_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(1ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_NotationSpec_mixfixSymbol; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_NotationSpec_mixfixSymbol; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* l_Lean_Parser_command_NotationSpec_mixfixSymbol_HasView_x_27___lambda__2(obj* x_0) { @@ -7761,37 +7853,23 @@ return x_19; } else { -obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_20 = lean::cnstr_get(x_16, 0); -if (lean::is_exclusive(x_16)) { - x_22 = x_16; -} else { - lean::inc(x_20); - lean::dec(x_16); - x_22 = lean::box(0); -} +lean::inc(x_20); +lean::dec(x_16); x_23 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_23, 0, x_20); -if (lean::is_scalar(x_22)) { - x_24 = lean::alloc_cnstr(1, 1, 0); -} else { - x_24 = x_22; -} +x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); -x_25 = lean::box(3); -x_26 = l_Option_getOrElse___main___rarg(x_24, x_25); -lean::dec(x_24); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_26); -lean::cnstr_set(x_28, 1, x_1); -x_29 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; -x_30 = l_Lean_Parser_Syntax_mkNode(x_29, x_28); -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_30); -lean::cnstr_set(x_31, 1, x_1); -x_32 = l_Lean_Parser_command_NotationSpec_mixfixSymbol; -x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); -return x_33; +lean::cnstr_set(x_24, 1, x_1); +x_25 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; +x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_1); +x_28 = l_Lean_Parser_command_NotationSpec_mixfixSymbol; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } } @@ -8366,7 +8444,7 @@ return x_131; obj* l_Lean_Parser_command_NotationSpec_foldActionFolder_HasView_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_19; obj* x_20; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_16; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -8389,208 +8467,254 @@ if (lean::obj_tag(x_1) == 0) { if (lean::obj_tag(x_7) == 0) { -obj* x_22; -x_22 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_17 = x_22; -goto lbl_18; -} -else -{ -obj* x_23; obj* x_26; -x_23 = lean::cnstr_get(x_7, 0); -lean::inc(x_23); -lean::dec(x_7); -x_26 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_19 = x_26; -x_20 = x_23; -goto lbl_21; -} -} -else -{ -obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; -x_27 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_29 = x_1; -} else { - lean::inc(x_27); - lean::dec(x_1); - x_29 = lean::box(0); -} -x_30 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_30, 0, x_27); -if (lean::is_scalar(x_29)) { - x_31 = lean::alloc_cnstr(1, 1, 0); -} else { - x_31 = x_29; -} -lean::cnstr_set(x_31, 0, x_30); -x_32 = lean::box(3); -x_33 = l_Option_getOrElse___main___rarg(x_31, x_32); -lean::dec(x_31); -if (lean::obj_tag(x_7) == 0) -{ -x_17 = x_33; -goto lbl_18; -} -else -{ -obj* x_35; -x_35 = lean::cnstr_get(x_7, 0); -lean::inc(x_35); -lean::dec(x_7); -x_19 = x_33; -x_20 = x_35; -goto lbl_21; -} -} -lbl_18: -{ if (lean::obj_tag(x_11) == 0) { -obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; -x_38 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_39 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_39, 0, x_9); -lean::cnstr_set(x_39, 1, x_38); -x_40 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_39); -x_42 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_42, 0, x_15); -lean::cnstr_set(x_42, 1, x_41); -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_14); -lean::cnstr_set(x_43, 1, x_42); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_17); -lean::cnstr_set(x_44, 1, x_43); -x_45 = l_Lean_Parser_command_NotationSpec_foldActionFolder; -x_46 = l_Lean_Parser_Syntax_mkNode(x_45, x_44); -return x_46; +obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; +x_17 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_9); +lean::cnstr_set(x_18, 1, x_17); +x_19 = lean::box(3); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_19); +lean::cnstr_set(x_20, 1, x_18); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_15); +lean::cnstr_set(x_21, 1, x_20); +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_14); +lean::cnstr_set(x_22, 1, x_21); +x_23 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_23, 0, x_19); +lean::cnstr_set(x_23, 1, x_22); +x_24 = l_Lean_Parser_command_NotationSpec_foldActionFolder; +x_25 = l_Lean_Parser_Syntax_mkNode(x_24, x_23); +return x_25; } else { -obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; -x_47 = lean::cnstr_get(x_11, 0); -if (lean::is_exclusive(x_11)) { - x_49 = x_11; -} else { - lean::inc(x_47); - lean::dec(x_11); - x_49 = lean::box(0); +obj* x_26; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_26 = lean::cnstr_get(x_11, 0); +lean::inc(x_26); +lean::dec(x_11); +x_29 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_29, 0, x_26); +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_29); +lean::cnstr_set(x_30, 1, x_16); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_9); +lean::cnstr_set(x_31, 1, x_30); +x_32 = lean::box(3); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_31); +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_15); +lean::cnstr_set(x_34, 1, x_33); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_14); +lean::cnstr_set(x_35, 1, x_34); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_32); +lean::cnstr_set(x_36, 1, x_35); +x_37 = l_Lean_Parser_command_NotationSpec_foldActionFolder; +x_38 = l_Lean_Parser_Syntax_mkNode(x_37, x_36); +return x_38; } -x_50 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_50, 0, x_47); -if (lean::is_scalar(x_49)) { - x_51 = lean::alloc_cnstr(1, 1, 0); -} else { - x_51 = x_49; } -lean::cnstr_set(x_51, 0, x_50); -x_52 = lean::box(3); -x_53 = l_Option_getOrElse___main___rarg(x_51, x_52); -lean::dec(x_51); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_53); -lean::cnstr_set(x_55, 1, x_16); +else +{ +obj* x_39; obj* x_42; +x_39 = lean::cnstr_get(x_7, 0); +lean::inc(x_39); +lean::dec(x_7); +x_42 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_42, 0, x_39); +if (lean::obj_tag(x_11) == 0) +{ +obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_43 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_9); +lean::cnstr_set(x_44, 1, x_43); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_42); +lean::cnstr_set(x_45, 1, x_44); +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_15); +lean::cnstr_set(x_46, 1, x_45); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_14); +lean::cnstr_set(x_47, 1, x_46); +x_48 = lean::box(3); +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_48); +lean::cnstr_set(x_49, 1, x_47); +x_50 = l_Lean_Parser_command_NotationSpec_foldActionFolder; +x_51 = l_Lean_Parser_Syntax_mkNode(x_50, x_49); +return x_51; +} +else +{ +obj* x_52; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; +x_52 = lean::cnstr_get(x_11, 0); +lean::inc(x_52); +lean::dec(x_11); +x_55 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_55, 0, x_52); x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_9); -lean::cnstr_set(x_56, 1, x_55); -x_57 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +lean::cnstr_set(x_56, 0, x_55); +lean::cnstr_set(x_56, 1, x_16); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_9); +lean::cnstr_set(x_57, 1, x_56); x_58 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_58, 0, x_57); -lean::cnstr_set(x_58, 1, x_56); +lean::cnstr_set(x_58, 0, x_42); +lean::cnstr_set(x_58, 1, x_57); x_59 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_59, 0, x_15); lean::cnstr_set(x_59, 1, x_58); x_60 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_60, 0, x_14); lean::cnstr_set(x_60, 1, x_59); -x_61 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_61, 0, x_17); -lean::cnstr_set(x_61, 1, x_60); -x_62 = l_Lean_Parser_command_NotationSpec_foldActionFolder; -x_63 = l_Lean_Parser_Syntax_mkNode(x_62, x_61); -return x_63; +x_61 = lean::box(3); +x_62 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_62, 0, x_61); +lean::cnstr_set(x_62, 1, x_60); +x_63 = l_Lean_Parser_command_NotationSpec_foldActionFolder; +x_64 = l_Lean_Parser_Syntax_mkNode(x_63, x_62); +return x_64; } } -lbl_21: +} +else +{ +obj* x_65; obj* x_68; +x_65 = lean::cnstr_get(x_1, 0); +lean::inc(x_65); +lean::dec(x_1); +x_68 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_68, 0, x_65); +if (lean::obj_tag(x_7) == 0) { -obj* x_64; obj* x_65; obj* x_66; obj* x_67; -x_64 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_64, 0, x_20); -x_65 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_65, 0, x_64); -x_66 = lean::box(3); -x_67 = l_Option_getOrElse___main___rarg(x_65, x_66); -lean::dec(x_65); if (lean::obj_tag(x_11) == 0) { -obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; +obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; x_69 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_70 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_70, 0, x_9); lean::cnstr_set(x_70, 1, x_69); -x_71 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_71, 0, x_67); -lean::cnstr_set(x_71, 1, x_70); +x_71 = lean::box(3); x_72 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_72, 0, x_15); -lean::cnstr_set(x_72, 1, x_71); +lean::cnstr_set(x_72, 0, x_71); +lean::cnstr_set(x_72, 1, x_70); x_73 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_73, 0, x_14); +lean::cnstr_set(x_73, 0, x_15); lean::cnstr_set(x_73, 1, x_72); x_74 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_74, 0, x_19); +lean::cnstr_set(x_74, 0, x_14); lean::cnstr_set(x_74, 1, x_73); -x_75 = l_Lean_Parser_command_NotationSpec_foldActionFolder; -x_76 = l_Lean_Parser_Syntax_mkNode(x_75, x_74); -return x_76; +x_75 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_75, 0, x_68); +lean::cnstr_set(x_75, 1, x_74); +x_76 = l_Lean_Parser_command_NotationSpec_foldActionFolder; +x_77 = l_Lean_Parser_Syntax_mkNode(x_76, x_75); +return x_77; } else { -obj* x_77; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; -x_77 = lean::cnstr_get(x_11, 0); -if (lean::is_exclusive(x_11)) { - x_79 = x_11; -} else { - lean::inc(x_77); - lean::dec(x_11); - x_79 = lean::box(0); -} -x_80 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_80, 0, x_77); -if (lean::is_scalar(x_79)) { - x_81 = lean::alloc_cnstr(1, 1, 0); -} else { - x_81 = x_79; -} -lean::cnstr_set(x_81, 0, x_80); -x_82 = l_Option_getOrElse___main___rarg(x_81, x_66); -lean::dec(x_81); -x_84 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_84, 0, x_82); -lean::cnstr_set(x_84, 1, x_16); +obj* x_78; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; +x_78 = lean::cnstr_get(x_11, 0); +lean::inc(x_78); +lean::dec(x_11); +x_81 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_81, 0, x_78); +x_82 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_82, 0, x_81); +lean::cnstr_set(x_82, 1, x_16); +x_83 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_83, 0, x_9); +lean::cnstr_set(x_83, 1, x_82); +x_84 = lean::box(3); x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_9); -lean::cnstr_set(x_85, 1, x_84); +lean::cnstr_set(x_85, 0, x_84); +lean::cnstr_set(x_85, 1, x_83); x_86 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_86, 0, x_67); +lean::cnstr_set(x_86, 0, x_15); lean::cnstr_set(x_86, 1, x_85); x_87 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_87, 0, x_15); +lean::cnstr_set(x_87, 0, x_14); lean::cnstr_set(x_87, 1, x_86); x_88 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_88, 0, x_14); +lean::cnstr_set(x_88, 0, x_68); lean::cnstr_set(x_88, 1, x_87); -x_89 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_89, 0, x_19); -lean::cnstr_set(x_89, 1, x_88); -x_90 = l_Lean_Parser_command_NotationSpec_foldActionFolder; -x_91 = l_Lean_Parser_Syntax_mkNode(x_90, x_89); -return x_91; +x_89 = l_Lean_Parser_command_NotationSpec_foldActionFolder; +x_90 = l_Lean_Parser_Syntax_mkNode(x_89, x_88); +return x_90; +} +} +else +{ +obj* x_91; obj* x_94; +x_91 = lean::cnstr_get(x_7, 0); +lean::inc(x_91); +lean::dec(x_7); +x_94 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_94, 0, x_91); +if (lean::obj_tag(x_11) == 0) +{ +obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; +x_95 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_96 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_96, 0, x_9); +lean::cnstr_set(x_96, 1, x_95); +x_97 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_97, 0, x_94); +lean::cnstr_set(x_97, 1, x_96); +x_98 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_98, 0, x_15); +lean::cnstr_set(x_98, 1, x_97); +x_99 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_99, 0, x_14); +lean::cnstr_set(x_99, 1, x_98); +x_100 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_100, 0, x_68); +lean::cnstr_set(x_100, 1, x_99); +x_101 = l_Lean_Parser_command_NotationSpec_foldActionFolder; +x_102 = l_Lean_Parser_Syntax_mkNode(x_101, x_100); +return x_102; +} +else +{ +obj* x_103; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; +x_103 = lean::cnstr_get(x_11, 0); +lean::inc(x_103); +lean::dec(x_11); +x_106 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_106, 0, x_103); +x_107 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_107, 0, x_106); +lean::cnstr_set(x_107, 1, x_16); +x_108 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_108, 0, x_9); +lean::cnstr_set(x_108, 1, x_107); +x_109 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_109, 0, x_94); +lean::cnstr_set(x_109, 1, x_108); +x_110 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_110, 0, x_15); +lean::cnstr_set(x_110, 1, x_109); +x_111 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_111, 0, x_14); +lean::cnstr_set(x_111, 1, x_110); +x_112 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_112, 0, x_68); +lean::cnstr_set(x_112, 1, x_111); +x_113 = l_Lean_Parser_command_NotationSpec_foldActionFolder; +x_114 = l_Lean_Parser_Syntax_mkNode(x_113, x_112); +return x_114; +} } } } @@ -9070,7 +9194,7 @@ lean::cnstr_set(x_33, 1, x_32); x_34 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_34, 0, x_3); lean::cnstr_set(x_34, 1, x_33); -x_35 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_35 = lean::box(3); x_36 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_36, 0, x_35); lean::cnstr_set(x_36, 1, x_34); @@ -9080,146 +9204,105 @@ return x_38; } else { -obj* x_39; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +obj* x_39; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; x_39 = lean::cnstr_get(x_13, 0); -if (lean::is_exclusive(x_13)) { - x_41 = x_13; -} else { - lean::inc(x_39); - lean::dec(x_13); - x_41 = lean::box(0); -} +lean::inc(x_39); +lean::dec(x_13); x_42 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_42, 0, x_39); -if (lean::is_scalar(x_41)) { - x_43 = lean::alloc_cnstr(1, 1, 0); -} else { - x_43 = x_41; -} +x_43 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_43, 0, x_42); -x_44 = lean::box(3); -x_45 = l_Option_getOrElse___main___rarg(x_43, x_44); -lean::dec(x_43); +lean::cnstr_set(x_43, 1, x_28); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_27); +lean::cnstr_set(x_44, 1, x_43); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_9); +lean::cnstr_set(x_45, 1, x_44); +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_26); +lean::cnstr_set(x_46, 1, x_45); x_47 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_47, 0, x_45); -lean::cnstr_set(x_47, 1, x_28); +lean::cnstr_set(x_47, 0, x_21); +lean::cnstr_set(x_47, 1, x_46); x_48 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_48, 0, x_27); +lean::cnstr_set(x_48, 0, x_3); lean::cnstr_set(x_48, 1, x_47); -x_49 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_49, 0, x_9); -lean::cnstr_set(x_49, 1, x_48); +x_49 = lean::box(3); x_50 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_50, 0, x_26); -lean::cnstr_set(x_50, 1, x_49); -x_51 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_51, 0, x_21); -lean::cnstr_set(x_51, 1, x_50); -x_52 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_52, 0, x_3); -lean::cnstr_set(x_52, 1, x_51); -x_53 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_53); -lean::cnstr_set(x_54, 1, x_52); -x_55 = l_Lean_Parser_command_NotationSpec_foldAction; -x_56 = l_Lean_Parser_Syntax_mkNode(x_55, x_54); -return x_56; +lean::cnstr_set(x_50, 0, x_49); +lean::cnstr_set(x_50, 1, x_48); +x_51 = l_Lean_Parser_command_NotationSpec_foldAction; +x_52 = l_Lean_Parser_Syntax_mkNode(x_51, x_50); +return x_52; } } else { -obj* x_57; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; -x_57 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_59 = x_1; -} else { - lean::inc(x_57); - lean::dec(x_1); - x_59 = lean::box(0); -} -x_60 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_60, 0, x_57); -if (lean::is_scalar(x_59)) { - x_61 = lean::alloc_cnstr(1, 1, 0); -} else { - x_61 = x_59; -} -lean::cnstr_set(x_61, 0, x_60); -x_62 = lean::box(3); -x_63 = l_Option_getOrElse___main___rarg(x_61, x_62); -lean::dec(x_61); +obj* x_53; obj* x_56; +x_53 = lean::cnstr_get(x_1, 0); +lean::inc(x_53); +lean::dec(x_1); +x_56 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_56, 0, x_53); if (lean::obj_tag(x_13) == 0) { -obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; -x_65 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_66 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_66, 0, x_27); -lean::cnstr_set(x_66, 1, x_65); -x_67 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_67, 0, x_9); -lean::cnstr_set(x_67, 1, x_66); -x_68 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_68, 0, x_26); -lean::cnstr_set(x_68, 1, x_67); -x_69 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_69, 0, x_21); -lean::cnstr_set(x_69, 1, x_68); -x_70 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_70, 0, x_3); -lean::cnstr_set(x_70, 1, x_69); -x_71 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_71, 0, x_63); -lean::cnstr_set(x_71, 1, x_70); -x_72 = l_Lean_Parser_command_NotationSpec_foldAction; -x_73 = l_Lean_Parser_Syntax_mkNode(x_72, x_71); -return x_73; +obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; +x_57 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_27); +lean::cnstr_set(x_58, 1, x_57); +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_9); +lean::cnstr_set(x_59, 1, x_58); +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_26); +lean::cnstr_set(x_60, 1, x_59); +x_61 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_61, 0, x_21); +lean::cnstr_set(x_61, 1, x_60); +x_62 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_62, 0, x_3); +lean::cnstr_set(x_62, 1, x_61); +x_63 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_63, 0, x_56); +lean::cnstr_set(x_63, 1, x_62); +x_64 = l_Lean_Parser_command_NotationSpec_foldAction; +x_65 = l_Lean_Parser_Syntax_mkNode(x_64, x_63); +return x_65; } else { -obj* x_74; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; -x_74 = lean::cnstr_get(x_13, 0); -if (lean::is_exclusive(x_13)) { - x_76 = x_13; -} else { - lean::inc(x_74); - lean::dec(x_13); - x_76 = lean::box(0); -} -x_77 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_77, 0, x_74); -if (lean::is_scalar(x_76)) { - x_78 = lean::alloc_cnstr(1, 1, 0); -} else { - x_78 = x_76; -} -lean::cnstr_set(x_78, 0, x_77); -x_79 = l_Option_getOrElse___main___rarg(x_78, x_62); -lean::dec(x_78); -x_81 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_81, 0, x_79); -lean::cnstr_set(x_81, 1, x_28); -x_82 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_82, 0, x_27); -lean::cnstr_set(x_82, 1, x_81); -x_83 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_83, 0, x_9); -lean::cnstr_set(x_83, 1, x_82); -x_84 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_84, 0, x_26); -lean::cnstr_set(x_84, 1, x_83); -x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_21); -lean::cnstr_set(x_85, 1, x_84); -x_86 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_86, 0, x_3); -lean::cnstr_set(x_86, 1, x_85); -x_87 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_87, 0, x_63); -lean::cnstr_set(x_87, 1, x_86); -x_88 = l_Lean_Parser_command_NotationSpec_foldAction; -x_89 = l_Lean_Parser_Syntax_mkNode(x_88, x_87); -return x_89; +obj* x_66; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; +x_66 = lean::cnstr_get(x_13, 0); +lean::inc(x_66); +lean::dec(x_13); +x_69 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_69, 0, x_66); +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_69); +lean::cnstr_set(x_70, 1, x_28); +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_27); +lean::cnstr_set(x_71, 1, x_70); +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_9); +lean::cnstr_set(x_72, 1, x_71); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_26); +lean::cnstr_set(x_73, 1, x_72); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_21); +lean::cnstr_set(x_74, 1, x_73); +x_75 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_75, 0, x_3); +lean::cnstr_set(x_75, 1, x_74); +x_76 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_76, 0, x_56); +lean::cnstr_set(x_76, 1, x_75); +x_77 = l_Lean_Parser_command_NotationSpec_foldAction; +x_78 = l_Lean_Parser_Syntax_mkNode(x_77, x_76); +return x_78; } } } @@ -9388,7 +9471,6 @@ x_6 = lean::box(0); x_7 = l_Lean_Parser_Combinators_anyOf___rarg___closed__1; x_8 = l_mjoin___rarg___closed__1; x_9 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_7, x_8, x_6, x_6, x_1, x_2, x_3, x_4, x_5); -lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); lean::dec(x_1); @@ -9396,14 +9478,14 @@ return x_9; } else { -obj* x_14; obj* x_16; obj* x_19; -x_14 = lean::cnstr_get(x_0, 0); -lean::inc(x_14); -x_16 = lean::cnstr_get(x_0, 1); -lean::inc(x_16); +obj* x_13; obj* x_15; obj* x_18; +x_13 = lean::cnstr_get(x_0, 0); +lean::inc(x_13); +x_15 = lean::cnstr_get(x_0, 1); +lean::inc(x_15); lean::dec(x_0); -x_19 = l_List_foldl___main___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__3(x_14, x_16, x_1, x_2, x_3, x_4, x_5); -return x_19; +x_18 = l_List_foldl___main___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__3(x_13, x_15, x_1, x_2, x_3, x_4, x_5); +return x_18; } } } @@ -9505,7 +9587,7 @@ goto lbl_20; } lbl_20: { -obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_47; obj* x_49; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_45; obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; lean::dec(x_19); x_39 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_39, 0, x_2); @@ -9513,78 +9595,76 @@ x_40 = lean::box(0); x_41 = l_String_splitAux___main___closed__1; x_42 = l_Lean_Parser_ident_Parser___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__4___rarg___closed__1; x_43 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_41, x_42, x_39, x_40, x_0, x_14, x_9); -lean::dec(x_14); lean::dec(x_0); -lean::dec(x_39); -x_47 = lean::cnstr_get(x_43, 0); -x_49 = lean::cnstr_get(x_43, 1); +x_45 = lean::cnstr_get(x_43, 0); +x_47 = lean::cnstr_get(x_43, 1); if (lean::is_exclusive(x_43)) { - x_51 = x_43; + x_49 = x_43; } else { + lean::inc(x_45); lean::inc(x_47); - lean::inc(x_49); lean::dec(x_43); - x_51 = lean::box(0); + x_49 = lean::box(0); } -x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_47); -x_53 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_54 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_53, x_52); -x_55 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_54, x_42); -x_56 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_55); -if (lean::is_scalar(x_51)) { - x_57 = lean::alloc_cnstr(0, 2, 0); +x_50 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_45); +x_51 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_51, x_50); +x_53 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_52, x_42); +x_54 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_53); +if (lean::is_scalar(x_49)) { + x_55 = lean::alloc_cnstr(0, 2, 0); } else { - x_57 = x_51; + x_55 = x_49; } -lean::cnstr_set(x_57, 0, x_56); -lean::cnstr_set(x_57, 1, x_49); -return x_57; +lean::cnstr_set(x_55, 0, x_54); +lean::cnstr_set(x_55, 1, x_47); +return x_55; } } else { -obj* x_60; obj* x_62; obj* x_63; uint8 x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; +obj* x_58; obj* x_60; obj* x_61; uint8 x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; lean::dec(x_0); lean::dec(x_2); -x_60 = lean::cnstr_get(x_6, 1); +x_58 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); - x_62 = x_6; + x_60 = x_6; } else { - lean::inc(x_60); + lean::inc(x_58); lean::dec(x_6); - x_62 = lean::box(0); + x_60 = lean::box(0); } -x_63 = lean::cnstr_get(x_7, 0); -x_65 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); +x_61 = lean::cnstr_get(x_7, 0); +x_63 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); if (lean::is_exclusive(x_7)) { - x_66 = x_7; + x_64 = x_7; } else { - lean::inc(x_63); + lean::inc(x_61); lean::dec(x_7); - x_66 = lean::box(0); + x_64 = lean::box(0); } -if (lean::is_scalar(x_66)) { - x_67 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_64)) { + x_65 = lean::alloc_cnstr(1, 1, 1); } else { - x_67 = x_66; + x_65 = x_64; } -lean::cnstr_set(x_67, 0, x_63); -lean::cnstr_set_scalar(x_67, sizeof(void*)*1, x_65); -x_68 = x_67; -x_69 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_70 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_69, x_68); -x_71 = l_Lean_Parser_ident_Parser___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__4___rarg___closed__1; -x_72 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_70, x_71); -x_73 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_72); -if (lean::is_scalar(x_62)) { - x_74 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_65, 0, x_61); +lean::cnstr_set_scalar(x_65, sizeof(void*)*1, x_63); +x_66 = x_65; +x_67 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_68 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_67, x_66); +x_69 = l_Lean_Parser_ident_Parser___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__4___rarg___closed__1; +x_70 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_68, x_69); +x_71 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_70); +if (lean::is_scalar(x_60)) { + x_72 = lean::alloc_cnstr(0, 2, 0); } else { - x_74 = x_62; + x_72 = x_60; } -lean::cnstr_set(x_74, 0, x_73); -lean::cnstr_set(x_74, 1, x_60); -return x_74; +lean::cnstr_set(x_72, 0, x_71); +lean::cnstr_set(x_72, 1, x_58); +return x_72; } } } @@ -10606,242 +10686,290 @@ lean::cnstr_set(x_18, 0, x_7); if (lean::obj_tag(x_1) == 0) { obj* x_21; -x_21 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_21 = lean::box(3); x_19 = x_21; goto lbl_20; } else { -obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; +obj* x_22; obj* x_25; x_22 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_24 = x_1; -} else { - lean::inc(x_22); - lean::dec(x_1); - x_24 = lean::box(0); -} +lean::inc(x_22); +lean::dec(x_1); x_25 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_25, 0, x_22); -if (lean::is_scalar(x_24)) { - x_26 = lean::alloc_cnstr(1, 1, 0); -} else { - x_26 = x_24; -} -lean::cnstr_set(x_26, 0, x_25); -x_27 = lean::box(3); -x_28 = l_Option_getOrElse___main___rarg(x_26, x_27); -lean::dec(x_26); -x_19 = x_28; +x_19 = x_25; goto lbl_20; } lbl_20: { -obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_35; obj* x_36; -x_30 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_30, 0, x_19); -lean::cnstr_set(x_30, 1, x_17); -x_31 = l_Lean_Parser_noKind; -x_32 = l_Lean_Parser_Syntax_mkNode(x_31, x_30); +obj* x_26; obj* x_27; obj* x_28; +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_19); +lean::cnstr_set(x_26, 1, x_17); +x_27 = l_Lean_Parser_noKind; +x_28 = l_Lean_Parser_Syntax_mkNode(x_27, x_26); if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_9) == 0) { -obj* x_38; -x_38 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_33 = x_38; -goto lbl_34; +if (lean::obj_tag(x_13) == 0) +{ +obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_29 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_11); +lean::cnstr_set(x_30, 1, x_29); +x_31 = lean::box(3); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_31); +lean::cnstr_set(x_32, 1, x_30); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_18); +lean::cnstr_set(x_33, 1, x_32); +x_34 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_33); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_28); +lean::cnstr_set(x_36, 1, x_35); +x_37 = l_Lean_Parser_command_NotationSpec_scopedAction; +x_38 = l_Lean_Parser_Syntax_mkNode(x_37, x_36); +return x_38; } else { -obj* x_39; obj* x_42; -x_39 = lean::cnstr_get(x_9, 0); +obj* x_39; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; +x_39 = lean::cnstr_get(x_13, 0); lean::inc(x_39); -lean::dec(x_9); -x_42 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_35 = x_42; -x_36 = x_39; -goto lbl_37; +lean::dec(x_13); +x_42 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_42, 0, x_39); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_16); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_11); +lean::cnstr_set(x_44, 1, x_43); +x_45 = lean::box(3); +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_45); +lean::cnstr_set(x_46, 1, x_44); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_18); +lean::cnstr_set(x_47, 1, x_46); +x_48 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_48); +lean::cnstr_set(x_49, 1, x_47); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_28); +lean::cnstr_set(x_50, 1, x_49); +x_51 = l_Lean_Parser_command_NotationSpec_scopedAction; +x_52 = l_Lean_Parser_Syntax_mkNode(x_51, x_50); +return x_52; } } else { -obj* x_43; obj* x_46; obj* x_47; obj* x_50; obj* x_51; obj* x_52; -x_43 = lean::cnstr_get(x_5, 0); -lean::inc(x_43); -lean::dec(x_5); -x_46 = l_Lean_Parser_command_NotationSpec_precedence_HasView; -x_47 = lean::cnstr_get(x_46, 1); -lean::inc(x_47); -lean::dec(x_46); -x_50 = lean::apply_1(x_47, x_43); -x_51 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_51, 0, x_50); -lean::cnstr_set(x_51, 1, x_16); -x_52 = l_Lean_Parser_Syntax_mkNode(x_31, x_51); -if (lean::obj_tag(x_9) == 0) -{ -x_33 = x_52; -goto lbl_34; -} -else -{ -obj* x_53; +obj* x_53; obj* x_56; x_53 = lean::cnstr_get(x_9, 0); lean::inc(x_53); lean::dec(x_9); -x_35 = x_52; -x_36 = x_53; -goto lbl_37; -} -} -lbl_34: -{ +x_56 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_56, 0, x_53); if (lean::obj_tag(x_13) == 0) { -obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; -x_56 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_57 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_57, 0, x_11); -lean::cnstr_set(x_57, 1, x_56); -x_58 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; +x_57 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_11); +lean::cnstr_set(x_58, 1, x_57); x_59 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_59, 0, x_58); -lean::cnstr_set(x_59, 1, x_57); +lean::cnstr_set(x_59, 0, x_56); +lean::cnstr_set(x_59, 1, x_58); x_60 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_60, 0, x_18); lean::cnstr_set(x_60, 1, x_59); -x_61 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_61, 0, x_33); -lean::cnstr_set(x_61, 1, x_60); +x_61 = l_Lean_Parser_Combinators_many___rarg___closed__1; x_62 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_62, 0, x_32); -lean::cnstr_set(x_62, 1, x_61); -x_63 = l_Lean_Parser_command_NotationSpec_scopedAction; -x_64 = l_Lean_Parser_Syntax_mkNode(x_63, x_62); -return x_64; +lean::cnstr_set(x_62, 0, x_61); +lean::cnstr_set(x_62, 1, x_60); +x_63 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_63, 0, x_28); +lean::cnstr_set(x_63, 1, x_62); +x_64 = l_Lean_Parser_command_NotationSpec_scopedAction; +x_65 = l_Lean_Parser_Syntax_mkNode(x_64, x_63); +return x_65; } else { -obj* x_65; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; -x_65 = lean::cnstr_get(x_13, 0); -if (lean::is_exclusive(x_13)) { - x_67 = x_13; -} else { - lean::inc(x_65); - lean::dec(x_13); - x_67 = lean::box(0); -} -x_68 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_68, 0, x_65); -if (lean::is_scalar(x_67)) { - x_69 = lean::alloc_cnstr(1, 1, 0); -} else { - x_69 = x_67; -} -lean::cnstr_set(x_69, 0, x_68); -x_70 = lean::box(3); -x_71 = l_Option_getOrElse___main___rarg(x_69, x_70); -lean::dec(x_69); +obj* x_66; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; +x_66 = lean::cnstr_get(x_13, 0); +lean::inc(x_66); +lean::dec(x_13); +x_69 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_69, 0, x_66); +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_69); +lean::cnstr_set(x_70, 1, x_16); +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_11); +lean::cnstr_set(x_71, 1, x_70); +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_56); +lean::cnstr_set(x_72, 1, x_71); x_73 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_73, 0, x_71); -lean::cnstr_set(x_73, 1, x_16); -x_74 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_74, 0, x_11); -lean::cnstr_set(x_74, 1, x_73); -x_75 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +lean::cnstr_set(x_73, 0, x_18); +lean::cnstr_set(x_73, 1, x_72); +x_74 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_75 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_75, 0, x_74); +lean::cnstr_set(x_75, 1, x_73); x_76 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_76, 0, x_75); -lean::cnstr_set(x_76, 1, x_74); -x_77 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_77, 0, x_18); -lean::cnstr_set(x_77, 1, x_76); -x_78 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_78, 0, x_33); -lean::cnstr_set(x_78, 1, x_77); -x_79 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_79, 0, x_32); -lean::cnstr_set(x_79, 1, x_78); -x_80 = l_Lean_Parser_command_NotationSpec_scopedAction; -x_81 = l_Lean_Parser_Syntax_mkNode(x_80, x_79); -return x_81; +lean::cnstr_set(x_76, 0, x_28); +lean::cnstr_set(x_76, 1, x_75); +x_77 = l_Lean_Parser_command_NotationSpec_scopedAction; +x_78 = l_Lean_Parser_Syntax_mkNode(x_77, x_76); +return x_78; } } -lbl_37: +} +else +{ +obj* x_79; obj* x_82; obj* x_83; obj* x_86; obj* x_87; obj* x_88; +x_79 = lean::cnstr_get(x_5, 0); +lean::inc(x_79); +lean::dec(x_5); +x_82 = l_Lean_Parser_command_NotationSpec_precedence_HasView; +x_83 = lean::cnstr_get(x_82, 1); +lean::inc(x_83); +lean::dec(x_82); +x_86 = lean::apply_1(x_83, x_79); +x_87 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_87, 0, x_86); +lean::cnstr_set(x_87, 1, x_16); +x_88 = l_Lean_Parser_Syntax_mkNode(x_27, x_87); +if (lean::obj_tag(x_9) == 0) { -obj* x_82; obj* x_83; obj* x_84; obj* x_85; -x_82 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_82, 0, x_36); -x_83 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_83, 0, x_82); -x_84 = lean::box(3); -x_85 = l_Option_getOrElse___main___rarg(x_83, x_84); -lean::dec(x_83); if (lean::obj_tag(x_13) == 0) { -obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; -x_87 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_88 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_88, 0, x_11); -lean::cnstr_set(x_88, 1, x_87); -x_89 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_89, 0, x_85); -lean::cnstr_set(x_89, 1, x_88); +obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; +x_89 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_90 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_90, 0, x_18); +lean::cnstr_set(x_90, 0, x_11); lean::cnstr_set(x_90, 1, x_89); -x_91 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_91, 0, x_35); -lean::cnstr_set(x_91, 1, x_90); +x_91 = lean::box(3); x_92 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_92, 0, x_32); -lean::cnstr_set(x_92, 1, x_91); -x_93 = l_Lean_Parser_command_NotationSpec_scopedAction; -x_94 = l_Lean_Parser_Syntax_mkNode(x_93, x_92); -return x_94; +lean::cnstr_set(x_92, 0, x_91); +lean::cnstr_set(x_92, 1, x_90); +x_93 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_93, 0, x_18); +lean::cnstr_set(x_93, 1, x_92); +x_94 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_94, 0, x_88); +lean::cnstr_set(x_94, 1, x_93); +x_95 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_95, 0, x_28); +lean::cnstr_set(x_95, 1, x_94); +x_96 = l_Lean_Parser_command_NotationSpec_scopedAction; +x_97 = l_Lean_Parser_Syntax_mkNode(x_96, x_95); +return x_97; } else { -obj* x_95; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; -x_95 = lean::cnstr_get(x_13, 0); -if (lean::is_exclusive(x_13)) { - x_97 = x_13; -} else { - lean::inc(x_95); - lean::dec(x_13); - x_97 = lean::box(0); -} -x_98 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_98, 0, x_95); -if (lean::is_scalar(x_97)) { - x_99 = lean::alloc_cnstr(1, 1, 0); -} else { - x_99 = x_97; -} -lean::cnstr_set(x_99, 0, x_98); -x_100 = l_Option_getOrElse___main___rarg(x_99, x_84); -lean::dec(x_99); +obj* x_98; obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; +x_98 = lean::cnstr_get(x_13, 0); +lean::inc(x_98); +lean::dec(x_13); +x_101 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_101, 0, x_98); x_102 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_102, 0, x_100); +lean::cnstr_set(x_102, 0, x_101); lean::cnstr_set(x_102, 1, x_16); x_103 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_103, 0, x_11); lean::cnstr_set(x_103, 1, x_102); -x_104 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_104, 0, x_85); -lean::cnstr_set(x_104, 1, x_103); +x_104 = lean::box(3); x_105 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_105, 0, x_18); -lean::cnstr_set(x_105, 1, x_104); +lean::cnstr_set(x_105, 0, x_104); +lean::cnstr_set(x_105, 1, x_103); x_106 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_106, 0, x_35); +lean::cnstr_set(x_106, 0, x_18); lean::cnstr_set(x_106, 1, x_105); x_107 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_107, 0, x_32); +lean::cnstr_set(x_107, 0, x_88); lean::cnstr_set(x_107, 1, x_106); -x_108 = l_Lean_Parser_command_NotationSpec_scopedAction; -x_109 = l_Lean_Parser_Syntax_mkNode(x_108, x_107); -return x_109; +x_108 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_108, 0, x_28); +lean::cnstr_set(x_108, 1, x_107); +x_109 = l_Lean_Parser_command_NotationSpec_scopedAction; +x_110 = l_Lean_Parser_Syntax_mkNode(x_109, x_108); +return x_110; +} +} +else +{ +obj* x_111; obj* x_114; +x_111 = lean::cnstr_get(x_9, 0); +lean::inc(x_111); +lean::dec(x_9); +x_114 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_114, 0, x_111); +if (lean::obj_tag(x_13) == 0) +{ +obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; +x_115 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_116 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_116, 0, x_11); +lean::cnstr_set(x_116, 1, x_115); +x_117 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_117, 0, x_114); +lean::cnstr_set(x_117, 1, x_116); +x_118 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_118, 0, x_18); +lean::cnstr_set(x_118, 1, x_117); +x_119 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_119, 0, x_88); +lean::cnstr_set(x_119, 1, x_118); +x_120 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_120, 0, x_28); +lean::cnstr_set(x_120, 1, x_119); +x_121 = l_Lean_Parser_command_NotationSpec_scopedAction; +x_122 = l_Lean_Parser_Syntax_mkNode(x_121, x_120); +return x_122; +} +else +{ +obj* x_123; obj* x_126; obj* x_127; obj* x_128; obj* x_129; obj* x_130; obj* x_131; obj* x_132; obj* x_133; obj* x_134; +x_123 = lean::cnstr_get(x_13, 0); +lean::inc(x_123); +lean::dec(x_13); +x_126 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_126, 0, x_123); +x_127 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_127, 0, x_126); +lean::cnstr_set(x_127, 1, x_16); +x_128 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_128, 0, x_11); +lean::cnstr_set(x_128, 1, x_127); +x_129 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_129, 0, x_114); +lean::cnstr_set(x_129, 1, x_128); +x_130 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_130, 0, x_18); +lean::cnstr_set(x_130, 1, x_129); +x_131 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_131, 0, x_88); +lean::cnstr_set(x_131, 1, x_130); +x_132 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_132, 0, x_28); +lean::cnstr_set(x_132, 1, x_131); +x_133 = l_Lean_Parser_command_NotationSpec_scopedAction; +x_134 = l_Lean_Parser_Syntax_mkNode(x_133, x_132); +return x_134; +} } } } @@ -11459,7 +11587,7 @@ lean::cnstr_set(x_12, 1, x_11); if (lean::obj_tag(x_1) == 0) { obj* x_13; obj* x_14; obj* x_15; obj* x_16; -x_13 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_13 = lean::box(3); x_14 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_14, 0, x_13); lean::cnstr_set(x_14, 1, x_12); @@ -11469,32 +11597,18 @@ return x_16; } else { -obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27; +obj* x_17; obj* x_20; obj* x_21; obj* x_22; obj* x_23; x_17 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_19 = x_1; -} else { - lean::inc(x_17); - lean::dec(x_1); - x_19 = lean::box(0); -} +lean::inc(x_17); +lean::dec(x_1); x_20 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_20, 0, x_17); -if (lean::is_scalar(x_19)) { - x_21 = lean::alloc_cnstr(1, 1, 0); -} else { - x_21 = x_19; -} +x_21 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_21, 0, x_20); -x_22 = lean::box(3); -x_23 = l_Option_getOrElse___main___rarg(x_21, x_22); -lean::dec(x_21); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_23); -lean::cnstr_set(x_25, 1, x_12); -x_26 = l_Lean_Parser_command_NotationSpec_action; -x_27 = l_Lean_Parser_Syntax_mkNode(x_26, x_25); -return x_27; +lean::cnstr_set(x_21, 1, x_12); +x_22 = l_Lean_Parser_command_NotationSpec_action; +x_23 = l_Lean_Parser_Syntax_mkNode(x_22, x_21); +return x_23; } } } @@ -14905,259 +15019,336 @@ goto lbl_14; } else { -obj* x_25; obj* x_28; uint8 x_30; obj* x_31; obj* x_32; obj* x_34; obj* x_36; obj* x_38; obj* x_41; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; -x_25 = lean::cnstr_get(x_19, 1); -lean::inc(x_25); -lean::dec(x_19); -x_28 = lean::cnstr_get(x_20, 0); -x_30 = lean::cnstr_get_scalar(x_20, sizeof(void*)*1); +obj* x_25; uint8 x_27; obj* x_28; obj* x_29; +x_25 = lean::cnstr_get(x_20, 0); +x_27 = lean::cnstr_get_scalar(x_20, sizeof(void*)*1); if (lean::is_exclusive(x_20)) { lean::cnstr_set(x_20, 0, lean::box(0)); - x_31 = x_20; + x_28 = x_20; } else { - lean::inc(x_28); + lean::inc(x_25); lean::dec(x_20); - x_31 = lean::box(0); + x_28 = lean::box(0); } -x_32 = lean::cnstr_get(x_28, 0); -lean::inc(x_32); -x_34 = lean::cnstr_get(x_28, 1); +x_29 = lean::cnstr_get(x_25, 3); +lean::inc(x_29); +if (lean::obj_tag(x_29) == 0) +{ +obj* x_31; obj* x_34; obj* x_36; obj* x_38; obj* x_41; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_31 = lean::cnstr_get(x_19, 1); +lean::inc(x_31); +lean::dec(x_19); +x_34 = lean::cnstr_get(x_25, 0); lean::inc(x_34); -x_36 = lean::cnstr_get(x_28, 2); +x_36 = lean::cnstr_get(x_25, 1); lean::inc(x_36); -x_38 = lean::cnstr_get(x_28, 3); +x_38 = lean::cnstr_get(x_25, 2); lean::inc(x_38); -lean::dec(x_28); -x_41 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_38); -lean::dec(x_38); +lean::dec(x_25); +x_41 = lean::box(3); lean::inc(x_1); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_41); +lean::cnstr_set(x_43, 1, x_1); x_44 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_44, 0, x_41); -lean::cnstr_set(x_44, 1, x_1); -x_45 = lean::box(3); -x_46 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_46, 0, x_45); -lean::cnstr_set(x_46, 1, x_44); -x_47 = l_List_reverse___rarg(x_46); -x_48 = l_Lean_Parser_noKind; -x_49 = l_Lean_Parser_Syntax_mkNode(x_48, x_47); -x_50 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_50, 0, x_49); -x_51 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_51, 0, x_32); -lean::cnstr_set(x_51, 1, x_34); -lean::cnstr_set(x_51, 2, x_36); -lean::cnstr_set(x_51, 3, x_50); -if (x_30 == 0) +lean::cnstr_set(x_44, 1, x_43); +x_45 = l_List_reverse___rarg(x_44); +x_46 = l_Lean_Parser_noKind; +x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); +x_48 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_48, 0, x_47); +x_49 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_49, 0, x_34); +lean::cnstr_set(x_49, 1, x_36); +lean::cnstr_set(x_49, 2, x_38); +lean::cnstr_set(x_49, 3, x_48); +if (x_27 == 0) { -uint8 x_52; obj* x_53; obj* x_54; -x_52 = 0; -if (lean::is_scalar(x_31)) { - x_53 = lean::alloc_cnstr(1, 1, 1); +uint8 x_50; obj* x_51; obj* x_52; +x_50 = 0; +if (lean::is_scalar(x_28)) { + x_51 = lean::alloc_cnstr(1, 1, 1); } else { - x_53 = x_31; + x_51 = x_28; } -lean::cnstr_set(x_53, 0, x_51); -lean::cnstr_set_scalar(x_53, sizeof(void*)*1, x_52); -x_54 = x_53; -x_12 = x_54; -x_13 = x_25; +lean::cnstr_set(x_51, 0, x_49); +lean::cnstr_set_scalar(x_51, sizeof(void*)*1, x_50); +x_52 = x_51; +x_12 = x_52; +x_13 = x_31; goto lbl_14; } else { -uint8 x_55; obj* x_56; obj* x_57; -x_55 = 1; -if (lean::is_scalar(x_31)) { - x_56 = lean::alloc_cnstr(1, 1, 1); +uint8 x_53; obj* x_54; obj* x_55; +x_53 = 1; +if (lean::is_scalar(x_28)) { + x_54 = lean::alloc_cnstr(1, 1, 1); } else { - x_56 = x_31; + x_54 = x_28; } -lean::cnstr_set(x_56, 0, x_51); -lean::cnstr_set_scalar(x_56, sizeof(void*)*1, x_55); -x_57 = x_56; -x_12 = x_57; -x_13 = x_25; +lean::cnstr_set(x_54, 0, x_49); +lean::cnstr_set_scalar(x_54, sizeof(void*)*1, x_53); +x_55 = x_54; +x_12 = x_55; +x_13 = x_31; goto lbl_14; } } +else +{ +obj* x_56; obj* x_59; obj* x_61; obj* x_63; obj* x_66; obj* x_68; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; +x_56 = lean::cnstr_get(x_19, 1); +lean::inc(x_56); +lean::dec(x_19); +x_59 = lean::cnstr_get(x_25, 0); +lean::inc(x_59); +x_61 = lean::cnstr_get(x_25, 1); +lean::inc(x_61); +x_63 = lean::cnstr_get(x_25, 2); +lean::inc(x_63); +lean::dec(x_25); +x_66 = lean::cnstr_get(x_29, 0); +if (lean::is_exclusive(x_29)) { + x_68 = x_29; +} else { + lean::inc(x_66); + lean::dec(x_29); + x_68 = lean::box(0); +} +lean::inc(x_1); +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_66); +lean::cnstr_set(x_70, 1, x_1); +x_71 = lean::box(3); +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_71); +lean::cnstr_set(x_72, 1, x_70); +x_73 = l_List_reverse___rarg(x_72); +x_74 = l_Lean_Parser_noKind; +x_75 = l_Lean_Parser_Syntax_mkNode(x_74, x_73); +if (lean::is_scalar(x_68)) { + x_76 = lean::alloc_cnstr(1, 1, 0); +} else { + x_76 = x_68; +} +lean::cnstr_set(x_76, 0, x_75); +x_77 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_77, 0, x_59); +lean::cnstr_set(x_77, 1, x_61); +lean::cnstr_set(x_77, 2, x_63); +lean::cnstr_set(x_77, 3, x_76); +if (x_27 == 0) +{ +uint8 x_78; obj* x_79; obj* x_80; +x_78 = 0; +if (lean::is_scalar(x_28)) { + x_79 = lean::alloc_cnstr(1, 1, 1); +} else { + x_79 = x_28; +} +lean::cnstr_set(x_79, 0, x_77); +lean::cnstr_set_scalar(x_79, sizeof(void*)*1, x_78); +x_80 = x_79; +x_12 = x_80; +x_13 = x_56; +goto lbl_14; +} +else +{ +uint8 x_81; obj* x_82; obj* x_83; +x_81 = 1; +if (lean::is_scalar(x_28)) { + x_82 = lean::alloc_cnstr(1, 1, 1); +} else { + x_82 = x_28; +} +lean::cnstr_set(x_82, 0, x_77); +lean::cnstr_set_scalar(x_82, sizeof(void*)*1, x_81); +x_83 = x_82; +x_12 = x_83; +x_13 = x_56; +goto lbl_14; +} +} +} lbl_14: { if (lean::obj_tag(x_12) == 0) { -obj* x_58; obj* x_60; obj* x_62; obj* x_64; obj* x_65; obj* x_68; obj* x_70; -x_58 = lean::cnstr_get(x_12, 0); -x_60 = lean::cnstr_get(x_12, 1); -x_62 = lean::cnstr_get(x_12, 2); +obj* x_84; obj* x_86; obj* x_88; obj* x_90; obj* x_91; obj* x_94; obj* x_96; +x_84 = lean::cnstr_get(x_12, 0); +x_86 = lean::cnstr_get(x_12, 1); +x_88 = lean::cnstr_get(x_12, 2); if (lean::is_exclusive(x_12)) { lean::cnstr_set(x_12, 0, lean::box(0)); lean::cnstr_set(x_12, 1, lean::box(0)); lean::cnstr_set(x_12, 2, lean::box(0)); - x_64 = x_12; + x_90 = x_12; } else { - lean::inc(x_58); - lean::inc(x_60); - lean::inc(x_62); + lean::inc(x_84); + lean::inc(x_86); + lean::inc(x_88); lean::dec(x_12); - x_64 = lean::box(0); + x_90 = lean::box(0); } -x_65 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_65, 0, x_58); -lean::cnstr_set(x_65, 1, x_1); -lean::inc(x_60); -lean::inc(x_65); -x_68 = l___private_init_lean_parser_combinators_1__many1Aux___main___at_Lean_Parser_command_NotationSpec_Parser_Lean_Parser_HasTokens___spec__3(x_0, x_65, x_11, x_3, x_4, x_5, x_60, x_13); +x_91 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_91, 0, x_84); +lean::cnstr_set(x_91, 1, x_1); +lean::inc(x_86); +lean::inc(x_91); +x_94 = l___private_init_lean_parser_combinators_1__many1Aux___main___at_Lean_Parser_command_NotationSpec_Parser_Lean_Parser_HasTokens___spec__3(x_0, x_91, x_11, x_3, x_4, x_5, x_86, x_13); lean::dec(x_11); -x_70 = lean::cnstr_get(x_68, 0); -lean::inc(x_70); -if (lean::obj_tag(x_70) == 0) +x_96 = lean::cnstr_get(x_94, 0); +lean::inc(x_96); +if (lean::obj_tag(x_96) == 0) { -obj* x_75; obj* x_77; obj* x_78; obj* x_79; -lean::dec(x_60); -lean::dec(x_65); -lean::dec(x_64); -x_75 = lean::cnstr_get(x_68, 1); -if (lean::is_exclusive(x_68)) { - lean::cnstr_release(x_68, 0); - x_77 = x_68; +obj* x_101; obj* x_103; obj* x_104; obj* x_105; +lean::dec(x_86); +lean::dec(x_90); +lean::dec(x_91); +x_101 = lean::cnstr_get(x_94, 1); +if (lean::is_exclusive(x_94)) { + lean::cnstr_release(x_94, 0); + x_103 = x_94; } else { - lean::inc(x_75); - lean::dec(x_68); - x_77 = lean::box(0); + lean::inc(x_101); + lean::dec(x_94); + x_103 = lean::box(0); } -x_78 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_62, x_70); -if (lean::is_scalar(x_77)) { - x_79 = lean::alloc_cnstr(0, 2, 0); +x_104 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_88, x_96); +if (lean::is_scalar(x_103)) { + x_105 = lean::alloc_cnstr(0, 2, 0); } else { - x_79 = x_77; + x_105 = x_103; } -lean::cnstr_set(x_79, 0, x_78); -lean::cnstr_set(x_79, 1, x_75); -return x_79; +lean::cnstr_set(x_105, 0, x_104); +lean::cnstr_set(x_105, 1, x_101); +return x_105; } else { -uint8 x_80; -x_80 = lean::cnstr_get_scalar(x_70, sizeof(void*)*1); -if (x_80 == 0) +uint8 x_106; +x_106 = lean::cnstr_get_scalar(x_96, sizeof(void*)*1); +if (x_106 == 0) { -obj* x_81; obj* x_83; obj* x_84; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; -x_81 = lean::cnstr_get(x_68, 1); -if (lean::is_exclusive(x_68)) { - lean::cnstr_release(x_68, 0); - x_83 = x_68; +obj* x_107; obj* x_109; obj* x_110; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; +x_107 = lean::cnstr_get(x_94, 1); +if (lean::is_exclusive(x_94)) { + lean::cnstr_release(x_94, 0); + x_109 = x_94; } else { - lean::inc(x_81); - lean::dec(x_68); - x_83 = lean::box(0); + lean::inc(x_107); + lean::dec(x_94); + x_109 = lean::box(0); } -x_84 = lean::cnstr_get(x_70, 0); -lean::inc(x_84); -lean::dec(x_70); -x_87 = l_List_reverse___rarg(x_65); -x_88 = l_Lean_Parser_noKind; -x_89 = l_Lean_Parser_Syntax_mkNode(x_88, x_87); -x_90 = lean::cnstr_get(x_84, 2); -lean::inc(x_90); -lean::dec(x_84); -x_93 = l_mjoin___rarg___closed__1; -x_94 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_94, 0, x_90); -lean::closure_set(x_94, 1, x_93); -x_95 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_95, 0, x_94); -if (lean::is_scalar(x_64)) { - x_96 = lean::alloc_cnstr(0, 3, 0); +x_110 = lean::cnstr_get(x_96, 0); +lean::inc(x_110); +lean::dec(x_96); +x_113 = l_List_reverse___rarg(x_91); +x_114 = l_Lean_Parser_noKind; +x_115 = l_Lean_Parser_Syntax_mkNode(x_114, x_113); +x_116 = lean::cnstr_get(x_110, 2); +lean::inc(x_116); +lean::dec(x_110); +x_119 = l_mjoin___rarg___closed__1; +x_120 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_120, 0, x_116); +lean::closure_set(x_120, 1, x_119); +x_121 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_121, 0, x_120); +if (lean::is_scalar(x_90)) { + x_122 = lean::alloc_cnstr(0, 3, 0); } else { - x_96 = x_64; + x_122 = x_90; } -lean::cnstr_set(x_96, 0, x_89); -lean::cnstr_set(x_96, 1, x_60); -lean::cnstr_set(x_96, 2, x_95); -x_97 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_62, x_96); -if (lean::is_scalar(x_83)) { - x_98 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_122, 0, x_115); +lean::cnstr_set(x_122, 1, x_86); +lean::cnstr_set(x_122, 2, x_121); +x_123 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_88, x_122); +if (lean::is_scalar(x_109)) { + x_124 = lean::alloc_cnstr(0, 2, 0); } else { - x_98 = x_83; + x_124 = x_109; } -lean::cnstr_set(x_98, 0, x_97); -lean::cnstr_set(x_98, 1, x_81); -return x_98; +lean::cnstr_set(x_124, 0, x_123); +lean::cnstr_set(x_124, 1, x_107); +return x_124; } else { -obj* x_102; obj* x_104; obj* x_105; obj* x_106; -lean::dec(x_60); -lean::dec(x_65); -lean::dec(x_64); -x_102 = lean::cnstr_get(x_68, 1); -if (lean::is_exclusive(x_68)) { - lean::cnstr_release(x_68, 0); - x_104 = x_68; +obj* x_128; obj* x_130; obj* x_131; obj* x_132; +lean::dec(x_86); +lean::dec(x_90); +lean::dec(x_91); +x_128 = lean::cnstr_get(x_94, 1); +if (lean::is_exclusive(x_94)) { + lean::cnstr_release(x_94, 0); + x_130 = x_94; } else { - lean::inc(x_102); - lean::dec(x_68); - x_104 = lean::box(0); + lean::inc(x_128); + lean::dec(x_94); + x_130 = lean::box(0); } -x_105 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_62, x_70); -if (lean::is_scalar(x_104)) { - x_106 = lean::alloc_cnstr(0, 2, 0); +x_131 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_88, x_96); +if (lean::is_scalar(x_130)) { + x_132 = lean::alloc_cnstr(0, 2, 0); } else { - x_106 = x_104; + x_132 = x_130; } -lean::cnstr_set(x_106, 0, x_105); -lean::cnstr_set(x_106, 1, x_102); -return x_106; +lean::cnstr_set(x_132, 0, x_131); +lean::cnstr_set(x_132, 1, x_128); +return x_132; } } } else { -obj* x_113; uint8 x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; +obj* x_139; uint8 x_141; obj* x_142; obj* x_143; obj* x_144; obj* x_145; lean::dec(x_5); lean::dec(x_4); lean::dec(x_1); lean::dec(x_3); lean::dec(x_0); lean::dec(x_11); -x_113 = lean::cnstr_get(x_12, 0); -x_115 = lean::cnstr_get_scalar(x_12, sizeof(void*)*1); +x_139 = lean::cnstr_get(x_12, 0); +x_141 = lean::cnstr_get_scalar(x_12, sizeof(void*)*1); if (lean::is_exclusive(x_12)) { - x_116 = x_12; + x_142 = x_12; } else { - lean::inc(x_113); + lean::inc(x_139); lean::dec(x_12); - x_116 = lean::box(0); + x_142 = lean::box(0); } -if (lean::is_scalar(x_116)) { - x_117 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_142)) { + x_143 = lean::alloc_cnstr(1, 1, 1); } else { - x_117 = x_116; + x_143 = x_142; } -lean::cnstr_set(x_117, 0, x_113); -lean::cnstr_set_scalar(x_117, sizeof(void*)*1, x_115); -x_118 = x_117; -x_119 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_119, 0, x_118); -lean::cnstr_set(x_119, 1, x_13); -return x_119; +lean::cnstr_set(x_143, 0, x_139); +lean::cnstr_set_scalar(x_143, sizeof(void*)*1, x_141); +x_144 = x_143; +x_145 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_145, 0, x_144); +lean::cnstr_set(x_145, 1, x_13); +return x_145; } } } else { -obj* x_122; obj* x_123; obj* x_124; obj* x_125; +obj* x_148; obj* x_149; obj* x_150; obj* x_151; lean::dec(x_1); lean::dec(x_0); -x_122 = lean::box(0); -x_123 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; -x_124 = l_mjoin___rarg___closed__1; -x_125 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_123, x_124, x_122, x_122, x_3, x_4, x_5, x_6, x_7); -lean::dec(x_6); +x_148 = lean::box(0); +x_149 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; +x_150 = l_mjoin___rarg___closed__1; +x_151 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_149, x_150, x_148, x_148, x_3, x_4, x_5, x_6, x_7); lean::dec(x_5); lean::dec(x_4); lean::dec(x_3); -return x_125; +return x_151; } } } @@ -15967,17 +16158,15 @@ return x_148; obj* _init_l_Lean_Parser_command_notation_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -x_4 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_4, 0, x_3); -lean::cnstr_set(x_4, 1, x_0); -x_5 = l_Lean_Parser_noKind; -x_6 = l_Lean_Parser_Syntax_mkNode(x_5, x_4); -return x_6; +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = l_Lean_Parser_noKind; +x_4 = l_Lean_Parser_Syntax_mkNode(x_3, x_2); +return x_4; } } obj* l_Lean_Parser_command_notation_HasView_x_27___lambda__2(obj* x_0) { @@ -16054,178 +16243,132 @@ goto lbl_23; } else { -obj* x_37; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_45; obj* x_46; obj* x_47; +obj* x_37; obj* x_40; obj* x_41; obj* x_42; obj* x_43; x_37 = lean::cnstr_get(x_29, 0); -if (lean::is_exclusive(x_29)) { - x_39 = x_29; -} else { - lean::inc(x_37); - lean::dec(x_29); - x_39 = lean::box(0); -} +lean::inc(x_37); +lean::dec(x_29); x_40 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_40, 0, x_37); -if (lean::is_scalar(x_39)) { - x_41 = lean::alloc_cnstr(1, 1, 0); -} else { - x_41 = x_39; -} +x_41 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_41, 0, x_40); -x_42 = lean::box(3); -x_43 = l_Option_getOrElse___main___rarg(x_41, x_42); -lean::dec(x_41); -x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_43); -lean::cnstr_set(x_45, 1, x_12); -x_46 = l_Lean_Parser_noKind; -x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); +lean::cnstr_set(x_41, 1, x_12); +x_42 = l_Lean_Parser_noKind; +x_43 = l_Lean_Parser_Syntax_mkNode(x_42, x_41); if (lean::obj_tag(x_3) == 0) { -x_19 = x_47; +x_19 = x_43; goto lbl_20; } else { -obj* x_48; -x_48 = lean::cnstr_get(x_3, 0); -lean::inc(x_48); +obj* x_44; +x_44 = lean::cnstr_get(x_3, 0); +lean::inc(x_44); lean::dec(x_3); -x_21 = x_47; -x_22 = x_48; +x_21 = x_43; +x_22 = x_44; goto lbl_23; } } } lbl_20: { -obj* x_51; obj* x_52; obj* x_53; obj* x_54; -x_51 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_52 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_52, 0, x_19); -lean::cnstr_set(x_52, 1, x_51); -x_53 = l_Lean_Parser_noKind; -x_54 = l_Lean_Parser_Syntax_mkNode(x_53, x_52); +obj* x_47; obj* x_48; obj* x_49; obj* x_50; +x_47 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_19); +lean::cnstr_set(x_48, 1, x_47); +x_49 = l_Lean_Parser_noKind; +x_50 = l_Lean_Parser_Syntax_mkNode(x_49, x_48); if (lean::obj_tag(x_7) == 0) { -obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; -x_55 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_55); -lean::cnstr_set(x_56, 1, x_18); -x_57 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_57, 0, x_17); -lean::cnstr_set(x_57, 1, x_56); -x_58 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_58, 0, x_54); -lean::cnstr_set(x_58, 1, x_57); -x_59 = l_Lean_Parser_command_notation; -x_60 = l_Lean_Parser_Syntax_mkNode(x_59, x_58); -return x_60; +obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +x_51 = lean::box(3); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_18); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_17); +lean::cnstr_set(x_53, 1, x_52); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_50); +lean::cnstr_set(x_54, 1, x_53); +x_55 = l_Lean_Parser_command_notation; +x_56 = l_Lean_Parser_Syntax_mkNode(x_55, x_54); +return x_56; } else { -obj* x_61; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; -x_61 = lean::cnstr_get(x_7, 0); -if (lean::is_exclusive(x_7)) { - x_63 = x_7; -} else { - lean::inc(x_61); - lean::dec(x_7); - x_63 = lean::box(0); -} -x_64 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_64, 0, x_61); -if (lean::is_scalar(x_63)) { - x_65 = lean::alloc_cnstr(1, 1, 0); -} else { - x_65 = x_63; -} -lean::cnstr_set(x_65, 0, x_64); -x_66 = lean::box(3); -x_67 = l_Option_getOrElse___main___rarg(x_65, x_66); -lean::dec(x_65); -x_69 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_69, 0, x_67); -lean::cnstr_set(x_69, 1, x_18); -x_70 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_70, 0, x_17); -lean::cnstr_set(x_70, 1, x_69); -x_71 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_71, 0, x_54); -lean::cnstr_set(x_71, 1, x_70); -x_72 = l_Lean_Parser_command_notation; -x_73 = l_Lean_Parser_Syntax_mkNode(x_72, x_71); -return x_73; +obj* x_57; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; +x_57 = lean::cnstr_get(x_7, 0); +lean::inc(x_57); +lean::dec(x_7); +x_60 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_60, 0, x_57); +x_61 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_61, 0, x_60); +lean::cnstr_set(x_61, 1, x_18); +x_62 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_62, 0, x_17); +lean::cnstr_set(x_62, 1, x_61); +x_63 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_63, 0, x_50); +lean::cnstr_set(x_63, 1, x_62); +x_64 = l_Lean_Parser_command_notation; +x_65 = l_Lean_Parser_Syntax_mkNode(x_64, x_63); +return x_65; } } lbl_23: { -obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_79; obj* x_80; obj* x_81; obj* x_82; -x_74 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_74, 0, x_22); -x_75 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_75, 0, x_74); -x_76 = lean::box(3); -x_77 = l_Option_getOrElse___main___rarg(x_75, x_76); -lean::dec(x_75); -x_79 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_79, 0, x_77); -lean::cnstr_set(x_79, 1, x_12); -x_80 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_80, 0, x_21); -lean::cnstr_set(x_80, 1, x_79); -x_81 = l_Lean_Parser_noKind; -x_82 = l_Lean_Parser_Syntax_mkNode(x_81, x_80); +obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; +x_66 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_66, 0, x_22); +x_67 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_67, 0, x_66); +lean::cnstr_set(x_67, 1, x_12); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_21); +lean::cnstr_set(x_68, 1, x_67); +x_69 = l_Lean_Parser_noKind; +x_70 = l_Lean_Parser_Syntax_mkNode(x_69, x_68); if (lean::obj_tag(x_7) == 0) { -obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; -x_83 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_84 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_84, 0, x_83); -lean::cnstr_set(x_84, 1, x_18); -x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_17); -lean::cnstr_set(x_85, 1, x_84); -x_86 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_86, 0, x_82); -lean::cnstr_set(x_86, 1, x_85); -x_87 = l_Lean_Parser_command_notation; -x_88 = l_Lean_Parser_Syntax_mkNode(x_87, x_86); -return x_88; +obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; +x_71 = lean::box(3); +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_71); +lean::cnstr_set(x_72, 1, x_18); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_17); +lean::cnstr_set(x_73, 1, x_72); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_70); +lean::cnstr_set(x_74, 1, x_73); +x_75 = l_Lean_Parser_command_notation; +x_76 = l_Lean_Parser_Syntax_mkNode(x_75, x_74); +return x_76; } else { -obj* x_89; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; -x_89 = lean::cnstr_get(x_7, 0); -if (lean::is_exclusive(x_7)) { - x_91 = x_7; -} else { - lean::inc(x_89); - lean::dec(x_7); - x_91 = lean::box(0); -} -x_92 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_92, 0, x_89); -if (lean::is_scalar(x_91)) { - x_93 = lean::alloc_cnstr(1, 1, 0); -} else { - x_93 = x_91; -} -lean::cnstr_set(x_93, 0, x_92); -x_94 = l_Option_getOrElse___main___rarg(x_93, x_76); -lean::dec(x_93); -x_96 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_96, 0, x_94); -lean::cnstr_set(x_96, 1, x_18); -x_97 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_97, 0, x_17); -lean::cnstr_set(x_97, 1, x_96); -x_98 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_98, 0, x_82); -lean::cnstr_set(x_98, 1, x_97); -x_99 = l_Lean_Parser_command_notation; -x_100 = l_Lean_Parser_Syntax_mkNode(x_99, x_98); -return x_100; +obj* x_77; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; +x_77 = lean::cnstr_get(x_7, 0); +lean::inc(x_77); +lean::dec(x_7); +x_80 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_80, 0, x_77); +x_81 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_81, 0, x_80); +lean::cnstr_set(x_81, 1, x_18); +x_82 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_82, 0, x_17); +lean::cnstr_set(x_82, 1, x_81); +x_83 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_83, 0, x_70); +lean::cnstr_set(x_83, 1, x_82); +x_84 = l_Lean_Parser_command_notation; +x_85 = l_Lean_Parser_Syntax_mkNode(x_84, x_83); +return x_85; } } } @@ -16761,21 +16904,18 @@ return x_100; obj* _init_l_Lean_Parser_command_reserveNotation_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_5; obj* x_6; obj* x_7; obj* x_8; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -lean::inc(x_3); -x_5 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_5, 0, x_3); -lean::cnstr_set(x_5, 1, x_0); -x_6 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_6, 0, x_3); -lean::cnstr_set(x_6, 1, x_5); -x_7 = l_Lean_Parser_noKind; -x_8 = l_Lean_Parser_Syntax_mkNode(x_7, x_6); -return x_8; +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_3, 0, x_1); +lean::cnstr_set(x_3, 1, x_2); +x_4 = l_Lean_Parser_noKind; +x_5 = l_Lean_Parser_Syntax_mkNode(x_4, x_3); +return x_5; } } obj* l_Lean_Parser_command_reserveNotation_HasView_x_27___lambda__2(obj* x_0) { @@ -16813,116 +16953,75 @@ return x_18; } else { -obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; +obj* x_19; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; x_19 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_21 = x_3; -} else { - lean::inc(x_19); - lean::dec(x_3); - x_21 = lean::box(0); -} +lean::inc(x_19); +lean::dec(x_3); x_22 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_22, 0, x_19); -if (lean::is_scalar(x_21)) { - x_23 = lean::alloc_cnstr(1, 1, 0); -} else { - x_23 = x_21; -} +x_23 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_23, 0, x_22); +lean::cnstr_set(x_23, 1, x_8); x_24 = lean::box(3); -x_25 = l_Option_getOrElse___main___rarg(x_23, x_24); -lean::dec(x_23); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_25); -lean::cnstr_set(x_27, 1, x_8); -x_28 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_28); -lean::cnstr_set(x_29, 1, x_27); -x_30 = l_Lean_Parser_noKind; -x_31 = l_Lean_Parser_Syntax_mkNode(x_30, x_29); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_31); -lean::cnstr_set(x_32, 1, x_14); -x_33 = l_Lean_Parser_command_reserveNotation; -x_34 = l_Lean_Parser_Syntax_mkNode(x_33, x_32); -return x_34; +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_24); +lean::cnstr_set(x_25, 1, x_23); +x_26 = l_Lean_Parser_noKind; +x_27 = l_Lean_Parser_Syntax_mkNode(x_26, x_25); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_27); +lean::cnstr_set(x_28, 1, x_14); +x_29 = l_Lean_Parser_command_reserveNotation; +x_30 = l_Lean_Parser_Syntax_mkNode(x_29, x_28); +return x_30; } } else { -obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_35 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_37 = x_1; -} else { - lean::inc(x_35); - lean::dec(x_1); - x_37 = lean::box(0); -} -x_38 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_38, 0, x_35); -if (lean::is_scalar(x_37)) { - x_39 = lean::alloc_cnstr(1, 1, 0); -} else { - x_39 = x_37; -} -lean::cnstr_set(x_39, 0, x_38); -x_40 = lean::box(3); -x_41 = l_Option_getOrElse___main___rarg(x_39, x_40); -lean::dec(x_39); +obj* x_31; obj* x_34; +x_31 = lean::cnstr_get(x_1, 0); +lean::inc(x_31); +lean::dec(x_1); +x_34 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_34, 0, x_31); if (lean::obj_tag(x_3) == 0) { -obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; -x_43 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_41); -lean::cnstr_set(x_44, 1, x_43); -x_45 = l_Lean_Parser_noKind; -x_46 = l_Lean_Parser_Syntax_mkNode(x_45, x_44); -x_47 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_47, 0, x_46); -lean::cnstr_set(x_47, 1, x_14); -x_48 = l_Lean_Parser_command_reserveNotation; -x_49 = l_Lean_Parser_Syntax_mkNode(x_48, x_47); -return x_49; +obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; +x_35 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_34); +lean::cnstr_set(x_36, 1, x_35); +x_37 = l_Lean_Parser_noKind; +x_38 = l_Lean_Parser_Syntax_mkNode(x_37, x_36); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_14); +x_40 = l_Lean_Parser_command_reserveNotation; +x_41 = l_Lean_Parser_Syntax_mkNode(x_40, x_39); +return x_41; } else { -obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; -x_50 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_52 = x_3; -} else { - lean::inc(x_50); - lean::dec(x_3); - x_52 = lean::box(0); -} -x_53 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_53, 0, x_50); -if (lean::is_scalar(x_52)) { - x_54 = lean::alloc_cnstr(1, 1, 0); -} else { - x_54 = x_52; -} -lean::cnstr_set(x_54, 0, x_53); -x_55 = l_Option_getOrElse___main___rarg(x_54, x_40); -lean::dec(x_54); -x_57 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_57, 0, x_55); -lean::cnstr_set(x_57, 1, x_8); -x_58 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_58, 0, x_41); -lean::cnstr_set(x_58, 1, x_57); -x_59 = l_Lean_Parser_noKind; -x_60 = l_Lean_Parser_Syntax_mkNode(x_59, x_58); -x_61 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_61, 0, x_60); -lean::cnstr_set(x_61, 1, x_14); -x_62 = l_Lean_Parser_command_reserveNotation; -x_63 = l_Lean_Parser_Syntax_mkNode(x_62, x_61); -return x_63; +obj* x_42; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; +x_42 = lean::cnstr_get(x_3, 0); +lean::inc(x_42); +lean::dec(x_3); +x_45 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_45, 0, x_42); +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_45); +lean::cnstr_set(x_46, 1, x_8); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_34); +lean::cnstr_set(x_47, 1, x_46); +x_48 = l_Lean_Parser_noKind; +x_49 = l_Lean_Parser_Syntax_mkNode(x_48, x_47); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_49); +lean::cnstr_set(x_50, 1, x_14); +x_51 = l_Lean_Parser_command_reserveNotation; +x_52 = l_Lean_Parser_Syntax_mkNode(x_51, x_50); +return x_52; } } } @@ -17549,116 +17648,106 @@ return x_128; obj* _init_l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(0ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_mixfix_kind; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_mixfix_kind; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__2() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(1ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_mixfix_kind; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_mixfix_kind; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__3() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(2ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_mixfix_kind; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_mixfix_kind; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__4() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(3ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_mixfix_kind; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_mixfix_kind; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__5() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(4ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_command_mixfix_kind; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_command_mixfix_kind; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__6() { @@ -17691,225 +17780,155 @@ return x_5; } else { -obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +obj* x_6; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; x_6 = lean::cnstr_get(x_2, 0); -if (lean::is_exclusive(x_2)) { - x_8 = x_2; -} else { - lean::inc(x_6); - lean::dec(x_2); - x_8 = lean::box(0); -} +lean::inc(x_6); +lean::dec(x_2); x_9 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_9, 0, x_6); -if (lean::is_scalar(x_8)) { - x_10 = lean::alloc_cnstr(1, 1, 0); -} else { - x_10 = x_8; -} +x_10 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_10, 0, x_9); -x_11 = lean::box(3); -x_12 = l_Option_getOrElse___main___rarg(x_10, x_11); -lean::dec(x_10); -x_14 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_14, 0, x_12); -lean::cnstr_set(x_14, 1, x_1); -x_15 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; -x_16 = l_Lean_Parser_Syntax_mkNode(x_15, x_14); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_16); -lean::cnstr_set(x_17, 1, x_1); -x_18 = l_Lean_Parser_command_mixfix_kind; -x_19 = l_Lean_Parser_Syntax_mkNode(x_18, x_17); -return x_19; +lean::cnstr_set(x_10, 1, x_1); +x_11 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; +x_12 = l_Lean_Parser_Syntax_mkNode(x_11, x_10); +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_1); +x_14 = l_Lean_Parser_command_mixfix_kind; +x_15 = l_Lean_Parser_Syntax_mkNode(x_14, x_13); +return x_15; } } case 1: { -obj* x_20; -x_20 = lean::cnstr_get(x_0, 0); -lean::inc(x_20); +obj* x_16; +x_16 = lean::cnstr_get(x_0, 0); +lean::inc(x_16); lean::dec(x_0); -if (lean::obj_tag(x_20) == 0) +if (lean::obj_tag(x_16) == 0) { -obj* x_23; -x_23 = l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__2; -return x_23; +obj* x_19; +x_19 = l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__2; +return x_19; } else { -obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; -x_24 = lean::cnstr_get(x_20, 0); -if (lean::is_exclusive(x_20)) { - x_26 = x_20; -} else { - lean::inc(x_24); - lean::dec(x_20); - x_26 = lean::box(0); -} -x_27 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_27, 0, x_24); -if (lean::is_scalar(x_26)) { - x_28 = lean::alloc_cnstr(1, 1, 0); -} else { - x_28 = x_26; -} -lean::cnstr_set(x_28, 0, x_27); -x_29 = lean::box(3); -x_30 = l_Option_getOrElse___main___rarg(x_28, x_29); -lean::dec(x_28); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_30); -lean::cnstr_set(x_32, 1, x_1); -x_33 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; -x_34 = l_Lean_Parser_Syntax_mkNode(x_33, x_32); -x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_34); -lean::cnstr_set(x_35, 1, x_1); -x_36 = l_Lean_Parser_command_mixfix_kind; -x_37 = l_Lean_Parser_Syntax_mkNode(x_36, x_35); -return x_37; +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +x_20 = lean::cnstr_get(x_16, 0); +lean::inc(x_20); +lean::dec(x_16); +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_23); +lean::cnstr_set(x_24, 1, x_1); +x_25 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; +x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_1); +x_28 = l_Lean_Parser_command_mixfix_kind; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } case 2: { -obj* x_38; -x_38 = lean::cnstr_get(x_0, 0); -lean::inc(x_38); +obj* x_30; +x_30 = lean::cnstr_get(x_0, 0); +lean::inc(x_30); lean::dec(x_0); -if (lean::obj_tag(x_38) == 0) +if (lean::obj_tag(x_30) == 0) { -obj* x_41; -x_41 = l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__3; -return x_41; +obj* x_33; +x_33 = l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__3; +return x_33; } else { -obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; -x_42 = lean::cnstr_get(x_38, 0); -if (lean::is_exclusive(x_38)) { - x_44 = x_38; -} else { - lean::inc(x_42); - lean::dec(x_38); - x_44 = lean::box(0); -} -x_45 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_45, 0, x_42); -if (lean::is_scalar(x_44)) { - x_46 = lean::alloc_cnstr(1, 1, 0); -} else { - x_46 = x_44; -} -lean::cnstr_set(x_46, 0, x_45); -x_47 = lean::box(3); -x_48 = l_Option_getOrElse___main___rarg(x_46, x_47); -lean::dec(x_46); -x_50 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_50, 0, x_48); -lean::cnstr_set(x_50, 1, x_1); -x_51 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__4; -x_52 = l_Lean_Parser_Syntax_mkNode(x_51, x_50); -x_53 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_53, 0, x_52); -lean::cnstr_set(x_53, 1, x_1); -x_54 = l_Lean_Parser_command_mixfix_kind; -x_55 = l_Lean_Parser_Syntax_mkNode(x_54, x_53); -return x_55; +obj* x_34; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; +x_34 = lean::cnstr_get(x_30, 0); +lean::inc(x_34); +lean::dec(x_30); +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_34); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_1); +x_39 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__4; +x_40 = l_Lean_Parser_Syntax_mkNode(x_39, x_38); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_40); +lean::cnstr_set(x_41, 1, x_1); +x_42 = l_Lean_Parser_command_mixfix_kind; +x_43 = l_Lean_Parser_Syntax_mkNode(x_42, x_41); +return x_43; } } case 3: { -obj* x_56; -x_56 = lean::cnstr_get(x_0, 0); -lean::inc(x_56); +obj* x_44; +x_44 = lean::cnstr_get(x_0, 0); +lean::inc(x_44); lean::dec(x_0); -if (lean::obj_tag(x_56) == 0) +if (lean::obj_tag(x_44) == 0) { -obj* x_59; -x_59 = l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__4; -return x_59; +obj* x_47; +x_47 = l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__4; +return x_47; } else { -obj* x_60; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; -x_60 = lean::cnstr_get(x_56, 0); -if (lean::is_exclusive(x_56)) { - x_62 = x_56; -} else { - lean::inc(x_60); - lean::dec(x_56); - x_62 = lean::box(0); -} -x_63 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_63, 0, x_60); -if (lean::is_scalar(x_62)) { - x_64 = lean::alloc_cnstr(1, 1, 0); -} else { - x_64 = x_62; -} -lean::cnstr_set(x_64, 0, x_63); -x_65 = lean::box(3); -x_66 = l_Option_getOrElse___main___rarg(x_64, x_65); -lean::dec(x_64); -x_68 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_68, 0, x_66); -lean::cnstr_set(x_68, 1, x_1); -x_69 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__6; -x_70 = l_Lean_Parser_Syntax_mkNode(x_69, x_68); -x_71 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_71, 0, x_70); -lean::cnstr_set(x_71, 1, x_1); -x_72 = l_Lean_Parser_command_mixfix_kind; -x_73 = l_Lean_Parser_Syntax_mkNode(x_72, x_71); -return x_73; +obj* x_48; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_48 = lean::cnstr_get(x_44, 0); +lean::inc(x_48); +lean::dec(x_44); +x_51 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_51, 0, x_48); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_1); +x_53 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__6; +x_54 = l_Lean_Parser_Syntax_mkNode(x_53, x_52); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_54); +lean::cnstr_set(x_55, 1, x_1); +x_56 = l_Lean_Parser_command_mixfix_kind; +x_57 = l_Lean_Parser_Syntax_mkNode(x_56, x_55); +return x_57; } } default: { -obj* x_74; -x_74 = lean::cnstr_get(x_0, 0); -lean::inc(x_74); +obj* x_58; +x_58 = lean::cnstr_get(x_0, 0); +lean::inc(x_58); lean::dec(x_0); -if (lean::obj_tag(x_74) == 0) +if (lean::obj_tag(x_58) == 0) { -obj* x_77; -x_77 = l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__5; -return x_77; +obj* x_61; +x_61 = l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__5; +return x_61; } else { -obj* x_78; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; -x_78 = lean::cnstr_get(x_74, 0); -if (lean::is_exclusive(x_74)) { - x_80 = x_74; -} else { - lean::inc(x_78); - lean::dec(x_74); - x_80 = lean::box(0); -} -x_81 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_81, 0, x_78); -if (lean::is_scalar(x_80)) { - x_82 = lean::alloc_cnstr(1, 1, 0); -} else { - x_82 = x_80; -} -lean::cnstr_set(x_82, 0, x_81); -x_83 = lean::box(3); -x_84 = l_Option_getOrElse___main___rarg(x_82, x_83); -lean::dec(x_82); -x_86 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_86, 0, x_84); -lean::cnstr_set(x_86, 1, x_1); -x_87 = l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__6; -x_88 = l_Lean_Parser_Syntax_mkNode(x_87, x_86); -x_89 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_89, 0, x_88); -lean::cnstr_set(x_89, 1, x_1); -x_90 = l_Lean_Parser_command_mixfix_kind; -x_91 = l_Lean_Parser_Syntax_mkNode(x_90, x_89); -return x_91; +obj* x_62; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; +x_62 = lean::cnstr_get(x_58, 0); +lean::inc(x_62); +lean::dec(x_58); +x_65 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_65, 0, x_62); +x_66 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_66, 0, x_65); +lean::cnstr_set(x_66, 1, x_1); +x_67 = l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__6; +x_68 = l_Lean_Parser_Syntax_mkNode(x_67, x_66); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_68); +lean::cnstr_set(x_69, 1, x_1); +x_70 = l_Lean_Parser_command_mixfix_kind; +x_71 = l_Lean_Parser_Syntax_mkNode(x_70, x_69); +return x_71; } } } @@ -18761,94 +18780,66 @@ goto lbl_26; } else { -obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_40; obj* x_41; obj* x_42; +obj* x_32; obj* x_35; obj* x_36; obj* x_37; obj* x_38; x_32 = lean::cnstr_get(x_28, 0); -if (lean::is_exclusive(x_28)) { - x_34 = x_28; -} else { - lean::inc(x_32); - lean::dec(x_28); - x_34 = lean::box(0); -} +lean::inc(x_32); +lean::dec(x_28); x_35 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_35, 0, x_32); -if (lean::is_scalar(x_34)) { - x_36 = lean::alloc_cnstr(1, 1, 0); -} else { - x_36 = x_34; -} +x_36 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_36, 0, x_35); -x_37 = lean::box(3); -x_38 = l_Option_getOrElse___main___rarg(x_36, x_37); -lean::dec(x_36); -x_40 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_40, 0, x_38); -lean::cnstr_set(x_40, 1, x_17); -x_41 = l_Lean_Parser_noKind; -x_42 = l_Lean_Parser_Syntax_mkNode(x_41, x_40); -x_25 = x_42; +lean::cnstr_set(x_36, 1, x_17); +x_37 = l_Lean_Parser_noKind; +x_38 = l_Lean_Parser_Syntax_mkNode(x_37, x_36); +x_25 = x_38; goto lbl_26; } } lbl_26: { -obj* x_43; obj* x_44; obj* x_45; -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_25); -lean::cnstr_set(x_43, 1, x_18); -x_44 = l_Lean_Parser_noKind; -x_45 = l_Lean_Parser_Syntax_mkNode(x_44, x_43); +obj* x_39; obj* x_40; obj* x_41; +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_25); +lean::cnstr_set(x_39, 1, x_18); +x_40 = l_Lean_Parser_noKind; +x_41 = l_Lean_Parser_Syntax_mkNode(x_40, x_39); if (lean::obj_tag(x_7) == 0) { -obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; -x_46 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_47 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_47, 0, x_46); -lean::cnstr_set(x_47, 1, x_24); -x_48 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_48, 0, x_23); -lean::cnstr_set(x_48, 1, x_47); -x_49 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_49, 0, x_45); -lean::cnstr_set(x_49, 1, x_48); -x_50 = l_Lean_Parser_command_mixfix; -x_51 = l_Lean_Parser_Syntax_mkNode(x_50, x_49); -return x_51; +obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; +x_42 = lean::box(3); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_24); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_23); +lean::cnstr_set(x_44, 1, x_43); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_41); +lean::cnstr_set(x_45, 1, x_44); +x_46 = l_Lean_Parser_command_mixfix; +x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); +return x_47; } else { -obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; -x_52 = lean::cnstr_get(x_7, 0); -if (lean::is_exclusive(x_7)) { - x_54 = x_7; -} else { - lean::inc(x_52); - lean::dec(x_7); - x_54 = lean::box(0); -} -x_55 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_55, 0, x_52); -if (lean::is_scalar(x_54)) { - x_56 = lean::alloc_cnstr(1, 1, 0); -} else { - x_56 = x_54; -} -lean::cnstr_set(x_56, 0, x_55); -x_57 = lean::box(3); -x_58 = l_Option_getOrElse___main___rarg(x_56, x_57); -lean::dec(x_56); -x_60 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_60, 0, x_58); -lean::cnstr_set(x_60, 1, x_24); -x_61 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_61, 0, x_23); -lean::cnstr_set(x_61, 1, x_60); -x_62 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_62, 0, x_45); -lean::cnstr_set(x_62, 1, x_61); -x_63 = l_Lean_Parser_command_mixfix; -x_64 = l_Lean_Parser_Syntax_mkNode(x_63, x_62); -return x_64; +obj* x_48; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +x_48 = lean::cnstr_get(x_7, 0); +lean::inc(x_48); +lean::dec(x_7); +x_51 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_51, 0, x_48); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_24); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_23); +lean::cnstr_set(x_53, 1, x_52); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_41); +lean::cnstr_set(x_54, 1, x_53); +x_55 = l_Lean_Parser_command_mixfix; +x_56 = l_Lean_Parser_Syntax_mkNode(x_55, x_54); +return x_56; } } } @@ -19761,7 +19752,7 @@ lean::cnstr_set(x_20, 1, x_13); if (lean::obj_tag(x_1) == 0) { obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; -x_21 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_21 = lean::box(3); x_22 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_22, 0, x_21); lean::cnstr_set(x_22, 1, x_14); @@ -19776,37 +19767,23 @@ return x_27; } else { -obj* x_28; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; +obj* x_28; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; x_28 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_30 = x_1; -} else { - lean::inc(x_28); - lean::dec(x_1); - x_30 = lean::box(0); -} +lean::inc(x_28); +lean::dec(x_1); x_31 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_31, 0, x_28); -if (lean::is_scalar(x_30)) { - x_32 = lean::alloc_cnstr(1, 1, 0); -} else { - x_32 = x_30; -} +x_32 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_32, 0, x_31); -x_33 = lean::box(3); -x_34 = l_Option_getOrElse___main___rarg(x_32, x_33); -lean::dec(x_32); -x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_34); -lean::cnstr_set(x_36, 1, x_14); -x_37 = l_Lean_Parser_noKind; -x_38 = l_Lean_Parser_Syntax_mkNode(x_37, x_36); -x_39 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_39, 0, x_38); -lean::cnstr_set(x_39, 1, x_20); -x_40 = l_Lean_Parser_command_reserveMixfix; -x_41 = l_Lean_Parser_Syntax_mkNode(x_40, x_39); -return x_41; +lean::cnstr_set(x_32, 1, x_14); +x_33 = l_Lean_Parser_noKind; +x_34 = l_Lean_Parser_Syntax_mkNode(x_33, x_32); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_20); +x_36 = l_Lean_Parser_command_reserveMixfix; +x_37 = l_Lean_Parser_Syntax_mkNode(x_36, x_35); +return x_37; } } } @@ -19969,8 +19946,6 @@ lean::mark_persistent(l_Lean_Parser_command_NotationSpec_precedenceLit_HasView_x lean::mark_persistent(l_Lean_Parser_command_NotationSpec_precedenceLit_HasView_x_27); l_Lean_Parser_command_NotationSpec_precedenceLit_HasView = _init_l_Lean_Parser_command_NotationSpec_precedenceLit_HasView(); lean::mark_persistent(l_Lean_Parser_command_NotationSpec_precedenceLit_HasView); - l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___rarg___closed__1 = _init_l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___rarg___closed__1(); -lean::mark_persistent(l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___rarg___closed__1); l_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens = _init_l_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens(); lean::mark_persistent(l_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens); l_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasView = _init_l_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasView(); diff --git a/src/stage0/init/lean/parser/parsec.cpp b/src/stage0/init/lean/parser/parsec.cpp index 31c70d4cd7..29f71db834 100644 --- a/src/stage0/init/lean/parser/parsec.cpp +++ b/src/stage0/init/lean/parser/parsec.cpp @@ -334,7 +334,6 @@ obj* l_Lean_Parser_MonadParsec_notFollowedBy___rarg(obj*, obj*, obj*, obj*, obj* obj* l_Lean_Parser_MonadParsec_pos___boxed(obj*, obj*); obj* l_Lean_Parser_MonadParsec_many1Aux___main___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_ParsecT_bind(obj*); -obj* l_Option_getOrElse___main___rarg(obj*, obj*); obj* l_Lean_Parser_MonadParsec_unexpected___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_takeWhile(obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_label___boxed(obj*, obj*, obj*); @@ -429,7 +428,6 @@ obj* l_Lean_Parser_MonadParsec_fixAux___main(obj*, obj*); obj* l___private_init_lean_parser_parsec_7__takeWhileAux_x_27(obj*); obj* l_Lean_Parser_MonadParsec_try___rarg___closed__1; obj* l_Lean_Parser_ParsecT_labels___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_MonadParsec_error___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_many1Aux___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_many_x_27___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_MonadParsec_takeUntil1___spec__2___boxed(obj*, obj*, obj*); @@ -658,7 +656,6 @@ obj* l_Lean_Parser_ParsecT_Alternative___rarg___lambda__1___boxed(obj*, obj*, ob obj* l_Lean_Parser_ParsecT_try___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_ParsecT_parse___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_ParsecT_run___at_Lean_Parser_ParsecT_parseWithEoi___spec__3___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_MonadParsec_longestMatch___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_ParsecT_Monad_x_27___rarg___lambda__4___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_str___boxed(obj*, obj*); obj* l_String_quote(obj*); @@ -5068,19 +5065,40 @@ return x_3; obj* l_Lean_Parser_MonadParsec_error___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_5; obj* x_6; uint8 x_7; obj* x_8; obj* x_9; -x_5 = l_Option_getOrElse___main___rarg(x_0, x_4); -x_6 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_1); -lean::cnstr_set(x_6, 2, x_2); -lean::cnstr_set(x_6, 3, x_3); -x_7 = 0; -x_8 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_8, 0, x_6); -lean::cnstr_set_scalar(x_8, sizeof(void*)*1, x_7); -x_9 = x_8; -return x_9; +if (lean::obj_tag(x_0) == 0) +{ +obj* x_5; uint8 x_6; obj* x_7; obj* x_8; +x_5 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_1); +lean::cnstr_set(x_5, 2, x_2); +lean::cnstr_set(x_5, 3, x_3); +x_6 = 0; +x_7 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_7, 0, x_5); +lean::cnstr_set_scalar(x_7, sizeof(void*)*1, x_6); +x_8 = x_7; +return x_8; +} +else +{ +obj* x_10; obj* x_13; uint8 x_14; obj* x_15; obj* x_16; +lean::dec(x_4); +x_10 = lean::cnstr_get(x_0, 0); +lean::inc(x_10); +lean::dec(x_0); +x_13 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_13, 0, x_10); +lean::cnstr_set(x_13, 1, x_1); +lean::cnstr_set(x_13, 2, x_2); +lean::cnstr_set(x_13, 3, x_3); +x_14 = 0; +x_15 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_15, 0, x_13); +lean::cnstr_set_scalar(x_15, sizeof(void*)*1, x_14); +x_16 = x_15; +return x_16; +} } } obj* l_Lean_Parser_MonadParsec_error___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { @@ -5090,7 +5108,7 @@ obj* x_6; obj* x_9; obj* x_10; x_6 = lean::cnstr_get(x_0, 0); lean::inc(x_6); lean::dec(x_0); -x_9 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___rarg___lambda__1___boxed), 5, 4); +x_9 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___rarg___lambda__1), 5, 4); lean::closure_set(x_9, 0, x_4); lean::closure_set(x_9, 1, x_2); lean::closure_set(x_9, 2, x_3); @@ -5107,16 +5125,6 @@ x_3 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_erro return x_3; } } -obj* l_Lean_Parser_MonadParsec_error___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_Lean_Parser_MonadParsec_error___rarg___lambda__1(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_0); -lean::dec(x_4); -return x_5; -} -} obj* l_Lean_Parser_MonadParsec_error___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { @@ -9917,26 +9925,47 @@ return x_3; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_MonadParsec_longestMatch___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_5; obj* x_6; uint8 x_7; obj* x_8; obj* x_9; -x_5 = l_Option_getOrElse___main___rarg(x_2, x_4); -x_6 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_0); -lean::cnstr_set(x_6, 2, x_1); -lean::cnstr_set(x_6, 3, x_3); -x_7 = 0; -x_8 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_8, 0, x_6); -lean::cnstr_set_scalar(x_8, sizeof(void*)*1, x_7); -x_9 = x_8; -return x_9; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_5; uint8 x_6; obj* x_7; obj* x_8; +x_5 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +lean::cnstr_set(x_5, 2, x_1); +lean::cnstr_set(x_5, 3, x_3); +x_6 = 0; +x_7 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_7, 0, x_5); +lean::cnstr_set_scalar(x_7, sizeof(void*)*1, x_6); +x_8 = x_7; +return x_8; +} +else +{ +obj* x_10; obj* x_13; uint8 x_14; obj* x_15; obj* x_16; +lean::dec(x_4); +x_10 = lean::cnstr_get(x_2, 0); +lean::inc(x_10); +lean::dec(x_2); +x_13 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_13, 0, x_10); +lean::cnstr_set(x_13, 1, x_0); +lean::cnstr_set(x_13, 2, x_1); +lean::cnstr_set(x_13, 3, x_3); +x_14 = 0; +x_15 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_15, 0, x_13); +lean::cnstr_set_scalar(x_15, sizeof(void*)*1, x_14); +x_16 = x_15; +return x_16; +} } } obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_MonadParsec_longestMatch___spec__1(obj* x_0, obj* x_1) { _start: { obj* x_2; -x_2 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_MonadParsec_longestMatch___spec__1___rarg___boxed), 5, 0); +x_2 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_MonadParsec_longestMatch___spec__1___rarg), 5, 0); return x_2; } } @@ -10287,17 +10316,18 @@ return x_0; obj* l_Lean_Parser_MonadParsec_longestMatch___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { _start: { -obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_15; +obj* x_8; obj* x_9; obj* x_10; obj* x_12; obj* x_14; obj* x_15; obj* x_16; x_8 = lean::box(0); x_9 = l_Lean_Parser_MonadParsec_longestMatch___rarg___lambda__2___closed__1; x_10 = l_mjoin___rarg___closed__1; -x_11 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_MonadParsec_longestMatch___spec__1___rarg(x_9, x_10, x_8, x_8, x_7); +lean::inc(x_7); +x_12 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_MonadParsec_longestMatch___spec__1___rarg(x_9, x_10, x_8, x_8, x_7); lean::inc(x_3); -x_13 = l_List_mfoldr___main___at_Lean_Parser_MonadParsec_longestMatch___spec__2___rarg(x_0, x_1, lean::box(0), x_2, x_3, x_4, x_7, x_11, x_5); -x_14 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_longestMatch___rarg___lambda__1), 2, 1); -lean::closure_set(x_14, 0, x_6); -x_15 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_13, x_14); -return x_15; +x_14 = l_List_mfoldr___main___at_Lean_Parser_MonadParsec_longestMatch___spec__2___rarg(x_0, x_1, lean::box(0), x_2, x_3, x_4, x_7, x_12, x_5); +x_15 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_longestMatch___rarg___lambda__1), 2, 1); +lean::closure_set(x_15, 0, x_6); +x_16 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_14, x_15); +return x_16; } } obj* l_Lean_Parser_MonadParsec_longestMatch___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { @@ -10333,16 +10363,6 @@ x_2 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_long return x_2; } } -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_MonadParsec_longestMatch___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_MonadParsec_longestMatch___spec__1___rarg(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_2); -lean::dec(x_4); -return x_5; -} -} obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_MonadParsec_longestMatch___spec__1___boxed(obj* x_0, obj* x_1) { _start: { @@ -10503,26 +10523,54 @@ return x_2; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_ParsecT_parseWithEoi___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { -obj* x_7; obj* x_10; obj* x_13; obj* x_14; uint8 x_15; obj* x_16; obj* x_17; obj* x_18; +if (lean::obj_tag(x_4) == 0) +{ +obj* x_7; obj* x_10; obj* x_13; uint8 x_14; obj* x_15; obj* x_16; obj* x_17; x_7 = lean::cnstr_get(x_0, 0); lean::inc(x_7); lean::dec(x_0); x_10 = lean::cnstr_get(x_7, 1); lean::inc(x_10); lean::dec(x_7); -x_13 = l_Option_getOrElse___main___rarg(x_4, x_6); -x_14 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_14, 0, x_13); -lean::cnstr_set(x_14, 1, x_2); -lean::cnstr_set(x_14, 2, x_3); -lean::cnstr_set(x_14, 3, x_5); -x_15 = 0; -x_16 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_16, 0, x_14); -lean::cnstr_set_scalar(x_16, sizeof(void*)*1, x_15); -x_17 = x_16; -x_18 = lean::apply_2(x_10, lean::box(0), x_17); -return x_18; +x_13 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_13, 0, x_6); +lean::cnstr_set(x_13, 1, x_2); +lean::cnstr_set(x_13, 2, x_3); +lean::cnstr_set(x_13, 3, x_5); +x_14 = 0; +x_15 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_15, 0, x_13); +lean::cnstr_set_scalar(x_15, sizeof(void*)*1, x_14); +x_16 = x_15; +x_17 = lean::apply_2(x_10, lean::box(0), x_16); +return x_17; +} +else +{ +obj* x_19; obj* x_22; obj* x_25; obj* x_28; uint8 x_29; obj* x_30; obj* x_31; obj* x_32; +lean::dec(x_6); +x_19 = lean::cnstr_get(x_0, 0); +lean::inc(x_19); +lean::dec(x_0); +x_22 = lean::cnstr_get(x_19, 1); +lean::inc(x_22); +lean::dec(x_19); +x_25 = lean::cnstr_get(x_4, 0); +lean::inc(x_25); +lean::dec(x_4); +x_28 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_28, 0, x_25); +lean::cnstr_set(x_28, 1, x_2); +lean::cnstr_set(x_28, 2, x_3); +lean::cnstr_set(x_28, 3, x_5); +x_29 = 0; +x_30 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_30, 0, x_28); +lean::cnstr_set_scalar(x_30, sizeof(void*)*1, x_29); +x_31 = x_30; +x_32 = lean::apply_2(x_22, lean::box(0), x_31); +return x_32; +} } } obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_ParsecT_parseWithEoi___spec__2(obj* x_0, obj* x_1) { @@ -10568,7 +10616,7 @@ x_21 = lean::nat_dec_eq(x_19, x_20); lean::dec(x_19); if (x_21 == 0) { -uint32 x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_37; +uint32 x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; lean::dec(x_3); lean::dec(x_11); lean::dec(x_2); @@ -10582,54 +10630,53 @@ x_32 = lean::string_append(x_30, x_29); x_33 = lean::box(0); x_34 = l_Lean_Parser_MonadParsec_eoi___rarg___lambda__1___closed__1; x_35 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_ParsecT_parseWithEoi___spec__2___rarg(x_1, lean::box(0), x_32, x_34, x_33, x_33, x_7); -lean::dec(x_7); -x_37 = lean::apply_4(x_15, lean::box(0), lean::box(0), x_18, x_35); -return x_37; +x_36 = lean::apply_4(x_15, lean::box(0), lean::box(0), x_18, x_35); +return x_36; } else { -obj* x_40; obj* x_41; obj* x_42; obj* x_43; +obj* x_39; obj* x_40; obj* x_41; obj* x_42; lean::dec(x_5); lean::dec(x_1); -x_40 = lean::box(0); +x_39 = lean::box(0); if (lean::is_scalar(x_11)) { - x_41 = lean::alloc_cnstr(0, 3, 0); + x_40 = lean::alloc_cnstr(0, 3, 0); } else { - x_41 = x_11; + x_40 = x_11; } -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_7); -lean::cnstr_set(x_41, 2, x_2); -x_42 = lean::apply_2(x_3, lean::box(0), x_41); -x_43 = lean::apply_4(x_15, lean::box(0), lean::box(0), x_18, x_42); -return x_43; +lean::cnstr_set(x_40, 0, x_39); +lean::cnstr_set(x_40, 1, x_7); +lean::cnstr_set(x_40, 2, x_2); +x_41 = lean::apply_2(x_3, lean::box(0), x_40); +x_42 = lean::apply_4(x_15, lean::box(0), lean::box(0), x_18, x_41); +return x_42; } } else { -obj* x_47; uint8 x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +obj* x_46; uint8 x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_47 = lean::cnstr_get(x_4, 0); -x_49 = lean::cnstr_get_scalar(x_4, sizeof(void*)*1); +x_46 = lean::cnstr_get(x_4, 0); +x_48 = lean::cnstr_get_scalar(x_4, sizeof(void*)*1); if (lean::is_exclusive(x_4)) { - x_50 = x_4; + x_49 = x_4; } else { - lean::inc(x_47); + lean::inc(x_46); lean::dec(x_4); - x_50 = lean::box(0); + x_49 = lean::box(0); } -if (lean::is_scalar(x_50)) { - x_51 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_49)) { + x_50 = lean::alloc_cnstr(1, 1, 1); } else { - x_51 = x_50; + x_50 = x_49; } -lean::cnstr_set(x_51, 0, x_47); -lean::cnstr_set_scalar(x_51, sizeof(void*)*1, x_49); -x_52 = x_51; -x_53 = lean::apply_2(x_3, lean::box(0), x_52); -return x_53; +lean::cnstr_set(x_50, 0, x_46); +lean::cnstr_set_scalar(x_50, sizeof(void*)*1, x_48); +x_51 = x_50; +x_52 = lean::apply_2(x_3, lean::box(0), x_51); +return x_52; } } } @@ -10799,8 +10846,6 @@ _start: obj* x_7; x_7 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_ParsecT_parseWithEoi___spec__2___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6); lean::dec(x_1); -lean::dec(x_4); -lean::dec(x_6); return x_7; } } diff --git a/src/stage0/init/lean/parser/pratt.cpp b/src/stage0/init/lean/parser/pratt.cpp index c8f1dea8f2..181e669430 100644 --- a/src/stage0/init/lean/parser/pratt.cpp +++ b/src/stage0/init/lean/parser/pratt.cpp @@ -15,28 +15,21 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif obj* l_Lean_Parser_prattParser_View___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_indexed___rarg___closed__1; -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_prattParser___spec__4___boxed(obj*, obj*); +obj* l_fixCore___rarg___boxed(obj*, obj*, obj*); extern "C" uint8 lean_name_dec_eq(obj*, obj*); obj* l_Lean_Parser_prattParser_tokens___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); namespace lean { obj* nat_sub(obj*, obj*); } -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3(obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2(obj*); obj* l_Lean_Parser_prattParser_View___boxed(obj*); extern obj* l_mjoin___rarg___closed__1; -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_prattParser___spec__4___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_currLbp___rarg___lambda__3___closed__2; obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___boxed(obj*); obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_prattParser___spec__4(obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_MonadParsec_error___rarg(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_String_OldIterator_remaining___main(obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3___boxed(obj*, obj*); obj* l_Lean_Parser_currLbp(obj*); @@ -44,15 +37,14 @@ obj* l___private_init_lean_parser_pratt_1__trailingLoop___main(obj*); obj* l___private_init_lean_parser_pratt_1__trailingLoop___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_currLbp___rarg___lambda__1___closed__1; obj* l_Lean_Parser_prattParser_View___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_prattParser___spec__1___boxed(obj*); +obj* l_Lean_Parser_MonadParsec_error___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_Lean_Parser_prattParser___rarg___lambda__1___boxed(obj*, obj*); obj* l_Lean_Parser_currLbp___boxed(obj*); obj* l___private_init_lean_parser_pratt_1__trailingLoop(obj*); -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2___boxed(obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg___lambda__1___boxed(obj*, obj*); +obj* l_Lean_Parser_prattParser___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_Lean_Parser_prattParser___rarg___lambda__4(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_currLbp___rarg___lambda__3___closed__1; namespace lean { uint8 nat_dec_lt(obj*, obj*); @@ -61,7 +53,7 @@ extern obj* l___private_init_lean_parser_combinators_1__many1Aux___main___rarg__ obj* l_List_append___rarg(obj*, obj*); obj* l_Lean_Parser_currLbp___rarg(obj*, obj*, obj*, obj*, obj*); extern "C" obj* lean_name_mk_string(obj*, obj*); -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___boxed(obj*); +obj* l_Lean_Parser_prattParser___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); namespace lean { obj* nat_add(obj*, obj*); } @@ -71,20 +63,15 @@ obj* l_Lean_Parser_Trie_matchPrefix___rarg(obj*, obj*); namespace lean { uint8 nat_dec_eq(obj*, obj*); } -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_prattParser___boxed(obj*); obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_pratt_1__trailingLoop___main___spec__1(obj*, obj*); -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_prattParser___spec__4___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_MonadParsec_error___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_currLbp___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*); -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3(obj*); obj* l_Lean_Parser_prattParser___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_pratt_1__trailingLoop___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_maxPrec; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2(obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg___lambda__1(obj*, obj*); +obj* l_Lean_Parser_RecT_runParsec___rarg___lambda__1___boxed(obj*, obj*); obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1(obj*, obj*); @@ -94,29 +81,25 @@ obj* l_Lean_Parser_prattParser_tokens___rarg(obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_pratt_1__trailingLoop___main___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_currLbp___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_prattParser(obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1___boxed(obj*, obj*); +obj* l_Lean_Parser_prattParser___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_number_HasView_x_27___lambda__1___closed__6; obj* l_Lean_Parser_currLbp___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*); -extern obj* l_Lean_Parser_RecT_runParsec___rarg___closed__1; +obj* l_Lean_Parser_prattParser___rarg___lambda__1(obj*, obj*); obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_prattParser___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_prattParser___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___boxed(obj*); obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_pratt_1__trailingLoop___main___spec__1___boxed(obj*, obj*); -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_prattParser___spec__1(obj*); obj* l_Lean_Parser_prattParser_View(obj*); obj* l_Lean_Parser_prattParser_tokens(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { obj* x_7; obj* x_8; obj* x_11; -x_7 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___rarg___lambda__1___boxed), 5, 4); +x_7 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___rarg___lambda__1), 5, 4); lean::closure_set(x_7, 0, x_4); lean::closure_set(x_7, 1, x_2); lean::closure_set(x_7, 2, x_3); @@ -140,7 +123,7 @@ obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2___rarg(o _start: { obj* x_7; obj* x_8; obj* x_11; -x_7 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___rarg___lambda__1___boxed), 5, 4); +x_7 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___rarg___lambda__1), 5, 4); lean::closure_set(x_7, 0, x_4); lean::closure_set(x_7, 1, x_2); lean::closure_set(x_7, 2, x_3); @@ -164,7 +147,7 @@ obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3___rarg(o _start: { obj* x_7; obj* x_8; obj* x_11; -x_7 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___rarg___lambda__1___boxed), 5, 4); +x_7 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___rarg___lambda__1), 5, 4); lean::closure_set(x_7, 0, x_4); lean::closure_set(x_7, 1, x_2); lean::closure_set(x_7, 2, x_3); @@ -529,7 +512,7 @@ obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_pratt_1__tr _start: { obj* x_7; obj* x_8; obj* x_11; -x_7 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___rarg___lambda__1___boxed), 5, 4); +x_7 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___rarg___lambda__1), 5, 4); lean::closure_set(x_7, 0, x_4); lean::closure_set(x_7, 1, x_2); lean::closure_set(x_7, 2, x_3); @@ -752,144 +735,7 @@ lean::dec(x_0); return x_1; } } -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_prattParser___spec__4___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { -_start: -{ -obj* x_7; obj* x_8; obj* x_11; -x_7 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___rarg___lambda__1___boxed), 5, 4); -lean::closure_set(x_7, 0, x_4); -lean::closure_set(x_7, 1, x_2); -lean::closure_set(x_7, 2, x_3); -lean::closure_set(x_7, 3, x_5); -x_8 = lean::cnstr_get(x_0, 0); -lean::inc(x_8); -lean::dec(x_0); -x_11 = lean::apply_2(x_8, lean::box(0), x_7); -return x_11; -} -} -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_prattParser___spec__4(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_prattParser___spec__4___rarg___boxed), 7, 0); -return x_2; -} -} -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { -_start: -{ -obj* x_9; -x_9 = l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_8, x_7); -return x_9; -} -} -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8, obj* x_9, obj* x_10) { -_start: -{ -uint8 x_11; -x_11 = lean::nat_dec_lt(x_0, x_10); -if (x_11 == 0) -{ -obj* x_20; obj* x_23; obj* x_26; -lean::dec(x_5); -lean::dec(x_9); -lean::dec(x_8); -lean::dec(x_7); -lean::dec(x_4); -lean::dec(x_6); -lean::dec(x_3); -lean::dec(x_0); -x_20 = lean::cnstr_get(x_1, 0); -lean::inc(x_20); -lean::dec(x_1); -x_23 = lean::cnstr_get(x_20, 1); -lean::inc(x_23); -lean::dec(x_20); -x_26 = lean::apply_2(x_23, lean::box(0), x_2); -return x_26; -} -else -{ -obj* x_29; obj* x_30; obj* x_31; -lean::inc(x_4); -lean::inc(x_3); -x_29 = lean::apply_2(x_3, x_2, x_4); -x_30 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg___lambda__1___boxed), 9, 8); -lean::closure_set(x_30, 0, x_1); -lean::closure_set(x_30, 1, x_5); -lean::closure_set(x_30, 2, x_6); -lean::closure_set(x_30, 3, x_7); -lean::closure_set(x_30, 4, x_3); -lean::closure_set(x_30, 5, x_0); -lean::closure_set(x_30, 6, x_8); -lean::closure_set(x_30, 7, x_4); -x_31 = lean::apply_4(x_9, lean::box(0), lean::box(0), x_29, x_30); -return x_31; -} -} -} -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { -_start: -{ -obj* x_9; uint8 x_10; -x_9 = lean::mk_nat_obj(0ul); -x_10 = lean::nat_dec_eq(x_6, x_9); -if (x_10 == 0) -{ -obj* x_11; obj* x_12; obj* x_13; obj* x_20; obj* x_22; obj* x_23; -x_11 = lean::mk_nat_obj(1ul); -x_12 = lean::nat_sub(x_6, x_11); -x_13 = lean::cnstr_get(x_0, 1); -lean::inc(x_13); -lean::inc(x_8); -lean::inc(x_3); -lean::inc(x_2); -lean::inc(x_1); -lean::inc(x_0); -x_20 = l_Lean_Parser_currLbp___rarg(x_0, x_1, x_2, x_3, x_8); -lean::inc(x_13); -x_22 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg___lambda__2___boxed), 11, 10); -lean::closure_set(x_22, 0, x_5); -lean::closure_set(x_22, 1, x_0); -lean::closure_set(x_22, 2, x_7); -lean::closure_set(x_22, 3, x_4); -lean::closure_set(x_22, 4, x_8); -lean::closure_set(x_22, 5, x_1); -lean::closure_set(x_22, 6, x_2); -lean::closure_set(x_22, 7, x_3); -lean::closure_set(x_22, 8, x_12); -lean::closure_set(x_22, 9, x_13); -x_23 = lean::apply_4(x_13, lean::box(0), lean::box(0), x_20, x_22); -return x_23; -} -else -{ -obj* x_30; obj* x_31; obj* x_32; obj* x_33; -lean::dec(x_5); -lean::dec(x_7); -lean::dec(x_4); -lean::dec(x_1); -lean::dec(x_3); -lean::dec(x_0); -x_30 = lean::box(0); -x_31 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; -x_32 = l_mjoin___rarg___closed__1; -x_33 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_prattParser___spec__4___rarg(x_2, lean::box(0), x_31, x_32, x_30, x_30, x_8); -lean::dec(x_8); -return x_33; -} -} -} -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg___boxed), 9, 0); -return x_1; -} -} -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg___lambda__1(obj* x_0, obj* x_1) { +obj* l_Lean_Parser_prattParser___rarg___lambda__1(obj* x_0, obj* x_1) { _start: { obj* x_2; obj* x_3; obj* x_6; obj* x_9; @@ -904,18 +750,18 @@ x_9 = lean::apply_2(x_6, lean::box(0), x_2); return x_9; } } -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { +obj* l_Lean_Parser_prattParser___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { _start: { obj* x_9; obj* x_10; obj* x_11; x_9 = lean::mk_nat_obj(1ul); x_10 = lean::nat_add(x_8, x_9); -x_11 = l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_10, x_6, x_7); +x_11 = l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_10, x_6, x_7); lean::dec(x_10); return x_11; } } -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { +obj* l_Lean_Parser_prattParser___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { _start: { obj* x_9; obj* x_11; obj* x_12; obj* x_14; obj* x_16; obj* x_17; obj* x_18; @@ -924,11 +770,11 @@ lean::inc(x_9); x_11 = l_Lean_Parser_MonadParsec_leftOver___rarg___closed__1; x_12 = lean::apply_2(x_9, lean::box(0), x_11); lean::inc(x_1); -x_14 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg___lambda__1___boxed), 2, 1); +x_14 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_prattParser___rarg___lambda__1___boxed), 2, 1); lean::closure_set(x_14, 0, x_1); lean::inc(x_2); x_16 = lean::apply_4(x_2, lean::box(0), lean::box(0), x_12, x_14); -x_17 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg___lambda__2___boxed), 9, 8); +x_17 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_prattParser___rarg___lambda__2___boxed), 9, 8); lean::closure_set(x_17, 0, x_1); lean::closure_set(x_17, 1, x_3); lean::closure_set(x_17, 2, x_0); @@ -941,85 +787,47 @@ x_18 = lean::apply_4(x_2, lean::box(0), lean::box(0), x_16, x_17); return x_18; } } -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { +obj* l_Lean_Parser_prattParser___rarg___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { _start: { -obj* x_14; obj* x_15; obj* x_18; obj* x_20; obj* x_21; -lean::inc(x_5); -lean::inc(x_4); -lean::inc(x_3); -lean::inc(x_2); -lean::inc(x_1); -lean::inc(x_0); -x_14 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg), 8, 7); -lean::closure_set(x_14, 0, x_0); -lean::closure_set(x_14, 1, x_1); -lean::closure_set(x_14, 2, x_2); -lean::closure_set(x_14, 3, x_3); -lean::closure_set(x_14, 4, x_4); -lean::closure_set(x_14, 5, x_5); -lean::closure_set(x_14, 6, x_6); -x_15 = lean::cnstr_get(x_0, 1); -lean::inc(x_15); -lean::inc(x_14); -x_18 = lean::apply_1(x_4, x_14); -lean::inc(x_15); -x_20 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg___lambda__3), 9, 8); -lean::closure_set(x_20, 0, x_2); -lean::closure_set(x_20, 1, x_0); -lean::closure_set(x_20, 2, x_15); -lean::closure_set(x_20, 3, x_1); -lean::closure_set(x_20, 4, x_3); -lean::closure_set(x_20, 5, x_5); -lean::closure_set(x_20, 6, x_7); -lean::closure_set(x_20, 7, x_14); -x_21 = lean::apply_4(x_15, lean::box(0), lean::box(0), x_18, x_20); -return x_21; -} -} -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg), 8, 0); -return x_1; -} -} -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_prattParser___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { -_start: -{ -obj* x_8; -x_8 = l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7); -return x_8; -} -} -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_prattParser___spec__1(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_prattParser___spec__1___rarg), 8, 0); -return x_1; +obj* x_8; obj* x_11; obj* x_13; obj* x_14; +x_8 = lean::cnstr_get(x_0, 1); +lean::inc(x_8); +lean::inc(x_6); +x_11 = lean::apply_1(x_1, x_6); +lean::inc(x_8); +x_13 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_prattParser___rarg___lambda__3), 9, 8); +lean::closure_set(x_13, 0, x_2); +lean::closure_set(x_13, 1, x_0); +lean::closure_set(x_13, 2, x_8); +lean::closure_set(x_13, 3, x_3); +lean::closure_set(x_13, 4, x_4); +lean::closure_set(x_13, 5, x_5); +lean::closure_set(x_13, 6, x_7); +lean::closure_set(x_13, 7, x_6); +x_14 = lean::apply_4(x_8, lean::box(0), lean::box(0), x_11, x_13); +return x_14; } } obj* l_Lean_Parser_prattParser___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { _start: { -obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_15; -x_9 = lean::box(0); -x_10 = l_Lean_Parser_RecT_runParsec___rarg___closed__1; -x_11 = l_mjoin___rarg___closed__1; +obj* x_10; obj* x_11; obj* x_12; obj* x_13; lean::inc(x_2); -x_13 = l_Lean_Parser_MonadParsec_error___rarg(x_2, lean::box(0), x_10, x_11, x_9, x_9); -x_14 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_prattParser___spec__1___rarg), 8, 7); -lean::closure_set(x_14, 0, x_0); -lean::closure_set(x_14, 1, x_1); -lean::closure_set(x_14, 2, x_2); -lean::closure_set(x_14, 3, x_3); -lean::closure_set(x_14, 4, x_6); -lean::closure_set(x_14, 5, x_7); -lean::closure_set(x_14, 6, x_13); -x_15 = lean::apply_1(x_8, x_14); -return x_15; +x_10 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_RecT_runParsec___rarg___lambda__1___boxed), 2, 1); +lean::closure_set(x_10, 0, x_2); +x_11 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_prattParser___rarg___lambda__4), 8, 6); +lean::closure_set(x_11, 0, x_0); +lean::closure_set(x_11, 1, x_6); +lean::closure_set(x_11, 2, x_2); +lean::closure_set(x_11, 3, x_1); +lean::closure_set(x_11, 4, x_3); +lean::closure_set(x_11, 5, x_7); +x_12 = lean::alloc_closure(reinterpret_cast(l_fixCore___rarg___boxed), 3, 2); +lean::closure_set(x_12, 0, x_10); +lean::closure_set(x_12, 1, x_11); +x_13 = lean::apply_1(x_8, x_12); +return x_13; } } obj* l_Lean_Parser_prattParser(obj* x_0) { @@ -1030,98 +838,24 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_prattParser___ra return x_1; } } -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_prattParser___spec__4___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { -_start: -{ -obj* x_7; -x_7 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_prattParser___spec__4___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6); -lean::dec(x_1); -lean::dec(x_6); -return x_7; -} -} -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_prattParser___spec__4___boxed(obj* x_0, obj* x_1) { +obj* l_Lean_Parser_prattParser___rarg___lambda__1___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; -x_2 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_prattParser___spec__4(x_0, x_1); -lean::dec(x_0); +x_2 = l_Lean_Parser_prattParser___rarg___lambda__1(x_0, x_1); lean::dec(x_1); return x_2; } } -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { +obj* l_Lean_Parser_prattParser___rarg___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { _start: { obj* x_9; -x_9 = l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg___lambda__1(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); -lean::dec(x_6); -return x_9; -} -} -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8, obj* x_9, obj* x_10) { -_start: -{ -obj* x_11; -x_11 = l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg___lambda__2(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10); -lean::dec(x_10); -return x_11; -} -} -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { -_start: -{ -obj* x_9; -x_9 = l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); -lean::dec(x_6); -return x_9; -} -} -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3___boxed(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_prattParser___spec__3(x_0); -lean::dec(x_0); -return x_1; -} -} -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg___lambda__1___boxed(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg___lambda__1(x_0, x_1); -lean::dec(x_1); -return x_2; -} -} -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { -_start: -{ -obj* x_9; -x_9 = l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___rarg___lambda__2(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); +x_9 = l_Lean_Parser_prattParser___rarg___lambda__2(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); lean::dec(x_8); return x_9; } } -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2___boxed(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_prattParser___spec__2(x_0); -lean::dec(x_0); -return x_1; -} -} -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_prattParser___spec__1___boxed(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_prattParser___spec__1(x_0); -lean::dec(x_0); -return x_1; -} -} obj* l_Lean_Parser_prattParser___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { _start: { diff --git a/src/stage0/init/lean/parser/rec.cpp b/src/stage0/init/lean/parser/rec.cpp index 5381728f27..44380a760c 100644 --- a/src/stage0/init/lean/parser/rec.cpp +++ b/src/stage0/init/lean/parser/rec.cpp @@ -1,6 +1,6 @@ // Lean compiler output // Module: init.lean.parser.rec -// Imports: init.control.reader init.lean.parser.parsec +// Imports: init.control.reader init.lean.parser.parsec init.fix #include "runtime/object.h" #include "runtime/apply.h" typedef lean::object obj; typedef lean::usize usize; @@ -15,10 +15,11 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif obj* l_Lean_Parser_RecT_Alternative(obj*, obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___main___rarg(obj*, obj*, obj*); +obj* l_fixCore___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_monadParsecTrans___rarg(obj*, obj*, obj*); obj* l_Lean_Parser_MonadRec_base(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_RecT_Lean_Parser_MonadParsec___boxed(obj*, obj*, obj*); +obj* l_Lean_Parser_RecT_runParsec___rarg___lambda__1(obj*, obj*); obj* l_Lean_Parser_MonadRec_trans___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadRec_trans___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_RecT_MonadExcept___boxed(obj*, obj*, obj*, obj*, obj*); @@ -31,23 +32,22 @@ obj* l_Lean_Parser_RecT_run(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadRec_base___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_RecT_Monad___boxed(obj*, obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___main(obj*, obj*, obj*); +obj* l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1; obj* l_Lean_Parser_RecT_MonadExcept___rarg(obj*); obj* l_ReaderT_Monad___rarg(obj*); obj* l_Lean_Parser_RecT_Lean_Parser_MonadParsec___rarg(obj*, obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadRec_trans(obj*, obj*, obj*, obj*); +obj* l_StateT_MonadExcept___rarg___lambda__2(obj*, obj*, obj*); obj* l_Lean_Parser_RecT_Alternative___boxed(obj*, obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___rarg(obj*, obj*, obj*); obj* l_Lean_Parser_RecT_run___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_RecT_runParsec___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_RecT_HasMonadLift(obj*, obj*, obj*); obj* l_Lean_Parser_RecT_runParsec(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_Lean_Parser_RecT_runParsec___rarg___lambda__1___boxed(obj*, obj*); obj* l_Lean_Parser_MonadRec_trans___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_RecT_Alternative___rarg(obj*, obj*); obj* l_ReaderT_MonadFunctor___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_RecT_runParsec___rarg(obj*, obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___boxed(obj*, obj*, obj*, obj*); obj* l_ReaderT_MonadExcept___rarg(obj*); obj* l_Lean_Parser_RecT_recurse___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_RecT_Lean_Parser_MonadParsec___rarg___boxed(obj*, obj*, obj*); @@ -56,13 +56,11 @@ obj* l_Lean_Parser_RecT_MonadFunctor___rarg(obj*); obj* l_Lean_Parser_RecT_recurse___rarg(obj*, obj*); obj* l_Lean_Parser_RecT_Monad(obj*, obj*, obj*); obj* l_Lean_Parser_RecT_recurse(obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_RecT_runParsec___rarg___closed__1; obj* l_ReaderT_Alternative___rarg(obj*, obj*); obj* l_Lean_Parser_RecT_MonadExcept(obj*, obj*, obj*, obj*, obj*); obj* l_ReaderT_lift___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_RecT_Monad___rarg(obj*); obj* l_Lean_Parser_RecT_MonadFunctor___boxed(obj*, obj*, obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___main___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_RecT_recurse___rarg(obj* x_0, obj* x_1) { _start: { @@ -91,76 +89,17 @@ lean::dec(x_3); return x_4; } } -obj* l___private_init_lean_parser_rec_1__runAux___main___rarg(obj* x_0, obj* x_1, obj* x_2) { -_start: -{ -obj* x_4; obj* x_5; -lean::inc(x_1); -x_4 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___main___rarg), 3, 2); -lean::closure_set(x_4, 0, x_0); -lean::closure_set(x_4, 1, x_1); -x_5 = lean::apply_2(x_1, x_2, x_4); -return x_5; -} -} -obj* l___private_init_lean_parser_rec_1__runAux___main(obj* x_0, obj* x_1, obj* x_2) { -_start: -{ -obj* x_3; -x_3 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___main___rarg), 3, 0); -return x_3; -} -} -obj* l___private_init_lean_parser_rec_1__runAux___main___boxed(obj* x_0, obj* x_1, obj* x_2) { -_start: -{ -obj* x_3; -x_3 = l___private_init_lean_parser_rec_1__runAux___main(x_0, x_1, x_2); -lean::dec(x_0); -lean::dec(x_1); -lean::dec(x_2); -return x_3; -} -} -obj* l___private_init_lean_parser_rec_1__runAux___rarg(obj* x_0, obj* x_1, obj* x_2) { -_start: -{ -obj* x_3; -x_3 = l___private_init_lean_parser_rec_1__runAux___main___rarg(x_0, x_1, x_2); -return x_3; -} -} -obj* l___private_init_lean_parser_rec_1__runAux(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___rarg), 3, 0); -return x_4; -} -} -obj* l___private_init_lean_parser_rec_1__runAux___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l___private_init_lean_parser_rec_1__runAux(x_0, x_1, x_2, x_3); -lean::dec(x_0); -lean::dec(x_1); -lean::dec(x_2); -lean::dec(x_3); -return x_4; -} -} obj* l_Lean_Parser_RecT_run___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; obj* x_4; obj* x_5; obj* x_6; -x_3 = lean::box(0); -x_4 = lean::apply_1(x_1, x_3); -x_5 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___rarg), 3, 2); -lean::closure_set(x_5, 0, x_4); -lean::closure_set(x_5, 1, x_2); -x_6 = lean::apply_1(x_0, x_5); -return x_6; +obj* x_3; obj* x_4; obj* x_5; +x_3 = lean::alloc_closure(reinterpret_cast(l_StateT_MonadExcept___rarg___lambda__2), 3, 1); +lean::closure_set(x_3, 0, x_2); +x_4 = lean::alloc_closure(reinterpret_cast(l_fixCore___rarg___boxed), 3, 2); +lean::closure_set(x_4, 0, x_1); +lean::closure_set(x_4, 1, x_3); +x_5 = lean::apply_1(x_0, x_4); +return x_5; } } obj* l_Lean_Parser_RecT_run(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { @@ -184,7 +123,7 @@ lean::dec(x_4); return x_5; } } -obj* _init_l_Lean_Parser_RecT_runParsec___rarg___closed__1() { +obj* _init_l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1() { _start: { obj* x_0; @@ -192,19 +131,30 @@ x_0 = lean::mk_string("RecT.runParsec: no progress"); return x_0; } } +obj* l_Lean_Parser_RecT_runParsec___rarg___lambda__1(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; obj* x_3; obj* x_4; obj* x_5; +x_2 = lean::box(0); +x_3 = l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1; +x_4 = l_mjoin___rarg___closed__1; +x_5 = l_Lean_Parser_MonadParsec_error___rarg(x_0, lean::box(0), x_3, x_4, x_2, x_2); +return x_5; +} +} obj* l_Lean_Parser_RecT_runParsec___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; -x_3 = lean::box(0); -x_4 = l_Lean_Parser_RecT_runParsec___rarg___closed__1; -x_5 = l_mjoin___rarg___closed__1; -x_6 = l_Lean_Parser_MonadParsec_error___rarg(x_0, lean::box(0), x_4, x_5, x_3, x_3); -x_7 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___rarg), 3, 2); -lean::closure_set(x_7, 0, x_6); -lean::closure_set(x_7, 1, x_2); -x_8 = lean::apply_1(x_1, x_7); -return x_8; +obj* x_3; obj* x_4; obj* x_5; obj* x_6; +x_3 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_RecT_runParsec___rarg___lambda__1___boxed), 2, 1); +lean::closure_set(x_3, 0, x_0); +x_4 = lean::alloc_closure(reinterpret_cast(l_StateT_MonadExcept___rarg___lambda__2), 3, 1); +lean::closure_set(x_4, 0, x_2); +x_5 = lean::alloc_closure(reinterpret_cast(l_fixCore___rarg___boxed), 3, 2); +lean::closure_set(x_5, 0, x_3); +lean::closure_set(x_5, 1, x_4); +x_6 = lean::apply_1(x_1, x_5); +return x_6; } } obj* l_Lean_Parser_RecT_runParsec(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { @@ -215,6 +165,15 @@ x_6 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_RecT_runParsec__ return x_6; } } +obj* l_Lean_Parser_RecT_runParsec___rarg___lambda__1___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_Lean_Parser_RecT_runParsec___rarg___lambda__1(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} obj* l_Lean_Parser_RecT_runParsec___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { @@ -484,6 +443,7 @@ return x_4; } obj* initialize_init_control_reader(obj*); obj* initialize_init_lean_parser_parsec(obj*); +obj* initialize_init_fix(obj*); static bool _G_initialized = false; obj* initialize_init_lean_parser_rec(obj* w) { if (_G_initialized) return w; @@ -492,7 +452,9 @@ if (io_result_is_error(w)) return w; w = initialize_init_control_reader(w); if (io_result_is_error(w)) return w; w = initialize_init_lean_parser_parsec(w); - l_Lean_Parser_RecT_runParsec___rarg___closed__1 = _init_l_Lean_Parser_RecT_runParsec___rarg___closed__1(); -lean::mark_persistent(l_Lean_Parser_RecT_runParsec___rarg___closed__1); +if (io_result_is_error(w)) return w; +w = initialize_init_fix(w); + l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1 = _init_l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1(); +lean::mark_persistent(l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1); return w; } diff --git a/src/stage0/init/lean/parser/syntax.cpp b/src/stage0/init/lean/parser/syntax.cpp index 782b0c68e7..aca4b82b46 100644 --- a/src/stage0/init/lean/parser/syntax.cpp +++ b/src/stage0/init/lean/parser/syntax.cpp @@ -77,7 +77,6 @@ obj* l_Lean_Parser_Syntax_list(obj*); obj* l_Lean_Parser_Syntax_mreplace___boxed(obj*); extern obj* l_Lean_Format_paren___closed__1; obj* l_Lean_Parser_Syntax_mkNode(obj*, obj*); -obj* l_Option_getOrElse___main___rarg(obj*, obj*); obj* l_Lean_Parser_Syntax_kind(obj*); obj* l_List_map___main___at_Lean_Parser_Syntax_toFormat___main___spec__12(obj*); obj* l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*); @@ -99,7 +98,6 @@ uint8 nat_dec_eq(obj*, obj*); } uint8 l_List_foldr___main___at_Lean_Parser_Syntax_reprint___main___spec__3(obj*, uint8, obj*); obj* l_Lean_Parser_Syntax_reprint___main___closed__1; -obj* l_Option_orelse___main___rarg(obj*, obj*); obj* l_Lean_Parser_Syntax_reprintAtom(obj*); obj* l_Lean_Parser_Syntax_mreplace___main___at_Lean_Parser_Syntax_updateLeading___spec__1(obj*, obj*, obj*); obj* l_Lean_Parser_Syntax_reprint(obj*); @@ -140,7 +138,6 @@ obj* l_Lean_Parser_Syntax_reprint___main(obj*); obj* l_List_foldl___main___at_String_join___spec__1(obj*, obj*); obj* l_String_quote(obj*); obj* l_Lean_Parser_Syntax_toFormat___main___closed__7; -obj* l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__1___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_Substring_ofString(obj*); uint8 l_Lean_Parser_Syntax_isOfKind(obj*, obj*); obj* l_Lean_Format_joinSep___main___at_Lean_Parser_Syntax_toFormat___main___spec__10(obj*, obj*); @@ -700,16 +697,34 @@ return x_1; obj* l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; obj* x_6; obj* x_9; obj* x_10; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_3; obj* x_6; obj* x_9; x_3 = lean::cnstr_get(x_0, 0); lean::inc(x_3); lean::dec(x_0); x_6 = lean::cnstr_get(x_3, 1); lean::inc(x_6); lean::dec(x_3); -x_9 = l_Option_getOrElse___main___rarg(x_2, x_1); -x_10 = lean::apply_2(x_6, lean::box(0), x_9); -return x_10; +x_9 = lean::apply_2(x_6, lean::box(0), x_1); +return x_9; +} +else +{ +obj* x_11; obj* x_14; obj* x_17; obj* x_20; +lean::dec(x_1); +x_11 = lean::cnstr_get(x_0, 0); +lean::inc(x_11); +lean::dec(x_0); +x_14 = lean::cnstr_get(x_11, 1); +lean::inc(x_14); +lean::dec(x_11); +x_17 = lean::cnstr_get(x_2, 0); +lean::inc(x_17); +lean::dec(x_2); +x_20 = lean::apply_2(x_14, lean::box(0), x_17); +return x_20; +} } } obj* l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2) { @@ -812,7 +827,7 @@ x_16 = lean::cnstr_get(x_0, 1); lean::inc(x_16); lean::inc(x_2); x_19 = lean::apply_1(x_1, x_2); -x_20 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__1___boxed), 3, 2); +x_20 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__1), 3, 2); lean::closure_set(x_20, 0, x_0); lean::closure_set(x_20, 1, x_2); x_21 = lean::apply_4(x_16, lean::box(0), lean::box(0), x_19, x_20); @@ -837,16 +852,6 @@ lean::dec(x_0); return x_1; } } -obj* l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2) { -_start: -{ -obj* x_3; -x_3 = l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__1(x_0, x_1, x_2); -lean::dec(x_1); -lean::dec(x_2); -return x_3; -} -} obj* l_Lean_Parser_Syntax_mreplace___main___boxed(obj* x_0) { _start: { @@ -921,74 +926,84 @@ return x_12; obj* l_Lean_Parser_Syntax_mreplace___main___at_Lean_Parser_Syntax_replace___spec__1(obj* x_0, obj* x_1) { _start: { +obj* x_2; switch (lean::obj_tag(x_1)) { case 2: { -obj* x_2; obj* x_6; obj* x_7; -x_2 = lean::cnstr_get(x_1, 0); -lean::inc(x_2); +obj* x_4; obj* x_8; obj* x_9; +x_4 = lean::cnstr_get(x_1, 0); +lean::inc(x_4); lean::inc(x_1); lean::inc(x_0); -x_6 = lean::apply_1(x_0, x_1); +x_8 = lean::apply_1(x_0, x_1); if (lean::is_exclusive(x_1)) { lean::cnstr_release(x_1, 0); - x_7 = x_1; + x_9 = x_1; } else { lean::dec(x_1); - x_7 = lean::box(0); + x_9 = lean::box(0); } -if (lean::obj_tag(x_6) == 0) +if (lean::obj_tag(x_8) == 0) { -obj* x_8; obj* x_10; obj* x_11; obj* x_13; obj* x_16; obj* x_17; -x_8 = lean::cnstr_get(x_2, 1); -lean::inc(x_8); -x_10 = l_List_mmap___main___at_Lean_Parser_Syntax_replace___spec__2(x_0, x_8); -x_11 = lean::cnstr_get(x_2, 0); -lean::inc(x_11); -x_13 = lean::cnstr_get(x_2, 2); +obj* x_10; obj* x_12; obj* x_13; obj* x_15; obj* x_18; obj* x_19; +x_10 = lean::cnstr_get(x_4, 1); +lean::inc(x_10); +x_12 = l_List_mmap___main___at_Lean_Parser_Syntax_replace___spec__2(x_0, x_10); +x_13 = lean::cnstr_get(x_4, 0); lean::inc(x_13); -lean::dec(x_2); -x_16 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_16, 0, x_11); -lean::cnstr_set(x_16, 1, x_10); -lean::cnstr_set(x_16, 2, x_13); -if (lean::is_scalar(x_7)) { - x_17 = lean::alloc_cnstr(2, 1, 0); +x_15 = lean::cnstr_get(x_4, 2); +lean::inc(x_15); +lean::dec(x_4); +x_18 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_18, 0, x_13); +lean::cnstr_set(x_18, 1, x_12); +lean::cnstr_set(x_18, 2, x_15); +if (lean::is_scalar(x_9)) { + x_19 = lean::alloc_cnstr(2, 1, 0); } else { - x_17 = x_7; + x_19 = x_9; } -lean::cnstr_set(x_17, 0, x_16); -return x_17; +lean::cnstr_set(x_19, 0, x_18); +return x_19; } else { -obj* x_21; -lean::dec(x_2); +obj* x_23; +lean::dec(x_4); +lean::dec(x_9); lean::dec(x_0); -lean::dec(x_7); -x_21 = lean::cnstr_get(x_6, 0); -lean::inc(x_21); -lean::dec(x_6); -return x_21; +x_23 = lean::cnstr_get(x_8, 0); +lean::inc(x_23); +lean::dec(x_8); +return x_23; } } -case 3: -{ -obj* x_24; obj* x_25; -x_24 = lean::apply_1(x_0, x_1); -x_25 = l_Option_getOrElse___main___rarg(x_24, x_1); -lean::dec(x_24); -return x_25; -} default: { -obj* x_28; obj* x_29; +obj* x_26; +x_26 = lean::box(0); +x_2 = x_26; +goto lbl_3; +} +} +lbl_3: +{ +obj* x_29; +lean::dec(x_2); lean::inc(x_1); -x_28 = lean::apply_1(x_0, x_1); -x_29 = l_Option_getOrElse___main___rarg(x_28, x_1); +x_29 = lean::apply_1(x_0, x_1); +if (lean::obj_tag(x_29) == 0) +{ +return x_1; +} +else +{ +obj* x_31; lean::dec(x_1); -lean::dec(x_28); -return x_29; +x_31 = lean::cnstr_get(x_29, 0); +lean::inc(x_31); +lean::dec(x_29); +return x_31; } } } @@ -1393,31 +1408,58 @@ goto lbl_4; } lbl_4: { -obj* x_45; obj* x_46; obj* x_48; obj* x_50; obj* x_51; obj* x_54; +obj* x_45; obj* x_46; lean::dec(x_3); lean::inc(x_1); x_45 = lean::apply_2(x_0, x_1, x_2); x_46 = lean::cnstr_get(x_45, 0); +lean::inc(x_46); +if (lean::obj_tag(x_46) == 0) +{ +obj* x_48; obj* x_50; obj* x_51; x_48 = lean::cnstr_get(x_45, 1); if (lean::is_exclusive(x_45)) { + lean::cnstr_release(x_45, 0); x_50 = x_45; } else { - lean::inc(x_46); lean::inc(x_48); lean::dec(x_45); x_50 = lean::box(0); } -x_51 = l_Option_getOrElse___main___rarg(x_46, x_1); -lean::dec(x_1); -lean::dec(x_46); if (lean::is_scalar(x_50)) { - x_54 = lean::alloc_cnstr(0, 2, 0); + x_51 = lean::alloc_cnstr(0, 2, 0); } else { - x_54 = x_50; + x_51 = x_50; +} +lean::cnstr_set(x_51, 0, x_1); +lean::cnstr_set(x_51, 1, x_48); +return x_51; +} +else +{ +obj* x_53; obj* x_55; obj* x_56; obj* x_59; +lean::dec(x_1); +x_53 = lean::cnstr_get(x_45, 1); +if (lean::is_exclusive(x_45)) { + lean::cnstr_release(x_45, 0); + x_55 = x_45; +} else { + lean::inc(x_53); + lean::dec(x_45); + x_55 = lean::box(0); +} +x_56 = lean::cnstr_get(x_46, 0); +lean::inc(x_56); +lean::dec(x_46); +if (lean::is_scalar(x_55)) { + x_59 = lean::alloc_cnstr(0, 2, 0); +} else { + x_59 = x_55; +} +lean::cnstr_set(x_59, 0, x_56); +lean::cnstr_set(x_59, 1, x_53); +return x_59; } -lean::cnstr_set(x_54, 0, x_51); -lean::cnstr_set(x_54, 1, x_48); -return x_54; } } } @@ -1456,15 +1498,19 @@ return x_0; } else { -obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; +obj* x_3; obj* x_4; obj* x_5; x_3 = lean::cnstr_get(x_1, 0); x_4 = lean::cnstr_get(x_1, 1); -x_5 = l_List_foldr___main___at_Lean_Parser_Syntax_getHeadInfo___main___spec__1(x_0, x_4); -x_6 = l_Lean_Parser_Syntax_getHeadInfo___main(x_3); -x_7 = l_Option_orelse___main___rarg(x_6, x_5); -lean::dec(x_5); -lean::dec(x_6); -return x_7; +x_5 = l_Lean_Parser_Syntax_getHeadInfo___main(x_3); +if (lean::obj_tag(x_5) == 0) +{ +x_1 = x_4; +goto _start; +} +else +{ +return x_5; +} } } } diff --git a/src/stage0/init/lean/parser/term.cpp b/src/stage0/init/lean/parser/term.cpp index 861ee45f6c..fdb5ea36a9 100644 --- a/src/stage0/init/lean/parser/term.cpp +++ b/src/stage0/init/lean/parser/term.cpp @@ -41,6 +41,7 @@ obj* l_RBMap_find___main___at___private_init_lean_parser_term_2__leading___spec_ obj* l_Lean_Parser_Term_depArrow_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_show_HasView_x_27___lambda__1___closed__1; extern obj* l_Lean_Parser_stringLit; +obj* l_fixCore___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_Term_binderDefault_HasView_x_27; obj* l_Lean_Parser_Term_lambda_HasView_x_27; obj* l_Lean_Parser_Term_borrowed; @@ -93,6 +94,7 @@ obj* l_List_map___main___at_Lean_Parser_Term_matchEquation_HasView_x_27___spec__ obj* l_RBMap_find___main___at___private_init_lean_parser_term_2__leading___spec__3___boxed(obj*); obj* l_Lean_Parser_Term_assumeAnonymous_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_binderContent_Parser_Lean_Parser_HasTokens___closed__1; +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__4(obj*); obj* l_Lean_Parser_Term_anonymousConstructor_Parser_Lean_Parser_HasView; obj* l_Lean_Parser_Term_typed_HasView_x_27; obj* l_Lean_Parser_Term_anonymousInaccessible_Parser_Lean_Parser_HasView; @@ -111,7 +113,6 @@ obj* l_Lean_Parser_Term_assumeAnonymous_HasView; extern obj* l_Lean_Parser_Level_Parser_Lean_Parser_HasTokens___closed__1; obj* l_Lean_Parser_Term_letLhsId; obj* l_Lean_Parser_Term_bracketedBinder_Parser_Lean_Parser_HasTokens___closed__1; -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__5___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_structInstWith_HasView_x_27___lambda__2(obj*); extern obj* l_Lean_Parser_Combinators_choiceAux___main___rarg___closed__1; obj* l_Lean_Parser_Term_structInstField_HasView_x_27___lambda__1(obj*); @@ -124,6 +125,7 @@ obj* l_Lean_Parser_Term_projection; obj* l_Lean_Parser_Term_optIdent_Parser___closed__1; obj* l_Lean_Parser_Term_instImplicitBinder_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_Term_lambda_Parser___closed__1; +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__2(obj*); obj* l_Lean_Parser_Combinators_sepBy1_tokens___rarg(obj*, obj*); obj* l_Lean_Parser_Term_pi_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_sort_HasView_x_27___lambda__1___closed__3; @@ -137,7 +139,6 @@ obj* l_Lean_Parser_Term_parenSpecial; obj* l_Lean_Parser_Term_instImplicitNamedBinder_HasView_x_27___lambda__2(obj*); extern obj* l_mjoin___rarg___closed__1; obj* l_Lean_Parser_Term_matchEquation; -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__3(obj*); obj* l_Lean_Parser_Term_simpleExplicitBinder_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_simpleBinder_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_Term_explicitBinderContent_HasView_x_27(uint8); @@ -192,7 +193,6 @@ obj* l_Lean_Parser_ident_Parser___at_Lean_Parser_Term_projection_Parser_Lean_Par obj* l_Lean_Parser_Term_explicit_Parser_Lean_Parser_HasView; obj* l_Lean_Parser_Term_structInstItem; obj* l_Lean_Parser_Term_structInstSource_HasView; -extern obj* l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___rarg___closed__1; obj* l_Lean_Parser_Term_Subtype_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_haveFrom_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Combinators_optional___at_Lean_Parser_command_NotationSpec_symbolQuote_Parser_Lean_Parser_HasTokens___spec__7___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); @@ -214,7 +214,6 @@ obj* l_Lean_Parser_Term_binder_HasView_x_27___lambda__1___closed__2; obj* l_List_foldl___main___at_Lean_Parser_Term_mkApp___spec__1(obj*, obj*); obj* l_List_reverse___rarg(obj*); obj* l_Lean_Parser_Term_let_HasView_x_27; -obj* l_Lean_Parser_currLbp___at_Lean_Parser_termParser_run___spec__4___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_parenSpecial_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_binderDefaultVal_HasView; @@ -252,6 +251,7 @@ obj* l_RBMap_find___main___at___private_init_lean_parser_term_2__leading___spec_ obj* l___private_init_lean_parser_term_2__leading___closed__1; extern obj* l_Lean_Parser_TermParserM_Alternative; obj* l_Lean_Parser_Term_binderContent_Parser_Lean_Parser_HasView___closed__2; +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_haveProof_HasView; obj* l_Lean_Parser_Term_have_HasView; obj* l_Lean_Parser_Term_Subtype_HasView_x_27; @@ -293,14 +293,12 @@ obj* l_List_foldr___main___at___private_init_lean_parser_term_1__trailing___spec obj* l_RBMap_find___main___at___private_init_lean_parser_term_2__leading___spec__2___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_Term_bracketedBinder_Parser_Lean_Parser_HasView___closed__1; extern obj* l_Lean_Parser_number_HasView; -obj* l_Option_get___main___at_Lean_Parser_run___spec__2(obj*); obj* l_Lean_Parser_Term_have_Parser_Lean_Parser_HasTokens; obj* l_RBMap_find___main___at___private_init_lean_parser_term_2__leading___spec__5(obj*); obj* l_Lean_Parser_Term_instImplicitBinder_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_bracketedBinders; obj* l___private_init_lean_parser_combinators_2__sepByAux___main___at_Lean_Parser_Term_paren_Parser_Lean_Parser_HasTokens___spec__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_tuple_HasView_x_27___lambda__2(obj*); -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_termParser_run___spec__7___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_structInstSource_HasView_x_27; obj* l_Lean_Parser_identUnivs_HasView_x_27___lambda__1___closed__4; obj* l_Lean_Parser_Term_structInst_HasView_x_27___lambda__1___closed__4; @@ -332,6 +330,7 @@ obj* l_Lean_Parser_Term_hole_HasView_x_27; obj* l_Lean_Parser_MonadParsec_longestMatch___at_Lean_Parser_Term_bracketedBinder_Parser_Lean_Parser_HasTokens___spec__3(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_match_Parser_Lean_Parser_HasView; obj* l_Lean_Parser_Term_mkApp(obj*, obj*); +extern obj* l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1; obj* l_Lean_Parser_identUnivs_Parser_Lean_Parser_HasView; obj* l_Lean_Parser_Term_instImplicitNamedBinder; obj* l_Lean_Parser_Term_sortApp_Parser_Lean_Parser_HasView___lambda__2(obj*, obj*, obj*, obj*, obj*); @@ -350,13 +349,13 @@ obj* l_Lean_Parser_Term_paren_HasView_x_27___lambda__2(obj*); obj* l_RBMap_find___main___at___private_init_lean_parser_term_1__trailing___spec__3___boxed(obj*); obj* l___private_init_lean_parser_combinators_3__sepBy_viewAux___main___at_Lean_Parser_Term_anonymousConstructor_HasView_x_27___spec__1___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_Term_projectionSpec_HasView; -obj* l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_Term_sort_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_identUnivSpec_HasView; obj* l_Lean_Parser_Term_instImplicitNamedBinder_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__3(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_explicitModifier_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_simpleBinder_Parser(obj*, obj*, obj*, obj*, obj*); +obj* l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_haveProof; obj* l_Lean_Parser_Term_explicit_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_matchEquation_HasView; @@ -366,8 +365,8 @@ obj* l_Lean_Parser_Syntax_asNode___main(obj*); obj* l_Lean_Parser_Term_paren_HasView_x_27___lambda__2___closed__1; obj* l_Lean_Parser_Term_optIdent_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_haveFrom_HasView; -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_termParser_run___spec__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_Term_Parser_Lean_Parser_HasTokens___closed__1; +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__4___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_combinators_1__many1Aux___main___at_Lean_Parser_identUnivSpec_Parser_Lean_Parser_HasTokens___spec__2(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_simpleBinder_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_ParsecT_lookahead___at_Lean_Parser_Term_bracketedBinder_Parser_Lean_Parser_HasTokens___spec__4___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); @@ -498,7 +497,6 @@ obj* l_Lean_Parser_Term_arrow_HasView_x_27; obj* l_Lean_Parser_Term_binder_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_optIdent_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_explicit_HasView; -obj* l_Option_getOrElse___main___rarg(obj*, obj*); obj* l_Lean_Parser_Term_explicitBinder_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_anonymousInaccessible_Parser___closed__1; obj* l_Lean_Parser_Term_instImplicitBinderContent_HasView_x_27; @@ -526,6 +524,7 @@ obj* l_Lean_Parser_Term_hole_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_haveProof_HasView_x_27___lambda__1(obj*); extern obj* l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; obj* l_Lean_Parser_stringLit_Parser___at_Lean_Parser_Term_builtinLeadingParsers_Lean_Parser_HasTokens___spec__1___rarg(obj*, obj*, obj*, obj*); +obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_termParser_run___spec__3___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_depArrow_HasView_x_27; obj* l_Lean_Parser_Term_binderContent_HasView_x_27___closed__1; obj* l_Lean_Parser_Term_binderContent_HasView_x_27___lambda__1(obj*); @@ -563,7 +562,6 @@ obj* l_Lean_Parser_Term_sort; obj* l_Lean_Parser_Term_bracketedBinder_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_indexed___at___private_init_lean_parser_term_2__leading___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_binderContent_Parser_Lean_Parser_HasView___boxed(obj*); -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__3___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_typed_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_mixedBinder; obj* l_Lean_Parser_Term_arrow_Parser___closed__1; @@ -573,6 +571,7 @@ obj* l_Lean_Parser_Term_bracketedBinders_HasView_x_27___lambda__2___closed__2; obj* l_Lean_Parser_Term_binderIdent_HasView; obj* l_Lean_Parser_ParsecT_orelseMkRes___rarg(obj*, obj*); obj* l_Lean_Parser_Term_binderDefault_HasView_x_27___lambda__1___closed__1; +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__4___boxed(obj*); obj* l_Lean_Parser_Term_structInstItem_HasView_x_27___lambda__1(obj*); obj* l_RBMap_find___main___at___private_init_lean_parser_term_1__trailing___spec__4___rarg(obj*, obj*); obj* l_Lean_Parser_Term_binderContent_HasView(uint8); @@ -581,6 +580,7 @@ obj* l_Lean_Parser_Term_structInst_HasView_x_27; namespace lean { obj* nat_add(obj*, obj*); } +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__2___boxed(obj*); obj* l_Lean_Parser_Term_let_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__2(obj*); @@ -637,7 +637,6 @@ obj* l_Lean_Parser_Term_sortApp_Parser___closed__1; obj* l_Lean_Parser_Term_structInstWith_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_optType_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_binderContent_HasView___boxed(obj*); -obj* l_Lean_Parser_tryView___at_Lean_Parser_number_Parser___spec__1(obj*, obj*); obj* l_Lean_Parser_Term_parenSpecial_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_sorry_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_anonymousConstructor_Parser_Lean_Parser_HasTokens; @@ -674,7 +673,6 @@ obj* l_Lean_Parser_Term_instImplicitBinderContent_HasView_x_27___lambda__1___clo obj* l_Lean_Parser_Term_haveTerm_HasView; obj* l_Lean_Parser_Term_typed; obj* l_RBMap_find___main___at___private_init_lean_parser_term_2__leading___spec__5___boxed(obj*); -extern obj* l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; obj* l_Lean_Parser_Term_app_HasView; obj* l_Lean_Parser_Term_binderIdent_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_parenSpecial_HasView_x_27___lambda__1___closed__1; @@ -687,6 +685,7 @@ obj* l_Lean_Parser_MonadParsec_longestMatch___at___private_init_lean_parser_term obj* l_Lean_Parser_Term_Subtype_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_letLhs_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_from_Parser_Lean_Parser_HasView; +obj* l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_projectionSpec_HasView_x_27; obj* l_Lean_Parser_Term_explicitBinder_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_pi_Parser___closed__1; @@ -695,6 +694,7 @@ obj* l_Lean_Parser_Combinators_longestMatch___at___private_init_lean_parser_term obj* l_Lean_Parser_Term_bracketedBinders_HasView_x_27___lambda__2___closed__1; obj* l_Lean_Parser_Term_projection_HasView; extern obj* l_Lean_Parser_maxPrec; +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__4___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_2__leading___spec__9___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_tuple_HasView_x_27___lambda__1___closed__5; obj* l_List_mfoldr___main___at___private_init_lean_parser_term_1__trailing___spec__9___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); @@ -713,7 +713,6 @@ obj* l_Lean_Parser_Term_sorry_Parser(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_binderIdent_Parser_Lean_Parser_HasTokens; obj* l_List_map___main___at_Lean_Parser_Term_tuple_HasView_x_27___spec__2(obj*); obj* l_Lean_Parser_Term_projectionSpec_HasView_x_27___lambda__2(obj*); -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_termParser_run___spec__6(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_binders_Parser___closed__1; obj* l_Lean_Parser_Term_letLhsId_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_borrowed_Parser_Lean_Parser_HasView; @@ -784,6 +783,7 @@ obj* l_Lean_Parser_Term_anonymousInaccessible_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_indexed___at___private_init_lean_parser_term_1__trailing___spec__1(obj*); extern obj* l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; obj* l_Lean_Parser_Term_paren_HasView_x_27___lambda__1___closed__1; +obj* l_Lean_Parser_currLbp___at_Lean_Parser_termParser_run___spec__5(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_projectionSpec_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_match_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_show_HasView_x_27___lambda__1(obj*); @@ -806,9 +806,7 @@ obj* l_Lean_Parser_Term_structInstWith_HasView_x_27; obj* l_Lean_Parser_Term_binderDefaultVal_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_bracketedBinders_Parser___closed__1; obj* l_Lean_Parser_Term_implicitBinder_HasView_x_27___lambda__1(obj*); -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_termParser_run___spec__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_simpleBinder_HasView; -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__5___boxed(obj*); obj* l_Lean_Parser_Term_depArrow_Parser___closed__1; obj* l_Lean_Parser_indexed___at___private_init_lean_parser_term_1__trailing___spec__1___boxed(obj*); obj* l_Lean_Parser_Term_explicitBinderContent_HasView_x_27___lambda__1___closed__1; @@ -818,6 +816,7 @@ obj* l_Lean_Parser_Term_structInstType_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_Term_binder_HasView_x_27; obj* l_Lean_Parser_Term_structInst_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_binderIdent_HasView_x_27___lambda__1___closed__4; +obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_termParser_run___spec__3(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_ReaderT_lift___at_Lean_Parser_command_NotationSpec_symbolQuote_Parser_Lean_Parser_HasTokens___spec__1___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_simpleExplicitBinder_HasView; obj* l_DList_singleton___rarg(obj*, obj*); @@ -828,6 +827,7 @@ obj* l_Lean_Parser_Term_borrowed_HasView; obj* l_Lean_Parser_Term_binders_HasView_x_27; obj* l_Lean_Parser_Term_bindersExt_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_anonymousConstructor_HasView_x_27; +obj* l_Lean_Parser_currLbp___at_Lean_Parser_termParser_run___spec__5___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_app_Parser_Lean_Parser_HasView___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_assume_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_binderDefault_HasView_x_27___lambda__1(obj*); @@ -867,6 +867,7 @@ obj* l_Lean_Parser_Term_binders_HasView_x_27___lambda__1___closed__1; obj* l_ReaderT_lift___at_Lean_Parser_Term_sortApp_Parser_Lean_Parser_HasTokens___spec__2(obj*); obj* l_Lean_Parser_Term_explicit_Parser(obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_number_HasView_x_27___lambda__2___closed__6; +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__2___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; obj* l_Lean_Parser_Term_structInst_HasView_x_27___lambda__1___closed__3; extern obj* l_Lean_Name_toString___closed__1; @@ -901,12 +902,9 @@ obj* l_Lean_Parser_Term_assume_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_typeSpec_HasView; obj* l_Lean_Parser_Term_explicitBinder___boxed(obj*); obj* l_Lean_Parser_Term_pi_Parser(obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__3___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_sorry_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_bracketedBinder_HasView_x_27___lambda__2(obj*); -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__5___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_bracketedBinders_HasView_x_27___lambda__1___closed__1; -obj* l_Lean_Parser_currLbp___at_Lean_Parser_termParser_run___spec__4(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_binder_Parser(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_explicitBinderContent_HasView(uint8); obj* l_Lean_Parser_Term_instImplicitBinderContent_HasView_x_27___lambda__1(obj*); @@ -949,6 +947,7 @@ obj* l___private_init_lean_parser_combinators_3__sepBy_viewAux___main___at_Lean_ obj* l_String_quote(obj*); obj* l_Lean_Parser_identUnivs_Parser___closed__1; obj* l_RBMap_find___main___at___private_init_lean_parser_term_1__trailing___spec__5___rarg(obj*, obj*); +obj* l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___lambda__1(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_app_Parser___closed__1; obj* l_Lean_Parser_Term_app_Parser_Lean_Parser_HasView; obj* l_Lean_Parser_Term_letLhsId_HasView_x_27___lambda__1___closed__2; @@ -962,7 +961,6 @@ obj* l_Lean_Parser_Term_typeSpec_Parser(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_bracketedBinders_HasView_x_27___lambda__1___closed__6; obj* l_Lean_Parser_Term_getLeading(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Substring_ofString(obj*); -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_termParser_run___spec__7(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_structInstField; obj* l_Lean_Parser_Term_sortApp_HasView_x_27; obj* l_Lean_Parser_Combinators_optional___at_Lean_Parser_command_NotationSpec_symbolQuote_Parser_Lean_Parser_HasTokens___spec__7(obj*, uint8, obj*, obj*, obj*, obj*, obj*); @@ -974,9 +972,9 @@ obj* l_Lean_Parser_Term_match_HasView_x_27___lambda__1___closed__4; obj* l_Lean_Parser_Term_typeSpec_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_sort_HasView; obj* l_Lean_Parser_Term_instImplicitAnonymousBinder_HasView_x_27; +obj* l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_arrow_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_haveFrom_HasView_x_27___lambda__1___closed__2; -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__5(obj*); obj* l_Lean_Parser_identUnivs_HasView; obj* l_Lean_Parser_Term_bracketedBinders_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_bindersTypes_HasView_x_27___lambda__2(obj*); @@ -1017,7 +1015,6 @@ obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Term_projection_Parser_Lea obj* l_Lean_Parser_Term_simpleInstImplicitBinder_HasView; obj* l_Lean_Parser_Term_have_Parser_Lean_Parser_HasView; obj* l_Lean_Parser_ident_Parser___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__4___boxed(obj*); -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_termParser_run___spec__6___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_binders_HasView; obj* l_Lean_Parser_Term_bracketedBinders_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_Term_structInstType_HasView_x_27___lambda__2(obj*); @@ -1032,11 +1029,11 @@ obj* l_Lean_Parser_Term_bracketedBinder_HasView_x_27___closed__1; obj* l_Lean_Parser_Term_have_HasView_x_27; obj* l_Lean_Parser_Term_binderDefault_HasView_x_27___lambda__1___closed__2; extern obj* l_Lean_Parser_TermParserM_Lean_Parser_MonadParsec; -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__3___boxed(obj*); obj* l_Lean_Parser_Term_binderDefault_Parser___closed__1; obj* l_Lean_Parser_Term_pi_HasView; obj* l_Lean_Parser_Term_explicit_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_Term_explicitModifier_HasView_x_27___lambda__1___closed__1; +extern obj* l_Lean_Parser_number_Parser___rarg___lambda__1___closed__1; obj* l_Lean_Parser_Term_if_HasView_x_27___lambda__2(obj*); obj* l_List_mfoldr___main___at___private_init_lean_parser_term_2__leading___spec__10(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_lambda_HasView_x_27___lambda__1___closed__1; @@ -1142,23 +1139,11 @@ _start: obj* x_0; obj* x_1; obj* x_2; x_0 = lean::box(0); x_1 = lean::box(3); -x_2 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_2, 0, x_1); -lean::cnstr_set(x_2, 1, x_0); -return x_2; -} -} -obj* _init_l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__2() { -_start: -{ -obj* x_0; obj* x_1; obj* x_2; -x_0 = lean::box(0); -x_1 = lean::box(3); x_2 = l_Lean_Parser_Syntax_asNode___main(x_1); if (lean::obj_tag(x_2) == 0) { obj* x_3; obj* x_4; -x_3 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; +x_3 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_4 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_4, 0, x_0); lean::cnstr_set(x_4, 1, x_3); @@ -1191,7 +1176,7 @@ x_4 = l_Lean_Parser_Syntax_asNode___main(x_0); if (lean::obj_tag(x_4) == 0) { obj* x_5; -x_5 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__2; +x_5 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; return x_5; } else @@ -1288,7 +1273,7 @@ if (lean::obj_tag(x_27) == 0) { obj* x_37; obj* x_38; obj* x_39; x_37 = lean::box(0); -x_38 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; +x_38 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_39 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_39, 0, x_18); lean::cnstr_set(x_39, 1, x_38); @@ -1310,7 +1295,7 @@ lean::inc(x_43); lean::dec(x_40); x_46 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_46, 0, x_43); -x_47 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; +x_47 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_48 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_48, 0, x_18); lean::cnstr_set(x_48, 1, x_47); @@ -1321,7 +1306,7 @@ case 3: { obj* x_49; obj* x_50; obj* x_51; x_49 = lean::box(0); -x_50 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; +x_50 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_51 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_51, 0, x_18); lean::cnstr_set(x_51, 1, x_50); @@ -1333,7 +1318,7 @@ default: obj* x_53; obj* x_54; obj* x_55; lean::dec(x_40); x_53 = lean::box(0); -x_54 = l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1; +x_54 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_55 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_55, 0, x_18); lean::cnstr_set(x_55, 1, x_54); @@ -1450,7 +1435,7 @@ x_12 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2 x_13 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_13, 0, x_10); lean::cnstr_set(x_13, 1, x_12); -x_14 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_14 = lean::box(3); x_15 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_15, 0, x_14); lean::cnstr_set(x_15, 1, x_13); @@ -1460,110 +1445,69 @@ return x_17; } else { -obj* x_18; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +obj* x_18; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; x_18 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_20 = x_5; -} else { - lean::inc(x_18); - lean::dec(x_5); - x_20 = lean::box(0); -} +lean::inc(x_18); +lean::dec(x_5); x_21 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_21, 0, x_18); -if (lean::is_scalar(x_20)) { - x_22 = lean::alloc_cnstr(1, 1, 0); -} else { - x_22 = x_20; -} +x_22 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_22, 0, x_21); -x_23 = lean::box(3); -x_24 = l_Option_getOrElse___main___rarg(x_22, x_23); -lean::dec(x_22); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_24); -lean::cnstr_set(x_26, 1, x_11); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_10); -lean::cnstr_set(x_27, 1, x_26); -x_28 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_28); -lean::cnstr_set(x_29, 1, x_27); -x_30 = l_Lean_Parser_identUnivSpec; -x_31 = l_Lean_Parser_Syntax_mkNode(x_30, x_29); -return x_31; +lean::cnstr_set(x_22, 1, x_11); +x_23 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_23, 0, x_10); +lean::cnstr_set(x_23, 1, x_22); +x_24 = lean::box(3); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_24); +lean::cnstr_set(x_25, 1, x_23); +x_26 = l_Lean_Parser_identUnivSpec; +x_27 = l_Lean_Parser_Syntax_mkNode(x_26, x_25); +return x_27; } } else { -obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; -x_32 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_34 = x_1; -} else { - lean::inc(x_32); - lean::dec(x_1); - x_34 = lean::box(0); -} -x_35 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_35, 0, x_32); -if (lean::is_scalar(x_34)) { - x_36 = lean::alloc_cnstr(1, 1, 0); -} else { - x_36 = x_34; -} -lean::cnstr_set(x_36, 0, x_35); -x_37 = lean::box(3); -x_38 = l_Option_getOrElse___main___rarg(x_36, x_37); -lean::dec(x_36); +obj* x_28; obj* x_31; +x_28 = lean::cnstr_get(x_1, 0); +lean::inc(x_28); +lean::dec(x_1); +x_31 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_31, 0, x_28); if (lean::obj_tag(x_5) == 0) { -obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; -x_40 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_10); -lean::cnstr_set(x_41, 1, x_40); -x_42 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_42, 0, x_38); -lean::cnstr_set(x_42, 1, x_41); -x_43 = l_Lean_Parser_identUnivSpec; -x_44 = l_Lean_Parser_Syntax_mkNode(x_43, x_42); -return x_44; +obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; +x_32 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_10); +lean::cnstr_set(x_33, 1, x_32); +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_31); +lean::cnstr_set(x_34, 1, x_33); +x_35 = l_Lean_Parser_identUnivSpec; +x_36 = l_Lean_Parser_Syntax_mkNode(x_35, x_34); +return x_36; } else { -obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; -x_45 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_47 = x_5; -} else { - lean::inc(x_45); - lean::dec(x_5); - x_47 = lean::box(0); -} -x_48 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_48, 0, x_45); -if (lean::is_scalar(x_47)) { - x_49 = lean::alloc_cnstr(1, 1, 0); -} else { - x_49 = x_47; -} -lean::cnstr_set(x_49, 0, x_48); -x_50 = l_Option_getOrElse___main___rarg(x_49, x_37); -lean::dec(x_49); -x_52 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_52, 0, x_50); -lean::cnstr_set(x_52, 1, x_11); -x_53 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_53, 0, x_10); -lean::cnstr_set(x_53, 1, x_52); -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_38); -lean::cnstr_set(x_54, 1, x_53); -x_55 = l_Lean_Parser_identUnivSpec; -x_56 = l_Lean_Parser_Syntax_mkNode(x_55, x_54); -return x_56; +obj* x_37; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; +x_37 = lean::cnstr_get(x_5, 0); +lean::inc(x_37); +lean::dec(x_5); +x_40 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_40, 0, x_37); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_40); +lean::cnstr_set(x_41, 1, x_11); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_10); +lean::cnstr_set(x_42, 1, x_41); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_31); +lean::cnstr_set(x_43, 1, x_42); +x_44 = l_Lean_Parser_identUnivSpec; +x_45 = l_Lean_Parser_Syntax_mkNode(x_44, x_43); +return x_45; } } } @@ -1616,255 +1560,332 @@ goto lbl_12; } else { -obj* x_21; obj* x_24; uint8 x_26; obj* x_27; obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_37; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; -x_21 = lean::cnstr_get(x_15, 1); -lean::inc(x_21); -lean::dec(x_15); -x_24 = lean::cnstr_get(x_16, 0); -x_26 = lean::cnstr_get_scalar(x_16, sizeof(void*)*1); +obj* x_21; uint8 x_23; obj* x_24; obj* x_25; +x_21 = lean::cnstr_get(x_16, 0); +x_23 = lean::cnstr_get_scalar(x_16, sizeof(void*)*1); if (lean::is_exclusive(x_16)) { lean::cnstr_set(x_16, 0, lean::box(0)); - x_27 = x_16; + x_24 = x_16; } else { - lean::inc(x_24); + lean::inc(x_21); lean::dec(x_16); - x_27 = lean::box(0); + x_24 = lean::box(0); } -x_28 = lean::cnstr_get(x_24, 0); -lean::inc(x_28); -x_30 = lean::cnstr_get(x_24, 1); +x_25 = lean::cnstr_get(x_21, 3); +lean::inc(x_25); +if (lean::obj_tag(x_25) == 0) +{ +obj* x_27; obj* x_30; obj* x_32; obj* x_34; obj* x_37; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; +x_27 = lean::cnstr_get(x_15, 1); +lean::inc(x_27); +lean::dec(x_15); +x_30 = lean::cnstr_get(x_21, 0); lean::inc(x_30); -x_32 = lean::cnstr_get(x_24, 2); +x_32 = lean::cnstr_get(x_21, 1); lean::inc(x_32); -x_34 = lean::cnstr_get(x_24, 3); +x_34 = lean::cnstr_get(x_21, 2); lean::inc(x_34); -lean::dec(x_24); -x_37 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_34); -lean::dec(x_34); +lean::dec(x_21); +x_37 = lean::box(3); lean::inc(x_1); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_37); +lean::cnstr_set(x_39, 1, x_1); x_40 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_40, 0, x_37); -lean::cnstr_set(x_40, 1, x_1); -x_41 = lean::box(3); -x_42 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_42, 0, x_41); -lean::cnstr_set(x_42, 1, x_40); -x_43 = l_List_reverse___rarg(x_42); -x_44 = l_Lean_Parser_noKind; -x_45 = l_Lean_Parser_Syntax_mkNode(x_44, x_43); -x_46 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_46, 0, x_45); -x_47 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_47, 0, x_28); -lean::cnstr_set(x_47, 1, x_30); -lean::cnstr_set(x_47, 2, x_32); -lean::cnstr_set(x_47, 3, x_46); -if (x_26 == 0) +lean::cnstr_set(x_40, 1, x_39); +x_41 = l_List_reverse___rarg(x_40); +x_42 = l_Lean_Parser_noKind; +x_43 = l_Lean_Parser_Syntax_mkNode(x_42, x_41); +x_44 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_44, 0, x_43); +x_45 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_45, 0, x_30); +lean::cnstr_set(x_45, 1, x_32); +lean::cnstr_set(x_45, 2, x_34); +lean::cnstr_set(x_45, 3, x_44); +if (x_23 == 0) { -uint8 x_48; obj* x_49; obj* x_50; -x_48 = 0; -if (lean::is_scalar(x_27)) { - x_49 = lean::alloc_cnstr(1, 1, 1); +uint8 x_46; obj* x_47; obj* x_48; +x_46 = 0; +if (lean::is_scalar(x_24)) { + x_47 = lean::alloc_cnstr(1, 1, 1); } else { - x_49 = x_27; + x_47 = x_24; } -lean::cnstr_set(x_49, 0, x_47); -lean::cnstr_set_scalar(x_49, sizeof(void*)*1, x_48); -x_50 = x_49; -x_10 = x_50; -x_11 = x_21; +lean::cnstr_set(x_47, 0, x_45); +lean::cnstr_set_scalar(x_47, sizeof(void*)*1, x_46); +x_48 = x_47; +x_10 = x_48; +x_11 = x_27; goto lbl_12; } else { -uint8 x_51; obj* x_52; obj* x_53; -x_51 = 1; -if (lean::is_scalar(x_27)) { - x_52 = lean::alloc_cnstr(1, 1, 1); +uint8 x_49; obj* x_50; obj* x_51; +x_49 = 1; +if (lean::is_scalar(x_24)) { + x_50 = lean::alloc_cnstr(1, 1, 1); } else { - x_52 = x_27; + x_50 = x_24; } -lean::cnstr_set(x_52, 0, x_47); -lean::cnstr_set_scalar(x_52, sizeof(void*)*1, x_51); -x_53 = x_52; -x_10 = x_53; -x_11 = x_21; +lean::cnstr_set(x_50, 0, x_45); +lean::cnstr_set_scalar(x_50, sizeof(void*)*1, x_49); +x_51 = x_50; +x_10 = x_51; +x_11 = x_27; goto lbl_12; } } +else +{ +obj* x_52; obj* x_55; obj* x_57; obj* x_59; obj* x_62; obj* x_64; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; +x_52 = lean::cnstr_get(x_15, 1); +lean::inc(x_52); +lean::dec(x_15); +x_55 = lean::cnstr_get(x_21, 0); +lean::inc(x_55); +x_57 = lean::cnstr_get(x_21, 1); +lean::inc(x_57); +x_59 = lean::cnstr_get(x_21, 2); +lean::inc(x_59); +lean::dec(x_21); +x_62 = lean::cnstr_get(x_25, 0); +if (lean::is_exclusive(x_25)) { + x_64 = x_25; +} else { + lean::inc(x_62); + lean::dec(x_25); + x_64 = lean::box(0); +} +lean::inc(x_1); +x_66 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_66, 0, x_62); +lean::cnstr_set(x_66, 1, x_1); +x_67 = lean::box(3); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_67); +lean::cnstr_set(x_68, 1, x_66); +x_69 = l_List_reverse___rarg(x_68); +x_70 = l_Lean_Parser_noKind; +x_71 = l_Lean_Parser_Syntax_mkNode(x_70, x_69); +if (lean::is_scalar(x_64)) { + x_72 = lean::alloc_cnstr(1, 1, 0); +} else { + x_72 = x_64; +} +lean::cnstr_set(x_72, 0, x_71); +x_73 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_73, 0, x_55); +lean::cnstr_set(x_73, 1, x_57); +lean::cnstr_set(x_73, 2, x_59); +lean::cnstr_set(x_73, 3, x_72); +if (x_23 == 0) +{ +uint8 x_74; obj* x_75; obj* x_76; +x_74 = 0; +if (lean::is_scalar(x_24)) { + x_75 = lean::alloc_cnstr(1, 1, 1); +} else { + x_75 = x_24; +} +lean::cnstr_set(x_75, 0, x_73); +lean::cnstr_set_scalar(x_75, sizeof(void*)*1, x_74); +x_76 = x_75; +x_10 = x_76; +x_11 = x_52; +goto lbl_12; +} +else +{ +uint8 x_77; obj* x_78; obj* x_79; +x_77 = 1; +if (lean::is_scalar(x_24)) { + x_78 = lean::alloc_cnstr(1, 1, 1); +} else { + x_78 = x_24; +} +lean::cnstr_set(x_78, 0, x_73); +lean::cnstr_set_scalar(x_78, sizeof(void*)*1, x_77); +x_79 = x_78; +x_10 = x_79; +x_11 = x_52; +goto lbl_12; +} +} +} lbl_12: { if (lean::obj_tag(x_10) == 0) { -obj* x_54; obj* x_56; obj* x_58; obj* x_60; obj* x_61; obj* x_64; obj* x_66; -x_54 = lean::cnstr_get(x_10, 0); -x_56 = lean::cnstr_get(x_10, 1); -x_58 = lean::cnstr_get(x_10, 2); +obj* x_80; obj* x_82; obj* x_84; obj* x_86; obj* x_87; obj* x_90; obj* x_92; +x_80 = lean::cnstr_get(x_10, 0); +x_82 = lean::cnstr_get(x_10, 1); +x_84 = lean::cnstr_get(x_10, 2); if (lean::is_exclusive(x_10)) { lean::cnstr_set(x_10, 0, lean::box(0)); lean::cnstr_set(x_10, 1, lean::box(0)); lean::cnstr_set(x_10, 2, lean::box(0)); - x_60 = x_10; + x_86 = x_10; } else { - lean::inc(x_54); - lean::inc(x_56); - lean::inc(x_58); + lean::inc(x_80); + lean::inc(x_82); + lean::inc(x_84); lean::dec(x_10); - x_60 = lean::box(0); + x_86 = lean::box(0); } -x_61 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_61, 0, x_54); -lean::cnstr_set(x_61, 1, x_1); -lean::inc(x_56); -lean::inc(x_61); -x_64 = l___private_init_lean_parser_combinators_1__many1Aux___main___at_Lean_Parser_identUnivSpec_Parser_Lean_Parser_HasTokens___spec__2(x_0, x_61, x_9, x_3, x_56, x_11); +x_87 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_87, 0, x_80); +lean::cnstr_set(x_87, 1, x_1); +lean::inc(x_82); +lean::inc(x_87); +x_90 = l___private_init_lean_parser_combinators_1__many1Aux___main___at_Lean_Parser_identUnivSpec_Parser_Lean_Parser_HasTokens___spec__2(x_0, x_87, x_9, x_3, x_82, x_11); lean::dec(x_9); -x_66 = lean::cnstr_get(x_64, 0); -lean::inc(x_66); -if (lean::obj_tag(x_66) == 0) +x_92 = lean::cnstr_get(x_90, 0); +lean::inc(x_92); +if (lean::obj_tag(x_92) == 0) { -obj* x_71; obj* x_73; obj* x_74; obj* x_75; -lean::dec(x_61); -lean::dec(x_60); -lean::dec(x_56); -x_71 = lean::cnstr_get(x_64, 1); -if (lean::is_exclusive(x_64)) { - lean::cnstr_release(x_64, 0); - x_73 = x_64; +obj* x_97; obj* x_99; obj* x_100; obj* x_101; +lean::dec(x_86); +lean::dec(x_87); +lean::dec(x_82); +x_97 = lean::cnstr_get(x_90, 1); +if (lean::is_exclusive(x_90)) { + lean::cnstr_release(x_90, 0); + x_99 = x_90; } else { - lean::inc(x_71); - lean::dec(x_64); - x_73 = lean::box(0); + lean::inc(x_97); + lean::dec(x_90); + x_99 = lean::box(0); } -x_74 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_58, x_66); -if (lean::is_scalar(x_73)) { - x_75 = lean::alloc_cnstr(0, 2, 0); +x_100 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_84, x_92); +if (lean::is_scalar(x_99)) { + x_101 = lean::alloc_cnstr(0, 2, 0); } else { - x_75 = x_73; + x_101 = x_99; } -lean::cnstr_set(x_75, 0, x_74); -lean::cnstr_set(x_75, 1, x_71); -return x_75; +lean::cnstr_set(x_101, 0, x_100); +lean::cnstr_set(x_101, 1, x_97); +return x_101; } else { -uint8 x_76; -x_76 = lean::cnstr_get_scalar(x_66, sizeof(void*)*1); -if (x_76 == 0) +uint8 x_102; +x_102 = lean::cnstr_get_scalar(x_92, sizeof(void*)*1); +if (x_102 == 0) { -obj* x_77; obj* x_79; obj* x_80; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; -x_77 = lean::cnstr_get(x_64, 1); -if (lean::is_exclusive(x_64)) { - lean::cnstr_release(x_64, 0); - x_79 = x_64; +obj* x_103; obj* x_105; obj* x_106; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; obj* x_120; +x_103 = lean::cnstr_get(x_90, 1); +if (lean::is_exclusive(x_90)) { + lean::cnstr_release(x_90, 0); + x_105 = x_90; } else { - lean::inc(x_77); - lean::dec(x_64); - x_79 = lean::box(0); + lean::inc(x_103); + lean::dec(x_90); + x_105 = lean::box(0); } -x_80 = lean::cnstr_get(x_66, 0); -lean::inc(x_80); -lean::dec(x_66); -x_83 = l_List_reverse___rarg(x_61); -x_84 = l_Lean_Parser_noKind; -x_85 = l_Lean_Parser_Syntax_mkNode(x_84, x_83); -x_86 = lean::cnstr_get(x_80, 2); -lean::inc(x_86); -lean::dec(x_80); -x_89 = l_mjoin___rarg___closed__1; -x_90 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_90, 0, x_86); -lean::closure_set(x_90, 1, x_89); -x_91 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_91, 0, x_90); -if (lean::is_scalar(x_60)) { - x_92 = lean::alloc_cnstr(0, 3, 0); +x_106 = lean::cnstr_get(x_92, 0); +lean::inc(x_106); +lean::dec(x_92); +x_109 = l_List_reverse___rarg(x_87); +x_110 = l_Lean_Parser_noKind; +x_111 = l_Lean_Parser_Syntax_mkNode(x_110, x_109); +x_112 = lean::cnstr_get(x_106, 2); +lean::inc(x_112); +lean::dec(x_106); +x_115 = l_mjoin___rarg___closed__1; +x_116 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_116, 0, x_112); +lean::closure_set(x_116, 1, x_115); +x_117 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_117, 0, x_116); +if (lean::is_scalar(x_86)) { + x_118 = lean::alloc_cnstr(0, 3, 0); } else { - x_92 = x_60; + x_118 = x_86; } -lean::cnstr_set(x_92, 0, x_85); -lean::cnstr_set(x_92, 1, x_56); -lean::cnstr_set(x_92, 2, x_91); -x_93 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_58, x_92); -if (lean::is_scalar(x_79)) { - x_94 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_118, 0, x_111); +lean::cnstr_set(x_118, 1, x_82); +lean::cnstr_set(x_118, 2, x_117); +x_119 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_84, x_118); +if (lean::is_scalar(x_105)) { + x_120 = lean::alloc_cnstr(0, 2, 0); } else { - x_94 = x_79; + x_120 = x_105; } -lean::cnstr_set(x_94, 0, x_93); -lean::cnstr_set(x_94, 1, x_77); -return x_94; +lean::cnstr_set(x_120, 0, x_119); +lean::cnstr_set(x_120, 1, x_103); +return x_120; } else { -obj* x_98; obj* x_100; obj* x_101; obj* x_102; -lean::dec(x_61); -lean::dec(x_60); -lean::dec(x_56); -x_98 = lean::cnstr_get(x_64, 1); -if (lean::is_exclusive(x_64)) { - lean::cnstr_release(x_64, 0); - x_100 = x_64; +obj* x_124; obj* x_126; obj* x_127; obj* x_128; +lean::dec(x_86); +lean::dec(x_87); +lean::dec(x_82); +x_124 = lean::cnstr_get(x_90, 1); +if (lean::is_exclusive(x_90)) { + lean::cnstr_release(x_90, 0); + x_126 = x_90; } else { - lean::inc(x_98); - lean::dec(x_64); - x_100 = lean::box(0); + lean::inc(x_124); + lean::dec(x_90); + x_126 = lean::box(0); } -x_101 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_58, x_66); -if (lean::is_scalar(x_100)) { - x_102 = lean::alloc_cnstr(0, 2, 0); +x_127 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_84, x_92); +if (lean::is_scalar(x_126)) { + x_128 = lean::alloc_cnstr(0, 2, 0); } else { - x_102 = x_100; + x_128 = x_126; } -lean::cnstr_set(x_102, 0, x_101); -lean::cnstr_set(x_102, 1, x_98); -return x_102; +lean::cnstr_set(x_128, 0, x_127); +lean::cnstr_set(x_128, 1, x_124); +return x_128; } } } else { -obj* x_107; uint8 x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; +obj* x_133; uint8 x_135; obj* x_136; obj* x_137; obj* x_138; obj* x_139; lean::dec(x_9); lean::dec(x_1); lean::dec(x_3); lean::dec(x_0); -x_107 = lean::cnstr_get(x_10, 0); -x_109 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); +x_133 = lean::cnstr_get(x_10, 0); +x_135 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); if (lean::is_exclusive(x_10)) { - x_110 = x_10; + x_136 = x_10; } else { - lean::inc(x_107); + lean::inc(x_133); lean::dec(x_10); - x_110 = lean::box(0); + x_136 = lean::box(0); } -if (lean::is_scalar(x_110)) { - x_111 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_136)) { + x_137 = lean::alloc_cnstr(1, 1, 1); } else { - x_111 = x_110; + x_137 = x_136; } -lean::cnstr_set(x_111, 0, x_107); -lean::cnstr_set_scalar(x_111, sizeof(void*)*1, x_109); -x_112 = x_111; -x_113 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_113, 0, x_112); -lean::cnstr_set(x_113, 1, x_11); -return x_113; +lean::cnstr_set(x_137, 0, x_133); +lean::cnstr_set_scalar(x_137, sizeof(void*)*1, x_135); +x_138 = x_137; +x_139 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_139, 0, x_138); +lean::cnstr_set(x_139, 1, x_11); +return x_139; } } } else { -obj* x_116; obj* x_117; obj* x_118; obj* x_119; +obj* x_142; obj* x_143; obj* x_144; obj* x_145; lean::dec(x_1); lean::dec(x_0); -x_116 = lean::box(0); -x_117 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; -x_118 = l_mjoin___rarg___closed__1; -x_119 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_117, x_118, x_116, x_116, x_3, x_4, x_5); -lean::dec(x_4); +x_142 = lean::box(0); +x_143 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; +x_144 = l_mjoin___rarg___closed__1; +x_145 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_143, x_144, x_142, x_142, x_3, x_4, x_5); lean::dec(x_3); -return x_119; +return x_145; } } } @@ -2957,41 +2978,27 @@ return x_21; } else { -obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_22 = lean::cnstr_get(x_16, 0); -if (lean::is_exclusive(x_16)) { - x_24 = x_16; -} else { - lean::inc(x_22); - lean::dec(x_16); - x_24 = lean::box(0); -} +lean::inc(x_22); +lean::dec(x_16); x_25 = lean::box(0); x_26 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_26, 0, x_22); -if (lean::is_scalar(x_24)) { - x_27 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_6)) { + x_27 = lean::alloc_cnstr(1, 2, 0); } else { - x_27 = x_24; + x_27 = x_6; } lean::cnstr_set(x_27, 0, x_26); -x_28 = lean::box(3); -x_29 = l_Option_getOrElse___main___rarg(x_27, x_28); -lean::dec(x_27); -if (lean::is_scalar(x_6)) { - x_31 = lean::alloc_cnstr(1, 2, 0); -} else { - x_31 = x_6; -} -lean::cnstr_set(x_31, 0, x_29); -lean::cnstr_set(x_31, 1, x_25); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_7); -lean::cnstr_set(x_32, 1, x_31); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_32); -lean::cnstr_set(x_33, 1, x_12); -return x_33; +lean::cnstr_set(x_27, 1, x_25); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_7); +lean::cnstr_set(x_28, 1, x_27); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_28); +lean::cnstr_set(x_29, 1, x_12); +return x_29; } } } @@ -3276,7 +3283,7 @@ lean::cnstr_set(x_11, 1, x_10); if (lean::obj_tag(x_1) == 0) { obj* x_12; obj* x_13; obj* x_14; obj* x_15; -x_12 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_12 = lean::box(3); x_13 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_13, 0, x_12); lean::cnstr_set(x_13, 1, x_11); @@ -3286,32 +3293,18 @@ return x_15; } else { -obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; +obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; x_16 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_18 = x_1; -} else { - lean::inc(x_16); - lean::dec(x_1); - x_18 = lean::box(0); -} +lean::inc(x_16); +lean::dec(x_1); x_19 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_19, 0, x_16); -if (lean::is_scalar(x_18)) { - x_20 = lean::alloc_cnstr(1, 1, 0); -} else { - x_20 = x_18; -} +x_20 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_20, 0, x_19); -x_21 = lean::box(3); -x_22 = l_Option_getOrElse___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_11); -x_25 = l_Lean_Parser_Term_tuple; -x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); -return x_26; +lean::cnstr_set(x_20, 1, x_11); +x_21 = l_Lean_Parser_Term_tuple; +x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); +return x_22; } } } @@ -3537,7 +3530,7 @@ lean::cnstr_set(x_7, 1, x_6); if (lean::obj_tag(x_1) == 0) { obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_8 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_8 = lean::box(3); x_9 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_9, 0, x_8); lean::cnstr_set(x_9, 1, x_7); @@ -3547,32 +3540,18 @@ return x_11; } else { -obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; x_12 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_14 = x_1; -} else { - lean::inc(x_12); - lean::dec(x_1); - x_14 = lean::box(0); -} +lean::inc(x_12); +lean::dec(x_1); x_15 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_15, 0, x_12); -if (lean::is_scalar(x_14)) { - x_16 = lean::alloc_cnstr(1, 1, 0); -} else { - x_16 = x_14; -} +x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); -x_17 = lean::box(3); -x_18 = l_Option_getOrElse___main___rarg(x_16, x_17); -lean::dec(x_16); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_18); -lean::cnstr_set(x_20, 1, x_7); -x_21 = l_Lean_Parser_Term_typed; -x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); -return x_22; +lean::cnstr_set(x_16, 1, x_7); +x_17 = l_Lean_Parser_Term_typed; +x_18 = l_Lean_Parser_Syntax_mkNode(x_17, x_16); +return x_18; } } } @@ -4695,45 +4674,40 @@ goto lbl_29; obj* _init_l_Lean_Parser_Term_paren_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -x_4 = l_Lean_Parser_noKind; -x_5 = l_Lean_Parser_Syntax_mkNode(x_4, x_0); -lean::inc(x_3); -x_7 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_7, 0, x_3); -lean::cnstr_set(x_7, 1, x_0); -x_8 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_8, 0, x_5); -lean::cnstr_set(x_8, 1, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_3); -lean::cnstr_set(x_9, 1, x_8); -x_10 = l_Lean_Parser_Term_paren; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_1 = l_Lean_Parser_noKind; +x_2 = l_Lean_Parser_Syntax_mkNode(x_1, x_0); +x_3 = lean::box(3); +x_4 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_4, 0, x_3); +lean::cnstr_set(x_4, 1, x_0); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_2); +lean::cnstr_set(x_5, 1, x_4); +x_6 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_6, 0, x_3); +lean::cnstr_set(x_6, 1, x_5); +x_7 = l_Lean_Parser_Term_paren; +x_8 = l_Lean_Parser_Syntax_mkNode(x_7, x_6); +return x_8; } } obj* _init_l_Lean_Parser_Term_paren_HasView_x_27___lambda__2___closed__2() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; x_0 = lean::box(0); x_1 = l_Lean_Parser_noKind; x_2 = l_Lean_Parser_Syntax_mkNode(x_1, x_0); -x_3 = lean::box(0); -x_4 = lean::box(3); -x_5 = l_Option_getOrElse___main___rarg(x_3, x_4); -x_6 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_0); -x_7 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_7, 0, x_2); -lean::cnstr_set(x_7, 1, x_6); -return x_7; +x_3 = lean::box(3); +x_4 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_4, 0, x_3); +lean::cnstr_set(x_4, 1, x_0); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_2); +lean::cnstr_set(x_5, 1, x_4); +return x_5; } } obj* l_Lean_Parser_Term_paren_HasView_x_27___lambda__2(obj* x_0) { @@ -4760,245 +4734,177 @@ return x_9; } else { -obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; +obj* x_10; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; x_10 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_12 = x_5; -} else { - lean::inc(x_10); - lean::dec(x_5); - x_12 = lean::box(0); -} +lean::inc(x_10); +lean::dec(x_5); x_13 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_13, 0, x_10); -if (lean::is_scalar(x_12)) { - x_14 = lean::alloc_cnstr(1, 1, 0); -} else { - x_14 = x_12; -} +x_14 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_14, 0, x_13); -x_15 = lean::box(3); -x_16 = l_Option_getOrElse___main___rarg(x_14, x_15); -lean::dec(x_14); +lean::cnstr_set(x_14, 1, x_8); +x_15 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_15); +lean::cnstr_set(x_16, 1, x_14); +x_17 = lean::box(3); x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_16); -lean::cnstr_set(x_18, 1, x_8); -x_19 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_19); -lean::cnstr_set(x_20, 1, x_18); -x_21 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_21); -lean::cnstr_set(x_22, 1, x_20); -x_23 = l_Lean_Parser_Term_paren; -x_24 = l_Lean_Parser_Syntax_mkNode(x_23, x_22); -return x_24; +lean::cnstr_set(x_18, 0, x_17); +lean::cnstr_set(x_18, 1, x_16); +x_19 = l_Lean_Parser_Term_paren; +x_20 = l_Lean_Parser_Syntax_mkNode(x_19, x_18); +return x_20; } } else { -obj* x_25; obj* x_28; obj* x_29; obj* x_32; obj* x_33; obj* x_34; obj* x_35; -x_25 = lean::cnstr_get(x_3, 0); -lean::inc(x_25); +obj* x_21; obj* x_24; obj* x_25; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +x_21 = lean::cnstr_get(x_3, 0); +lean::inc(x_21); lean::dec(x_3); -x_28 = l_Lean_Parser_Term_parenContent_HasView; -x_29 = lean::cnstr_get(x_28, 1); -lean::inc(x_29); -lean::dec(x_28); -x_32 = lean::apply_1(x_29, x_25); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_32); -lean::cnstr_set(x_33, 1, x_8); -x_34 = l_Lean_Parser_noKind; -x_35 = l_Lean_Parser_Syntax_mkNode(x_34, x_33); +x_24 = l_Lean_Parser_Term_parenContent_HasView; +x_25 = lean::cnstr_get(x_24, 1); +lean::inc(x_25); +lean::dec(x_24); +x_28 = lean::apply_1(x_25, x_21); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_28); +lean::cnstr_set(x_29, 1, x_8); +x_30 = l_Lean_Parser_noKind; +x_31 = l_Lean_Parser_Syntax_mkNode(x_30, x_29); if (lean::obj_tag(x_5) == 0) { -obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_36 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_37 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_37, 0, x_35); -lean::cnstr_set(x_37, 1, x_36); -x_38 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_39 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_39, 0, x_38); -lean::cnstr_set(x_39, 1, x_37); -x_40 = l_Lean_Parser_Term_paren; -x_41 = l_Lean_Parser_Syntax_mkNode(x_40, x_39); -return x_41; +obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_32 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_31); +lean::cnstr_set(x_33, 1, x_32); +x_34 = lean::box(3); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_33); +x_36 = l_Lean_Parser_Term_paren; +x_37 = l_Lean_Parser_Syntax_mkNode(x_36, x_35); +return x_37; } else { -obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; -x_42 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_44 = x_5; -} else { - lean::inc(x_42); - lean::dec(x_5); - x_44 = lean::box(0); -} -x_45 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_45, 0, x_42); -if (lean::is_scalar(x_44)) { - x_46 = lean::alloc_cnstr(1, 1, 0); -} else { - x_46 = x_44; -} -lean::cnstr_set(x_46, 0, x_45); -x_47 = lean::box(3); -x_48 = l_Option_getOrElse___main___rarg(x_46, x_47); -lean::dec(x_46); -x_50 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_50, 0, x_48); -lean::cnstr_set(x_50, 1, x_8); -x_51 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_51, 0, x_35); -lean::cnstr_set(x_51, 1, x_50); -x_52 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_53 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_53, 0, x_52); -lean::cnstr_set(x_53, 1, x_51); -x_54 = l_Lean_Parser_Term_paren; -x_55 = l_Lean_Parser_Syntax_mkNode(x_54, x_53); -return x_55; +obj* x_38; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; +x_38 = lean::cnstr_get(x_5, 0); +lean::inc(x_38); +lean::dec(x_5); +x_41 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_41, 0, x_38); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_41); +lean::cnstr_set(x_42, 1, x_8); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_31); +lean::cnstr_set(x_43, 1, x_42); +x_44 = lean::box(3); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_44); +lean::cnstr_set(x_45, 1, x_43); +x_46 = l_Lean_Parser_Term_paren; +x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); +return x_47; } } } else { -obj* x_56; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; -x_56 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_58 = x_1; -} else { - lean::inc(x_56); - lean::dec(x_1); - x_58 = lean::box(0); -} -x_59 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_59, 0, x_56); -if (lean::is_scalar(x_58)) { - x_60 = lean::alloc_cnstr(1, 1, 0); -} else { - x_60 = x_58; -} -lean::cnstr_set(x_60, 0, x_59); -x_61 = lean::box(3); -x_62 = l_Option_getOrElse___main___rarg(x_60, x_61); -lean::dec(x_60); +obj* x_48; obj* x_51; +x_48 = lean::cnstr_get(x_1, 0); +lean::inc(x_48); +lean::dec(x_1); +x_51 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_51, 0, x_48); if (lean::obj_tag(x_3) == 0) { if (lean::obj_tag(x_5) == 0) { -obj* x_64; obj* x_65; obj* x_66; obj* x_67; -x_64 = l_Lean_Parser_Term_paren_HasView_x_27___lambda__2___closed__2; -x_65 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_65, 0, x_62); -lean::cnstr_set(x_65, 1, x_64); -x_66 = l_Lean_Parser_Term_paren; -x_67 = l_Lean_Parser_Syntax_mkNode(x_66, x_65); -return x_67; +obj* x_52; obj* x_53; obj* x_54; obj* x_55; +x_52 = l_Lean_Parser_Term_paren_HasView_x_27___lambda__2___closed__2; +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_51); +lean::cnstr_set(x_53, 1, x_52); +x_54 = l_Lean_Parser_Term_paren; +x_55 = l_Lean_Parser_Syntax_mkNode(x_54, x_53); +return x_55; } else { -obj* x_68; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; -x_68 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_70 = x_5; -} else { - lean::inc(x_68); - lean::dec(x_5); - x_70 = lean::box(0); -} -x_71 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_71, 0, x_68); -if (lean::is_scalar(x_70)) { - x_72 = lean::alloc_cnstr(1, 1, 0); -} else { - x_72 = x_70; -} -lean::cnstr_set(x_72, 0, x_71); -x_73 = l_Option_getOrElse___main___rarg(x_72, x_61); -lean::dec(x_72); -x_75 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_75, 0, x_73); -lean::cnstr_set(x_75, 1, x_8); -x_76 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_77 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_77, 0, x_76); -lean::cnstr_set(x_77, 1, x_75); -x_78 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_78, 0, x_62); -lean::cnstr_set(x_78, 1, x_77); -x_79 = l_Lean_Parser_Term_paren; -x_80 = l_Lean_Parser_Syntax_mkNode(x_79, x_78); -return x_80; +obj* x_56; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; +x_56 = lean::cnstr_get(x_5, 0); +lean::inc(x_56); +lean::dec(x_5); +x_59 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_59, 0, x_56); +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_59); +lean::cnstr_set(x_60, 1, x_8); +x_61 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_62 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_62, 0, x_61); +lean::cnstr_set(x_62, 1, x_60); +x_63 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_63, 0, x_51); +lean::cnstr_set(x_63, 1, x_62); +x_64 = l_Lean_Parser_Term_paren; +x_65 = l_Lean_Parser_Syntax_mkNode(x_64, x_63); +return x_65; } } else { -obj* x_81; obj* x_84; obj* x_85; obj* x_88; obj* x_89; obj* x_90; obj* x_91; -x_81 = lean::cnstr_get(x_3, 0); -lean::inc(x_81); +obj* x_66; obj* x_69; obj* x_70; obj* x_73; obj* x_74; obj* x_75; obj* x_76; +x_66 = lean::cnstr_get(x_3, 0); +lean::inc(x_66); lean::dec(x_3); -x_84 = l_Lean_Parser_Term_parenContent_HasView; -x_85 = lean::cnstr_get(x_84, 1); -lean::inc(x_85); -lean::dec(x_84); -x_88 = lean::apply_1(x_85, x_81); -x_89 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_89, 0, x_88); -lean::cnstr_set(x_89, 1, x_8); -x_90 = l_Lean_Parser_noKind; -x_91 = l_Lean_Parser_Syntax_mkNode(x_90, x_89); +x_69 = l_Lean_Parser_Term_parenContent_HasView; +x_70 = lean::cnstr_get(x_69, 1); +lean::inc(x_70); +lean::dec(x_69); +x_73 = lean::apply_1(x_70, x_66); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_73); +lean::cnstr_set(x_74, 1, x_8); +x_75 = l_Lean_Parser_noKind; +x_76 = l_Lean_Parser_Syntax_mkNode(x_75, x_74); if (lean::obj_tag(x_5) == 0) { -obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; -x_92 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_93 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_93, 0, x_91); -lean::cnstr_set(x_93, 1, x_92); -x_94 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_94, 0, x_62); -lean::cnstr_set(x_94, 1, x_93); -x_95 = l_Lean_Parser_Term_paren; -x_96 = l_Lean_Parser_Syntax_mkNode(x_95, x_94); -return x_96; +obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; +x_77 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_76); +lean::cnstr_set(x_78, 1, x_77); +x_79 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_79, 0, x_51); +lean::cnstr_set(x_79, 1, x_78); +x_80 = l_Lean_Parser_Term_paren; +x_81 = l_Lean_Parser_Syntax_mkNode(x_80, x_79); +return x_81; } else { -obj* x_97; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; -x_97 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_99 = x_5; -} else { - lean::inc(x_97); - lean::dec(x_5); - x_99 = lean::box(0); -} -x_100 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_100, 0, x_97); -if (lean::is_scalar(x_99)) { - x_101 = lean::alloc_cnstr(1, 1, 0); -} else { - x_101 = x_99; -} -lean::cnstr_set(x_101, 0, x_100); -x_102 = l_Option_getOrElse___main___rarg(x_101, x_61); -lean::dec(x_101); -x_104 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_104, 0, x_102); -lean::cnstr_set(x_104, 1, x_8); -x_105 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_105, 0, x_91); -lean::cnstr_set(x_105, 1, x_104); -x_106 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_106, 0, x_62); -lean::cnstr_set(x_106, 1, x_105); -x_107 = l_Lean_Parser_Term_paren; -x_108 = l_Lean_Parser_Syntax_mkNode(x_107, x_106); -return x_108; +obj* x_82; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; +x_82 = lean::cnstr_get(x_5, 0); +lean::inc(x_82); +lean::dec(x_5); +x_85 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_85, 0, x_82); +x_86 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_86, 0, x_85); +lean::cnstr_set(x_86, 1, x_8); +x_87 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_87, 0, x_76); +lean::cnstr_set(x_87, 1, x_86); +x_88 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_88, 0, x_51); +lean::cnstr_set(x_88, 1, x_87); +x_89 = l_Lean_Parser_Term_paren; +x_90 = l_Lean_Parser_Syntax_mkNode(x_89, x_88); +return x_90; } } } @@ -5075,301 +4981,172 @@ lean::cnstr_set(x_40, 0, x_38); lean::cnstr_set(x_40, 1, x_33); lean::cnstr_set(x_40, 2, x_39); x_41 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_35, x_40); -if (lean::obj_tag(x_41) == 0) -{ -x_15 = x_41; -x_16 = x_28; -goto lbl_17; +x_18 = x_41; +x_19 = x_28; +goto lbl_20; } else { -obj* x_42; uint8 x_44; obj* x_45; obj* x_46; obj* x_48; obj* x_50; obj* x_52; obj* x_55; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; -x_42 = lean::cnstr_get(x_41, 0); -x_44 = lean::cnstr_get_scalar(x_41, sizeof(void*)*1); -if (lean::is_exclusive(x_41)) { - lean::cnstr_set(x_41, 0, lean::box(0)); - x_45 = x_41; -} else { - lean::inc(x_42); - lean::dec(x_41); - x_45 = lean::box(0); -} -x_46 = lean::cnstr_get(x_42, 0); -lean::inc(x_46); -x_48 = lean::cnstr_get(x_42, 1); -lean::inc(x_48); -x_50 = lean::cnstr_get(x_42, 2); -lean::inc(x_50); -x_52 = lean::cnstr_get(x_42, 3); -lean::inc(x_52); -lean::dec(x_42); -x_55 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_52); -lean::dec(x_52); -lean::inc(x_4); -x_58 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_58, 0, x_55); -lean::cnstr_set(x_58, 1, x_4); -x_59 = lean::box(3); -x_60 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_60, 0, x_59); -lean::cnstr_set(x_60, 1, x_58); -x_61 = l_List_reverse___rarg(x_60); -x_62 = l_Lean_Parser_noKind; -x_63 = l_Lean_Parser_Syntax_mkNode(x_62, x_61); -x_64 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_64, 0, x_63); -x_65 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_65, 0, x_46); -lean::cnstr_set(x_65, 1, x_48); -lean::cnstr_set(x_65, 2, x_50); -lean::cnstr_set(x_65, 3, x_64); -if (x_44 == 0) -{ -uint8 x_66; obj* x_67; obj* x_68; -x_66 = 0; -if (lean::is_scalar(x_45)) { - x_67 = lean::alloc_cnstr(1, 1, 1); -} else { - x_67 = x_45; -} -lean::cnstr_set(x_67, 0, x_65); -lean::cnstr_set_scalar(x_67, sizeof(void*)*1, x_66); -x_68 = x_67; -x_15 = x_68; -x_16 = x_28; -goto lbl_17; -} -else -{ -uint8 x_69; obj* x_70; obj* x_71; -x_69 = 1; -if (lean::is_scalar(x_45)) { - x_70 = lean::alloc_cnstr(1, 1, 1); -} else { - x_70 = x_45; -} -lean::cnstr_set(x_70, 0, x_65); -lean::cnstr_set_scalar(x_70, sizeof(void*)*1, x_69); -x_71 = x_70; -x_15 = x_71; -x_16 = x_28; -goto lbl_17; -} -} -} -else -{ -obj* x_72; obj* x_75; uint8 x_77; obj* x_78; obj* x_79; obj* x_81; obj* x_83; obj* x_85; obj* x_88; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; -x_72 = lean::cnstr_get(x_25, 1); -lean::inc(x_72); +obj* x_42; obj* x_45; uint8 x_47; obj* x_48; obj* x_49; obj* x_50; +x_42 = lean::cnstr_get(x_25, 1); +lean::inc(x_42); lean::dec(x_25); -x_75 = lean::cnstr_get(x_26, 0); -x_77 = lean::cnstr_get_scalar(x_26, sizeof(void*)*1); +x_45 = lean::cnstr_get(x_26, 0); +x_47 = lean::cnstr_get_scalar(x_26, sizeof(void*)*1); if (lean::is_exclusive(x_26)) { - lean::cnstr_set(x_26, 0, lean::box(0)); - x_78 = x_26; + x_48 = x_26; } else { - lean::inc(x_75); + lean::inc(x_45); lean::dec(x_26); - x_78 = lean::box(0); + x_48 = lean::box(0); } -x_79 = lean::cnstr_get(x_75, 0); -lean::inc(x_79); -x_81 = lean::cnstr_get(x_75, 1); -lean::inc(x_81); -x_83 = lean::cnstr_get(x_75, 2); -lean::inc(x_83); -x_85 = lean::cnstr_get(x_75, 3); -lean::inc(x_85); -lean::dec(x_75); -x_88 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_85); -lean::dec(x_85); -lean::inc(x_4); -x_91 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_91, 0, x_88); -lean::cnstr_set(x_91, 1, x_4); -x_92 = lean::box(3); -x_93 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_93, 0, x_92); -lean::cnstr_set(x_93, 1, x_91); -x_94 = l_List_reverse___rarg(x_93); -x_95 = l_Lean_Parser_noKind; -x_96 = l_Lean_Parser_Syntax_mkNode(x_95, x_94); -x_97 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_97, 0, x_96); -x_98 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_98, 0, x_79); -lean::cnstr_set(x_98, 1, x_81); -lean::cnstr_set(x_98, 2, x_83); -lean::cnstr_set(x_98, 3, x_97); -if (x_77 == 0) -{ -uint8 x_99; obj* x_100; obj* x_101; -x_99 = 0; -if (lean::is_scalar(x_78)) { - x_100 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_48)) { + x_49 = lean::alloc_cnstr(1, 1, 1); } else { - x_100 = x_78; -} -lean::cnstr_set(x_100, 0, x_98); -lean::cnstr_set_scalar(x_100, sizeof(void*)*1, x_99); -x_101 = x_100; -x_15 = x_101; -x_16 = x_72; -goto lbl_17; -} -else -{ -uint8 x_102; obj* x_103; obj* x_104; -x_102 = 1; -if (lean::is_scalar(x_78)) { - x_103 = lean::alloc_cnstr(1, 1, 1); -} else { - x_103 = x_78; -} -lean::cnstr_set(x_103, 0, x_98); -lean::cnstr_set_scalar(x_103, sizeof(void*)*1, x_102); -x_104 = x_103; -x_15 = x_104; -x_16 = x_72; -goto lbl_17; + x_49 = x_48; } +lean::cnstr_set(x_49, 0, x_45); +lean::cnstr_set_scalar(x_49, sizeof(void*)*1, x_47); +x_50 = x_49; +x_18 = x_50; +x_19 = x_42; +goto lbl_20; } } else { -obj* x_110; obj* x_111; obj* x_113; obj* x_116; +obj* x_56; obj* x_57; obj* x_59; obj* x_62; lean::inc(x_9); lean::inc(x_8); lean::inc(x_7); lean::inc(x_6); lean::inc(x_0); -x_110 = lean::apply_5(x_0, x_6, x_7, x_8, x_9, x_10); -x_111 = lean::cnstr_get(x_110, 0); -lean::inc(x_111); -x_113 = lean::cnstr_get(x_110, 1); -lean::inc(x_113); -lean::dec(x_110); -x_116 = lean::box(0); -if (lean::obj_tag(x_111) == 0) +x_56 = lean::apply_5(x_0, x_6, x_7, x_8, x_9, x_10); +x_57 = lean::cnstr_get(x_56, 0); +lean::inc(x_57); +x_59 = lean::cnstr_get(x_56, 1); +lean::inc(x_59); +lean::dec(x_56); +x_62 = lean::box(0); +if (lean::obj_tag(x_57) == 0) { -obj* x_117; obj* x_119; obj* x_121; obj* x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; -x_117 = lean::cnstr_get(x_111, 0); -x_119 = lean::cnstr_get(x_111, 1); -x_121 = lean::cnstr_get(x_111, 2); -if (lean::is_exclusive(x_111)) { - x_123 = x_111; +obj* x_63; obj* x_65; obj* x_67; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; +x_63 = lean::cnstr_get(x_57, 0); +x_65 = lean::cnstr_get(x_57, 1); +x_67 = lean::cnstr_get(x_57, 2); +if (lean::is_exclusive(x_57)) { + x_69 = x_57; } else { - lean::inc(x_117); - lean::inc(x_119); - lean::inc(x_121); - lean::dec(x_111); - x_123 = lean::box(0); + lean::inc(x_63); + lean::inc(x_65); + lean::inc(x_67); + lean::dec(x_57); + x_69 = lean::box(0); } -x_124 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_124, 0, x_117); -x_125 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_123)) { - x_126 = lean::alloc_cnstr(0, 3, 0); +x_70 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_70, 0, x_63); +x_71 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_69)) { + x_72 = lean::alloc_cnstr(0, 3, 0); } else { - x_126 = x_123; + x_72 = x_69; } -lean::cnstr_set(x_126, 0, x_124); -lean::cnstr_set(x_126, 1, x_119); -lean::cnstr_set(x_126, 2, x_125); -x_127 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_121, x_126); -if (lean::obj_tag(x_127) == 0) +lean::cnstr_set(x_72, 0, x_70); +lean::cnstr_set(x_72, 1, x_65); +lean::cnstr_set(x_72, 2, x_71); +x_73 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_67, x_72); +if (lean::obj_tag(x_73) == 0) { lean::dec(x_9); -x_18 = x_127; -x_19 = x_113; +x_18 = x_73; +x_19 = x_59; goto lbl_20; } else { -uint8 x_129; -x_129 = lean::cnstr_get_scalar(x_127, sizeof(void*)*1); -if (x_129 == 0) +uint8 x_75; +x_75 = lean::cnstr_get_scalar(x_73, sizeof(void*)*1); +if (x_75 == 0) { -obj* x_130; obj* x_133; obj* x_136; obj* x_137; obj* x_138; obj* x_139; -x_130 = lean::cnstr_get(x_127, 0); -lean::inc(x_130); -lean::dec(x_127); -x_133 = lean::cnstr_get(x_130, 2); -lean::inc(x_133); -lean::dec(x_130); -x_136 = l_mjoin___rarg___closed__1; -x_137 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_137, 0, x_133); -lean::closure_set(x_137, 1, x_136); -x_138 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_138, 0, x_137); -x_139 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_139, 0, x_116); -lean::cnstr_set(x_139, 1, x_9); -lean::cnstr_set(x_139, 2, x_138); -x_18 = x_139; -x_19 = x_113; +obj* x_76; obj* x_79; obj* x_82; obj* x_83; obj* x_84; obj* x_85; +x_76 = lean::cnstr_get(x_73, 0); +lean::inc(x_76); +lean::dec(x_73); +x_79 = lean::cnstr_get(x_76, 2); +lean::inc(x_79); +lean::dec(x_76); +x_82 = l_mjoin___rarg___closed__1; +x_83 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_83, 0, x_79); +lean::closure_set(x_83, 1, x_82); +x_84 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_84, 0, x_83); +x_85 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_85, 0, x_62); +lean::cnstr_set(x_85, 1, x_9); +lean::cnstr_set(x_85, 2, x_84); +x_18 = x_85; +x_19 = x_59; goto lbl_20; } else { lean::dec(x_9); -x_18 = x_127; -x_19 = x_113; +x_18 = x_73; +x_19 = x_59; goto lbl_20; } } } else { -uint8 x_141; -x_141 = lean::cnstr_get_scalar(x_111, sizeof(void*)*1); -if (x_141 == 0) +uint8 x_87; +x_87 = lean::cnstr_get_scalar(x_57, sizeof(void*)*1); +if (x_87 == 0) { -obj* x_142; obj* x_145; obj* x_148; obj* x_149; obj* x_150; obj* x_151; -x_142 = lean::cnstr_get(x_111, 0); -lean::inc(x_142); -lean::dec(x_111); -x_145 = lean::cnstr_get(x_142, 2); -lean::inc(x_145); -lean::dec(x_142); -x_148 = l_mjoin___rarg___closed__1; -x_149 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_149, 0, x_145); -lean::closure_set(x_149, 1, x_148); -x_150 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_150, 0, x_149); -x_151 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_151, 0, x_116); -lean::cnstr_set(x_151, 1, x_9); -lean::cnstr_set(x_151, 2, x_150); -x_18 = x_151; -x_19 = x_113; +obj* x_88; obj* x_91; obj* x_94; obj* x_95; obj* x_96; obj* x_97; +x_88 = lean::cnstr_get(x_57, 0); +lean::inc(x_88); +lean::dec(x_57); +x_91 = lean::cnstr_get(x_88, 2); +lean::inc(x_91); +lean::dec(x_88); +x_94 = l_mjoin___rarg___closed__1; +x_95 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_95, 0, x_91); +lean::closure_set(x_95, 1, x_94); +x_96 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_96, 0, x_95); +x_97 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_97, 0, x_62); +lean::cnstr_set(x_97, 1, x_9); +lean::cnstr_set(x_97, 2, x_96); +x_18 = x_97; +x_19 = x_59; goto lbl_20; } else { -obj* x_153; obj* x_155; obj* x_156; obj* x_157; +obj* x_99; obj* x_101; obj* x_102; obj* x_103; lean::dec(x_9); -x_153 = lean::cnstr_get(x_111, 0); -if (lean::is_exclusive(x_111)) { - x_155 = x_111; +x_99 = lean::cnstr_get(x_57, 0); +if (lean::is_exclusive(x_57)) { + x_101 = x_57; } else { - lean::inc(x_153); - lean::dec(x_111); - x_155 = lean::box(0); + lean::inc(x_99); + lean::dec(x_57); + x_101 = lean::box(0); } -if (lean::is_scalar(x_155)) { - x_156 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_101)) { + x_102 = lean::alloc_cnstr(1, 1, 1); } else { - x_156 = x_155; + x_102 = x_101; } -lean::cnstr_set(x_156, 0, x_153); -lean::cnstr_set_scalar(x_156, sizeof(void*)*1, x_141); -x_157 = x_156; -x_18 = x_157; -x_19 = x_113; +lean::cnstr_set(x_102, 0, x_99); +lean::cnstr_set_scalar(x_102, sizeof(void*)*1, x_87); +x_103 = x_102; +x_18 = x_103; +x_19 = x_59; goto lbl_20; } } @@ -5378,357 +5155,357 @@ lbl_17: { if (lean::obj_tag(x_15) == 0) { -obj* x_158; -x_158 = lean::cnstr_get(x_15, 0); -lean::inc(x_158); -if (lean::obj_tag(x_158) == 0) +obj* x_104; +x_104 = lean::cnstr_get(x_15, 0); +lean::inc(x_104); +if (lean::obj_tag(x_104) == 0) { -obj* x_166; obj* x_168; obj* x_170; obj* x_171; obj* x_172; obj* x_173; obj* x_174; obj* x_175; obj* x_176; obj* x_177; +obj* x_112; obj* x_114; obj* x_116; obj* x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; lean::dec(x_8); lean::dec(x_7); lean::dec(x_1); lean::dec(x_6); lean::dec(x_0); lean::dec(x_14); -x_166 = lean::cnstr_get(x_15, 1); -x_168 = lean::cnstr_get(x_15, 2); +x_112 = lean::cnstr_get(x_15, 1); +x_114 = lean::cnstr_get(x_15, 2); if (lean::is_exclusive(x_15)) { lean::cnstr_release(x_15, 0); - x_170 = x_15; + x_116 = x_15; } else { - lean::inc(x_166); - lean::inc(x_168); + lean::inc(x_112); + lean::inc(x_114); lean::dec(x_15); - x_170 = lean::box(0); + x_116 = lean::box(0); } -x_171 = l_List_reverse___rarg(x_4); -x_172 = l_Lean_Parser_noKind; -x_173 = l_Lean_Parser_Syntax_mkNode(x_172, x_171); -x_174 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_170)) { - x_175 = lean::alloc_cnstr(0, 3, 0); +x_117 = l_List_reverse___rarg(x_4); +x_118 = l_Lean_Parser_noKind; +x_119 = l_Lean_Parser_Syntax_mkNode(x_118, x_117); +x_120 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_116)) { + x_121 = lean::alloc_cnstr(0, 3, 0); } else { - x_175 = x_170; + x_121 = x_116; } -lean::cnstr_set(x_175, 0, x_173); -lean::cnstr_set(x_175, 1, x_166); -lean::cnstr_set(x_175, 2, x_174); -x_176 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_168, x_175); -x_177 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_177, 0, x_176); -lean::cnstr_set(x_177, 1, x_16); -return x_177; +lean::cnstr_set(x_121, 0, x_119); +lean::cnstr_set(x_121, 1, x_112); +lean::cnstr_set(x_121, 2, x_120); +x_122 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_114, x_121); +x_123 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_123, 0, x_122); +lean::cnstr_set(x_123, 1, x_16); +return x_123; } else { -obj* x_178; obj* x_180; obj* x_182; obj* x_183; obj* x_185; obj* x_186; obj* x_187; obj* x_194; obj* x_195; obj* x_197; obj* x_200; obj* x_201; -x_178 = lean::cnstr_get(x_15, 1); -x_180 = lean::cnstr_get(x_15, 2); +obj* x_124; obj* x_126; obj* x_128; obj* x_129; obj* x_131; obj* x_132; obj* x_133; obj* x_140; obj* x_141; obj* x_143; obj* x_146; obj* x_147; +x_124 = lean::cnstr_get(x_15, 1); +x_126 = lean::cnstr_get(x_15, 2); if (lean::is_exclusive(x_15)) { lean::cnstr_release(x_15, 0); lean::cnstr_set(x_15, 1, lean::box(0)); lean::cnstr_set(x_15, 2, lean::box(0)); - x_182 = x_15; + x_128 = x_15; } else { - lean::inc(x_178); - lean::inc(x_180); + lean::inc(x_124); + lean::inc(x_126); lean::dec(x_15); - x_182 = lean::box(0); + x_128 = lean::box(0); } -x_183 = lean::cnstr_get(x_158, 0); -if (lean::is_exclusive(x_158)) { - lean::cnstr_set(x_158, 0, lean::box(0)); - x_185 = x_158; +x_129 = lean::cnstr_get(x_104, 0); +if (lean::is_exclusive(x_104)) { + lean::cnstr_set(x_104, 0, lean::box(0)); + x_131 = x_104; } else { - lean::inc(x_183); - lean::dec(x_158); - x_185 = lean::box(0); + lean::inc(x_129); + lean::dec(x_104); + x_131 = lean::box(0); } -lean::inc(x_178); +lean::inc(x_124); lean::inc(x_8); lean::inc(x_7); lean::inc(x_6); lean::inc(x_1); -x_194 = lean::apply_5(x_1, x_6, x_7, x_8, x_178, x_16); -x_195 = lean::cnstr_get(x_194, 0); -lean::inc(x_195); -x_197 = lean::cnstr_get(x_194, 1); -lean::inc(x_197); -lean::dec(x_194); -x_200 = lean::box(0); -x_201 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_195); -if (lean::obj_tag(x_201) == 0) +x_140 = lean::apply_5(x_1, x_6, x_7, x_8, x_124, x_16); +x_141 = lean::cnstr_get(x_140, 0); +lean::inc(x_141); +x_143 = lean::cnstr_get(x_140, 1); +lean::inc(x_143); +lean::dec(x_140); +x_146 = lean::box(0); +x_147 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_141); +if (lean::obj_tag(x_147) == 0) { -obj* x_202; obj* x_204; obj* x_206; obj* x_208; obj* x_209; obj* x_210; obj* x_211; obj* x_212; -x_202 = lean::cnstr_get(x_201, 0); -x_204 = lean::cnstr_get(x_201, 1); -x_206 = lean::cnstr_get(x_201, 2); -if (lean::is_exclusive(x_201)) { - x_208 = x_201; +obj* x_148; obj* x_150; obj* x_152; obj* x_154; obj* x_155; obj* x_156; obj* x_157; obj* x_158; +x_148 = lean::cnstr_get(x_147, 0); +x_150 = lean::cnstr_get(x_147, 1); +x_152 = lean::cnstr_get(x_147, 2); +if (lean::is_exclusive(x_147)) { + x_154 = x_147; } else { - lean::inc(x_202); - lean::inc(x_204); - lean::inc(x_206); - lean::dec(x_201); - x_208 = lean::box(0); + lean::inc(x_148); + lean::inc(x_150); + lean::inc(x_152); + lean::dec(x_147); + x_154 = lean::box(0); } -if (lean::is_scalar(x_185)) { - x_209 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_131)) { + x_155 = lean::alloc_cnstr(1, 1, 0); } else { - x_209 = x_185; + x_155 = x_131; } -lean::cnstr_set(x_209, 0, x_202); +lean::cnstr_set(x_155, 0, x_148); +x_156 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_154)) { + x_157 = lean::alloc_cnstr(0, 3, 0); +} else { + x_157 = x_154; +} +lean::cnstr_set(x_157, 0, x_155); +lean::cnstr_set(x_157, 1, x_150); +lean::cnstr_set(x_157, 2, x_156); +x_158 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_152, x_157); +if (lean::obj_tag(x_158) == 0) +{ +lean::dec(x_124); +lean::dec(x_128); +x_132 = x_158; +x_133 = x_143; +goto lbl_134; +} +else +{ +uint8 x_161; +x_161 = lean::cnstr_get_scalar(x_158, sizeof(void*)*1); +if (x_161 == 0) +{ +obj* x_162; obj* x_165; obj* x_168; obj* x_169; obj* x_170; obj* x_171; +x_162 = lean::cnstr_get(x_158, 0); +lean::inc(x_162); +lean::dec(x_158); +x_165 = lean::cnstr_get(x_162, 2); +lean::inc(x_165); +lean::dec(x_162); +x_168 = l_mjoin___rarg___closed__1; +x_169 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_169, 0, x_165); +lean::closure_set(x_169, 1, x_168); +x_170 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_170, 0, x_169); +if (lean::is_scalar(x_128)) { + x_171 = lean::alloc_cnstr(0, 3, 0); +} else { + x_171 = x_128; +} +lean::cnstr_set(x_171, 0, x_146); +lean::cnstr_set(x_171, 1, x_124); +lean::cnstr_set(x_171, 2, x_170); +x_132 = x_171; +x_133 = x_143; +goto lbl_134; +} +else +{ +lean::dec(x_124); +lean::dec(x_128); +x_132 = x_158; +x_133 = x_143; +goto lbl_134; +} +} +} +else +{ +uint8 x_174; +x_174 = lean::cnstr_get_scalar(x_147, sizeof(void*)*1); +if (x_174 == 0) +{ +obj* x_175; obj* x_178; obj* x_181; obj* x_182; obj* x_183; obj* x_184; +x_175 = lean::cnstr_get(x_147, 0); +lean::inc(x_175); +lean::dec(x_147); +x_178 = lean::cnstr_get(x_175, 2); +lean::inc(x_178); +lean::dec(x_175); +x_181 = l_mjoin___rarg___closed__1; +x_182 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_182, 0, x_178); +lean::closure_set(x_182, 1, x_181); +if (lean::is_scalar(x_131)) { + x_183 = lean::alloc_cnstr(1, 1, 0); +} else { + x_183 = x_131; +} +lean::cnstr_set(x_183, 0, x_182); +if (lean::is_scalar(x_128)) { + x_184 = lean::alloc_cnstr(0, 3, 0); +} else { + x_184 = x_128; +} +lean::cnstr_set(x_184, 0, x_146); +lean::cnstr_set(x_184, 1, x_124); +lean::cnstr_set(x_184, 2, x_183); +x_132 = x_184; +x_133 = x_143; +goto lbl_134; +} +else +{ +obj* x_188; obj* x_190; obj* x_191; obj* x_192; +lean::dec(x_124); +lean::dec(x_131); +lean::dec(x_128); +x_188 = lean::cnstr_get(x_147, 0); +if (lean::is_exclusive(x_147)) { + x_190 = x_147; +} else { + lean::inc(x_188); + lean::dec(x_147); + x_190 = lean::box(0); +} +if (lean::is_scalar(x_190)) { + x_191 = lean::alloc_cnstr(1, 1, 1); +} else { + x_191 = x_190; +} +lean::cnstr_set(x_191, 0, x_188); +lean::cnstr_set_scalar(x_191, sizeof(void*)*1, x_174); +x_192 = x_191; +x_132 = x_192; +x_133 = x_143; +goto lbl_134; +} +} +lbl_134: +{ +if (lean::obj_tag(x_132) == 0) +{ +obj* x_193; +x_193 = lean::cnstr_get(x_132, 0); +lean::inc(x_193); +if (lean::obj_tag(x_193) == 0) +{ +obj* x_201; obj* x_203; obj* x_205; obj* x_206; obj* x_207; obj* x_208; obj* x_209; obj* x_210; obj* x_211; obj* x_212; obj* x_213; obj* x_214; +lean::dec(x_8); +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_6); +lean::dec(x_0); +lean::dec(x_14); +x_201 = lean::cnstr_get(x_132, 1); +x_203 = lean::cnstr_get(x_132, 2); +if (lean::is_exclusive(x_132)) { + lean::cnstr_release(x_132, 0); + x_205 = x_132; +} else { + lean::inc(x_201); + lean::inc(x_203); + lean::dec(x_132); + x_205 = lean::box(0); +} +x_206 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_206, 0, x_129); +lean::cnstr_set(x_206, 1, x_4); +x_207 = l_List_reverse___rarg(x_206); +x_208 = l_Lean_Parser_noKind; +x_209 = l_Lean_Parser_Syntax_mkNode(x_208, x_207); x_210 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_208)) { +if (lean::is_scalar(x_205)) { x_211 = lean::alloc_cnstr(0, 3, 0); } else { - x_211 = x_208; + x_211 = x_205; } lean::cnstr_set(x_211, 0, x_209); -lean::cnstr_set(x_211, 1, x_204); +lean::cnstr_set(x_211, 1, x_201); lean::cnstr_set(x_211, 2, x_210); -x_212 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_206, x_211); -if (lean::obj_tag(x_212) == 0) -{ -lean::dec(x_178); -lean::dec(x_182); -x_186 = x_212; -x_187 = x_197; -goto lbl_188; +x_212 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_203, x_211); +x_213 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_126, x_212); +x_214 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_214, 0, x_213); +lean::cnstr_set(x_214, 1, x_133); +return x_214; } else { -uint8 x_215; -x_215 = lean::cnstr_get_scalar(x_212, sizeof(void*)*1); -if (x_215 == 0) -{ -obj* x_216; obj* x_219; obj* x_222; obj* x_223; obj* x_224; obj* x_225; -x_216 = lean::cnstr_get(x_212, 0); -lean::inc(x_216); -lean::dec(x_212); -x_219 = lean::cnstr_get(x_216, 2); -lean::inc(x_219); -lean::dec(x_216); -x_222 = l_mjoin___rarg___closed__1; -x_223 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_223, 0, x_219); -lean::closure_set(x_223, 1, x_222); -x_224 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_224, 0, x_223); -if (lean::is_scalar(x_182)) { - x_225 = lean::alloc_cnstr(0, 3, 0); -} else { - x_225 = x_182; -} -lean::cnstr_set(x_225, 0, x_200); -lean::cnstr_set(x_225, 1, x_178); -lean::cnstr_set(x_225, 2, x_224); -x_186 = x_225; -x_187 = x_197; -goto lbl_188; -} -else -{ -lean::dec(x_178); -lean::dec(x_182); -x_186 = x_212; -x_187 = x_197; -goto lbl_188; -} -} -} -else -{ -uint8 x_228; -x_228 = lean::cnstr_get_scalar(x_201, sizeof(void*)*1); -if (x_228 == 0) -{ -obj* x_229; obj* x_232; obj* x_235; obj* x_236; obj* x_237; obj* x_238; -x_229 = lean::cnstr_get(x_201, 0); -lean::inc(x_229); -lean::dec(x_201); -x_232 = lean::cnstr_get(x_229, 2); -lean::inc(x_232); -lean::dec(x_229); -x_235 = l_mjoin___rarg___closed__1; -x_236 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_236, 0, x_232); -lean::closure_set(x_236, 1, x_235); -if (lean::is_scalar(x_185)) { - x_237 = lean::alloc_cnstr(1, 1, 0); -} else { - x_237 = x_185; -} -lean::cnstr_set(x_237, 0, x_236); -if (lean::is_scalar(x_182)) { - x_238 = lean::alloc_cnstr(0, 3, 0); -} else { - x_238 = x_182; -} -lean::cnstr_set(x_238, 0, x_200); -lean::cnstr_set(x_238, 1, x_178); -lean::cnstr_set(x_238, 2, x_237); -x_186 = x_238; -x_187 = x_197; -goto lbl_188; -} -else -{ -obj* x_242; obj* x_244; obj* x_245; obj* x_246; -lean::dec(x_178); -lean::dec(x_185); -lean::dec(x_182); -x_242 = lean::cnstr_get(x_201, 0); -if (lean::is_exclusive(x_201)) { - x_244 = x_201; -} else { - lean::inc(x_242); - lean::dec(x_201); - x_244 = lean::box(0); -} -if (lean::is_scalar(x_244)) { - x_245 = lean::alloc_cnstr(1, 1, 1); -} else { - x_245 = x_244; -} -lean::cnstr_set(x_245, 0, x_242); -lean::cnstr_set_scalar(x_245, sizeof(void*)*1, x_228); -x_246 = x_245; -x_186 = x_246; -x_187 = x_197; -goto lbl_188; -} -} -lbl_188: -{ -if (lean::obj_tag(x_186) == 0) -{ -obj* x_247; -x_247 = lean::cnstr_get(x_186, 0); -lean::inc(x_247); -if (lean::obj_tag(x_247) == 0) -{ -obj* x_255; obj* x_257; obj* x_259; obj* x_260; obj* x_261; obj* x_262; obj* x_263; obj* x_264; obj* x_265; obj* x_266; obj* x_267; obj* x_268; -lean::dec(x_8); -lean::dec(x_7); -lean::dec(x_1); -lean::dec(x_6); -lean::dec(x_0); +obj* x_215; obj* x_217; obj* x_220; obj* x_223; obj* x_224; obj* x_225; obj* x_227; obj* x_229; obj* x_231; obj* x_232; obj* x_233; obj* x_234; +x_215 = lean::cnstr_get(x_132, 1); +lean::inc(x_215); +x_217 = lean::cnstr_get(x_132, 2); +lean::inc(x_217); +lean::dec(x_132); +x_220 = lean::cnstr_get(x_193, 0); +lean::inc(x_220); +lean::dec(x_193); +x_223 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_223, 0, x_129); +lean::cnstr_set(x_223, 1, x_4); +x_224 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_224, 0, x_220); +lean::cnstr_set(x_224, 1, x_223); +x_225 = l___private_init_lean_parser_combinators_2__sepByAux___main___at_Lean_Parser_Term_paren_Parser_Lean_Parser_HasTokens___spec__2(x_0, x_1, x_2, x_2, x_224, x_14, x_6, x_7, x_8, x_215, x_133); lean::dec(x_14); -x_255 = lean::cnstr_get(x_186, 1); -x_257 = lean::cnstr_get(x_186, 2); -if (lean::is_exclusive(x_186)) { - lean::cnstr_release(x_186, 0); - x_259 = x_186; +x_227 = lean::cnstr_get(x_225, 0); +x_229 = lean::cnstr_get(x_225, 1); +if (lean::is_exclusive(x_225)) { + x_231 = x_225; } else { - lean::inc(x_255); - lean::inc(x_257); - lean::dec(x_186); - x_259 = lean::box(0); + lean::inc(x_227); + lean::inc(x_229); + lean::dec(x_225); + x_231 = lean::box(0); } -x_260 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_260, 0, x_183); -lean::cnstr_set(x_260, 1, x_4); -x_261 = l_List_reverse___rarg(x_260); -x_262 = l_Lean_Parser_noKind; -x_263 = l_Lean_Parser_Syntax_mkNode(x_262, x_261); -x_264 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_259)) { - x_265 = lean::alloc_cnstr(0, 3, 0); +x_232 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_217, x_227); +x_233 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_126, x_232); +if (lean::is_scalar(x_231)) { + x_234 = lean::alloc_cnstr(0, 2, 0); } else { - x_265 = x_259; + x_234 = x_231; } -lean::cnstr_set(x_265, 0, x_263); -lean::cnstr_set(x_265, 1, x_255); -lean::cnstr_set(x_265, 2, x_264); -x_266 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_257, x_265); -x_267 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_180, x_266); -x_268 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_268, 0, x_267); -lean::cnstr_set(x_268, 1, x_187); -return x_268; -} -else -{ -obj* x_269; obj* x_271; obj* x_274; obj* x_277; obj* x_278; obj* x_279; obj* x_281; obj* x_283; obj* x_285; obj* x_286; obj* x_287; obj* x_288; -x_269 = lean::cnstr_get(x_186, 1); -lean::inc(x_269); -x_271 = lean::cnstr_get(x_186, 2); -lean::inc(x_271); -lean::dec(x_186); -x_274 = lean::cnstr_get(x_247, 0); -lean::inc(x_274); -lean::dec(x_247); -x_277 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_277, 0, x_183); -lean::cnstr_set(x_277, 1, x_4); -x_278 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_278, 0, x_274); -lean::cnstr_set(x_278, 1, x_277); -x_279 = l___private_init_lean_parser_combinators_2__sepByAux___main___at_Lean_Parser_Term_paren_Parser_Lean_Parser_HasTokens___spec__2(x_0, x_1, x_2, x_2, x_278, x_14, x_6, x_7, x_8, x_269, x_187); -lean::dec(x_14); -x_281 = lean::cnstr_get(x_279, 0); -x_283 = lean::cnstr_get(x_279, 1); -if (lean::is_exclusive(x_279)) { - x_285 = x_279; -} else { - lean::inc(x_281); - lean::inc(x_283); - lean::dec(x_279); - x_285 = lean::box(0); -} -x_286 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_271, x_281); -x_287 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_180, x_286); -if (lean::is_scalar(x_285)) { - x_288 = lean::alloc_cnstr(0, 2, 0); -} else { - x_288 = x_285; -} -lean::cnstr_set(x_288, 0, x_287); -lean::cnstr_set(x_288, 1, x_283); -return x_288; +lean::cnstr_set(x_234, 0, x_233); +lean::cnstr_set(x_234, 1, x_229); +return x_234; } } else { -obj* x_297; uint8 x_299; obj* x_300; obj* x_301; obj* x_302; obj* x_303; obj* x_304; +obj* x_243; uint8 x_245; obj* x_246; obj* x_247; obj* x_248; obj* x_249; obj* x_250; lean::dec(x_8); lean::dec(x_7); lean::dec(x_4); lean::dec(x_1); lean::dec(x_6); lean::dec(x_0); -lean::dec(x_183); +lean::dec(x_129); lean::dec(x_14); -x_297 = lean::cnstr_get(x_186, 0); -x_299 = lean::cnstr_get_scalar(x_186, sizeof(void*)*1); -if (lean::is_exclusive(x_186)) { - x_300 = x_186; +x_243 = lean::cnstr_get(x_132, 0); +x_245 = lean::cnstr_get_scalar(x_132, sizeof(void*)*1); +if (lean::is_exclusive(x_132)) { + x_246 = x_132; } else { - lean::inc(x_297); - lean::dec(x_186); - x_300 = lean::box(0); + lean::inc(x_243); + lean::dec(x_132); + x_246 = lean::box(0); } -if (lean::is_scalar(x_300)) { - x_301 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_246)) { + x_247 = lean::alloc_cnstr(1, 1, 1); } else { - x_301 = x_300; + x_247 = x_246; } -lean::cnstr_set(x_301, 0, x_297); -lean::cnstr_set_scalar(x_301, sizeof(void*)*1, x_299); -x_302 = x_301; -x_303 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_180, x_302); -x_304 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_304, 0, x_303); -lean::cnstr_set(x_304, 1, x_187); -return x_304; +lean::cnstr_set(x_247, 0, x_243); +lean::cnstr_set_scalar(x_247, sizeof(void*)*1, x_245); +x_248 = x_247; +x_249 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_126, x_248); +x_250 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_250, 0, x_249); +lean::cnstr_set(x_250, 1, x_133); +return x_250; } } } } else { -obj* x_312; uint8 x_314; obj* x_315; obj* x_316; obj* x_317; obj* x_318; +obj* x_258; uint8 x_260; obj* x_261; obj* x_262; obj* x_263; obj* x_264; lean::dec(x_8); lean::dec(x_7); lean::dec(x_4); @@ -5736,27 +5513,27 @@ lean::dec(x_1); lean::dec(x_6); lean::dec(x_0); lean::dec(x_14); -x_312 = lean::cnstr_get(x_15, 0); -x_314 = lean::cnstr_get_scalar(x_15, sizeof(void*)*1); +x_258 = lean::cnstr_get(x_15, 0); +x_260 = lean::cnstr_get_scalar(x_15, sizeof(void*)*1); if (lean::is_exclusive(x_15)) { - x_315 = x_15; + x_261 = x_15; } else { - lean::inc(x_312); + lean::inc(x_258); lean::dec(x_15); - x_315 = lean::box(0); + x_261 = lean::box(0); } -if (lean::is_scalar(x_315)) { - x_316 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_261)) { + x_262 = lean::alloc_cnstr(1, 1, 1); } else { - x_316 = x_315; + x_262 = x_261; } -lean::cnstr_set(x_316, 0, x_312); -lean::cnstr_set_scalar(x_316, sizeof(void*)*1, x_314); -x_317 = x_316; -x_318 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_318, 0, x_317); -lean::cnstr_set(x_318, 1, x_16); -return x_318; +lean::cnstr_set(x_262, 0, x_258); +lean::cnstr_set_scalar(x_262, sizeof(void*)*1, x_260); +x_263 = x_262; +x_264 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_264, 0, x_263); +lean::cnstr_set(x_264, 1, x_16); +return x_264; } } lbl_20: @@ -5769,96 +5546,170 @@ goto lbl_17; } else { -obj* x_319; uint8 x_321; obj* x_322; obj* x_323; obj* x_325; obj* x_327; obj* x_329; obj* x_332; obj* x_335; obj* x_336; obj* x_337; obj* x_338; obj* x_339; obj* x_340; obj* x_341; obj* x_342; -x_319 = lean::cnstr_get(x_18, 0); -x_321 = lean::cnstr_get_scalar(x_18, sizeof(void*)*1); +obj* x_265; uint8 x_267; obj* x_268; obj* x_269; +x_265 = lean::cnstr_get(x_18, 0); +x_267 = lean::cnstr_get_scalar(x_18, sizeof(void*)*1); if (lean::is_exclusive(x_18)) { lean::cnstr_set(x_18, 0, lean::box(0)); - x_322 = x_18; + x_268 = x_18; } else { - lean::inc(x_319); + lean::inc(x_265); lean::dec(x_18); - x_322 = lean::box(0); + x_268 = lean::box(0); } -x_323 = lean::cnstr_get(x_319, 0); -lean::inc(x_323); -x_325 = lean::cnstr_get(x_319, 1); -lean::inc(x_325); -x_327 = lean::cnstr_get(x_319, 2); -lean::inc(x_327); -x_329 = lean::cnstr_get(x_319, 3); -lean::inc(x_329); -lean::dec(x_319); -x_332 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_329); -lean::dec(x_329); +x_269 = lean::cnstr_get(x_265, 3); +lean::inc(x_269); +if (lean::obj_tag(x_269) == 0) +{ +obj* x_271; obj* x_273; obj* x_275; obj* x_278; obj* x_280; obj* x_281; obj* x_282; obj* x_283; obj* x_284; obj* x_285; obj* x_286; +x_271 = lean::cnstr_get(x_265, 0); +lean::inc(x_271); +x_273 = lean::cnstr_get(x_265, 1); +lean::inc(x_273); +x_275 = lean::cnstr_get(x_265, 2); +lean::inc(x_275); +lean::dec(x_265); +x_278 = lean::box(3); lean::inc(x_4); -x_335 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_335, 0, x_332); -lean::cnstr_set(x_335, 1, x_4); -x_336 = lean::box(3); -x_337 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_337, 0, x_336); -lean::cnstr_set(x_337, 1, x_335); -x_338 = l_List_reverse___rarg(x_337); -x_339 = l_Lean_Parser_noKind; -x_340 = l_Lean_Parser_Syntax_mkNode(x_339, x_338); -x_341 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_341, 0, x_340); -x_342 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_342, 0, x_323); -lean::cnstr_set(x_342, 1, x_325); -lean::cnstr_set(x_342, 2, x_327); -lean::cnstr_set(x_342, 3, x_341); -if (x_321 == 0) +x_280 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_280, 0, x_278); +lean::cnstr_set(x_280, 1, x_4); +x_281 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_281, 0, x_278); +lean::cnstr_set(x_281, 1, x_280); +x_282 = l_List_reverse___rarg(x_281); +x_283 = l_Lean_Parser_noKind; +x_284 = l_Lean_Parser_Syntax_mkNode(x_283, x_282); +x_285 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_285, 0, x_284); +x_286 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_286, 0, x_271); +lean::cnstr_set(x_286, 1, x_273); +lean::cnstr_set(x_286, 2, x_275); +lean::cnstr_set(x_286, 3, x_285); +if (x_267 == 0) { -uint8 x_343; obj* x_344; obj* x_345; -x_343 = 0; -if (lean::is_scalar(x_322)) { - x_344 = lean::alloc_cnstr(1, 1, 1); +uint8 x_287; obj* x_288; obj* x_289; +x_287 = 0; +if (lean::is_scalar(x_268)) { + x_288 = lean::alloc_cnstr(1, 1, 1); } else { - x_344 = x_322; + x_288 = x_268; } -lean::cnstr_set(x_344, 0, x_342); -lean::cnstr_set_scalar(x_344, sizeof(void*)*1, x_343); -x_345 = x_344; -x_15 = x_345; +lean::cnstr_set(x_288, 0, x_286); +lean::cnstr_set_scalar(x_288, sizeof(void*)*1, x_287); +x_289 = x_288; +x_15 = x_289; x_16 = x_19; goto lbl_17; } else { -uint8 x_346; obj* x_347; obj* x_348; -x_346 = 1; -if (lean::is_scalar(x_322)) { - x_347 = lean::alloc_cnstr(1, 1, 1); +uint8 x_290; obj* x_291; obj* x_292; +x_290 = 1; +if (lean::is_scalar(x_268)) { + x_291 = lean::alloc_cnstr(1, 1, 1); } else { - x_347 = x_322; + x_291 = x_268; } -lean::cnstr_set(x_347, 0, x_342); -lean::cnstr_set_scalar(x_347, sizeof(void*)*1, x_346); -x_348 = x_347; -x_15 = x_348; +lean::cnstr_set(x_291, 0, x_286); +lean::cnstr_set_scalar(x_291, sizeof(void*)*1, x_290); +x_292 = x_291; +x_15 = x_292; +x_16 = x_19; +goto lbl_17; +} +} +else +{ +obj* x_293; obj* x_295; obj* x_297; obj* x_300; obj* x_302; obj* x_304; obj* x_305; obj* x_306; obj* x_307; obj* x_308; obj* x_309; obj* x_310; obj* x_311; +x_293 = lean::cnstr_get(x_265, 0); +lean::inc(x_293); +x_295 = lean::cnstr_get(x_265, 1); +lean::inc(x_295); +x_297 = lean::cnstr_get(x_265, 2); +lean::inc(x_297); +lean::dec(x_265); +x_300 = lean::cnstr_get(x_269, 0); +if (lean::is_exclusive(x_269)) { + x_302 = x_269; +} else { + lean::inc(x_300); + lean::dec(x_269); + x_302 = lean::box(0); +} +lean::inc(x_4); +x_304 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_304, 0, x_300); +lean::cnstr_set(x_304, 1, x_4); +x_305 = lean::box(3); +x_306 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_306, 0, x_305); +lean::cnstr_set(x_306, 1, x_304); +x_307 = l_List_reverse___rarg(x_306); +x_308 = l_Lean_Parser_noKind; +x_309 = l_Lean_Parser_Syntax_mkNode(x_308, x_307); +if (lean::is_scalar(x_302)) { + x_310 = lean::alloc_cnstr(1, 1, 0); +} else { + x_310 = x_302; +} +lean::cnstr_set(x_310, 0, x_309); +x_311 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_311, 0, x_293); +lean::cnstr_set(x_311, 1, x_295); +lean::cnstr_set(x_311, 2, x_297); +lean::cnstr_set(x_311, 3, x_310); +if (x_267 == 0) +{ +uint8 x_312; obj* x_313; obj* x_314; +x_312 = 0; +if (lean::is_scalar(x_268)) { + x_313 = lean::alloc_cnstr(1, 1, 1); +} else { + x_313 = x_268; +} +lean::cnstr_set(x_313, 0, x_311); +lean::cnstr_set_scalar(x_313, sizeof(void*)*1, x_312); +x_314 = x_313; +x_15 = x_314; +x_16 = x_19; +goto lbl_17; +} +else +{ +uint8 x_315; obj* x_316; obj* x_317; +x_315 = 1; +if (lean::is_scalar(x_268)) { + x_316 = lean::alloc_cnstr(1, 1, 1); +} else { + x_316 = x_268; +} +lean::cnstr_set(x_316, 0, x_311); +lean::cnstr_set_scalar(x_316, sizeof(void*)*1, x_315); +x_317 = x_316; +x_15 = x_317; x_16 = x_19; goto lbl_17; } } } } +} else { -obj* x_352; obj* x_353; obj* x_354; obj* x_355; +obj* x_321; obj* x_322; obj* x_323; obj* x_324; lean::dec(x_4); lean::dec(x_1); lean::dec(x_0); -x_352 = lean::box(0); -x_353 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; -x_354 = l_mjoin___rarg___closed__1; -x_355 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_353, x_354, x_352, x_352, x_6, x_7, x_8, x_9, x_10); -lean::dec(x_9); +x_321 = lean::box(0); +x_322 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; +x_323 = l_mjoin___rarg___closed__1; +x_324 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_322, x_323, x_321, x_321, x_6, x_7, x_8, x_9, x_10); lean::dec(x_8); lean::dec(x_7); lean::dec(x_6); -return x_355; +return x_324; } } } @@ -6269,17 +6120,15 @@ return x_8; obj* _init_l_Lean_Parser_Term_hole_HasView_x_27___lambda__1___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -x_4 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_4, 0, x_3); -lean::cnstr_set(x_4, 1, x_0); -x_5 = l_Lean_Parser_Term_hole; -x_6 = l_Lean_Parser_Syntax_mkNode(x_5, x_4); -return x_6; +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = l_Lean_Parser_Term_hole; +x_4 = l_Lean_Parser_Syntax_mkNode(x_3, x_2); +return x_4; } } obj* l_Lean_Parser_Term_hole_HasView_x_27___lambda__1(obj* x_0) { @@ -6293,33 +6142,19 @@ return x_1; } else { -obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; +obj* x_2; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_2 = lean::cnstr_get(x_0, 0); -if (lean::is_exclusive(x_0)) { - x_4 = x_0; -} else { - lean::inc(x_2); - lean::dec(x_0); - x_4 = lean::box(0); -} +lean::inc(x_2); +lean::dec(x_0); x_5 = lean::box(0); x_6 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_6, 0, x_2); -if (lean::is_scalar(x_4)) { - x_7 = lean::alloc_cnstr(1, 1, 0); -} else { - x_7 = x_4; -} +x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); -x_8 = lean::box(3); -x_9 = l_Option_getOrElse___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_11, 0, x_9); -lean::cnstr_set(x_11, 1, x_5); -x_12 = l_Lean_Parser_Term_hole; -x_13 = l_Lean_Parser_Syntax_mkNode(x_12, x_11); -return x_13; +lean::cnstr_set(x_7, 1, x_5); +x_8 = l_Lean_Parser_Term_hole; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } } @@ -6723,47 +6558,43 @@ return x_89; obj* _init_l_Lean_Parser_Term_sort_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(0ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_Term_sort; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_Term_sort; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_Term_sort_HasView_x_27___lambda__2___closed__2() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(1ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_Term_sort; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_Term_sort; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* l_Lean_Parser_Term_sort_HasView_x_27___lambda__2(obj* x_0) { @@ -6785,84 +6616,56 @@ return x_5; } else { -obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +obj* x_6; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; x_6 = lean::cnstr_get(x_2, 0); -if (lean::is_exclusive(x_2)) { - x_8 = x_2; -} else { - lean::inc(x_6); - lean::dec(x_2); - x_8 = lean::box(0); -} +lean::inc(x_6); +lean::dec(x_2); x_9 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_9, 0, x_6); -if (lean::is_scalar(x_8)) { - x_10 = lean::alloc_cnstr(1, 1, 0); -} else { - x_10 = x_8; -} +x_10 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_10, 0, x_9); -x_11 = lean::box(3); -x_12 = l_Option_getOrElse___main___rarg(x_10, x_11); -lean::dec(x_10); -x_14 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_14, 0, x_12); -lean::cnstr_set(x_14, 1, x_1); -x_15 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; -x_16 = l_Lean_Parser_Syntax_mkNode(x_15, x_14); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_16); -lean::cnstr_set(x_17, 1, x_1); -x_18 = l_Lean_Parser_Term_sort; -x_19 = l_Lean_Parser_Syntax_mkNode(x_18, x_17); +lean::cnstr_set(x_10, 1, x_1); +x_11 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; +x_12 = l_Lean_Parser_Syntax_mkNode(x_11, x_10); +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_1); +x_14 = l_Lean_Parser_Term_sort; +x_15 = l_Lean_Parser_Syntax_mkNode(x_14, x_13); +return x_15; +} +} +else +{ +obj* x_16; +x_16 = lean::cnstr_get(x_0, 0); +lean::inc(x_16); +lean::dec(x_0); +if (lean::obj_tag(x_16) == 0) +{ +obj* x_19; +x_19 = l_Lean_Parser_Term_sort_HasView_x_27___lambda__2___closed__2; return x_19; } -} else { -obj* x_20; -x_20 = lean::cnstr_get(x_0, 0); +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +x_20 = lean::cnstr_get(x_16, 0); lean::inc(x_20); -lean::dec(x_0); -if (lean::obj_tag(x_20) == 0) -{ -obj* x_23; -x_23 = l_Lean_Parser_Term_sort_HasView_x_27___lambda__2___closed__2; -return x_23; -} -else -{ -obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; -x_24 = lean::cnstr_get(x_20, 0); -if (lean::is_exclusive(x_20)) { - x_26 = x_20; -} else { - lean::inc(x_24); - lean::dec(x_20); - x_26 = lean::box(0); -} -x_27 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_27, 0, x_24); -if (lean::is_scalar(x_26)) { - x_28 = lean::alloc_cnstr(1, 1, 0); -} else { - x_28 = x_26; -} -lean::cnstr_set(x_28, 0, x_27); -x_29 = lean::box(3); -x_30 = l_Option_getOrElse___main___rarg(x_28, x_29); -lean::dec(x_28); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_30); -lean::cnstr_set(x_32, 1, x_1); -x_33 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; -x_34 = l_Lean_Parser_Syntax_mkNode(x_33, x_32); -x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_34); -lean::cnstr_set(x_35, 1, x_1); -x_36 = l_Lean_Parser_Term_sort; -x_37 = l_Lean_Parser_Syntax_mkNode(x_36, x_35); -return x_37; +lean::dec(x_16); +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_23); +lean::cnstr_set(x_24, 1, x_1); +x_25 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; +x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_1); +x_28 = l_Lean_Parser_Term_sort; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } } @@ -7207,7 +7010,7 @@ lean::cnstr_set(x_7, 1, x_6); if (lean::obj_tag(x_1) == 0) { obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_8 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_8 = lean::box(3); x_9 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_9, 0, x_8); lean::cnstr_set(x_9, 1, x_7); @@ -7217,32 +7020,18 @@ return x_11; } else { -obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; x_12 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_14 = x_1; -} else { - lean::inc(x_12); - lean::dec(x_1); - x_14 = lean::box(0); -} +lean::inc(x_12); +lean::dec(x_1); x_15 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_15, 0, x_12); -if (lean::is_scalar(x_14)) { - x_16 = lean::alloc_cnstr(1, 1, 0); -} else { - x_16 = x_14; -} +x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); -x_17 = lean::box(3); -x_18 = l_Option_getOrElse___main___rarg(x_16, x_17); -lean::dec(x_16); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_18); -lean::cnstr_set(x_20, 1, x_7); -x_21 = l_Lean_Parser_Term_typeSpec; -x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); -return x_22; +lean::cnstr_set(x_16, 1, x_7); +x_17 = l_Lean_Parser_Term_typeSpec; +x_18 = l_Lean_Parser_Syntax_mkNode(x_17, x_16); +return x_18; } } } @@ -8018,7 +7807,7 @@ lean::cnstr_set(x_7, 1, x_6); if (lean::obj_tag(x_1) == 0) { obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_8 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_8 = lean::box(3); x_9 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_9, 0, x_8); lean::cnstr_set(x_9, 1, x_7); @@ -8028,32 +7817,18 @@ return x_11; } else { -obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; x_12 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_14 = x_1; -} else { - lean::inc(x_12); - lean::dec(x_1); - x_14 = lean::box(0); -} +lean::inc(x_12); +lean::dec(x_1); x_15 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_15, 0, x_12); -if (lean::is_scalar(x_14)) { - x_16 = lean::alloc_cnstr(1, 1, 0); -} else { - x_16 = x_14; -} +x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); -x_17 = lean::box(3); -x_18 = l_Option_getOrElse___main___rarg(x_16, x_17); -lean::dec(x_16); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_18); -lean::cnstr_set(x_20, 1, x_7); -x_21 = l_Lean_Parser_Term_binderDefaultVal; -x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); -return x_22; +lean::cnstr_set(x_16, 1, x_7); +x_17 = l_Lean_Parser_Term_binderDefaultVal; +x_18 = l_Lean_Parser_Syntax_mkNode(x_17, x_16); +return x_18; } } } @@ -8269,7 +8044,7 @@ lean::cnstr_set(x_7, 1, x_6); if (lean::obj_tag(x_1) == 0) { obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_8 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_8 = lean::box(3); x_9 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_9, 0, x_8); lean::cnstr_set(x_9, 1, x_7); @@ -8279,32 +8054,18 @@ return x_11; } else { -obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; x_12 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_14 = x_1; -} else { - lean::inc(x_12); - lean::dec(x_1); - x_14 = lean::box(0); -} +lean::inc(x_12); +lean::dec(x_1); x_15 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_15, 0, x_12); -if (lean::is_scalar(x_14)) { - x_16 = lean::alloc_cnstr(1, 1, 0); -} else { - x_16 = x_14; -} +x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); -x_17 = lean::box(3); -x_18 = l_Option_getOrElse___main___rarg(x_16, x_17); -lean::dec(x_16); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_18); -lean::cnstr_set(x_20, 1, x_7); -x_21 = l_Lean_Parser_Term_binderDefaultTac; -x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); -return x_22; +lean::cnstr_set(x_16, 1, x_7); +x_17 = l_Lean_Parser_Term_binderDefaultTac; +x_18 = l_Lean_Parser_Syntax_mkNode(x_17, x_16); +return x_18; } } } @@ -10202,7 +9963,7 @@ return x_114; obj* l_Lean_Parser_Term_simpleExplicitBinder_HasView_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -10223,247 +9984,228 @@ if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_9) == 0) { -obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; -x_17 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; +x_14 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_7); +lean::cnstr_set(x_15, 1, x_14); +x_16 = lean::box(3); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_15); x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_7); +lean::cnstr_set(x_18, 0, x_12); lean::cnstr_set(x_18, 1, x_17); -x_19 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_19); -lean::cnstr_set(x_20, 1, x_18); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_12); -lean::cnstr_set(x_21, 1, x_20); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_19); -lean::cnstr_set(x_22, 1, x_21); -x_23 = l_Lean_Parser_Term_simpleExplicitBinder; -x_24 = l_Lean_Parser_Syntax_mkNode(x_23, x_22); -return x_24; +x_19 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_19, 0, x_16); +lean::cnstr_set(x_19, 1, x_18); +x_20 = l_Lean_Parser_Term_simpleExplicitBinder; +x_21 = l_Lean_Parser_Syntax_mkNode(x_20, x_19); +return x_21; } else { -obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; -x_25 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_27 = x_9; -} else { - lean::inc(x_25); - lean::dec(x_9); - x_27 = lean::box(0); -} -x_28 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_28, 0, x_25); -if (lean::is_scalar(x_27)) { - x_29 = lean::alloc_cnstr(1, 1, 0); -} else { - x_29 = x_27; -} +obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_22 = lean::cnstr_get(x_9, 0); +lean::inc(x_22); +lean::dec(x_9); +x_25 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_25, 0, x_22); +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_13); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_7); +lean::cnstr_set(x_27, 1, x_26); +x_28 = lean::box(3); +x_29 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_29, 0, x_28); -x_30 = lean::box(3); -x_31 = l_Option_getOrElse___main___rarg(x_29, x_30); -lean::dec(x_29); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_31); -lean::cnstr_set(x_33, 1, x_13); -x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_7); -lean::cnstr_set(x_34, 1, x_33); -x_35 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_35); -lean::cnstr_set(x_36, 1, x_34); -x_37 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_37, 0, x_12); -lean::cnstr_set(x_37, 1, x_36); -x_38 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_38, 0, x_35); -lean::cnstr_set(x_38, 1, x_37); -x_39 = l_Lean_Parser_Term_simpleExplicitBinder; -x_40 = l_Lean_Parser_Syntax_mkNode(x_39, x_38); -return x_40; +lean::cnstr_set(x_29, 1, x_27); +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_12); +lean::cnstr_set(x_30, 1, x_29); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_28); +lean::cnstr_set(x_31, 1, x_30); +x_32 = l_Lean_Parser_Term_simpleExplicitBinder; +x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); +return x_33; } } else { -obj* x_41; obj* x_44; -x_41 = lean::cnstr_get(x_5, 0); -lean::inc(x_41); +obj* x_34; obj* x_37; +x_34 = lean::cnstr_get(x_5, 0); +lean::inc(x_34); lean::dec(x_5); -x_44 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_14 = x_44; -x_15 = x_41; -goto lbl_16; +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_34); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; +x_38 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_7); +lean::cnstr_set(x_39, 1, x_38); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_37); +lean::cnstr_set(x_40, 1, x_39); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_12); +lean::cnstr_set(x_41, 1, x_40); +x_42 = lean::box(3); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_41); +x_44 = l_Lean_Parser_Term_simpleExplicitBinder; +x_45 = l_Lean_Parser_Syntax_mkNode(x_44, x_43); +return x_45; +} +else +{ +obj* x_46; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_46 = lean::cnstr_get(x_9, 0); +lean::inc(x_46); +lean::dec(x_9); +x_49 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_49, 0, x_46); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_49); +lean::cnstr_set(x_50, 1, x_13); +x_51 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_51, 0, x_7); +lean::cnstr_set(x_51, 1, x_50); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_37); +lean::cnstr_set(x_52, 1, x_51); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_12); +lean::cnstr_set(x_53, 1, x_52); +x_54 = lean::box(3); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_54); +lean::cnstr_set(x_55, 1, x_53); +x_56 = l_Lean_Parser_Term_simpleExplicitBinder; +x_57 = l_Lean_Parser_Syntax_mkNode(x_56, x_55); +return x_57; +} } } else { -obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; -x_45 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_47 = x_1; -} else { - lean::inc(x_45); - lean::dec(x_1); - x_47 = lean::box(0); -} -x_48 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_48, 0, x_45); -if (lean::is_scalar(x_47)) { - x_49 = lean::alloc_cnstr(1, 1, 0); -} else { - x_49 = x_47; -} -lean::cnstr_set(x_49, 0, x_48); -x_50 = lean::box(3); -x_51 = l_Option_getOrElse___main___rarg(x_49, x_50); -lean::dec(x_49); +obj* x_58; obj* x_61; +x_58 = lean::cnstr_get(x_1, 0); +lean::inc(x_58); +lean::dec(x_1); +x_61 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_61, 0, x_58); if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_9) == 0) { -obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; -x_53 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_7); -lean::cnstr_set(x_54, 1, x_53); -x_55 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_55); -lean::cnstr_set(x_56, 1, x_54); -x_57 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_57, 0, x_12); -lean::cnstr_set(x_57, 1, x_56); -x_58 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_58, 0, x_51); -lean::cnstr_set(x_58, 1, x_57); -x_59 = l_Lean_Parser_Term_simpleExplicitBinder; -x_60 = l_Lean_Parser_Syntax_mkNode(x_59, x_58); -return x_60; -} -else -{ -obj* x_61; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; -x_61 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_63 = x_9; -} else { - lean::inc(x_61); - lean::dec(x_9); - x_63 = lean::box(0); -} -x_64 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_64, 0, x_61); -if (lean::is_scalar(x_63)) { - x_65 = lean::alloc_cnstr(1, 1, 0); -} else { - x_65 = x_63; -} +obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; +x_62 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_63 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_63, 0, x_7); +lean::cnstr_set(x_63, 1, x_62); +x_64 = lean::box(3); +x_65 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_65, 0, x_64); -x_66 = l_Option_getOrElse___main___rarg(x_65, x_50); -lean::dec(x_65); -x_68 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_68, 0, x_66); -lean::cnstr_set(x_68, 1, x_13); -x_69 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_69, 0, x_7); -lean::cnstr_set(x_69, 1, x_68); -x_70 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_71 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_71, 0, x_70); -lean::cnstr_set(x_71, 1, x_69); -x_72 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_72, 0, x_12); -lean::cnstr_set(x_72, 1, x_71); -x_73 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_73, 0, x_51); -lean::cnstr_set(x_73, 1, x_72); -x_74 = l_Lean_Parser_Term_simpleExplicitBinder; -x_75 = l_Lean_Parser_Syntax_mkNode(x_74, x_73); -return x_75; +lean::cnstr_set(x_65, 1, x_63); +x_66 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_66, 0, x_12); +lean::cnstr_set(x_66, 1, x_65); +x_67 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_67, 0, x_61); +lean::cnstr_set(x_67, 1, x_66); +x_68 = l_Lean_Parser_Term_simpleExplicitBinder; +x_69 = l_Lean_Parser_Syntax_mkNode(x_68, x_67); +return x_69; +} +else +{ +obj* x_70; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; +x_70 = lean::cnstr_get(x_9, 0); +lean::inc(x_70); +lean::dec(x_9); +x_73 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_73, 0, x_70); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_73); +lean::cnstr_set(x_74, 1, x_13); +x_75 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_75, 0, x_7); +lean::cnstr_set(x_75, 1, x_74); +x_76 = lean::box(3); +x_77 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_77, 0, x_76); +lean::cnstr_set(x_77, 1, x_75); +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_12); +lean::cnstr_set(x_78, 1, x_77); +x_79 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_79, 0, x_61); +lean::cnstr_set(x_79, 1, x_78); +x_80 = l_Lean_Parser_Term_simpleExplicitBinder; +x_81 = l_Lean_Parser_Syntax_mkNode(x_80, x_79); +return x_81; } } else { -obj* x_76; -x_76 = lean::cnstr_get(x_5, 0); -lean::inc(x_76); +obj* x_82; obj* x_85; +x_82 = lean::cnstr_get(x_5, 0); +lean::inc(x_82); lean::dec(x_5); -x_14 = x_51; -x_15 = x_76; -goto lbl_16; -} -} -lbl_16: -{ -obj* x_79; obj* x_80; obj* x_81; obj* x_82; -x_79 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_79, 0, x_15); -x_80 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_80, 0, x_79); -x_81 = lean::box(3); -x_82 = l_Option_getOrElse___main___rarg(x_80, x_81); -lean::dec(x_80); +x_85 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_85, 0, x_82); if (lean::obj_tag(x_9) == 0) { -obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; -x_84 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_7); -lean::cnstr_set(x_85, 1, x_84); -x_86 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_86, 0, x_82); -lean::cnstr_set(x_86, 1, x_85); +obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; +x_86 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_87 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_87, 0, x_12); +lean::cnstr_set(x_87, 0, x_7); lean::cnstr_set(x_87, 1, x_86); x_88 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_88, 0, x_14); +lean::cnstr_set(x_88, 0, x_85); lean::cnstr_set(x_88, 1, x_87); -x_89 = l_Lean_Parser_Term_simpleExplicitBinder; -x_90 = l_Lean_Parser_Syntax_mkNode(x_89, x_88); -return x_90; +x_89 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_89, 0, x_12); +lean::cnstr_set(x_89, 1, x_88); +x_90 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_90, 0, x_61); +lean::cnstr_set(x_90, 1, x_89); +x_91 = l_Lean_Parser_Term_simpleExplicitBinder; +x_92 = l_Lean_Parser_Syntax_mkNode(x_91, x_90); +return x_92; } else { -obj* x_91; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; -x_91 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_93 = x_9; -} else { - lean::inc(x_91); - lean::dec(x_9); - x_93 = lean::box(0); -} -x_94 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_94, 0, x_91); -if (lean::is_scalar(x_93)) { - x_95 = lean::alloc_cnstr(1, 1, 0); -} else { - x_95 = x_93; -} -lean::cnstr_set(x_95, 0, x_94); -x_96 = l_Option_getOrElse___main___rarg(x_95, x_81); -lean::dec(x_95); +obj* x_93; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; +x_93 = lean::cnstr_get(x_9, 0); +lean::inc(x_93); +lean::dec(x_9); +x_96 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_96, 0, x_93); +x_97 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_97, 0, x_96); +lean::cnstr_set(x_97, 1, x_13); x_98 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_98, 0, x_96); -lean::cnstr_set(x_98, 1, x_13); +lean::cnstr_set(x_98, 0, x_7); +lean::cnstr_set(x_98, 1, x_97); x_99 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_99, 0, x_7); +lean::cnstr_set(x_99, 0, x_85); lean::cnstr_set(x_99, 1, x_98); x_100 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_100, 0, x_82); +lean::cnstr_set(x_100, 0, x_12); lean::cnstr_set(x_100, 1, x_99); x_101 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_101, 0, x_12); +lean::cnstr_set(x_101, 0, x_61); lean::cnstr_set(x_101, 1, x_100); -x_102 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_102, 0, x_14); -lean::cnstr_set(x_102, 1, x_101); -x_103 = l_Lean_Parser_Term_simpleExplicitBinder; -x_104 = l_Lean_Parser_Syntax_mkNode(x_103, x_102); -return x_104; +x_102 = l_Lean_Parser_Term_simpleExplicitBinder; +x_103 = l_Lean_Parser_Syntax_mkNode(x_102, x_101); +return x_103; +} } } } @@ -10890,7 +10632,7 @@ return x_114; obj* l_Lean_Parser_Term_simpleImplicitBinder_HasView_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -10911,247 +10653,228 @@ if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_9) == 0) { -obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; -x_17 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; +x_14 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_7); +lean::cnstr_set(x_15, 1, x_14); +x_16 = lean::box(3); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_15); x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_7); +lean::cnstr_set(x_18, 0, x_12); lean::cnstr_set(x_18, 1, x_17); -x_19 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_19); -lean::cnstr_set(x_20, 1, x_18); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_12); -lean::cnstr_set(x_21, 1, x_20); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_19); -lean::cnstr_set(x_22, 1, x_21); -x_23 = l_Lean_Parser_Term_simpleImplicitBinder; -x_24 = l_Lean_Parser_Syntax_mkNode(x_23, x_22); -return x_24; +x_19 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_19, 0, x_16); +lean::cnstr_set(x_19, 1, x_18); +x_20 = l_Lean_Parser_Term_simpleImplicitBinder; +x_21 = l_Lean_Parser_Syntax_mkNode(x_20, x_19); +return x_21; } else { -obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; -x_25 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_27 = x_9; -} else { - lean::inc(x_25); - lean::dec(x_9); - x_27 = lean::box(0); -} -x_28 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_28, 0, x_25); -if (lean::is_scalar(x_27)) { - x_29 = lean::alloc_cnstr(1, 1, 0); -} else { - x_29 = x_27; -} +obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_22 = lean::cnstr_get(x_9, 0); +lean::inc(x_22); +lean::dec(x_9); +x_25 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_25, 0, x_22); +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_13); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_7); +lean::cnstr_set(x_27, 1, x_26); +x_28 = lean::box(3); +x_29 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_29, 0, x_28); -x_30 = lean::box(3); -x_31 = l_Option_getOrElse___main___rarg(x_29, x_30); -lean::dec(x_29); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_31); -lean::cnstr_set(x_33, 1, x_13); -x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_7); -lean::cnstr_set(x_34, 1, x_33); -x_35 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_35); -lean::cnstr_set(x_36, 1, x_34); -x_37 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_37, 0, x_12); -lean::cnstr_set(x_37, 1, x_36); -x_38 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_38, 0, x_35); -lean::cnstr_set(x_38, 1, x_37); -x_39 = l_Lean_Parser_Term_simpleImplicitBinder; -x_40 = l_Lean_Parser_Syntax_mkNode(x_39, x_38); -return x_40; +lean::cnstr_set(x_29, 1, x_27); +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_12); +lean::cnstr_set(x_30, 1, x_29); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_28); +lean::cnstr_set(x_31, 1, x_30); +x_32 = l_Lean_Parser_Term_simpleImplicitBinder; +x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); +return x_33; } } else { -obj* x_41; obj* x_44; -x_41 = lean::cnstr_get(x_5, 0); -lean::inc(x_41); +obj* x_34; obj* x_37; +x_34 = lean::cnstr_get(x_5, 0); +lean::inc(x_34); lean::dec(x_5); -x_44 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_14 = x_44; -x_15 = x_41; -goto lbl_16; +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_34); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; +x_38 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_7); +lean::cnstr_set(x_39, 1, x_38); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_37); +lean::cnstr_set(x_40, 1, x_39); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_12); +lean::cnstr_set(x_41, 1, x_40); +x_42 = lean::box(3); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_41); +x_44 = l_Lean_Parser_Term_simpleImplicitBinder; +x_45 = l_Lean_Parser_Syntax_mkNode(x_44, x_43); +return x_45; +} +else +{ +obj* x_46; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_46 = lean::cnstr_get(x_9, 0); +lean::inc(x_46); +lean::dec(x_9); +x_49 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_49, 0, x_46); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_49); +lean::cnstr_set(x_50, 1, x_13); +x_51 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_51, 0, x_7); +lean::cnstr_set(x_51, 1, x_50); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_37); +lean::cnstr_set(x_52, 1, x_51); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_12); +lean::cnstr_set(x_53, 1, x_52); +x_54 = lean::box(3); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_54); +lean::cnstr_set(x_55, 1, x_53); +x_56 = l_Lean_Parser_Term_simpleImplicitBinder; +x_57 = l_Lean_Parser_Syntax_mkNode(x_56, x_55); +return x_57; +} } } else { -obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; -x_45 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_47 = x_1; -} else { - lean::inc(x_45); - lean::dec(x_1); - x_47 = lean::box(0); -} -x_48 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_48, 0, x_45); -if (lean::is_scalar(x_47)) { - x_49 = lean::alloc_cnstr(1, 1, 0); -} else { - x_49 = x_47; -} -lean::cnstr_set(x_49, 0, x_48); -x_50 = lean::box(3); -x_51 = l_Option_getOrElse___main___rarg(x_49, x_50); -lean::dec(x_49); +obj* x_58; obj* x_61; +x_58 = lean::cnstr_get(x_1, 0); +lean::inc(x_58); +lean::dec(x_1); +x_61 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_61, 0, x_58); if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_9) == 0) { -obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; -x_53 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_7); -lean::cnstr_set(x_54, 1, x_53); -x_55 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_55); -lean::cnstr_set(x_56, 1, x_54); -x_57 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_57, 0, x_12); -lean::cnstr_set(x_57, 1, x_56); -x_58 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_58, 0, x_51); -lean::cnstr_set(x_58, 1, x_57); -x_59 = l_Lean_Parser_Term_simpleImplicitBinder; -x_60 = l_Lean_Parser_Syntax_mkNode(x_59, x_58); -return x_60; -} -else -{ -obj* x_61; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; -x_61 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_63 = x_9; -} else { - lean::inc(x_61); - lean::dec(x_9); - x_63 = lean::box(0); -} -x_64 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_64, 0, x_61); -if (lean::is_scalar(x_63)) { - x_65 = lean::alloc_cnstr(1, 1, 0); -} else { - x_65 = x_63; -} +obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; +x_62 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_63 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_63, 0, x_7); +lean::cnstr_set(x_63, 1, x_62); +x_64 = lean::box(3); +x_65 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_65, 0, x_64); -x_66 = l_Option_getOrElse___main___rarg(x_65, x_50); -lean::dec(x_65); -x_68 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_68, 0, x_66); -lean::cnstr_set(x_68, 1, x_13); -x_69 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_69, 0, x_7); -lean::cnstr_set(x_69, 1, x_68); -x_70 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_71 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_71, 0, x_70); -lean::cnstr_set(x_71, 1, x_69); -x_72 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_72, 0, x_12); -lean::cnstr_set(x_72, 1, x_71); -x_73 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_73, 0, x_51); -lean::cnstr_set(x_73, 1, x_72); -x_74 = l_Lean_Parser_Term_simpleImplicitBinder; -x_75 = l_Lean_Parser_Syntax_mkNode(x_74, x_73); -return x_75; +lean::cnstr_set(x_65, 1, x_63); +x_66 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_66, 0, x_12); +lean::cnstr_set(x_66, 1, x_65); +x_67 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_67, 0, x_61); +lean::cnstr_set(x_67, 1, x_66); +x_68 = l_Lean_Parser_Term_simpleImplicitBinder; +x_69 = l_Lean_Parser_Syntax_mkNode(x_68, x_67); +return x_69; +} +else +{ +obj* x_70; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; +x_70 = lean::cnstr_get(x_9, 0); +lean::inc(x_70); +lean::dec(x_9); +x_73 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_73, 0, x_70); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_73); +lean::cnstr_set(x_74, 1, x_13); +x_75 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_75, 0, x_7); +lean::cnstr_set(x_75, 1, x_74); +x_76 = lean::box(3); +x_77 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_77, 0, x_76); +lean::cnstr_set(x_77, 1, x_75); +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_12); +lean::cnstr_set(x_78, 1, x_77); +x_79 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_79, 0, x_61); +lean::cnstr_set(x_79, 1, x_78); +x_80 = l_Lean_Parser_Term_simpleImplicitBinder; +x_81 = l_Lean_Parser_Syntax_mkNode(x_80, x_79); +return x_81; } } else { -obj* x_76; -x_76 = lean::cnstr_get(x_5, 0); -lean::inc(x_76); +obj* x_82; obj* x_85; +x_82 = lean::cnstr_get(x_5, 0); +lean::inc(x_82); lean::dec(x_5); -x_14 = x_51; -x_15 = x_76; -goto lbl_16; -} -} -lbl_16: -{ -obj* x_79; obj* x_80; obj* x_81; obj* x_82; -x_79 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_79, 0, x_15); -x_80 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_80, 0, x_79); -x_81 = lean::box(3); -x_82 = l_Option_getOrElse___main___rarg(x_80, x_81); -lean::dec(x_80); +x_85 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_85, 0, x_82); if (lean::obj_tag(x_9) == 0) { -obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; -x_84 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_7); -lean::cnstr_set(x_85, 1, x_84); -x_86 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_86, 0, x_82); -lean::cnstr_set(x_86, 1, x_85); +obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; +x_86 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_87 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_87, 0, x_12); +lean::cnstr_set(x_87, 0, x_7); lean::cnstr_set(x_87, 1, x_86); x_88 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_88, 0, x_14); +lean::cnstr_set(x_88, 0, x_85); lean::cnstr_set(x_88, 1, x_87); -x_89 = l_Lean_Parser_Term_simpleImplicitBinder; -x_90 = l_Lean_Parser_Syntax_mkNode(x_89, x_88); -return x_90; +x_89 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_89, 0, x_12); +lean::cnstr_set(x_89, 1, x_88); +x_90 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_90, 0, x_61); +lean::cnstr_set(x_90, 1, x_89); +x_91 = l_Lean_Parser_Term_simpleImplicitBinder; +x_92 = l_Lean_Parser_Syntax_mkNode(x_91, x_90); +return x_92; } else { -obj* x_91; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; -x_91 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_93 = x_9; -} else { - lean::inc(x_91); - lean::dec(x_9); - x_93 = lean::box(0); -} -x_94 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_94, 0, x_91); -if (lean::is_scalar(x_93)) { - x_95 = lean::alloc_cnstr(1, 1, 0); -} else { - x_95 = x_93; -} -lean::cnstr_set(x_95, 0, x_94); -x_96 = l_Option_getOrElse___main___rarg(x_95, x_81); -lean::dec(x_95); +obj* x_93; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; +x_93 = lean::cnstr_get(x_9, 0); +lean::inc(x_93); +lean::dec(x_9); +x_96 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_96, 0, x_93); +x_97 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_97, 0, x_96); +lean::cnstr_set(x_97, 1, x_13); x_98 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_98, 0, x_96); -lean::cnstr_set(x_98, 1, x_13); +lean::cnstr_set(x_98, 0, x_7); +lean::cnstr_set(x_98, 1, x_97); x_99 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_99, 0, x_7); +lean::cnstr_set(x_99, 0, x_85); lean::cnstr_set(x_99, 1, x_98); x_100 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_100, 0, x_82); +lean::cnstr_set(x_100, 0, x_12); lean::cnstr_set(x_100, 1, x_99); x_101 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_101, 0, x_12); +lean::cnstr_set(x_101, 0, x_61); lean::cnstr_set(x_101, 1, x_100); -x_102 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_102, 0, x_14); -lean::cnstr_set(x_102, 1, x_101); -x_103 = l_Lean_Parser_Term_simpleImplicitBinder; -x_104 = l_Lean_Parser_Syntax_mkNode(x_103, x_102); -return x_104; +x_102 = l_Lean_Parser_Term_simpleImplicitBinder; +x_103 = l_Lean_Parser_Syntax_mkNode(x_102, x_101); +return x_103; +} } } } @@ -11578,7 +11301,7 @@ return x_114; obj* l_Lean_Parser_Term_simpleStrictImplicitBinder_HasView_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -11599,247 +11322,228 @@ if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_9) == 0) { -obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; -x_17 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; +x_14 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_7); +lean::cnstr_set(x_15, 1, x_14); +x_16 = lean::box(3); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_15); x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_7); +lean::cnstr_set(x_18, 0, x_12); lean::cnstr_set(x_18, 1, x_17); -x_19 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_19); -lean::cnstr_set(x_20, 1, x_18); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_12); -lean::cnstr_set(x_21, 1, x_20); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_19); -lean::cnstr_set(x_22, 1, x_21); -x_23 = l_Lean_Parser_Term_simpleStrictImplicitBinder; -x_24 = l_Lean_Parser_Syntax_mkNode(x_23, x_22); -return x_24; +x_19 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_19, 0, x_16); +lean::cnstr_set(x_19, 1, x_18); +x_20 = l_Lean_Parser_Term_simpleStrictImplicitBinder; +x_21 = l_Lean_Parser_Syntax_mkNode(x_20, x_19); +return x_21; } else { -obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; -x_25 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_27 = x_9; -} else { - lean::inc(x_25); - lean::dec(x_9); - x_27 = lean::box(0); -} -x_28 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_28, 0, x_25); -if (lean::is_scalar(x_27)) { - x_29 = lean::alloc_cnstr(1, 1, 0); -} else { - x_29 = x_27; -} +obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_22 = lean::cnstr_get(x_9, 0); +lean::inc(x_22); +lean::dec(x_9); +x_25 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_25, 0, x_22); +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_13); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_7); +lean::cnstr_set(x_27, 1, x_26); +x_28 = lean::box(3); +x_29 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_29, 0, x_28); -x_30 = lean::box(3); -x_31 = l_Option_getOrElse___main___rarg(x_29, x_30); -lean::dec(x_29); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_31); -lean::cnstr_set(x_33, 1, x_13); -x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_7); -lean::cnstr_set(x_34, 1, x_33); -x_35 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_35); -lean::cnstr_set(x_36, 1, x_34); -x_37 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_37, 0, x_12); -lean::cnstr_set(x_37, 1, x_36); -x_38 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_38, 0, x_35); -lean::cnstr_set(x_38, 1, x_37); -x_39 = l_Lean_Parser_Term_simpleStrictImplicitBinder; -x_40 = l_Lean_Parser_Syntax_mkNode(x_39, x_38); -return x_40; +lean::cnstr_set(x_29, 1, x_27); +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_12); +lean::cnstr_set(x_30, 1, x_29); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_28); +lean::cnstr_set(x_31, 1, x_30); +x_32 = l_Lean_Parser_Term_simpleStrictImplicitBinder; +x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); +return x_33; } } else { -obj* x_41; obj* x_44; -x_41 = lean::cnstr_get(x_5, 0); -lean::inc(x_41); +obj* x_34; obj* x_37; +x_34 = lean::cnstr_get(x_5, 0); +lean::inc(x_34); lean::dec(x_5); -x_44 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_14 = x_44; -x_15 = x_41; -goto lbl_16; +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_34); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; +x_38 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_7); +lean::cnstr_set(x_39, 1, x_38); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_37); +lean::cnstr_set(x_40, 1, x_39); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_12); +lean::cnstr_set(x_41, 1, x_40); +x_42 = lean::box(3); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_41); +x_44 = l_Lean_Parser_Term_simpleStrictImplicitBinder; +x_45 = l_Lean_Parser_Syntax_mkNode(x_44, x_43); +return x_45; +} +else +{ +obj* x_46; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_46 = lean::cnstr_get(x_9, 0); +lean::inc(x_46); +lean::dec(x_9); +x_49 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_49, 0, x_46); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_49); +lean::cnstr_set(x_50, 1, x_13); +x_51 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_51, 0, x_7); +lean::cnstr_set(x_51, 1, x_50); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_37); +lean::cnstr_set(x_52, 1, x_51); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_12); +lean::cnstr_set(x_53, 1, x_52); +x_54 = lean::box(3); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_54); +lean::cnstr_set(x_55, 1, x_53); +x_56 = l_Lean_Parser_Term_simpleStrictImplicitBinder; +x_57 = l_Lean_Parser_Syntax_mkNode(x_56, x_55); +return x_57; +} } } else { -obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; -x_45 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_47 = x_1; -} else { - lean::inc(x_45); - lean::dec(x_1); - x_47 = lean::box(0); -} -x_48 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_48, 0, x_45); -if (lean::is_scalar(x_47)) { - x_49 = lean::alloc_cnstr(1, 1, 0); -} else { - x_49 = x_47; -} -lean::cnstr_set(x_49, 0, x_48); -x_50 = lean::box(3); -x_51 = l_Option_getOrElse___main___rarg(x_49, x_50); -lean::dec(x_49); +obj* x_58; obj* x_61; +x_58 = lean::cnstr_get(x_1, 0); +lean::inc(x_58); +lean::dec(x_1); +x_61 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_61, 0, x_58); if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_9) == 0) { -obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; -x_53 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_7); -lean::cnstr_set(x_54, 1, x_53); -x_55 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_55); -lean::cnstr_set(x_56, 1, x_54); -x_57 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_57, 0, x_12); -lean::cnstr_set(x_57, 1, x_56); -x_58 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_58, 0, x_51); -lean::cnstr_set(x_58, 1, x_57); -x_59 = l_Lean_Parser_Term_simpleStrictImplicitBinder; -x_60 = l_Lean_Parser_Syntax_mkNode(x_59, x_58); -return x_60; -} -else -{ -obj* x_61; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; -x_61 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_63 = x_9; -} else { - lean::inc(x_61); - lean::dec(x_9); - x_63 = lean::box(0); -} -x_64 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_64, 0, x_61); -if (lean::is_scalar(x_63)) { - x_65 = lean::alloc_cnstr(1, 1, 0); -} else { - x_65 = x_63; -} +obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; +x_62 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_63 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_63, 0, x_7); +lean::cnstr_set(x_63, 1, x_62); +x_64 = lean::box(3); +x_65 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_65, 0, x_64); -x_66 = l_Option_getOrElse___main___rarg(x_65, x_50); -lean::dec(x_65); -x_68 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_68, 0, x_66); -lean::cnstr_set(x_68, 1, x_13); -x_69 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_69, 0, x_7); -lean::cnstr_set(x_69, 1, x_68); -x_70 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_71 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_71, 0, x_70); -lean::cnstr_set(x_71, 1, x_69); -x_72 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_72, 0, x_12); -lean::cnstr_set(x_72, 1, x_71); -x_73 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_73, 0, x_51); -lean::cnstr_set(x_73, 1, x_72); -x_74 = l_Lean_Parser_Term_simpleStrictImplicitBinder; -x_75 = l_Lean_Parser_Syntax_mkNode(x_74, x_73); -return x_75; +lean::cnstr_set(x_65, 1, x_63); +x_66 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_66, 0, x_12); +lean::cnstr_set(x_66, 1, x_65); +x_67 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_67, 0, x_61); +lean::cnstr_set(x_67, 1, x_66); +x_68 = l_Lean_Parser_Term_simpleStrictImplicitBinder; +x_69 = l_Lean_Parser_Syntax_mkNode(x_68, x_67); +return x_69; +} +else +{ +obj* x_70; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; +x_70 = lean::cnstr_get(x_9, 0); +lean::inc(x_70); +lean::dec(x_9); +x_73 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_73, 0, x_70); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_73); +lean::cnstr_set(x_74, 1, x_13); +x_75 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_75, 0, x_7); +lean::cnstr_set(x_75, 1, x_74); +x_76 = lean::box(3); +x_77 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_77, 0, x_76); +lean::cnstr_set(x_77, 1, x_75); +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_12); +lean::cnstr_set(x_78, 1, x_77); +x_79 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_79, 0, x_61); +lean::cnstr_set(x_79, 1, x_78); +x_80 = l_Lean_Parser_Term_simpleStrictImplicitBinder; +x_81 = l_Lean_Parser_Syntax_mkNode(x_80, x_79); +return x_81; } } else { -obj* x_76; -x_76 = lean::cnstr_get(x_5, 0); -lean::inc(x_76); +obj* x_82; obj* x_85; +x_82 = lean::cnstr_get(x_5, 0); +lean::inc(x_82); lean::dec(x_5); -x_14 = x_51; -x_15 = x_76; -goto lbl_16; -} -} -lbl_16: -{ -obj* x_79; obj* x_80; obj* x_81; obj* x_82; -x_79 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_79, 0, x_15); -x_80 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_80, 0, x_79); -x_81 = lean::box(3); -x_82 = l_Option_getOrElse___main___rarg(x_80, x_81); -lean::dec(x_80); +x_85 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_85, 0, x_82); if (lean::obj_tag(x_9) == 0) { -obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; -x_84 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_7); -lean::cnstr_set(x_85, 1, x_84); -x_86 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_86, 0, x_82); -lean::cnstr_set(x_86, 1, x_85); +obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; +x_86 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_87 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_87, 0, x_12); +lean::cnstr_set(x_87, 0, x_7); lean::cnstr_set(x_87, 1, x_86); x_88 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_88, 0, x_14); +lean::cnstr_set(x_88, 0, x_85); lean::cnstr_set(x_88, 1, x_87); -x_89 = l_Lean_Parser_Term_simpleStrictImplicitBinder; -x_90 = l_Lean_Parser_Syntax_mkNode(x_89, x_88); -return x_90; +x_89 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_89, 0, x_12); +lean::cnstr_set(x_89, 1, x_88); +x_90 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_90, 0, x_61); +lean::cnstr_set(x_90, 1, x_89); +x_91 = l_Lean_Parser_Term_simpleStrictImplicitBinder; +x_92 = l_Lean_Parser_Syntax_mkNode(x_91, x_90); +return x_92; } else { -obj* x_91; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; -x_91 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_93 = x_9; -} else { - lean::inc(x_91); - lean::dec(x_9); - x_93 = lean::box(0); -} -x_94 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_94, 0, x_91); -if (lean::is_scalar(x_93)) { - x_95 = lean::alloc_cnstr(1, 1, 0); -} else { - x_95 = x_93; -} -lean::cnstr_set(x_95, 0, x_94); -x_96 = l_Option_getOrElse___main___rarg(x_95, x_81); -lean::dec(x_95); +obj* x_93; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; +x_93 = lean::cnstr_get(x_9, 0); +lean::inc(x_93); +lean::dec(x_9); +x_96 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_96, 0, x_93); +x_97 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_97, 0, x_96); +lean::cnstr_set(x_97, 1, x_13); x_98 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_98, 0, x_96); -lean::cnstr_set(x_98, 1, x_13); +lean::cnstr_set(x_98, 0, x_7); +lean::cnstr_set(x_98, 1, x_97); x_99 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_99, 0, x_7); +lean::cnstr_set(x_99, 0, x_85); lean::cnstr_set(x_99, 1, x_98); x_100 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_100, 0, x_82); +lean::cnstr_set(x_100, 0, x_12); lean::cnstr_set(x_100, 1, x_99); x_101 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_101, 0, x_12); +lean::cnstr_set(x_101, 0, x_61); lean::cnstr_set(x_101, 1, x_100); -x_102 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_102, 0, x_14); -lean::cnstr_set(x_102, 1, x_101); -x_103 = l_Lean_Parser_Term_simpleStrictImplicitBinder; -x_104 = l_Lean_Parser_Syntax_mkNode(x_103, x_102); -return x_104; +x_102 = l_Lean_Parser_Term_simpleStrictImplicitBinder; +x_103 = l_Lean_Parser_Syntax_mkNode(x_102, x_101); +return x_103; +} } } } @@ -12266,7 +11970,7 @@ return x_114; obj* l_Lean_Parser_Term_simpleInstImplicitBinder_HasView_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -12287,247 +11991,228 @@ if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_9) == 0) { -obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; -x_17 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; +x_14 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_7); +lean::cnstr_set(x_15, 1, x_14); +x_16 = lean::box(3); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_15); x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_7); +lean::cnstr_set(x_18, 0, x_12); lean::cnstr_set(x_18, 1, x_17); -x_19 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_19); -lean::cnstr_set(x_20, 1, x_18); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_12); -lean::cnstr_set(x_21, 1, x_20); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_19); -lean::cnstr_set(x_22, 1, x_21); -x_23 = l_Lean_Parser_Term_simpleInstImplicitBinder; -x_24 = l_Lean_Parser_Syntax_mkNode(x_23, x_22); -return x_24; +x_19 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_19, 0, x_16); +lean::cnstr_set(x_19, 1, x_18); +x_20 = l_Lean_Parser_Term_simpleInstImplicitBinder; +x_21 = l_Lean_Parser_Syntax_mkNode(x_20, x_19); +return x_21; } else { -obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; -x_25 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_27 = x_9; -} else { - lean::inc(x_25); - lean::dec(x_9); - x_27 = lean::box(0); -} -x_28 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_28, 0, x_25); -if (lean::is_scalar(x_27)) { - x_29 = lean::alloc_cnstr(1, 1, 0); -} else { - x_29 = x_27; -} +obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_22 = lean::cnstr_get(x_9, 0); +lean::inc(x_22); +lean::dec(x_9); +x_25 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_25, 0, x_22); +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_13); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_7); +lean::cnstr_set(x_27, 1, x_26); +x_28 = lean::box(3); +x_29 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_29, 0, x_28); -x_30 = lean::box(3); -x_31 = l_Option_getOrElse___main___rarg(x_29, x_30); -lean::dec(x_29); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_31); -lean::cnstr_set(x_33, 1, x_13); -x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_7); -lean::cnstr_set(x_34, 1, x_33); -x_35 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_35); -lean::cnstr_set(x_36, 1, x_34); -x_37 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_37, 0, x_12); -lean::cnstr_set(x_37, 1, x_36); -x_38 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_38, 0, x_35); -lean::cnstr_set(x_38, 1, x_37); -x_39 = l_Lean_Parser_Term_simpleInstImplicitBinder; -x_40 = l_Lean_Parser_Syntax_mkNode(x_39, x_38); -return x_40; +lean::cnstr_set(x_29, 1, x_27); +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_12); +lean::cnstr_set(x_30, 1, x_29); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_28); +lean::cnstr_set(x_31, 1, x_30); +x_32 = l_Lean_Parser_Term_simpleInstImplicitBinder; +x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); +return x_33; } } else { -obj* x_41; obj* x_44; -x_41 = lean::cnstr_get(x_5, 0); -lean::inc(x_41); +obj* x_34; obj* x_37; +x_34 = lean::cnstr_get(x_5, 0); +lean::inc(x_34); lean::dec(x_5); -x_44 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_14 = x_44; -x_15 = x_41; -goto lbl_16; +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_34); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; +x_38 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_7); +lean::cnstr_set(x_39, 1, x_38); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_37); +lean::cnstr_set(x_40, 1, x_39); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_12); +lean::cnstr_set(x_41, 1, x_40); +x_42 = lean::box(3); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_41); +x_44 = l_Lean_Parser_Term_simpleInstImplicitBinder; +x_45 = l_Lean_Parser_Syntax_mkNode(x_44, x_43); +return x_45; +} +else +{ +obj* x_46; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_46 = lean::cnstr_get(x_9, 0); +lean::inc(x_46); +lean::dec(x_9); +x_49 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_49, 0, x_46); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_49); +lean::cnstr_set(x_50, 1, x_13); +x_51 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_51, 0, x_7); +lean::cnstr_set(x_51, 1, x_50); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_37); +lean::cnstr_set(x_52, 1, x_51); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_12); +lean::cnstr_set(x_53, 1, x_52); +x_54 = lean::box(3); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_54); +lean::cnstr_set(x_55, 1, x_53); +x_56 = l_Lean_Parser_Term_simpleInstImplicitBinder; +x_57 = l_Lean_Parser_Syntax_mkNode(x_56, x_55); +return x_57; +} } } else { -obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; -x_45 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_47 = x_1; -} else { - lean::inc(x_45); - lean::dec(x_1); - x_47 = lean::box(0); -} -x_48 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_48, 0, x_45); -if (lean::is_scalar(x_47)) { - x_49 = lean::alloc_cnstr(1, 1, 0); -} else { - x_49 = x_47; -} -lean::cnstr_set(x_49, 0, x_48); -x_50 = lean::box(3); -x_51 = l_Option_getOrElse___main___rarg(x_49, x_50); -lean::dec(x_49); +obj* x_58; obj* x_61; +x_58 = lean::cnstr_get(x_1, 0); +lean::inc(x_58); +lean::dec(x_1); +x_61 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_61, 0, x_58); if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_9) == 0) { -obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; -x_53 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_7); -lean::cnstr_set(x_54, 1, x_53); -x_55 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_55); -lean::cnstr_set(x_56, 1, x_54); -x_57 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_57, 0, x_12); -lean::cnstr_set(x_57, 1, x_56); -x_58 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_58, 0, x_51); -lean::cnstr_set(x_58, 1, x_57); -x_59 = l_Lean_Parser_Term_simpleInstImplicitBinder; -x_60 = l_Lean_Parser_Syntax_mkNode(x_59, x_58); -return x_60; -} -else -{ -obj* x_61; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; -x_61 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_63 = x_9; -} else { - lean::inc(x_61); - lean::dec(x_9); - x_63 = lean::box(0); -} -x_64 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_64, 0, x_61); -if (lean::is_scalar(x_63)) { - x_65 = lean::alloc_cnstr(1, 1, 0); -} else { - x_65 = x_63; -} +obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; +x_62 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_63 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_63, 0, x_7); +lean::cnstr_set(x_63, 1, x_62); +x_64 = lean::box(3); +x_65 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_65, 0, x_64); -x_66 = l_Option_getOrElse___main___rarg(x_65, x_50); -lean::dec(x_65); -x_68 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_68, 0, x_66); -lean::cnstr_set(x_68, 1, x_13); -x_69 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_69, 0, x_7); -lean::cnstr_set(x_69, 1, x_68); -x_70 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_71 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_71, 0, x_70); -lean::cnstr_set(x_71, 1, x_69); -x_72 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_72, 0, x_12); -lean::cnstr_set(x_72, 1, x_71); -x_73 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_73, 0, x_51); -lean::cnstr_set(x_73, 1, x_72); -x_74 = l_Lean_Parser_Term_simpleInstImplicitBinder; -x_75 = l_Lean_Parser_Syntax_mkNode(x_74, x_73); -return x_75; +lean::cnstr_set(x_65, 1, x_63); +x_66 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_66, 0, x_12); +lean::cnstr_set(x_66, 1, x_65); +x_67 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_67, 0, x_61); +lean::cnstr_set(x_67, 1, x_66); +x_68 = l_Lean_Parser_Term_simpleInstImplicitBinder; +x_69 = l_Lean_Parser_Syntax_mkNode(x_68, x_67); +return x_69; +} +else +{ +obj* x_70; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; +x_70 = lean::cnstr_get(x_9, 0); +lean::inc(x_70); +lean::dec(x_9); +x_73 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_73, 0, x_70); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_73); +lean::cnstr_set(x_74, 1, x_13); +x_75 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_75, 0, x_7); +lean::cnstr_set(x_75, 1, x_74); +x_76 = lean::box(3); +x_77 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_77, 0, x_76); +lean::cnstr_set(x_77, 1, x_75); +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_12); +lean::cnstr_set(x_78, 1, x_77); +x_79 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_79, 0, x_61); +lean::cnstr_set(x_79, 1, x_78); +x_80 = l_Lean_Parser_Term_simpleInstImplicitBinder; +x_81 = l_Lean_Parser_Syntax_mkNode(x_80, x_79); +return x_81; } } else { -obj* x_76; -x_76 = lean::cnstr_get(x_5, 0); -lean::inc(x_76); +obj* x_82; obj* x_85; +x_82 = lean::cnstr_get(x_5, 0); +lean::inc(x_82); lean::dec(x_5); -x_14 = x_51; -x_15 = x_76; -goto lbl_16; -} -} -lbl_16: -{ -obj* x_79; obj* x_80; obj* x_81; obj* x_82; -x_79 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_79, 0, x_15); -x_80 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_80, 0, x_79); -x_81 = lean::box(3); -x_82 = l_Option_getOrElse___main___rarg(x_80, x_81); -lean::dec(x_80); +x_85 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_85, 0, x_82); if (lean::obj_tag(x_9) == 0) { -obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; -x_84 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_7); -lean::cnstr_set(x_85, 1, x_84); -x_86 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_86, 0, x_82); -lean::cnstr_set(x_86, 1, x_85); +obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; +x_86 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_87 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_87, 0, x_12); +lean::cnstr_set(x_87, 0, x_7); lean::cnstr_set(x_87, 1, x_86); x_88 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_88, 0, x_14); +lean::cnstr_set(x_88, 0, x_85); lean::cnstr_set(x_88, 1, x_87); -x_89 = l_Lean_Parser_Term_simpleInstImplicitBinder; -x_90 = l_Lean_Parser_Syntax_mkNode(x_89, x_88); -return x_90; +x_89 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_89, 0, x_12); +lean::cnstr_set(x_89, 1, x_88); +x_90 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_90, 0, x_61); +lean::cnstr_set(x_90, 1, x_89); +x_91 = l_Lean_Parser_Term_simpleInstImplicitBinder; +x_92 = l_Lean_Parser_Syntax_mkNode(x_91, x_90); +return x_92; } else { -obj* x_91; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; -x_91 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_93 = x_9; -} else { - lean::inc(x_91); - lean::dec(x_9); - x_93 = lean::box(0); -} -x_94 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_94, 0, x_91); -if (lean::is_scalar(x_93)) { - x_95 = lean::alloc_cnstr(1, 1, 0); -} else { - x_95 = x_93; -} -lean::cnstr_set(x_95, 0, x_94); -x_96 = l_Option_getOrElse___main___rarg(x_95, x_81); -lean::dec(x_95); +obj* x_93; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; +x_93 = lean::cnstr_get(x_9, 0); +lean::inc(x_93); +lean::dec(x_9); +x_96 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_96, 0, x_93); +x_97 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_97, 0, x_96); +lean::cnstr_set(x_97, 1, x_13); x_98 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_98, 0, x_96); -lean::cnstr_set(x_98, 1, x_13); +lean::cnstr_set(x_98, 0, x_7); +lean::cnstr_set(x_98, 1, x_97); x_99 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_99, 0, x_7); +lean::cnstr_set(x_99, 0, x_85); lean::cnstr_set(x_99, 1, x_98); x_100 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_100, 0, x_82); +lean::cnstr_set(x_100, 0, x_12); lean::cnstr_set(x_100, 1, x_99); x_101 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_101, 0, x_12); +lean::cnstr_set(x_101, 0, x_61); lean::cnstr_set(x_101, 1, x_100); -x_102 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_102, 0, x_14); -lean::cnstr_set(x_102, 1, x_101); -x_103 = l_Lean_Parser_Term_simpleInstImplicitBinder; -x_104 = l_Lean_Parser_Syntax_mkNode(x_103, x_102); -return x_104; +x_102 = l_Lean_Parser_Term_simpleInstImplicitBinder; +x_103 = l_Lean_Parser_Syntax_mkNode(x_102, x_101); +return x_103; +} } } } @@ -13778,41 +13463,27 @@ return x_21; } else { -obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_22 = lean::cnstr_get(x_16, 0); -if (lean::is_exclusive(x_16)) { - x_24 = x_16; -} else { - lean::inc(x_22); - lean::dec(x_16); - x_24 = lean::box(0); -} +lean::inc(x_22); +lean::dec(x_16); x_25 = lean::box(0); x_26 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_26, 0, x_22); -if (lean::is_scalar(x_24)) { - x_27 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_6)) { + x_27 = lean::alloc_cnstr(1, 2, 0); } else { - x_27 = x_24; + x_27 = x_6; } lean::cnstr_set(x_27, 0, x_26); -x_28 = lean::box(3); -x_29 = l_Option_getOrElse___main___rarg(x_27, x_28); -lean::dec(x_27); -if (lean::is_scalar(x_6)) { - x_31 = lean::alloc_cnstr(1, 2, 0); -} else { - x_31 = x_6; -} -lean::cnstr_set(x_31, 0, x_29); -lean::cnstr_set(x_31, 1, x_25); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_7); -lean::cnstr_set(x_32, 1, x_31); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_32); -lean::cnstr_set(x_33, 1, x_12); -return x_33; +lean::cnstr_set(x_27, 1, x_25); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_7); +lean::cnstr_set(x_28, 1, x_27); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_28); +lean::cnstr_set(x_29, 1, x_12); +return x_29; } } } @@ -14142,7 +13813,7 @@ x_13 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2 x_14 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_14, 0, x_11); lean::cnstr_set(x_14, 1, x_13); -x_15 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_15 = lean::box(3); x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); lean::cnstr_set(x_16, 1, x_14); @@ -14152,110 +13823,69 @@ return x_18; } else { -obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; +obj* x_19; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; x_19 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_21 = x_5; -} else { - lean::inc(x_19); - lean::dec(x_5); - x_21 = lean::box(0); -} +lean::inc(x_19); +lean::dec(x_5); x_22 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_22, 0, x_19); -if (lean::is_scalar(x_21)) { - x_23 = lean::alloc_cnstr(1, 1, 0); -} else { - x_23 = x_21; -} +x_23 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_23, 0, x_22); -x_24 = lean::box(3); -x_25 = l_Option_getOrElse___main___rarg(x_23, x_24); -lean::dec(x_23); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_25); -lean::cnstr_set(x_27, 1, x_12); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_11); -lean::cnstr_set(x_28, 1, x_27); -x_29 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_30 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_30, 0, x_29); -lean::cnstr_set(x_30, 1, x_28); -x_31 = l_Lean_Parser_Term_anonymousConstructor; -x_32 = l_Lean_Parser_Syntax_mkNode(x_31, x_30); -return x_32; +lean::cnstr_set(x_23, 1, x_12); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_11); +lean::cnstr_set(x_24, 1, x_23); +x_25 = lean::box(3); +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_24); +x_27 = l_Lean_Parser_Term_anonymousConstructor; +x_28 = l_Lean_Parser_Syntax_mkNode(x_27, x_26); +return x_28; } } else { -obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; -x_33 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_35 = x_1; -} else { - lean::inc(x_33); - lean::dec(x_1); - x_35 = lean::box(0); -} -x_36 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_36, 0, x_33); -if (lean::is_scalar(x_35)) { - x_37 = lean::alloc_cnstr(1, 1, 0); -} else { - x_37 = x_35; -} -lean::cnstr_set(x_37, 0, x_36); -x_38 = lean::box(3); -x_39 = l_Option_getOrElse___main___rarg(x_37, x_38); -lean::dec(x_37); +obj* x_29; obj* x_32; +x_29 = lean::cnstr_get(x_1, 0); +lean::inc(x_29); +lean::dec(x_1); +x_32 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_32, 0, x_29); if (lean::obj_tag(x_5) == 0) { -obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; -x_41 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_42 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_42, 0, x_11); -lean::cnstr_set(x_42, 1, x_41); -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_39); -lean::cnstr_set(x_43, 1, x_42); -x_44 = l_Lean_Parser_Term_anonymousConstructor; -x_45 = l_Lean_Parser_Syntax_mkNode(x_44, x_43); -return x_45; +obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_33 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_11); +lean::cnstr_set(x_34, 1, x_33); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_32); +lean::cnstr_set(x_35, 1, x_34); +x_36 = l_Lean_Parser_Term_anonymousConstructor; +x_37 = l_Lean_Parser_Syntax_mkNode(x_36, x_35); +return x_37; } else { -obj* x_46; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; -x_46 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_48 = x_5; -} else { - lean::inc(x_46); - lean::dec(x_5); - x_48 = lean::box(0); -} -x_49 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_49, 0, x_46); -if (lean::is_scalar(x_48)) { - x_50 = lean::alloc_cnstr(1, 1, 0); -} else { - x_50 = x_48; -} -lean::cnstr_set(x_50, 0, x_49); -x_51 = l_Option_getOrElse___main___rarg(x_50, x_38); -lean::dec(x_50); -x_53 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_53, 0, x_51); -lean::cnstr_set(x_53, 1, x_12); -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_11); -lean::cnstr_set(x_54, 1, x_53); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_39); -lean::cnstr_set(x_55, 1, x_54); -x_56 = l_Lean_Parser_Term_anonymousConstructor; -x_57 = l_Lean_Parser_Syntax_mkNode(x_56, x_55); -return x_57; +obj* x_38; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_38 = lean::cnstr_get(x_5, 0); +lean::inc(x_38); +lean::dec(x_5); +x_41 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_41, 0, x_38); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_41); +lean::cnstr_set(x_42, 1, x_12); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_11); +lean::cnstr_set(x_43, 1, x_42); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_32); +lean::cnstr_set(x_44, 1, x_43); +x_45 = l_Lean_Parser_Term_anonymousConstructor; +x_46 = l_Lean_Parser_Syntax_mkNode(x_45, x_44); +return x_46; } } } @@ -15113,7 +14743,7 @@ x_14 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2 x_15 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_15, 0, x_12); lean::cnstr_set(x_15, 1, x_14); -x_16 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::box(3); x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_16); lean::cnstr_set(x_17, 1, x_15); @@ -15123,110 +14753,69 @@ return x_19; } else { -obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_20 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_22 = x_5; -} else { - lean::inc(x_20); - lean::dec(x_5); - x_22 = lean::box(0); -} +lean::inc(x_20); +lean::dec(x_5); x_23 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_23, 0, x_20); -if (lean::is_scalar(x_22)) { - x_24 = lean::alloc_cnstr(1, 1, 0); -} else { - x_24 = x_22; -} +x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); -x_25 = lean::box(3); -x_26 = l_Option_getOrElse___main___rarg(x_24, x_25); -lean::dec(x_24); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_26); -lean::cnstr_set(x_28, 1, x_13); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_12); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_30); -lean::cnstr_set(x_31, 1, x_29); -x_32 = l_Lean_Parser_Term_explicitBinder___closed__1; -x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); -return x_33; +lean::cnstr_set(x_24, 1, x_13); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_12); +lean::cnstr_set(x_25, 1, x_24); +x_26 = lean::box(3); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_25); +x_28 = l_Lean_Parser_Term_explicitBinder___closed__1; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } else { -obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; -x_34 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_36 = x_1; -} else { - lean::inc(x_34); - lean::dec(x_1); - x_36 = lean::box(0); -} -x_37 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_37, 0, x_34); -if (lean::is_scalar(x_36)) { - x_38 = lean::alloc_cnstr(1, 1, 0); -} else { - x_38 = x_36; -} -lean::cnstr_set(x_38, 0, x_37); -x_39 = lean::box(3); -x_40 = l_Option_getOrElse___main___rarg(x_38, x_39); -lean::dec(x_38); +obj* x_30; obj* x_33; +x_30 = lean::cnstr_get(x_1, 0); +lean::inc(x_30); +lean::dec(x_1); +x_33 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_33, 0, x_30); if (lean::obj_tag(x_5) == 0) { -obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; -x_42 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_12); -lean::cnstr_set(x_43, 1, x_42); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_40); -lean::cnstr_set(x_44, 1, x_43); -x_45 = l_Lean_Parser_Term_explicitBinder___closed__1; -x_46 = l_Lean_Parser_Syntax_mkNode(x_45, x_44); -return x_46; +obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_34 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_12); +lean::cnstr_set(x_35, 1, x_34); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_33); +lean::cnstr_set(x_36, 1, x_35); +x_37 = l_Lean_Parser_Term_explicitBinder___closed__1; +x_38 = l_Lean_Parser_Syntax_mkNode(x_37, x_36); +return x_38; } else { -obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; -x_47 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_49 = x_5; -} else { - lean::inc(x_47); - lean::dec(x_5); - x_49 = lean::box(0); -} -x_50 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_50, 0, x_47); -if (lean::is_scalar(x_49)) { - x_51 = lean::alloc_cnstr(1, 1, 0); -} else { - x_51 = x_49; -} -lean::cnstr_set(x_51, 0, x_50); -x_52 = l_Option_getOrElse___main___rarg(x_51, x_39); -lean::dec(x_51); -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_52); -lean::cnstr_set(x_54, 1, x_13); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_12); -lean::cnstr_set(x_55, 1, x_54); -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_40); -lean::cnstr_set(x_56, 1, x_55); -x_57 = l_Lean_Parser_Term_explicitBinder___closed__1; -x_58 = l_Lean_Parser_Syntax_mkNode(x_57, x_56); -return x_58; +obj* x_39; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; +x_39 = lean::cnstr_get(x_5, 0); +lean::inc(x_39); +lean::dec(x_5); +x_42 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_42, 0, x_39); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_13); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_12); +lean::cnstr_set(x_44, 1, x_43); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_33); +lean::cnstr_set(x_45, 1, x_44); +x_46 = l_Lean_Parser_Term_explicitBinder___closed__1; +x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); +return x_47; } } } @@ -15592,7 +15181,7 @@ x_14 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2 x_15 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_15, 0, x_12); lean::cnstr_set(x_15, 1, x_14); -x_16 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::box(3); x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_16); lean::cnstr_set(x_17, 1, x_15); @@ -15602,110 +15191,69 @@ return x_19; } else { -obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_20 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_22 = x_5; -} else { - lean::inc(x_20); - lean::dec(x_5); - x_22 = lean::box(0); -} +lean::inc(x_20); +lean::dec(x_5); x_23 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_23, 0, x_20); -if (lean::is_scalar(x_22)) { - x_24 = lean::alloc_cnstr(1, 1, 0); -} else { - x_24 = x_22; -} +x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); -x_25 = lean::box(3); -x_26 = l_Option_getOrElse___main___rarg(x_24, x_25); -lean::dec(x_24); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_26); -lean::cnstr_set(x_28, 1, x_13); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_12); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_30); -lean::cnstr_set(x_31, 1, x_29); -x_32 = l_Lean_Parser_Term_implicitBinder; -x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); -return x_33; +lean::cnstr_set(x_24, 1, x_13); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_12); +lean::cnstr_set(x_25, 1, x_24); +x_26 = lean::box(3); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_25); +x_28 = l_Lean_Parser_Term_implicitBinder; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } else { -obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; -x_34 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_36 = x_1; -} else { - lean::inc(x_34); - lean::dec(x_1); - x_36 = lean::box(0); -} -x_37 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_37, 0, x_34); -if (lean::is_scalar(x_36)) { - x_38 = lean::alloc_cnstr(1, 1, 0); -} else { - x_38 = x_36; -} -lean::cnstr_set(x_38, 0, x_37); -x_39 = lean::box(3); -x_40 = l_Option_getOrElse___main___rarg(x_38, x_39); -lean::dec(x_38); +obj* x_30; obj* x_33; +x_30 = lean::cnstr_get(x_1, 0); +lean::inc(x_30); +lean::dec(x_1); +x_33 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_33, 0, x_30); if (lean::obj_tag(x_5) == 0) { -obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; -x_42 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_12); -lean::cnstr_set(x_43, 1, x_42); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_40); -lean::cnstr_set(x_44, 1, x_43); -x_45 = l_Lean_Parser_Term_implicitBinder; -x_46 = l_Lean_Parser_Syntax_mkNode(x_45, x_44); -return x_46; +obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_34 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_12); +lean::cnstr_set(x_35, 1, x_34); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_33); +lean::cnstr_set(x_36, 1, x_35); +x_37 = l_Lean_Parser_Term_implicitBinder; +x_38 = l_Lean_Parser_Syntax_mkNode(x_37, x_36); +return x_38; } else { -obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; -x_47 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_49 = x_5; -} else { - lean::inc(x_47); - lean::dec(x_5); - x_49 = lean::box(0); -} -x_50 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_50, 0, x_47); -if (lean::is_scalar(x_49)) { - x_51 = lean::alloc_cnstr(1, 1, 0); -} else { - x_51 = x_49; -} -lean::cnstr_set(x_51, 0, x_50); -x_52 = l_Option_getOrElse___main___rarg(x_51, x_39); -lean::dec(x_51); -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_52); -lean::cnstr_set(x_54, 1, x_13); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_12); -lean::cnstr_set(x_55, 1, x_54); -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_40); -lean::cnstr_set(x_56, 1, x_55); -x_57 = l_Lean_Parser_Term_implicitBinder; -x_58 = l_Lean_Parser_Syntax_mkNode(x_57, x_56); -return x_58; +obj* x_39; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; +x_39 = lean::cnstr_get(x_5, 0); +lean::inc(x_39); +lean::dec(x_5); +x_42 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_42, 0, x_39); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_13); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_12); +lean::cnstr_set(x_44, 1, x_43); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_33); +lean::cnstr_set(x_45, 1, x_44); +x_46 = l_Lean_Parser_Term_implicitBinder; +x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); +return x_47; } } } @@ -16032,7 +15580,7 @@ x_14 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2 x_15 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_15, 0, x_12); lean::cnstr_set(x_15, 1, x_14); -x_16 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::box(3); x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_16); lean::cnstr_set(x_17, 1, x_15); @@ -16042,110 +15590,69 @@ return x_19; } else { -obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_20 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_22 = x_5; -} else { - lean::inc(x_20); - lean::dec(x_5); - x_22 = lean::box(0); -} +lean::inc(x_20); +lean::dec(x_5); x_23 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_23, 0, x_20); -if (lean::is_scalar(x_22)) { - x_24 = lean::alloc_cnstr(1, 1, 0); -} else { - x_24 = x_22; -} +x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); -x_25 = lean::box(3); -x_26 = l_Option_getOrElse___main___rarg(x_24, x_25); -lean::dec(x_24); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_26); -lean::cnstr_set(x_28, 1, x_13); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_12); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_30); -lean::cnstr_set(x_31, 1, x_29); -x_32 = l_Lean_Parser_Term_strictImplicitBinder; -x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); -return x_33; +lean::cnstr_set(x_24, 1, x_13); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_12); +lean::cnstr_set(x_25, 1, x_24); +x_26 = lean::box(3); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_25); +x_28 = l_Lean_Parser_Term_strictImplicitBinder; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } else { -obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; -x_34 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_36 = x_1; -} else { - lean::inc(x_34); - lean::dec(x_1); - x_36 = lean::box(0); -} -x_37 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_37, 0, x_34); -if (lean::is_scalar(x_36)) { - x_38 = lean::alloc_cnstr(1, 1, 0); -} else { - x_38 = x_36; -} -lean::cnstr_set(x_38, 0, x_37); -x_39 = lean::box(3); -x_40 = l_Option_getOrElse___main___rarg(x_38, x_39); -lean::dec(x_38); +obj* x_30; obj* x_33; +x_30 = lean::cnstr_get(x_1, 0); +lean::inc(x_30); +lean::dec(x_1); +x_33 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_33, 0, x_30); if (lean::obj_tag(x_5) == 0) { -obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; -x_42 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_12); -lean::cnstr_set(x_43, 1, x_42); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_40); -lean::cnstr_set(x_44, 1, x_43); -x_45 = l_Lean_Parser_Term_strictImplicitBinder; -x_46 = l_Lean_Parser_Syntax_mkNode(x_45, x_44); -return x_46; +obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_34 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_12); +lean::cnstr_set(x_35, 1, x_34); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_33); +lean::cnstr_set(x_36, 1, x_35); +x_37 = l_Lean_Parser_Term_strictImplicitBinder; +x_38 = l_Lean_Parser_Syntax_mkNode(x_37, x_36); +return x_38; } else { -obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; -x_47 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_49 = x_5; -} else { - lean::inc(x_47); - lean::dec(x_5); - x_49 = lean::box(0); -} -x_50 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_50, 0, x_47); -if (lean::is_scalar(x_49)) { - x_51 = lean::alloc_cnstr(1, 1, 0); -} else { - x_51 = x_49; -} -lean::cnstr_set(x_51, 0, x_50); -x_52 = l_Option_getOrElse___main___rarg(x_51, x_39); -lean::dec(x_51); -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_52); -lean::cnstr_set(x_54, 1, x_13); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_12); -lean::cnstr_set(x_55, 1, x_54); -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_40); -lean::cnstr_set(x_56, 1, x_55); -x_57 = l_Lean_Parser_Term_strictImplicitBinder; -x_58 = l_Lean_Parser_Syntax_mkNode(x_57, x_56); -return x_58; +obj* x_39; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; +x_39 = lean::cnstr_get(x_5, 0); +lean::inc(x_39); +lean::dec(x_5); +x_42 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_42, 0, x_39); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_13); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_12); +lean::cnstr_set(x_44, 1, x_43); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_33); +lean::cnstr_set(x_45, 1, x_44); +x_46 = l_Lean_Parser_Term_strictImplicitBinder; +x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); +return x_47; } } } @@ -16573,7 +16080,7 @@ lean::cnstr_set(x_10, 1, x_9); if (lean::obj_tag(x_3) == 0) { obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; -x_11 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_11 = lean::box(3); x_12 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_12, 0, x_11); lean::cnstr_set(x_12, 1, x_10); @@ -16586,35 +16093,21 @@ return x_15; } else { -obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; x_16 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_18 = x_3; -} else { - lean::inc(x_16); - lean::dec(x_3); - x_18 = lean::box(0); -} +lean::inc(x_16); +lean::dec(x_3); x_19 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_19, 0, x_16); -if (lean::is_scalar(x_18)) { - x_20 = lean::alloc_cnstr(1, 1, 0); -} else { - x_20 = x_18; -} +x_20 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_20, 0, x_19); -x_21 = lean::box(3); -x_22 = l_Option_getOrElse___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_10); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_8); -lean::cnstr_set(x_25, 1, x_24); -x_26 = l_Lean_Parser_Term_instImplicitNamedBinder; -x_27 = l_Lean_Parser_Syntax_mkNode(x_26, x_25); -return x_27; +lean::cnstr_set(x_20, 1, x_10); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_8); +lean::cnstr_set(x_21, 1, x_20); +x_22 = l_Lean_Parser_Term_instImplicitNamedBinder; +x_23 = l_Lean_Parser_Syntax_mkNode(x_22, x_21); +return x_23; } } } @@ -17339,7 +16832,7 @@ x_14 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2 x_15 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_15, 0, x_12); lean::cnstr_set(x_15, 1, x_14); -x_16 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::box(3); x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_16); lean::cnstr_set(x_17, 1, x_15); @@ -17349,110 +16842,69 @@ return x_19; } else { -obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_20 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_22 = x_5; -} else { - lean::inc(x_20); - lean::dec(x_5); - x_22 = lean::box(0); -} +lean::inc(x_20); +lean::dec(x_5); x_23 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_23, 0, x_20); -if (lean::is_scalar(x_22)) { - x_24 = lean::alloc_cnstr(1, 1, 0); -} else { - x_24 = x_22; -} +x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); -x_25 = lean::box(3); -x_26 = l_Option_getOrElse___main___rarg(x_24, x_25); -lean::dec(x_24); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_26); -lean::cnstr_set(x_28, 1, x_13); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_12); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_30); -lean::cnstr_set(x_31, 1, x_29); -x_32 = l_Lean_Parser_Term_instImplicitBinder; -x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); -return x_33; +lean::cnstr_set(x_24, 1, x_13); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_12); +lean::cnstr_set(x_25, 1, x_24); +x_26 = lean::box(3); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_25); +x_28 = l_Lean_Parser_Term_instImplicitBinder; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } else { -obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; -x_34 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_36 = x_1; -} else { - lean::inc(x_34); - lean::dec(x_1); - x_36 = lean::box(0); -} -x_37 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_37, 0, x_34); -if (lean::is_scalar(x_36)) { - x_38 = lean::alloc_cnstr(1, 1, 0); -} else { - x_38 = x_36; -} -lean::cnstr_set(x_38, 0, x_37); -x_39 = lean::box(3); -x_40 = l_Option_getOrElse___main___rarg(x_38, x_39); -lean::dec(x_38); +obj* x_30; obj* x_33; +x_30 = lean::cnstr_get(x_1, 0); +lean::inc(x_30); +lean::dec(x_1); +x_33 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_33, 0, x_30); if (lean::obj_tag(x_5) == 0) { -obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; -x_42 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_12); -lean::cnstr_set(x_43, 1, x_42); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_40); -lean::cnstr_set(x_44, 1, x_43); -x_45 = l_Lean_Parser_Term_instImplicitBinder; -x_46 = l_Lean_Parser_Syntax_mkNode(x_45, x_44); -return x_46; +obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_34 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_12); +lean::cnstr_set(x_35, 1, x_34); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_33); +lean::cnstr_set(x_36, 1, x_35); +x_37 = l_Lean_Parser_Term_instImplicitBinder; +x_38 = l_Lean_Parser_Syntax_mkNode(x_37, x_36); +return x_38; } else { -obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; -x_47 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_49 = x_5; -} else { - lean::inc(x_47); - lean::dec(x_5); - x_49 = lean::box(0); -} -x_50 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_50, 0, x_47); -if (lean::is_scalar(x_49)) { - x_51 = lean::alloc_cnstr(1, 1, 0); -} else { - x_51 = x_49; -} -lean::cnstr_set(x_51, 0, x_50); -x_52 = l_Option_getOrElse___main___rarg(x_51, x_39); -lean::dec(x_51); -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_52); -lean::cnstr_set(x_54, 1, x_13); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_12); -lean::cnstr_set(x_55, 1, x_54); -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_40); -lean::cnstr_set(x_56, 1, x_55); -x_57 = l_Lean_Parser_Term_instImplicitBinder; -x_58 = l_Lean_Parser_Syntax_mkNode(x_57, x_56); -return x_58; +obj* x_39; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; +x_39 = lean::cnstr_get(x_5, 0); +lean::inc(x_39); +lean::dec(x_5); +x_42 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_42, 0, x_39); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_13); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_12); +lean::cnstr_set(x_44, 1, x_43); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_33); +lean::cnstr_set(x_45, 1, x_44); +x_46 = l_Lean_Parser_Term_instImplicitBinder; +x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); +return x_47; } } } @@ -18561,84 +18013,85 @@ return x_56; obj* l_Lean_Parser_MonadParsec_longestMatch___at_Lean_Parser_Term_bracketedBinder_Parser_Lean_Parser_HasTokens___spec__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { -obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_13; +obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_12; obj* x_14; x_6 = lean::box(0); x_7 = l_Lean_Parser_MonadParsec_longestMatch___rarg___lambda__2___closed__1; x_8 = l_mjoin___rarg___closed__1; -x_9 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__12___rarg(x_7, x_8, x_6, x_6, x_4); lean::inc(x_4); -x_11 = l_List_mfoldr___main___at_Lean_Parser_Term_bracketedBinder_Parser_Lean_Parser_HasTokens___spec__5(x_4, x_9, x_0, x_1, x_2, x_3, x_4, x_5); +x_10 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__12___rarg(x_7, x_8, x_6, x_6, x_4); +lean::inc(x_4); +x_12 = l_List_mfoldr___main___at_Lean_Parser_Term_bracketedBinder_Parser_Lean_Parser_HasTokens___spec__5(x_4, x_10, x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_4); -x_13 = lean::cnstr_get(x_11, 0); -lean::inc(x_13); -if (lean::obj_tag(x_13) == 0) +x_14 = lean::cnstr_get(x_12, 0); +lean::inc(x_14); +if (lean::obj_tag(x_14) == 0) { -obj* x_15; obj* x_17; obj* x_18; obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; -x_15 = lean::cnstr_get(x_11, 1); -if (lean::is_exclusive(x_11)) { - lean::cnstr_release(x_11, 0); - x_17 = x_11; +obj* x_16; obj* x_18; obj* x_19; obj* x_21; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +x_16 = lean::cnstr_get(x_12, 1); +if (lean::is_exclusive(x_12)) { + lean::cnstr_release(x_12, 0); + x_18 = x_12; } else { - lean::inc(x_15); - lean::dec(x_11); - x_17 = lean::box(0); + lean::inc(x_16); + lean::dec(x_12); + x_18 = lean::box(0); } -x_18 = lean::cnstr_get(x_13, 0); -lean::inc(x_18); -x_20 = lean::cnstr_get(x_13, 2); -lean::inc(x_20); -lean::dec(x_13); -x_23 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_18); -x_24 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_25 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_24, x_23); -if (lean::is_scalar(x_17)) { - x_26 = lean::alloc_cnstr(0, 2, 0); +x_19 = lean::cnstr_get(x_14, 0); +lean::inc(x_19); +x_21 = lean::cnstr_get(x_14, 2); +lean::inc(x_21); +lean::dec(x_14); +x_24 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_19); +x_25 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_26 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_25, x_24); +if (lean::is_scalar(x_18)) { + x_27 = lean::alloc_cnstr(0, 2, 0); } else { - x_26 = x_17; + x_27 = x_18; } -lean::cnstr_set(x_26, 0, x_25); -lean::cnstr_set(x_26, 1, x_15); -return x_26; +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_16); +return x_27; } else { -obj* x_27; obj* x_29; obj* x_30; uint8 x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; -x_27 = lean::cnstr_get(x_11, 1); -if (lean::is_exclusive(x_11)) { - lean::cnstr_release(x_11, 0); - x_29 = x_11; +obj* x_28; obj* x_30; obj* x_31; uint8 x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; +x_28 = lean::cnstr_get(x_12, 1); +if (lean::is_exclusive(x_12)) { + lean::cnstr_release(x_12, 0); + x_30 = x_12; } else { - lean::inc(x_27); - lean::dec(x_11); - x_29 = lean::box(0); + lean::inc(x_28); + lean::dec(x_12); + x_30 = lean::box(0); } -x_30 = lean::cnstr_get(x_13, 0); -x_32 = lean::cnstr_get_scalar(x_13, sizeof(void*)*1); -if (lean::is_exclusive(x_13)) { - x_33 = x_13; +x_31 = lean::cnstr_get(x_14, 0); +x_33 = lean::cnstr_get_scalar(x_14, sizeof(void*)*1); +if (lean::is_exclusive(x_14)) { + x_34 = x_14; } else { - lean::inc(x_30); - lean::dec(x_13); - x_33 = lean::box(0); + lean::inc(x_31); + lean::dec(x_14); + x_34 = lean::box(0); } -if (lean::is_scalar(x_33)) { - x_34 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_34)) { + x_35 = lean::alloc_cnstr(1, 1, 1); } else { - x_34 = x_33; + x_35 = x_34; } -lean::cnstr_set(x_34, 0, x_30); -lean::cnstr_set_scalar(x_34, sizeof(void*)*1, x_32); -x_35 = x_34; -x_36 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_37 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_36, x_35); -if (lean::is_scalar(x_29)) { - x_38 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_35, 0, x_31); +lean::cnstr_set_scalar(x_35, sizeof(void*)*1, x_33); +x_36 = x_35; +x_37 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_38 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_37, x_36); +if (lean::is_scalar(x_30)) { + x_39 = lean::alloc_cnstr(0, 2, 0); } else { - x_38 = x_29; + x_39 = x_30; } -lean::cnstr_set(x_38, 0, x_37); -lean::cnstr_set(x_38, 1, x_27); -return x_38; +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_28); +return x_39; } } } @@ -18662,7 +18115,7 @@ x_15 = lean::cnstr_get(x_13, 0); lean::inc(x_15); if (lean::obj_tag(x_15) == 0) { -obj* x_17; obj* x_20; obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_33; obj* x_35; obj* x_37; obj* x_38; obj* x_39; +obj* x_17; obj* x_20; obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_32; obj* x_34; obj* x_36; obj* x_37; obj* x_38; x_17 = lean::cnstr_get(x_12, 1); lean::inc(x_17); lean::dec(x_12); @@ -18675,119 +18128,118 @@ x_25 = lean::box(0); x_26 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; x_27 = l_mjoin___rarg___closed__1; x_28 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__4___rarg(x_26, x_27, x_25, x_25, x_1, x_2, x_3, x_20, x_17); -lean::dec(x_20); lean::dec(x_3); lean::dec(x_2); lean::dec(x_1); -x_33 = lean::cnstr_get(x_28, 0); -x_35 = lean::cnstr_get(x_28, 1); +x_32 = lean::cnstr_get(x_28, 0); +x_34 = lean::cnstr_get(x_28, 1); if (lean::is_exclusive(x_28)) { - x_37 = x_28; + x_36 = x_28; } else { - lean::inc(x_33); - lean::inc(x_35); + lean::inc(x_32); + lean::inc(x_34); lean::dec(x_28); - x_37 = lean::box(0); + x_36 = lean::box(0); } -x_38 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_33); -if (lean::is_scalar(x_37)) { - x_39 = lean::alloc_cnstr(0, 2, 0); +x_37 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_32); +if (lean::is_scalar(x_36)) { + x_38 = lean::alloc_cnstr(0, 2, 0); } else { - x_39 = x_37; + x_38 = x_36; } -lean::cnstr_set(x_39, 0, x_38); -lean::cnstr_set(x_39, 1, x_35); -return x_39; +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_34); +return x_38; } else { -obj* x_43; obj* x_45; obj* x_46; obj* x_48; obj* x_50; obj* x_51; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +obj* x_42; obj* x_44; obj* x_45; obj* x_47; obj* x_49; obj* x_50; obj* x_53; obj* x_54; obj* x_55; obj* x_56; lean::dec(x_1); lean::dec(x_3); lean::dec(x_2); -x_43 = lean::cnstr_get(x_12, 1); +x_42 = lean::cnstr_get(x_12, 1); if (lean::is_exclusive(x_12)) { lean::cnstr_release(x_12, 0); - x_45 = x_12; + x_44 = x_12; } else { - lean::inc(x_43); + lean::inc(x_42); lean::dec(x_12); - x_45 = lean::box(0); + x_44 = lean::box(0); } -x_46 = lean::cnstr_get(x_13, 1); -x_48 = lean::cnstr_get(x_13, 2); +x_45 = lean::cnstr_get(x_13, 1); +x_47 = lean::cnstr_get(x_13, 2); if (lean::is_exclusive(x_13)) { lean::cnstr_release(x_13, 0); - x_50 = x_13; + x_49 = x_13; } else { - lean::inc(x_46); - lean::inc(x_48); + lean::inc(x_45); + lean::inc(x_47); lean::dec(x_13); - x_50 = lean::box(0); + x_49 = lean::box(0); } -x_51 = lean::cnstr_get(x_15, 0); -lean::inc(x_51); +x_50 = lean::cnstr_get(x_15, 0); +lean::inc(x_50); lean::dec(x_15); -x_54 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_50)) { - x_55 = lean::alloc_cnstr(0, 3, 0); +x_53 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_49)) { + x_54 = lean::alloc_cnstr(0, 3, 0); } else { - x_55 = x_50; + x_54 = x_49; } -lean::cnstr_set(x_55, 0, x_51); -lean::cnstr_set(x_55, 1, x_46); -lean::cnstr_set(x_55, 2, x_54); -x_56 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_48, x_55); -if (lean::is_scalar(x_45)) { - x_57 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_54, 0, x_50); +lean::cnstr_set(x_54, 1, x_45); +lean::cnstr_set(x_54, 2, x_53); +x_55 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_47, x_54); +if (lean::is_scalar(x_44)) { + x_56 = lean::alloc_cnstr(0, 2, 0); } else { - x_57 = x_45; + x_56 = x_44; } -lean::cnstr_set(x_57, 0, x_56); -lean::cnstr_set(x_57, 1, x_43); -return x_57; +lean::cnstr_set(x_56, 0, x_55); +lean::cnstr_set(x_56, 1, x_42); +return x_56; } } else { -obj* x_61; obj* x_63; obj* x_64; uint8 x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; +obj* x_60; obj* x_62; obj* x_63; uint8 x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; lean::dec(x_1); lean::dec(x_3); lean::dec(x_2); -x_61 = lean::cnstr_get(x_12, 1); +x_60 = lean::cnstr_get(x_12, 1); if (lean::is_exclusive(x_12)) { lean::cnstr_release(x_12, 0); - x_63 = x_12; + x_62 = x_12; } else { - lean::inc(x_61); + lean::inc(x_60); lean::dec(x_12); - x_63 = lean::box(0); + x_62 = lean::box(0); } -x_64 = lean::cnstr_get(x_13, 0); -x_66 = lean::cnstr_get_scalar(x_13, sizeof(void*)*1); +x_63 = lean::cnstr_get(x_13, 0); +x_65 = lean::cnstr_get_scalar(x_13, sizeof(void*)*1); if (lean::is_exclusive(x_13)) { - x_67 = x_13; + x_66 = x_13; } else { - lean::inc(x_64); + lean::inc(x_63); lean::dec(x_13); - x_67 = lean::box(0); + x_66 = lean::box(0); } -if (lean::is_scalar(x_67)) { - x_68 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_66)) { + x_67 = lean::alloc_cnstr(1, 1, 1); } else { - x_68 = x_67; + x_67 = x_66; } -lean::cnstr_set(x_68, 0, x_64); -lean::cnstr_set_scalar(x_68, sizeof(void*)*1, x_66); -x_69 = x_68; -if (lean::is_scalar(x_63)) { - x_70 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_67, 0, x_63); +lean::cnstr_set_scalar(x_67, sizeof(void*)*1, x_65); +x_68 = x_67; +if (lean::is_scalar(x_62)) { + x_69 = lean::alloc_cnstr(0, 2, 0); } else { - x_70 = x_63; + x_69 = x_62; } -lean::cnstr_set(x_70, 0, x_69); -lean::cnstr_set(x_70, 1, x_61); -return x_70; +lean::cnstr_set(x_69, 0, x_68); +lean::cnstr_set(x_69, 1, x_60); +return x_69; } } } @@ -19887,7 +19339,7 @@ lean::cnstr_set(x_7, 1, x_6); if (lean::obj_tag(x_1) == 0) { obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_8 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_8 = lean::box(3); x_9 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_9, 0, x_8); lean::cnstr_set(x_9, 1, x_7); @@ -19897,32 +19349,18 @@ return x_11; } else { -obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; x_12 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_14 = x_1; -} else { - lean::inc(x_12); - lean::dec(x_1); - x_14 = lean::box(0); -} +lean::inc(x_12); +lean::dec(x_1); x_15 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_15, 0, x_12); -if (lean::is_scalar(x_14)) { - x_16 = lean::alloc_cnstr(1, 1, 0); -} else { - x_16 = x_14; -} +x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); -x_17 = lean::box(3); -x_18 = l_Option_getOrElse___main___rarg(x_16, x_17); -lean::dec(x_16); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_18); -lean::cnstr_set(x_20, 1, x_7); -x_21 = l_Lean_Parser_Term_bindersTypes; -x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); -return x_22; +lean::cnstr_set(x_16, 1, x_7); +x_17 = l_Lean_Parser_Term_bindersTypes; +x_18 = l_Lean_Parser_Syntax_mkNode(x_17, x_16); +return x_18; } } } @@ -22648,7 +22086,7 @@ lean::cnstr_set(x_16, 1, x_15); if (lean::obj_tag(x_5) == 0) { obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; -x_17 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_17 = lean::box(3); x_18 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_18, 0, x_17); lean::cnstr_set(x_18, 1, x_16); @@ -22664,38 +22102,24 @@ return x_22; } else { -obj* x_23; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; +obj* x_23; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; x_23 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_25 = x_5; -} else { - lean::inc(x_23); - lean::dec(x_5); - x_25 = lean::box(0); -} +lean::inc(x_23); +lean::dec(x_5); x_26 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_26, 0, x_23); -if (lean::is_scalar(x_25)) { - x_27 = lean::alloc_cnstr(1, 1, 0); -} else { - x_27 = x_25; -} +x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); -x_28 = lean::box(3); -x_29 = l_Option_getOrElse___main___rarg(x_27, x_28); -lean::dec(x_27); -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_29); -lean::cnstr_set(x_31, 1, x_16); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_14); -lean::cnstr_set(x_32, 1, x_31); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_1); -lean::cnstr_set(x_33, 1, x_32); -x_34 = l_Lean_Parser_Term_lambda; -x_35 = l_Lean_Parser_Syntax_mkNode(x_34, x_33); -return x_35; +lean::cnstr_set(x_27, 1, x_16); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_14); +lean::cnstr_set(x_28, 1, x_27); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_1); +lean::cnstr_set(x_29, 1, x_28); +x_30 = l_Lean_Parser_Term_lambda; +x_31 = l_Lean_Parser_Syntax_mkNode(x_30, x_29); +return x_31; } } } @@ -23086,7 +22510,7 @@ lean::cnstr_set(x_7, 1, x_6); if (lean::obj_tag(x_1) == 0) { obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_8 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_8 = lean::box(3); x_9 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_9, 0, x_8); lean::cnstr_set(x_9, 1, x_7); @@ -23096,32 +22520,18 @@ return x_11; } else { -obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; x_12 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_14 = x_1; -} else { - lean::inc(x_12); - lean::dec(x_1); - x_14 = lean::box(0); -} +lean::inc(x_12); +lean::dec(x_1); x_15 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_15, 0, x_12); -if (lean::is_scalar(x_14)) { - x_16 = lean::alloc_cnstr(1, 1, 0); -} else { - x_16 = x_14; -} +x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); -x_17 = lean::box(3); -x_18 = l_Option_getOrElse___main___rarg(x_16, x_17); -lean::dec(x_16); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_18); -lean::cnstr_set(x_20, 1, x_7); -x_21 = l_Lean_Parser_Term_assumeAnonymous; -x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); -return x_22; +lean::cnstr_set(x_16, 1, x_7); +x_17 = l_Lean_Parser_Term_assumeAnonymous; +x_18 = l_Lean_Parser_Syntax_mkNode(x_17, x_16); +return x_18; } } } @@ -23753,7 +23163,7 @@ if (lean::obj_tag(x_1) == 0) if (lean::obj_tag(x_5) == 0) { obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; -x_17 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_17 = lean::box(3); x_18 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_18, 0, x_17); lean::cnstr_set(x_18, 1, x_16); @@ -23769,113 +23179,72 @@ return x_22; } else { -obj* x_23; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; +obj* x_23; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; x_23 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_25 = x_5; -} else { - lean::inc(x_23); - lean::dec(x_5); - x_25 = lean::box(0); -} +lean::inc(x_23); +lean::dec(x_5); x_26 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_26, 0, x_23); -if (lean::is_scalar(x_25)) { - x_27 = lean::alloc_cnstr(1, 1, 0); -} else { - x_27 = x_25; -} +x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); -x_28 = lean::box(3); -x_29 = l_Option_getOrElse___main___rarg(x_27, x_28); -lean::dec(x_27); -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_29); -lean::cnstr_set(x_31, 1, x_16); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_14); -lean::cnstr_set(x_32, 1, x_31); -x_33 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_33); -lean::cnstr_set(x_34, 1, x_32); -x_35 = l_Lean_Parser_Term_assume; -x_36 = l_Lean_Parser_Syntax_mkNode(x_35, x_34); -return x_36; +lean::cnstr_set(x_27, 1, x_16); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_14); +lean::cnstr_set(x_28, 1, x_27); +x_29 = lean::box(3); +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_29); +lean::cnstr_set(x_30, 1, x_28); +x_31 = l_Lean_Parser_Term_assume; +x_32 = l_Lean_Parser_Syntax_mkNode(x_31, x_30); +return x_32; } } else { -obj* x_37; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; -x_37 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_39 = x_1; -} else { - lean::inc(x_37); - lean::dec(x_1); - x_39 = lean::box(0); -} -x_40 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_40, 0, x_37); -if (lean::is_scalar(x_39)) { - x_41 = lean::alloc_cnstr(1, 1, 0); -} else { - x_41 = x_39; -} -lean::cnstr_set(x_41, 0, x_40); -x_42 = lean::box(3); -x_43 = l_Option_getOrElse___main___rarg(x_41, x_42); -lean::dec(x_41); +obj* x_33; obj* x_36; +x_33 = lean::cnstr_get(x_1, 0); +lean::inc(x_33); +lean::dec(x_1); +x_36 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_36, 0, x_33); if (lean::obj_tag(x_5) == 0) { -obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; -x_45 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_46 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_46, 0, x_45); -lean::cnstr_set(x_46, 1, x_16); -x_47 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_47, 0, x_14); -lean::cnstr_set(x_47, 1, x_46); -x_48 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_48, 0, x_43); -lean::cnstr_set(x_48, 1, x_47); -x_49 = l_Lean_Parser_Term_assume; -x_50 = l_Lean_Parser_Syntax_mkNode(x_49, x_48); -return x_50; +obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; +x_37 = lean::box(3); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_16); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_14); +lean::cnstr_set(x_39, 1, x_38); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_36); +lean::cnstr_set(x_40, 1, x_39); +x_41 = l_Lean_Parser_Term_assume; +x_42 = l_Lean_Parser_Syntax_mkNode(x_41, x_40); +return x_42; } else { -obj* x_51; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; -x_51 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_53 = x_5; -} else { - lean::inc(x_51); - lean::dec(x_5); - x_53 = lean::box(0); -} -x_54 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_54, 0, x_51); -if (lean::is_scalar(x_53)) { - x_55 = lean::alloc_cnstr(1, 1, 0); -} else { - x_55 = x_53; -} -lean::cnstr_set(x_55, 0, x_54); -x_56 = l_Option_getOrElse___main___rarg(x_55, x_42); -lean::dec(x_55); -x_58 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_58, 0, x_56); -lean::cnstr_set(x_58, 1, x_16); -x_59 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_59, 0, x_14); -lean::cnstr_set(x_59, 1, x_58); -x_60 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_60, 0, x_43); -lean::cnstr_set(x_60, 1, x_59); -x_61 = l_Lean_Parser_Term_assume; -x_62 = l_Lean_Parser_Syntax_mkNode(x_61, x_60); -return x_62; +obj* x_43; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_43 = lean::cnstr_get(x_5, 0); +lean::inc(x_43); +lean::dec(x_5); +x_46 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_46, 0, x_43); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_46); +lean::cnstr_set(x_47, 1, x_16); +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_14); +lean::cnstr_set(x_48, 1, x_47); +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_36); +lean::cnstr_set(x_49, 1, x_48); +x_50 = l_Lean_Parser_Term_assume; +x_51 = l_Lean_Parser_Syntax_mkNode(x_50, x_49); +return x_51; } } } @@ -24397,7 +23766,7 @@ lean::cnstr_set(x_16, 1, x_15); if (lean::obj_tag(x_5) == 0) { obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; -x_17 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_17 = lean::box(3); x_18 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_18, 0, x_17); lean::cnstr_set(x_18, 1, x_16); @@ -24413,38 +23782,24 @@ return x_22; } else { -obj* x_23; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; +obj* x_23; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; x_23 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_25 = x_5; -} else { - lean::inc(x_23); - lean::dec(x_5); - x_25 = lean::box(0); -} +lean::inc(x_23); +lean::dec(x_5); x_26 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_26, 0, x_23); -if (lean::is_scalar(x_25)) { - x_27 = lean::alloc_cnstr(1, 1, 0); -} else { - x_27 = x_25; -} +x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); -x_28 = lean::box(3); -x_29 = l_Option_getOrElse___main___rarg(x_27, x_28); -lean::dec(x_27); -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_29); -lean::cnstr_set(x_31, 1, x_16); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_14); -lean::cnstr_set(x_32, 1, x_31); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_1); -lean::cnstr_set(x_33, 1, x_32); -x_34 = l_Lean_Parser_Term_pi; -x_35 = l_Lean_Parser_Syntax_mkNode(x_34, x_33); -return x_35; +lean::cnstr_set(x_27, 1, x_16); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_14); +lean::cnstr_set(x_28, 1, x_27); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_1); +lean::cnstr_set(x_29, 1, x_28); +x_30 = l_Lean_Parser_Term_pi; +x_31 = l_Lean_Parser_Syntax_mkNode(x_30, x_29); +return x_31; } } } @@ -24941,47 +24296,43 @@ return x_89; obj* _init_l_Lean_Parser_Term_explicitModifier_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(0ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_Term_explicitModifier; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_Term_explicitModifier; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_Term_explicitModifier_HasView_x_27___lambda__2___closed__2() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(1ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_Term_explicitModifier; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_Term_explicitModifier; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* l_Lean_Parser_Term_explicitModifier_HasView_x_27___lambda__2(obj* x_0) { @@ -25003,84 +24354,56 @@ return x_5; } else { -obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +obj* x_6; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; x_6 = lean::cnstr_get(x_2, 0); -if (lean::is_exclusive(x_2)) { - x_8 = x_2; -} else { - lean::inc(x_6); - lean::dec(x_2); - x_8 = lean::box(0); -} +lean::inc(x_6); +lean::dec(x_2); x_9 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_9, 0, x_6); -if (lean::is_scalar(x_8)) { - x_10 = lean::alloc_cnstr(1, 1, 0); -} else { - x_10 = x_8; -} +x_10 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_10, 0, x_9); -x_11 = lean::box(3); -x_12 = l_Option_getOrElse___main___rarg(x_10, x_11); -lean::dec(x_10); -x_14 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_14, 0, x_12); -lean::cnstr_set(x_14, 1, x_1); -x_15 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; -x_16 = l_Lean_Parser_Syntax_mkNode(x_15, x_14); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_16); -lean::cnstr_set(x_17, 1, x_1); -x_18 = l_Lean_Parser_Term_explicitModifier; -x_19 = l_Lean_Parser_Syntax_mkNode(x_18, x_17); +lean::cnstr_set(x_10, 1, x_1); +x_11 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; +x_12 = l_Lean_Parser_Syntax_mkNode(x_11, x_10); +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_1); +x_14 = l_Lean_Parser_Term_explicitModifier; +x_15 = l_Lean_Parser_Syntax_mkNode(x_14, x_13); +return x_15; +} +} +else +{ +obj* x_16; +x_16 = lean::cnstr_get(x_0, 0); +lean::inc(x_16); +lean::dec(x_0); +if (lean::obj_tag(x_16) == 0) +{ +obj* x_19; +x_19 = l_Lean_Parser_Term_explicitModifier_HasView_x_27___lambda__2___closed__2; return x_19; } -} else { -obj* x_20; -x_20 = lean::cnstr_get(x_0, 0); +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +x_20 = lean::cnstr_get(x_16, 0); lean::inc(x_20); -lean::dec(x_0); -if (lean::obj_tag(x_20) == 0) -{ -obj* x_23; -x_23 = l_Lean_Parser_Term_explicitModifier_HasView_x_27___lambda__2___closed__2; -return x_23; -} -else -{ -obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; -x_24 = lean::cnstr_get(x_20, 0); -if (lean::is_exclusive(x_20)) { - x_26 = x_20; -} else { - lean::inc(x_24); - lean::dec(x_20); - x_26 = lean::box(0); -} -x_27 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_27, 0, x_24); -if (lean::is_scalar(x_26)) { - x_28 = lean::alloc_cnstr(1, 1, 0); -} else { - x_28 = x_26; -} -lean::cnstr_set(x_28, 0, x_27); -x_29 = lean::box(3); -x_30 = l_Option_getOrElse___main___rarg(x_28, x_29); -lean::dec(x_28); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_30); -lean::cnstr_set(x_32, 1, x_1); -x_33 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; -x_34 = l_Lean_Parser_Syntax_mkNode(x_33, x_32); -x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_34); -lean::cnstr_set(x_35, 1, x_1); -x_36 = l_Lean_Parser_Term_explicitModifier; -x_37 = l_Lean_Parser_Syntax_mkNode(x_36, x_35); -return x_37; +lean::dec(x_16); +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_23); +lean::cnstr_set(x_24, 1, x_1); +x_25 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; +x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_1); +x_28 = l_Lean_Parser_Term_explicitModifier; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } } @@ -25656,7 +24979,7 @@ lean::cnstr_set(x_7, 1, x_6); if (lean::obj_tag(x_1) == 0) { obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_8 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_8 = lean::box(3); x_9 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_9, 0, x_8); lean::cnstr_set(x_9, 1, x_7); @@ -25666,32 +24989,18 @@ return x_11; } else { -obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; x_12 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_14 = x_1; -} else { - lean::inc(x_12); - lean::dec(x_1); - x_14 = lean::box(0); -} +lean::inc(x_12); +lean::dec(x_1); x_15 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_15, 0, x_12); -if (lean::is_scalar(x_14)) { - x_16 = lean::alloc_cnstr(1, 1, 0); -} else { - x_16 = x_14; -} +x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); -x_17 = lean::box(3); -x_18 = l_Option_getOrElse___main___rarg(x_16, x_17); -lean::dec(x_16); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_18); -lean::cnstr_set(x_20, 1, x_7); -x_21 = l_Lean_Parser_Term_from; -x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); -return x_22; +lean::cnstr_set(x_16, 1, x_7); +x_17 = l_Lean_Parser_Term_from; +x_18 = l_Lean_Parser_Syntax_mkNode(x_17, x_16); +return x_18; } } } @@ -27250,7 +26559,7 @@ return x_110; obj* l_Lean_Parser_Term_let_HasView_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_18; obj* x_19; obj* x_20; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -27279,254 +26588,237 @@ if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_9) == 0) { -obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; -x_24 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; +x_21 = lean::box(3); +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_21); +lean::cnstr_set(x_22, 1, x_20); +x_23 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_23, 0, x_7); +lean::cnstr_set(x_23, 1, x_22); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_21); +lean::cnstr_set(x_24, 1, x_23); x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_24); -lean::cnstr_set(x_25, 1, x_20); +lean::cnstr_set(x_25, 0, x_18); +lean::cnstr_set(x_25, 1, x_24); x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_7); +lean::cnstr_set(x_26, 0, x_21); lean::cnstr_set(x_26, 1, x_25); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_24); -lean::cnstr_set(x_27, 1, x_26); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_18); -lean::cnstr_set(x_28, 1, x_27); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_24); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_Lean_Parser_Term_let; -x_31 = l_Lean_Parser_Syntax_mkNode(x_30, x_29); -return x_31; +x_27 = l_Lean_Parser_Term_let; +x_28 = l_Lean_Parser_Syntax_mkNode(x_27, x_26); +return x_28; } else { -obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; -x_32 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_34 = x_9; -} else { - lean::inc(x_32); - lean::dec(x_9); - x_34 = lean::box(0); -} -x_35 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_35, 0, x_32); -if (lean::is_scalar(x_34)) { - x_36 = lean::alloc_cnstr(1, 1, 0); -} else { - x_36 = x_34; -} +obj* x_29; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_29 = lean::cnstr_get(x_9, 0); +lean::inc(x_29); +lean::dec(x_9); +x_32 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_32, 0, x_29); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_20); +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_7); +lean::cnstr_set(x_34, 1, x_33); +x_35 = lean::box(3); +x_36 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_36, 0, x_35); -x_37 = lean::box(3); -x_38 = l_Option_getOrElse___main___rarg(x_36, x_37); -lean::dec(x_36); -x_40 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_40, 0, x_38); -lean::cnstr_set(x_40, 1, x_20); -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_7); -lean::cnstr_set(x_41, 1, x_40); -x_42 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_42); -lean::cnstr_set(x_43, 1, x_41); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_18); -lean::cnstr_set(x_44, 1, x_43); -x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_42); -lean::cnstr_set(x_45, 1, x_44); -x_46 = l_Lean_Parser_Term_let; -x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); -return x_47; +lean::cnstr_set(x_36, 1, x_34); +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_18); +lean::cnstr_set(x_37, 1, x_36); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_35); +lean::cnstr_set(x_38, 1, x_37); +x_39 = l_Lean_Parser_Term_let; +x_40 = l_Lean_Parser_Syntax_mkNode(x_39, x_38); +return x_40; } } else { -obj* x_48; obj* x_51; -x_48 = lean::cnstr_get(x_5, 0); -lean::inc(x_48); +obj* x_41; obj* x_44; +x_41 = lean::cnstr_get(x_5, 0); +lean::inc(x_41); lean::dec(x_5); -x_51 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_21 = x_51; -x_22 = x_48; -goto lbl_23; +x_44 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_44, 0, x_41); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; +x_45 = lean::box(3); +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_45); +lean::cnstr_set(x_46, 1, x_20); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_7); +lean::cnstr_set(x_47, 1, x_46); +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_44); +lean::cnstr_set(x_48, 1, x_47); +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_18); +lean::cnstr_set(x_49, 1, x_48); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_45); +lean::cnstr_set(x_50, 1, x_49); +x_51 = l_Lean_Parser_Term_let; +x_52 = l_Lean_Parser_Syntax_mkNode(x_51, x_50); +return x_52; +} +else +{ +obj* x_53; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; +x_53 = lean::cnstr_get(x_9, 0); +lean::inc(x_53); +lean::dec(x_9); +x_56 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_56, 0, x_53); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_20); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_7); +lean::cnstr_set(x_58, 1, x_57); +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_44); +lean::cnstr_set(x_59, 1, x_58); +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_18); +lean::cnstr_set(x_60, 1, x_59); +x_61 = lean::box(3); +x_62 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_62, 0, x_61); +lean::cnstr_set(x_62, 1, x_60); +x_63 = l_Lean_Parser_Term_let; +x_64 = l_Lean_Parser_Syntax_mkNode(x_63, x_62); +return x_64; +} } } else { -obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; -x_52 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_54 = x_1; -} else { - lean::inc(x_52); - lean::dec(x_1); - x_54 = lean::box(0); -} -x_55 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_55, 0, x_52); -if (lean::is_scalar(x_54)) { - x_56 = lean::alloc_cnstr(1, 1, 0); -} else { - x_56 = x_54; -} -lean::cnstr_set(x_56, 0, x_55); -x_57 = lean::box(3); -x_58 = l_Option_getOrElse___main___rarg(x_56, x_57); -lean::dec(x_56); +obj* x_65; obj* x_68; +x_65 = lean::cnstr_get(x_1, 0); +lean::inc(x_65); +lean::dec(x_1); +x_68 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_68, 0, x_65); if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_9) == 0) { -obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; -x_60 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_61 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_61, 0, x_60); -lean::cnstr_set(x_61, 1, x_20); -x_62 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_62, 0, x_7); -lean::cnstr_set(x_62, 1, x_61); -x_63 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_63, 0, x_60); -lean::cnstr_set(x_63, 1, x_62); -x_64 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_64, 0, x_18); -lean::cnstr_set(x_64, 1, x_63); -x_65 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_65, 0, x_58); -lean::cnstr_set(x_65, 1, x_64); -x_66 = l_Lean_Parser_Term_let; -x_67 = l_Lean_Parser_Syntax_mkNode(x_66, x_65); -return x_67; +obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; +x_69 = lean::box(3); +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_69); +lean::cnstr_set(x_70, 1, x_20); +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_7); +lean::cnstr_set(x_71, 1, x_70); +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_69); +lean::cnstr_set(x_72, 1, x_71); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_18); +lean::cnstr_set(x_73, 1, x_72); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_68); +lean::cnstr_set(x_74, 1, x_73); +x_75 = l_Lean_Parser_Term_let; +x_76 = l_Lean_Parser_Syntax_mkNode(x_75, x_74); +return x_76; } else { -obj* x_68; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; -x_68 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_70 = x_9; -} else { - lean::inc(x_68); - lean::dec(x_9); - x_70 = lean::box(0); -} -x_71 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_71, 0, x_68); -if (lean::is_scalar(x_70)) { - x_72 = lean::alloc_cnstr(1, 1, 0); -} else { - x_72 = x_70; -} -lean::cnstr_set(x_72, 0, x_71); -x_73 = l_Option_getOrElse___main___rarg(x_72, x_57); -lean::dec(x_72); -x_75 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_75, 0, x_73); -lean::cnstr_set(x_75, 1, x_20); -x_76 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_76, 0, x_7); -lean::cnstr_set(x_76, 1, x_75); -x_77 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_78 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_78, 0, x_77); -lean::cnstr_set(x_78, 1, x_76); -x_79 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_79, 0, x_18); -lean::cnstr_set(x_79, 1, x_78); -x_80 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_80, 0, x_58); -lean::cnstr_set(x_80, 1, x_79); -x_81 = l_Lean_Parser_Term_let; -x_82 = l_Lean_Parser_Syntax_mkNode(x_81, x_80); -return x_82; +obj* x_77; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; +x_77 = lean::cnstr_get(x_9, 0); +lean::inc(x_77); +lean::dec(x_9); +x_80 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_80, 0, x_77); +x_81 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_81, 0, x_80); +lean::cnstr_set(x_81, 1, x_20); +x_82 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_82, 0, x_7); +lean::cnstr_set(x_82, 1, x_81); +x_83 = lean::box(3); +x_84 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_84, 0, x_83); +lean::cnstr_set(x_84, 1, x_82); +x_85 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_85, 0, x_18); +lean::cnstr_set(x_85, 1, x_84); +x_86 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_86, 0, x_68); +lean::cnstr_set(x_86, 1, x_85); +x_87 = l_Lean_Parser_Term_let; +x_88 = l_Lean_Parser_Syntax_mkNode(x_87, x_86); +return x_88; } } else { -obj* x_83; -x_83 = lean::cnstr_get(x_5, 0); -lean::inc(x_83); +obj* x_89; obj* x_92; +x_89 = lean::cnstr_get(x_5, 0); +lean::inc(x_89); lean::dec(x_5); -x_21 = x_58; -x_22 = x_83; -goto lbl_23; -} -} -lbl_23: -{ -obj* x_86; obj* x_87; obj* x_88; obj* x_89; -x_86 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_86, 0, x_22); -x_87 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_87, 0, x_86); -x_88 = lean::box(3); -x_89 = l_Option_getOrElse___main___rarg(x_87, x_88); -lean::dec(x_87); +x_92 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_92, 0, x_89); if (lean::obj_tag(x_9) == 0) { -obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; -x_91 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_92 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_92, 0, x_91); -lean::cnstr_set(x_92, 1, x_20); -x_93 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_93, 0, x_7); -lean::cnstr_set(x_93, 1, x_92); +obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; +x_93 = lean::box(3); x_94 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_94, 0, x_89); -lean::cnstr_set(x_94, 1, x_93); +lean::cnstr_set(x_94, 0, x_93); +lean::cnstr_set(x_94, 1, x_20); x_95 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_95, 0, x_18); +lean::cnstr_set(x_95, 0, x_7); lean::cnstr_set(x_95, 1, x_94); x_96 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_96, 0, x_21); +lean::cnstr_set(x_96, 0, x_92); lean::cnstr_set(x_96, 1, x_95); -x_97 = l_Lean_Parser_Term_let; -x_98 = l_Lean_Parser_Syntax_mkNode(x_97, x_96); -return x_98; +x_97 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_97, 0, x_18); +lean::cnstr_set(x_97, 1, x_96); +x_98 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_98, 0, x_68); +lean::cnstr_set(x_98, 1, x_97); +x_99 = l_Lean_Parser_Term_let; +x_100 = l_Lean_Parser_Syntax_mkNode(x_99, x_98); +return x_100; } else { -obj* x_99; obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; -x_99 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_101 = x_9; -} else { - lean::inc(x_99); - lean::dec(x_9); - x_101 = lean::box(0); -} -x_102 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_102, 0, x_99); -if (lean::is_scalar(x_101)) { - x_103 = lean::alloc_cnstr(1, 1, 0); -} else { - x_103 = x_101; -} -lean::cnstr_set(x_103, 0, x_102); -x_104 = l_Option_getOrElse___main___rarg(x_103, x_88); -lean::dec(x_103); +obj* x_101; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; +x_101 = lean::cnstr_get(x_9, 0); +lean::inc(x_101); +lean::dec(x_9); +x_104 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_104, 0, x_101); +x_105 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_105, 0, x_104); +lean::cnstr_set(x_105, 1, x_20); x_106 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_106, 0, x_104); -lean::cnstr_set(x_106, 1, x_20); +lean::cnstr_set(x_106, 0, x_7); +lean::cnstr_set(x_106, 1, x_105); x_107 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_107, 0, x_7); +lean::cnstr_set(x_107, 0, x_92); lean::cnstr_set(x_107, 1, x_106); x_108 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_108, 0, x_89); +lean::cnstr_set(x_108, 0, x_18); lean::cnstr_set(x_108, 1, x_107); x_109 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_109, 0, x_18); +lean::cnstr_set(x_109, 0, x_68); lean::cnstr_set(x_109, 1, x_108); -x_110 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_110, 0, x_21); -lean::cnstr_set(x_110, 1, x_109); -x_111 = l_Lean_Parser_Term_let; -x_112 = l_Lean_Parser_Syntax_mkNode(x_111, x_110); -return x_112; +x_110 = l_Lean_Parser_Term_let; +x_111 = l_Lean_Parser_Syntax_mkNode(x_110, x_109); +return x_111; +} } } } @@ -28060,36 +27352,22 @@ return x_10; } else { -obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; obj* x_23; +obj* x_11; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; x_11 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_13 = x_3; -} else { - lean::inc(x_11); - lean::dec(x_3); - x_13 = lean::box(0); -} +lean::inc(x_11); +lean::dec(x_3); x_14 = lean::box(0); x_15 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_15, 0, x_11); -if (lean::is_scalar(x_13)) { - x_16 = lean::alloc_cnstr(1, 1, 0); -} else { - x_16 = x_13; -} +x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); -x_17 = lean::box(3); -x_18 = l_Option_getOrElse___main___rarg(x_16, x_17); -lean::dec(x_16); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_18); -lean::cnstr_set(x_20, 1, x_14); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_6); -lean::cnstr_set(x_21, 1, x_20); -x_22 = l_Lean_Parser_Term_optIdent; -x_23 = l_Lean_Parser_Syntax_mkNode(x_22, x_21); -return x_23; +lean::cnstr_set(x_16, 1, x_14); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_6); +lean::cnstr_set(x_17, 1, x_16); +x_18 = l_Lean_Parser_Term_optIdent; +x_19 = l_Lean_Parser_Syntax_mkNode(x_18, x_17); +return x_19; } } } @@ -28438,7 +27716,7 @@ lean::cnstr_set(x_7, 1, x_6); if (lean::obj_tag(x_1) == 0) { obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_8 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_8 = lean::box(3); x_9 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_9, 0, x_8); lean::cnstr_set(x_9, 1, x_7); @@ -28448,32 +27726,18 @@ return x_11; } else { -obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; x_12 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_14 = x_1; -} else { - lean::inc(x_12); - lean::dec(x_1); - x_14 = lean::box(0); -} +lean::inc(x_12); +lean::dec(x_1); x_15 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_15, 0, x_12); -if (lean::is_scalar(x_14)) { - x_16 = lean::alloc_cnstr(1, 1, 0); -} else { - x_16 = x_14; -} +x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); -x_17 = lean::box(3); -x_18 = l_Option_getOrElse___main___rarg(x_16, x_17); -lean::dec(x_16); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_18); -lean::cnstr_set(x_20, 1, x_7); -x_21 = l_Lean_Parser_Term_haveTerm; -x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); -return x_22; +lean::cnstr_set(x_16, 1, x_7); +x_17 = l_Lean_Parser_Term_haveTerm; +x_18 = l_Lean_Parser_Syntax_mkNode(x_17, x_16); +return x_18; } } } @@ -28707,7 +27971,7 @@ lean::cnstr_set(x_12, 1, x_11); if (lean::obj_tag(x_1) == 0) { obj* x_13; obj* x_14; obj* x_15; obj* x_16; -x_13 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_13 = lean::box(3); x_14 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_14, 0, x_13); lean::cnstr_set(x_14, 1, x_12); @@ -28717,32 +27981,18 @@ return x_16; } else { -obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27; +obj* x_17; obj* x_20; obj* x_21; obj* x_22; obj* x_23; x_17 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_19 = x_1; -} else { - lean::inc(x_17); - lean::dec(x_1); - x_19 = lean::box(0); -} +lean::inc(x_17); +lean::dec(x_1); x_20 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_20, 0, x_17); -if (lean::is_scalar(x_19)) { - x_21 = lean::alloc_cnstr(1, 1, 0); -} else { - x_21 = x_19; -} +x_21 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_21, 0, x_20); -x_22 = lean::box(3); -x_23 = l_Option_getOrElse___main___rarg(x_21, x_22); -lean::dec(x_21); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_23); -lean::cnstr_set(x_25, 1, x_12); -x_26 = l_Lean_Parser_Term_haveFrom; -x_27 = l_Lean_Parser_Syntax_mkNode(x_26, x_25); -return x_27; +lean::cnstr_set(x_21, 1, x_12); +x_22 = l_Lean_Parser_Term_haveFrom; +x_23 = l_Lean_Parser_Syntax_mkNode(x_22, x_21); +return x_23; } } } @@ -29574,7 +28824,7 @@ return x_128; obj* l_Lean_Parser_Term_have_HasView_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_18; obj* x_19; obj* x_20; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -29603,261 +28853,256 @@ if (lean::obj_tag(x_3) == 0) { if (lean::obj_tag(x_9) == 0) { -obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; -x_24 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_24); -lean::cnstr_set(x_25, 1, x_20); +obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +x_21 = lean::box(3); +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_21); +lean::cnstr_set(x_22, 1, x_20); +x_23 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_23, 0, x_18); +lean::cnstr_set(x_23, 1, x_22); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_5); +lean::cnstr_set(x_24, 1, x_23); +x_25 = l_Lean_Parser_Combinators_many___rarg___closed__1; x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_18); -lean::cnstr_set(x_26, 1, x_25); +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_5); +lean::cnstr_set(x_27, 0, x_21); lean::cnstr_set(x_27, 1, x_26); -x_28 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_28); -lean::cnstr_set(x_29, 1, x_27); -x_30 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_30, 0, x_24); -lean::cnstr_set(x_30, 1, x_29); -x_31 = l_Lean_Parser_Term_have; -x_32 = l_Lean_Parser_Syntax_mkNode(x_31, x_30); -return x_32; +x_28 = l_Lean_Parser_Term_have; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } else { -obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; -x_33 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_35 = x_9; -} else { - lean::inc(x_33); - lean::dec(x_9); - x_35 = lean::box(0); -} -x_36 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_36, 0, x_33); -if (lean::is_scalar(x_35)) { - x_37 = lean::alloc_cnstr(1, 1, 0); -} else { - x_37 = x_35; -} -lean::cnstr_set(x_37, 0, x_36); -x_38 = lean::box(3); -x_39 = l_Option_getOrElse___main___rarg(x_37, x_38); -lean::dec(x_37); -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_39); -lean::cnstr_set(x_41, 1, x_20); -x_42 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_42, 0, x_18); -lean::cnstr_set(x_42, 1, x_41); -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_5); -lean::cnstr_set(x_43, 1, x_42); -x_44 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_44); -lean::cnstr_set(x_45, 1, x_43); -x_46 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_47 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_47, 0, x_46); -lean::cnstr_set(x_47, 1, x_45); -x_48 = l_Lean_Parser_Term_have; -x_49 = l_Lean_Parser_Syntax_mkNode(x_48, x_47); -return x_49; +obj* x_30; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; +x_30 = lean::cnstr_get(x_9, 0); +lean::inc(x_30); +lean::dec(x_9); +x_33 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_33, 0, x_30); +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_33); +lean::cnstr_set(x_34, 1, x_20); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_18); +lean::cnstr_set(x_35, 1, x_34); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_5); +lean::cnstr_set(x_36, 1, x_35); +x_37 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_36); +x_39 = lean::box(3); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_39); +lean::cnstr_set(x_40, 1, x_38); +x_41 = l_Lean_Parser_Term_have; +x_42 = l_Lean_Parser_Syntax_mkNode(x_41, x_40); +return x_42; } } else { -obj* x_50; obj* x_53; -x_50 = lean::cnstr_get(x_3, 0); -lean::inc(x_50); +obj* x_43; obj* x_46; obj* x_47; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_43 = lean::cnstr_get(x_3, 0); +lean::inc(x_43); lean::dec(x_3); -x_53 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_21 = x_53; -x_22 = x_50; -goto lbl_23; +x_46 = l_Lean_Parser_Term_optIdent_HasView; +x_47 = lean::cnstr_get(x_46, 1); +lean::inc(x_47); +lean::dec(x_46); +x_50 = lean::apply_1(x_47, x_43); +x_51 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_51, 0, x_50); +lean::cnstr_set(x_51, 1, x_19); +x_52 = l_Lean_Parser_noKind; +x_53 = l_Lean_Parser_Syntax_mkNode(x_52, x_51); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; +x_54 = lean::box(3); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_54); +lean::cnstr_set(x_55, 1, x_20); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_18); +lean::cnstr_set(x_56, 1, x_55); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_5); +lean::cnstr_set(x_57, 1, x_56); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_53); +lean::cnstr_set(x_58, 1, x_57); +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_54); +lean::cnstr_set(x_59, 1, x_58); +x_60 = l_Lean_Parser_Term_have; +x_61 = l_Lean_Parser_Syntax_mkNode(x_60, x_59); +return x_61; +} +else +{ +obj* x_62; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; +x_62 = lean::cnstr_get(x_9, 0); +lean::inc(x_62); +lean::dec(x_9); +x_65 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_65, 0, x_62); +x_66 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_66, 0, x_65); +lean::cnstr_set(x_66, 1, x_20); +x_67 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_67, 0, x_18); +lean::cnstr_set(x_67, 1, x_66); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_5); +lean::cnstr_set(x_68, 1, x_67); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_53); +lean::cnstr_set(x_69, 1, x_68); +x_70 = lean::box(3); +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_70); +lean::cnstr_set(x_71, 1, x_69); +x_72 = l_Lean_Parser_Term_have; +x_73 = l_Lean_Parser_Syntax_mkNode(x_72, x_71); +return x_73; +} } } else { -obj* x_54; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; -x_54 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_56 = x_1; -} else { - lean::inc(x_54); - lean::dec(x_1); - x_56 = lean::box(0); -} -x_57 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_57, 0, x_54); -if (lean::is_scalar(x_56)) { - x_58 = lean::alloc_cnstr(1, 1, 0); -} else { - x_58 = x_56; -} -lean::cnstr_set(x_58, 0, x_57); -x_59 = lean::box(3); -x_60 = l_Option_getOrElse___main___rarg(x_58, x_59); -lean::dec(x_58); +obj* x_74; obj* x_77; +x_74 = lean::cnstr_get(x_1, 0); +lean::inc(x_74); +lean::dec(x_1); +x_77 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_77, 0, x_74); if (lean::obj_tag(x_3) == 0) { if (lean::obj_tag(x_9) == 0) { -obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; -x_62 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_63 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_63, 0, x_62); -lean::cnstr_set(x_63, 1, x_20); -x_64 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_64, 0, x_18); -lean::cnstr_set(x_64, 1, x_63); -x_65 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_65, 0, x_5); -lean::cnstr_set(x_65, 1, x_64); -x_66 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_67 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_67, 0, x_66); -lean::cnstr_set(x_67, 1, x_65); -x_68 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_68, 0, x_60); -lean::cnstr_set(x_68, 1, x_67); -x_69 = l_Lean_Parser_Term_have; -x_70 = l_Lean_Parser_Syntax_mkNode(x_69, x_68); -return x_70; -} -else -{ -obj* x_71; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; -x_71 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_73 = x_9; -} else { - lean::inc(x_71); - lean::dec(x_9); - x_73 = lean::box(0); -} -x_74 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_74, 0, x_71); -if (lean::is_scalar(x_73)) { - x_75 = lean::alloc_cnstr(1, 1, 0); -} else { - x_75 = x_73; -} -lean::cnstr_set(x_75, 0, x_74); -x_76 = l_Option_getOrElse___main___rarg(x_75, x_59); -lean::dec(x_75); -x_78 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_78, 0, x_76); -lean::cnstr_set(x_78, 1, x_20); +obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; +x_78 = lean::box(3); x_79 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_79, 0, x_18); -lean::cnstr_set(x_79, 1, x_78); +lean::cnstr_set(x_79, 0, x_78); +lean::cnstr_set(x_79, 1, x_20); x_80 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_80, 0, x_5); +lean::cnstr_set(x_80, 0, x_18); lean::cnstr_set(x_80, 1, x_79); -x_81 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_82 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_82, 0, x_81); -lean::cnstr_set(x_82, 1, x_80); +x_81 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_81, 0, x_5); +lean::cnstr_set(x_81, 1, x_80); +x_82 = l_Lean_Parser_Combinators_many___rarg___closed__1; x_83 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_83, 0, x_60); -lean::cnstr_set(x_83, 1, x_82); -x_84 = l_Lean_Parser_Term_have; -x_85 = l_Lean_Parser_Syntax_mkNode(x_84, x_83); -return x_85; +lean::cnstr_set(x_83, 0, x_82); +lean::cnstr_set(x_83, 1, x_81); +x_84 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_84, 0, x_77); +lean::cnstr_set(x_84, 1, x_83); +x_85 = l_Lean_Parser_Term_have; +x_86 = l_Lean_Parser_Syntax_mkNode(x_85, x_84); +return x_86; +} +else +{ +obj* x_87; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; +x_87 = lean::cnstr_get(x_9, 0); +lean::inc(x_87); +lean::dec(x_9); +x_90 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_90, 0, x_87); +x_91 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_91, 0, x_90); +lean::cnstr_set(x_91, 1, x_20); +x_92 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_92, 0, x_18); +lean::cnstr_set(x_92, 1, x_91); +x_93 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_93, 0, x_5); +lean::cnstr_set(x_93, 1, x_92); +x_94 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_95 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_95, 0, x_94); +lean::cnstr_set(x_95, 1, x_93); +x_96 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_96, 0, x_77); +lean::cnstr_set(x_96, 1, x_95); +x_97 = l_Lean_Parser_Term_have; +x_98 = l_Lean_Parser_Syntax_mkNode(x_97, x_96); +return x_98; } } else { -obj* x_86; -x_86 = lean::cnstr_get(x_3, 0); -lean::inc(x_86); +obj* x_99; obj* x_102; obj* x_103; obj* x_106; obj* x_107; obj* x_108; obj* x_109; +x_99 = lean::cnstr_get(x_3, 0); +lean::inc(x_99); lean::dec(x_3); -x_21 = x_60; -x_22 = x_86; -goto lbl_23; -} -} -lbl_23: -{ -obj* x_89; obj* x_90; obj* x_93; obj* x_94; obj* x_95; obj* x_96; -x_89 = l_Lean_Parser_Term_optIdent_HasView; -x_90 = lean::cnstr_get(x_89, 1); -lean::inc(x_90); -lean::dec(x_89); -x_93 = lean::apply_1(x_90, x_22); -x_94 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_94, 0, x_93); -lean::cnstr_set(x_94, 1, x_19); -x_95 = l_Lean_Parser_noKind; -x_96 = l_Lean_Parser_Syntax_mkNode(x_95, x_94); +x_102 = l_Lean_Parser_Term_optIdent_HasView; +x_103 = lean::cnstr_get(x_102, 1); +lean::inc(x_103); +lean::dec(x_102); +x_106 = lean::apply_1(x_103, x_99); +x_107 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_107, 0, x_106); +lean::cnstr_set(x_107, 1, x_19); +x_108 = l_Lean_Parser_noKind; +x_109 = l_Lean_Parser_Syntax_mkNode(x_108, x_107); if (lean::obj_tag(x_9) == 0) { -obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; -x_97 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_98 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_98, 0, x_97); -lean::cnstr_set(x_98, 1, x_20); -x_99 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_99, 0, x_18); -lean::cnstr_set(x_99, 1, x_98); -x_100 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_100, 0, x_5); -lean::cnstr_set(x_100, 1, x_99); -x_101 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_101, 0, x_96); -lean::cnstr_set(x_101, 1, x_100); -x_102 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_102, 0, x_21); -lean::cnstr_set(x_102, 1, x_101); -x_103 = l_Lean_Parser_Term_have; -x_104 = l_Lean_Parser_Syntax_mkNode(x_103, x_102); -return x_104; +obj* x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; +x_110 = lean::box(3); +x_111 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_111, 0, x_110); +lean::cnstr_set(x_111, 1, x_20); +x_112 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_112, 0, x_18); +lean::cnstr_set(x_112, 1, x_111); +x_113 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_113, 0, x_5); +lean::cnstr_set(x_113, 1, x_112); +x_114 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_114, 0, x_109); +lean::cnstr_set(x_114, 1, x_113); +x_115 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_115, 0, x_77); +lean::cnstr_set(x_115, 1, x_114); +x_116 = l_Lean_Parser_Term_have; +x_117 = l_Lean_Parser_Syntax_mkNode(x_116, x_115); +return x_117; } else { -obj* x_105; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; -x_105 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_107 = x_9; -} else { - lean::inc(x_105); - lean::dec(x_9); - x_107 = lean::box(0); +obj* x_118; obj* x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; +x_118 = lean::cnstr_get(x_9, 0); +lean::inc(x_118); +lean::dec(x_9); +x_121 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_121, 0, x_118); +x_122 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_122, 0, x_121); +lean::cnstr_set(x_122, 1, x_20); +x_123 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_123, 0, x_18); +lean::cnstr_set(x_123, 1, x_122); +x_124 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_124, 0, x_5); +lean::cnstr_set(x_124, 1, x_123); +x_125 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_125, 0, x_109); +lean::cnstr_set(x_125, 1, x_124); +x_126 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_126, 0, x_77); +lean::cnstr_set(x_126, 1, x_125); +x_127 = l_Lean_Parser_Term_have; +x_128 = l_Lean_Parser_Syntax_mkNode(x_127, x_126); +return x_128; } -x_108 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_108, 0, x_105); -if (lean::is_scalar(x_107)) { - x_109 = lean::alloc_cnstr(1, 1, 0); -} else { - x_109 = x_107; -} -lean::cnstr_set(x_109, 0, x_108); -x_110 = lean::box(3); -x_111 = l_Option_getOrElse___main___rarg(x_109, x_110); -lean::dec(x_109); -x_113 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_113, 0, x_111); -lean::cnstr_set(x_113, 1, x_20); -x_114 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_114, 0, x_18); -lean::cnstr_set(x_114, 1, x_113); -x_115 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_115, 0, x_5); -lean::cnstr_set(x_115, 1, x_114); -x_116 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_116, 0, x_96); -lean::cnstr_set(x_116, 1, x_115); -x_117 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_117, 0, x_21); -lean::cnstr_set(x_117, 1, x_116); -x_118 = l_Lean_Parser_Term_have; -x_119 = l_Lean_Parser_Syntax_mkNode(x_118, x_117); -return x_119; } } } @@ -30444,7 +29689,7 @@ if (lean::obj_tag(x_1) == 0) if (lean::obj_tag(x_5) == 0) { obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; -x_17 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_17 = lean::box(3); x_18 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_18, 0, x_17); lean::cnstr_set(x_18, 1, x_16); @@ -30460,113 +29705,72 @@ return x_22; } else { -obj* x_23; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; +obj* x_23; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; x_23 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_25 = x_5; -} else { - lean::inc(x_23); - lean::dec(x_5); - x_25 = lean::box(0); -} +lean::inc(x_23); +lean::dec(x_5); x_26 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_26, 0, x_23); -if (lean::is_scalar(x_25)) { - x_27 = lean::alloc_cnstr(1, 1, 0); -} else { - x_27 = x_25; -} +x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); -x_28 = lean::box(3); -x_29 = l_Option_getOrElse___main___rarg(x_27, x_28); -lean::dec(x_27); -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_29); -lean::cnstr_set(x_31, 1, x_16); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_3); -lean::cnstr_set(x_32, 1, x_31); -x_33 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_33); -lean::cnstr_set(x_34, 1, x_32); -x_35 = l_Lean_Parser_Term_show; -x_36 = l_Lean_Parser_Syntax_mkNode(x_35, x_34); -return x_36; +lean::cnstr_set(x_27, 1, x_16); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_3); +lean::cnstr_set(x_28, 1, x_27); +x_29 = lean::box(3); +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_29); +lean::cnstr_set(x_30, 1, x_28); +x_31 = l_Lean_Parser_Term_show; +x_32 = l_Lean_Parser_Syntax_mkNode(x_31, x_30); +return x_32; } } else { -obj* x_37; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; -x_37 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_39 = x_1; -} else { - lean::inc(x_37); - lean::dec(x_1); - x_39 = lean::box(0); -} -x_40 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_40, 0, x_37); -if (lean::is_scalar(x_39)) { - x_41 = lean::alloc_cnstr(1, 1, 0); -} else { - x_41 = x_39; -} -lean::cnstr_set(x_41, 0, x_40); -x_42 = lean::box(3); -x_43 = l_Option_getOrElse___main___rarg(x_41, x_42); -lean::dec(x_41); +obj* x_33; obj* x_36; +x_33 = lean::cnstr_get(x_1, 0); +lean::inc(x_33); +lean::dec(x_1); +x_36 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_36, 0, x_33); if (lean::obj_tag(x_5) == 0) { -obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; -x_45 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_46 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_46, 0, x_45); -lean::cnstr_set(x_46, 1, x_16); -x_47 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_47, 0, x_3); -lean::cnstr_set(x_47, 1, x_46); -x_48 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_48, 0, x_43); -lean::cnstr_set(x_48, 1, x_47); -x_49 = l_Lean_Parser_Term_show; -x_50 = l_Lean_Parser_Syntax_mkNode(x_49, x_48); -return x_50; +obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; +x_37 = lean::box(3); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_16); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_3); +lean::cnstr_set(x_39, 1, x_38); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_36); +lean::cnstr_set(x_40, 1, x_39); +x_41 = l_Lean_Parser_Term_show; +x_42 = l_Lean_Parser_Syntax_mkNode(x_41, x_40); +return x_42; } else { -obj* x_51; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; -x_51 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_53 = x_5; -} else { - lean::inc(x_51); - lean::dec(x_5); - x_53 = lean::box(0); -} -x_54 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_54, 0, x_51); -if (lean::is_scalar(x_53)) { - x_55 = lean::alloc_cnstr(1, 1, 0); -} else { - x_55 = x_53; -} -lean::cnstr_set(x_55, 0, x_54); -x_56 = l_Option_getOrElse___main___rarg(x_55, x_42); -lean::dec(x_55); -x_58 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_58, 0, x_56); -lean::cnstr_set(x_58, 1, x_16); -x_59 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_59, 0, x_3); -lean::cnstr_set(x_59, 1, x_58); -x_60 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_60, 0, x_43); -lean::cnstr_set(x_60, 1, x_59); -x_61 = l_Lean_Parser_Term_show; -x_62 = l_Lean_Parser_Syntax_mkNode(x_61, x_60); -return x_62; +obj* x_43; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_43 = lean::cnstr_get(x_5, 0); +lean::inc(x_43); +lean::dec(x_5); +x_46 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_46, 0, x_43); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_46); +lean::cnstr_set(x_47, 1, x_16); +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_3); +lean::cnstr_set(x_48, 1, x_47); +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_36); +lean::cnstr_set(x_49, 1, x_48); +x_50 = l_Lean_Parser_Term_show; +x_51 = l_Lean_Parser_Syntax_mkNode(x_50, x_49); +return x_51; } } } @@ -30811,41 +30015,27 @@ return x_21; } else { -obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_22 = lean::cnstr_get(x_16, 0); -if (lean::is_exclusive(x_16)) { - x_24 = x_16; -} else { - lean::inc(x_22); - lean::dec(x_16); - x_24 = lean::box(0); -} +lean::inc(x_22); +lean::dec(x_16); x_25 = lean::box(0); x_26 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_26, 0, x_22); -if (lean::is_scalar(x_24)) { - x_27 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_6)) { + x_27 = lean::alloc_cnstr(1, 2, 0); } else { - x_27 = x_24; + x_27 = x_6; } lean::cnstr_set(x_27, 0, x_26); -x_28 = lean::box(3); -x_29 = l_Option_getOrElse___main___rarg(x_27, x_28); -lean::dec(x_27); -if (lean::is_scalar(x_6)) { - x_31 = lean::alloc_cnstr(1, 2, 0); -} else { - x_31 = x_6; -} -lean::cnstr_set(x_31, 0, x_29); -lean::cnstr_set(x_31, 1, x_25); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_7); -lean::cnstr_set(x_32, 1, x_31); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_32); -lean::cnstr_set(x_33, 1, x_12); -return x_33; +lean::cnstr_set(x_27, 1, x_25); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_7); +lean::cnstr_set(x_28, 1, x_27); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_28); +lean::cnstr_set(x_29, 1, x_12); +return x_29; } } } @@ -31254,7 +30444,7 @@ lean::cnstr_set(x_13, 1, x_12); if (lean::obj_tag(x_3) == 0) { obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; -x_14 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_14 = lean::box(3); x_15 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_15, 0, x_14); lean::cnstr_set(x_15, 1, x_13); @@ -31267,35 +30457,21 @@ return x_18; } else { -obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; +obj* x_19; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; x_19 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_21 = x_3; -} else { - lean::inc(x_19); - lean::dec(x_3); - x_21 = lean::box(0); -} +lean::inc(x_19); +lean::dec(x_3); x_22 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_22, 0, x_19); -if (lean::is_scalar(x_21)) { - x_23 = lean::alloc_cnstr(1, 1, 0); -} else { - x_23 = x_21; -} +x_23 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_23, 0, x_22); -x_24 = lean::box(3); -x_25 = l_Option_getOrElse___main___rarg(x_23, x_24); -lean::dec(x_23); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_25); -lean::cnstr_set(x_27, 1, x_13); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_11); -lean::cnstr_set(x_28, 1, x_27); -x_29 = l_Lean_Parser_Term_matchEquation; -x_30 = l_Lean_Parser_Syntax_mkNode(x_29, x_28); -return x_30; +lean::cnstr_set(x_23, 1, x_13); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_11); +lean::cnstr_set(x_24, 1, x_23); +x_25 = l_Lean_Parser_Term_matchEquation; +x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); +return x_26; } } } @@ -31569,41 +30745,27 @@ return x_21; } else { -obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_22 = lean::cnstr_get(x_16, 0); -if (lean::is_exclusive(x_16)) { - x_24 = x_16; -} else { - lean::inc(x_22); - lean::dec(x_16); - x_24 = lean::box(0); -} +lean::inc(x_22); +lean::dec(x_16); x_25 = lean::box(0); x_26 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_26, 0, x_22); -if (lean::is_scalar(x_24)) { - x_27 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_6)) { + x_27 = lean::alloc_cnstr(1, 2, 0); } else { - x_27 = x_24; + x_27 = x_6; } lean::cnstr_set(x_27, 0, x_26); -x_28 = lean::box(3); -x_29 = l_Option_getOrElse___main___rarg(x_27, x_28); -lean::dec(x_27); -if (lean::is_scalar(x_6)) { - x_31 = lean::alloc_cnstr(1, 2, 0); -} else { - x_31 = x_6; -} -lean::cnstr_set(x_31, 0, x_29); -lean::cnstr_set(x_31, 1, x_25); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_7); -lean::cnstr_set(x_32, 1, x_31); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_32); -lean::cnstr_set(x_33, 1, x_12); -return x_33; +lean::cnstr_set(x_27, 1, x_25); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_7); +lean::cnstr_set(x_28, 1, x_27); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_28); +lean::cnstr_set(x_29, 1, x_12); +return x_29; } } } @@ -31689,41 +30851,27 @@ return x_31; } else { -obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_41; obj* x_42; obj* x_43; +obj* x_32; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; x_32 = lean::cnstr_get(x_21, 0); -if (lean::is_exclusive(x_21)) { - x_34 = x_21; -} else { - lean::inc(x_32); - lean::dec(x_21); - x_34 = lean::box(0); -} +lean::inc(x_32); +lean::dec(x_21); x_35 = lean::box(0); x_36 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_36, 0, x_32); -if (lean::is_scalar(x_34)) { - x_37 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_6)) { + x_37 = lean::alloc_cnstr(1, 2, 0); } else { - x_37 = x_34; + x_37 = x_6; } lean::cnstr_set(x_37, 0, x_36); -x_38 = lean::box(3); -x_39 = l_Option_getOrElse___main___rarg(x_37, x_38); -lean::dec(x_37); -if (lean::is_scalar(x_6)) { - x_41 = lean::alloc_cnstr(1, 2, 0); -} else { - x_41 = x_6; -} -lean::cnstr_set(x_41, 0, x_39); -lean::cnstr_set(x_41, 1, x_35); -x_42 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_42, 0, x_28); -lean::cnstr_set(x_42, 1, x_41); -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_42); -lean::cnstr_set(x_43, 1, x_12); -return x_43; +lean::cnstr_set(x_37, 1, x_35); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_28); +lean::cnstr_set(x_38, 1, x_37); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_12); +return x_39; } } } @@ -32542,229 +31690,253 @@ lean::cnstr_set(x_22, 1, x_21); if (lean::obj_tag(x_1) == 0) { obj* x_25; -x_25 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_25 = lean::box(3); x_23 = x_25; goto lbl_24; } else { -obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; +obj* x_26; obj* x_29; x_26 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_28 = x_1; -} else { - lean::inc(x_26); - lean::dec(x_1); - x_28 = lean::box(0); -} +lean::inc(x_26); +lean::dec(x_1); x_29 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_29, 0, x_26); -if (lean::is_scalar(x_28)) { - x_30 = lean::alloc_cnstr(1, 1, 0); -} else { - x_30 = x_28; -} -lean::cnstr_set(x_30, 0, x_29); -x_31 = lean::box(3); -x_32 = l_Option_getOrElse___main___rarg(x_30, x_31); -lean::dec(x_30); -x_23 = x_32; +x_23 = x_29; goto lbl_24; } lbl_24: { -obj* x_34; +obj* x_30; obj* x_32; obj* x_33; if (lean::obj_tag(x_5) == 0) { -obj* x_36; -x_36 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_34 = x_36; -goto lbl_35; -} -else -{ -obj* x_37; obj* x_40; obj* x_41; obj* x_44; obj* x_45; obj* x_46; -x_37 = lean::cnstr_get(x_5, 0); -lean::inc(x_37); -lean::dec(x_5); -x_40 = l_Lean_Parser_Term_typeSpec_HasView; -x_41 = lean::cnstr_get(x_40, 1); -lean::inc(x_41); -lean::dec(x_40); -x_44 = lean::apply_1(x_41, x_37); -x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_44); -lean::cnstr_set(x_45, 1, x_21); -x_46 = l_Lean_Parser_Syntax_mkNode(x_16, x_45); -x_34 = x_46; -goto lbl_35; -} -lbl_35: -{ -obj* x_47; obj* x_48; if (lean::obj_tag(x_7) == 0) { +obj* x_35; +x_35 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_30 = x_35; +goto lbl_31; +} +else +{ +obj* x_36; obj* x_39; +x_36 = lean::cnstr_get(x_7, 0); +lean::inc(x_36); +lean::dec(x_7); +x_39 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_32 = x_39; +x_33 = x_36; +goto lbl_34; +} +} +else +{ +obj* x_40; obj* x_43; obj* x_44; obj* x_47; obj* x_48; obj* x_49; +x_40 = lean::cnstr_get(x_5, 0); +lean::inc(x_40); +lean::dec(x_5); +x_43 = l_Lean_Parser_Term_typeSpec_HasView; +x_44 = lean::cnstr_get(x_43, 1); +lean::inc(x_44); +lean::dec(x_43); +x_47 = lean::apply_1(x_44, x_40); +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_21); +x_49 = l_Lean_Parser_Syntax_mkNode(x_16, x_48); +if (lean::obj_tag(x_7) == 0) +{ +x_30 = x_49; +goto lbl_31; +} +else +{ +obj* x_50; +x_50 = lean::cnstr_get(x_7, 0); +lean::inc(x_50); +lean::dec(x_7); +x_32 = x_49; +x_33 = x_50; +goto lbl_34; +} +} +lbl_31: +{ if (lean::obj_tag(x_9) == 0) { -obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; -x_50 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_51 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_51, 0, x_50); -lean::cnstr_set(x_51, 1, x_22); -x_52 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_53 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_53, 0, x_52); -lean::cnstr_set(x_53, 1, x_51); +obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; +x_53 = l_Lean_Parser_Combinators_many___rarg___closed__1; x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_34); -lean::cnstr_set(x_54, 1, x_53); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_17); -lean::cnstr_set(x_55, 1, x_54); +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_22); +x_55 = lean::box(3); x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_23); -lean::cnstr_set(x_56, 1, x_55); -x_57 = l_Lean_Parser_Term_match; -x_58 = l_Lean_Parser_Syntax_mkNode(x_57, x_56); -return x_58; +lean::cnstr_set(x_56, 0, x_55); +lean::cnstr_set(x_56, 1, x_54); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_30); +lean::cnstr_set(x_57, 1, x_56); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_17); +lean::cnstr_set(x_58, 1, x_57); +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_23); +lean::cnstr_set(x_59, 1, x_58); +x_60 = l_Lean_Parser_Term_match; +x_61 = l_Lean_Parser_Syntax_mkNode(x_60, x_59); +return x_61; } else { -obj* x_59; obj* x_62; -x_59 = lean::cnstr_get(x_9, 0); -lean::inc(x_59); +obj* x_62; +x_62 = lean::cnstr_get(x_9, 0); +lean::inc(x_62); lean::dec(x_9); -x_62 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_47 = x_62; -x_48 = x_59; -goto lbl_49; -} +if (lean::obj_tag(x_62) == 0) +{ +obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; +x_65 = l_Lean_Parser_command_notation_HasView_x_27___lambda__2___closed__1; +x_66 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_66, 0, x_65); +lean::cnstr_set(x_66, 1, x_22); +x_67 = lean::box(3); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_67); +lean::cnstr_set(x_68, 1, x_66); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_30); +lean::cnstr_set(x_69, 1, x_68); +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_17); +lean::cnstr_set(x_70, 1, x_69); +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_23); +lean::cnstr_set(x_71, 1, x_70); +x_72 = l_Lean_Parser_Term_match; +x_73 = l_Lean_Parser_Syntax_mkNode(x_72, x_71); +return x_73; } else { -obj* x_63; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; -x_63 = lean::cnstr_get(x_7, 0); -if (lean::is_exclusive(x_7)) { - x_65 = x_7; -} else { - lean::inc(x_63); - lean::dec(x_7); - x_65 = lean::box(0); -} -x_66 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_66, 0, x_63); -if (lean::is_scalar(x_65)) { - x_67 = lean::alloc_cnstr(1, 1, 0); -} else { - x_67 = x_65; -} -lean::cnstr_set(x_67, 0, x_66); -x_68 = lean::box(3); -x_69 = l_Option_getOrElse___main___rarg(x_67, x_68); -lean::dec(x_67); -if (lean::obj_tag(x_9) == 0) -{ -obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; -x_71 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_72 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_72, 0, x_71); -lean::cnstr_set(x_72, 1, x_22); -x_73 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_73, 0, x_69); -lean::cnstr_set(x_73, 1, x_72); -x_74 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_74, 0, x_34); -lean::cnstr_set(x_74, 1, x_73); -x_75 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_75, 0, x_17); -lean::cnstr_set(x_75, 1, x_74); -x_76 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_76, 0, x_23); -lean::cnstr_set(x_76, 1, x_75); -x_77 = l_Lean_Parser_Term_match; -x_78 = l_Lean_Parser_Syntax_mkNode(x_77, x_76); -return x_78; -} -else -{ -obj* x_79; -x_79 = lean::cnstr_get(x_9, 0); -lean::inc(x_79); -lean::dec(x_9); -x_47 = x_69; -x_48 = x_79; -goto lbl_49; -} -} -lbl_49: -{ -if (lean::obj_tag(x_48) == 0) -{ -obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; -x_82 = l_Lean_Parser_command_notation_HasView_x_27___lambda__2___closed__1; +obj* x_74; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; +x_74 = lean::cnstr_get(x_62, 0); +lean::inc(x_74); +lean::dec(x_62); +x_77 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_77, 0, x_74); +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_77); +lean::cnstr_set(x_78, 1, x_21); +x_79 = l_Lean_Parser_Syntax_mkNode(x_16, x_78); +x_80 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_80, 0, x_79); +lean::cnstr_set(x_80, 1, x_22); +x_81 = lean::box(3); +x_82 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_82, 0, x_81); +lean::cnstr_set(x_82, 1, x_80); x_83 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_83, 0, x_82); -lean::cnstr_set(x_83, 1, x_22); +lean::cnstr_set(x_83, 0, x_30); +lean::cnstr_set(x_83, 1, x_82); x_84 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_84, 0, x_47); +lean::cnstr_set(x_84, 0, x_17); lean::cnstr_set(x_84, 1, x_83); x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_34); +lean::cnstr_set(x_85, 0, x_23); lean::cnstr_set(x_85, 1, x_84); -x_86 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_86, 0, x_17); -lean::cnstr_set(x_86, 1, x_85); -x_87 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_87, 0, x_23); -lean::cnstr_set(x_87, 1, x_86); -x_88 = l_Lean_Parser_Term_match; -x_89 = l_Lean_Parser_Syntax_mkNode(x_88, x_87); -return x_89; +x_86 = l_Lean_Parser_Term_match; +x_87 = l_Lean_Parser_Syntax_mkNode(x_86, x_85); +return x_87; +} +} +} +lbl_34: +{ +obj* x_88; +x_88 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_88, 0, x_33); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; +x_89 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_90 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_90, 0, x_89); +lean::cnstr_set(x_90, 1, x_22); +x_91 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_91, 0, x_88); +lean::cnstr_set(x_91, 1, x_90); +x_92 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_92, 0, x_32); +lean::cnstr_set(x_92, 1, x_91); +x_93 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_93, 0, x_17); +lean::cnstr_set(x_93, 1, x_92); +x_94 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_94, 0, x_23); +lean::cnstr_set(x_94, 1, x_93); +x_95 = l_Lean_Parser_Term_match; +x_96 = l_Lean_Parser_Syntax_mkNode(x_95, x_94); +return x_96; } else { -obj* x_90; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; -x_90 = lean::cnstr_get(x_48, 0); -if (lean::is_exclusive(x_48)) { - x_92 = x_48; -} else { - lean::inc(x_90); - lean::dec(x_48); - x_92 = lean::box(0); -} -x_93 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_93, 0, x_90); -if (lean::is_scalar(x_92)) { - x_94 = lean::alloc_cnstr(1, 1, 0); -} else { - x_94 = x_92; -} -lean::cnstr_set(x_94, 0, x_93); -x_95 = lean::box(3); -x_96 = l_Option_getOrElse___main___rarg(x_94, x_95); -lean::dec(x_94); -x_98 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_98, 0, x_96); -lean::cnstr_set(x_98, 1, x_21); -x_99 = l_Lean_Parser_Syntax_mkNode(x_16, x_98); -x_100 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_100, 0, x_99); -lean::cnstr_set(x_100, 1, x_22); +obj* x_97; +x_97 = lean::cnstr_get(x_9, 0); +lean::inc(x_97); +lean::dec(x_9); +if (lean::obj_tag(x_97) == 0) +{ +obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; +x_100 = l_Lean_Parser_command_notation_HasView_x_27___lambda__2___closed__1; x_101 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_101, 0, x_47); -lean::cnstr_set(x_101, 1, x_100); +lean::cnstr_set(x_101, 0, x_100); +lean::cnstr_set(x_101, 1, x_22); x_102 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_102, 0, x_34); +lean::cnstr_set(x_102, 0, x_88); lean::cnstr_set(x_102, 1, x_101); x_103 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_103, 0, x_17); +lean::cnstr_set(x_103, 0, x_32); lean::cnstr_set(x_103, 1, x_102); x_104 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_104, 0, x_23); +lean::cnstr_set(x_104, 0, x_17); lean::cnstr_set(x_104, 1, x_103); -x_105 = l_Lean_Parser_Term_match; -x_106 = l_Lean_Parser_Syntax_mkNode(x_105, x_104); -return x_106; +x_105 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_105, 0, x_23); +lean::cnstr_set(x_105, 1, x_104); +x_106 = l_Lean_Parser_Term_match; +x_107 = l_Lean_Parser_Syntax_mkNode(x_106, x_105); +return x_107; +} +else +{ +obj* x_108; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; obj* x_120; +x_108 = lean::cnstr_get(x_97, 0); +lean::inc(x_108); +lean::dec(x_97); +x_111 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_111, 0, x_108); +x_112 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_112, 0, x_111); +lean::cnstr_set(x_112, 1, x_21); +x_113 = l_Lean_Parser_Syntax_mkNode(x_16, x_112); +x_114 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_114, 0, x_113); +lean::cnstr_set(x_114, 1, x_22); +x_115 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_115, 0, x_88); +lean::cnstr_set(x_115, 1, x_114); +x_116 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_116, 0, x_32); +lean::cnstr_set(x_116, 1, x_115); +x_117 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_117, 0, x_17); +lean::cnstr_set(x_117, 1, x_116); +x_118 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_118, 0, x_23); +lean::cnstr_set(x_118, 1, x_117); +x_119 = l_Lean_Parser_Term_match; +x_120 = l_Lean_Parser_Syntax_mkNode(x_119, x_118); +return x_120; } } } @@ -33655,7 +32827,7 @@ return x_141; obj* l_Lean_Parser_Term_if_HasView_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_16; obj* x_17; obj* x_18; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -33677,244 +32849,317 @@ lean::cnstr_set(x_17, 0, x_13); lean::cnstr_set(x_17, 1, x_16); if (lean::obj_tag(x_1) == 0) { -obj* x_20; -x_20 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_18 = x_20; +if (lean::obj_tag(x_3) == 0) +{ +obj* x_23; +x_23 = lean::box(3); +x_18 = x_23; goto lbl_19; } else { -obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; -x_21 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_23 = x_1; -} else { - lean::inc(x_21); - lean::dec(x_1); - x_23 = lean::box(0); +obj* x_24; obj* x_27; +x_24 = lean::cnstr_get(x_3, 0); +lean::inc(x_24); +lean::dec(x_3); +x_27 = lean::box(3); +x_20 = x_27; +x_21 = x_24; +goto lbl_22; } -x_24 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_24, 0, x_21); -if (lean::is_scalar(x_23)) { - x_25 = lean::alloc_cnstr(1, 1, 0); -} else { - x_25 = x_23; } -lean::cnstr_set(x_25, 0, x_24); -x_26 = lean::box(3); -x_27 = l_Option_getOrElse___main___rarg(x_25, x_26); -lean::dec(x_25); -x_18 = x_27; +else +{ +obj* x_28; obj* x_31; +x_28 = lean::cnstr_get(x_1, 0); +lean::inc(x_28); +lean::dec(x_1); +x_31 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_31, 0, x_28); +if (lean::obj_tag(x_3) == 0) +{ +x_18 = x_31; goto lbl_19; } +else +{ +obj* x_32; +x_32 = lean::cnstr_get(x_3, 0); +lean::inc(x_32); +lean::dec(x_3); +x_20 = x_31; +x_21 = x_32; +goto lbl_22; +} +} lbl_19: { -obj* x_29; obj* x_31; obj* x_32; -if (lean::obj_tag(x_3) == 0) -{ if (lean::obj_tag(x_7) == 0) { -obj* x_34; -x_34 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_29 = x_34; -goto lbl_30; -} -else -{ -obj* x_35; obj* x_38; -x_35 = lean::cnstr_get(x_7, 0); -lean::inc(x_35); -lean::dec(x_7); -x_38 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_31 = x_38; -x_32 = x_35; -goto lbl_33; -} -} -else -{ -obj* x_39; obj* x_42; obj* x_43; obj* x_46; obj* x_47; obj* x_48; obj* x_49; -x_39 = lean::cnstr_get(x_3, 0); -lean::inc(x_39); -lean::dec(x_3); -x_42 = l_Lean_Parser_Term_optIdent_HasView; -x_43 = lean::cnstr_get(x_42, 1); -lean::inc(x_43); -lean::dec(x_42); -x_46 = lean::apply_1(x_43, x_39); -x_47 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_47, 0, x_46); -lean::cnstr_set(x_47, 1, x_16); -x_48 = l_Lean_Parser_noKind; -x_49 = l_Lean_Parser_Syntax_mkNode(x_48, x_47); -if (lean::obj_tag(x_7) == 0) -{ -x_29 = x_49; -goto lbl_30; -} -else -{ -obj* x_50; -x_50 = lean::cnstr_get(x_7, 0); -lean::inc(x_50); -lean::dec(x_7); -x_31 = x_49; -x_32 = x_50; -goto lbl_33; -} -} -lbl_30: -{ if (lean::obj_tag(x_11) == 0) { -obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; -x_53 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_53); -lean::cnstr_set(x_54, 1, x_17); +obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; +x_35 = lean::box(3); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_35); +lean::cnstr_set(x_36, 1, x_17); +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_9); +lean::cnstr_set(x_37, 1, x_36); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_35); +lean::cnstr_set(x_38, 1, x_37); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_5); +lean::cnstr_set(x_39, 1, x_38); +x_40 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_40); +lean::cnstr_set(x_41, 1, x_39); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_18); +lean::cnstr_set(x_42, 1, x_41); +x_43 = l_Lean_Parser_Term_if; +x_44 = l_Lean_Parser_Syntax_mkNode(x_43, x_42); +return x_44; +} +else +{ +obj* x_45; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; +x_45 = lean::cnstr_get(x_11, 0); +lean::inc(x_45); +lean::dec(x_11); +x_48 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_48, 0, x_45); +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_48); +lean::cnstr_set(x_49, 1, x_17); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_9); +lean::cnstr_set(x_50, 1, x_49); +x_51 = lean::box(3); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_50); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_5); +lean::cnstr_set(x_53, 1, x_52); +x_54 = l_Lean_Parser_Combinators_many___rarg___closed__1; x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_9); -lean::cnstr_set(x_55, 1, x_54); +lean::cnstr_set(x_55, 0, x_54); +lean::cnstr_set(x_55, 1, x_53); x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_53); +lean::cnstr_set(x_56, 0, x_18); lean::cnstr_set(x_56, 1, x_55); -x_57 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_57, 0, x_5); -lean::cnstr_set(x_57, 1, x_56); -x_58 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_58, 0, x_29); -lean::cnstr_set(x_58, 1, x_57); -x_59 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_59, 0, x_18); -lean::cnstr_set(x_59, 1, x_58); -x_60 = l_Lean_Parser_Term_if; -x_61 = l_Lean_Parser_Syntax_mkNode(x_60, x_59); -return x_61; +x_57 = l_Lean_Parser_Term_if; +x_58 = l_Lean_Parser_Syntax_mkNode(x_57, x_56); +return x_58; +} } else { -obj* x_62; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; -x_62 = lean::cnstr_get(x_11, 0); -if (lean::is_exclusive(x_11)) { - x_64 = x_11; -} else { - lean::inc(x_62); - lean::dec(x_11); - x_64 = lean::box(0); -} -x_65 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_65, 0, x_62); -if (lean::is_scalar(x_64)) { - x_66 = lean::alloc_cnstr(1, 1, 0); -} else { - x_66 = x_64; -} -lean::cnstr_set(x_66, 0, x_65); -x_67 = lean::box(3); -x_68 = l_Option_getOrElse___main___rarg(x_66, x_67); -lean::dec(x_66); -x_70 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_70, 0, x_68); -lean::cnstr_set(x_70, 1, x_17); -x_71 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_71, 0, x_9); -lean::cnstr_set(x_71, 1, x_70); -x_72 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_73 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_73, 0, x_72); -lean::cnstr_set(x_73, 1, x_71); -x_74 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_74, 0, x_5); -lean::cnstr_set(x_74, 1, x_73); -x_75 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_75, 0, x_29); -lean::cnstr_set(x_75, 1, x_74); -x_76 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_76, 0, x_18); -lean::cnstr_set(x_76, 1, x_75); -x_77 = l_Lean_Parser_Term_if; -x_78 = l_Lean_Parser_Syntax_mkNode(x_77, x_76); -return x_78; -} -} -lbl_33: -{ -obj* x_79; obj* x_80; obj* x_81; obj* x_82; -x_79 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_79, 0, x_32); -x_80 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_80, 0, x_79); -x_81 = lean::box(3); -x_82 = l_Option_getOrElse___main___rarg(x_80, x_81); -lean::dec(x_80); +obj* x_59; obj* x_62; +x_59 = lean::cnstr_get(x_7, 0); +lean::inc(x_59); +lean::dec(x_7); +x_62 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_62, 0, x_59); if (lean::obj_tag(x_11) == 0) { -obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; -x_84 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_84); -lean::cnstr_set(x_85, 1, x_17); -x_86 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_86, 0, x_9); -lean::cnstr_set(x_86, 1, x_85); -x_87 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_87, 0, x_82); -lean::cnstr_set(x_87, 1, x_86); -x_88 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_88, 0, x_5); -lean::cnstr_set(x_88, 1, x_87); -x_89 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_89, 0, x_31); -lean::cnstr_set(x_89, 1, x_88); -x_90 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_90, 0, x_18); -lean::cnstr_set(x_90, 1, x_89); -x_91 = l_Lean_Parser_Term_if; -x_92 = l_Lean_Parser_Syntax_mkNode(x_91, x_90); -return x_92; +obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; +x_63 = lean::box(3); +x_64 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_64, 0, x_63); +lean::cnstr_set(x_64, 1, x_17); +x_65 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_65, 0, x_9); +lean::cnstr_set(x_65, 1, x_64); +x_66 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_66, 0, x_62); +lean::cnstr_set(x_66, 1, x_65); +x_67 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_67, 0, x_5); +lean::cnstr_set(x_67, 1, x_66); +x_68 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_68); +lean::cnstr_set(x_69, 1, x_67); +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_18); +lean::cnstr_set(x_70, 1, x_69); +x_71 = l_Lean_Parser_Term_if; +x_72 = l_Lean_Parser_Syntax_mkNode(x_71, x_70); +return x_72; } else { -obj* x_93; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; -x_93 = lean::cnstr_get(x_11, 0); -if (lean::is_exclusive(x_11)) { - x_95 = x_11; -} else { - lean::inc(x_93); - lean::dec(x_11); - x_95 = lean::box(0); +obj* x_73; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; +x_73 = lean::cnstr_get(x_11, 0); +lean::inc(x_73); +lean::dec(x_11); +x_76 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_76, 0, x_73); +x_77 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_77, 0, x_76); +lean::cnstr_set(x_77, 1, x_17); +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_9); +lean::cnstr_set(x_78, 1, x_77); +x_79 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_79, 0, x_62); +lean::cnstr_set(x_79, 1, x_78); +x_80 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_80, 0, x_5); +lean::cnstr_set(x_80, 1, x_79); +x_81 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_82 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_82, 0, x_81); +lean::cnstr_set(x_82, 1, x_80); +x_83 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_83, 0, x_18); +lean::cnstr_set(x_83, 1, x_82); +x_84 = l_Lean_Parser_Term_if; +x_85 = l_Lean_Parser_Syntax_mkNode(x_84, x_83); +return x_85; } -x_96 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_96, 0, x_93); -if (lean::is_scalar(x_95)) { - x_97 = lean::alloc_cnstr(1, 1, 0); -} else { - x_97 = x_95; } -lean::cnstr_set(x_97, 0, x_96); -x_98 = l_Option_getOrElse___main___rarg(x_97, x_81); -lean::dec(x_97); +} +lbl_22: +{ +obj* x_86; obj* x_87; obj* x_90; obj* x_91; obj* x_92; obj* x_93; +x_86 = l_Lean_Parser_Term_optIdent_HasView; +x_87 = lean::cnstr_get(x_86, 1); +lean::inc(x_87); +lean::dec(x_86); +x_90 = lean::apply_1(x_87, x_21); +x_91 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_91, 0, x_90); +lean::cnstr_set(x_91, 1, x_16); +x_92 = l_Lean_Parser_noKind; +x_93 = l_Lean_Parser_Syntax_mkNode(x_92, x_91); +if (lean::obj_tag(x_7) == 0) +{ +if (lean::obj_tag(x_11) == 0) +{ +obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; +x_94 = lean::box(3); +x_95 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_95, 0, x_94); +lean::cnstr_set(x_95, 1, x_17); +x_96 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_96, 0, x_9); +lean::cnstr_set(x_96, 1, x_95); +x_97 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_97, 0, x_94); +lean::cnstr_set(x_97, 1, x_96); +x_98 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_98, 0, x_5); +lean::cnstr_set(x_98, 1, x_97); +x_99 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_99, 0, x_93); +lean::cnstr_set(x_99, 1, x_98); x_100 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_100, 0, x_98); -lean::cnstr_set(x_100, 1, x_17); -x_101 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_101, 0, x_9); -lean::cnstr_set(x_101, 1, x_100); -x_102 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_102, 0, x_82); -lean::cnstr_set(x_102, 1, x_101); -x_103 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_103, 0, x_5); -lean::cnstr_set(x_103, 1, x_102); -x_104 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_104, 0, x_31); -lean::cnstr_set(x_104, 1, x_103); -x_105 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_105, 0, x_18); -lean::cnstr_set(x_105, 1, x_104); -x_106 = l_Lean_Parser_Term_if; -x_107 = l_Lean_Parser_Syntax_mkNode(x_106, x_105); -return x_107; +lean::cnstr_set(x_100, 0, x_20); +lean::cnstr_set(x_100, 1, x_99); +x_101 = l_Lean_Parser_Term_if; +x_102 = l_Lean_Parser_Syntax_mkNode(x_101, x_100); +return x_102; +} +else +{ +obj* x_103; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; +x_103 = lean::cnstr_get(x_11, 0); +lean::inc(x_103); +lean::dec(x_11); +x_106 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_106, 0, x_103); +x_107 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_107, 0, x_106); +lean::cnstr_set(x_107, 1, x_17); +x_108 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_108, 0, x_9); +lean::cnstr_set(x_108, 1, x_107); +x_109 = lean::box(3); +x_110 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_110, 0, x_109); +lean::cnstr_set(x_110, 1, x_108); +x_111 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_111, 0, x_5); +lean::cnstr_set(x_111, 1, x_110); +x_112 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_112, 0, x_93); +lean::cnstr_set(x_112, 1, x_111); +x_113 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_113, 0, x_20); +lean::cnstr_set(x_113, 1, x_112); +x_114 = l_Lean_Parser_Term_if; +x_115 = l_Lean_Parser_Syntax_mkNode(x_114, x_113); +return x_115; +} +} +else +{ +obj* x_116; obj* x_119; +x_116 = lean::cnstr_get(x_7, 0); +lean::inc(x_116); +lean::dec(x_7); +x_119 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_119, 0, x_116); +if (lean::obj_tag(x_11) == 0) +{ +obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; +x_120 = lean::box(3); +x_121 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_121, 0, x_120); +lean::cnstr_set(x_121, 1, x_17); +x_122 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_122, 0, x_9); +lean::cnstr_set(x_122, 1, x_121); +x_123 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_123, 0, x_119); +lean::cnstr_set(x_123, 1, x_122); +x_124 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_124, 0, x_5); +lean::cnstr_set(x_124, 1, x_123); +x_125 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_125, 0, x_93); +lean::cnstr_set(x_125, 1, x_124); +x_126 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_126, 0, x_20); +lean::cnstr_set(x_126, 1, x_125); +x_127 = l_Lean_Parser_Term_if; +x_128 = l_Lean_Parser_Syntax_mkNode(x_127, x_126); +return x_128; +} +else +{ +obj* x_129; obj* x_132; obj* x_133; obj* x_134; obj* x_135; obj* x_136; obj* x_137; obj* x_138; obj* x_139; obj* x_140; +x_129 = lean::cnstr_get(x_11, 0); +lean::inc(x_129); +lean::dec(x_11); +x_132 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_132, 0, x_129); +x_133 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_133, 0, x_132); +lean::cnstr_set(x_133, 1, x_17); +x_134 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_134, 0, x_9); +lean::cnstr_set(x_134, 1, x_133); +x_135 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_135, 0, x_119); +lean::cnstr_set(x_135, 1, x_134); +x_136 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_136, 0, x_5); +lean::cnstr_set(x_136, 1, x_135); +x_137 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_137, 0, x_93); +lean::cnstr_set(x_137, 1, x_136); +x_138 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_138, 0, x_20); +lean::cnstr_set(x_138, 1, x_137); +x_139 = l_Lean_Parser_Term_if; +x_140 = l_Lean_Parser_Syntax_mkNode(x_139, x_138); +return x_140; } } } @@ -34372,36 +33617,22 @@ return x_10; } else { -obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; obj* x_23; +obj* x_11; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; x_11 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_13 = x_3; -} else { - lean::inc(x_11); - lean::dec(x_3); - x_13 = lean::box(0); -} +lean::inc(x_11); +lean::dec(x_3); x_14 = lean::box(0); x_15 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_15, 0, x_11); -if (lean::is_scalar(x_13)) { - x_16 = lean::alloc_cnstr(1, 1, 0); -} else { - x_16 = x_13; -} +x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); -x_17 = lean::box(3); -x_18 = l_Option_getOrElse___main___rarg(x_16, x_17); -lean::dec(x_16); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_18); -lean::cnstr_set(x_20, 1, x_14); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_6); -lean::cnstr_set(x_21, 1, x_20); -x_22 = l_Lean_Parser_Term_structInstType; -x_23 = l_Lean_Parser_Syntax_mkNode(x_22, x_21); -return x_23; +lean::cnstr_set(x_16, 1, x_14); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_6); +lean::cnstr_set(x_17, 1, x_16); +x_18 = l_Lean_Parser_Term_structInstType; +x_19 = l_Lean_Parser_Syntax_mkNode(x_18, x_17); +return x_19; } } } @@ -34631,39 +33862,25 @@ return x_9; } else { -obj* x_10; obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; +obj* x_10; obj* x_13; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; x_10 = lean::cnstr_get(x_0, 0); lean::inc(x_10); lean::dec(x_0); x_13 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_15 = x_1; -} else { - lean::inc(x_13); - lean::dec(x_1); - x_15 = lean::box(0); -} +lean::inc(x_13); +lean::dec(x_1); x_16 = lean::box(0); x_17 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_17, 0, x_13); -if (lean::is_scalar(x_15)) { - x_18 = lean::alloc_cnstr(1, 1, 0); -} else { - x_18 = x_15; -} +x_18 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_18, 0, x_17); -x_19 = lean::box(3); -x_20 = l_Option_getOrElse___main___rarg(x_18, x_19); -lean::dec(x_18); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_20); -lean::cnstr_set(x_22, 1, x_16); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_10); -lean::cnstr_set(x_23, 1, x_22); -x_24 = l_Lean_Parser_Term_structInstWith; -x_25 = l_Lean_Parser_Syntax_mkNode(x_24, x_23); -return x_25; +lean::cnstr_set(x_18, 1, x_16); +x_19 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_19, 0, x_10); +lean::cnstr_set(x_19, 1, x_18); +x_20 = l_Lean_Parser_Term_structInstWith; +x_21 = l_Lean_Parser_Syntax_mkNode(x_20, x_19); +return x_21; } } } @@ -35090,7 +34307,7 @@ lean::cnstr_set(x_10, 1, x_9); if (lean::obj_tag(x_3) == 0) { obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; -x_11 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_11 = lean::box(3); x_12 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_12, 0, x_11); lean::cnstr_set(x_12, 1, x_10); @@ -35103,35 +34320,21 @@ return x_15; } else { -obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; x_16 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_18 = x_3; -} else { - lean::inc(x_16); - lean::dec(x_3); - x_18 = lean::box(0); -} +lean::inc(x_16); +lean::dec(x_3); x_19 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_19, 0, x_16); -if (lean::is_scalar(x_18)) { - x_20 = lean::alloc_cnstr(1, 1, 0); -} else { - x_20 = x_18; -} +x_20 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_20, 0, x_19); -x_21 = lean::box(3); -x_22 = l_Option_getOrElse___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_10); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_8); -lean::cnstr_set(x_25, 1, x_24); -x_26 = l_Lean_Parser_Term_structInstField; -x_27 = l_Lean_Parser_Syntax_mkNode(x_26, x_25); -return x_27; +lean::cnstr_set(x_20, 1, x_10); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_8); +lean::cnstr_set(x_21, 1, x_20); +x_22 = l_Lean_Parser_Term_structInstField; +x_23 = l_Lean_Parser_Syntax_mkNode(x_22, x_21); +return x_23; } } } @@ -35548,22 +34751,20 @@ return x_97; obj* _init_l_Lean_Parser_Term_structInstSource_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -x_4 = l_Lean_Parser_noKind; -x_5 = l_Lean_Parser_Syntax_mkNode(x_4, x_0); -x_6 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_0); -x_7 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_7, 0, x_3); -lean::cnstr_set(x_7, 1, x_6); -x_8 = l_Lean_Parser_Term_structInstSource; -x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); -return x_9; +x_1 = l_Lean_Parser_noKind; +x_2 = l_Lean_Parser_Syntax_mkNode(x_1, x_0); +x_3 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_3, 0, x_2); +lean::cnstr_set(x_3, 1, x_0); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_3); +x_6 = l_Lean_Parser_Term_structInstSource; +x_7 = l_Lean_Parser_Syntax_mkNode(x_6, x_5); +return x_7; } } obj* l_Lean_Parser_Term_structInstSource_HasView_x_27___lambda__2(obj* x_0) { @@ -35598,7 +34799,7 @@ x_13 = l_Lean_Parser_Syntax_mkNode(x_12, x_11); x_14 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_14, 0, x_13); lean::cnstr_set(x_14, 1, x_6); -x_15 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_15 = lean::box(3); x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); lean::cnstr_set(x_16, 1, x_14); @@ -35609,57 +34810,43 @@ return x_18; } else { -obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; +obj* x_19; obj* x_22; x_19 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_21 = x_1; -} else { - lean::inc(x_19); - lean::dec(x_1); - x_21 = lean::box(0); -} +lean::inc(x_19); +lean::dec(x_1); x_22 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_22, 0, x_19); -if (lean::is_scalar(x_21)) { - x_23 = lean::alloc_cnstr(1, 1, 0); -} else { - x_23 = x_21; -} -lean::cnstr_set(x_23, 0, x_22); -x_24 = lean::box(3); -x_25 = l_Option_getOrElse___main___rarg(x_23, x_24); -lean::dec(x_23); if (lean::obj_tag(x_3) == 0) { -obj* x_27; obj* x_28; obj* x_29; obj* x_30; -x_27 = l_Lean_Parser_detailIdent_HasView_x_27___lambda__2___closed__1; -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_25); -lean::cnstr_set(x_28, 1, x_27); -x_29 = l_Lean_Parser_Term_structInstSource; -x_30 = l_Lean_Parser_Syntax_mkNode(x_29, x_28); -return x_30; +obj* x_23; obj* x_24; obj* x_25; obj* x_26; +x_23 = l_Lean_Parser_detailIdent_HasView_x_27___lambda__2___closed__1; +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_22); +lean::cnstr_set(x_24, 1, x_23); +x_25 = l_Lean_Parser_Term_structInstSource; +x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); +return x_26; } else { -obj* x_31; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; -x_31 = lean::cnstr_get(x_3, 0); -lean::inc(x_31); +obj* x_27; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; +x_27 = lean::cnstr_get(x_3, 0); +lean::inc(x_27); lean::dec(x_3); +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_27); +lean::cnstr_set(x_30, 1, x_6); +x_31 = l_Lean_Parser_noKind; +x_32 = l_Lean_Parser_Syntax_mkNode(x_31, x_30); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_6); x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_31); -lean::cnstr_set(x_34, 1, x_6); -x_35 = l_Lean_Parser_noKind; +lean::cnstr_set(x_34, 0, x_22); +lean::cnstr_set(x_34, 1, x_33); +x_35 = l_Lean_Parser_Term_structInstSource; x_36 = l_Lean_Parser_Syntax_mkNode(x_35, x_34); -x_37 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_37, 0, x_36); -lean::cnstr_set(x_37, 1, x_6); -x_38 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_38, 0, x_25); -lean::cnstr_set(x_38, 1, x_37); -x_39 = l_Lean_Parser_Term_structInstSource; -x_40 = l_Lean_Parser_Syntax_mkNode(x_39, x_38); -return x_40; +return x_36; } } } @@ -36210,41 +35397,27 @@ return x_31; } else { -obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_41; obj* x_42; obj* x_43; +obj* x_32; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; x_32 = lean::cnstr_get(x_21, 0); -if (lean::is_exclusive(x_21)) { - x_34 = x_21; -} else { - lean::inc(x_32); - lean::dec(x_21); - x_34 = lean::box(0); -} +lean::inc(x_32); +lean::dec(x_21); x_35 = lean::box(0); x_36 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_36, 0, x_32); -if (lean::is_scalar(x_34)) { - x_37 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_6)) { + x_37 = lean::alloc_cnstr(1, 2, 0); } else { - x_37 = x_34; + x_37 = x_6; } lean::cnstr_set(x_37, 0, x_36); -x_38 = lean::box(3); -x_39 = l_Option_getOrElse___main___rarg(x_37, x_38); -lean::dec(x_37); -if (lean::is_scalar(x_6)) { - x_41 = lean::alloc_cnstr(1, 2, 0); -} else { - x_41 = x_6; -} -lean::cnstr_set(x_41, 0, x_39); -lean::cnstr_set(x_41, 1, x_35); -x_42 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_42, 0, x_28); -lean::cnstr_set(x_42, 1, x_41); -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_42); -lean::cnstr_set(x_43, 1, x_12); -return x_43; +lean::cnstr_set(x_37, 1, x_35); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_28); +lean::cnstr_set(x_38, 1, x_37); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_12); +return x_39; } } } @@ -37016,7 +36189,7 @@ return x_152; obj* l_Lean_Parser_Term_structInst_HasView_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_19; obj* x_20; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -37035,283 +36208,294 @@ x_15 = l_Lean_Parser_Syntax_mkNode(x_14, x_13); x_16 = lean::box(0); if (lean::obj_tag(x_1) == 0) { -obj* x_19; -x_19 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_17 = x_19; +if (lean::obj_tag(x_3) == 0) +{ +obj* x_22; +x_22 = lean::box(3); +x_17 = x_22; goto lbl_18; } else { -obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; -x_20 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_22 = x_1; -} else { - lean::inc(x_20); - lean::dec(x_1); - x_22 = lean::box(0); +obj* x_23; obj* x_26; +x_23 = lean::cnstr_get(x_3, 0); +lean::inc(x_23); +lean::dec(x_3); +x_26 = lean::box(3); +x_19 = x_26; +x_20 = x_23; +goto lbl_21; } -x_23 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_23, 0, x_20); -if (lean::is_scalar(x_22)) { - x_24 = lean::alloc_cnstr(1, 1, 0); -} else { - x_24 = x_22; } -lean::cnstr_set(x_24, 0, x_23); -x_25 = lean::box(3); -x_26 = l_Option_getOrElse___main___rarg(x_24, x_25); -lean::dec(x_24); -x_17 = x_26; +else +{ +obj* x_27; obj* x_30; +x_27 = lean::cnstr_get(x_1, 0); +lean::inc(x_27); +lean::dec(x_1); +x_30 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_30, 0, x_27); +if (lean::obj_tag(x_3) == 0) +{ +x_17 = x_30; goto lbl_18; } +else +{ +obj* x_31; +x_31 = lean::cnstr_get(x_3, 0); +lean::inc(x_31); +lean::dec(x_3); +x_19 = x_30; +x_20 = x_31; +goto lbl_21; +} +} lbl_18: { -obj* x_28; obj* x_29; -if (lean::obj_tag(x_3) == 0) -{ if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_9) == 0) { -obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; -x_31 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_15); -lean::cnstr_set(x_32, 1, x_31); -x_33 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_33); -lean::cnstr_set(x_34, 1, x_32); +obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; +x_34 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_33); +lean::cnstr_set(x_35, 0, x_15); lean::cnstr_set(x_35, 1, x_34); -x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_17); -lean::cnstr_set(x_36, 1, x_35); -x_37 = l_Lean_Parser_Term_structInst; -x_38 = l_Lean_Parser_Syntax_mkNode(x_37, x_36); -return x_38; +x_36 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_36); +lean::cnstr_set(x_37, 1, x_35); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_36); +lean::cnstr_set(x_38, 1, x_37); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_17); +lean::cnstr_set(x_39, 1, x_38); +x_40 = l_Lean_Parser_Term_structInst; +x_41 = l_Lean_Parser_Syntax_mkNode(x_40, x_39); +return x_41; } else { -obj* x_39; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; -x_39 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_41 = x_9; -} else { - lean::inc(x_39); - lean::dec(x_9); - x_41 = lean::box(0); -} -x_42 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_42, 0, x_39); -if (lean::is_scalar(x_41)) { - x_43 = lean::alloc_cnstr(1, 1, 0); -} else { - x_43 = x_41; -} -lean::cnstr_set(x_43, 0, x_42); -x_44 = lean::box(3); -x_45 = l_Option_getOrElse___main___rarg(x_43, x_44); -lean::dec(x_43); +obj* x_42; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_42 = lean::cnstr_get(x_9, 0); +lean::inc(x_42); +lean::dec(x_9); +x_45 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_45, 0, x_42); +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_45); +lean::cnstr_set(x_46, 1, x_16); x_47 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_47, 0, x_45); -lean::cnstr_set(x_47, 1, x_16); -x_48 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_48, 0, x_15); -lean::cnstr_set(x_48, 1, x_47); -x_49 = l_Lean_Parser_Combinators_many___rarg___closed__1; +lean::cnstr_set(x_47, 0, x_15); +lean::cnstr_set(x_47, 1, x_46); +x_48 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_48); +lean::cnstr_set(x_49, 1, x_47); x_50 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_50, 0, x_49); -lean::cnstr_set(x_50, 1, x_48); +lean::cnstr_set(x_50, 0, x_48); +lean::cnstr_set(x_50, 1, x_49); x_51 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_51, 0, x_49); +lean::cnstr_set(x_51, 0, x_17); lean::cnstr_set(x_51, 1, x_50); -x_52 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_52, 0, x_17); -lean::cnstr_set(x_52, 1, x_51); -x_53 = l_Lean_Parser_Term_structInst; -x_54 = l_Lean_Parser_Syntax_mkNode(x_53, x_52); -return x_54; +x_52 = l_Lean_Parser_Term_structInst; +x_53 = l_Lean_Parser_Syntax_mkNode(x_52, x_51); +return x_53; } } else { -obj* x_55; obj* x_58; -x_55 = lean::cnstr_get(x_5, 0); -lean::inc(x_55); +obj* x_54; obj* x_57; obj* x_58; obj* x_61; obj* x_62; obj* x_63; +x_54 = lean::cnstr_get(x_5, 0); +lean::inc(x_54); lean::dec(x_5); -x_58 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_28 = x_58; -x_29 = x_55; -goto lbl_30; -} +x_57 = l_Lean_Parser_Term_structInstWith_HasView; +x_58 = lean::cnstr_get(x_57, 1); +lean::inc(x_58); +lean::dec(x_57); +x_61 = lean::apply_1(x_58, x_54); +x_62 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_62, 0, x_61); +lean::cnstr_set(x_62, 1, x_16); +x_63 = l_Lean_Parser_Syntax_mkNode(x_14, x_62); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; +x_64 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_65 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_65, 0, x_15); +lean::cnstr_set(x_65, 1, x_64); +x_66 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_66, 0, x_63); +lean::cnstr_set(x_66, 1, x_65); +x_67 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_67); +lean::cnstr_set(x_68, 1, x_66); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_17); +lean::cnstr_set(x_69, 1, x_68); +x_70 = l_Lean_Parser_Term_structInst; +x_71 = l_Lean_Parser_Syntax_mkNode(x_70, x_69); +return x_71; } else { -obj* x_59; obj* x_62; obj* x_63; obj* x_66; obj* x_67; obj* x_68; -x_59 = lean::cnstr_get(x_3, 0); -lean::inc(x_59); -lean::dec(x_3); -x_62 = l_Lean_Parser_Term_structInstType_HasView; -x_63 = lean::cnstr_get(x_62, 1); -lean::inc(x_63); -lean::dec(x_62); -x_66 = lean::apply_1(x_63, x_59); -x_67 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_67, 0, x_66); -lean::cnstr_set(x_67, 1, x_16); -x_68 = l_Lean_Parser_Syntax_mkNode(x_14, x_67); +obj* x_72; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; +x_72 = lean::cnstr_get(x_9, 0); +lean::inc(x_72); +lean::dec(x_9); +x_75 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_75, 0, x_72); +x_76 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_76, 0, x_75); +lean::cnstr_set(x_76, 1, x_16); +x_77 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_77, 0, x_15); +lean::cnstr_set(x_77, 1, x_76); +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_63); +lean::cnstr_set(x_78, 1, x_77); +x_79 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_80 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_80, 0, x_79); +lean::cnstr_set(x_80, 1, x_78); +x_81 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_81, 0, x_17); +lean::cnstr_set(x_81, 1, x_80); +x_82 = l_Lean_Parser_Term_structInst; +x_83 = l_Lean_Parser_Syntax_mkNode(x_82, x_81); +return x_83; +} +} +} +lbl_21: +{ +obj* x_84; obj* x_85; obj* x_88; obj* x_89; obj* x_90; +x_84 = l_Lean_Parser_Term_structInstType_HasView; +x_85 = lean::cnstr_get(x_84, 1); +lean::inc(x_85); +lean::dec(x_84); +x_88 = lean::apply_1(x_85, x_20); +x_89 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_89, 0, x_88); +lean::cnstr_set(x_89, 1, x_16); +x_90 = l_Lean_Parser_Syntax_mkNode(x_14, x_89); if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_9) == 0) { -obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; -x_69 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_70 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_70, 0, x_15); -lean::cnstr_set(x_70, 1, x_69); -x_71 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_72 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_72, 0, x_71); -lean::cnstr_set(x_72, 1, x_70); -x_73 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_73, 0, x_68); -lean::cnstr_set(x_73, 1, x_72); -x_74 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_74, 0, x_17); -lean::cnstr_set(x_74, 1, x_73); -x_75 = l_Lean_Parser_Term_structInst; -x_76 = l_Lean_Parser_Syntax_mkNode(x_75, x_74); -return x_76; +obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; +x_91 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_92 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_92, 0, x_15); +lean::cnstr_set(x_92, 1, x_91); +x_93 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_94 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_94, 0, x_93); +lean::cnstr_set(x_94, 1, x_92); +x_95 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_95, 0, x_90); +lean::cnstr_set(x_95, 1, x_94); +x_96 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_96, 0, x_19); +lean::cnstr_set(x_96, 1, x_95); +x_97 = l_Lean_Parser_Term_structInst; +x_98 = l_Lean_Parser_Syntax_mkNode(x_97, x_96); +return x_98; } else { -obj* x_77; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; -x_77 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_79 = x_9; -} else { - lean::inc(x_77); - lean::dec(x_9); - x_79 = lean::box(0); -} -x_80 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_80, 0, x_77); -if (lean::is_scalar(x_79)) { - x_81 = lean::alloc_cnstr(1, 1, 0); -} else { - x_81 = x_79; -} -lean::cnstr_set(x_81, 0, x_80); -x_82 = lean::box(3); -x_83 = l_Option_getOrElse___main___rarg(x_81, x_82); -lean::dec(x_81); -x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_83); -lean::cnstr_set(x_85, 1, x_16); -x_86 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_86, 0, x_15); -lean::cnstr_set(x_86, 1, x_85); -x_87 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_88 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_88, 0, x_87); -lean::cnstr_set(x_88, 1, x_86); -x_89 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_89, 0, x_68); -lean::cnstr_set(x_89, 1, x_88); -x_90 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_90, 0, x_17); -lean::cnstr_set(x_90, 1, x_89); -x_91 = l_Lean_Parser_Term_structInst; -x_92 = l_Lean_Parser_Syntax_mkNode(x_91, x_90); -return x_92; -} -} -else -{ -obj* x_93; -x_93 = lean::cnstr_get(x_5, 0); -lean::inc(x_93); -lean::dec(x_5); -x_28 = x_68; -x_29 = x_93; -goto lbl_30; -} -} -lbl_30: -{ -obj* x_96; obj* x_97; obj* x_100; obj* x_101; obj* x_102; -x_96 = l_Lean_Parser_Term_structInstWith_HasView; -x_97 = lean::cnstr_get(x_96, 1); -lean::inc(x_97); -lean::dec(x_96); -x_100 = lean::apply_1(x_97, x_29); -x_101 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_101, 0, x_100); -lean::cnstr_set(x_101, 1, x_16); -x_102 = l_Lean_Parser_Syntax_mkNode(x_14, x_101); -if (lean::obj_tag(x_9) == 0) -{ -obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; -x_103 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +obj* x_99; obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; +x_99 = lean::cnstr_get(x_9, 0); +lean::inc(x_99); +lean::dec(x_9); +x_102 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_102, 0, x_99); +x_103 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_103, 0, x_102); +lean::cnstr_set(x_103, 1, x_16); x_104 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_104, 0, x_15); lean::cnstr_set(x_104, 1, x_103); -x_105 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_105, 0, x_102); -lean::cnstr_set(x_105, 1, x_104); +x_105 = l_Lean_Parser_Combinators_many___rarg___closed__1; x_106 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_106, 0, x_28); -lean::cnstr_set(x_106, 1, x_105); +lean::cnstr_set(x_106, 0, x_105); +lean::cnstr_set(x_106, 1, x_104); x_107 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_107, 0, x_17); +lean::cnstr_set(x_107, 0, x_90); lean::cnstr_set(x_107, 1, x_106); -x_108 = l_Lean_Parser_Term_structInst; -x_109 = l_Lean_Parser_Syntax_mkNode(x_108, x_107); -return x_109; +x_108 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_108, 0, x_19); +lean::cnstr_set(x_108, 1, x_107); +x_109 = l_Lean_Parser_Term_structInst; +x_110 = l_Lean_Parser_Syntax_mkNode(x_109, x_108); +return x_110; +} } else { -obj* x_110; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; -x_110 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_112 = x_9; -} else { - lean::inc(x_110); - lean::dec(x_9); - x_112 = lean::box(0); -} -x_113 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_113, 0, x_110); -if (lean::is_scalar(x_112)) { - x_114 = lean::alloc_cnstr(1, 1, 0); -} else { - x_114 = x_112; -} -lean::cnstr_set(x_114, 0, x_113); -x_115 = lean::box(3); -x_116 = l_Option_getOrElse___main___rarg(x_114, x_115); +obj* x_111; obj* x_114; obj* x_115; obj* x_118; obj* x_119; obj* x_120; +x_111 = lean::cnstr_get(x_5, 0); +lean::inc(x_111); +lean::dec(x_5); +x_114 = l_Lean_Parser_Term_structInstWith_HasView; +x_115 = lean::cnstr_get(x_114, 1); +lean::inc(x_115); lean::dec(x_114); -x_118 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_118, 0, x_116); -lean::cnstr_set(x_118, 1, x_16); +x_118 = lean::apply_1(x_115, x_111); x_119 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_119, 0, x_15); -lean::cnstr_set(x_119, 1, x_118); -x_120 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_120, 0, x_102); -lean::cnstr_set(x_120, 1, x_119); -x_121 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_121, 0, x_28); -lean::cnstr_set(x_121, 1, x_120); +lean::cnstr_set(x_119, 0, x_118); +lean::cnstr_set(x_119, 1, x_16); +x_120 = l_Lean_Parser_Syntax_mkNode(x_14, x_119); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; +x_121 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_122 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_122, 0, x_17); +lean::cnstr_set(x_122, 0, x_15); lean::cnstr_set(x_122, 1, x_121); -x_123 = l_Lean_Parser_Term_structInst; -x_124 = l_Lean_Parser_Syntax_mkNode(x_123, x_122); -return x_124; +x_123 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_123, 0, x_120); +lean::cnstr_set(x_123, 1, x_122); +x_124 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_124, 0, x_90); +lean::cnstr_set(x_124, 1, x_123); +x_125 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_125, 0, x_19); +lean::cnstr_set(x_125, 1, x_124); +x_126 = l_Lean_Parser_Term_structInst; +x_127 = l_Lean_Parser_Syntax_mkNode(x_126, x_125); +return x_127; +} +else +{ +obj* x_128; obj* x_131; obj* x_132; obj* x_133; obj* x_134; obj* x_135; obj* x_136; obj* x_137; obj* x_138; +x_128 = lean::cnstr_get(x_9, 0); +lean::inc(x_128); +lean::dec(x_9); +x_131 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_131, 0, x_128); +x_132 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_132, 0, x_131); +lean::cnstr_set(x_132, 1, x_16); +x_133 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_133, 0, x_15); +lean::cnstr_set(x_133, 1, x_132); +x_134 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_134, 0, x_120); +lean::cnstr_set(x_134, 1, x_133); +x_135 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_135, 0, x_90); +lean::cnstr_set(x_135, 1, x_134); +x_136 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_136, 0, x_19); +lean::cnstr_set(x_136, 1, x_135); +x_137 = l_Lean_Parser_Term_structInst; +x_138 = l_Lean_Parser_Syntax_mkNode(x_137, x_136); +return x_138; } } } @@ -38445,7 +37629,7 @@ return x_150; obj* l_Lean_Parser_Term_Subtype_HasView_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_16; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_16; obj* x_18; obj* x_19; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -38464,239 +37648,307 @@ lean::cnstr_set(x_14, 0, x_3); x_15 = lean::box(0); if (lean::obj_tag(x_1) == 0) { -obj* x_18; -x_18 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_16 = x_18; +if (lean::obj_tag(x_5) == 0) +{ +obj* x_21; +x_21 = lean::box(3); +x_16 = x_21; goto lbl_17; } else { -obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; -x_19 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_21 = x_1; -} else { - lean::inc(x_19); - lean::dec(x_1); - x_21 = lean::box(0); +obj* x_22; obj* x_25; +x_22 = lean::cnstr_get(x_5, 0); +lean::inc(x_22); +lean::dec(x_5); +x_25 = lean::box(3); +x_18 = x_25; +x_19 = x_22; +goto lbl_20; } -x_22 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_22, 0, x_19); -if (lean::is_scalar(x_21)) { - x_23 = lean::alloc_cnstr(1, 1, 0); -} else { - x_23 = x_21; } -lean::cnstr_set(x_23, 0, x_22); -x_24 = lean::box(3); -x_25 = l_Option_getOrElse___main___rarg(x_23, x_24); -lean::dec(x_23); -x_16 = x_25; +else +{ +obj* x_26; obj* x_29; +x_26 = lean::cnstr_get(x_1, 0); +lean::inc(x_26); +lean::dec(x_1); +x_29 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_29, 0, x_26); +if (lean::obj_tag(x_5) == 0) +{ +x_16 = x_29; goto lbl_17; } +else +{ +obj* x_30; +x_30 = lean::cnstr_get(x_5, 0); +lean::inc(x_30); +lean::dec(x_5); +x_18 = x_29; +x_19 = x_30; +goto lbl_20; +} +} lbl_17: { -obj* x_27; obj* x_29; obj* x_30; -if (lean::obj_tag(x_5) == 0) -{ if (lean::obj_tag(x_7) == 0) { -obj* x_32; -x_32 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_27 = x_32; -goto lbl_28; -} -else -{ -obj* x_33; obj* x_36; -x_33 = lean::cnstr_get(x_7, 0); -lean::inc(x_33); -lean::dec(x_7); -x_36 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_29 = x_36; -x_30 = x_33; -goto lbl_31; -} -} -else -{ -obj* x_37; obj* x_40; obj* x_41; obj* x_44; obj* x_45; obj* x_46; obj* x_47; -x_37 = lean::cnstr_get(x_5, 0); -lean::inc(x_37); -lean::dec(x_5); -x_40 = l_Lean_Parser_Term_typeSpec_HasView; -x_41 = lean::cnstr_get(x_40, 1); -lean::inc(x_41); -lean::dec(x_40); -x_44 = lean::apply_1(x_41, x_37); -x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_44); -lean::cnstr_set(x_45, 1, x_15); -x_46 = l_Lean_Parser_noKind; -x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); -if (lean::obj_tag(x_7) == 0) -{ -x_27 = x_47; -goto lbl_28; -} -else -{ -obj* x_48; -x_48 = lean::cnstr_get(x_7, 0); -lean::inc(x_48); -lean::dec(x_7); -x_29 = x_47; -x_30 = x_48; -goto lbl_31; -} -} -lbl_28: -{ if (lean::obj_tag(x_11) == 0) { -obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; -x_51 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; +x_33 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_9); +lean::cnstr_set(x_34, 1, x_33); +x_35 = lean::box(3); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_35); +lean::cnstr_set(x_36, 1, x_34); +x_37 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_36); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_14); +lean::cnstr_set(x_39, 1, x_38); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_16); +lean::cnstr_set(x_40, 1, x_39); +x_41 = l_Lean_Parser_Term_Subtype; +x_42 = l_Lean_Parser_Syntax_mkNode(x_41, x_40); +return x_42; +} +else +{ +obj* x_43; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +x_43 = lean::cnstr_get(x_11, 0); +lean::inc(x_43); +lean::dec(x_11); +x_46 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_46, 0, x_43); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_46); +lean::cnstr_set(x_47, 1, x_15); +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_9); +lean::cnstr_set(x_48, 1, x_47); +x_49 = lean::box(3); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_49); +lean::cnstr_set(x_50, 1, x_48); +x_51 = l_Lean_Parser_Combinators_many___rarg___closed__1; x_52 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_52, 0, x_9); -lean::cnstr_set(x_52, 1, x_51); -x_53 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_50); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_14); +lean::cnstr_set(x_53, 1, x_52); x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_53); -lean::cnstr_set(x_54, 1, x_52); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_27); -lean::cnstr_set(x_55, 1, x_54); -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_14); -lean::cnstr_set(x_56, 1, x_55); -x_57 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_57, 0, x_16); -lean::cnstr_set(x_57, 1, x_56); -x_58 = l_Lean_Parser_Term_Subtype; -x_59 = l_Lean_Parser_Syntax_mkNode(x_58, x_57); -return x_59; +lean::cnstr_set(x_54, 0, x_16); +lean::cnstr_set(x_54, 1, x_53); +x_55 = l_Lean_Parser_Term_Subtype; +x_56 = l_Lean_Parser_Syntax_mkNode(x_55, x_54); +return x_56; +} } else { -obj* x_60; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; -x_60 = lean::cnstr_get(x_11, 0); -if (lean::is_exclusive(x_11)) { - x_62 = x_11; -} else { - lean::inc(x_60); - lean::dec(x_11); - x_62 = lean::box(0); -} -x_63 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_63, 0, x_60); -if (lean::is_scalar(x_62)) { - x_64 = lean::alloc_cnstr(1, 1, 0); -} else { - x_64 = x_62; -} -lean::cnstr_set(x_64, 0, x_63); -x_65 = lean::box(3); -x_66 = l_Option_getOrElse___main___rarg(x_64, x_65); -lean::dec(x_64); -x_68 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_68, 0, x_66); -lean::cnstr_set(x_68, 1, x_15); -x_69 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_69, 0, x_9); -lean::cnstr_set(x_69, 1, x_68); -x_70 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_71 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_71, 0, x_70); -lean::cnstr_set(x_71, 1, x_69); -x_72 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_72, 0, x_27); -lean::cnstr_set(x_72, 1, x_71); -x_73 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_73, 0, x_14); -lean::cnstr_set(x_73, 1, x_72); -x_74 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_74, 0, x_16); -lean::cnstr_set(x_74, 1, x_73); -x_75 = l_Lean_Parser_Term_Subtype; -x_76 = l_Lean_Parser_Syntax_mkNode(x_75, x_74); -return x_76; -} -} -lbl_31: -{ -obj* x_77; obj* x_78; obj* x_79; obj* x_80; -x_77 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_77, 0, x_30); -x_78 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_78, 0, x_77); -x_79 = lean::box(3); -x_80 = l_Option_getOrElse___main___rarg(x_78, x_79); -lean::dec(x_78); +obj* x_57; obj* x_60; +x_57 = lean::cnstr_get(x_7, 0); +lean::inc(x_57); +lean::dec(x_7); +x_60 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_60, 0, x_57); if (lean::obj_tag(x_11) == 0) { -obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; -x_82 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_83 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_83, 0, x_9); -lean::cnstr_set(x_83, 1, x_82); -x_84 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_84, 0, x_80); -lean::cnstr_set(x_84, 1, x_83); -x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_29); -lean::cnstr_set(x_85, 1, x_84); -x_86 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_86, 0, x_14); -lean::cnstr_set(x_86, 1, x_85); -x_87 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_87, 0, x_16); -lean::cnstr_set(x_87, 1, x_86); -x_88 = l_Lean_Parser_Term_Subtype; -x_89 = l_Lean_Parser_Syntax_mkNode(x_88, x_87); -return x_89; +obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; +x_61 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_62 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_62, 0, x_9); +lean::cnstr_set(x_62, 1, x_61); +x_63 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_63, 0, x_60); +lean::cnstr_set(x_63, 1, x_62); +x_64 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_65 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_65, 0, x_64); +lean::cnstr_set(x_65, 1, x_63); +x_66 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_66, 0, x_14); +lean::cnstr_set(x_66, 1, x_65); +x_67 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_67, 0, x_16); +lean::cnstr_set(x_67, 1, x_66); +x_68 = l_Lean_Parser_Term_Subtype; +x_69 = l_Lean_Parser_Syntax_mkNode(x_68, x_67); +return x_69; } else { -obj* x_90; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; -x_90 = lean::cnstr_get(x_11, 0); -if (lean::is_exclusive(x_11)) { - x_92 = x_11; -} else { - lean::inc(x_90); - lean::dec(x_11); - x_92 = lean::box(0); +obj* x_70; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; +x_70 = lean::cnstr_get(x_11, 0); +lean::inc(x_70); +lean::dec(x_11); +x_73 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_73, 0, x_70); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_73); +lean::cnstr_set(x_74, 1, x_15); +x_75 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_75, 0, x_9); +lean::cnstr_set(x_75, 1, x_74); +x_76 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_76, 0, x_60); +lean::cnstr_set(x_76, 1, x_75); +x_77 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_77); +lean::cnstr_set(x_78, 1, x_76); +x_79 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_79, 0, x_14); +lean::cnstr_set(x_79, 1, x_78); +x_80 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_80, 0, x_16); +lean::cnstr_set(x_80, 1, x_79); +x_81 = l_Lean_Parser_Term_Subtype; +x_82 = l_Lean_Parser_Syntax_mkNode(x_81, x_80); +return x_82; } -x_93 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_93, 0, x_90); -if (lean::is_scalar(x_92)) { - x_94 = lean::alloc_cnstr(1, 1, 0); -} else { - x_94 = x_92; } +} +lbl_20: +{ +obj* x_83; obj* x_84; obj* x_87; obj* x_88; obj* x_89; obj* x_90; +x_83 = l_Lean_Parser_Term_typeSpec_HasView; +x_84 = lean::cnstr_get(x_83, 1); +lean::inc(x_84); +lean::dec(x_83); +x_87 = lean::apply_1(x_84, x_19); +x_88 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_88, 0, x_87); +lean::cnstr_set(x_88, 1, x_15); +x_89 = l_Lean_Parser_noKind; +x_90 = l_Lean_Parser_Syntax_mkNode(x_89, x_88); +if (lean::obj_tag(x_7) == 0) +{ +if (lean::obj_tag(x_11) == 0) +{ +obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; +x_91 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_92 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_92, 0, x_9); +lean::cnstr_set(x_92, 1, x_91); +x_93 = lean::box(3); +x_94 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_94, 0, x_93); -x_95 = l_Option_getOrElse___main___rarg(x_94, x_79); -lean::dec(x_94); +lean::cnstr_set(x_94, 1, x_92); +x_95 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_95, 0, x_90); +lean::cnstr_set(x_95, 1, x_94); +x_96 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_96, 0, x_14); +lean::cnstr_set(x_96, 1, x_95); x_97 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_97, 0, x_95); -lean::cnstr_set(x_97, 1, x_15); -x_98 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_98, 0, x_9); -lean::cnstr_set(x_98, 1, x_97); -x_99 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_99, 0, x_80); -lean::cnstr_set(x_99, 1, x_98); -x_100 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_100, 0, x_29); -lean::cnstr_set(x_100, 1, x_99); -x_101 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_101, 0, x_14); -lean::cnstr_set(x_101, 1, x_100); -x_102 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_102, 0, x_16); -lean::cnstr_set(x_102, 1, x_101); -x_103 = l_Lean_Parser_Term_Subtype; -x_104 = l_Lean_Parser_Syntax_mkNode(x_103, x_102); -return x_104; +lean::cnstr_set(x_97, 0, x_18); +lean::cnstr_set(x_97, 1, x_96); +x_98 = l_Lean_Parser_Term_Subtype; +x_99 = l_Lean_Parser_Syntax_mkNode(x_98, x_97); +return x_99; +} +else +{ +obj* x_100; obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; +x_100 = lean::cnstr_get(x_11, 0); +lean::inc(x_100); +lean::dec(x_11); +x_103 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_103, 0, x_100); +x_104 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_104, 0, x_103); +lean::cnstr_set(x_104, 1, x_15); +x_105 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_105, 0, x_9); +lean::cnstr_set(x_105, 1, x_104); +x_106 = lean::box(3); +x_107 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_107, 0, x_106); +lean::cnstr_set(x_107, 1, x_105); +x_108 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_108, 0, x_90); +lean::cnstr_set(x_108, 1, x_107); +x_109 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_109, 0, x_14); +lean::cnstr_set(x_109, 1, x_108); +x_110 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_110, 0, x_18); +lean::cnstr_set(x_110, 1, x_109); +x_111 = l_Lean_Parser_Term_Subtype; +x_112 = l_Lean_Parser_Syntax_mkNode(x_111, x_110); +return x_112; +} +} +else +{ +obj* x_113; obj* x_116; +x_113 = lean::cnstr_get(x_7, 0); +lean::inc(x_113); +lean::dec(x_7); +x_116 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_116, 0, x_113); +if (lean::obj_tag(x_11) == 0) +{ +obj* x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; +x_117 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_118 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_118, 0, x_9); +lean::cnstr_set(x_118, 1, x_117); +x_119 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_119, 0, x_116); +lean::cnstr_set(x_119, 1, x_118); +x_120 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_120, 0, x_90); +lean::cnstr_set(x_120, 1, x_119); +x_121 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_121, 0, x_14); +lean::cnstr_set(x_121, 1, x_120); +x_122 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_122, 0, x_18); +lean::cnstr_set(x_122, 1, x_121); +x_123 = l_Lean_Parser_Term_Subtype; +x_124 = l_Lean_Parser_Syntax_mkNode(x_123, x_122); +return x_124; +} +else +{ +obj* x_125; obj* x_128; obj* x_129; obj* x_130; obj* x_131; obj* x_132; obj* x_133; obj* x_134; obj* x_135; obj* x_136; +x_125 = lean::cnstr_get(x_11, 0); +lean::inc(x_125); +lean::dec(x_11); +x_128 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_128, 0, x_125); +x_129 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_129, 0, x_128); +lean::cnstr_set(x_129, 1, x_15); +x_130 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_130, 0, x_9); +lean::cnstr_set(x_130, 1, x_129); +x_131 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_131, 0, x_116); +lean::cnstr_set(x_131, 1, x_130); +x_132 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_132, 0, x_90); +lean::cnstr_set(x_132, 1, x_131); +x_133 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_133, 0, x_14); +lean::cnstr_set(x_133, 1, x_132); +x_134 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_134, 0, x_18); +lean::cnstr_set(x_134, 1, x_133); +x_135 = l_Lean_Parser_Term_Subtype; +x_136 = l_Lean_Parser_Syntax_mkNode(x_135, x_134); +return x_136; } } } @@ -39192,7 +38444,7 @@ x_9 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; x_10 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_10, 0, x_3); lean::cnstr_set(x_10, 1, x_9); -x_11 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_11 = lean::box(3); x_12 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_12, 0, x_11); lean::cnstr_set(x_12, 1, x_10); @@ -39202,110 +38454,69 @@ return x_14; } else { -obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; +obj* x_15; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; x_15 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_17 = x_5; -} else { - lean::inc(x_15); - lean::dec(x_5); - x_17 = lean::box(0); -} +lean::inc(x_15); +lean::dec(x_5); x_18 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_18, 0, x_15); -if (lean::is_scalar(x_17)) { - x_19 = lean::alloc_cnstr(1, 1, 0); -} else { - x_19 = x_17; -} +x_19 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_19, 0, x_18); -x_20 = lean::box(3); -x_21 = l_Option_getOrElse___main___rarg(x_19, x_20); -lean::dec(x_19); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_21); -lean::cnstr_set(x_23, 1, x_8); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_3); -lean::cnstr_set(x_24, 1, x_23); -x_25 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_25); -lean::cnstr_set(x_26, 1, x_24); -x_27 = l_Lean_Parser_Term_inaccessible; -x_28 = l_Lean_Parser_Syntax_mkNode(x_27, x_26); -return x_28; +lean::cnstr_set(x_19, 1, x_8); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_3); +lean::cnstr_set(x_20, 1, x_19); +x_21 = lean::box(3); +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_21); +lean::cnstr_set(x_22, 1, x_20); +x_23 = l_Lean_Parser_Term_inaccessible; +x_24 = l_Lean_Parser_Syntax_mkNode(x_23, x_22); +return x_24; } } else { -obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; -x_29 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_31 = x_1; -} else { - lean::inc(x_29); - lean::dec(x_1); - x_31 = lean::box(0); -} -x_32 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_32, 0, x_29); -if (lean::is_scalar(x_31)) { - x_33 = lean::alloc_cnstr(1, 1, 0); -} else { - x_33 = x_31; -} -lean::cnstr_set(x_33, 0, x_32); -x_34 = lean::box(3); -x_35 = l_Option_getOrElse___main___rarg(x_33, x_34); -lean::dec(x_33); +obj* x_25; obj* x_28; +x_25 = lean::cnstr_get(x_1, 0); +lean::inc(x_25); +lean::dec(x_1); +x_28 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_28, 0, x_25); if (lean::obj_tag(x_5) == 0) { -obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_37 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_38 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_38, 0, x_3); -lean::cnstr_set(x_38, 1, x_37); -x_39 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_39, 0, x_35); -lean::cnstr_set(x_39, 1, x_38); -x_40 = l_Lean_Parser_Term_inaccessible; -x_41 = l_Lean_Parser_Syntax_mkNode(x_40, x_39); -return x_41; +obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_29 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_3); +lean::cnstr_set(x_30, 1, x_29); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_28); +lean::cnstr_set(x_31, 1, x_30); +x_32 = l_Lean_Parser_Term_inaccessible; +x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); +return x_33; } else { -obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; -x_42 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_44 = x_5; -} else { - lean::inc(x_42); - lean::dec(x_5); - x_44 = lean::box(0); -} -x_45 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_45, 0, x_42); -if (lean::is_scalar(x_44)) { - x_46 = lean::alloc_cnstr(1, 1, 0); -} else { - x_46 = x_44; -} -lean::cnstr_set(x_46, 0, x_45); -x_47 = l_Option_getOrElse___main___rarg(x_46, x_34); -lean::dec(x_46); -x_49 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_49, 0, x_47); -lean::cnstr_set(x_49, 1, x_8); -x_50 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_50, 0, x_3); -lean::cnstr_set(x_50, 1, x_49); -x_51 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_51, 0, x_35); -lean::cnstr_set(x_51, 1, x_50); -x_52 = l_Lean_Parser_Term_inaccessible; -x_53 = l_Lean_Parser_Syntax_mkNode(x_52, x_51); -return x_53; +obj* x_34; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; +x_34 = lean::cnstr_get(x_5, 0); +lean::inc(x_34); +lean::dec(x_5); +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_34); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_8); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_3); +lean::cnstr_set(x_39, 1, x_38); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_28); +lean::cnstr_set(x_40, 1, x_39); +x_41 = l_Lean_Parser_Term_inaccessible; +x_42 = l_Lean_Parser_Syntax_mkNode(x_41, x_40); +return x_42; } } } @@ -39475,17 +38686,15 @@ return x_8; obj* _init_l_Lean_Parser_Term_anonymousInaccessible_HasView_x_27___lambda__1___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -x_4 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_4, 0, x_3); -lean::cnstr_set(x_4, 1, x_0); -x_5 = l_Lean_Parser_Term_anonymousInaccessible; -x_6 = l_Lean_Parser_Syntax_mkNode(x_5, x_4); -return x_6; +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = l_Lean_Parser_Term_anonymousInaccessible; +x_4 = l_Lean_Parser_Syntax_mkNode(x_3, x_2); +return x_4; } } obj* l_Lean_Parser_Term_anonymousInaccessible_HasView_x_27___lambda__1(obj* x_0) { @@ -39499,33 +38708,19 @@ return x_1; } else { -obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; +obj* x_2; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_2 = lean::cnstr_get(x_0, 0); -if (lean::is_exclusive(x_0)) { - x_4 = x_0; -} else { - lean::inc(x_2); - lean::dec(x_0); - x_4 = lean::box(0); -} +lean::inc(x_2); +lean::dec(x_0); x_5 = lean::box(0); x_6 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_6, 0, x_2); -if (lean::is_scalar(x_4)) { - x_7 = lean::alloc_cnstr(1, 1, 0); -} else { - x_7 = x_4; -} +x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); -x_8 = lean::box(3); -x_9 = l_Option_getOrElse___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_11, 0, x_9); -lean::cnstr_set(x_11, 1, x_5); -x_12 = l_Lean_Parser_Term_anonymousInaccessible; -x_13 = l_Lean_Parser_Syntax_mkNode(x_12, x_11); -return x_13; +lean::cnstr_set(x_7, 1, x_5); +x_8 = l_Lean_Parser_Term_anonymousInaccessible; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } } @@ -39646,17 +38841,15 @@ return x_8; obj* _init_l_Lean_Parser_Term_sorry_HasView_x_27___lambda__1___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -x_4 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_4, 0, x_3); -lean::cnstr_set(x_4, 1, x_0); -x_5 = l_Lean_Parser_Term_sorry; -x_6 = l_Lean_Parser_Syntax_mkNode(x_5, x_4); -return x_6; +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = l_Lean_Parser_Term_sorry; +x_4 = l_Lean_Parser_Syntax_mkNode(x_3, x_2); +return x_4; } } obj* l_Lean_Parser_Term_sorry_HasView_x_27___lambda__1(obj* x_0) { @@ -39670,33 +38863,19 @@ return x_1; } else { -obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; +obj* x_2; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_2 = lean::cnstr_get(x_0, 0); -if (lean::is_exclusive(x_0)) { - x_4 = x_0; -} else { - lean::inc(x_2); - lean::dec(x_0); - x_4 = lean::box(0); -} +lean::inc(x_2); +lean::dec(x_0); x_5 = lean::box(0); x_6 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_6, 0, x_2); -if (lean::is_scalar(x_4)) { - x_7 = lean::alloc_cnstr(1, 1, 0); -} else { - x_7 = x_4; -} +x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); -x_8 = lean::box(3); -x_9 = l_Option_getOrElse___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_11, 0, x_9); -lean::cnstr_set(x_11, 1, x_5); -x_12 = l_Lean_Parser_Term_sorry; -x_13 = l_Lean_Parser_Syntax_mkNode(x_12, x_11); -return x_13; +lean::cnstr_set(x_7, 1, x_5); +x_8 = l_Lean_Parser_Term_sorry; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } } @@ -40000,7 +39179,7 @@ lean::cnstr_set(x_7, 1, x_6); if (lean::obj_tag(x_1) == 0) { obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_8 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_8 = lean::box(3); x_9 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_9, 0, x_8); lean::cnstr_set(x_9, 1, x_7); @@ -40010,32 +39189,18 @@ return x_11; } else { -obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; x_12 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_14 = x_1; -} else { - lean::inc(x_12); - lean::dec(x_1); - x_14 = lean::box(0); -} +lean::inc(x_12); +lean::dec(x_1); x_15 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_15, 0, x_12); -if (lean::is_scalar(x_14)) { - x_16 = lean::alloc_cnstr(1, 1, 0); -} else { - x_16 = x_14; -} +x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); -x_17 = lean::box(3); -x_18 = l_Option_getOrElse___main___rarg(x_16, x_17); -lean::dec(x_16); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_18); -lean::cnstr_set(x_20, 1, x_7); -x_21 = l_Lean_Parser_Term_borrowed; -x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); -return x_22; +lean::cnstr_set(x_16, 1, x_7); +x_17 = l_Lean_Parser_Term_borrowed; +x_18 = l_Lean_Parser_Syntax_mkNode(x_17, x_16); +return x_18; } } } @@ -40564,7 +39729,7 @@ lean::inc(x_12); x_21 = l_Lean_Parser_tryView___at_Lean_Parser_stringLit_Parser___spec__1(x_19, x_12); if (lean::obj_tag(x_21) == 0) { -obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_33; obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; +obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; lean::dec(x_11); lean::dec(x_12); lean::dec(x_18); @@ -40574,109 +39739,107 @@ x_26 = lean::box(0); x_27 = l_String_splitAux___main___closed__1; x_28 = l_Lean_Parser_stringLit_Parser___at_Lean_Parser_Term_builtinLeadingParsers_Lean_Parser_HasTokens___spec__1___rarg___closed__1; x_29 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_27, x_28, x_25, x_26, x_0, x_14, x_9); -lean::dec(x_14); lean::dec(x_0); -lean::dec(x_25); -x_33 = lean::cnstr_get(x_29, 0); -x_35 = lean::cnstr_get(x_29, 1); +x_31 = lean::cnstr_get(x_29, 0); +x_33 = lean::cnstr_get(x_29, 1); if (lean::is_exclusive(x_29)) { - x_37 = x_29; + x_35 = x_29; } else { + lean::inc(x_31); lean::inc(x_33); - lean::inc(x_35); lean::dec(x_29); - x_37 = lean::box(0); + x_35 = lean::box(0); } -x_38 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_39 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_33); -x_40 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_39); -x_41 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_40); -x_42 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_41, x_28); -x_43 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_42); -if (lean::is_scalar(x_37)) { - x_44 = lean::alloc_cnstr(0, 2, 0); +x_36 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_37 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_36, x_31); +x_38 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_37); +x_39 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_36, x_38); +x_40 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_39, x_28); +x_41 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_40); +if (lean::is_scalar(x_35)) { + x_42 = lean::alloc_cnstr(0, 2, 0); } else { - x_44 = x_37; + x_42 = x_35; } -lean::cnstr_set(x_44, 0, x_43); -lean::cnstr_set(x_44, 1, x_35); -return x_44; +lean::cnstr_set(x_42, 0, x_41); +lean::cnstr_set(x_42, 1, x_33); +return x_42; } else { -obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; lean::dec(x_0); lean::dec(x_2); lean::dec(x_21); -x_48 = l_Lean_Parser_finishCommentBlock___closed__2; +x_46 = l_Lean_Parser_finishCommentBlock___closed__2; if (lean::is_scalar(x_18)) { - x_49 = lean::alloc_cnstr(0, 3, 0); + x_47 = lean::alloc_cnstr(0, 3, 0); } else { - x_49 = x_18; + x_47 = x_18; } -lean::cnstr_set(x_49, 0, x_12); -lean::cnstr_set(x_49, 1, x_14); -lean::cnstr_set(x_49, 2, x_48); -x_50 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_49); -x_51 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_51, x_50); -x_53 = l_Lean_Parser_stringLit_Parser___at_Lean_Parser_Term_builtinLeadingParsers_Lean_Parser_HasTokens___spec__1___rarg___closed__1; -x_54 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_52, x_53); -x_55 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_54); +lean::cnstr_set(x_47, 0, x_12); +lean::cnstr_set(x_47, 1, x_14); +lean::cnstr_set(x_47, 2, x_46); +x_48 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_47); +x_49 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_50 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_49, x_48); +x_51 = l_Lean_Parser_stringLit_Parser___at_Lean_Parser_Term_builtinLeadingParsers_Lean_Parser_HasTokens___spec__1___rarg___closed__1; +x_52 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_50, x_51); +x_53 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_52); if (lean::is_scalar(x_11)) { - x_56 = lean::alloc_cnstr(0, 2, 0); + x_54 = lean::alloc_cnstr(0, 2, 0); } else { - x_56 = x_11; + x_54 = x_11; } -lean::cnstr_set(x_56, 0, x_55); -lean::cnstr_set(x_56, 1, x_9); -return x_56; +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_9); +return x_54; } } else { -obj* x_59; obj* x_61; obj* x_62; uint8 x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; +obj* x_57; obj* x_59; obj* x_60; uint8 x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; lean::dec(x_0); lean::dec(x_2); -x_59 = lean::cnstr_get(x_6, 1); +x_57 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); - x_61 = x_6; + x_59 = x_6; } else { - lean::inc(x_59); + lean::inc(x_57); lean::dec(x_6); - x_61 = lean::box(0); + x_59 = lean::box(0); } -x_62 = lean::cnstr_get(x_7, 0); -x_64 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); +x_60 = lean::cnstr_get(x_7, 0); +x_62 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); if (lean::is_exclusive(x_7)) { - x_65 = x_7; + x_63 = x_7; } else { - lean::inc(x_62); + lean::inc(x_60); lean::dec(x_7); - x_65 = lean::box(0); + x_63 = lean::box(0); } -if (lean::is_scalar(x_65)) { - x_66 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_63)) { + x_64 = lean::alloc_cnstr(1, 1, 1); } else { - x_66 = x_65; + x_64 = x_63; } -lean::cnstr_set(x_66, 0, x_62); -lean::cnstr_set_scalar(x_66, sizeof(void*)*1, x_64); -x_67 = x_66; -x_68 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_69 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_68, x_67); -x_70 = l_Lean_Parser_stringLit_Parser___at_Lean_Parser_Term_builtinLeadingParsers_Lean_Parser_HasTokens___spec__1___rarg___closed__1; -x_71 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_69, x_70); -x_72 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_71); -if (lean::is_scalar(x_61)) { - x_73 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_64, 0, x_60); +lean::cnstr_set_scalar(x_64, sizeof(void*)*1, x_62); +x_65 = x_64; +x_66 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_67 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_66, x_65); +x_68 = l_Lean_Parser_stringLit_Parser___at_Lean_Parser_Term_builtinLeadingParsers_Lean_Parser_HasTokens___spec__1___rarg___closed__1; +x_69 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_67, x_68); +x_70 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_69); +if (lean::is_scalar(x_59)) { + x_71 = lean::alloc_cnstr(0, 2, 0); } else { - x_73 = x_61; + x_71 = x_59; } -lean::cnstr_set(x_73, 0, x_72); -lean::cnstr_set(x_73, 1, x_59); -return x_73; +lean::cnstr_set(x_71, 0, x_70); +lean::cnstr_set(x_71, 1, x_57); +return x_71; } } } @@ -41454,178 +40617,253 @@ goto lbl_24; } else { -obj* x_54; obj* x_57; obj* x_59; obj* x_60; obj* x_62; obj* x_65; obj* x_66; obj* x_68; obj* x_70; obj* x_73; obj* x_75; obj* x_76; obj* x_77; -x_54 = lean::cnstr_get(x_29, 1); -lean::inc(x_54); -lean::dec(x_29); -x_57 = lean::cnstr_get(x_30, 0); +obj* x_54; obj* x_56; obj* x_57; +x_54 = lean::cnstr_get(x_30, 0); if (lean::is_exclusive(x_30)) { lean::cnstr_set(x_30, 0, lean::box(0)); - x_59 = x_30; + x_56 = x_30; } else { - lean::inc(x_57); + lean::inc(x_54); lean::dec(x_30); - x_59 = lean::box(0); + x_56 = lean::box(0); } -x_60 = lean::cnstr_get(x_57, 3); -lean::inc(x_60); -x_62 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_60); -lean::dec(x_60); -lean::inc(x_1); -x_65 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_65, 0, x_62); -lean::cnstr_set(x_65, 1, x_1); -x_66 = lean::cnstr_get(x_57, 0); +x_57 = lean::cnstr_get(x_54, 3); +lean::inc(x_57); +if (lean::obj_tag(x_57) == 0) +{ +obj* x_59; obj* x_62; obj* x_64; obj* x_66; obj* x_69; obj* x_71; obj* x_72; obj* x_74; obj* x_75; obj* x_76; +x_59 = lean::cnstr_get(x_29, 1); +lean::inc(x_59); +lean::dec(x_29); +x_62 = lean::cnstr_get(x_54, 0); +lean::inc(x_62); +x_64 = lean::cnstr_get(x_54, 1); +lean::inc(x_64); +x_66 = lean::cnstr_get(x_54, 2); lean::inc(x_66); -x_68 = lean::cnstr_get(x_57, 1); -lean::inc(x_68); -x_70 = lean::cnstr_get(x_57, 2); -lean::inc(x_70); -lean::dec(x_57); -x_73 = l_List_reverse___rarg(x_65); +lean::dec(x_54); +x_69 = lean::box(3); +lean::inc(x_1); +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_69); +lean::cnstr_set(x_71, 1, x_1); +x_72 = l_List_reverse___rarg(x_71); lean::inc(x_0); -x_75 = l_Lean_Parser_Syntax_mkNode(x_0, x_73); -x_76 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_76, 0, x_75); -x_77 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_77, 0, x_66); -lean::cnstr_set(x_77, 1, x_68); -lean::cnstr_set(x_77, 2, x_70); -lean::cnstr_set(x_77, 3, x_76); +x_74 = l_Lean_Parser_Syntax_mkNode(x_0, x_72); +x_75 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_75, 0, x_74); +x_76 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_76, 0, x_62); +lean::cnstr_set(x_76, 1, x_64); +lean::cnstr_set(x_76, 2, x_66); +lean::cnstr_set(x_76, 3, x_75); if (x_35 == 0) { -uint8 x_78; obj* x_79; obj* x_80; -x_78 = 0; -if (lean::is_scalar(x_59)) { - x_79 = lean::alloc_cnstr(1, 1, 1); +uint8 x_77; obj* x_78; obj* x_79; +x_77 = 0; +if (lean::is_scalar(x_56)) { + x_78 = lean::alloc_cnstr(1, 1, 1); } else { - x_79 = x_59; + x_78 = x_56; } -lean::cnstr_set(x_79, 0, x_77); -lean::cnstr_set_scalar(x_79, sizeof(void*)*1, x_78); -x_80 = x_79; -x_22 = x_80; -x_23 = x_54; +lean::cnstr_set(x_78, 0, x_76); +lean::cnstr_set_scalar(x_78, sizeof(void*)*1, x_77); +x_79 = x_78; +x_22 = x_79; +x_23 = x_59; goto lbl_24; } else { -uint8 x_81; obj* x_82; obj* x_83; -x_81 = 1; -if (lean::is_scalar(x_59)) { - x_82 = lean::alloc_cnstr(1, 1, 1); +uint8 x_80; obj* x_81; obj* x_82; +x_80 = 1; +if (lean::is_scalar(x_56)) { + x_81 = lean::alloc_cnstr(1, 1, 1); } else { - x_82 = x_59; + x_81 = x_56; } -lean::cnstr_set(x_82, 0, x_77); -lean::cnstr_set_scalar(x_82, sizeof(void*)*1, x_81); -x_83 = x_82; -x_22 = x_83; -x_23 = x_54; +lean::cnstr_set(x_81, 0, x_76); +lean::cnstr_set_scalar(x_81, sizeof(void*)*1, x_80); +x_82 = x_81; +x_22 = x_82; +x_23 = x_59; goto lbl_24; } } +else +{ +obj* x_83; obj* x_86; obj* x_88; obj* x_90; obj* x_93; obj* x_95; obj* x_97; obj* x_98; obj* x_100; obj* x_101; obj* x_102; +x_83 = lean::cnstr_get(x_29, 1); +lean::inc(x_83); +lean::dec(x_29); +x_86 = lean::cnstr_get(x_54, 0); +lean::inc(x_86); +x_88 = lean::cnstr_get(x_54, 1); +lean::inc(x_88); +x_90 = lean::cnstr_get(x_54, 2); +lean::inc(x_90); +lean::dec(x_54); +x_93 = lean::cnstr_get(x_57, 0); +if (lean::is_exclusive(x_57)) { + x_95 = x_57; +} else { + lean::inc(x_93); + lean::dec(x_57); + x_95 = lean::box(0); +} +lean::inc(x_1); +x_97 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_97, 0, x_93); +lean::cnstr_set(x_97, 1, x_1); +x_98 = l_List_reverse___rarg(x_97); +lean::inc(x_0); +x_100 = l_Lean_Parser_Syntax_mkNode(x_0, x_98); +if (lean::is_scalar(x_95)) { + x_101 = lean::alloc_cnstr(1, 1, 0); +} else { + x_101 = x_95; +} +lean::cnstr_set(x_101, 0, x_100); +x_102 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_102, 0, x_86); +lean::cnstr_set(x_102, 1, x_88); +lean::cnstr_set(x_102, 2, x_90); +lean::cnstr_set(x_102, 3, x_101); +if (x_35 == 0) +{ +uint8 x_103; obj* x_104; obj* x_105; +x_103 = 0; +if (lean::is_scalar(x_56)) { + x_104 = lean::alloc_cnstr(1, 1, 1); +} else { + x_104 = x_56; +} +lean::cnstr_set(x_104, 0, x_102); +lean::cnstr_set_scalar(x_104, sizeof(void*)*1, x_103); +x_105 = x_104; +x_22 = x_105; +x_23 = x_83; +goto lbl_24; +} +else +{ +uint8 x_106; obj* x_107; obj* x_108; +x_106 = 1; +if (lean::is_scalar(x_56)) { + x_107 = lean::alloc_cnstr(1, 1, 1); +} else { + x_107 = x_56; +} +lean::cnstr_set(x_107, 0, x_102); +lean::cnstr_set_scalar(x_107, sizeof(void*)*1, x_106); +x_108 = x_107; +x_22 = x_108; +x_23 = x_83; +goto lbl_24; +} +} +} } lbl_24: { if (lean::obj_tag(x_22) == 0) { -obj* x_84; obj* x_86; obj* x_88; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; -x_84 = lean::cnstr_get(x_22, 0); -x_86 = lean::cnstr_get(x_22, 1); -x_88 = lean::cnstr_get(x_22, 2); +obj* x_109; obj* x_111; obj* x_113; obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; +x_109 = lean::cnstr_get(x_22, 0); +x_111 = lean::cnstr_get(x_22, 1); +x_113 = lean::cnstr_get(x_22, 2); if (lean::is_exclusive(x_22)) { - x_90 = x_22; + x_115 = x_22; } else { - lean::inc(x_84); - lean::inc(x_86); - lean::inc(x_88); + lean::inc(x_109); + lean::inc(x_111); + lean::inc(x_113); lean::dec(x_22); - x_90 = lean::box(0); + x_115 = lean::box(0); } if (lean::is_scalar(x_21)) { - x_91 = lean::alloc_cnstr(1, 2, 0); + x_116 = lean::alloc_cnstr(1, 2, 0); } else { - x_91 = x_21; + x_116 = x_21; } -lean::cnstr_set(x_91, 0, x_84); -lean::cnstr_set(x_91, 1, x_1); -x_92 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_90)) { - x_93 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_116, 0, x_109); +lean::cnstr_set(x_116, 1, x_1); +x_117 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_115)) { + x_118 = lean::alloc_cnstr(0, 3, 0); } else { - x_93 = x_90; + x_118 = x_115; } -lean::cnstr_set(x_93, 0, x_91); -lean::cnstr_set(x_93, 1, x_86); -lean::cnstr_set(x_93, 2, x_92); -x_94 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_88, x_93); -if (lean::obj_tag(x_94) == 0) +lean::cnstr_set(x_118, 0, x_116); +lean::cnstr_set(x_118, 1, x_111); +lean::cnstr_set(x_118, 2, x_117); +x_119 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_113, x_118); +if (lean::obj_tag(x_119) == 0) { -obj* x_95; obj* x_97; obj* x_99; obj* x_102; obj* x_103; obj* x_105; obj* x_107; obj* x_108; obj* x_109; -x_95 = lean::cnstr_get(x_94, 0); -lean::inc(x_95); -x_97 = lean::cnstr_get(x_94, 1); -lean::inc(x_97); -x_99 = lean::cnstr_get(x_94, 2); -lean::inc(x_99); -lean::dec(x_94); -x_102 = l_List_mfoldl___main___at_Lean_Parser_Term_sortApp_Parser_Lean_Parser_HasTokens___spec__4(x_0, x_95, x_19, x_3, x_4, x_5, x_6, x_97, x_23); -x_103 = lean::cnstr_get(x_102, 0); -x_105 = lean::cnstr_get(x_102, 1); -if (lean::is_exclusive(x_102)) { - x_107 = x_102; +obj* x_120; obj* x_122; obj* x_124; obj* x_127; obj* x_128; obj* x_130; obj* x_132; obj* x_133; obj* x_134; +x_120 = lean::cnstr_get(x_119, 0); +lean::inc(x_120); +x_122 = lean::cnstr_get(x_119, 1); +lean::inc(x_122); +x_124 = lean::cnstr_get(x_119, 2); +lean::inc(x_124); +lean::dec(x_119); +x_127 = l_List_mfoldl___main___at_Lean_Parser_Term_sortApp_Parser_Lean_Parser_HasTokens___spec__4(x_0, x_120, x_19, x_3, x_4, x_5, x_6, x_122, x_23); +x_128 = lean::cnstr_get(x_127, 0); +x_130 = lean::cnstr_get(x_127, 1); +if (lean::is_exclusive(x_127)) { + x_132 = x_127; } else { - lean::inc(x_103); - lean::inc(x_105); - lean::dec(x_102); - x_107 = lean::box(0); + lean::inc(x_128); + lean::inc(x_130); + lean::dec(x_127); + x_132 = lean::box(0); } -x_108 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_99, x_103); -if (lean::is_scalar(x_107)) { - x_109 = lean::alloc_cnstr(0, 2, 0); +x_133 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_124, x_128); +if (lean::is_scalar(x_132)) { + x_134 = lean::alloc_cnstr(0, 2, 0); } else { - x_109 = x_107; + x_134 = x_132; } -lean::cnstr_set(x_109, 0, x_108); -lean::cnstr_set(x_109, 1, x_105); -return x_109; +lean::cnstr_set(x_134, 0, x_133); +lean::cnstr_set(x_134, 1, x_130); +return x_134; } else { -obj* x_116; uint8 x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; +obj* x_141; uint8 x_143; obj* x_144; obj* x_145; obj* x_146; obj* x_147; lean::dec(x_5); lean::dec(x_4); lean::dec(x_6); lean::dec(x_3); lean::dec(x_0); lean::dec(x_19); -x_116 = lean::cnstr_get(x_94, 0); -x_118 = lean::cnstr_get_scalar(x_94, sizeof(void*)*1); -if (lean::is_exclusive(x_94)) { - x_119 = x_94; +x_141 = lean::cnstr_get(x_119, 0); +x_143 = lean::cnstr_get_scalar(x_119, sizeof(void*)*1); +if (lean::is_exclusive(x_119)) { + x_144 = x_119; } else { - lean::inc(x_116); - lean::dec(x_94); - x_119 = lean::box(0); + lean::inc(x_141); + lean::dec(x_119); + x_144 = lean::box(0); } -if (lean::is_scalar(x_119)) { - x_120 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_144)) { + x_145 = lean::alloc_cnstr(1, 1, 1); } else { - x_120 = x_119; + x_145 = x_144; } -lean::cnstr_set(x_120, 0, x_116); -lean::cnstr_set_scalar(x_120, sizeof(void*)*1, x_118); -x_121 = x_120; -x_122 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_122, 0, x_121); -lean::cnstr_set(x_122, 1, x_23); -return x_122; +lean::cnstr_set(x_145, 0, x_141); +lean::cnstr_set_scalar(x_145, sizeof(void*)*1, x_143); +x_146 = x_145; +x_147 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_147, 0, x_146); +lean::cnstr_set(x_147, 1, x_23); +return x_147; } } else { -obj* x_131; uint8 x_133; obj* x_134; obj* x_135; obj* x_136; obj* x_137; +obj* x_156; uint8 x_158; obj* x_159; obj* x_160; obj* x_161; obj* x_162; lean::dec(x_5); lean::dec(x_4); lean::dec(x_1); @@ -41634,27 +40872,27 @@ lean::dec(x_3); lean::dec(x_0); lean::dec(x_19); lean::dec(x_21); -x_131 = lean::cnstr_get(x_22, 0); -x_133 = lean::cnstr_get_scalar(x_22, sizeof(void*)*1); +x_156 = lean::cnstr_get(x_22, 0); +x_158 = lean::cnstr_get_scalar(x_22, sizeof(void*)*1); if (lean::is_exclusive(x_22)) { - x_134 = x_22; + x_159 = x_22; } else { - lean::inc(x_131); + lean::inc(x_156); lean::dec(x_22); - x_134 = lean::box(0); + x_159 = lean::box(0); } -if (lean::is_scalar(x_134)) { - x_135 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_159)) { + x_160 = lean::alloc_cnstr(1, 1, 1); } else { - x_135 = x_134; + x_160 = x_159; } -lean::cnstr_set(x_135, 0, x_131); -lean::cnstr_set_scalar(x_135, sizeof(void*)*1, x_133); -x_136 = x_135; -x_137 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_137, 0, x_136); -lean::cnstr_set(x_137, 1, x_23); -return x_137; +lean::cnstr_set(x_160, 0, x_156); +lean::cnstr_set_scalar(x_160, sizeof(void*)*1, x_158); +x_161 = x_160; +x_162 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_162, 0, x_161); +lean::cnstr_set(x_162, 1, x_23); +return x_162; } } } @@ -43444,7 +42682,7 @@ lean::cnstr_set(x_14, 1, x_13); if (lean::obj_tag(x_3) == 0) { obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; -x_15 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_15 = lean::box(3); x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); lean::cnstr_set(x_16, 1, x_14); @@ -43457,35 +42695,21 @@ return x_19; } else { -obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; x_20 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_22 = x_3; -} else { - lean::inc(x_20); - lean::dec(x_3); - x_22 = lean::box(0); -} +lean::inc(x_20); +lean::dec(x_3); x_23 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_23, 0, x_20); -if (lean::is_scalar(x_22)) { - x_24 = lean::alloc_cnstr(1, 1, 0); -} else { - x_24 = x_22; -} +x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); -x_25 = lean::box(3); -x_26 = l_Option_getOrElse___main___rarg(x_24, x_25); -lean::dec(x_24); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_26); -lean::cnstr_set(x_28, 1, x_14); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_1); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_Lean_Parser_Term_projection; -x_31 = l_Lean_Parser_Syntax_mkNode(x_30, x_29); -return x_31; +lean::cnstr_set(x_24, 1, x_14); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_1); +lean::cnstr_set(x_25, 1, x_24); +x_26 = l_Lean_Parser_Term_projection; +x_27 = l_Lean_Parser_Syntax_mkNode(x_26, x_25); +return x_27; } } } @@ -43672,7 +42896,7 @@ goto lbl_20; } lbl_20: { -obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_47; obj* x_49; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_45; obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; lean::dec(x_19); x_39 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_39, 0, x_2); @@ -43680,78 +42904,76 @@ x_40 = lean::box(0); x_41 = l_String_splitAux___main___closed__1; x_42 = l_Lean_Parser_ident_Parser___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__4___rarg___closed__1; x_43 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_41, x_42, x_39, x_40, x_0, x_14, x_9); -lean::dec(x_14); lean::dec(x_0); -lean::dec(x_39); -x_47 = lean::cnstr_get(x_43, 0); -x_49 = lean::cnstr_get(x_43, 1); +x_45 = lean::cnstr_get(x_43, 0); +x_47 = lean::cnstr_get(x_43, 1); if (lean::is_exclusive(x_43)) { - x_51 = x_43; + x_49 = x_43; } else { + lean::inc(x_45); lean::inc(x_47); - lean::inc(x_49); lean::dec(x_43); - x_51 = lean::box(0); + x_49 = lean::box(0); } -x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_47); -x_53 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_54 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_53, x_52); -x_55 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_54, x_42); -x_56 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_55); -if (lean::is_scalar(x_51)) { - x_57 = lean::alloc_cnstr(0, 2, 0); +x_50 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_45); +x_51 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_51, x_50); +x_53 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_52, x_42); +x_54 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_53); +if (lean::is_scalar(x_49)) { + x_55 = lean::alloc_cnstr(0, 2, 0); } else { - x_57 = x_51; + x_55 = x_49; } -lean::cnstr_set(x_57, 0, x_56); -lean::cnstr_set(x_57, 1, x_49); -return x_57; +lean::cnstr_set(x_55, 0, x_54); +lean::cnstr_set(x_55, 1, x_47); +return x_55; } } else { -obj* x_60; obj* x_62; obj* x_63; uint8 x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; +obj* x_58; obj* x_60; obj* x_61; uint8 x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; lean::dec(x_0); lean::dec(x_2); -x_60 = lean::cnstr_get(x_6, 1); +x_58 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); - x_62 = x_6; + x_60 = x_6; } else { - lean::inc(x_60); + lean::inc(x_58); lean::dec(x_6); - x_62 = lean::box(0); + x_60 = lean::box(0); } -x_63 = lean::cnstr_get(x_7, 0); -x_65 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); +x_61 = lean::cnstr_get(x_7, 0); +x_63 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); if (lean::is_exclusive(x_7)) { - x_66 = x_7; + x_64 = x_7; } else { - lean::inc(x_63); + lean::inc(x_61); lean::dec(x_7); - x_66 = lean::box(0); + x_64 = lean::box(0); } -if (lean::is_scalar(x_66)) { - x_67 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_64)) { + x_65 = lean::alloc_cnstr(1, 1, 1); } else { - x_67 = x_66; + x_65 = x_64; } -lean::cnstr_set(x_67, 0, x_63); -lean::cnstr_set_scalar(x_67, sizeof(void*)*1, x_65); -x_68 = x_67; -x_69 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_70 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_69, x_68); -x_71 = l_Lean_Parser_ident_Parser___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__4___rarg___closed__1; -x_72 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_70, x_71); -x_73 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_72); -if (lean::is_scalar(x_62)) { - x_74 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_65, 0, x_61); +lean::cnstr_set_scalar(x_65, sizeof(void*)*1, x_63); +x_66 = x_65; +x_67 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_68 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_67, x_66); +x_69 = l_Lean_Parser_ident_Parser___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__4___rarg___closed__1; +x_70 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_68, x_69); +x_71 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_70); +if (lean::is_scalar(x_60)) { + x_72 = lean::alloc_cnstr(0, 2, 0); } else { - x_74 = x_62; + x_72 = x_60; } -lean::cnstr_set(x_74, 0, x_73); -lean::cnstr_set(x_74, 1, x_60); -return x_74; +lean::cnstr_set(x_72, 0, x_71); +lean::cnstr_set(x_72, 1, x_58); +return x_72; } } } @@ -43774,7 +42996,7 @@ x_7 = lean::cnstr_get(x_6, 0); lean::inc(x_7); if (lean::obj_tag(x_7) == 0) { -obj* x_9; obj* x_11; obj* x_12; obj* x_14; obj* x_16; obj* x_18; obj* x_19; obj* x_21; +obj* x_9; obj* x_11; obj* x_12; obj* x_14; obj* x_16; obj* x_18; obj* x_19; uint8 x_20; x_9 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); @@ -43801,123 +43023,112 @@ if (lean::is_exclusive(x_7)) { x_18 = lean::box(0); } x_19 = l_Lean_Parser_number; -lean::inc(x_12); -x_21 = l_Lean_Parser_tryView___at_Lean_Parser_number_Parser___spec__1(x_19, x_12); -if (lean::obj_tag(x_21) == 0) +x_20 = l_Lean_Parser_Syntax_isOfKind___main(x_19, x_12); +if (x_20 == 0) { -obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_33; obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; +obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; lean::dec(x_11); lean::dec(x_12); lean::dec(x_18); -x_25 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_25, 0, x_2); -x_26 = lean::box(0); -x_27 = l_String_splitAux___main___closed__1; -x_28 = l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___rarg___closed__1; -x_29 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_27, x_28, x_25, x_26, x_0, x_14, x_9); -lean::dec(x_14); +x_24 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_24, 0, x_2); +x_25 = lean::box(0); +x_26 = l_String_splitAux___main___closed__1; +x_27 = l_Lean_Parser_number_Parser___rarg___lambda__1___closed__1; +x_28 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_26, x_27, x_24, x_25, x_0, x_14, x_9); lean::dec(x_0); -lean::dec(x_25); -x_33 = lean::cnstr_get(x_29, 0); -x_35 = lean::cnstr_get(x_29, 1); -if (lean::is_exclusive(x_29)) { - x_37 = x_29; +x_30 = lean::cnstr_get(x_28, 0); +x_32 = lean::cnstr_get(x_28, 1); +if (lean::is_exclusive(x_28)) { + x_34 = x_28; } else { - lean::inc(x_33); - lean::inc(x_35); - lean::dec(x_29); - x_37 = lean::box(0); + lean::inc(x_30); + lean::inc(x_32); + lean::dec(x_28); + x_34 = lean::box(0); } -x_38 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_39 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_33); -x_40 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_39); -x_41 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_40); -x_42 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_41, x_28); -x_43 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_42); -if (lean::is_scalar(x_37)) { - x_44 = lean::alloc_cnstr(0, 2, 0); +x_35 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_30); +x_36 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_37 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_36, x_35); +x_38 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_37); +if (lean::is_scalar(x_34)) { + x_39 = lean::alloc_cnstr(0, 2, 0); } else { - x_44 = x_37; + x_39 = x_34; } -lean::cnstr_set(x_44, 0, x_43); -lean::cnstr_set(x_44, 1, x_35); -return x_44; +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_32); +return x_39; } else { -obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; lean::dec(x_0); lean::dec(x_2); -lean::dec(x_21); -x_48 = l_Lean_Parser_finishCommentBlock___closed__2; +x_42 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; if (lean::is_scalar(x_18)) { - x_49 = lean::alloc_cnstr(0, 3, 0); + x_43 = lean::alloc_cnstr(0, 3, 0); } else { - x_49 = x_18; + x_43 = x_18; } -lean::cnstr_set(x_49, 0, x_12); -lean::cnstr_set(x_49, 1, x_14); -lean::cnstr_set(x_49, 2, x_48); -x_50 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_49); -x_51 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_51, x_50); -x_53 = l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___rarg___closed__1; -x_54 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_52, x_53); -x_55 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_54); +lean::cnstr_set(x_43, 0, x_12); +lean::cnstr_set(x_43, 1, x_14); +lean::cnstr_set(x_43, 2, x_42); +x_44 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_43); +x_45 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_42, x_44); +x_46 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_45); if (lean::is_scalar(x_11)) { - x_56 = lean::alloc_cnstr(0, 2, 0); + x_47 = lean::alloc_cnstr(0, 2, 0); } else { - x_56 = x_11; + x_47 = x_11; } -lean::cnstr_set(x_56, 0, x_55); -lean::cnstr_set(x_56, 1, x_9); -return x_56; +lean::cnstr_set(x_47, 0, x_46); +lean::cnstr_set(x_47, 1, x_9); +return x_47; } } else { -obj* x_59; obj* x_61; obj* x_62; uint8 x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; +obj* x_50; obj* x_52; obj* x_53; uint8 x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; lean::dec(x_0); lean::dec(x_2); -x_59 = lean::cnstr_get(x_6, 1); +x_50 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); - x_61 = x_6; + x_52 = x_6; } else { - lean::inc(x_59); + lean::inc(x_50); lean::dec(x_6); - x_61 = lean::box(0); + x_52 = lean::box(0); } -x_62 = lean::cnstr_get(x_7, 0); -x_64 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); +x_53 = lean::cnstr_get(x_7, 0); +x_55 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); if (lean::is_exclusive(x_7)) { - x_65 = x_7; + x_56 = x_7; } else { - lean::inc(x_62); + lean::inc(x_53); lean::dec(x_7); - x_65 = lean::box(0); + x_56 = lean::box(0); } -if (lean::is_scalar(x_65)) { - x_66 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_56)) { + x_57 = lean::alloc_cnstr(1, 1, 1); } else { - x_66 = x_65; + x_57 = x_56; } -lean::cnstr_set(x_66, 0, x_62); -lean::cnstr_set_scalar(x_66, sizeof(void*)*1, x_64); -x_67 = x_66; -x_68 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_69 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_68, x_67); -x_70 = l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___rarg___closed__1; -x_71 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_69, x_70); -x_72 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_71); -if (lean::is_scalar(x_61)) { - x_73 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_57, 0, x_53); +lean::cnstr_set_scalar(x_57, sizeof(void*)*1, x_55); +x_58 = x_57; +x_59 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_60 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_59, x_58); +x_61 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_60); +if (lean::is_scalar(x_52)) { + x_62 = lean::alloc_cnstr(0, 2, 0); } else { - x_73 = x_61; + x_62 = x_52; } -lean::cnstr_set(x_73, 0, x_72); -lean::cnstr_set(x_73, 1, x_59); -return x_73; +lean::cnstr_set(x_62, 0, x_61); +lean::cnstr_set(x_62, 1, x_50); +return x_62; } } } @@ -43932,22 +43143,46 @@ return x_2; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___spec__5___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8, obj* x_9) { _start: { -obj* x_10; obj* x_11; uint8 x_12; obj* x_13; obj* x_14; obj* x_15; -x_10 = l_Option_getOrElse___main___rarg(x_2, x_8); -x_11 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_11, 0, x_10); -lean::cnstr_set(x_11, 1, x_0); -lean::cnstr_set(x_11, 2, x_1); -lean::cnstr_set(x_11, 3, x_3); -x_12 = 0; -x_13 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_13, 0, x_11); -lean::cnstr_set_scalar(x_13, sizeof(void*)*1, x_12); -x_14 = x_13; -x_15 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_15, 0, x_14); -lean::cnstr_set(x_15, 1, x_9); -return x_15; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_10; uint8 x_11; obj* x_12; obj* x_13; obj* x_14; +x_10 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_10, 0, x_8); +lean::cnstr_set(x_10, 1, x_0); +lean::cnstr_set(x_10, 2, x_1); +lean::cnstr_set(x_10, 3, x_3); +x_11 = 0; +x_12 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_12, 0, x_10); +lean::cnstr_set_scalar(x_12, sizeof(void*)*1, x_11); +x_13 = x_12; +x_14 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_14, 0, x_13); +lean::cnstr_set(x_14, 1, x_9); +return x_14; +} +else +{ +obj* x_16; obj* x_19; uint8 x_20; obj* x_21; obj* x_22; obj* x_23; +lean::dec(x_8); +x_16 = lean::cnstr_get(x_2, 0); +lean::inc(x_16); +lean::dec(x_2); +x_19 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_19, 0, x_16); +lean::cnstr_set(x_19, 1, x_0); +lean::cnstr_set(x_19, 2, x_1); +lean::cnstr_set(x_19, 3, x_3); +x_20 = 0; +x_21 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_21, 0, x_19); +lean::cnstr_set_scalar(x_21, sizeof(void*)*1, x_20); +x_22 = x_21; +x_23 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_23, 0, x_22); +lean::cnstr_set(x_23, 1, x_9); +return x_23; +} } } obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___spec__5(obj* x_0) { @@ -43969,7 +43204,6 @@ x_9 = lean::box(0); x_10 = l_Lean_Parser_Combinators_choiceAux___main___rarg___closed__1; x_11 = l_mjoin___rarg___closed__1; x_12 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___spec__5___rarg(x_10, x_11, x_9, x_9, x_2, x_3, x_4, x_5, x_6, x_7); -lean::dec(x_6); lean::dec(x_5); lean::dec(x_4); lean::dec(x_3); @@ -43978,215 +43212,215 @@ return x_12; } else { -obj* x_18; obj* x_20; obj* x_22; obj* x_28; obj* x_29; obj* x_31; obj* x_33; obj* x_34; obj* x_35; -x_18 = lean::cnstr_get(x_0, 0); -x_20 = lean::cnstr_get(x_0, 1); +obj* x_17; obj* x_19; obj* x_21; obj* x_27; obj* x_28; obj* x_30; obj* x_32; obj* x_33; obj* x_34; +x_17 = lean::cnstr_get(x_0, 0); +x_19 = lean::cnstr_get(x_0, 1); if (lean::is_exclusive(x_0)) { lean::cnstr_set(x_0, 0, lean::box(0)); lean::cnstr_set(x_0, 1, lean::box(0)); - x_22 = x_0; + x_21 = x_0; } else { - lean::inc(x_18); - lean::inc(x_20); + lean::inc(x_17); + lean::inc(x_19); lean::dec(x_0); - x_22 = lean::box(0); + x_21 = lean::box(0); } lean::inc(x_6); lean::inc(x_5); lean::inc(x_4); lean::inc(x_3); lean::inc(x_2); -x_28 = lean::apply_6(x_18, x_2, x_3, x_4, x_5, x_6, x_7); -x_29 = lean::cnstr_get(x_28, 0); -x_31 = lean::cnstr_get(x_28, 1); +x_27 = lean::apply_6(x_17, x_2, x_3, x_4, x_5, x_6, x_7); +x_28 = lean::cnstr_get(x_27, 0); +x_30 = lean::cnstr_get(x_27, 1); +if (lean::is_exclusive(x_27)) { + lean::cnstr_set(x_27, 0, lean::box(0)); + lean::cnstr_set(x_27, 1, lean::box(0)); + x_32 = x_27; +} else { + lean::inc(x_28); + lean::inc(x_30); + lean::dec(x_27); + x_32 = lean::box(0); +} +x_33 = lean::mk_nat_obj(1ul); +x_34 = lean::nat_add(x_1, x_33); +if (lean::obj_tag(x_28) == 0) +{ +obj* x_35; obj* x_37; obj* x_39; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_35 = lean::cnstr_get(x_28, 0); +x_37 = lean::cnstr_get(x_28, 1); +x_39 = lean::cnstr_get(x_28, 2); if (lean::is_exclusive(x_28)) { - lean::cnstr_set(x_28, 0, lean::box(0)); - lean::cnstr_set(x_28, 1, lean::box(0)); - x_33 = x_28; + x_41 = x_28; } else { - lean::inc(x_29); - lean::inc(x_31); + lean::inc(x_35); + lean::inc(x_37); + lean::inc(x_39); lean::dec(x_28); - x_33 = lean::box(0); + x_41 = lean::box(0); } -x_34 = lean::mk_nat_obj(1ul); -x_35 = lean::nat_add(x_1, x_34); -if (lean::obj_tag(x_29) == 0) +x_42 = lean::box(0); +x_43 = lean_name_mk_numeral(x_42, x_1); +x_44 = lean::box(0); +if (lean::is_scalar(x_21)) { + x_45 = lean::alloc_cnstr(1, 2, 0); +} else { + x_45 = x_21; +} +lean::cnstr_set(x_45, 0, x_35); +lean::cnstr_set(x_45, 1, x_44); +x_46 = l_Lean_Parser_Syntax_mkNode(x_43, x_45); +x_47 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_41)) { + x_48 = lean::alloc_cnstr(0, 3, 0); +} else { + x_48 = x_41; +} +lean::cnstr_set(x_48, 0, x_46); +lean::cnstr_set(x_48, 1, x_37); +lean::cnstr_set(x_48, 2, x_47); +x_49 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_39, x_48); +if (lean::obj_tag(x_49) == 0) { -obj* x_36; obj* x_38; obj* x_40; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; -x_36 = lean::cnstr_get(x_29, 0); -x_38 = lean::cnstr_get(x_29, 1); -x_40 = lean::cnstr_get(x_29, 2); -if (lean::is_exclusive(x_29)) { - x_42 = x_29; -} else { - lean::inc(x_36); - lean::inc(x_38); - lean::inc(x_40); - lean::dec(x_29); - x_42 = lean::box(0); -} -x_43 = lean::box(0); -x_44 = lean_name_mk_numeral(x_43, x_1); -x_45 = lean::box(0); -if (lean::is_scalar(x_22)) { - x_46 = lean::alloc_cnstr(1, 2, 0); -} else { - x_46 = x_22; -} -lean::cnstr_set(x_46, 0, x_36); -lean::cnstr_set(x_46, 1, x_45); -x_47 = l_Lean_Parser_Syntax_mkNode(x_44, x_46); -x_48 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_42)) { - x_49 = lean::alloc_cnstr(0, 3, 0); -} else { - x_49 = x_42; -} -lean::cnstr_set(x_49, 0, x_47); -lean::cnstr_set(x_49, 1, x_38); -lean::cnstr_set(x_49, 2, x_48); -x_50 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_40, x_49); -if (lean::obj_tag(x_50) == 0) -{ -obj* x_58; +obj* x_57; lean::dec(x_5); +lean::dec(x_19); lean::dec(x_4); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_20); -lean::dec(x_35); -if (lean::is_scalar(x_33)) { - x_58 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_34); +if (lean::is_scalar(x_32)) { + x_57 = lean::alloc_cnstr(0, 2, 0); } else { - x_58 = x_33; + x_57 = x_32; } -lean::cnstr_set(x_58, 0, x_50); -lean::cnstr_set(x_58, 1, x_31); -return x_58; +lean::cnstr_set(x_57, 0, x_49); +lean::cnstr_set(x_57, 1, x_30); +return x_57; } else { -uint8 x_59; -x_59 = lean::cnstr_get_scalar(x_50, sizeof(void*)*1); -if (x_59 == 0) +uint8 x_58; +x_58 = lean::cnstr_get_scalar(x_49, sizeof(void*)*1); +if (x_58 == 0) { -obj* x_61; obj* x_64; obj* x_65; obj* x_67; obj* x_69; obj* x_70; obj* x_71; -lean::dec(x_33); -x_61 = lean::cnstr_get(x_50, 0); -lean::inc(x_61); -lean::dec(x_50); -x_64 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___spec__4(x_20, x_35, x_2, x_3, x_4, x_5, x_6, x_31); -x_65 = lean::cnstr_get(x_64, 0); -x_67 = lean::cnstr_get(x_64, 1); -if (lean::is_exclusive(x_64)) { - x_69 = x_64; +obj* x_60; obj* x_63; obj* x_64; obj* x_66; obj* x_68; obj* x_69; obj* x_70; +lean::dec(x_32); +x_60 = lean::cnstr_get(x_49, 0); +lean::inc(x_60); +lean::dec(x_49); +x_63 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___spec__4(x_19, x_34, x_2, x_3, x_4, x_5, x_6, x_30); +x_64 = lean::cnstr_get(x_63, 0); +x_66 = lean::cnstr_get(x_63, 1); +if (lean::is_exclusive(x_63)) { + x_68 = x_63; } else { - lean::inc(x_65); - lean::inc(x_67); - lean::dec(x_64); - x_69 = lean::box(0); + lean::inc(x_64); + lean::inc(x_66); + lean::dec(x_63); + x_68 = lean::box(0); } -x_70 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_61, x_65); -if (lean::is_scalar(x_69)) { - x_71 = lean::alloc_cnstr(0, 2, 0); +x_69 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_60, x_64); +if (lean::is_scalar(x_68)) { + x_70 = lean::alloc_cnstr(0, 2, 0); } else { - x_71 = x_69; + x_70 = x_68; } -lean::cnstr_set(x_71, 0, x_70); -lean::cnstr_set(x_71, 1, x_67); -return x_71; +lean::cnstr_set(x_70, 0, x_69); +lean::cnstr_set(x_70, 1, x_66); +return x_70; } else { -obj* x_79; +obj* x_78; lean::dec(x_5); +lean::dec(x_19); lean::dec(x_4); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_20); -lean::dec(x_35); -if (lean::is_scalar(x_33)) { - x_79 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_34); +if (lean::is_scalar(x_32)) { + x_78 = lean::alloc_cnstr(0, 2, 0); } else { - x_79 = x_33; + x_78 = x_32; } -lean::cnstr_set(x_79, 0, x_50); -lean::cnstr_set(x_79, 1, x_31); -return x_79; +lean::cnstr_set(x_78, 0, x_49); +lean::cnstr_set(x_78, 1, x_30); +return x_78; } } } else { -uint8 x_82; +uint8 x_81; lean::dec(x_1); -lean::dec(x_22); -x_82 = lean::cnstr_get_scalar(x_29, sizeof(void*)*1); -if (x_82 == 0) +lean::dec(x_21); +x_81 = lean::cnstr_get_scalar(x_28, sizeof(void*)*1); +if (x_81 == 0) { -obj* x_84; obj* x_87; obj* x_88; obj* x_90; obj* x_92; obj* x_93; obj* x_94; -lean::dec(x_33); -x_84 = lean::cnstr_get(x_29, 0); -lean::inc(x_84); -lean::dec(x_29); -x_87 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___spec__4(x_20, x_35, x_2, x_3, x_4, x_5, x_6, x_31); -x_88 = lean::cnstr_get(x_87, 0); -x_90 = lean::cnstr_get(x_87, 1); -if (lean::is_exclusive(x_87)) { - x_92 = x_87; +obj* x_83; obj* x_86; obj* x_87; obj* x_89; obj* x_91; obj* x_92; obj* x_93; +lean::dec(x_32); +x_83 = lean::cnstr_get(x_28, 0); +lean::inc(x_83); +lean::dec(x_28); +x_86 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___spec__4(x_19, x_34, x_2, x_3, x_4, x_5, x_6, x_30); +x_87 = lean::cnstr_get(x_86, 0); +x_89 = lean::cnstr_get(x_86, 1); +if (lean::is_exclusive(x_86)) { + x_91 = x_86; } else { - lean::inc(x_88); - lean::inc(x_90); - lean::dec(x_87); - x_92 = lean::box(0); + lean::inc(x_87); + lean::inc(x_89); + lean::dec(x_86); + x_91 = lean::box(0); } -x_93 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_84, x_88); -if (lean::is_scalar(x_92)) { - x_94 = lean::alloc_cnstr(0, 2, 0); +x_92 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_83, x_87); +if (lean::is_scalar(x_91)) { + x_93 = lean::alloc_cnstr(0, 2, 0); } else { - x_94 = x_92; + x_93 = x_91; } -lean::cnstr_set(x_94, 0, x_93); -lean::cnstr_set(x_94, 1, x_90); -return x_94; +lean::cnstr_set(x_93, 0, x_92); +lean::cnstr_set(x_93, 1, x_89); +return x_93; } else { -obj* x_102; obj* x_104; obj* x_105; obj* x_106; obj* x_107; +obj* x_101; obj* x_103; obj* x_104; obj* x_105; obj* x_106; lean::dec(x_5); +lean::dec(x_19); lean::dec(x_4); lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_20); -lean::dec(x_35); -x_102 = lean::cnstr_get(x_29, 0); -if (lean::is_exclusive(x_29)) { - x_104 = x_29; +lean::dec(x_34); +x_101 = lean::cnstr_get(x_28, 0); +if (lean::is_exclusive(x_28)) { + x_103 = x_28; } else { - lean::inc(x_102); - lean::dec(x_29); - x_104 = lean::box(0); + lean::inc(x_101); + lean::dec(x_28); + x_103 = lean::box(0); } -if (lean::is_scalar(x_104)) { - x_105 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_103)) { + x_104 = lean::alloc_cnstr(1, 1, 1); } else { - x_105 = x_104; + x_104 = x_103; } -lean::cnstr_set(x_105, 0, x_102); -lean::cnstr_set_scalar(x_105, sizeof(void*)*1, x_82); -x_106 = x_105; -if (lean::is_scalar(x_33)) { - x_107 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_104, 0, x_101); +lean::cnstr_set_scalar(x_104, sizeof(void*)*1, x_81); +x_105 = x_104; +if (lean::is_scalar(x_32)) { + x_106 = lean::alloc_cnstr(0, 2, 0); } else { - x_107 = x_33; + x_106 = x_32; } -lean::cnstr_set(x_107, 0, x_106); -lean::cnstr_set(x_107, 1, x_31); -return x_107; +lean::cnstr_set(x_106, 0, x_105); +lean::cnstr_set(x_106, 1, x_30); +return x_106; } } } @@ -44409,12 +43643,10 @@ _start: { obj* x_10; x_10 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___spec__5___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9); -lean::dec(x_2); lean::dec(x_4); lean::dec(x_5); lean::dec(x_6); lean::dec(x_7); -lean::dec(x_8); return x_10; } } @@ -44678,7 +43910,7 @@ x_12 = lean::cnstr_get(x_10, 0); lean::inc(x_12); if (lean::obj_tag(x_12) == 0) { -obj* x_16; obj* x_19; obj* x_21; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_30; obj* x_32; obj* x_34; obj* x_35; obj* x_36; +obj* x_16; obj* x_19; obj* x_21; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_33; obj* x_34; obj* x_35; lean::dec(x_12); lean::dec(x_0); x_16 = lean::cnstr_get(x_9, 1); @@ -44693,257 +43925,255 @@ x_24 = lean::box(0); x_25 = l_String_splitAux___main___closed__1; x_26 = l_mjoin___rarg___closed__1; x_27 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_25, x_26, x_24, x_24, x_3, x_19, x_16); -lean::dec(x_19); lean::dec(x_3); -x_30 = lean::cnstr_get(x_27, 0); -x_32 = lean::cnstr_get(x_27, 1); +x_29 = lean::cnstr_get(x_27, 0); +x_31 = lean::cnstr_get(x_27, 1); if (lean::is_exclusive(x_27)) { - x_34 = x_27; + x_33 = x_27; } else { - lean::inc(x_30); - lean::inc(x_32); + lean::inc(x_29); + lean::inc(x_31); lean::dec(x_27); - x_34 = lean::box(0); + x_33 = lean::box(0); } -x_35 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_30); -if (lean::is_scalar(x_34)) { - x_36 = lean::alloc_cnstr(0, 2, 0); +x_34 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_29); +if (lean::is_scalar(x_33)) { + x_35 = lean::alloc_cnstr(0, 2, 0); } else { - x_36 = x_34; + x_35 = x_33; } -lean::cnstr_set(x_36, 0, x_35); -lean::cnstr_set(x_36, 1, x_32); -return x_36; +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_31); +return x_35; } else { -obj* x_37; -x_37 = lean::cnstr_get(x_12, 0); -lean::inc(x_37); +obj* x_36; +x_36 = lean::cnstr_get(x_12, 0); +lean::inc(x_36); lean::dec(x_12); -switch (lean::obj_tag(x_37)) { +switch (lean::obj_tag(x_36)) { case 0: { -obj* x_40; obj* x_43; obj* x_46; obj* x_48; obj* x_51; obj* x_54; obj* x_55; obj* x_56; obj* x_58; obj* x_60; obj* x_62; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; -x_40 = lean::cnstr_get(x_37, 0); -lean::inc(x_40); -lean::dec(x_37); -x_43 = lean::cnstr_get(x_9, 1); -lean::inc(x_43); +obj* x_39; obj* x_42; obj* x_45; obj* x_47; obj* x_50; obj* x_53; obj* x_54; obj* x_55; obj* x_57; obj* x_59; obj* x_61; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; +x_39 = lean::cnstr_get(x_36, 0); +lean::inc(x_39); +lean::dec(x_36); +x_42 = lean::cnstr_get(x_9, 1); +lean::inc(x_42); lean::dec(x_9); -x_46 = lean::cnstr_get(x_10, 1); -lean::inc(x_46); -x_48 = lean::cnstr_get(x_10, 2); -lean::inc(x_48); +x_45 = lean::cnstr_get(x_10, 1); +lean::inc(x_45); +x_47 = lean::cnstr_get(x_10, 2); +lean::inc(x_47); lean::dec(x_10); -x_51 = lean::cnstr_get(x_40, 1); -lean::inc(x_51); -lean::dec(x_40); -x_54 = lean::box(0); -x_55 = lean_name_mk_string(x_54, x_51); -x_56 = l_RBMap_find___main___at___private_init_lean_parser_term_1__trailing___spec__2___rarg(x_0, x_55); -lean::dec(x_55); -x_58 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_56, x_3, x_46, x_43); +x_50 = lean::cnstr_get(x_39, 1); +lean::inc(x_50); +lean::dec(x_39); +x_53 = lean::box(0); +x_54 = lean_name_mk_string(x_53, x_50); +x_55 = l_RBMap_find___main___at___private_init_lean_parser_term_1__trailing___spec__2___rarg(x_0, x_54); +lean::dec(x_54); +x_57 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_55, x_3, x_45, x_42); lean::dec(x_3); -x_60 = lean::cnstr_get(x_58, 0); -x_62 = lean::cnstr_get(x_58, 1); -if (lean::is_exclusive(x_58)) { - x_64 = x_58; +x_59 = lean::cnstr_get(x_57, 0); +x_61 = lean::cnstr_get(x_57, 1); +if (lean::is_exclusive(x_57)) { + x_63 = x_57; } else { - lean::inc(x_60); - lean::inc(x_62); - lean::dec(x_58); - x_64 = lean::box(0); + lean::inc(x_59); + lean::inc(x_61); + lean::dec(x_57); + x_63 = lean::box(0); } -x_65 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_66 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_65, x_60); -x_67 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_48, x_66); -if (lean::is_scalar(x_64)) { - x_68 = lean::alloc_cnstr(0, 2, 0); +x_64 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_65 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_64, x_59); +x_66 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_47, x_65); +if (lean::is_scalar(x_63)) { + x_67 = lean::alloc_cnstr(0, 2, 0); } else { - x_68 = x_64; + x_67 = x_63; } -lean::cnstr_set(x_68, 0, x_67); -lean::cnstr_set(x_68, 1, x_62); -return x_68; +lean::cnstr_set(x_67, 0, x_66); +lean::cnstr_set(x_67, 1, x_61); +return x_67; } case 1: { -obj* x_70; obj* x_73; obj* x_75; obj* x_78; obj* x_79; obj* x_80; obj* x_82; obj* x_84; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; -lean::dec(x_37); -x_70 = lean::cnstr_get(x_9, 1); -lean::inc(x_70); +obj* x_69; obj* x_72; obj* x_74; obj* x_77; obj* x_78; obj* x_79; obj* x_81; obj* x_83; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; +lean::dec(x_36); +x_69 = lean::cnstr_get(x_9, 1); +lean::inc(x_69); lean::dec(x_9); -x_73 = lean::cnstr_get(x_10, 1); -lean::inc(x_73); -x_75 = lean::cnstr_get(x_10, 2); -lean::inc(x_75); +x_72 = lean::cnstr_get(x_10, 1); +lean::inc(x_72); +x_74 = lean::cnstr_get(x_10, 2); +lean::inc(x_74); lean::dec(x_10); -x_78 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1; -x_79 = l_RBMap_find___main___at___private_init_lean_parser_term_1__trailing___spec__3___rarg(x_0, x_78); -x_80 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_79, x_3, x_73, x_70); +x_77 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1; +x_78 = l_RBMap_find___main___at___private_init_lean_parser_term_1__trailing___spec__3___rarg(x_0, x_77); +x_79 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_78, x_3, x_72, x_69); lean::dec(x_3); -x_82 = lean::cnstr_get(x_80, 0); -x_84 = lean::cnstr_get(x_80, 1); -if (lean::is_exclusive(x_80)) { - x_86 = x_80; +x_81 = lean::cnstr_get(x_79, 0); +x_83 = lean::cnstr_get(x_79, 1); +if (lean::is_exclusive(x_79)) { + x_85 = x_79; } else { - lean::inc(x_82); - lean::inc(x_84); - lean::dec(x_80); - x_86 = lean::box(0); + lean::inc(x_81); + lean::inc(x_83); + lean::dec(x_79); + x_85 = lean::box(0); } -x_87 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_88 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_87, x_82); -x_89 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_75, x_88); -if (lean::is_scalar(x_86)) { - x_90 = lean::alloc_cnstr(0, 2, 0); +x_86 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_87 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_86, x_81); +x_88 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_74, x_87); +if (lean::is_scalar(x_85)) { + x_89 = lean::alloc_cnstr(0, 2, 0); } else { - x_90 = x_86; + x_89 = x_85; } -lean::cnstr_set(x_90, 0, x_89); -lean::cnstr_set(x_90, 1, x_84); -return x_90; +lean::cnstr_set(x_89, 0, x_88); +lean::cnstr_set(x_89, 1, x_83); +return x_89; } case 2: { -obj* x_91; obj* x_94; obj* x_96; obj* x_99; obj* x_102; obj* x_105; obj* x_107; obj* x_109; obj* x_111; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; -x_91 = lean::cnstr_get(x_9, 1); -lean::inc(x_91); +obj* x_90; obj* x_93; obj* x_95; obj* x_98; obj* x_101; obj* x_104; obj* x_106; obj* x_108; obj* x_110; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; +x_90 = lean::cnstr_get(x_9, 1); +lean::inc(x_90); lean::dec(x_9); -x_94 = lean::cnstr_get(x_10, 1); -lean::inc(x_94); -x_96 = lean::cnstr_get(x_10, 2); -lean::inc(x_96); +x_93 = lean::cnstr_get(x_10, 1); +lean::inc(x_93); +x_95 = lean::cnstr_get(x_10, 2); +lean::inc(x_95); lean::dec(x_10); -x_99 = lean::cnstr_get(x_37, 0); -lean::inc(x_99); -lean::dec(x_37); -x_102 = lean::cnstr_get(x_99, 0); -lean::inc(x_102); -lean::dec(x_99); -x_105 = l_RBMap_find___main___at___private_init_lean_parser_term_1__trailing___spec__4___rarg(x_0, x_102); -lean::dec(x_102); -x_107 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_105, x_3, x_94, x_91); +x_98 = lean::cnstr_get(x_36, 0); +lean::inc(x_98); +lean::dec(x_36); +x_101 = lean::cnstr_get(x_98, 0); +lean::inc(x_101); +lean::dec(x_98); +x_104 = l_RBMap_find___main___at___private_init_lean_parser_term_1__trailing___spec__4___rarg(x_0, x_101); +lean::dec(x_101); +x_106 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_104, x_3, x_93, x_90); lean::dec(x_3); -x_109 = lean::cnstr_get(x_107, 0); -x_111 = lean::cnstr_get(x_107, 1); -if (lean::is_exclusive(x_107)) { - x_113 = x_107; +x_108 = lean::cnstr_get(x_106, 0); +x_110 = lean::cnstr_get(x_106, 1); +if (lean::is_exclusive(x_106)) { + x_112 = x_106; } else { - lean::inc(x_109); - lean::inc(x_111); - lean::dec(x_107); - x_113 = lean::box(0); + lean::inc(x_108); + lean::inc(x_110); + lean::dec(x_106); + x_112 = lean::box(0); } -x_114 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_115 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_114, x_109); -x_116 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_96, x_115); -if (lean::is_scalar(x_113)) { - x_117 = lean::alloc_cnstr(0, 2, 0); +x_113 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_114 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_113, x_108); +x_115 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_95, x_114); +if (lean::is_scalar(x_112)) { + x_116 = lean::alloc_cnstr(0, 2, 0); } else { - x_117 = x_113; + x_116 = x_112; } -lean::cnstr_set(x_117, 0, x_116); -lean::cnstr_set(x_117, 1, x_111); -return x_117; +lean::cnstr_set(x_116, 0, x_115); +lean::cnstr_set(x_116, 1, x_110); +return x_116; } default: { -obj* x_118; obj* x_121; obj* x_123; obj* x_126; obj* x_127; obj* x_128; obj* x_129; obj* x_131; -x_118 = lean::cnstr_get(x_9, 1); -lean::inc(x_118); +obj* x_117; obj* x_120; obj* x_122; obj* x_125; obj* x_126; obj* x_127; obj* x_128; obj* x_129; +x_117 = lean::cnstr_get(x_9, 1); +lean::inc(x_117); lean::dec(x_9); -x_121 = lean::cnstr_get(x_10, 1); -lean::inc(x_121); -x_123 = lean::cnstr_get(x_10, 2); -lean::inc(x_123); +x_120 = lean::cnstr_get(x_10, 1); +lean::inc(x_120); +x_122 = lean::cnstr_get(x_10, 2); +lean::inc(x_122); lean::dec(x_10); -x_126 = lean::box(0); -x_127 = l_String_splitAux___main___closed__1; -x_128 = l_mjoin___rarg___closed__1; -x_129 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_127, x_128, x_126, x_126, x_3, x_121, x_118); -lean::dec(x_121); -x_131 = lean::cnstr_get(x_129, 0); +x_125 = lean::box(0); +x_126 = l_String_splitAux___main___closed__1; +x_127 = l_mjoin___rarg___closed__1; +x_128 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_126, x_127, x_125, x_125, x_3, x_120, x_117); +x_129 = lean::cnstr_get(x_128, 0); +lean::inc(x_129); +if (lean::obj_tag(x_129) == 0) +{ +obj* x_131; obj* x_134; obj* x_136; obj* x_138; obj* x_141; obj* x_143; obj* x_145; obj* x_147; obj* x_149; obj* x_150; obj* x_151; obj* x_152; +x_131 = lean::cnstr_get(x_128, 1); lean::inc(x_131); -if (lean::obj_tag(x_131) == 0) -{ -obj* x_133; obj* x_136; obj* x_138; obj* x_140; obj* x_143; obj* x_145; obj* x_147; obj* x_149; obj* x_151; obj* x_152; obj* x_153; obj* x_154; -x_133 = lean::cnstr_get(x_129, 1); -lean::inc(x_133); -lean::dec(x_129); -x_136 = lean::cnstr_get(x_131, 0); +lean::dec(x_128); +x_134 = lean::cnstr_get(x_129, 0); +lean::inc(x_134); +x_136 = lean::cnstr_get(x_129, 1); lean::inc(x_136); -x_138 = lean::cnstr_get(x_131, 1); +x_138 = lean::cnstr_get(x_129, 2); lean::inc(x_138); -x_140 = lean::cnstr_get(x_131, 2); -lean::inc(x_140); -lean::dec(x_131); -x_143 = l_RBMap_find___main___at___private_init_lean_parser_term_1__trailing___spec__5___rarg(x_0, x_136); -lean::dec(x_136); -x_145 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_143, x_3, x_138, x_133); +lean::dec(x_129); +x_141 = l_RBMap_find___main___at___private_init_lean_parser_term_1__trailing___spec__5___rarg(x_0, x_134); +lean::dec(x_134); +x_143 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_141, x_3, x_136, x_131); lean::dec(x_3); -x_147 = lean::cnstr_get(x_145, 0); -x_149 = lean::cnstr_get(x_145, 1); -if (lean::is_exclusive(x_145)) { - x_151 = x_145; +x_145 = lean::cnstr_get(x_143, 0); +x_147 = lean::cnstr_get(x_143, 1); +if (lean::is_exclusive(x_143)) { + x_149 = x_143; } else { + lean::inc(x_145); lean::inc(x_147); - lean::inc(x_149); - lean::dec(x_145); - x_151 = lean::box(0); + lean::dec(x_143); + x_149 = lean::box(0); } -x_152 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_140, x_147); -x_153 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_123, x_152); -if (lean::is_scalar(x_151)) { - x_154 = lean::alloc_cnstr(0, 2, 0); +x_150 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_138, x_145); +x_151 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_122, x_150); +if (lean::is_scalar(x_149)) { + x_152 = lean::alloc_cnstr(0, 2, 0); } else { - x_154 = x_151; + x_152 = x_149; } -lean::cnstr_set(x_154, 0, x_153); -lean::cnstr_set(x_154, 1, x_149); -return x_154; +lean::cnstr_set(x_152, 0, x_151); +lean::cnstr_set(x_152, 1, x_147); +return x_152; } else { -obj* x_157; obj* x_159; obj* x_160; uint8 x_162; obj* x_163; obj* x_164; obj* x_165; obj* x_166; obj* x_167; +obj* x_155; obj* x_157; obj* x_158; uint8 x_160; obj* x_161; obj* x_162; obj* x_163; obj* x_164; obj* x_165; lean::dec(x_3); lean::dec(x_0); -x_157 = lean::cnstr_get(x_129, 1); +x_155 = lean::cnstr_get(x_128, 1); +if (lean::is_exclusive(x_128)) { + lean::cnstr_release(x_128, 0); + x_157 = x_128; +} else { + lean::inc(x_155); + lean::dec(x_128); + x_157 = lean::box(0); +} +x_158 = lean::cnstr_get(x_129, 0); +x_160 = lean::cnstr_get_scalar(x_129, sizeof(void*)*1); if (lean::is_exclusive(x_129)) { - lean::cnstr_release(x_129, 0); - x_159 = x_129; + x_161 = x_129; } else { - lean::inc(x_157); + lean::inc(x_158); lean::dec(x_129); - x_159 = lean::box(0); + x_161 = lean::box(0); } -x_160 = lean::cnstr_get(x_131, 0); -x_162 = lean::cnstr_get_scalar(x_131, sizeof(void*)*1); -if (lean::is_exclusive(x_131)) { - x_163 = x_131; +if (lean::is_scalar(x_161)) { + x_162 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_160); - lean::dec(x_131); - x_163 = lean::box(0); + x_162 = x_161; } -if (lean::is_scalar(x_163)) { - x_164 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_162, 0, x_158); +lean::cnstr_set_scalar(x_162, sizeof(void*)*1, x_160); +x_163 = x_162; +x_164 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_122, x_163); +if (lean::is_scalar(x_157)) { + x_165 = lean::alloc_cnstr(0, 2, 0); } else { - x_164 = x_163; + x_165 = x_157; } -lean::cnstr_set(x_164, 0, x_160); -lean::cnstr_set_scalar(x_164, sizeof(void*)*1, x_162); -x_165 = x_164; -x_166 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_123, x_165); -if (lean::is_scalar(x_159)) { - x_167 = lean::alloc_cnstr(0, 2, 0); -} else { - x_167 = x_159; -} -lean::cnstr_set(x_167, 0, x_166); -lean::cnstr_set(x_167, 1, x_157); -return x_167; +lean::cnstr_set(x_165, 0, x_164); +lean::cnstr_set(x_165, 1, x_155); +return x_165; } } } @@ -44951,43 +44181,43 @@ return x_167; } else { -obj* x_170; obj* x_172; obj* x_173; uint8 x_175; obj* x_176; obj* x_177; obj* x_178; obj* x_179; +obj* x_168; obj* x_170; obj* x_171; uint8 x_173; obj* x_174; obj* x_175; obj* x_176; obj* x_177; lean::dec(x_3); lean::dec(x_0); -x_170 = lean::cnstr_get(x_9, 1); +x_168 = lean::cnstr_get(x_9, 1); if (lean::is_exclusive(x_9)) { lean::cnstr_release(x_9, 0); - x_172 = x_9; + x_170 = x_9; } else { - lean::inc(x_170); + lean::inc(x_168); lean::dec(x_9); - x_172 = lean::box(0); + x_170 = lean::box(0); } -x_173 = lean::cnstr_get(x_10, 0); -x_175 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); +x_171 = lean::cnstr_get(x_10, 0); +x_173 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); if (lean::is_exclusive(x_10)) { - x_176 = x_10; + x_174 = x_10; } else { - lean::inc(x_173); + lean::inc(x_171); lean::dec(x_10); - x_176 = lean::box(0); + x_174 = lean::box(0); } -if (lean::is_scalar(x_176)) { - x_177 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_174)) { + x_175 = lean::alloc_cnstr(1, 1, 1); } else { - x_177 = x_176; + x_175 = x_174; } -lean::cnstr_set(x_177, 0, x_173); -lean::cnstr_set_scalar(x_177, sizeof(void*)*1, x_175); -x_178 = x_177; -if (lean::is_scalar(x_172)) { - x_179 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_175, 0, x_171); +lean::cnstr_set_scalar(x_175, sizeof(void*)*1, x_173); +x_176 = x_175; +if (lean::is_scalar(x_170)) { + x_177 = lean::alloc_cnstr(0, 2, 0); } else { - x_179 = x_172; + x_177 = x_170; } -lean::cnstr_set(x_179, 0, x_178); -lean::cnstr_set(x_179, 1, x_170); -return x_179; +lean::cnstr_set(x_177, 0, x_176); +lean::cnstr_set(x_177, 1, x_168); +return x_177; } } } @@ -45492,84 +44722,85 @@ return x_60; obj* l_Lean_Parser_MonadParsec_longestMatch___at___private_init_lean_parser_term_1__trailing___spec__7(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { -obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_12; obj* x_14; +obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_13; obj* x_15; x_7 = lean::box(0); x_8 = l_Lean_Parser_MonadParsec_longestMatch___rarg___lambda__2___closed__1; x_9 = l_mjoin___rarg___closed__1; -x_10 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__12___rarg(x_8, x_9, x_7, x_7, x_5); lean::inc(x_5); -x_12 = l_List_mfoldr___main___at___private_init_lean_parser_term_1__trailing___spec__9(x_5, x_10, x_0, x_1, x_2, x_3, x_4, x_5, x_6); +x_11 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__12___rarg(x_8, x_9, x_7, x_7, x_5); +lean::inc(x_5); +x_13 = l_List_mfoldr___main___at___private_init_lean_parser_term_1__trailing___spec__9(x_5, x_11, x_0, x_1, x_2, x_3, x_4, x_5, x_6); lean::dec(x_5); -x_14 = lean::cnstr_get(x_12, 0); -lean::inc(x_14); -if (lean::obj_tag(x_14) == 0) +x_15 = lean::cnstr_get(x_13, 0); +lean::inc(x_15); +if (lean::obj_tag(x_15) == 0) { -obj* x_16; obj* x_18; obj* x_19; obj* x_21; obj* x_24; obj* x_25; obj* x_26; obj* x_27; -x_16 = lean::cnstr_get(x_12, 1); -if (lean::is_exclusive(x_12)) { - lean::cnstr_release(x_12, 0); - x_18 = x_12; +obj* x_17; obj* x_19; obj* x_20; obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; +x_17 = lean::cnstr_get(x_13, 1); +if (lean::is_exclusive(x_13)) { + lean::cnstr_release(x_13, 0); + x_19 = x_13; } else { - lean::inc(x_16); - lean::dec(x_12); - x_18 = lean::box(0); + lean::inc(x_17); + lean::dec(x_13); + x_19 = lean::box(0); } -x_19 = lean::cnstr_get(x_14, 0); -lean::inc(x_19); -x_21 = lean::cnstr_get(x_14, 2); -lean::inc(x_21); -lean::dec(x_14); -x_24 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_19); -x_25 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_26 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_25, x_24); -if (lean::is_scalar(x_18)) { - x_27 = lean::alloc_cnstr(0, 2, 0); +x_20 = lean::cnstr_get(x_15, 0); +lean::inc(x_20); +x_22 = lean::cnstr_get(x_15, 2); +lean::inc(x_22); +lean::dec(x_15); +x_25 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_20); +x_26 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_27 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_26, x_25); +if (lean::is_scalar(x_19)) { + x_28 = lean::alloc_cnstr(0, 2, 0); } else { - x_27 = x_18; + x_28 = x_19; } -lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_16); -return x_27; +lean::cnstr_set(x_28, 0, x_27); +lean::cnstr_set(x_28, 1, x_17); +return x_28; } else { -obj* x_28; obj* x_30; obj* x_31; uint8 x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; -x_28 = lean::cnstr_get(x_12, 1); -if (lean::is_exclusive(x_12)) { - lean::cnstr_release(x_12, 0); - x_30 = x_12; +obj* x_29; obj* x_31; obj* x_32; uint8 x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_29 = lean::cnstr_get(x_13, 1); +if (lean::is_exclusive(x_13)) { + lean::cnstr_release(x_13, 0); + x_31 = x_13; } else { - lean::inc(x_28); - lean::dec(x_12); - x_30 = lean::box(0); + lean::inc(x_29); + lean::dec(x_13); + x_31 = lean::box(0); } -x_31 = lean::cnstr_get(x_14, 0); -x_33 = lean::cnstr_get_scalar(x_14, sizeof(void*)*1); -if (lean::is_exclusive(x_14)) { - x_34 = x_14; +x_32 = lean::cnstr_get(x_15, 0); +x_34 = lean::cnstr_get_scalar(x_15, sizeof(void*)*1); +if (lean::is_exclusive(x_15)) { + x_35 = x_15; } else { - lean::inc(x_31); - lean::dec(x_14); - x_34 = lean::box(0); + lean::inc(x_32); + lean::dec(x_15); + x_35 = lean::box(0); } -if (lean::is_scalar(x_34)) { - x_35 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_35)) { + x_36 = lean::alloc_cnstr(1, 1, 1); } else { - x_35 = x_34; + x_36 = x_35; } -lean::cnstr_set(x_35, 0, x_31); -lean::cnstr_set_scalar(x_35, sizeof(void*)*1, x_33); -x_36 = x_35; -x_37 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_38 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_37, x_36); -if (lean::is_scalar(x_30)) { - x_39 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_36, 0, x_32); +lean::cnstr_set_scalar(x_36, sizeof(void*)*1, x_34); +x_37 = x_36; +x_38 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_39 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_37); +if (lean::is_scalar(x_31)) { + x_40 = lean::alloc_cnstr(0, 2, 0); } else { - x_39 = x_30; + x_40 = x_31; } -lean::cnstr_set(x_39, 0, x_38); -lean::cnstr_set(x_39, 1, x_28); -return x_39; +lean::cnstr_set(x_40, 0, x_39); +lean::cnstr_set(x_40, 1, x_29); +return x_40; } } } @@ -45861,7 +45092,6 @@ x_7 = lean::box(0); x_8 = l_Lean_Parser_Combinators_anyOf___rarg___closed__1; x_9 = l_mjoin___rarg___closed__1; x_10 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___spec__5___rarg(x_8, x_9, x_7, x_7, x_1, x_2, x_3, x_4, x_5, x_6); -lean::dec(x_5); lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); @@ -45870,14 +45100,14 @@ return x_10; } else { -obj* x_16; obj* x_18; obj* x_21; -x_16 = lean::cnstr_get(x_0, 0); -lean::inc(x_16); -x_18 = lean::cnstr_get(x_0, 1); -lean::inc(x_18); +obj* x_15; obj* x_17; obj* x_20; +x_15 = lean::cnstr_get(x_0, 0); +lean::inc(x_15); +x_17 = lean::cnstr_get(x_0, 1); +lean::inc(x_17); lean::dec(x_0); -x_21 = l_List_foldl___main___at___private_init_lean_parser_term_1__trailing___spec__12(x_16, x_18, x_1, x_2, x_3, x_4, x_5, x_6); -return x_21; +x_20 = l_List_foldl___main___at___private_init_lean_parser_term_1__trailing___spec__12(x_15, x_17, x_1, x_2, x_3, x_4, x_5, x_6); +return x_20; } } } @@ -46443,7 +45673,7 @@ x_11 = lean::cnstr_get(x_9, 0); lean::inc(x_11); if (lean::obj_tag(x_11) == 0) { -obj* x_15; obj* x_18; obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_29; obj* x_31; obj* x_33; obj* x_34; obj* x_35; +obj* x_15; obj* x_18; obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_30; obj* x_32; obj* x_33; obj* x_34; lean::dec(x_11); lean::dec(x_0); x_15 = lean::cnstr_get(x_8, 1); @@ -46458,257 +45688,255 @@ x_23 = lean::box(0); x_24 = l_String_splitAux___main___closed__1; x_25 = l_mjoin___rarg___closed__1; x_26 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_24, x_25, x_23, x_23, x_2, x_18, x_15); -lean::dec(x_18); lean::dec(x_2); -x_29 = lean::cnstr_get(x_26, 0); -x_31 = lean::cnstr_get(x_26, 1); +x_28 = lean::cnstr_get(x_26, 0); +x_30 = lean::cnstr_get(x_26, 1); if (lean::is_exclusive(x_26)) { - x_33 = x_26; + x_32 = x_26; } else { - lean::inc(x_29); - lean::inc(x_31); + lean::inc(x_28); + lean::inc(x_30); lean::dec(x_26); - x_33 = lean::box(0); + x_32 = lean::box(0); } -x_34 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_29); -if (lean::is_scalar(x_33)) { - x_35 = lean::alloc_cnstr(0, 2, 0); +x_33 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_28); +if (lean::is_scalar(x_32)) { + x_34 = lean::alloc_cnstr(0, 2, 0); } else { - x_35 = x_33; + x_34 = x_32; } -lean::cnstr_set(x_35, 0, x_34); -lean::cnstr_set(x_35, 1, x_31); -return x_35; +lean::cnstr_set(x_34, 0, x_33); +lean::cnstr_set(x_34, 1, x_30); +return x_34; } else { -obj* x_36; -x_36 = lean::cnstr_get(x_11, 0); -lean::inc(x_36); +obj* x_35; +x_35 = lean::cnstr_get(x_11, 0); +lean::inc(x_35); lean::dec(x_11); -switch (lean::obj_tag(x_36)) { +switch (lean::obj_tag(x_35)) { case 0: { -obj* x_39; obj* x_42; obj* x_45; obj* x_47; obj* x_50; obj* x_53; obj* x_54; obj* x_55; obj* x_57; obj* x_59; obj* x_61; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; -x_39 = lean::cnstr_get(x_36, 0); -lean::inc(x_39); -lean::dec(x_36); -x_42 = lean::cnstr_get(x_8, 1); -lean::inc(x_42); +obj* x_38; obj* x_41; obj* x_44; obj* x_46; obj* x_49; obj* x_52; obj* x_53; obj* x_54; obj* x_56; obj* x_58; obj* x_60; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; +x_38 = lean::cnstr_get(x_35, 0); +lean::inc(x_38); +lean::dec(x_35); +x_41 = lean::cnstr_get(x_8, 1); +lean::inc(x_41); lean::dec(x_8); -x_45 = lean::cnstr_get(x_9, 1); -lean::inc(x_45); -x_47 = lean::cnstr_get(x_9, 2); -lean::inc(x_47); +x_44 = lean::cnstr_get(x_9, 1); +lean::inc(x_44); +x_46 = lean::cnstr_get(x_9, 2); +lean::inc(x_46); lean::dec(x_9); -x_50 = lean::cnstr_get(x_39, 1); -lean::inc(x_50); -lean::dec(x_39); -x_53 = lean::box(0); -x_54 = lean_name_mk_string(x_53, x_50); -x_55 = l_RBMap_find___main___at___private_init_lean_parser_term_2__leading___spec__2___rarg(x_0, x_54); -lean::dec(x_54); -x_57 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_55, x_2, x_45, x_42); +x_49 = lean::cnstr_get(x_38, 1); +lean::inc(x_49); +lean::dec(x_38); +x_52 = lean::box(0); +x_53 = lean_name_mk_string(x_52, x_49); +x_54 = l_RBMap_find___main___at___private_init_lean_parser_term_2__leading___spec__2___rarg(x_0, x_53); +lean::dec(x_53); +x_56 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_54, x_2, x_44, x_41); lean::dec(x_2); -x_59 = lean::cnstr_get(x_57, 0); -x_61 = lean::cnstr_get(x_57, 1); -if (lean::is_exclusive(x_57)) { - x_63 = x_57; +x_58 = lean::cnstr_get(x_56, 0); +x_60 = lean::cnstr_get(x_56, 1); +if (lean::is_exclusive(x_56)) { + x_62 = x_56; } else { - lean::inc(x_59); - lean::inc(x_61); - lean::dec(x_57); - x_63 = lean::box(0); + lean::inc(x_58); + lean::inc(x_60); + lean::dec(x_56); + x_62 = lean::box(0); } -x_64 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_65 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_64, x_59); -x_66 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_47, x_65); -if (lean::is_scalar(x_63)) { - x_67 = lean::alloc_cnstr(0, 2, 0); +x_63 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_64 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_63, x_58); +x_65 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_46, x_64); +if (lean::is_scalar(x_62)) { + x_66 = lean::alloc_cnstr(0, 2, 0); } else { - x_67 = x_63; + x_66 = x_62; } -lean::cnstr_set(x_67, 0, x_66); -lean::cnstr_set(x_67, 1, x_61); -return x_67; +lean::cnstr_set(x_66, 0, x_65); +lean::cnstr_set(x_66, 1, x_60); +return x_66; } case 1: { -obj* x_69; obj* x_72; obj* x_74; obj* x_77; obj* x_78; obj* x_79; obj* x_81; obj* x_83; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; -lean::dec(x_36); -x_69 = lean::cnstr_get(x_8, 1); -lean::inc(x_69); +obj* x_68; obj* x_71; obj* x_73; obj* x_76; obj* x_77; obj* x_78; obj* x_80; obj* x_82; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; +lean::dec(x_35); +x_68 = lean::cnstr_get(x_8, 1); +lean::inc(x_68); lean::dec(x_8); -x_72 = lean::cnstr_get(x_9, 1); -lean::inc(x_72); -x_74 = lean::cnstr_get(x_9, 2); -lean::inc(x_74); +x_71 = lean::cnstr_get(x_9, 1); +lean::inc(x_71); +x_73 = lean::cnstr_get(x_9, 2); +lean::inc(x_73); lean::dec(x_9); -x_77 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1; -x_78 = l_RBMap_find___main___at___private_init_lean_parser_term_2__leading___spec__3___rarg(x_0, x_77); -x_79 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_78, x_2, x_72, x_69); +x_76 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1; +x_77 = l_RBMap_find___main___at___private_init_lean_parser_term_2__leading___spec__3___rarg(x_0, x_76); +x_78 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_77, x_2, x_71, x_68); lean::dec(x_2); -x_81 = lean::cnstr_get(x_79, 0); -x_83 = lean::cnstr_get(x_79, 1); -if (lean::is_exclusive(x_79)) { - x_85 = x_79; +x_80 = lean::cnstr_get(x_78, 0); +x_82 = lean::cnstr_get(x_78, 1); +if (lean::is_exclusive(x_78)) { + x_84 = x_78; } else { - lean::inc(x_81); - lean::inc(x_83); - lean::dec(x_79); - x_85 = lean::box(0); + lean::inc(x_80); + lean::inc(x_82); + lean::dec(x_78); + x_84 = lean::box(0); } -x_86 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_87 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_86, x_81); -x_88 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_74, x_87); -if (lean::is_scalar(x_85)) { - x_89 = lean::alloc_cnstr(0, 2, 0); +x_85 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_86 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_85, x_80); +x_87 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_73, x_86); +if (lean::is_scalar(x_84)) { + x_88 = lean::alloc_cnstr(0, 2, 0); } else { - x_89 = x_85; + x_88 = x_84; } -lean::cnstr_set(x_89, 0, x_88); -lean::cnstr_set(x_89, 1, x_83); -return x_89; +lean::cnstr_set(x_88, 0, x_87); +lean::cnstr_set(x_88, 1, x_82); +return x_88; } case 2: { -obj* x_90; obj* x_93; obj* x_95; obj* x_98; obj* x_101; obj* x_104; obj* x_106; obj* x_108; obj* x_110; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; -x_90 = lean::cnstr_get(x_8, 1); -lean::inc(x_90); +obj* x_89; obj* x_92; obj* x_94; obj* x_97; obj* x_100; obj* x_103; obj* x_105; obj* x_107; obj* x_109; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; +x_89 = lean::cnstr_get(x_8, 1); +lean::inc(x_89); lean::dec(x_8); -x_93 = lean::cnstr_get(x_9, 1); -lean::inc(x_93); -x_95 = lean::cnstr_get(x_9, 2); -lean::inc(x_95); +x_92 = lean::cnstr_get(x_9, 1); +lean::inc(x_92); +x_94 = lean::cnstr_get(x_9, 2); +lean::inc(x_94); lean::dec(x_9); -x_98 = lean::cnstr_get(x_36, 0); -lean::inc(x_98); -lean::dec(x_36); -x_101 = lean::cnstr_get(x_98, 0); -lean::inc(x_101); -lean::dec(x_98); -x_104 = l_RBMap_find___main___at___private_init_lean_parser_term_2__leading___spec__4___rarg(x_0, x_101); -lean::dec(x_101); -x_106 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_104, x_2, x_93, x_90); +x_97 = lean::cnstr_get(x_35, 0); +lean::inc(x_97); +lean::dec(x_35); +x_100 = lean::cnstr_get(x_97, 0); +lean::inc(x_100); +lean::dec(x_97); +x_103 = l_RBMap_find___main___at___private_init_lean_parser_term_2__leading___spec__4___rarg(x_0, x_100); +lean::dec(x_100); +x_105 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_103, x_2, x_92, x_89); lean::dec(x_2); -x_108 = lean::cnstr_get(x_106, 0); -x_110 = lean::cnstr_get(x_106, 1); -if (lean::is_exclusive(x_106)) { - x_112 = x_106; +x_107 = lean::cnstr_get(x_105, 0); +x_109 = lean::cnstr_get(x_105, 1); +if (lean::is_exclusive(x_105)) { + x_111 = x_105; } else { - lean::inc(x_108); - lean::inc(x_110); - lean::dec(x_106); - x_112 = lean::box(0); + lean::inc(x_107); + lean::inc(x_109); + lean::dec(x_105); + x_111 = lean::box(0); } -x_113 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_114 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_113, x_108); -x_115 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_95, x_114); -if (lean::is_scalar(x_112)) { - x_116 = lean::alloc_cnstr(0, 2, 0); +x_112 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_113 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_112, x_107); +x_114 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_94, x_113); +if (lean::is_scalar(x_111)) { + x_115 = lean::alloc_cnstr(0, 2, 0); } else { - x_116 = x_112; + x_115 = x_111; } -lean::cnstr_set(x_116, 0, x_115); -lean::cnstr_set(x_116, 1, x_110); -return x_116; +lean::cnstr_set(x_115, 0, x_114); +lean::cnstr_set(x_115, 1, x_109); +return x_115; } default: { -obj* x_117; obj* x_120; obj* x_122; obj* x_125; obj* x_126; obj* x_127; obj* x_128; obj* x_130; -x_117 = lean::cnstr_get(x_8, 1); -lean::inc(x_117); +obj* x_116; obj* x_119; obj* x_121; obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; +x_116 = lean::cnstr_get(x_8, 1); +lean::inc(x_116); lean::dec(x_8); -x_120 = lean::cnstr_get(x_9, 1); -lean::inc(x_120); -x_122 = lean::cnstr_get(x_9, 2); -lean::inc(x_122); +x_119 = lean::cnstr_get(x_9, 1); +lean::inc(x_119); +x_121 = lean::cnstr_get(x_9, 2); +lean::inc(x_121); lean::dec(x_9); -x_125 = lean::box(0); -x_126 = l_String_splitAux___main___closed__1; -x_127 = l_mjoin___rarg___closed__1; -x_128 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_126, x_127, x_125, x_125, x_2, x_120, x_117); -lean::dec(x_120); -x_130 = lean::cnstr_get(x_128, 0); +x_124 = lean::box(0); +x_125 = l_String_splitAux___main___closed__1; +x_126 = l_mjoin___rarg___closed__1; +x_127 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_125, x_126, x_124, x_124, x_2, x_119, x_116); +x_128 = lean::cnstr_get(x_127, 0); +lean::inc(x_128); +if (lean::obj_tag(x_128) == 0) +{ +obj* x_130; obj* x_133; obj* x_135; obj* x_137; obj* x_140; obj* x_142; obj* x_144; obj* x_146; obj* x_148; obj* x_149; obj* x_150; obj* x_151; +x_130 = lean::cnstr_get(x_127, 1); lean::inc(x_130); -if (lean::obj_tag(x_130) == 0) -{ -obj* x_132; obj* x_135; obj* x_137; obj* x_139; obj* x_142; obj* x_144; obj* x_146; obj* x_148; obj* x_150; obj* x_151; obj* x_152; obj* x_153; -x_132 = lean::cnstr_get(x_128, 1); -lean::inc(x_132); -lean::dec(x_128); -x_135 = lean::cnstr_get(x_130, 0); +lean::dec(x_127); +x_133 = lean::cnstr_get(x_128, 0); +lean::inc(x_133); +x_135 = lean::cnstr_get(x_128, 1); lean::inc(x_135); -x_137 = lean::cnstr_get(x_130, 1); +x_137 = lean::cnstr_get(x_128, 2); lean::inc(x_137); -x_139 = lean::cnstr_get(x_130, 2); -lean::inc(x_139); -lean::dec(x_130); -x_142 = l_RBMap_find___main___at___private_init_lean_parser_term_2__leading___spec__5___rarg(x_0, x_135); -lean::dec(x_135); -x_144 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_142, x_2, x_137, x_132); +lean::dec(x_128); +x_140 = l_RBMap_find___main___at___private_init_lean_parser_term_2__leading___spec__5___rarg(x_0, x_133); +lean::dec(x_133); +x_142 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_140, x_2, x_135, x_130); lean::dec(x_2); -x_146 = lean::cnstr_get(x_144, 0); -x_148 = lean::cnstr_get(x_144, 1); -if (lean::is_exclusive(x_144)) { - x_150 = x_144; +x_144 = lean::cnstr_get(x_142, 0); +x_146 = lean::cnstr_get(x_142, 1); +if (lean::is_exclusive(x_142)) { + x_148 = x_142; } else { + lean::inc(x_144); lean::inc(x_146); - lean::inc(x_148); - lean::dec(x_144); - x_150 = lean::box(0); + lean::dec(x_142); + x_148 = lean::box(0); } -x_151 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_139, x_146); -x_152 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_122, x_151); -if (lean::is_scalar(x_150)) { - x_153 = lean::alloc_cnstr(0, 2, 0); +x_149 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_137, x_144); +x_150 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_121, x_149); +if (lean::is_scalar(x_148)) { + x_151 = lean::alloc_cnstr(0, 2, 0); } else { - x_153 = x_150; + x_151 = x_148; } -lean::cnstr_set(x_153, 0, x_152); -lean::cnstr_set(x_153, 1, x_148); -return x_153; +lean::cnstr_set(x_151, 0, x_150); +lean::cnstr_set(x_151, 1, x_146); +return x_151; } else { -obj* x_156; obj* x_158; obj* x_159; uint8 x_161; obj* x_162; obj* x_163; obj* x_164; obj* x_165; obj* x_166; +obj* x_154; obj* x_156; obj* x_157; uint8 x_159; obj* x_160; obj* x_161; obj* x_162; obj* x_163; obj* x_164; lean::dec(x_0); lean::dec(x_2); -x_156 = lean::cnstr_get(x_128, 1); +x_154 = lean::cnstr_get(x_127, 1); +if (lean::is_exclusive(x_127)) { + lean::cnstr_release(x_127, 0); + x_156 = x_127; +} else { + lean::inc(x_154); + lean::dec(x_127); + x_156 = lean::box(0); +} +x_157 = lean::cnstr_get(x_128, 0); +x_159 = lean::cnstr_get_scalar(x_128, sizeof(void*)*1); if (lean::is_exclusive(x_128)) { - lean::cnstr_release(x_128, 0); - x_158 = x_128; + x_160 = x_128; } else { - lean::inc(x_156); + lean::inc(x_157); lean::dec(x_128); - x_158 = lean::box(0); + x_160 = lean::box(0); } -x_159 = lean::cnstr_get(x_130, 0); -x_161 = lean::cnstr_get_scalar(x_130, sizeof(void*)*1); -if (lean::is_exclusive(x_130)) { - x_162 = x_130; +if (lean::is_scalar(x_160)) { + x_161 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_159); - lean::dec(x_130); - x_162 = lean::box(0); + x_161 = x_160; } -if (lean::is_scalar(x_162)) { - x_163 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_161, 0, x_157); +lean::cnstr_set_scalar(x_161, sizeof(void*)*1, x_159); +x_162 = x_161; +x_163 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_121, x_162); +if (lean::is_scalar(x_156)) { + x_164 = lean::alloc_cnstr(0, 2, 0); } else { - x_163 = x_162; + x_164 = x_156; } -lean::cnstr_set(x_163, 0, x_159); -lean::cnstr_set_scalar(x_163, sizeof(void*)*1, x_161); -x_164 = x_163; -x_165 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_122, x_164); -if (lean::is_scalar(x_158)) { - x_166 = lean::alloc_cnstr(0, 2, 0); -} else { - x_166 = x_158; -} -lean::cnstr_set(x_166, 0, x_165); -lean::cnstr_set(x_166, 1, x_156); -return x_166; +lean::cnstr_set(x_164, 0, x_163); +lean::cnstr_set(x_164, 1, x_154); +return x_164; } } } @@ -46716,43 +45944,43 @@ return x_166; } else { -obj* x_169; obj* x_171; obj* x_172; uint8 x_174; obj* x_175; obj* x_176; obj* x_177; obj* x_178; +obj* x_167; obj* x_169; obj* x_170; uint8 x_172; obj* x_173; obj* x_174; obj* x_175; obj* x_176; lean::dec(x_0); lean::dec(x_2); -x_169 = lean::cnstr_get(x_8, 1); +x_167 = lean::cnstr_get(x_8, 1); if (lean::is_exclusive(x_8)) { lean::cnstr_release(x_8, 0); - x_171 = x_8; + x_169 = x_8; } else { - lean::inc(x_169); + lean::inc(x_167); lean::dec(x_8); - x_171 = lean::box(0); + x_169 = lean::box(0); } -x_172 = lean::cnstr_get(x_9, 0); -x_174 = lean::cnstr_get_scalar(x_9, sizeof(void*)*1); +x_170 = lean::cnstr_get(x_9, 0); +x_172 = lean::cnstr_get_scalar(x_9, sizeof(void*)*1); if (lean::is_exclusive(x_9)) { - x_175 = x_9; + x_173 = x_9; } else { - lean::inc(x_172); + lean::inc(x_170); lean::dec(x_9); - x_175 = lean::box(0); + x_173 = lean::box(0); } -if (lean::is_scalar(x_175)) { - x_176 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_173)) { + x_174 = lean::alloc_cnstr(1, 1, 1); } else { - x_176 = x_175; + x_174 = x_173; } -lean::cnstr_set(x_176, 0, x_172); -lean::cnstr_set_scalar(x_176, sizeof(void*)*1, x_174); -x_177 = x_176; -if (lean::is_scalar(x_171)) { - x_178 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_174, 0, x_170); +lean::cnstr_set_scalar(x_174, sizeof(void*)*1, x_172); +x_175 = x_174; +if (lean::is_scalar(x_169)) { + x_176 = lean::alloc_cnstr(0, 2, 0); } else { - x_178 = x_171; + x_176 = x_169; } -lean::cnstr_set(x_178, 0, x_177); -lean::cnstr_set(x_178, 1, x_169); -return x_178; +lean::cnstr_set(x_176, 0, x_175); +lean::cnstr_set(x_176, 1, x_167); +return x_176; } } } @@ -47279,84 +46507,85 @@ return x_56; obj* l_Lean_Parser_MonadParsec_longestMatch___at___private_init_lean_parser_term_2__leading___spec__8(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { -obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_13; +obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_12; obj* x_14; x_6 = lean::box(0); x_7 = l_Lean_Parser_MonadParsec_longestMatch___rarg___lambda__2___closed__1; x_8 = l_mjoin___rarg___closed__1; -x_9 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__12___rarg(x_7, x_8, x_6, x_6, x_4); lean::inc(x_4); -x_11 = l_List_mfoldr___main___at___private_init_lean_parser_term_2__leading___spec__10(x_4, x_9, x_0, x_1, x_2, x_3, x_4, x_5); +x_10 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__12___rarg(x_7, x_8, x_6, x_6, x_4); +lean::inc(x_4); +x_12 = l_List_mfoldr___main___at___private_init_lean_parser_term_2__leading___spec__10(x_4, x_10, x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_4); -x_13 = lean::cnstr_get(x_11, 0); -lean::inc(x_13); -if (lean::obj_tag(x_13) == 0) +x_14 = lean::cnstr_get(x_12, 0); +lean::inc(x_14); +if (lean::obj_tag(x_14) == 0) { -obj* x_15; obj* x_17; obj* x_18; obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; -x_15 = lean::cnstr_get(x_11, 1); -if (lean::is_exclusive(x_11)) { - lean::cnstr_release(x_11, 0); - x_17 = x_11; +obj* x_16; obj* x_18; obj* x_19; obj* x_21; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +x_16 = lean::cnstr_get(x_12, 1); +if (lean::is_exclusive(x_12)) { + lean::cnstr_release(x_12, 0); + x_18 = x_12; } else { - lean::inc(x_15); - lean::dec(x_11); - x_17 = lean::box(0); + lean::inc(x_16); + lean::dec(x_12); + x_18 = lean::box(0); } -x_18 = lean::cnstr_get(x_13, 0); -lean::inc(x_18); -x_20 = lean::cnstr_get(x_13, 2); -lean::inc(x_20); -lean::dec(x_13); -x_23 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_18); -x_24 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_25 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_24, x_23); -if (lean::is_scalar(x_17)) { - x_26 = lean::alloc_cnstr(0, 2, 0); +x_19 = lean::cnstr_get(x_14, 0); +lean::inc(x_19); +x_21 = lean::cnstr_get(x_14, 2); +lean::inc(x_21); +lean::dec(x_14); +x_24 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_19); +x_25 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_26 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_25, x_24); +if (lean::is_scalar(x_18)) { + x_27 = lean::alloc_cnstr(0, 2, 0); } else { - x_26 = x_17; + x_27 = x_18; } -lean::cnstr_set(x_26, 0, x_25); -lean::cnstr_set(x_26, 1, x_15); -return x_26; +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_16); +return x_27; } else { -obj* x_27; obj* x_29; obj* x_30; uint8 x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; -x_27 = lean::cnstr_get(x_11, 1); -if (lean::is_exclusive(x_11)) { - lean::cnstr_release(x_11, 0); - x_29 = x_11; +obj* x_28; obj* x_30; obj* x_31; uint8 x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; +x_28 = lean::cnstr_get(x_12, 1); +if (lean::is_exclusive(x_12)) { + lean::cnstr_release(x_12, 0); + x_30 = x_12; } else { - lean::inc(x_27); - lean::dec(x_11); - x_29 = lean::box(0); + lean::inc(x_28); + lean::dec(x_12); + x_30 = lean::box(0); } -x_30 = lean::cnstr_get(x_13, 0); -x_32 = lean::cnstr_get_scalar(x_13, sizeof(void*)*1); -if (lean::is_exclusive(x_13)) { - x_33 = x_13; +x_31 = lean::cnstr_get(x_14, 0); +x_33 = lean::cnstr_get_scalar(x_14, sizeof(void*)*1); +if (lean::is_exclusive(x_14)) { + x_34 = x_14; } else { - lean::inc(x_30); - lean::dec(x_13); - x_33 = lean::box(0); + lean::inc(x_31); + lean::dec(x_14); + x_34 = lean::box(0); } -if (lean::is_scalar(x_33)) { - x_34 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_34)) { + x_35 = lean::alloc_cnstr(1, 1, 1); } else { - x_34 = x_33; + x_35 = x_34; } -lean::cnstr_set(x_34, 0, x_30); -lean::cnstr_set_scalar(x_34, sizeof(void*)*1, x_32); -x_35 = x_34; -x_36 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_37 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_36, x_35); -if (lean::is_scalar(x_29)) { - x_38 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_35, 0, x_31); +lean::cnstr_set_scalar(x_35, sizeof(void*)*1, x_33); +x_36 = x_35; +x_37 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_38 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_37, x_36); +if (lean::is_scalar(x_30)) { + x_39 = lean::alloc_cnstr(0, 2, 0); } else { - x_38 = x_29; + x_39 = x_30; } -lean::cnstr_set(x_38, 0, x_37); -lean::cnstr_set(x_38, 1, x_27); -return x_38; +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_28); +return x_39; } } } @@ -47942,36 +47171,113 @@ lean::dec(x_0); return x_8; } } -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__3___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { _start: { -obj* x_9; obj* x_10; uint8 x_11; obj* x_12; obj* x_13; obj* x_14; -x_9 = l_Option_getOrElse___main___rarg(x_2, x_7); -x_10 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_10, 0, x_9); -lean::cnstr_set(x_10, 1, x_0); -lean::cnstr_set(x_10, 2, x_1); -lean::cnstr_set(x_10, 3, x_3); -x_11 = 0; -x_12 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_12, 0, x_10); -lean::cnstr_set_scalar(x_12, sizeof(void*)*1, x_11); -x_13 = x_12; -x_14 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_14, 0, x_13); -lean::cnstr_set(x_14, 1, x_8); -return x_14; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_8; uint8 x_9; obj* x_10; obj* x_11; obj* x_12; +x_8 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_8, 0, x_6); +lean::cnstr_set(x_8, 1, x_0); +lean::cnstr_set(x_8, 2, x_1); +lean::cnstr_set(x_8, 3, x_3); +x_9 = 0; +x_10 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_10, 0, x_8); +lean::cnstr_set_scalar(x_10, sizeof(void*)*1, x_9); +x_11 = x_10; +x_12 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_7); +return x_12; +} +else +{ +obj* x_14; obj* x_17; uint8 x_18; obj* x_19; obj* x_20; obj* x_21; +lean::dec(x_6); +x_14 = lean::cnstr_get(x_2, 0); +lean::inc(x_14); +lean::dec(x_2); +x_17 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_17, 0, x_14); +lean::cnstr_set(x_17, 1, x_0); +lean::cnstr_set(x_17, 2, x_1); +lean::cnstr_set(x_17, 3, x_3); +x_18 = 0; +x_19 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_19, 0, x_17); +lean::cnstr_set_scalar(x_19, sizeof(void*)*1, x_18); +x_20 = x_19; +x_21 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_21, 0, x_20); +lean::cnstr_set(x_21, 1, x_7); +return x_21; } } -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__3(obj* x_0) { +} +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__2(obj* x_0) { _start: { obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__3___rarg___boxed), 9, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__2___rarg___boxed), 8, 0); return x_1; } } -obj* l_Lean_Parser_currLbp___at_Lean_Parser_termParser_run___spec__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__4___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { +_start: +{ +if (lean::obj_tag(x_2) == 0) +{ +obj* x_9; uint8 x_10; obj* x_11; obj* x_12; obj* x_13; +x_9 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_9, 0, x_7); +lean::cnstr_set(x_9, 1, x_0); +lean::cnstr_set(x_9, 2, x_1); +lean::cnstr_set(x_9, 3, x_3); +x_10 = 0; +x_11 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_11, 0, x_9); +lean::cnstr_set_scalar(x_11, sizeof(void*)*1, x_10); +x_12 = x_11; +x_13 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_8); +return x_13; +} +else +{ +obj* x_15; obj* x_18; uint8 x_19; obj* x_20; obj* x_21; obj* x_22; +lean::dec(x_7); +x_15 = lean::cnstr_get(x_2, 0); +lean::inc(x_15); +lean::dec(x_2); +x_18 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_18, 0, x_15); +lean::cnstr_set(x_18, 1, x_0); +lean::cnstr_set(x_18, 2, x_1); +lean::cnstr_set(x_18, 3, x_3); +x_19 = 0; +x_20 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set_scalar(x_20, sizeof(void*)*1, x_19); +x_21 = x_20; +x_22 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_22, 0, x_21); +lean::cnstr_set(x_22, 1, x_8); +return x_22; +} +} +} +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__4(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__4___rarg___boxed), 9, 0); +return x_1; +} +} +obj* l_Lean_Parser_currLbp___at_Lean_Parser_termParser_run___spec__5(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; obj* x_7; obj* x_8; @@ -48072,325 +47378,322 @@ lean::cnstr_set(x_47, 2, x_46); x_48 = l_Lean_Parser_Trie_matchPrefix___rarg(x_44, x_47); if (lean::obj_tag(x_48) == 0) { -obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_56; obj* x_58; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; +obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_55; obj* x_57; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; lean::dec(x_40); x_50 = lean::box(0); x_51 = l_Lean_Parser_currLbp___rarg___lambda__1___closed__1; x_52 = l_mjoin___rarg___closed__1; -x_53 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__3___rarg(x_51, x_52, x_50, x_50, x_0, x_1, x_2, x_36, x_33); -lean::dec(x_36); +x_53 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__4___rarg(x_51, x_52, x_50, x_50, x_0, x_1, x_2, x_36, x_33); lean::dec(x_1); -x_56 = lean::cnstr_get(x_53, 0); -x_58 = lean::cnstr_get(x_53, 1); +x_55 = lean::cnstr_get(x_53, 0); +x_57 = lean::cnstr_get(x_53, 1); if (lean::is_exclusive(x_53)) { - x_60 = x_53; + x_59 = x_53; } else { - lean::inc(x_56); - lean::inc(x_58); + lean::inc(x_55); + lean::inc(x_57); lean::dec(x_53); - x_60 = lean::box(0); + x_59 = lean::box(0); } -x_61 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_62 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_61, x_56); -x_63 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_61, x_62); -x_64 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_63); -if (lean::is_scalar(x_60)) { - x_65 = lean::alloc_cnstr(0, 2, 0); +x_60 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_61 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_60, x_55); +x_62 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_60, x_61); +x_63 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_62); +if (lean::is_scalar(x_59)) { + x_64 = lean::alloc_cnstr(0, 2, 0); } else { - x_65 = x_60; + x_64 = x_59; } -lean::cnstr_set(x_65, 0, x_64); -lean::cnstr_set(x_65, 1, x_58); -return x_65; +lean::cnstr_set(x_64, 0, x_63); +lean::cnstr_set(x_64, 1, x_57); +return x_64; } else { -obj* x_67; obj* x_70; obj* x_72; obj* x_73; obj* x_76; obj* x_77; obj* x_78; obj* x_79; +obj* x_66; obj* x_69; obj* x_71; obj* x_72; obj* x_75; obj* x_76; obj* x_77; obj* x_78; lean::dec(x_1); -x_67 = lean::cnstr_get(x_48, 0); -lean::inc(x_67); +x_66 = lean::cnstr_get(x_48, 0); +lean::inc(x_66); lean::dec(x_48); -x_70 = lean::cnstr_get(x_67, 1); -if (lean::is_exclusive(x_67)) { - lean::cnstr_release(x_67, 0); - x_72 = x_67; +x_69 = lean::cnstr_get(x_66, 1); +if (lean::is_exclusive(x_66)) { + lean::cnstr_release(x_66, 0); + x_71 = x_66; } else { - lean::inc(x_70); - lean::dec(x_67); - x_72 = lean::box(0); + lean::inc(x_69); + lean::dec(x_66); + x_71 = lean::box(0); } -x_73 = lean::cnstr_get(x_70, 1); -lean::inc(x_73); -lean::dec(x_70); -x_76 = l_Lean_Parser_matchToken___closed__1; +x_72 = lean::cnstr_get(x_69, 1); +lean::inc(x_72); +lean::dec(x_69); +x_75 = l_Lean_Parser_matchToken___closed__1; if (lean::is_scalar(x_40)) { - x_77 = lean::alloc_cnstr(0, 3, 0); + x_76 = lean::alloc_cnstr(0, 3, 0); } else { - x_77 = x_40; + x_76 = x_40; } -lean::cnstr_set(x_77, 0, x_73); -lean::cnstr_set(x_77, 1, x_36); -lean::cnstr_set(x_77, 2, x_76); -x_78 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_77); -if (lean::is_scalar(x_72)) { - x_79 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_76, 0, x_72); +lean::cnstr_set(x_76, 1, x_36); +lean::cnstr_set(x_76, 2, x_75); +x_77 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_76); +if (lean::is_scalar(x_71)) { + x_78 = lean::alloc_cnstr(0, 2, 0); } else { - x_79 = x_72; + x_78 = x_71; } -lean::cnstr_set(x_79, 0, x_78); -lean::cnstr_set(x_79, 1, x_33); -return x_79; +lean::cnstr_set(x_78, 0, x_77); +lean::cnstr_set(x_78, 1, x_33); +return x_78; } } case 1: { -obj* x_82; obj* x_84; obj* x_85; obj* x_87; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; +obj* x_81; obj* x_83; obj* x_84; obj* x_86; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; lean::dec(x_1); lean::dec(x_27); -x_82 = lean::cnstr_get(x_7, 1); +x_81 = lean::cnstr_get(x_7, 1); if (lean::is_exclusive(x_7)) { lean::cnstr_release(x_7, 0); - x_84 = x_7; + x_83 = x_7; } else { - lean::inc(x_82); + lean::inc(x_81); lean::dec(x_7); - x_84 = lean::box(0); + x_83 = lean::box(0); } -x_85 = lean::cnstr_get(x_8, 1); -x_87 = lean::cnstr_get(x_8, 2); +x_84 = lean::cnstr_get(x_8, 1); +x_86 = lean::cnstr_get(x_8, 2); if (lean::is_exclusive(x_8)) { lean::cnstr_release(x_8, 0); - x_89 = x_8; + x_88 = x_8; } else { - lean::inc(x_85); - lean::inc(x_87); + lean::inc(x_84); + lean::inc(x_86); lean::dec(x_8); - x_89 = lean::box(0); + x_88 = lean::box(0); } -x_90 = l_Lean_Parser_maxPrec; -x_91 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_89)) { - x_92 = lean::alloc_cnstr(0, 3, 0); +x_89 = l_Lean_Parser_maxPrec; +x_90 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_88)) { + x_91 = lean::alloc_cnstr(0, 3, 0); } else { - x_92 = x_89; + x_91 = x_88; } -lean::cnstr_set(x_92, 0, x_90); -lean::cnstr_set(x_92, 1, x_85); -lean::cnstr_set(x_92, 2, x_91); -x_93 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_87, x_92); -if (lean::is_scalar(x_84)) { - x_94 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_91, 0, x_89); +lean::cnstr_set(x_91, 1, x_84); +lean::cnstr_set(x_91, 2, x_90); +x_92 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_86, x_91); +if (lean::is_scalar(x_83)) { + x_93 = lean::alloc_cnstr(0, 2, 0); } else { - x_94 = x_84; + x_93 = x_83; } -lean::cnstr_set(x_94, 0, x_93); -lean::cnstr_set(x_94, 1, x_82); -return x_94; +lean::cnstr_set(x_93, 0, x_92); +lean::cnstr_set(x_93, 1, x_81); +return x_93; } case 2: { -obj* x_95; obj* x_98; obj* x_100; obj* x_101; obj* x_103; obj* x_105; obj* x_106; obj* x_109; uint8 x_110; -x_95 = lean::cnstr_get(x_27, 0); -lean::inc(x_95); +obj* x_94; obj* x_97; obj* x_99; obj* x_100; obj* x_102; obj* x_104; obj* x_105; obj* x_108; uint8 x_109; +x_94 = lean::cnstr_get(x_27, 0); +lean::inc(x_94); lean::dec(x_27); -x_98 = lean::cnstr_get(x_7, 1); +x_97 = lean::cnstr_get(x_7, 1); if (lean::is_exclusive(x_7)) { lean::cnstr_release(x_7, 0); lean::cnstr_set(x_7, 1, lean::box(0)); - x_100 = x_7; + x_99 = x_7; } else { - lean::inc(x_98); + lean::inc(x_97); lean::dec(x_7); - x_100 = lean::box(0); + x_99 = lean::box(0); } -x_101 = lean::cnstr_get(x_8, 1); -x_103 = lean::cnstr_get(x_8, 2); +x_100 = lean::cnstr_get(x_8, 1); +x_102 = lean::cnstr_get(x_8, 2); if (lean::is_exclusive(x_8)) { lean::cnstr_release(x_8, 0); lean::cnstr_set(x_8, 1, lean::box(0)); lean::cnstr_set(x_8, 2, lean::box(0)); - x_105 = x_8; + x_104 = x_8; } else { - lean::inc(x_101); - lean::inc(x_103); + lean::inc(x_100); + lean::inc(x_102); lean::dec(x_8); - x_105 = lean::box(0); + x_104 = lean::box(0); } -x_106 = lean::cnstr_get(x_95, 0); -lean::inc(x_106); -lean::dec(x_95); -x_109 = l_Lean_Parser_number_HasView_x_27___lambda__1___closed__6; -x_110 = lean_name_dec_eq(x_106, x_109); -if (x_110 == 0) +x_105 = lean::cnstr_get(x_94, 0); +lean::inc(x_105); +lean::dec(x_94); +x_108 = l_Lean_Parser_number_HasView_x_27___lambda__1___closed__6; +x_109 = lean_name_dec_eq(x_105, x_108); +if (x_109 == 0) { -obj* x_111; uint8 x_112; -x_111 = l_Lean_Parser_currLbp___rarg___lambda__3___closed__1; -x_112 = lean_name_dec_eq(x_106, x_111); -lean::dec(x_106); -if (x_112 == 0) -{ -obj* x_116; obj* x_117; obj* x_118; obj* x_119; obj* x_122; obj* x_124; obj* x_126; obj* x_127; obj* x_128; -lean::dec(x_100); +obj* x_110; uint8 x_111; +x_110 = l_Lean_Parser_currLbp___rarg___lambda__3___closed__1; +x_111 = lean_name_dec_eq(x_105, x_110); lean::dec(x_105); -x_116 = lean::box(0); -x_117 = l_Lean_Parser_currLbp___rarg___lambda__3___closed__2; -x_118 = l_mjoin___rarg___closed__1; -x_119 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__3___rarg(x_117, x_118, x_116, x_116, x_0, x_1, x_2, x_101, x_98); -lean::dec(x_101); +if (x_111 == 0) +{ +obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_120; obj* x_122; obj* x_124; obj* x_125; obj* x_126; +lean::dec(x_104); +lean::dec(x_99); +x_115 = lean::box(0); +x_116 = l_Lean_Parser_currLbp___rarg___lambda__3___closed__2; +x_117 = l_mjoin___rarg___closed__1; +x_118 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__4___rarg(x_116, x_117, x_115, x_115, x_0, x_1, x_2, x_100, x_97); lean::dec(x_1); -x_122 = lean::cnstr_get(x_119, 0); -x_124 = lean::cnstr_get(x_119, 1); -if (lean::is_exclusive(x_119)) { - x_126 = x_119; +x_120 = lean::cnstr_get(x_118, 0); +x_122 = lean::cnstr_get(x_118, 1); +if (lean::is_exclusive(x_118)) { + x_124 = x_118; } else { + lean::inc(x_120); lean::inc(x_122); - lean::inc(x_124); - lean::dec(x_119); - x_126 = lean::box(0); + lean::dec(x_118); + x_124 = lean::box(0); } -x_127 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_103, x_122); -if (lean::is_scalar(x_126)) { - x_128 = lean::alloc_cnstr(0, 2, 0); +x_125 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_102, x_120); +if (lean::is_scalar(x_124)) { + x_126 = lean::alloc_cnstr(0, 2, 0); } else { - x_128 = x_126; + x_126 = x_124; } -lean::cnstr_set(x_128, 0, x_127); -lean::cnstr_set(x_128, 1, x_124); -return x_128; +lean::cnstr_set(x_126, 0, x_125); +lean::cnstr_set(x_126, 1, x_122); +return x_126; } else { -obj* x_130; obj* x_131; obj* x_132; obj* x_133; obj* x_134; +obj* x_128; obj* x_129; obj* x_130; obj* x_131; obj* x_132; lean::dec(x_1); -x_130 = l_Lean_Parser_maxPrec; -x_131 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_105)) { - x_132 = lean::alloc_cnstr(0, 3, 0); +x_128 = l_Lean_Parser_maxPrec; +x_129 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_104)) { + x_130 = lean::alloc_cnstr(0, 3, 0); } else { - x_132 = x_105; + x_130 = x_104; } -lean::cnstr_set(x_132, 0, x_130); -lean::cnstr_set(x_132, 1, x_101); -lean::cnstr_set(x_132, 2, x_131); -x_133 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_103, x_132); -if (lean::is_scalar(x_100)) { - x_134 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_130, 0, x_128); +lean::cnstr_set(x_130, 1, x_100); +lean::cnstr_set(x_130, 2, x_129); +x_131 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_102, x_130); +if (lean::is_scalar(x_99)) { + x_132 = lean::alloc_cnstr(0, 2, 0); } else { - x_134 = x_100; + x_132 = x_99; } -lean::cnstr_set(x_134, 0, x_133); -lean::cnstr_set(x_134, 1, x_98); -return x_134; +lean::cnstr_set(x_132, 0, x_131); +lean::cnstr_set(x_132, 1, x_97); +return x_132; } } else { -obj* x_137; obj* x_138; obj* x_139; obj* x_140; obj* x_141; +obj* x_135; obj* x_136; obj* x_137; obj* x_138; obj* x_139; lean::dec(x_1); -lean::dec(x_106); -x_137 = l_Lean_Parser_maxPrec; -x_138 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_105)) { - x_139 = lean::alloc_cnstr(0, 3, 0); +lean::dec(x_105); +x_135 = l_Lean_Parser_maxPrec; +x_136 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_104)) { + x_137 = lean::alloc_cnstr(0, 3, 0); } else { - x_139 = x_105; + x_137 = x_104; } -lean::cnstr_set(x_139, 0, x_137); -lean::cnstr_set(x_139, 1, x_101); -lean::cnstr_set(x_139, 2, x_138); -x_140 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_103, x_139); -if (lean::is_scalar(x_100)) { - x_141 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_137, 0, x_135); +lean::cnstr_set(x_137, 1, x_100); +lean::cnstr_set(x_137, 2, x_136); +x_138 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_102, x_137); +if (lean::is_scalar(x_99)) { + x_139 = lean::alloc_cnstr(0, 2, 0); } else { - x_141 = x_100; + x_139 = x_99; } -lean::cnstr_set(x_141, 0, x_140); -lean::cnstr_set(x_141, 1, x_98); -return x_141; +lean::cnstr_set(x_139, 0, x_138); +lean::cnstr_set(x_139, 1, x_97); +return x_139; } } default: { -obj* x_142; obj* x_145; obj* x_147; obj* x_150; obj* x_151; obj* x_152; obj* x_153; obj* x_156; obj* x_158; obj* x_160; obj* x_161; obj* x_162; -x_142 = lean::cnstr_get(x_7, 1); -lean::inc(x_142); +obj* x_140; obj* x_143; obj* x_145; obj* x_148; obj* x_149; obj* x_150; obj* x_151; obj* x_153; obj* x_155; obj* x_157; obj* x_158; obj* x_159; +x_140 = lean::cnstr_get(x_7, 1); +lean::inc(x_140); lean::dec(x_7); -x_145 = lean::cnstr_get(x_8, 1); +x_143 = lean::cnstr_get(x_8, 1); +lean::inc(x_143); +x_145 = lean::cnstr_get(x_8, 2); lean::inc(x_145); -x_147 = lean::cnstr_get(x_8, 2); -lean::inc(x_147); lean::dec(x_8); -x_150 = lean::box(0); -x_151 = l_Lean_Parser_currLbp___rarg___lambda__3___closed__2; -x_152 = l_mjoin___rarg___closed__1; -x_153 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__3___rarg(x_151, x_152, x_150, x_150, x_0, x_1, x_2, x_145, x_142); -lean::dec(x_145); +x_148 = lean::box(0); +x_149 = l_Lean_Parser_currLbp___rarg___lambda__3___closed__2; +x_150 = l_mjoin___rarg___closed__1; +x_151 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__4___rarg(x_149, x_150, x_148, x_148, x_0, x_1, x_2, x_143, x_140); lean::dec(x_1); -x_156 = lean::cnstr_get(x_153, 0); -x_158 = lean::cnstr_get(x_153, 1); -if (lean::is_exclusive(x_153)) { - x_160 = x_153; +x_153 = lean::cnstr_get(x_151, 0); +x_155 = lean::cnstr_get(x_151, 1); +if (lean::is_exclusive(x_151)) { + x_157 = x_151; } else { - lean::inc(x_156); - lean::inc(x_158); - lean::dec(x_153); - x_160 = lean::box(0); + lean::inc(x_153); + lean::inc(x_155); + lean::dec(x_151); + x_157 = lean::box(0); } -x_161 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_147, x_156); -if (lean::is_scalar(x_160)) { - x_162 = lean::alloc_cnstr(0, 2, 0); +x_158 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_145, x_153); +if (lean::is_scalar(x_157)) { + x_159 = lean::alloc_cnstr(0, 2, 0); } else { - x_162 = x_160; + x_159 = x_157; } -lean::cnstr_set(x_162, 0, x_161); -lean::cnstr_set(x_162, 1, x_158); -return x_162; +lean::cnstr_set(x_159, 0, x_158); +lean::cnstr_set(x_159, 1, x_155); +return x_159; } } } } else { -obj* x_164; obj* x_166; obj* x_167; uint8 x_169; obj* x_170; obj* x_171; obj* x_172; obj* x_173; +obj* x_161; obj* x_163; obj* x_164; uint8 x_166; obj* x_167; obj* x_168; obj* x_169; obj* x_170; lean::dec(x_1); -x_164 = lean::cnstr_get(x_7, 1); +x_161 = lean::cnstr_get(x_7, 1); if (lean::is_exclusive(x_7)) { lean::cnstr_release(x_7, 0); - x_166 = x_7; + x_163 = x_7; +} else { + lean::inc(x_161); + lean::dec(x_7); + x_163 = lean::box(0); +} +x_164 = lean::cnstr_get(x_8, 0); +x_166 = lean::cnstr_get_scalar(x_8, sizeof(void*)*1); +if (lean::is_exclusive(x_8)) { + x_167 = x_8; } else { lean::inc(x_164); - lean::dec(x_7); - x_166 = lean::box(0); -} -x_167 = lean::cnstr_get(x_8, 0); -x_169 = lean::cnstr_get_scalar(x_8, sizeof(void*)*1); -if (lean::is_exclusive(x_8)) { - x_170 = x_8; -} else { - lean::inc(x_167); lean::dec(x_8); - x_170 = lean::box(0); + x_167 = lean::box(0); } -if (lean::is_scalar(x_170)) { - x_171 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_167)) { + x_168 = lean::alloc_cnstr(1, 1, 1); } else { - x_171 = x_170; + x_168 = x_167; } -lean::cnstr_set(x_171, 0, x_167); -lean::cnstr_set_scalar(x_171, sizeof(void*)*1, x_169); -x_172 = x_171; -if (lean::is_scalar(x_166)) { - x_173 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_168, 0, x_164); +lean::cnstr_set_scalar(x_168, sizeof(void*)*1, x_166); +x_169 = x_168; +if (lean::is_scalar(x_163)) { + x_170 = lean::alloc_cnstr(0, 2, 0); } else { - x_173 = x_166; + x_170 = x_163; } -lean::cnstr_set(x_173, 0, x_172); -lean::cnstr_set(x_173, 1, x_164); -return x_173; +lean::cnstr_set(x_170, 0, x_169); +lean::cnstr_set(x_170, 1, x_161); +return x_170; } } } -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_termParser_run___spec__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { +obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_termParser_run___spec__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { _start: { obj* x_9; uint8 x_10; @@ -48400,7 +47703,7 @@ if (x_10 == 0) { obj* x_12; obj* x_13; lean::inc(x_5); -x_12 = l_Lean_Parser_currLbp___at_Lean_Parser_termParser_run___spec__4(x_4, x_5, x_6, x_7, x_8); +x_12 = l_Lean_Parser_currLbp___at_Lean_Parser_termParser_run___spec__5(x_4, x_5, x_6, x_7, x_8); x_13 = lean::cnstr_get(x_12, 0); lean::inc(x_13); if (lean::obj_tag(x_13) == 0) @@ -48486,7 +47789,7 @@ lean::inc(x_51); x_53 = lean::cnstr_get(x_44, 2); lean::inc(x_53); lean::dec(x_44); -x_56 = l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_termParser_run___spec__2(x_0, x_1, x_38, x_49, x_4, x_5, x_6, x_51, x_46); +x_56 = l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_termParser_run___spec__3(x_0, x_1, x_38, x_49, x_4, x_5, x_6, x_51, x_46); lean::dec(x_38); x_58 = lean::cnstr_get(x_56, 0); x_60 = lean::cnstr_get(x_56, 1); @@ -48607,8 +47910,7 @@ lean::dec(x_0); x_99 = lean::box(0); x_100 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; x_101 = l_mjoin___rarg___closed__1; -x_102 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__3___rarg(x_100, x_101, x_99, x_99, x_4, x_5, x_6, x_7, x_8); -lean::dec(x_7); +x_102 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__4___rarg(x_100, x_101, x_99, x_99, x_4, x_5, x_6, x_7, x_8); lean::dec(x_6); lean::dec(x_5); lean::dec(x_4); @@ -48616,170 +47918,133 @@ return x_102; } } } -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__5___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { +obj* l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_8; obj* x_9; uint8 x_10; obj* x_11; obj* x_12; obj* x_13; -x_8 = l_Option_getOrElse___main___rarg(x_2, x_6); -x_9 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -lean::cnstr_set(x_9, 2, x_1); -lean::cnstr_set(x_9, 3, x_3); -x_10 = 0; -x_11 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_11, 0, x_9); -lean::cnstr_set_scalar(x_11, sizeof(void*)*1, x_10); -x_12 = x_11; -x_13 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_13, 0, x_12); -lean::cnstr_set(x_13, 1, x_7); -return x_13; +obj* x_5; obj* x_6; obj* x_7; obj* x_8; +x_5 = lean::box(0); +x_6 = l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1; +x_7 = l_mjoin___rarg___closed__1; +x_8 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__2___rarg(x_6, x_7, x_5, x_5, x_1, x_2, x_3, x_4); +return x_8; } } -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__5(obj* x_0) { +obj* l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { _start: { -obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__5___rarg___boxed), 8, 0); -return x_1; -} -} -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_termParser_run___spec__7(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { -_start: -{ -obj* x_10; obj* x_14; obj* x_15; -lean::inc(x_1); -lean::inc(x_0); -x_10 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_termParser_run___spec__7___boxed), 8, 3); -lean::closure_set(x_10, 0, x_0); -lean::closure_set(x_10, 1, x_1); -lean::closure_set(x_10, 2, x_2); +obj* x_11; obj* x_12; lean::inc(x_5); lean::inc(x_4); -lean::inc(x_10); -x_14 = lean::apply_5(x_0, x_10, x_4, x_5, x_6, x_7); -x_15 = lean::cnstr_get(x_14, 0); -lean::inc(x_15); -if (lean::obj_tag(x_15) == 0) +lean::inc(x_2); +x_11 = lean::apply_5(x_0, x_2, x_4, x_5, x_6, x_7); +x_12 = lean::cnstr_get(x_11, 0); +lean::inc(x_12); +if (lean::obj_tag(x_12) == 0) { -obj* x_17; obj* x_20; obj* x_22; obj* x_24; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_33; obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_17 = lean::cnstr_get(x_14, 1); +obj* x_14; obj* x_17; obj* x_19; obj* x_21; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_14 = lean::cnstr_get(x_11, 1); +lean::inc(x_14); +lean::dec(x_11); +x_17 = lean::cnstr_get(x_12, 0); lean::inc(x_17); -lean::dec(x_14); -x_20 = lean::cnstr_get(x_15, 0); -lean::inc(x_20); -x_22 = lean::cnstr_get(x_15, 1); -lean::inc(x_22); -x_24 = lean::cnstr_get(x_15, 2); -lean::inc(x_24); -lean::dec(x_15); -x_27 = l_String_OldIterator_remaining___main(x_22); -x_28 = lean::mk_nat_obj(1ul); -x_29 = lean::nat_add(x_27, x_28); -lean::dec(x_27); -x_31 = l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_termParser_run___spec__2(x_1, x_3, x_29, x_20, x_10, x_4, x_5, x_22, x_17); -lean::dec(x_29); -x_33 = lean::cnstr_get(x_31, 0); -x_35 = lean::cnstr_get(x_31, 1); -if (lean::is_exclusive(x_31)) { - x_37 = x_31; +x_19 = lean::cnstr_get(x_12, 1); +lean::inc(x_19); +x_21 = lean::cnstr_get(x_12, 2); +lean::inc(x_21); +lean::dec(x_12); +x_24 = l_String_OldIterator_remaining___main(x_19); +x_25 = lean::mk_nat_obj(1ul); +x_26 = lean::nat_add(x_24, x_25); +lean::dec(x_24); +x_28 = l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_termParser_run___spec__3(x_1, x_3, x_26, x_17, x_2, x_4, x_5, x_19, x_14); +lean::dec(x_26); +x_30 = lean::cnstr_get(x_28, 0); +x_32 = lean::cnstr_get(x_28, 1); +if (lean::is_exclusive(x_28)) { + x_34 = x_28; } else { - lean::inc(x_33); - lean::inc(x_35); - lean::dec(x_31); - x_37 = lean::box(0); + lean::inc(x_30); + lean::inc(x_32); + lean::dec(x_28); + x_34 = lean::box(0); } -x_38 = l_Lean_Parser_finishCommentBlock___closed__2; -x_39 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_33); -x_40 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_24, x_39); -if (lean::is_scalar(x_37)) { - x_41 = lean::alloc_cnstr(0, 2, 0); +x_35 = l_Lean_Parser_finishCommentBlock___closed__2; +x_36 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_35, x_30); +x_37 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_36); +if (lean::is_scalar(x_34)) { + x_38 = lean::alloc_cnstr(0, 2, 0); } else { - x_41 = x_37; + x_38 = x_34; } -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_35); -return x_41; +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_32); +return x_38; } else { -obj* x_46; obj* x_48; obj* x_49; uint8 x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; +obj* x_43; obj* x_45; obj* x_46; uint8 x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; lean::dec(x_5); -lean::dec(x_10); lean::dec(x_4); lean::dec(x_1); -x_46 = lean::cnstr_get(x_14, 1); -if (lean::is_exclusive(x_14)) { - lean::cnstr_release(x_14, 0); - x_48 = x_14; +lean::dec(x_2); +x_43 = lean::cnstr_get(x_11, 1); +if (lean::is_exclusive(x_11)) { + lean::cnstr_release(x_11, 0); + x_45 = x_11; +} else { + lean::inc(x_43); + lean::dec(x_11); + x_45 = lean::box(0); +} +x_46 = lean::cnstr_get(x_12, 0); +x_48 = lean::cnstr_get_scalar(x_12, sizeof(void*)*1); +if (lean::is_exclusive(x_12)) { + x_49 = x_12; } else { lean::inc(x_46); - lean::dec(x_14); - x_48 = lean::box(0); + lean::dec(x_12); + x_49 = lean::box(0); } -x_49 = lean::cnstr_get(x_15, 0); -x_51 = lean::cnstr_get_scalar(x_15, sizeof(void*)*1); -if (lean::is_exclusive(x_15)) { - x_52 = x_15; +if (lean::is_scalar(x_49)) { + x_50 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_49); - lean::dec(x_15); - x_52 = lean::box(0); + x_50 = x_49; } -if (lean::is_scalar(x_52)) { - x_53 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_50, 0, x_46); +lean::cnstr_set_scalar(x_50, sizeof(void*)*1, x_48); +x_51 = x_50; +if (lean::is_scalar(x_45)) { + x_52 = lean::alloc_cnstr(0, 2, 0); } else { - x_53 = x_52; + x_52 = x_45; } -lean::cnstr_set(x_53, 0, x_49); -lean::cnstr_set_scalar(x_53, sizeof(void*)*1, x_51); -x_54 = x_53; -if (lean::is_scalar(x_48)) { - x_55 = lean::alloc_cnstr(0, 2, 0); -} else { - x_55 = x_48; +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_43); +return x_52; } -lean::cnstr_set(x_55, 0, x_54); -lean::cnstr_set(x_55, 1, x_46); -return x_55; -} -} -} -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_termParser_run___spec__6(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { -_start: -{ -obj* x_8; -x_8 = l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_termParser_run___spec__7(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7); -return x_8; } } obj* _init_l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; -x_0 = lean::box(0); -x_1 = lean::mk_string("RecT.runParsec: no progress"); -x_2 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 1, 0); -x_3 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__5___rarg___boxed), 8, 4); -lean::closure_set(x_3, 0, x_1); -lean::closure_set(x_3, 1, x_2); -lean::closure_set(x_3, 2, x_0); -lean::closure_set(x_3, 3, x_0); -return x_3; +obj* x_0; +x_0 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___lambda__1___boxed), 5, 0); +return x_0; } } obj* l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { -obj* x_7; obj* x_8; obj* x_9; -x_7 = l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___closed__1; -x_8 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_termParser_run___spec__6___boxed), 8, 3); -lean::closure_set(x_8, 0, x_0); -lean::closure_set(x_8, 1, x_1); -lean::closure_set(x_8, 2, x_7); -x_9 = lean::apply_5(x_2, x_8, x_3, x_4, x_5, x_6); -return x_9; +obj* x_7; obj* x_8; obj* x_9; obj* x_10; +x_7 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___lambda__2___boxed), 8, 2); +lean::closure_set(x_7, 0, x_0); +lean::closure_set(x_7, 1, x_1); +x_8 = l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___closed__1; +x_9 = lean::alloc_closure(reinterpret_cast(l_fixCore___rarg___boxed), 3, 2); +lean::closure_set(x_9, 0, x_8); +lean::closure_set(x_9, 1, x_7); +x_10 = lean::apply_5(x_2, x_9, x_3, x_4, x_5, x_6); +return x_10; } } obj* l_Lean_Parser_termParser_run(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { @@ -48818,83 +48083,81 @@ lean::cnstr_set(x_20, 1, x_15); return x_20; } } -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__3___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__2___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { _start: { -obj* x_9; -x_9 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__3___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); -lean::dec(x_2); +obj* x_8; +x_8 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__2___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7); lean::dec(x_4); lean::dec(x_5); -lean::dec(x_6); -lean::dec(x_7); -return x_9; +return x_8; } } -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__3___boxed(obj* x_0) { +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__2___boxed(obj* x_0) { _start: { obj* x_1; -x_1 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__3(x_0); +x_1 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__2(x_0); lean::dec(x_0); return x_1; } } -obj* l_Lean_Parser_currLbp___at_Lean_Parser_termParser_run___spec__4___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__4___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { +_start: +{ +obj* x_9; +x_9 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__4___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); +lean::dec(x_4); +lean::dec(x_5); +lean::dec(x_6); +return x_9; +} +} +obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__4___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__4(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_Lean_Parser_currLbp___at_Lean_Parser_termParser_run___spec__5___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; -x_5 = l_Lean_Parser_currLbp___at_Lean_Parser_termParser_run___spec__4(x_0, x_1, x_2, x_3, x_4); +x_5 = l_Lean_Parser_currLbp___at_Lean_Parser_termParser_run___spec__5(x_0, x_1, x_2, x_3, x_4); lean::dec(x_0); lean::dec(x_2); return x_5; } } -obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_termParser_run___spec__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { +obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_termParser_run___spec__3___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { _start: { obj* x_9; -x_9 = l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_termParser_run___spec__2(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); +x_9 = l___private_init_lean_parser_pratt_1__trailingLoop___main___at_Lean_Parser_termParser_run___spec__3(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); lean::dec(x_1); lean::dec(x_2); return x_9; } } -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__5___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { +obj* l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_8; -x_8 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__5___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7); -lean::dec(x_2); -lean::dec(x_4); -lean::dec(x_5); -lean::dec(x_6); -return x_8; -} -} -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__5___boxed(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__5(x_0); +obj* x_5; +x_5 = l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___lambda__1(x_0, x_1, x_2, x_3, x_4); lean::dec(x_0); -return x_1; +lean::dec(x_1); +lean::dec(x_2); +return x_5; } } -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_termParser_run___spec__7___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { +obj* l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { _start: { obj* x_8; -x_8 = l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_termParser_run___spec__7(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7); -lean::dec(x_3); -return x_8; -} -} -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_termParser_run___spec__6___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { -_start: -{ -obj* x_8; -x_8 = l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_termParser_run___spec__6(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7); +x_8 = l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___lambda__2(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7); lean::dec(x_3); return x_8; } @@ -48916,8 +48179,6 @@ w = initialize_init_lean_expr(w); lean::mark_persistent(l_Lean_Parser_identUnivSpec); l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1 = _init_l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1(); lean::mark_persistent(l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__1); - l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__2 = _init_l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__2(); -lean::mark_persistent(l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1___closed__2); l_Lean_Parser_identUnivSpec_HasView_x_27 = _init_l_Lean_Parser_identUnivSpec_HasView_x_27(); lean::mark_persistent(l_Lean_Parser_identUnivSpec_HasView_x_27); l_Lean_Parser_identUnivSpec_HasView = _init_l_Lean_Parser_identUnivSpec_HasView(); diff --git a/src/stage0/init/lean/parser/token.cpp b/src/stage0/init/lean/parser/token.cpp index 731f2fcb33..58ebfe9417 100644 --- a/src/stage0/init/lean/parser/token.cpp +++ b/src/stage0/init/lean/parser/token.cpp @@ -38,6 +38,7 @@ obj* l___private_init_lean_parser_parsec_5__takeWhileAux___main___at_Lean_Parser obj* l_Lean_Parser_rawStr_Lean_Parser_HasView___rarg___boxed(obj*, obj*, obj*, obj*, obj*); extern obj* l_String_foldlAux___main___at_String_toNat___spec__1___closed__1; obj* l_Lean_Parser_stringLit; +obj* l_fixCore___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_parser_token_4__ident_x_27___spec__4___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___spec__12___boxed(obj*); obj* l_Lean_Parser_raw_view___rarg___closed__1; @@ -170,7 +171,6 @@ obj* l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser obj* l_Lean_Parser_MonadParsec_takeWhile1___at_Lean_Parser_parseOctLit___spec__1(uint32, obj*, obj*, obj*); obj* l_Lean_Parser_token___closed__1; obj* l_Lean_Parser_ident_Parser_View___rarg___closed__1; -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_detailIdent_Parser___spec__2(obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_token_5__mkConsumeToken___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_indexed___rarg___lambda__1___closed__1; obj* l_Lean_Parser_raw___rarg___lambda__2(obj*, uint8, obj*, obj*, obj*, obj*, obj*, obj*); @@ -203,7 +203,6 @@ obj* l_Lean_Parser_raw_view___boxed(obj*); obj* l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser___spec__10___boxed(obj*); obj* l_Lean_Parser_number_HasView; obj* l_Lean_Parser_number_HasView_x_27___lambda__1___closed__2; -obj* l_Option_get___main___at_Lean_Parser_run___spec__2(obj*); obj* l_Lean_Parser_unicodeSymbol___boxed(obj*); obj* l_Lean_Parser_parseStringLiteralAux___main___at_Lean_Parser_stringLit_View_value___spec__4___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___spec__10___boxed(obj*); @@ -221,6 +220,7 @@ obj* l_Lean_Parser_parseQuotedChar___at_Lean_Parser_stringLit_x_27___spec__3___b obj* l_Lean_Parser_withTrailing___at_Lean_Parser_token___spec__3(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_raw(obj*); obj* l_String_OldIterator_nextn___main(obj*, obj*); +extern obj* l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1; obj* l_Lean_Parser_indexed___rarg(obj*, obj*, obj*); obj* l_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasView___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_takeWhile1___at_Lean_Parser_parseHexLit___spec__1(obj*, obj*, obj*); @@ -271,7 +271,6 @@ obj* l_Lean_Parser_number_HasView_x_27___lambda__2___closed__1; obj* l_Lean_Parser_symbol_View___boxed(obj*); obj* l_Lean_Parser_symbol_viewDefault___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_takeWhile_x_27___at___private_init_lean_parser_token_2__whitespaceAux___main___spec__2___boxed(obj*); -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_detailIdent_Parser___spec__1___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_raw_view___rarg___lambda__2(obj*); obj* l_Lean_Parser_unicodeSymbol___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_ch___at_Lean_Parser_stringLit_View_value___spec__2(uint32, obj*); @@ -292,7 +291,6 @@ obj* l_Lean_Parser_Combinators_anyOf___at_Lean_Parser_unicodeSymbol_Lean_Parser_ obj* l_ReaderT_lift___at_Lean_Parser_withTrailing___spec__1___boxed(obj*); obj* l_Lean_Parser_symbolCore___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_stringLit_Parser(obj*); -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__12___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_rawIdent_Parser_tokens(obj*, obj*); obj* l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_parser_token_4__ident_x_27___spec__17___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_stringLit_x_27(obj*, obj*, obj*); @@ -308,7 +306,6 @@ obj* l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser obj* l_Lean_Parser_Combinators_node___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__15(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___spec__12___rarg(obj*, obj*); obj* l_Lean_Parser_MonadParsec_takeWhile1___at_Lean_Parser_parseOctLit___spec__1___boxed(obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_tryView___at_Lean_Parser_number_Parser___spec__1___boxed(obj*, obj*); obj* l_Lean_Parser_ident_Parser(obj*); obj* l_RBNode_find___main___at_Lean_NameMap_contains___spec__2(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_parseStringLiteralAux___main___at_Lean_Parser_stringLit_x_27___spec__2(obj*, obj*, obj*, obj*, obj*); @@ -341,7 +338,6 @@ obj* l_Lean_Parser_Syntax_mkNode(obj*, obj*); obj* l_Lean_Parser_symbolCore(obj*); obj* l___private_init_lean_parser_parsec_5__takeWhileAux___main___at___private_init_lean_parser_token_4__ident_x_27___spec__18(obj*, obj*, obj*); obj* l_Lean_Parser_raw_view___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Option_getOrElse___main___rarg(obj*, obj*); obj* l___private_init_lean_parser_token_7__toNatCore(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_ident_Parser___rarg(obj*); obj* l_Lean_Parser_stringLit_Parser_View(obj*); @@ -364,6 +360,7 @@ obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_detailIdentSuffix_Parser_L extern obj* l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; uint32 l_Char_ofNat(obj*); obj* l___private_init_lean_parser_parsec_5__takeWhileAux___main___at_Lean_Parser_parseOctLit___spec__3(uint32, obj*, obj*, obj*); +obj* l_Lean_Parser_detailIdent_Parser___lambda__2(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_ident_Parser___rarg___closed__1; extern obj* l_Char_HasRepr___closed__1; obj* l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_number_x_27___spec__6(obj*, obj*, obj*, obj*); @@ -386,6 +383,7 @@ extern uint32 l_Lean_idBeginEscape; obj* l_Lean_Parser_symbolOrIdent_tokens___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_detailIdentPart_HasView_x_27; obj* l___private_init_lean_parser_parsec_5__takeWhileAux___main___at_Lean_Parser_detailIdentPart_Parser___spec__3(obj*, obj*, obj*); +extern obj* l_Lean_Parser_Combinators_optional___rarg___lambda__1___closed__1; obj* l_Lean_Parser_rawIdent_Parser_View(obj*); obj* l_RBMap_find___main___at_Lean_Parser_indexed___spec__5___boxed(obj*); obj* l_Char_quoteCore(uint32); @@ -445,9 +443,9 @@ obj* l_Lean_Parser_MonadParsec_strCore___at_Lean_Parser_detailIdentSuffix_Parser obj* l_Lean_Parser_MonadParsec_takeWhile_x_27___at___private_init_lean_parser_token_2__whitespaceAux___main___spec__5___boxed(obj*); obj* l_Lean_Parser_detailIdent_HasView; obj* l___private_init_lean_parser_token_3__updateTrailing___main(obj*, obj*); +obj* l_Lean_Parser_detailIdent_Parser___lambda__1(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_symbolCore___rarg(obj*, obj*, obj*, obj*); obj* l_ReaderT_orelse___at_Lean_Parser_parseBinLit___spec__1___boxed(obj*); -obj* l_Lean_Parser_tryView___at_Lean_Parser_number_Parser___spec__1(obj*, obj*); obj* l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__25___rarg(obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__12___boxed(obj*); obj* l_Lean_Parser_detailIdentPart_Parser___closed__1; @@ -470,10 +468,8 @@ obj* l_Lean_Parser_Combinators_seqRight_view___rarg(obj*, obj*, obj*, obj*, obj* obj* l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__21___rarg(obj*, obj*); obj* l_Lean_Parser_indexed___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_unicodeSymbol_Lean_Parser_HasView(obj*); -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_detailIdent_Parser___spec__2___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_updateLast___main(obj*, obj*); obj* l_Lean_Parser_unicodeSymbol_Lean_Parser_HasTokens___rarg(obj*, obj*, obj*); -obj* l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; obj* l_Lean_Parser_rawIdent_Parser_View___rarg(obj*); obj* l_Lean_Parser_finishCommentBlock___closed__1; obj* l_RBMap_find___main___at_Lean_Parser_indexed___spec__1___rarg(obj*, obj*); @@ -507,6 +503,7 @@ obj* l_Lean_Parser_withTrailing___rarg___lambda__2(obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_parsec_5__takeWhileAux___main___at___private_init_lean_parser_token_4__ident_x_27___spec__7(obj*, obj*, obj*); obj* l_Lean_Parser_number_Parser___rarg(obj*); obj* l_Lean_Parser_number_HasView_x_27___lambda__1___closed__5; +obj* l_Lean_Parser_detailIdent_Parser___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_String_trim(obj*); obj* l_Lean_Parser_stringLit_x_27___lambda__1(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_number_Parser(obj*); @@ -600,7 +597,6 @@ obj* l_Lean_Parser_number_HasView_x_27___lambda__1___closed__6; obj* l_Lean_Parser_MonadParsec_takeWhile_x_27___at___private_init_lean_parser_token_2__whitespaceAux___main___spec__5___rarg(obj*, obj*); obj* l_Lean_Parser_number_HasView_x_27___lambda__2___closed__3; obj* l_Lean_Parser_idPartEscaped___at___private_init_lean_parser_token_4__ident_x_27___spec__10(obj*, obj*, obj*); -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_detailIdentPart_HasView; obj* l_Lean_Parser_number_x_27___lambda__2(obj*, obj*, obj*, obj*); @@ -642,6 +638,7 @@ obj* l___private_init_lean_parser_parsec_7__takeWhileAux_x_27___main___at___priv obj* l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__29(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_raw___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_detailIdentSuffix_HasView_x_27___lambda__1(obj*); +obj* l_Lean_Parser_detailIdent_Parser___lambda__1___boxed(obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_token_1__finishCommentBlockAux___main___closed__3; obj* l_RBMap_find___main___at_Lean_Parser_indexed___spec__1___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_Combinators_optional___at_Lean_Parser_detailIdent_x_27___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*); @@ -668,7 +665,6 @@ obj* l_Lean_Parser_detailIdentSuffix_HasView_x_27; obj* l_Lean_Parser_detailIdentPart_Parser___lambda__2(obj*, obj*, obj*, obj*); extern uint32 l_Lean_idEndEscape; obj* l_Lean_Parser_number_x_27___lambda__4(obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_MonadParsec_unexpectedAt___at_Lean_Parser_stringLit_View_value___spec__7___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_detailIdentSuffix; obj* l_Lean_Parser_asSubstring___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*); obj* l_List_foldl___main___at_Lean_Parser_unicodeSymbol_Lean_Parser_HasTokens___spec__3(obj*, obj*, obj*, obj*, obj*); @@ -730,7 +726,6 @@ obj* l_Lean_Parser_rawStr_Lean_Parser_HasTokens(obj*, obj*, obj*, obj*, obj*, ui obj* l_Lean_Parser_parseStringLiteral___at_Lean_Parser_stringLit_View_value___spec__1(obj*); obj* l_List_map___main___at_Lean_Parser_number_x_27___spec__9___lambda__1(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_digit___at_Lean_Parser_stringLit_x_27___spec__6(obj*, obj*, obj*); -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_detailIdent_Parser___spec__1(obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_token_1__finishCommentBlockAux___main___closed__2; obj* l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser___spec__12___boxed(obj*); obj* l_Lean_Parser_MonadParsec_ch___at_Lean_Parser_stringLit_View_value___spec__2___boxed(obj*, obj*); @@ -739,9 +734,10 @@ obj* l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser obj* l_Lean_Parser_number_View_toNat(obj*); obj* l_Lean_Parser_number_x_27___lambda__1___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasView___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_Lean_Parser_number_Parser___rarg___lambda__1___closed__1; obj* l_Lean_Parser_ParsecT_lookahead___at_Lean_Parser_token___spec__1(obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_parsec_5__takeWhileAux___main___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___spec__7(obj*, obj*, obj*); -obj* l_Lean_Parser_number_Parser___rarg___lambda__1(obj*, obj*, obj*, obj*); +obj* l_Lean_Parser_number_Parser___rarg___lambda__1(obj*, obj*, obj*); obj* l_Lean_Parser_parseBinLit(obj*, obj*, obj*); obj* l___private_init_lean_parser_parsec_5__takeWhileAux___main___at_Lean_Parser_number_x_27___spec__5(obj*, obj*, obj*); obj* l_Lean_Parser_stringLit_Parser___rarg___closed__1; @@ -830,22 +826,46 @@ return x_21; obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { -obj* x_7; obj* x_8; uint8 x_9; obj* x_10; obj* x_11; obj* x_12; -x_7 = l_Option_getOrElse___main___rarg(x_2, x_5); -x_8 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_8, 0, x_7); -lean::cnstr_set(x_8, 1, x_0); -lean::cnstr_set(x_8, 2, x_1); -lean::cnstr_set(x_8, 3, x_3); -x_9 = 0; -x_10 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_10, 0, x_8); -lean::cnstr_set_scalar(x_10, sizeof(void*)*1, x_9); -x_11 = x_10; -x_12 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_12, 0, x_11); -lean::cnstr_set(x_12, 1, x_6); -return x_12; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_7; uint8 x_8; obj* x_9; obj* x_10; obj* x_11; +x_7 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_7, 0, x_5); +lean::cnstr_set(x_7, 1, x_0); +lean::cnstr_set(x_7, 2, x_1); +lean::cnstr_set(x_7, 3, x_3); +x_8 = 0; +x_9 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_9, 0, x_7); +lean::cnstr_set_scalar(x_9, sizeof(void*)*1, x_8); +x_10 = x_9; +x_11 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_11, 0, x_10); +lean::cnstr_set(x_11, 1, x_6); +return x_11; +} +else +{ +obj* x_13; obj* x_16; uint8 x_17; obj* x_18; obj* x_19; obj* x_20; +lean::dec(x_5); +x_13 = lean::cnstr_get(x_2, 0); +lean::inc(x_13); +lean::dec(x_2); +x_16 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_16, 0, x_13); +lean::cnstr_set(x_16, 1, x_0); +lean::cnstr_set(x_16, 2, x_1); +lean::cnstr_set(x_16, 3, x_3); +x_17 = 0; +x_18 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_18, 0, x_16); +lean::cnstr_set_scalar(x_18, sizeof(void*)*1, x_17); +x_19 = x_18; +x_20 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_20, 0, x_19); +lean::cnstr_set(x_20, 1, x_6); +return x_20; +} } } obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1(obj* x_0) { @@ -863,85 +883,83 @@ uint8 x_3; x_3 = l_String_OldIterator_hasNext___main(x_1); if (x_3 == 0) { -obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; +obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_15; x_4 = lean::box(0); x_5 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_6 = l_mjoin___rarg___closed__1; x_7 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_5, x_6, x_4, x_4, x_0, x_1, x_2); -lean::dec(x_1); -x_9 = lean::cnstr_get(x_7, 0); -x_11 = lean::cnstr_get(x_7, 1); +x_8 = lean::cnstr_get(x_7, 0); +x_10 = lean::cnstr_get(x_7, 1); if (lean::is_exclusive(x_7)) { - x_13 = x_7; + x_12 = x_7; } else { - lean::inc(x_9); - lean::inc(x_11); + lean::inc(x_8); + lean::inc(x_10); lean::dec(x_7); - x_13 = lean::box(0); + x_12 = lean::box(0); } -x_14 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_15 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_9); -if (lean::is_scalar(x_13)) { - x_16 = lean::alloc_cnstr(0, 2, 0); +x_13 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_14 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_13, x_8); +if (lean::is_scalar(x_12)) { + x_15 = lean::alloc_cnstr(0, 2, 0); } else { - x_16 = x_13; + x_15 = x_12; } -lean::cnstr_set(x_16, 0, x_15); -lean::cnstr_set(x_16, 1, x_11); -return x_16; +lean::cnstr_set(x_15, 0, x_14); +lean::cnstr_set(x_15, 1, x_10); +return x_15; } else { -uint32 x_17; uint8 x_18; -x_17 = l_String_OldIterator_curr___main(x_1); -x_18 = l_True_Decidable; -if (x_18 == 0) +uint32 x_16; uint8 x_17; +x_16 = l_String_OldIterator_curr___main(x_1); +x_17 = l_True_Decidable; +if (x_17 == 0) { -obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; -x_19 = l_Char_quoteCore(x_17); -x_20 = l_Char_HasRepr___closed__1; -x_21 = lean::string_append(x_20, x_19); -lean::dec(x_19); -x_23 = lean::string_append(x_21, x_20); -x_24 = lean::box(0); -x_25 = l_mjoin___rarg___closed__1; -x_26 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_23, x_25, x_24, x_24, x_0, x_1, x_2); -lean::dec(x_1); -x_28 = lean::cnstr_get(x_26, 0); -x_30 = lean::cnstr_get(x_26, 1); -if (lean::is_exclusive(x_26)) { - x_32 = x_26; +obj* x_18; obj* x_19; obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_18 = l_Char_quoteCore(x_16); +x_19 = l_Char_HasRepr___closed__1; +x_20 = lean::string_append(x_19, x_18); +lean::dec(x_18); +x_22 = lean::string_append(x_20, x_19); +x_23 = lean::box(0); +x_24 = l_mjoin___rarg___closed__1; +x_25 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_22, x_24, x_23, x_23, x_0, x_1, x_2); +x_26 = lean::cnstr_get(x_25, 0); +x_28 = lean::cnstr_get(x_25, 1); +if (lean::is_exclusive(x_25)) { + x_30 = x_25; } else { + lean::inc(x_26); lean::inc(x_28); - lean::inc(x_30); - lean::dec(x_26); - x_32 = lean::box(0); + lean::dec(x_25); + x_30 = lean::box(0); } -x_33 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_34 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_33, x_28); -if (lean::is_scalar(x_32)) { - x_35 = lean::alloc_cnstr(0, 2, 0); +x_31 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_32 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_31, x_26); +if (lean::is_scalar(x_30)) { + x_33 = lean::alloc_cnstr(0, 2, 0); } else { - x_35 = x_32; + x_33 = x_30; } -lean::cnstr_set(x_35, 0, x_34); -lean::cnstr_set(x_35, 1, x_30); -return x_35; +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_28); +return x_33; } else { -obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; -x_36 = l_String_OldIterator_next___main(x_1); -x_37 = lean::box(0); -x_38 = lean::box_uint32(x_17); -x_39 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_39, 0, x_38); -lean::cnstr_set(x_39, 1, x_36); -lean::cnstr_set(x_39, 2, x_37); -x_40 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_40, 0, x_39); -lean::cnstr_set(x_40, 1, x_2); -return x_40; +obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_34 = l_String_OldIterator_next___main(x_1); +x_35 = lean::box(0); +x_36 = lean::box_uint32(x_16); +x_37 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_37, 0, x_36); +lean::cnstr_set(x_37, 1, x_34); +lean::cnstr_set(x_37, 2, x_35); +x_38 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_2); +return x_38; } } } @@ -1380,7 +1398,6 @@ x_150 = lean::box(0); x_151 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; x_152 = l_mjoin___rarg___closed__1; x_153 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_151, x_152, x_150, x_150, x_2, x_3, x_4); -lean::dec(x_3); return x_153; } } @@ -1390,9 +1407,7 @@ _start: { obj* x_7; x_7 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6); -lean::dec(x_2); lean::dec(x_4); -lean::dec(x_5); return x_7; } } @@ -2051,7 +2066,7 @@ lean::inc(x_101); x_103 = lean::unbox(x_101); if (x_103 == 0) { -obj* x_104; obj* x_107; obj* x_109; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_119; obj* x_121; obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; +obj* x_104; obj* x_107; obj* x_109; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_119; obj* x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; x_104 = lean::cnstr_get(x_98, 1); lean::inc(x_104); lean::dec(x_98); @@ -2066,434 +2081,432 @@ x_113 = lean::box(0); x_114 = l___private_init_lean_parser_token_2__whitespaceAux___main___closed__2; x_115 = l_mjoin___rarg___closed__1; x_116 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_114, x_115, x_112, x_113, x_1, x_107, x_104); -lean::dec(x_107); -lean::dec(x_112); -x_119 = lean::cnstr_get(x_116, 0); +x_117 = lean::cnstr_get(x_116, 0); +lean::inc(x_117); +x_119 = lean::cnstr_get(x_116, 1); lean::inc(x_119); -x_121 = lean::cnstr_get(x_116, 1); -lean::inc(x_121); lean::dec(x_116); -x_124 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_109, x_119); -x_125 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_126 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_125, x_124); -x_127 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_93, x_126); -x_128 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_127); -x_78 = x_128; -x_79 = x_121; +x_122 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_109, x_117); +x_123 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_124 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_123, x_122); +x_125 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_93, x_124); +x_126 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_125); +x_78 = x_126; +x_79 = x_119; goto lbl_80; } else { -obj* x_130; obj* x_133; obj* x_135; obj* x_137; obj* x_138; obj* x_139; obj* x_140; obj* x_141; obj* x_142; obj* x_143; obj* x_144; +obj* x_128; obj* x_131; obj* x_133; obj* x_135; obj* x_136; obj* x_137; obj* x_138; obj* x_139; obj* x_140; obj* x_141; obj* x_142; lean::dec(x_91); -x_130 = lean::cnstr_get(x_98, 1); -lean::inc(x_130); +x_128 = lean::cnstr_get(x_98, 1); +lean::inc(x_128); lean::dec(x_98); -x_133 = lean::cnstr_get(x_99, 1); -x_135 = lean::cnstr_get(x_99, 2); +x_131 = lean::cnstr_get(x_99, 1); +x_133 = lean::cnstr_get(x_99, 2); if (lean::is_exclusive(x_99)) { lean::cnstr_release(x_99, 0); - x_137 = x_99; + x_135 = x_99; } else { + lean::inc(x_131); lean::inc(x_133); - lean::inc(x_135); lean::dec(x_99); - x_137 = lean::box(0); + x_135 = lean::box(0); } -x_138 = lean::box(0); -x_139 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_137)) { - x_140 = lean::alloc_cnstr(0, 3, 0); +x_136 = lean::box(0); +x_137 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_135)) { + x_138 = lean::alloc_cnstr(0, 3, 0); } else { - x_140 = x_137; + x_138 = x_135; } -lean::cnstr_set(x_140, 0, x_138); -lean::cnstr_set(x_140, 1, x_133); -lean::cnstr_set(x_140, 2, x_139); -x_141 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_135, x_140); -x_142 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_139, x_141); -x_143 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_93, x_142); -x_144 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_143); -x_78 = x_144; -x_79 = x_130; +lean::cnstr_set(x_138, 0, x_136); +lean::cnstr_set(x_138, 1, x_131); +lean::cnstr_set(x_138, 2, x_137); +x_139 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_133, x_138); +x_140 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_137, x_139); +x_141 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_93, x_140); +x_142 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_141); +x_78 = x_142; +x_79 = x_128; goto lbl_80; } } else { -obj* x_146; obj* x_149; uint8 x_151; obj* x_152; obj* x_153; obj* x_154; obj* x_155; obj* x_156; obj* x_157; obj* x_158; +obj* x_144; obj* x_147; uint8 x_149; obj* x_150; obj* x_151; obj* x_152; obj* x_153; obj* x_154; obj* x_155; obj* x_156; lean::dec(x_91); -x_146 = lean::cnstr_get(x_98, 1); -lean::inc(x_146); +x_144 = lean::cnstr_get(x_98, 1); +lean::inc(x_144); lean::dec(x_98); -x_149 = lean::cnstr_get(x_99, 0); -x_151 = lean::cnstr_get_scalar(x_99, sizeof(void*)*1); +x_147 = lean::cnstr_get(x_99, 0); +x_149 = lean::cnstr_get_scalar(x_99, sizeof(void*)*1); if (lean::is_exclusive(x_99)) { - x_152 = x_99; + x_150 = x_99; } else { - lean::inc(x_149); + lean::inc(x_147); lean::dec(x_99); - x_152 = lean::box(0); + x_150 = lean::box(0); } -if (lean::is_scalar(x_152)) { - x_153 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_150)) { + x_151 = lean::alloc_cnstr(1, 1, 1); } else { - x_153 = x_152; + x_151 = x_150; } -lean::cnstr_set(x_153, 0, x_149); -lean::cnstr_set_scalar(x_153, sizeof(void*)*1, x_151); -x_154 = x_153; -x_155 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_156 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_155, x_154); -x_157 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_93, x_156); -x_158 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_157); -x_78 = x_158; -x_79 = x_146; +lean::cnstr_set(x_151, 0, x_147); +lean::cnstr_set_scalar(x_151, sizeof(void*)*1, x_149); +x_152 = x_151; +x_153 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_154 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_153, x_152); +x_155 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_93, x_154); +x_156 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_155); +x_78 = x_156; +x_79 = x_144; goto lbl_80; } } else { -obj* x_159; obj* x_162; obj* x_164; uint8 x_165; obj* x_166; obj* x_167; -x_159 = lean::cnstr_get(x_85, 1); -lean::inc(x_159); +obj* x_157; obj* x_160; obj* x_162; uint8 x_163; obj* x_164; obj* x_165; +x_157 = lean::cnstr_get(x_85, 1); +lean::inc(x_157); lean::dec(x_85); -x_162 = lean::cnstr_get(x_86, 0); +x_160 = lean::cnstr_get(x_86, 0); if (lean::is_exclusive(x_86)) { - x_164 = x_86; + x_162 = x_86; } else { - lean::inc(x_162); + lean::inc(x_160); lean::dec(x_86); - x_164 = lean::box(0); + x_162 = lean::box(0); } -x_165 = 0; -if (lean::is_scalar(x_164)) { - x_166 = lean::alloc_cnstr(1, 1, 1); +x_163 = 0; +if (lean::is_scalar(x_162)) { + x_164 = lean::alloc_cnstr(1, 1, 1); } else { - x_166 = x_164; + x_164 = x_162; } -lean::cnstr_set(x_166, 0, x_162); -lean::cnstr_set_scalar(x_166, sizeof(void*)*1, x_165); -x_167 = x_166; -x_78 = x_167; -x_79 = x_159; +lean::cnstr_set(x_164, 0, x_160); +lean::cnstr_set_scalar(x_164, sizeof(void*)*1, x_163); +x_165 = x_164; +x_78 = x_165; +x_79 = x_157; goto lbl_80; } } else { -obj* x_173; obj* x_174; +obj* x_171; obj* x_172; lean::dec(x_18); lean::dec(x_11); lean::dec(x_12); lean::dec(x_16); lean::dec(x_75); -x_173 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_19); -x_174 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_174, 0, x_173); -lean::cnstr_set(x_174, 1, x_20); -return x_174; +x_171 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_19); +x_172 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_172, 0, x_171); +lean::cnstr_set(x_172, 1, x_20); +return x_172; } lbl_80: { if (lean::obj_tag(x_78) == 0) { -obj* x_177; obj* x_179; obj* x_181; obj* x_182; obj* x_183; obj* x_185; obj* x_187; obj* x_188; +obj* x_175; obj* x_177; obj* x_179; obj* x_180; obj* x_181; obj* x_183; obj* x_185; obj* x_186; lean::dec(x_11); lean::dec(x_16); -x_177 = lean::cnstr_get(x_78, 1); -x_179 = lean::cnstr_get(x_78, 2); +x_175 = lean::cnstr_get(x_78, 1); +x_177 = lean::cnstr_get(x_78, 2); if (lean::is_exclusive(x_78)) { lean::cnstr_release(x_78, 0); lean::cnstr_set(x_78, 1, lean::box(0)); lean::cnstr_set(x_78, 2, lean::box(0)); - x_181 = x_78; + x_179 = x_78; } else { + lean::inc(x_175); lean::inc(x_177); - lean::inc(x_179); lean::dec(x_78); - x_181 = lean::box(0); + x_179 = lean::box(0); } -x_182 = l_Lean_Parser_finishCommentBlock(x_17, x_1, x_177, x_79); -x_183 = lean::cnstr_get(x_182, 0); -x_185 = lean::cnstr_get(x_182, 1); -if (lean::is_exclusive(x_182)) { - lean::cnstr_set(x_182, 0, lean::box(0)); - lean::cnstr_set(x_182, 1, lean::box(0)); - x_187 = x_182; +x_180 = l_Lean_Parser_finishCommentBlock(x_17, x_1, x_175, x_79); +x_181 = lean::cnstr_get(x_180, 0); +x_183 = lean::cnstr_get(x_180, 1); +if (lean::is_exclusive(x_180)) { + lean::cnstr_set(x_180, 0, lean::box(0)); + lean::cnstr_set(x_180, 1, lean::box(0)); + x_185 = x_180; } else { + lean::inc(x_181); lean::inc(x_183); - lean::inc(x_185); - lean::dec(x_182); - x_187 = lean::box(0); + lean::dec(x_180); + x_185 = lean::box(0); } -x_188 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_179, x_183); -if (lean::obj_tag(x_188) == 0) +x_186 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_177, x_181); +if (lean::obj_tag(x_186) == 0) { -obj* x_191; obj* x_193; obj* x_195; obj* x_196; obj* x_198; obj* x_200; obj* x_202; obj* x_203; -lean::dec(x_187); -lean::dec(x_181); -x_191 = lean::cnstr_get(x_188, 1); -x_193 = lean::cnstr_get(x_188, 2); -if (lean::is_exclusive(x_188)) { - lean::cnstr_release(x_188, 0); - lean::cnstr_set(x_188, 1, lean::box(0)); - lean::cnstr_set(x_188, 2, lean::box(0)); - x_195 = x_188; +obj* x_189; obj* x_191; obj* x_193; obj* x_194; obj* x_196; obj* x_198; obj* x_200; obj* x_201; +lean::dec(x_179); +lean::dec(x_185); +x_189 = lean::cnstr_get(x_186, 1); +x_191 = lean::cnstr_get(x_186, 2); +if (lean::is_exclusive(x_186)) { + lean::cnstr_release(x_186, 0); + lean::cnstr_set(x_186, 1, lean::box(0)); + lean::cnstr_set(x_186, 2, lean::box(0)); + x_193 = x_186; } else { + lean::inc(x_189); lean::inc(x_191); - lean::inc(x_193); - lean::dec(x_188); - x_195 = lean::box(0); + lean::dec(x_186); + x_193 = lean::box(0); } -x_196 = l___private_init_lean_parser_token_2__whitespaceAux___main(x_18, x_1, x_191, x_185); +x_194 = l___private_init_lean_parser_token_2__whitespaceAux___main(x_18, x_1, x_189, x_183); lean::dec(x_18); -x_198 = lean::cnstr_get(x_196, 0); -x_200 = lean::cnstr_get(x_196, 1); -if (lean::is_exclusive(x_196)) { - lean::cnstr_set(x_196, 0, lean::box(0)); - lean::cnstr_set(x_196, 1, lean::box(0)); - x_202 = x_196; +x_196 = lean::cnstr_get(x_194, 0); +x_198 = lean::cnstr_get(x_194, 1); +if (lean::is_exclusive(x_194)) { + lean::cnstr_set(x_194, 0, lean::box(0)); + lean::cnstr_set(x_194, 1, lean::box(0)); + x_200 = x_194; } else { + lean::inc(x_196); lean::inc(x_198); - lean::inc(x_200); - lean::dec(x_196); - x_202 = lean::box(0); + lean::dec(x_194); + x_200 = lean::box(0); } -x_203 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_193, x_198); -if (lean::obj_tag(x_203) == 0) +x_201 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_191, x_196); +if (lean::obj_tag(x_201) == 0) { -obj* x_206; obj* x_207; obj* x_208; -lean::dec(x_195); +obj* x_204; obj* x_205; obj* x_206; +lean::dec(x_193); lean::dec(x_12); -x_206 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_75, x_203); -x_207 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_206); -if (lean::is_scalar(x_202)) { - x_208 = lean::alloc_cnstr(0, 2, 0); +x_204 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_75, x_201); +x_205 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_204); +if (lean::is_scalar(x_200)) { + x_206 = lean::alloc_cnstr(0, 2, 0); } else { - x_208 = x_202; + x_206 = x_200; } -lean::cnstr_set(x_208, 0, x_207); -lean::cnstr_set(x_208, 1, x_200); -return x_208; +lean::cnstr_set(x_206, 0, x_205); +lean::cnstr_set(x_206, 1, x_198); +return x_206; } else { -uint8 x_209; -x_209 = lean::cnstr_get_scalar(x_203, sizeof(void*)*1); -if (x_209 == 0) +uint8 x_207; +x_207 = lean::cnstr_get_scalar(x_201, sizeof(void*)*1); +if (x_207 == 0) { -obj* x_210; obj* x_213; obj* x_216; obj* x_217; obj* x_218; obj* x_221; obj* x_222; obj* x_223; obj* x_224; obj* x_225; obj* x_226; -x_210 = lean::cnstr_get(x_203, 0); -lean::inc(x_210); -lean::dec(x_203); -x_213 = lean::cnstr_get(x_210, 2); -lean::inc(x_213); -lean::dec(x_210); -x_216 = l_mjoin___rarg___closed__1; -x_217 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_217, 0, x_213); -lean::closure_set(x_217, 1, x_216); -x_218 = lean::cnstr_get(x_75, 2); -lean::inc(x_218); +obj* x_208; obj* x_211; obj* x_214; obj* x_215; obj* x_216; obj* x_219; obj* x_220; obj* x_221; obj* x_222; obj* x_223; obj* x_224; +x_208 = lean::cnstr_get(x_201, 0); +lean::inc(x_208); +lean::dec(x_201); +x_211 = lean::cnstr_get(x_208, 2); +lean::inc(x_211); +lean::dec(x_208); +x_214 = l_mjoin___rarg___closed__1; +x_215 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_215, 0, x_211); +lean::closure_set(x_215, 1, x_214); +x_216 = lean::cnstr_get(x_75, 2); +lean::inc(x_216); lean::dec(x_75); -x_221 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_221, 0, x_218); -lean::closure_set(x_221, 1, x_217); -x_222 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_222, 0, x_221); -x_223 = lean::box(0); -if (lean::is_scalar(x_195)) { - x_224 = lean::alloc_cnstr(0, 3, 0); +x_219 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_219, 0, x_216); +lean::closure_set(x_219, 1, x_215); +x_220 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_220, 0, x_219); +x_221 = lean::box(0); +if (lean::is_scalar(x_193)) { + x_222 = lean::alloc_cnstr(0, 3, 0); } else { - x_224 = x_195; + x_222 = x_193; +} +lean::cnstr_set(x_222, 0, x_221); +lean::cnstr_set(x_222, 1, x_12); +lean::cnstr_set(x_222, 2, x_220); +x_223 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_222); +if (lean::is_scalar(x_200)) { + x_224 = lean::alloc_cnstr(0, 2, 0); +} else { + x_224 = x_200; } lean::cnstr_set(x_224, 0, x_223); -lean::cnstr_set(x_224, 1, x_12); -lean::cnstr_set(x_224, 2, x_222); -x_225 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_224); -if (lean::is_scalar(x_202)) { - x_226 = lean::alloc_cnstr(0, 2, 0); -} else { - x_226 = x_202; -} -lean::cnstr_set(x_226, 0, x_225); -lean::cnstr_set(x_226, 1, x_200); -return x_226; +lean::cnstr_set(x_224, 1, x_198); +return x_224; } else { -obj* x_229; obj* x_230; obj* x_231; -lean::dec(x_195); +obj* x_227; obj* x_228; obj* x_229; +lean::dec(x_193); lean::dec(x_12); -x_229 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_75, x_203); -x_230 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_229); -if (lean::is_scalar(x_202)) { - x_231 = lean::alloc_cnstr(0, 2, 0); +x_227 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_75, x_201); +x_228 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_227); +if (lean::is_scalar(x_200)) { + x_229 = lean::alloc_cnstr(0, 2, 0); } else { - x_231 = x_202; + x_229 = x_200; } -lean::cnstr_set(x_231, 0, x_230); -lean::cnstr_set(x_231, 1, x_200); -return x_231; +lean::cnstr_set(x_229, 0, x_228); +lean::cnstr_set(x_229, 1, x_198); +return x_229; } } } else { -uint8 x_233; +uint8 x_231; lean::dec(x_18); -x_233 = lean::cnstr_get_scalar(x_188, sizeof(void*)*1); -if (x_233 == 0) +x_231 = lean::cnstr_get_scalar(x_186, sizeof(void*)*1); +if (x_231 == 0) { -obj* x_234; obj* x_237; obj* x_240; obj* x_241; obj* x_242; obj* x_245; obj* x_246; obj* x_247; obj* x_248; obj* x_249; obj* x_250; -x_234 = lean::cnstr_get(x_188, 0); -lean::inc(x_234); -lean::dec(x_188); -x_237 = lean::cnstr_get(x_234, 2); -lean::inc(x_237); -lean::dec(x_234); -x_240 = l_mjoin___rarg___closed__1; -x_241 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_241, 0, x_237); -lean::closure_set(x_241, 1, x_240); -x_242 = lean::cnstr_get(x_75, 2); -lean::inc(x_242); +obj* x_232; obj* x_235; obj* x_238; obj* x_239; obj* x_240; obj* x_243; obj* x_244; obj* x_245; obj* x_246; obj* x_247; obj* x_248; +x_232 = lean::cnstr_get(x_186, 0); +lean::inc(x_232); +lean::dec(x_186); +x_235 = lean::cnstr_get(x_232, 2); +lean::inc(x_235); +lean::dec(x_232); +x_238 = l_mjoin___rarg___closed__1; +x_239 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_239, 0, x_235); +lean::closure_set(x_239, 1, x_238); +x_240 = lean::cnstr_get(x_75, 2); +lean::inc(x_240); lean::dec(x_75); -x_245 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_245, 0, x_242); -lean::closure_set(x_245, 1, x_241); -x_246 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_246, 0, x_245); -x_247 = lean::box(0); -if (lean::is_scalar(x_181)) { - x_248 = lean::alloc_cnstr(0, 3, 0); +x_243 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_243, 0, x_240); +lean::closure_set(x_243, 1, x_239); +x_244 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_244, 0, x_243); +x_245 = lean::box(0); +if (lean::is_scalar(x_179)) { + x_246 = lean::alloc_cnstr(0, 3, 0); } else { - x_248 = x_181; + x_246 = x_179; +} +lean::cnstr_set(x_246, 0, x_245); +lean::cnstr_set(x_246, 1, x_12); +lean::cnstr_set(x_246, 2, x_244); +x_247 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_246); +if (lean::is_scalar(x_185)) { + x_248 = lean::alloc_cnstr(0, 2, 0); +} else { + x_248 = x_185; } lean::cnstr_set(x_248, 0, x_247); -lean::cnstr_set(x_248, 1, x_12); -lean::cnstr_set(x_248, 2, x_246); -x_249 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_248); -if (lean::is_scalar(x_187)) { - x_250 = lean::alloc_cnstr(0, 2, 0); -} else { - x_250 = x_187; -} -lean::cnstr_set(x_250, 0, x_249); -lean::cnstr_set(x_250, 1, x_185); -return x_250; +lean::cnstr_set(x_248, 1, x_183); +return x_248; } else { -obj* x_253; obj* x_255; obj* x_256; obj* x_257; obj* x_258; obj* x_259; obj* x_260; -lean::dec(x_181); +obj* x_251; obj* x_253; obj* x_254; obj* x_255; obj* x_256; obj* x_257; obj* x_258; +lean::dec(x_179); lean::dec(x_12); -x_253 = lean::cnstr_get(x_188, 0); -if (lean::is_exclusive(x_188)) { - x_255 = x_188; +x_251 = lean::cnstr_get(x_186, 0); +if (lean::is_exclusive(x_186)) { + x_253 = x_186; } else { - lean::inc(x_253); - lean::dec(x_188); - x_255 = lean::box(0); + lean::inc(x_251); + lean::dec(x_186); + x_253 = lean::box(0); } -if (lean::is_scalar(x_255)) { - x_256 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_253)) { + x_254 = lean::alloc_cnstr(1, 1, 1); } else { - x_256 = x_255; + x_254 = x_253; } -lean::cnstr_set(x_256, 0, x_253); -lean::cnstr_set_scalar(x_256, sizeof(void*)*1, x_233); -x_257 = x_256; -x_258 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_75, x_257); -x_259 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_258); -if (lean::is_scalar(x_187)) { - x_260 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_254, 0, x_251); +lean::cnstr_set_scalar(x_254, sizeof(void*)*1, x_231); +x_255 = x_254; +x_256 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_75, x_255); +x_257 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_256); +if (lean::is_scalar(x_185)) { + x_258 = lean::alloc_cnstr(0, 2, 0); } else { - x_260 = x_187; + x_258 = x_185; } -lean::cnstr_set(x_260, 0, x_259); -lean::cnstr_set(x_260, 1, x_185); -return x_260; +lean::cnstr_set(x_258, 0, x_257); +lean::cnstr_set(x_258, 1, x_183); +return x_258; } } } else { -uint8 x_262; +uint8 x_260; lean::dec(x_18); -x_262 = lean::cnstr_get_scalar(x_78, sizeof(void*)*1); -if (x_262 == 0) +x_260 = lean::cnstr_get_scalar(x_78, sizeof(void*)*1); +if (x_260 == 0) { -obj* x_263; obj* x_266; obj* x_269; obj* x_270; obj* x_271; obj* x_274; obj* x_275; obj* x_276; obj* x_277; obj* x_278; obj* x_279; -x_263 = lean::cnstr_get(x_78, 0); -lean::inc(x_263); +obj* x_261; obj* x_264; obj* x_267; obj* x_268; obj* x_269; obj* x_272; obj* x_273; obj* x_274; obj* x_275; obj* x_276; obj* x_277; +x_261 = lean::cnstr_get(x_78, 0); +lean::inc(x_261); lean::dec(x_78); -x_266 = lean::cnstr_get(x_263, 2); -lean::inc(x_266); -lean::dec(x_263); -x_269 = l_mjoin___rarg___closed__1; -x_270 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_270, 0, x_266); -lean::closure_set(x_270, 1, x_269); -x_271 = lean::cnstr_get(x_75, 2); -lean::inc(x_271); +x_264 = lean::cnstr_get(x_261, 2); +lean::inc(x_264); +lean::dec(x_261); +x_267 = l_mjoin___rarg___closed__1; +x_268 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_268, 0, x_264); +lean::closure_set(x_268, 1, x_267); +x_269 = lean::cnstr_get(x_75, 2); +lean::inc(x_269); lean::dec(x_75); -x_274 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_274, 0, x_271); -lean::closure_set(x_274, 1, x_270); -x_275 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_275, 0, x_274); -x_276 = lean::box(0); +x_272 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_272, 0, x_269); +lean::closure_set(x_272, 1, x_268); +x_273 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_273, 0, x_272); +x_274 = lean::box(0); if (lean::is_scalar(x_16)) { - x_277 = lean::alloc_cnstr(0, 3, 0); + x_275 = lean::alloc_cnstr(0, 3, 0); } else { - x_277 = x_16; + x_275 = x_16; +} +lean::cnstr_set(x_275, 0, x_274); +lean::cnstr_set(x_275, 1, x_12); +lean::cnstr_set(x_275, 2, x_273); +x_276 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_275); +if (lean::is_scalar(x_11)) { + x_277 = lean::alloc_cnstr(0, 2, 0); +} else { + x_277 = x_11; } lean::cnstr_set(x_277, 0, x_276); -lean::cnstr_set(x_277, 1, x_12); -lean::cnstr_set(x_277, 2, x_275); -x_278 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_277); -if (lean::is_scalar(x_11)) { - x_279 = lean::alloc_cnstr(0, 2, 0); -} else { - x_279 = x_11; -} -lean::cnstr_set(x_279, 0, x_278); -lean::cnstr_set(x_279, 1, x_79); -return x_279; +lean::cnstr_set(x_277, 1, x_79); +return x_277; } else { -obj* x_282; obj* x_284; obj* x_285; obj* x_286; obj* x_287; obj* x_288; obj* x_289; +obj* x_280; obj* x_282; obj* x_283; obj* x_284; obj* x_285; obj* x_286; obj* x_287; lean::dec(x_12); lean::dec(x_16); -x_282 = lean::cnstr_get(x_78, 0); +x_280 = lean::cnstr_get(x_78, 0); if (lean::is_exclusive(x_78)) { - x_284 = x_78; + x_282 = x_78; } else { - lean::inc(x_282); + lean::inc(x_280); lean::dec(x_78); - x_284 = lean::box(0); + x_282 = lean::box(0); } -if (lean::is_scalar(x_284)) { - x_285 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_282)) { + x_283 = lean::alloc_cnstr(1, 1, 1); } else { - x_285 = x_284; + x_283 = x_282; } -lean::cnstr_set(x_285, 0, x_282); -lean::cnstr_set_scalar(x_285, sizeof(void*)*1, x_262); -x_286 = x_285; -x_287 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_75, x_286); -x_288 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_287); +lean::cnstr_set(x_283, 0, x_280); +lean::cnstr_set_scalar(x_283, sizeof(void*)*1, x_260); +x_284 = x_283; +x_285 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_75, x_284); +x_286 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_285); if (lean::is_scalar(x_11)) { - x_289 = lean::alloc_cnstr(0, 2, 0); + x_287 = lean::alloc_cnstr(0, 2, 0); } else { - x_289 = x_11; + x_287 = x_11; } -lean::cnstr_set(x_289, 0, x_288); -lean::cnstr_set(x_289, 1, x_79); -return x_289; +lean::cnstr_set(x_287, 0, x_286); +lean::cnstr_set(x_287, 1, x_79); +return x_287; } } } @@ -2502,52 +2515,51 @@ return x_289; } else { -obj* x_290; obj* x_292; obj* x_293; uint8 x_295; obj* x_296; obj* x_297; obj* x_298; obj* x_299; -x_290 = lean::cnstr_get(x_6, 1); +obj* x_288; obj* x_290; obj* x_291; uint8 x_293; obj* x_294; obj* x_295; obj* x_296; obj* x_297; +x_288 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); - x_292 = x_6; + x_290 = x_6; } else { - lean::inc(x_290); + lean::inc(x_288); lean::dec(x_6); - x_292 = lean::box(0); + x_290 = lean::box(0); } -x_293 = lean::cnstr_get(x_7, 0); -x_295 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); +x_291 = lean::cnstr_get(x_7, 0); +x_293 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); if (lean::is_exclusive(x_7)) { - x_296 = x_7; + x_294 = x_7; } else { - lean::inc(x_293); + lean::inc(x_291); lean::dec(x_7); - x_296 = lean::box(0); + x_294 = lean::box(0); } -if (lean::is_scalar(x_296)) { - x_297 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_294)) { + x_295 = lean::alloc_cnstr(1, 1, 1); } else { - x_297 = x_296; + x_295 = x_294; } -lean::cnstr_set(x_297, 0, x_293); -lean::cnstr_set_scalar(x_297, sizeof(void*)*1, x_295); -x_298 = x_297; -if (lean::is_scalar(x_292)) { - x_299 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_295, 0, x_291); +lean::cnstr_set_scalar(x_295, sizeof(void*)*1, x_293); +x_296 = x_295; +if (lean::is_scalar(x_290)) { + x_297 = lean::alloc_cnstr(0, 2, 0); } else { - x_299 = x_292; + x_297 = x_290; } -lean::cnstr_set(x_299, 0, x_298); -lean::cnstr_set(x_299, 1, x_290); -return x_299; +lean::cnstr_set(x_297, 0, x_296); +lean::cnstr_set(x_297, 1, x_288); +return x_297; } } else { -obj* x_300; obj* x_301; obj* x_302; obj* x_303; -x_300 = lean::box(0); -x_301 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; -x_302 = l_mjoin___rarg___closed__1; -x_303 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_301, x_302, x_300, x_300, x_1, x_2, x_3); -lean::dec(x_2); -return x_303; +obj* x_298; obj* x_299; obj* x_300; obj* x_301; +x_298 = lean::box(0); +x_299 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; +x_300 = l_mjoin___rarg___closed__1; +x_301 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_299, x_300, x_298, x_298, x_1, x_2, x_3); +return x_301; } } } @@ -3675,48 +3687,24 @@ return x_7; } } } -obj* _init_l_Lean_Parser_raw_view___rarg___lambda__2___closed__1() { -_start: -{ -obj* x_0; obj* x_1; obj* x_2; -x_0 = lean::box(0); -x_1 = lean::box(3); -x_2 = l_Option_getOrElse___main___rarg(x_0, x_1); -return x_2; -} -} obj* l_Lean_Parser_raw_view___rarg___lambda__2(obj* x_0) { _start: { if (lean::obj_tag(x_0) == 0) { obj* x_1; -x_1 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_1 = lean::box(3); return x_1; } else { -obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; +obj* x_2; obj* x_5; x_2 = lean::cnstr_get(x_0, 0); -if (lean::is_exclusive(x_0)) { - x_4 = x_0; -} else { - lean::inc(x_2); - lean::dec(x_0); - x_4 = lean::box(0); -} +lean::inc(x_2); +lean::dec(x_0); x_5 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_5, 0, x_2); -if (lean::is_scalar(x_4)) { - x_6 = lean::alloc_cnstr(1, 1, 0); -} else { - x_6 = x_4; -} -lean::cnstr_set(x_6, 0, x_5); -x_7 = lean::box(3); -x_8 = l_Option_getOrElse___main___rarg(x_6, x_7); -lean::dec(x_6); -return x_8; +return x_5; } } } @@ -4193,57 +4181,48 @@ goto lbl_29; obj* _init_l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_5; obj* x_7; obj* x_8; obj* x_9; obj* x_10; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -lean::inc(x_3); -x_5 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_5, 0, x_3); -lean::cnstr_set(x_5, 1, x_0); -lean::inc(x_3); -x_7 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_7, 0, x_3); -lean::cnstr_set(x_7, 1, x_5); -x_8 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_8, 0, x_3); -lean::cnstr_set(x_8, 1, x_7); -x_9 = l_Lean_Parser_detailIdentPartEscaped; -x_10 = l_Lean_Parser_Syntax_mkNode(x_9, x_8); -return x_10; +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_3, 0, x_1); +lean::cnstr_set(x_3, 1, x_2); +x_4 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_4, 0, x_1); +lean::cnstr_set(x_4, 1, x_3); +x_5 = l_Lean_Parser_detailIdentPartEscaped; +x_6 = l_Lean_Parser_Syntax_mkNode(x_5, x_4); +return x_6; } } obj* _init_l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; +obj* x_0; obj* x_1; obj* x_2; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -x_4 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_4, 0, x_3); -lean::cnstr_set(x_4, 1, x_0); -return x_4; +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +return x_2; } } obj* _init_l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__3() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_5; obj* x_6; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -lean::inc(x_3); -x_5 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_5, 0, x_3); -lean::cnstr_set(x_5, 1, x_0); -x_6 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_6, 0, x_3); -lean::cnstr_set(x_6, 1, x_5); -return x_6; +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_3, 0, x_1); +lean::cnstr_set(x_3, 1, x_2); +return x_3; } } obj* l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2(obj* x_0) { @@ -4270,256 +4249,162 @@ return x_9; } else { -obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; +obj* x_10; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; x_10 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_12 = x_5; -} else { - lean::inc(x_10); - lean::dec(x_5); - x_12 = lean::box(0); -} +lean::inc(x_10); +lean::dec(x_5); x_13 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_13, 0, x_10); -if (lean::is_scalar(x_12)) { - x_14 = lean::alloc_cnstr(1, 1, 0); -} else { - x_14 = x_12; -} +x_14 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_14, 0, x_13); +lean::cnstr_set(x_14, 1, x_8); x_15 = lean::box(3); -x_16 = l_Option_getOrElse___main___rarg(x_14, x_15); -lean::dec(x_14); -x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_16); -lean::cnstr_set(x_18, 1, x_8); -x_19 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_19); -lean::cnstr_set(x_20, 1, x_18); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_19); -lean::cnstr_set(x_21, 1, x_20); -x_22 = l_Lean_Parser_detailIdentPartEscaped; -x_23 = l_Lean_Parser_Syntax_mkNode(x_22, x_21); -return x_23; +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_15); +lean::cnstr_set(x_16, 1, x_14); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_15); +lean::cnstr_set(x_17, 1, x_16); +x_18 = l_Lean_Parser_detailIdentPartEscaped; +x_19 = l_Lean_Parser_Syntax_mkNode(x_18, x_17); +return x_19; } } else { -obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; -x_24 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_26 = x_3; -} else { - lean::inc(x_24); - lean::dec(x_3); - x_26 = lean::box(0); -} -x_27 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_27, 0, x_24); -if (lean::is_scalar(x_26)) { - x_28 = lean::alloc_cnstr(1, 1, 0); -} else { - x_28 = x_26; -} -lean::cnstr_set(x_28, 0, x_27); -x_29 = lean::box(3); -x_30 = l_Option_getOrElse___main___rarg(x_28, x_29); -lean::dec(x_28); +obj* x_20; obj* x_23; +x_20 = lean::cnstr_get(x_3, 0); +lean::inc(x_20); +lean::dec(x_3); +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); if (lean::obj_tag(x_5) == 0) { -obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; -x_32 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_33 = lean::alloc_cnstr(1, 2, 0); +obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +x_24 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_23); +lean::cnstr_set(x_25, 1, x_24); +x_26 = lean::box(3); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_25); +x_28 = l_Lean_Parser_detailIdentPartEscaped; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; +} +else +{ +obj* x_30; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; +x_30 = lean::cnstr_get(x_5, 0); +lean::inc(x_30); +lean::dec(x_5); +x_33 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_33, 0, x_30); -lean::cnstr_set(x_33, 1, x_32); -x_34 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_33); +lean::cnstr_set(x_34, 1, x_8); x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_34); -lean::cnstr_set(x_35, 1, x_33); -x_36 = l_Lean_Parser_detailIdentPartEscaped; -x_37 = l_Lean_Parser_Syntax_mkNode(x_36, x_35); -return x_37; -} -else -{ -obj* x_38; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; -x_38 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_40 = x_5; -} else { - lean::inc(x_38); - lean::dec(x_5); - x_40 = lean::box(0); -} -x_41 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_41, 0, x_38); -if (lean::is_scalar(x_40)) { - x_42 = lean::alloc_cnstr(1, 1, 0); -} else { - x_42 = x_40; -} -lean::cnstr_set(x_42, 0, x_41); -x_43 = l_Option_getOrElse___main___rarg(x_42, x_29); -lean::dec(x_42); -x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_43); -lean::cnstr_set(x_45, 1, x_8); -x_46 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_46, 0, x_30); -lean::cnstr_set(x_46, 1, x_45); -x_47 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; -x_48 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_48, 0, x_47); -lean::cnstr_set(x_48, 1, x_46); -x_49 = l_Lean_Parser_detailIdentPartEscaped; -x_50 = l_Lean_Parser_Syntax_mkNode(x_49, x_48); -return x_50; +lean::cnstr_set(x_35, 0, x_23); +lean::cnstr_set(x_35, 1, x_34); +x_36 = lean::box(3); +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_36); +lean::cnstr_set(x_37, 1, x_35); +x_38 = l_Lean_Parser_detailIdentPartEscaped; +x_39 = l_Lean_Parser_Syntax_mkNode(x_38, x_37); +return x_39; } } } else { -obj* x_51; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; -x_51 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_53 = x_1; -} else { - lean::inc(x_51); - lean::dec(x_1); - x_53 = lean::box(0); -} -x_54 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_54, 0, x_51); -if (lean::is_scalar(x_53)) { - x_55 = lean::alloc_cnstr(1, 1, 0); -} else { - x_55 = x_53; -} -lean::cnstr_set(x_55, 0, x_54); -x_56 = lean::box(3); -x_57 = l_Option_getOrElse___main___rarg(x_55, x_56); -lean::dec(x_55); +obj* x_40; obj* x_43; +x_40 = lean::cnstr_get(x_1, 0); +lean::inc(x_40); +lean::dec(x_1); +x_43 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_43, 0, x_40); if (lean::obj_tag(x_3) == 0) { if (lean::obj_tag(x_5) == 0) { -obj* x_59; obj* x_60; obj* x_61; obj* x_62; -x_59 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__3; -x_60 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_60, 0, x_57); -lean::cnstr_set(x_60, 1, x_59); -x_61 = l_Lean_Parser_detailIdentPartEscaped; -x_62 = l_Lean_Parser_Syntax_mkNode(x_61, x_60); -return x_62; +obj* x_44; obj* x_45; obj* x_46; obj* x_47; +x_44 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__3; +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_43); +lean::cnstr_set(x_45, 1, x_44); +x_46 = l_Lean_Parser_detailIdentPartEscaped; +x_47 = l_Lean_Parser_Syntax_mkNode(x_46, x_45); +return x_47; } else { -obj* x_63; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; -x_63 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_65 = x_5; -} else { - lean::inc(x_63); - lean::dec(x_5); - x_65 = lean::box(0); +obj* x_48; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_48 = lean::cnstr_get(x_5, 0); +lean::inc(x_48); +lean::dec(x_5); +x_51 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_51, 0, x_48); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_8); +x_53 = lean::box(3); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_52); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_43); +lean::cnstr_set(x_55, 1, x_54); +x_56 = l_Lean_Parser_detailIdentPartEscaped; +x_57 = l_Lean_Parser_Syntax_mkNode(x_56, x_55); +return x_57; } -x_66 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_66, 0, x_63); -if (lean::is_scalar(x_65)) { - x_67 = lean::alloc_cnstr(1, 1, 0); -} else { - x_67 = x_65; } -lean::cnstr_set(x_67, 0, x_66); -x_68 = l_Option_getOrElse___main___rarg(x_67, x_56); -lean::dec(x_67); -x_70 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_70, 0, x_68); -lean::cnstr_set(x_70, 1, x_8); -x_71 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +else +{ +obj* x_58; obj* x_61; +x_58 = lean::cnstr_get(x_3, 0); +lean::inc(x_58); +lean::dec(x_3); +x_61 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_61, 0, x_58); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; +x_62 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; +x_63 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_63, 0, x_61); +lean::cnstr_set(x_63, 1, x_62); +x_64 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_64, 0, x_43); +lean::cnstr_set(x_64, 1, x_63); +x_65 = l_Lean_Parser_detailIdentPartEscaped; +x_66 = l_Lean_Parser_Syntax_mkNode(x_65, x_64); +return x_66; +} +else +{ +obj* x_67; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; +x_67 = lean::cnstr_get(x_5, 0); +lean::inc(x_67); +lean::dec(x_5); +x_70 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_70, 0, x_67); +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_70); +lean::cnstr_set(x_71, 1, x_8); x_72 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_72, 0, x_71); -lean::cnstr_set(x_72, 1, x_70); +lean::cnstr_set(x_72, 0, x_61); +lean::cnstr_set(x_72, 1, x_71); x_73 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_73, 0, x_57); +lean::cnstr_set(x_73, 0, x_43); lean::cnstr_set(x_73, 1, x_72); x_74 = l_Lean_Parser_detailIdentPartEscaped; x_75 = l_Lean_Parser_Syntax_mkNode(x_74, x_73); return x_75; } } -else -{ -obj* x_76; obj* x_78; obj* x_79; obj* x_80; obj* x_81; -x_76 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_78 = x_3; -} else { - lean::inc(x_76); - lean::dec(x_3); - x_78 = lean::box(0); -} -x_79 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_79, 0, x_76); -if (lean::is_scalar(x_78)) { - x_80 = lean::alloc_cnstr(1, 1, 0); -} else { - x_80 = x_78; -} -lean::cnstr_set(x_80, 0, x_79); -x_81 = l_Option_getOrElse___main___rarg(x_80, x_56); -lean::dec(x_80); -if (lean::obj_tag(x_5) == 0) -{ -obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; -x_83 = l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; -x_84 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_84, 0, x_81); -lean::cnstr_set(x_84, 1, x_83); -x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_57); -lean::cnstr_set(x_85, 1, x_84); -x_86 = l_Lean_Parser_detailIdentPartEscaped; -x_87 = l_Lean_Parser_Syntax_mkNode(x_86, x_85); -return x_87; -} -else -{ -obj* x_88; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; -x_88 = lean::cnstr_get(x_5, 0); -if (lean::is_exclusive(x_5)) { - x_90 = x_5; -} else { - lean::inc(x_88); - lean::dec(x_5); - x_90 = lean::box(0); -} -x_91 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_91, 0, x_88); -if (lean::is_scalar(x_90)) { - x_92 = lean::alloc_cnstr(1, 1, 0); -} else { - x_92 = x_90; -} -lean::cnstr_set(x_92, 0, x_91); -x_93 = l_Option_getOrElse___main___rarg(x_92, x_56); -lean::dec(x_92); -x_95 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_95, 0, x_93); -lean::cnstr_set(x_95, 1, x_8); -x_96 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_96, 0, x_81); -lean::cnstr_set(x_96, 1, x_95); -x_97 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_97, 0, x_57); -lean::cnstr_set(x_97, 1, x_96); -x_98 = l_Lean_Parser_detailIdentPartEscaped; -x_99 = l_Lean_Parser_Syntax_mkNode(x_98, x_97); -return x_99; -} -} } } } @@ -4825,24 +4710,22 @@ return x_2; obj* _init_l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__2() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(1ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_detailIdentPart; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_detailIdentPart; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3() { @@ -4897,37 +4780,23 @@ return x_19; } else { -obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_20 = lean::cnstr_get(x_16, 0); -if (lean::is_exclusive(x_16)) { - x_22 = x_16; -} else { - lean::inc(x_20); - lean::dec(x_16); - x_22 = lean::box(0); -} +lean::inc(x_20); +lean::dec(x_16); x_23 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_23, 0, x_20); -if (lean::is_scalar(x_22)) { - x_24 = lean::alloc_cnstr(1, 1, 0); -} else { - x_24 = x_22; -} +x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); -x_25 = lean::box(3); -x_26 = l_Option_getOrElse___main___rarg(x_24, x_25); -lean::dec(x_24); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_26); -lean::cnstr_set(x_28, 1, x_1); -x_29 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; -x_30 = l_Lean_Parser_Syntax_mkNode(x_29, x_28); -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_30); -lean::cnstr_set(x_31, 1, x_1); -x_32 = l_Lean_Parser_detailIdentPart; -x_33 = l_Lean_Parser_Syntax_mkNode(x_32, x_31); -return x_33; +lean::cnstr_set(x_24, 1, x_1); +x_25 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; +x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_1); +x_28 = l_Lean_Parser_detailIdentPart; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } } @@ -5154,213 +5023,211 @@ uint8 x_3; x_3 = l_String_OldIterator_hasNext___main(x_1); if (x_3 == 0) { -obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; +obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_14; x_4 = lean::box(0); x_5 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_6 = l_mjoin___rarg___closed__1; x_7 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_5, x_6, x_4, x_4, x_0, x_1, x_2); -lean::dec(x_1); -x_9 = lean::cnstr_get(x_7, 0); -x_11 = lean::cnstr_get(x_7, 1); +x_8 = lean::cnstr_get(x_7, 0); +x_10 = lean::cnstr_get(x_7, 1); if (lean::is_exclusive(x_7)) { lean::cnstr_set(x_7, 0, lean::box(0)); lean::cnstr_set(x_7, 1, lean::box(0)); - x_13 = x_7; + x_12 = x_7; } else { - lean::inc(x_9); - lean::inc(x_11); + lean::inc(x_8); + lean::inc(x_10); lean::dec(x_7); - x_13 = lean::box(0); + x_12 = lean::box(0); } -x_14 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_15 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_9); -if (lean::obj_tag(x_15) == 0) +x_13 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_14 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_13, x_8); +if (lean::obj_tag(x_14) == 0) { -obj* x_17; obj* x_19; obj* x_21; obj* x_24; uint32 x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_30; obj* x_32; obj* x_33; obj* x_34; -lean::dec(x_13); -x_17 = lean::cnstr_get(x_15, 0); -lean::inc(x_17); -x_19 = lean::cnstr_get(x_15, 1); -lean::inc(x_19); -x_21 = lean::cnstr_get(x_15, 2); -lean::inc(x_21); -lean::dec(x_15); -x_24 = l_String_splitAux___main___closed__1; -x_25 = lean::unbox_uint32(x_17); -x_26 = lean::string_push(x_24, x_25); -x_27 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__2(x_26, x_0, x_19, x_11); -x_28 = lean::cnstr_get(x_27, 0); -x_30 = lean::cnstr_get(x_27, 1); -if (lean::is_exclusive(x_27)) { - x_32 = x_27; +obj* x_16; obj* x_18; obj* x_20; obj* x_23; uint32 x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +lean::dec(x_12); +x_16 = lean::cnstr_get(x_14, 0); +lean::inc(x_16); +x_18 = lean::cnstr_get(x_14, 1); +lean::inc(x_18); +x_20 = lean::cnstr_get(x_14, 2); +lean::inc(x_20); +lean::dec(x_14); +x_23 = l_String_splitAux___main___closed__1; +x_24 = lean::unbox_uint32(x_16); +x_25 = lean::string_push(x_23, x_24); +x_26 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__2(x_25, x_0, x_18, x_10); +x_27 = lean::cnstr_get(x_26, 0); +x_29 = lean::cnstr_get(x_26, 1); +if (lean::is_exclusive(x_26)) { + x_31 = x_26; } else { - lean::inc(x_28); - lean::inc(x_30); - lean::dec(x_27); - x_32 = lean::box(0); + lean::inc(x_27); + lean::inc(x_29); + lean::dec(x_26); + x_31 = lean::box(0); } -x_33 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_28); -if (lean::is_scalar(x_32)) { - x_34 = lean::alloc_cnstr(0, 2, 0); +x_32 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_27); +if (lean::is_scalar(x_31)) { + x_33 = lean::alloc_cnstr(0, 2, 0); } else { - x_34 = x_32; + x_33 = x_31; } -lean::cnstr_set(x_34, 0, x_33); -lean::cnstr_set(x_34, 1, x_30); -return x_34; +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_29); +return x_33; } else { -obj* x_35; uint8 x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_35 = lean::cnstr_get(x_15, 0); -x_37 = lean::cnstr_get_scalar(x_15, sizeof(void*)*1); -if (lean::is_exclusive(x_15)) { - x_38 = x_15; +obj* x_34; uint8 x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_34 = lean::cnstr_get(x_14, 0); +x_36 = lean::cnstr_get_scalar(x_14, sizeof(void*)*1); +if (lean::is_exclusive(x_14)) { + x_37 = x_14; } else { - lean::inc(x_35); - lean::dec(x_15); - x_38 = lean::box(0); + lean::inc(x_34); + lean::dec(x_14); + x_37 = lean::box(0); } -if (lean::is_scalar(x_38)) { - x_39 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(1, 1, 1); } else { - x_39 = x_38; + x_38 = x_37; } -lean::cnstr_set(x_39, 0, x_35); -lean::cnstr_set_scalar(x_39, sizeof(void*)*1, x_37); -x_40 = x_39; -if (lean::is_scalar(x_13)) { - x_41 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_38, 0, x_34); +lean::cnstr_set_scalar(x_38, sizeof(void*)*1, x_36); +x_39 = x_38; +if (lean::is_scalar(x_12)) { + x_40 = lean::alloc_cnstr(0, 2, 0); } else { - x_41 = x_13; + x_40 = x_12; } -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_11); -return x_41; +lean::cnstr_set(x_40, 0, x_39); +lean::cnstr_set(x_40, 1, x_10); +return x_40; } } else { -uint32 x_42; uint8 x_43; -x_42 = l_String_OldIterator_curr___main(x_1); -x_43 = l_Lean_isIdEndEscape(x_42); -if (x_43 == 0) +uint32 x_41; uint8 x_42; +x_41 = l_String_OldIterator_curr___main(x_1); +x_42 = l_Lean_isIdEndEscape(x_41); +if (x_42 == 0) { -obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; -x_44 = l_String_OldIterator_next___main(x_1); -x_45 = l_String_splitAux___main___closed__1; -x_46 = lean::string_push(x_45, x_42); -x_47 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__4(x_46, x_0, x_44, x_2); -x_48 = lean::cnstr_get(x_47, 0); -x_50 = lean::cnstr_get(x_47, 1); -if (lean::is_exclusive(x_47)) { - x_52 = x_47; +obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_49; obj* x_51; obj* x_52; obj* x_53; obj* x_54; +x_43 = l_String_OldIterator_next___main(x_1); +x_44 = l_String_splitAux___main___closed__1; +x_45 = lean::string_push(x_44, x_41); +x_46 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__4(x_45, x_0, x_43, x_2); +x_47 = lean::cnstr_get(x_46, 0); +x_49 = lean::cnstr_get(x_46, 1); +if (lean::is_exclusive(x_46)) { + x_51 = x_46; } else { - lean::inc(x_48); - lean::inc(x_50); - lean::dec(x_47); - x_52 = lean::box(0); + lean::inc(x_47); + lean::inc(x_49); + lean::dec(x_46); + x_51 = lean::box(0); } -x_53 = lean::box(0); -x_54 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_53, x_48); -if (lean::is_scalar(x_52)) { - x_55 = lean::alloc_cnstr(0, 2, 0); +x_52 = lean::box(0); +x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_52, x_47); +if (lean::is_scalar(x_51)) { + x_54 = lean::alloc_cnstr(0, 2, 0); } else { - x_55 = x_52; + x_54 = x_51; } -lean::cnstr_set(x_55, 0, x_54); -lean::cnstr_set(x_55, 1, x_50); -return x_55; +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_49); +return x_54; } else { -obj* x_56; obj* x_57; obj* x_58; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_65; obj* x_67; obj* x_69; obj* x_70; obj* x_71; -x_56 = l_Char_quoteCore(x_42); -x_57 = l_Char_HasRepr___closed__1; -x_58 = lean::string_append(x_57, x_56); -lean::dec(x_56); -x_60 = lean::string_append(x_58, x_57); -x_61 = lean::box(0); -x_62 = l_mjoin___rarg___closed__1; -x_63 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_60, x_62, x_61, x_61, x_0, x_1, x_2); -lean::dec(x_1); -x_65 = lean::cnstr_get(x_63, 0); -x_67 = lean::cnstr_get(x_63, 1); -if (lean::is_exclusive(x_63)) { - lean::cnstr_set(x_63, 0, lean::box(0)); - lean::cnstr_set(x_63, 1, lean::box(0)); - x_69 = x_63; +obj* x_55; obj* x_56; obj* x_57; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_65; obj* x_67; obj* x_68; obj* x_69; +x_55 = l_Char_quoteCore(x_41); +x_56 = l_Char_HasRepr___closed__1; +x_57 = lean::string_append(x_56, x_55); +lean::dec(x_55); +x_59 = lean::string_append(x_57, x_56); +x_60 = lean::box(0); +x_61 = l_mjoin___rarg___closed__1; +x_62 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_59, x_61, x_60, x_60, x_0, x_1, x_2); +x_63 = lean::cnstr_get(x_62, 0); +x_65 = lean::cnstr_get(x_62, 1); +if (lean::is_exclusive(x_62)) { + lean::cnstr_set(x_62, 0, lean::box(0)); + lean::cnstr_set(x_62, 1, lean::box(0)); + x_67 = x_62; } else { + lean::inc(x_63); lean::inc(x_65); - lean::inc(x_67); - lean::dec(x_63); - x_69 = lean::box(0); + lean::dec(x_62); + x_67 = lean::box(0); } -x_70 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_71 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_70, x_65); -if (lean::obj_tag(x_71) == 0) +x_68 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_69 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_68, x_63); +if (lean::obj_tag(x_69) == 0) { -obj* x_73; obj* x_75; obj* x_77; obj* x_80; uint32 x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_86; obj* x_88; obj* x_89; obj* x_90; -lean::dec(x_69); -x_73 = lean::cnstr_get(x_71, 0); +obj* x_71; obj* x_73; obj* x_75; obj* x_78; uint32 x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_84; obj* x_86; obj* x_87; obj* x_88; +lean::dec(x_67); +x_71 = lean::cnstr_get(x_69, 0); +lean::inc(x_71); +x_73 = lean::cnstr_get(x_69, 1); lean::inc(x_73); -x_75 = lean::cnstr_get(x_71, 1); +x_75 = lean::cnstr_get(x_69, 2); lean::inc(x_75); -x_77 = lean::cnstr_get(x_71, 2); -lean::inc(x_77); -lean::dec(x_71); -x_80 = l_String_splitAux___main___closed__1; -x_81 = lean::unbox_uint32(x_73); -x_82 = lean::string_push(x_80, x_81); -x_83 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__6(x_82, x_0, x_75, x_67); -x_84 = lean::cnstr_get(x_83, 0); -x_86 = lean::cnstr_get(x_83, 1); -if (lean::is_exclusive(x_83)) { - x_88 = x_83; +lean::dec(x_69); +x_78 = l_String_splitAux___main___closed__1; +x_79 = lean::unbox_uint32(x_71); +x_80 = lean::string_push(x_78, x_79); +x_81 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__6(x_80, x_0, x_73, x_65); +x_82 = lean::cnstr_get(x_81, 0); +x_84 = lean::cnstr_get(x_81, 1); +if (lean::is_exclusive(x_81)) { + x_86 = x_81; } else { + lean::inc(x_82); lean::inc(x_84); - lean::inc(x_86); - lean::dec(x_83); - x_88 = lean::box(0); + lean::dec(x_81); + x_86 = lean::box(0); } -x_89 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_77, x_84); -if (lean::is_scalar(x_88)) { - x_90 = lean::alloc_cnstr(0, 2, 0); +x_87 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_75, x_82); +if (lean::is_scalar(x_86)) { + x_88 = lean::alloc_cnstr(0, 2, 0); } else { - x_90 = x_88; + x_88 = x_86; } -lean::cnstr_set(x_90, 0, x_89); -lean::cnstr_set(x_90, 1, x_86); -return x_90; +lean::cnstr_set(x_88, 0, x_87); +lean::cnstr_set(x_88, 1, x_84); +return x_88; } else { -obj* x_91; uint8 x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; -x_91 = lean::cnstr_get(x_71, 0); -x_93 = lean::cnstr_get_scalar(x_71, sizeof(void*)*1); -if (lean::is_exclusive(x_71)) { - x_94 = x_71; +obj* x_89; uint8 x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; +x_89 = lean::cnstr_get(x_69, 0); +x_91 = lean::cnstr_get_scalar(x_69, sizeof(void*)*1); +if (lean::is_exclusive(x_69)) { + x_92 = x_69; } else { - lean::inc(x_91); - lean::dec(x_71); - x_94 = lean::box(0); + lean::inc(x_89); + lean::dec(x_69); + x_92 = lean::box(0); } -if (lean::is_scalar(x_94)) { - x_95 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_92)) { + x_93 = lean::alloc_cnstr(1, 1, 1); } else { - x_95 = x_94; + x_93 = x_92; } -lean::cnstr_set(x_95, 0, x_91); -lean::cnstr_set_scalar(x_95, sizeof(void*)*1, x_93); -x_96 = x_95; -if (lean::is_scalar(x_69)) { - x_97 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_93, 0, x_89); +lean::cnstr_set_scalar(x_93, sizeof(void*)*1, x_91); +x_94 = x_93; +if (lean::is_scalar(x_67)) { + x_95 = lean::alloc_cnstr(0, 2, 0); } else { - x_97 = x_69; + x_95 = x_67; } -lean::cnstr_set(x_97, 0, x_96); -lean::cnstr_set(x_97, 1, x_67); -return x_97; +lean::cnstr_set(x_95, 0, x_94); +lean::cnstr_set(x_95, 1, x_65); +return x_95; } } } @@ -5568,213 +5435,211 @@ uint8 x_3; x_3 = l_String_OldIterator_hasNext___main(x_1); if (x_3 == 0) { -obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; +obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_14; x_4 = lean::box(0); x_5 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_6 = l_mjoin___rarg___closed__1; x_7 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_5, x_6, x_4, x_4, x_0, x_1, x_2); -lean::dec(x_1); -x_9 = lean::cnstr_get(x_7, 0); -x_11 = lean::cnstr_get(x_7, 1); +x_8 = lean::cnstr_get(x_7, 0); +x_10 = lean::cnstr_get(x_7, 1); if (lean::is_exclusive(x_7)) { lean::cnstr_set(x_7, 0, lean::box(0)); lean::cnstr_set(x_7, 1, lean::box(0)); - x_13 = x_7; + x_12 = x_7; } else { - lean::inc(x_9); - lean::inc(x_11); + lean::inc(x_8); + lean::inc(x_10); lean::dec(x_7); - x_13 = lean::box(0); + x_12 = lean::box(0); } -x_14 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_15 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_9); -if (lean::obj_tag(x_15) == 0) +x_13 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_14 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_13, x_8); +if (lean::obj_tag(x_14) == 0) { -obj* x_17; obj* x_19; obj* x_21; obj* x_24; uint32 x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_30; obj* x_32; obj* x_33; obj* x_34; -lean::dec(x_13); -x_17 = lean::cnstr_get(x_15, 0); -lean::inc(x_17); -x_19 = lean::cnstr_get(x_15, 1); -lean::inc(x_19); -x_21 = lean::cnstr_get(x_15, 2); -lean::inc(x_21); -lean::dec(x_15); -x_24 = l_String_splitAux___main___closed__1; -x_25 = lean::unbox_uint32(x_17); -x_26 = lean::string_push(x_24, x_25); -x_27 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__9(x_26, x_0, x_19, x_11); -x_28 = lean::cnstr_get(x_27, 0); -x_30 = lean::cnstr_get(x_27, 1); -if (lean::is_exclusive(x_27)) { - x_32 = x_27; +obj* x_16; obj* x_18; obj* x_20; obj* x_23; uint32 x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +lean::dec(x_12); +x_16 = lean::cnstr_get(x_14, 0); +lean::inc(x_16); +x_18 = lean::cnstr_get(x_14, 1); +lean::inc(x_18); +x_20 = lean::cnstr_get(x_14, 2); +lean::inc(x_20); +lean::dec(x_14); +x_23 = l_String_splitAux___main___closed__1; +x_24 = lean::unbox_uint32(x_16); +x_25 = lean::string_push(x_23, x_24); +x_26 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__9(x_25, x_0, x_18, x_10); +x_27 = lean::cnstr_get(x_26, 0); +x_29 = lean::cnstr_get(x_26, 1); +if (lean::is_exclusive(x_26)) { + x_31 = x_26; } else { - lean::inc(x_28); - lean::inc(x_30); - lean::dec(x_27); - x_32 = lean::box(0); + lean::inc(x_27); + lean::inc(x_29); + lean::dec(x_26); + x_31 = lean::box(0); } -x_33 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_28); -if (lean::is_scalar(x_32)) { - x_34 = lean::alloc_cnstr(0, 2, 0); +x_32 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_27); +if (lean::is_scalar(x_31)) { + x_33 = lean::alloc_cnstr(0, 2, 0); } else { - x_34 = x_32; + x_33 = x_31; } -lean::cnstr_set(x_34, 0, x_33); -lean::cnstr_set(x_34, 1, x_30); -return x_34; +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_29); +return x_33; } else { -obj* x_35; uint8 x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_35 = lean::cnstr_get(x_15, 0); -x_37 = lean::cnstr_get_scalar(x_15, sizeof(void*)*1); -if (lean::is_exclusive(x_15)) { - x_38 = x_15; +obj* x_34; uint8 x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_34 = lean::cnstr_get(x_14, 0); +x_36 = lean::cnstr_get_scalar(x_14, sizeof(void*)*1); +if (lean::is_exclusive(x_14)) { + x_37 = x_14; } else { - lean::inc(x_35); - lean::dec(x_15); - x_38 = lean::box(0); + lean::inc(x_34); + lean::dec(x_14); + x_37 = lean::box(0); } -if (lean::is_scalar(x_38)) { - x_39 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(1, 1, 1); } else { - x_39 = x_38; + x_38 = x_37; } -lean::cnstr_set(x_39, 0, x_35); -lean::cnstr_set_scalar(x_39, sizeof(void*)*1, x_37); -x_40 = x_39; -if (lean::is_scalar(x_13)) { - x_41 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_38, 0, x_34); +lean::cnstr_set_scalar(x_38, sizeof(void*)*1, x_36); +x_39 = x_38; +if (lean::is_scalar(x_12)) { + x_40 = lean::alloc_cnstr(0, 2, 0); } else { - x_41 = x_13; + x_40 = x_12; } -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_11); -return x_41; +lean::cnstr_set(x_40, 0, x_39); +lean::cnstr_set(x_40, 1, x_10); +return x_40; } } else { -uint32 x_42; uint8 x_43; -x_42 = l_String_OldIterator_curr___main(x_1); -x_43 = l_Lean_isIdEndEscape(x_42); -if (x_43 == 0) +uint32 x_41; uint8 x_42; +x_41 = l_String_OldIterator_curr___main(x_1); +x_42 = l_Lean_isIdEndEscape(x_41); +if (x_42 == 0) { -obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; -x_44 = l_String_OldIterator_next___main(x_1); -x_45 = l_String_splitAux___main___closed__1; -x_46 = lean::string_push(x_45, x_42); -x_47 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__11(x_46, x_0, x_44, x_2); -x_48 = lean::cnstr_get(x_47, 0); -x_50 = lean::cnstr_get(x_47, 1); -if (lean::is_exclusive(x_47)) { - x_52 = x_47; +obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_49; obj* x_51; obj* x_52; obj* x_53; obj* x_54; +x_43 = l_String_OldIterator_next___main(x_1); +x_44 = l_String_splitAux___main___closed__1; +x_45 = lean::string_push(x_44, x_41); +x_46 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__11(x_45, x_0, x_43, x_2); +x_47 = lean::cnstr_get(x_46, 0); +x_49 = lean::cnstr_get(x_46, 1); +if (lean::is_exclusive(x_46)) { + x_51 = x_46; } else { - lean::inc(x_48); - lean::inc(x_50); - lean::dec(x_47); - x_52 = lean::box(0); + lean::inc(x_47); + lean::inc(x_49); + lean::dec(x_46); + x_51 = lean::box(0); } -x_53 = lean::box(0); -x_54 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_53, x_48); -if (lean::is_scalar(x_52)) { - x_55 = lean::alloc_cnstr(0, 2, 0); +x_52 = lean::box(0); +x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_52, x_47); +if (lean::is_scalar(x_51)) { + x_54 = lean::alloc_cnstr(0, 2, 0); } else { - x_55 = x_52; + x_54 = x_51; } -lean::cnstr_set(x_55, 0, x_54); -lean::cnstr_set(x_55, 1, x_50); -return x_55; +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_49); +return x_54; } else { -obj* x_56; obj* x_57; obj* x_58; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_65; obj* x_67; obj* x_69; obj* x_70; obj* x_71; -x_56 = l_Char_quoteCore(x_42); -x_57 = l_Char_HasRepr___closed__1; -x_58 = lean::string_append(x_57, x_56); -lean::dec(x_56); -x_60 = lean::string_append(x_58, x_57); -x_61 = lean::box(0); -x_62 = l_mjoin___rarg___closed__1; -x_63 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_60, x_62, x_61, x_61, x_0, x_1, x_2); -lean::dec(x_1); -x_65 = lean::cnstr_get(x_63, 0); -x_67 = lean::cnstr_get(x_63, 1); -if (lean::is_exclusive(x_63)) { - lean::cnstr_set(x_63, 0, lean::box(0)); - lean::cnstr_set(x_63, 1, lean::box(0)); - x_69 = x_63; +obj* x_55; obj* x_56; obj* x_57; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_65; obj* x_67; obj* x_68; obj* x_69; +x_55 = l_Char_quoteCore(x_41); +x_56 = l_Char_HasRepr___closed__1; +x_57 = lean::string_append(x_56, x_55); +lean::dec(x_55); +x_59 = lean::string_append(x_57, x_56); +x_60 = lean::box(0); +x_61 = l_mjoin___rarg___closed__1; +x_62 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_59, x_61, x_60, x_60, x_0, x_1, x_2); +x_63 = lean::cnstr_get(x_62, 0); +x_65 = lean::cnstr_get(x_62, 1); +if (lean::is_exclusive(x_62)) { + lean::cnstr_set(x_62, 0, lean::box(0)); + lean::cnstr_set(x_62, 1, lean::box(0)); + x_67 = x_62; } else { + lean::inc(x_63); lean::inc(x_65); - lean::inc(x_67); - lean::dec(x_63); - x_69 = lean::box(0); + lean::dec(x_62); + x_67 = lean::box(0); } -x_70 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_71 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_70, x_65); -if (lean::obj_tag(x_71) == 0) +x_68 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_69 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_68, x_63); +if (lean::obj_tag(x_69) == 0) { -obj* x_73; obj* x_75; obj* x_77; obj* x_80; uint32 x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_86; obj* x_88; obj* x_89; obj* x_90; -lean::dec(x_69); -x_73 = lean::cnstr_get(x_71, 0); +obj* x_71; obj* x_73; obj* x_75; obj* x_78; uint32 x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_84; obj* x_86; obj* x_87; obj* x_88; +lean::dec(x_67); +x_71 = lean::cnstr_get(x_69, 0); +lean::inc(x_71); +x_73 = lean::cnstr_get(x_69, 1); lean::inc(x_73); -x_75 = lean::cnstr_get(x_71, 1); +x_75 = lean::cnstr_get(x_69, 2); lean::inc(x_75); -x_77 = lean::cnstr_get(x_71, 2); -lean::inc(x_77); -lean::dec(x_71); -x_80 = l_String_splitAux___main___closed__1; -x_81 = lean::unbox_uint32(x_73); -x_82 = lean::string_push(x_80, x_81); -x_83 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__13(x_82, x_0, x_75, x_67); -x_84 = lean::cnstr_get(x_83, 0); -x_86 = lean::cnstr_get(x_83, 1); -if (lean::is_exclusive(x_83)) { - x_88 = x_83; +lean::dec(x_69); +x_78 = l_String_splitAux___main___closed__1; +x_79 = lean::unbox_uint32(x_71); +x_80 = lean::string_push(x_78, x_79); +x_81 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__13(x_80, x_0, x_73, x_65); +x_82 = lean::cnstr_get(x_81, 0); +x_84 = lean::cnstr_get(x_81, 1); +if (lean::is_exclusive(x_81)) { + x_86 = x_81; } else { + lean::inc(x_82); lean::inc(x_84); - lean::inc(x_86); - lean::dec(x_83); - x_88 = lean::box(0); + lean::dec(x_81); + x_86 = lean::box(0); } -x_89 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_77, x_84); -if (lean::is_scalar(x_88)) { - x_90 = lean::alloc_cnstr(0, 2, 0); +x_87 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_75, x_82); +if (lean::is_scalar(x_86)) { + x_88 = lean::alloc_cnstr(0, 2, 0); } else { - x_90 = x_88; + x_88 = x_86; } -lean::cnstr_set(x_90, 0, x_89); -lean::cnstr_set(x_90, 1, x_86); -return x_90; +lean::cnstr_set(x_88, 0, x_87); +lean::cnstr_set(x_88, 1, x_84); +return x_88; } else { -obj* x_91; uint8 x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; -x_91 = lean::cnstr_get(x_71, 0); -x_93 = lean::cnstr_get_scalar(x_71, sizeof(void*)*1); -if (lean::is_exclusive(x_71)) { - x_94 = x_71; +obj* x_89; uint8 x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; +x_89 = lean::cnstr_get(x_69, 0); +x_91 = lean::cnstr_get_scalar(x_69, sizeof(void*)*1); +if (lean::is_exclusive(x_69)) { + x_92 = x_69; } else { - lean::inc(x_91); - lean::dec(x_71); - x_94 = lean::box(0); + lean::inc(x_89); + lean::dec(x_69); + x_92 = lean::box(0); } -if (lean::is_scalar(x_94)) { - x_95 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_92)) { + x_93 = lean::alloc_cnstr(1, 1, 1); } else { - x_95 = x_94; + x_93 = x_92; } -lean::cnstr_set(x_95, 0, x_91); -lean::cnstr_set_scalar(x_95, sizeof(void*)*1, x_93); -x_96 = x_95; -if (lean::is_scalar(x_69)) { - x_97 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_93, 0, x_89); +lean::cnstr_set_scalar(x_93, sizeof(void*)*1, x_91); +x_94 = x_93; +if (lean::is_scalar(x_67)) { + x_95 = lean::alloc_cnstr(0, 2, 0); } else { - x_97 = x_69; + x_95 = x_67; } -lean::cnstr_set(x_97, 0, x_96); -lean::cnstr_set(x_97, 1, x_67); -return x_97; +lean::cnstr_set(x_95, 0, x_94); +lean::cnstr_set(x_95, 1, x_65); +return x_95; } } } @@ -5890,201 +5755,276 @@ goto lbl_18; } else { -obj* x_45; obj* x_48; obj* x_50; obj* x_51; obj* x_53; obj* x_56; obj* x_57; obj* x_59; obj* x_61; obj* x_64; obj* x_66; obj* x_67; obj* x_68; -x_45 = lean::cnstr_get(x_20, 1); -lean::inc(x_45); -lean::dec(x_20); -x_48 = lean::cnstr_get(x_21, 0); +obj* x_45; obj* x_47; obj* x_48; +x_45 = lean::cnstr_get(x_21, 0); if (lean::is_exclusive(x_21)) { lean::cnstr_set(x_21, 0, lean::box(0)); - x_50 = x_21; + x_47 = x_21; } else { - lean::inc(x_48); + lean::inc(x_45); lean::dec(x_21); - x_50 = lean::box(0); + x_47 = lean::box(0); } -x_51 = lean::cnstr_get(x_48, 3); -lean::inc(x_51); -x_53 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_51); -lean::dec(x_51); -lean::inc(x_1); -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_53); -lean::cnstr_set(x_56, 1, x_1); -x_57 = lean::cnstr_get(x_48, 0); +x_48 = lean::cnstr_get(x_45, 3); +lean::inc(x_48); +if (lean::obj_tag(x_48) == 0) +{ +obj* x_50; obj* x_53; obj* x_55; obj* x_57; obj* x_60; obj* x_62; obj* x_63; obj* x_65; obj* x_66; obj* x_67; +x_50 = lean::cnstr_get(x_20, 1); +lean::inc(x_50); +lean::dec(x_20); +x_53 = lean::cnstr_get(x_45, 0); +lean::inc(x_53); +x_55 = lean::cnstr_get(x_45, 1); +lean::inc(x_55); +x_57 = lean::cnstr_get(x_45, 2); lean::inc(x_57); -x_59 = lean::cnstr_get(x_48, 1); -lean::inc(x_59); -x_61 = lean::cnstr_get(x_48, 2); -lean::inc(x_61); -lean::dec(x_48); -x_64 = l_List_reverse___rarg(x_56); +lean::dec(x_45); +x_60 = lean::box(3); +lean::inc(x_1); +x_62 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_62, 0, x_60); +lean::cnstr_set(x_62, 1, x_1); +x_63 = l_List_reverse___rarg(x_62); lean::inc(x_0); -x_66 = l_Lean_Parser_Syntax_mkNode(x_0, x_64); -x_67 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_67, 0, x_66); -x_68 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_68, 0, x_57); -lean::cnstr_set(x_68, 1, x_59); -lean::cnstr_set(x_68, 2, x_61); -lean::cnstr_set(x_68, 3, x_67); +x_65 = l_Lean_Parser_Syntax_mkNode(x_0, x_63); +x_66 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_66, 0, x_65); +x_67 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_67, 0, x_53); +lean::cnstr_set(x_67, 1, x_55); +lean::cnstr_set(x_67, 2, x_57); +lean::cnstr_set(x_67, 3, x_66); if (x_26 == 0) { -uint8 x_69; obj* x_70; obj* x_71; -x_69 = 0; -if (lean::is_scalar(x_50)) { - x_70 = lean::alloc_cnstr(1, 1, 1); +uint8 x_68; obj* x_69; obj* x_70; +x_68 = 0; +if (lean::is_scalar(x_47)) { + x_69 = lean::alloc_cnstr(1, 1, 1); } else { - x_70 = x_50; + x_69 = x_47; } -lean::cnstr_set(x_70, 0, x_68); -lean::cnstr_set_scalar(x_70, sizeof(void*)*1, x_69); -x_71 = x_70; -x_16 = x_71; -x_17 = x_45; +lean::cnstr_set(x_69, 0, x_67); +lean::cnstr_set_scalar(x_69, sizeof(void*)*1, x_68); +x_70 = x_69; +x_16 = x_70; +x_17 = x_50; goto lbl_18; } else { -uint8 x_72; obj* x_73; obj* x_74; -x_72 = 1; -if (lean::is_scalar(x_50)) { - x_73 = lean::alloc_cnstr(1, 1, 1); +uint8 x_71; obj* x_72; obj* x_73; +x_71 = 1; +if (lean::is_scalar(x_47)) { + x_72 = lean::alloc_cnstr(1, 1, 1); } else { - x_73 = x_50; + x_72 = x_47; } -lean::cnstr_set(x_73, 0, x_68); -lean::cnstr_set_scalar(x_73, sizeof(void*)*1, x_72); -x_74 = x_73; -x_16 = x_74; -x_17 = x_45; +lean::cnstr_set(x_72, 0, x_67); +lean::cnstr_set_scalar(x_72, sizeof(void*)*1, x_71); +x_73 = x_72; +x_16 = x_73; +x_17 = x_50; goto lbl_18; } } +else +{ +obj* x_74; obj* x_77; obj* x_79; obj* x_81; obj* x_84; obj* x_86; obj* x_88; obj* x_89; obj* x_91; obj* x_92; obj* x_93; +x_74 = lean::cnstr_get(x_20, 1); +lean::inc(x_74); +lean::dec(x_20); +x_77 = lean::cnstr_get(x_45, 0); +lean::inc(x_77); +x_79 = lean::cnstr_get(x_45, 1); +lean::inc(x_79); +x_81 = lean::cnstr_get(x_45, 2); +lean::inc(x_81); +lean::dec(x_45); +x_84 = lean::cnstr_get(x_48, 0); +if (lean::is_exclusive(x_48)) { + x_86 = x_48; +} else { + lean::inc(x_84); + lean::dec(x_48); + x_86 = lean::box(0); +} +lean::inc(x_1); +x_88 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_88, 0, x_84); +lean::cnstr_set(x_88, 1, x_1); +x_89 = l_List_reverse___rarg(x_88); +lean::inc(x_0); +x_91 = l_Lean_Parser_Syntax_mkNode(x_0, x_89); +if (lean::is_scalar(x_86)) { + x_92 = lean::alloc_cnstr(1, 1, 0); +} else { + x_92 = x_86; +} +lean::cnstr_set(x_92, 0, x_91); +x_93 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_93, 0, x_77); +lean::cnstr_set(x_93, 1, x_79); +lean::cnstr_set(x_93, 2, x_81); +lean::cnstr_set(x_93, 3, x_92); +if (x_26 == 0) +{ +uint8 x_94; obj* x_95; obj* x_96; +x_94 = 0; +if (lean::is_scalar(x_47)) { + x_95 = lean::alloc_cnstr(1, 1, 1); +} else { + x_95 = x_47; +} +lean::cnstr_set(x_95, 0, x_93); +lean::cnstr_set_scalar(x_95, sizeof(void*)*1, x_94); +x_96 = x_95; +x_16 = x_96; +x_17 = x_74; +goto lbl_18; +} +else +{ +uint8 x_97; obj* x_98; obj* x_99; +x_97 = 1; +if (lean::is_scalar(x_47)) { + x_98 = lean::alloc_cnstr(1, 1, 1); +} else { + x_98 = x_47; +} +lean::cnstr_set(x_98, 0, x_93); +lean::cnstr_set_scalar(x_98, sizeof(void*)*1, x_97); +x_99 = x_98; +x_16 = x_99; +x_17 = x_74; +goto lbl_18; +} +} +} } lbl_18: { if (lean::obj_tag(x_16) == 0) { -obj* x_75; obj* x_77; obj* x_79; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; -x_75 = lean::cnstr_get(x_16, 0); -x_77 = lean::cnstr_get(x_16, 1); -x_79 = lean::cnstr_get(x_16, 2); +obj* x_100; obj* x_102; obj* x_104; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; +x_100 = lean::cnstr_get(x_16, 0); +x_102 = lean::cnstr_get(x_16, 1); +x_104 = lean::cnstr_get(x_16, 2); if (lean::is_exclusive(x_16)) { - x_81 = x_16; + x_106 = x_16; } else { - lean::inc(x_75); - lean::inc(x_77); - lean::inc(x_79); + lean::inc(x_100); + lean::inc(x_102); + lean::inc(x_104); lean::dec(x_16); - x_81 = lean::box(0); + x_106 = lean::box(0); } if (lean::is_scalar(x_15)) { - x_82 = lean::alloc_cnstr(1, 2, 0); + x_107 = lean::alloc_cnstr(1, 2, 0); } else { - x_82 = x_15; + x_107 = x_15; } -lean::cnstr_set(x_82, 0, x_75); -lean::cnstr_set(x_82, 1, x_1); -x_83 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_81)) { - x_84 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_107, 0, x_100); +lean::cnstr_set(x_107, 1, x_1); +x_108 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_106)) { + x_109 = lean::alloc_cnstr(0, 3, 0); } else { - x_84 = x_81; + x_109 = x_106; } -lean::cnstr_set(x_84, 0, x_82); -lean::cnstr_set(x_84, 1, x_77); -lean::cnstr_set(x_84, 2, x_83); -x_85 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_79, x_84); -if (lean::obj_tag(x_85) == 0) +lean::cnstr_set(x_109, 0, x_107); +lean::cnstr_set(x_109, 1, x_102); +lean::cnstr_set(x_109, 2, x_108); +x_110 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_104, x_109); +if (lean::obj_tag(x_110) == 0) { -obj* x_86; obj* x_88; obj* x_90; obj* x_93; obj* x_94; obj* x_96; obj* x_98; obj* x_99; obj* x_100; -x_86 = lean::cnstr_get(x_85, 0); -lean::inc(x_86); -x_88 = lean::cnstr_get(x_85, 1); -lean::inc(x_88); -x_90 = lean::cnstr_get(x_85, 2); -lean::inc(x_90); -lean::dec(x_85); -x_93 = l_List_mfoldl___main___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__16(x_0, x_86, x_13, x_3, x_88, x_17); -x_94 = lean::cnstr_get(x_93, 0); -x_96 = lean::cnstr_get(x_93, 1); -if (lean::is_exclusive(x_93)) { - x_98 = x_93; +obj* x_111; obj* x_113; obj* x_115; obj* x_118; obj* x_119; obj* x_121; obj* x_123; obj* x_124; obj* x_125; +x_111 = lean::cnstr_get(x_110, 0); +lean::inc(x_111); +x_113 = lean::cnstr_get(x_110, 1); +lean::inc(x_113); +x_115 = lean::cnstr_get(x_110, 2); +lean::inc(x_115); +lean::dec(x_110); +x_118 = l_List_mfoldl___main___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__16(x_0, x_111, x_13, x_3, x_113, x_17); +x_119 = lean::cnstr_get(x_118, 0); +x_121 = lean::cnstr_get(x_118, 1); +if (lean::is_exclusive(x_118)) { + x_123 = x_118; } else { - lean::inc(x_94); - lean::inc(x_96); - lean::dec(x_93); - x_98 = lean::box(0); + lean::inc(x_119); + lean::inc(x_121); + lean::dec(x_118); + x_123 = lean::box(0); } -x_99 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_90, x_94); -if (lean::is_scalar(x_98)) { - x_100 = lean::alloc_cnstr(0, 2, 0); +x_124 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_115, x_119); +if (lean::is_scalar(x_123)) { + x_125 = lean::alloc_cnstr(0, 2, 0); } else { - x_100 = x_98; + x_125 = x_123; } -lean::cnstr_set(x_100, 0, x_99); -lean::cnstr_set(x_100, 1, x_96); -return x_100; +lean::cnstr_set(x_125, 0, x_124); +lean::cnstr_set(x_125, 1, x_121); +return x_125; } else { -obj* x_104; uint8 x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; +obj* x_129; uint8 x_131; obj* x_132; obj* x_133; obj* x_134; obj* x_135; lean::dec(x_13); lean::dec(x_3); lean::dec(x_0); -x_104 = lean::cnstr_get(x_85, 0); -x_106 = lean::cnstr_get_scalar(x_85, sizeof(void*)*1); -if (lean::is_exclusive(x_85)) { - x_107 = x_85; +x_129 = lean::cnstr_get(x_110, 0); +x_131 = lean::cnstr_get_scalar(x_110, sizeof(void*)*1); +if (lean::is_exclusive(x_110)) { + x_132 = x_110; } else { - lean::inc(x_104); - lean::dec(x_85); - x_107 = lean::box(0); + lean::inc(x_129); + lean::dec(x_110); + x_132 = lean::box(0); } -if (lean::is_scalar(x_107)) { - x_108 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_132)) { + x_133 = lean::alloc_cnstr(1, 1, 1); } else { - x_108 = x_107; + x_133 = x_132; } -lean::cnstr_set(x_108, 0, x_104); -lean::cnstr_set_scalar(x_108, sizeof(void*)*1, x_106); -x_109 = x_108; -x_110 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_110, 0, x_109); -lean::cnstr_set(x_110, 1, x_17); -return x_110; +lean::cnstr_set(x_133, 0, x_129); +lean::cnstr_set_scalar(x_133, sizeof(void*)*1, x_131); +x_134 = x_133; +x_135 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_135, 0, x_134); +lean::cnstr_set(x_135, 1, x_17); +return x_135; } } else { -obj* x_116; uint8 x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; +obj* x_141; uint8 x_143; obj* x_144; obj* x_145; obj* x_146; obj* x_147; lean::dec(x_13); lean::dec(x_15); lean::dec(x_1); lean::dec(x_3); lean::dec(x_0); -x_116 = lean::cnstr_get(x_16, 0); -x_118 = lean::cnstr_get_scalar(x_16, sizeof(void*)*1); +x_141 = lean::cnstr_get(x_16, 0); +x_143 = lean::cnstr_get_scalar(x_16, sizeof(void*)*1); if (lean::is_exclusive(x_16)) { - x_119 = x_16; + x_144 = x_16; } else { - lean::inc(x_116); + lean::inc(x_141); lean::dec(x_16); - x_119 = lean::box(0); + x_144 = lean::box(0); } -if (lean::is_scalar(x_119)) { - x_120 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_144)) { + x_145 = lean::alloc_cnstr(1, 1, 1); } else { - x_120 = x_119; + x_145 = x_144; } -lean::cnstr_set(x_120, 0, x_116); -lean::cnstr_set_scalar(x_120, sizeof(void*)*1, x_118); -x_121 = x_120; -x_122 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_122, 0, x_121); -lean::cnstr_set(x_122, 1, x_17); -return x_122; +lean::cnstr_set(x_145, 0, x_141); +lean::cnstr_set_scalar(x_145, sizeof(void*)*1, x_143); +x_146 = x_145; +x_147 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_147, 0, x_146); +lean::cnstr_set(x_147, 1, x_17); +return x_147; } } } @@ -6640,209 +6580,208 @@ x_6 = lean::box(0); x_7 = l_Lean_Parser_Combinators_choiceAux___main___rarg___closed__1; x_8 = l_mjoin___rarg___closed__1; x_9 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_7, x_8, x_6, x_6, x_2, x_3, x_4); -lean::dec(x_3); lean::dec(x_2); return x_9; } else { -obj* x_12; obj* x_14; obj* x_16; obj* x_19; obj* x_20; obj* x_22; obj* x_24; obj* x_25; obj* x_26; -x_12 = lean::cnstr_get(x_0, 0); -x_14 = lean::cnstr_get(x_0, 1); +obj* x_11; obj* x_13; obj* x_15; obj* x_18; obj* x_19; obj* x_21; obj* x_23; obj* x_24; obj* x_25; +x_11 = lean::cnstr_get(x_0, 0); +x_13 = lean::cnstr_get(x_0, 1); if (lean::is_exclusive(x_0)) { lean::cnstr_set(x_0, 0, lean::box(0)); lean::cnstr_set(x_0, 1, lean::box(0)); - x_16 = x_0; + x_15 = x_0; } else { - lean::inc(x_12); - lean::inc(x_14); + lean::inc(x_11); + lean::inc(x_13); lean::dec(x_0); - x_16 = lean::box(0); + x_15 = lean::box(0); } lean::inc(x_3); lean::inc(x_2); -x_19 = lean::apply_3(x_12, x_2, x_3, x_4); -x_20 = lean::cnstr_get(x_19, 0); -x_22 = lean::cnstr_get(x_19, 1); +x_18 = lean::apply_3(x_11, x_2, x_3, x_4); +x_19 = lean::cnstr_get(x_18, 0); +x_21 = lean::cnstr_get(x_18, 1); +if (lean::is_exclusive(x_18)) { + lean::cnstr_set(x_18, 0, lean::box(0)); + lean::cnstr_set(x_18, 1, lean::box(0)); + x_23 = x_18; +} else { + lean::inc(x_19); + lean::inc(x_21); + lean::dec(x_18); + x_23 = lean::box(0); +} +x_24 = lean::mk_nat_obj(1ul); +x_25 = lean::nat_add(x_1, x_24); +if (lean::obj_tag(x_19) == 0) +{ +obj* x_26; obj* x_28; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_26 = lean::cnstr_get(x_19, 0); +x_28 = lean::cnstr_get(x_19, 1); +x_30 = lean::cnstr_get(x_19, 2); if (lean::is_exclusive(x_19)) { - lean::cnstr_set(x_19, 0, lean::box(0)); - lean::cnstr_set(x_19, 1, lean::box(0)); - x_24 = x_19; + x_32 = x_19; } else { - lean::inc(x_20); - lean::inc(x_22); + lean::inc(x_26); + lean::inc(x_28); + lean::inc(x_30); lean::dec(x_19); - x_24 = lean::box(0); + x_32 = lean::box(0); } -x_25 = lean::mk_nat_obj(1ul); -x_26 = lean::nat_add(x_1, x_25); -if (lean::obj_tag(x_20) == 0) +x_33 = lean::box(0); +x_34 = lean_name_mk_numeral(x_33, x_1); +x_35 = lean::box(0); +if (lean::is_scalar(x_15)) { + x_36 = lean::alloc_cnstr(1, 2, 0); +} else { + x_36 = x_15; +} +lean::cnstr_set(x_36, 0, x_26); +lean::cnstr_set(x_36, 1, x_35); +x_37 = l_Lean_Parser_Syntax_mkNode(x_34, x_36); +x_38 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_32)) { + x_39 = lean::alloc_cnstr(0, 3, 0); +} else { + x_39 = x_32; +} +lean::cnstr_set(x_39, 0, x_37); +lean::cnstr_set(x_39, 1, x_28); +lean::cnstr_set(x_39, 2, x_38); +x_40 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_30, x_39); +if (lean::obj_tag(x_40) == 0) { -obj* x_27; obj* x_29; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_27 = lean::cnstr_get(x_20, 0); -x_29 = lean::cnstr_get(x_20, 1); -x_31 = lean::cnstr_get(x_20, 2); -if (lean::is_exclusive(x_20)) { - x_33 = x_20; -} else { - lean::inc(x_27); - lean::inc(x_29); - lean::inc(x_31); - lean::dec(x_20); - x_33 = lean::box(0); -} -x_34 = lean::box(0); -x_35 = lean_name_mk_numeral(x_34, x_1); -x_36 = lean::box(0); -if (lean::is_scalar(x_16)) { - x_37 = lean::alloc_cnstr(1, 2, 0); -} else { - x_37 = x_16; -} -lean::cnstr_set(x_37, 0, x_27); -lean::cnstr_set(x_37, 1, x_36); -x_38 = l_Lean_Parser_Syntax_mkNode(x_35, x_37); -x_39 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_33)) { - x_40 = lean::alloc_cnstr(0, 3, 0); -} else { - x_40 = x_33; -} -lean::cnstr_set(x_40, 0, x_38); -lean::cnstr_set(x_40, 1, x_29); -lean::cnstr_set(x_40, 2, x_39); -x_41 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_31, x_40); -if (lean::obj_tag(x_41) == 0) -{ -obj* x_46; +obj* x_45; +lean::dec(x_13); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_26); -lean::dec(x_14); -if (lean::is_scalar(x_24)) { - x_46 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_25); +if (lean::is_scalar(x_23)) { + x_45 = lean::alloc_cnstr(0, 2, 0); } else { - x_46 = x_24; + x_45 = x_23; } -lean::cnstr_set(x_46, 0, x_41); -lean::cnstr_set(x_46, 1, x_22); -return x_46; +lean::cnstr_set(x_45, 0, x_40); +lean::cnstr_set(x_45, 1, x_21); +return x_45; } else { -uint8 x_47; -x_47 = lean::cnstr_get_scalar(x_41, sizeof(void*)*1); -if (x_47 == 0) +uint8 x_46; +x_46 = lean::cnstr_get_scalar(x_40, sizeof(void*)*1); +if (x_46 == 0) { -obj* x_49; obj* x_52; obj* x_53; obj* x_55; obj* x_57; obj* x_58; obj* x_59; -lean::dec(x_24); -x_49 = lean::cnstr_get(x_41, 0); -lean::inc(x_49); -lean::dec(x_41); -x_52 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__29(x_14, x_26, x_2, x_3, x_22); -x_53 = lean::cnstr_get(x_52, 0); -x_55 = lean::cnstr_get(x_52, 1); -if (lean::is_exclusive(x_52)) { - x_57 = x_52; +obj* x_48; obj* x_51; obj* x_52; obj* x_54; obj* x_56; obj* x_57; obj* x_58; +lean::dec(x_23); +x_48 = lean::cnstr_get(x_40, 0); +lean::inc(x_48); +lean::dec(x_40); +x_51 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__29(x_13, x_25, x_2, x_3, x_21); +x_52 = lean::cnstr_get(x_51, 0); +x_54 = lean::cnstr_get(x_51, 1); +if (lean::is_exclusive(x_51)) { + x_56 = x_51; } else { - lean::inc(x_53); - lean::inc(x_55); - lean::dec(x_52); - x_57 = lean::box(0); + lean::inc(x_52); + lean::inc(x_54); + lean::dec(x_51); + x_56 = lean::box(0); } -x_58 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_49, x_53); -if (lean::is_scalar(x_57)) { - x_59 = lean::alloc_cnstr(0, 2, 0); +x_57 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_48, x_52); +if (lean::is_scalar(x_56)) { + x_58 = lean::alloc_cnstr(0, 2, 0); } else { - x_59 = x_57; + x_58 = x_56; } -lean::cnstr_set(x_59, 0, x_58); -lean::cnstr_set(x_59, 1, x_55); -return x_59; +lean::cnstr_set(x_58, 0, x_57); +lean::cnstr_set(x_58, 1, x_54); +return x_58; } else { -obj* x_64; +obj* x_63; +lean::dec(x_13); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_26); -lean::dec(x_14); -if (lean::is_scalar(x_24)) { - x_64 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_25); +if (lean::is_scalar(x_23)) { + x_63 = lean::alloc_cnstr(0, 2, 0); } else { - x_64 = x_24; + x_63 = x_23; } -lean::cnstr_set(x_64, 0, x_41); -lean::cnstr_set(x_64, 1, x_22); -return x_64; +lean::cnstr_set(x_63, 0, x_40); +lean::cnstr_set(x_63, 1, x_21); +return x_63; } } } else { -uint8 x_67; +uint8 x_66; lean::dec(x_1); -lean::dec(x_16); -x_67 = lean::cnstr_get_scalar(x_20, sizeof(void*)*1); -if (x_67 == 0) +lean::dec(x_15); +x_66 = lean::cnstr_get_scalar(x_19, sizeof(void*)*1); +if (x_66 == 0) { -obj* x_69; obj* x_72; obj* x_73; obj* x_75; obj* x_77; obj* x_78; obj* x_79; -lean::dec(x_24); -x_69 = lean::cnstr_get(x_20, 0); -lean::inc(x_69); -lean::dec(x_20); -x_72 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__29(x_14, x_26, x_2, x_3, x_22); -x_73 = lean::cnstr_get(x_72, 0); -x_75 = lean::cnstr_get(x_72, 1); -if (lean::is_exclusive(x_72)) { - x_77 = x_72; +obj* x_68; obj* x_71; obj* x_72; obj* x_74; obj* x_76; obj* x_77; obj* x_78; +lean::dec(x_23); +x_68 = lean::cnstr_get(x_19, 0); +lean::inc(x_68); +lean::dec(x_19); +x_71 = l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__29(x_13, x_25, x_2, x_3, x_21); +x_72 = lean::cnstr_get(x_71, 0); +x_74 = lean::cnstr_get(x_71, 1); +if (lean::is_exclusive(x_71)) { + x_76 = x_71; } else { - lean::inc(x_73); - lean::inc(x_75); - lean::dec(x_72); - x_77 = lean::box(0); + lean::inc(x_72); + lean::inc(x_74); + lean::dec(x_71); + x_76 = lean::box(0); } -x_78 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_69, x_73); -if (lean::is_scalar(x_77)) { - x_79 = lean::alloc_cnstr(0, 2, 0); +x_77 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_68, x_72); +if (lean::is_scalar(x_76)) { + x_78 = lean::alloc_cnstr(0, 2, 0); } else { - x_79 = x_77; + x_78 = x_76; } -lean::cnstr_set(x_79, 0, x_78); -lean::cnstr_set(x_79, 1, x_75); -return x_79; +lean::cnstr_set(x_78, 0, x_77); +lean::cnstr_set(x_78, 1, x_74); +return x_78; } else { -obj* x_84; obj* x_86; obj* x_87; obj* x_88; obj* x_89; +obj* x_83; obj* x_85; obj* x_86; obj* x_87; obj* x_88; +lean::dec(x_13); lean::dec(x_3); lean::dec(x_2); -lean::dec(x_26); -lean::dec(x_14); -x_84 = lean::cnstr_get(x_20, 0); -if (lean::is_exclusive(x_20)) { - x_86 = x_20; +lean::dec(x_25); +x_83 = lean::cnstr_get(x_19, 0); +if (lean::is_exclusive(x_19)) { + x_85 = x_19; } else { - lean::inc(x_84); - lean::dec(x_20); - x_86 = lean::box(0); + lean::inc(x_83); + lean::dec(x_19); + x_85 = lean::box(0); } -if (lean::is_scalar(x_86)) { - x_87 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_85)) { + x_86 = lean::alloc_cnstr(1, 1, 1); } else { - x_87 = x_86; + x_86 = x_85; } -lean::cnstr_set(x_87, 0, x_84); -lean::cnstr_set_scalar(x_87, sizeof(void*)*1, x_67); -x_88 = x_87; -if (lean::is_scalar(x_24)) { - x_89 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_86, 0, x_83); +lean::cnstr_set_scalar(x_86, sizeof(void*)*1, x_66); +x_87 = x_86; +if (lean::is_scalar(x_23)) { + x_88 = lean::alloc_cnstr(0, 2, 0); } else { - x_89 = x_24; + x_88 = x_23; } -lean::cnstr_set(x_89, 0, x_88); -lean::cnstr_set(x_89, 1, x_22); -return x_89; +lean::cnstr_set(x_88, 0, x_87); +lean::cnstr_set(x_88, 1, x_21); +return x_88; } } } @@ -7199,213 +7138,211 @@ uint8 x_3; x_3 = l_String_OldIterator_hasNext___main(x_1); if (x_3 == 0) { -obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; +obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_14; x_4 = lean::box(0); x_5 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_6 = l_mjoin___rarg___closed__1; x_7 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_5, x_6, x_4, x_4, x_0, x_1, x_2); -lean::dec(x_1); -x_9 = lean::cnstr_get(x_7, 0); -x_11 = lean::cnstr_get(x_7, 1); +x_8 = lean::cnstr_get(x_7, 0); +x_10 = lean::cnstr_get(x_7, 1); if (lean::is_exclusive(x_7)) { lean::cnstr_set(x_7, 0, lean::box(0)); lean::cnstr_set(x_7, 1, lean::box(0)); - x_13 = x_7; + x_12 = x_7; } else { - lean::inc(x_9); - lean::inc(x_11); + lean::inc(x_8); + lean::inc(x_10); lean::dec(x_7); - x_13 = lean::box(0); + x_12 = lean::box(0); } -x_14 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_15 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_9); -if (lean::obj_tag(x_15) == 0) +x_13 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_14 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_13, x_8); +if (lean::obj_tag(x_14) == 0) { -obj* x_17; obj* x_19; obj* x_21; obj* x_24; uint32 x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_30; obj* x_32; obj* x_33; obj* x_34; -lean::dec(x_13); -x_17 = lean::cnstr_get(x_15, 0); -lean::inc(x_17); -x_19 = lean::cnstr_get(x_15, 1); -lean::inc(x_19); -x_21 = lean::cnstr_get(x_15, 2); -lean::inc(x_21); -lean::dec(x_15); -x_24 = l_String_splitAux___main___closed__1; -x_25 = lean::unbox_uint32(x_17); -x_26 = lean::string_push(x_24, x_25); -x_27 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___spec__2(x_26, x_0, x_19, x_11); -x_28 = lean::cnstr_get(x_27, 0); -x_30 = lean::cnstr_get(x_27, 1); -if (lean::is_exclusive(x_27)) { - x_32 = x_27; +obj* x_16; obj* x_18; obj* x_20; obj* x_23; uint32 x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +lean::dec(x_12); +x_16 = lean::cnstr_get(x_14, 0); +lean::inc(x_16); +x_18 = lean::cnstr_get(x_14, 1); +lean::inc(x_18); +x_20 = lean::cnstr_get(x_14, 2); +lean::inc(x_20); +lean::dec(x_14); +x_23 = l_String_splitAux___main___closed__1; +x_24 = lean::unbox_uint32(x_16); +x_25 = lean::string_push(x_23, x_24); +x_26 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___spec__2(x_25, x_0, x_18, x_10); +x_27 = lean::cnstr_get(x_26, 0); +x_29 = lean::cnstr_get(x_26, 1); +if (lean::is_exclusive(x_26)) { + x_31 = x_26; } else { - lean::inc(x_28); - lean::inc(x_30); - lean::dec(x_27); - x_32 = lean::box(0); + lean::inc(x_27); + lean::inc(x_29); + lean::dec(x_26); + x_31 = lean::box(0); } -x_33 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_28); -if (lean::is_scalar(x_32)) { - x_34 = lean::alloc_cnstr(0, 2, 0); +x_32 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_27); +if (lean::is_scalar(x_31)) { + x_33 = lean::alloc_cnstr(0, 2, 0); } else { - x_34 = x_32; + x_33 = x_31; } -lean::cnstr_set(x_34, 0, x_33); -lean::cnstr_set(x_34, 1, x_30); -return x_34; +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_29); +return x_33; } else { -obj* x_35; uint8 x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_35 = lean::cnstr_get(x_15, 0); -x_37 = lean::cnstr_get_scalar(x_15, sizeof(void*)*1); -if (lean::is_exclusive(x_15)) { - x_38 = x_15; +obj* x_34; uint8 x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_34 = lean::cnstr_get(x_14, 0); +x_36 = lean::cnstr_get_scalar(x_14, sizeof(void*)*1); +if (lean::is_exclusive(x_14)) { + x_37 = x_14; } else { - lean::inc(x_35); - lean::dec(x_15); - x_38 = lean::box(0); + lean::inc(x_34); + lean::dec(x_14); + x_37 = lean::box(0); } -if (lean::is_scalar(x_38)) { - x_39 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(1, 1, 1); } else { - x_39 = x_38; + x_38 = x_37; } -lean::cnstr_set(x_39, 0, x_35); -lean::cnstr_set_scalar(x_39, sizeof(void*)*1, x_37); -x_40 = x_39; -if (lean::is_scalar(x_13)) { - x_41 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_38, 0, x_34); +lean::cnstr_set_scalar(x_38, sizeof(void*)*1, x_36); +x_39 = x_38; +if (lean::is_scalar(x_12)) { + x_40 = lean::alloc_cnstr(0, 2, 0); } else { - x_41 = x_13; + x_40 = x_12; } -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_11); -return x_41; +lean::cnstr_set(x_40, 0, x_39); +lean::cnstr_set(x_40, 1, x_10); +return x_40; } } else { -uint32 x_42; uint8 x_43; -x_42 = l_String_OldIterator_curr___main(x_1); -x_43 = l_Lean_isIdEndEscape(x_42); -if (x_43 == 0) +uint32 x_41; uint8 x_42; +x_41 = l_String_OldIterator_curr___main(x_1); +x_42 = l_Lean_isIdEndEscape(x_41); +if (x_42 == 0) { -obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; -x_44 = l_String_OldIterator_next___main(x_1); -x_45 = l_String_splitAux___main___closed__1; -x_46 = lean::string_push(x_45, x_42); -x_47 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___spec__4(x_46, x_0, x_44, x_2); -x_48 = lean::cnstr_get(x_47, 0); -x_50 = lean::cnstr_get(x_47, 1); -if (lean::is_exclusive(x_47)) { - x_52 = x_47; +obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_49; obj* x_51; obj* x_52; obj* x_53; obj* x_54; +x_43 = l_String_OldIterator_next___main(x_1); +x_44 = l_String_splitAux___main___closed__1; +x_45 = lean::string_push(x_44, x_41); +x_46 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___spec__4(x_45, x_0, x_43, x_2); +x_47 = lean::cnstr_get(x_46, 0); +x_49 = lean::cnstr_get(x_46, 1); +if (lean::is_exclusive(x_46)) { + x_51 = x_46; } else { - lean::inc(x_48); - lean::inc(x_50); - lean::dec(x_47); - x_52 = lean::box(0); + lean::inc(x_47); + lean::inc(x_49); + lean::dec(x_46); + x_51 = lean::box(0); } -x_53 = lean::box(0); -x_54 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_53, x_48); -if (lean::is_scalar(x_52)) { - x_55 = lean::alloc_cnstr(0, 2, 0); +x_52 = lean::box(0); +x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_52, x_47); +if (lean::is_scalar(x_51)) { + x_54 = lean::alloc_cnstr(0, 2, 0); } else { - x_55 = x_52; + x_54 = x_51; } -lean::cnstr_set(x_55, 0, x_54); -lean::cnstr_set(x_55, 1, x_50); -return x_55; +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_49); +return x_54; } else { -obj* x_56; obj* x_57; obj* x_58; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_65; obj* x_67; obj* x_69; obj* x_70; obj* x_71; -x_56 = l_Char_quoteCore(x_42); -x_57 = l_Char_HasRepr___closed__1; -x_58 = lean::string_append(x_57, x_56); -lean::dec(x_56); -x_60 = lean::string_append(x_58, x_57); -x_61 = lean::box(0); -x_62 = l_mjoin___rarg___closed__1; -x_63 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_60, x_62, x_61, x_61, x_0, x_1, x_2); -lean::dec(x_1); -x_65 = lean::cnstr_get(x_63, 0); -x_67 = lean::cnstr_get(x_63, 1); -if (lean::is_exclusive(x_63)) { - lean::cnstr_set(x_63, 0, lean::box(0)); - lean::cnstr_set(x_63, 1, lean::box(0)); - x_69 = x_63; +obj* x_55; obj* x_56; obj* x_57; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_65; obj* x_67; obj* x_68; obj* x_69; +x_55 = l_Char_quoteCore(x_41); +x_56 = l_Char_HasRepr___closed__1; +x_57 = lean::string_append(x_56, x_55); +lean::dec(x_55); +x_59 = lean::string_append(x_57, x_56); +x_60 = lean::box(0); +x_61 = l_mjoin___rarg___closed__1; +x_62 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_59, x_61, x_60, x_60, x_0, x_1, x_2); +x_63 = lean::cnstr_get(x_62, 0); +x_65 = lean::cnstr_get(x_62, 1); +if (lean::is_exclusive(x_62)) { + lean::cnstr_set(x_62, 0, lean::box(0)); + lean::cnstr_set(x_62, 1, lean::box(0)); + x_67 = x_62; } else { + lean::inc(x_63); lean::inc(x_65); - lean::inc(x_67); - lean::dec(x_63); - x_69 = lean::box(0); + lean::dec(x_62); + x_67 = lean::box(0); } -x_70 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_71 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_70, x_65); -if (lean::obj_tag(x_71) == 0) +x_68 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_69 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_68, x_63); +if (lean::obj_tag(x_69) == 0) { -obj* x_73; obj* x_75; obj* x_77; obj* x_80; uint32 x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_86; obj* x_88; obj* x_89; obj* x_90; -lean::dec(x_69); -x_73 = lean::cnstr_get(x_71, 0); +obj* x_71; obj* x_73; obj* x_75; obj* x_78; uint32 x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_84; obj* x_86; obj* x_87; obj* x_88; +lean::dec(x_67); +x_71 = lean::cnstr_get(x_69, 0); +lean::inc(x_71); +x_73 = lean::cnstr_get(x_69, 1); lean::inc(x_73); -x_75 = lean::cnstr_get(x_71, 1); +x_75 = lean::cnstr_get(x_69, 2); lean::inc(x_75); -x_77 = lean::cnstr_get(x_71, 2); -lean::inc(x_77); -lean::dec(x_71); -x_80 = l_String_splitAux___main___closed__1; -x_81 = lean::unbox_uint32(x_73); -x_82 = lean::string_push(x_80, x_81); -x_83 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___spec__6(x_82, x_0, x_75, x_67); -x_84 = lean::cnstr_get(x_83, 0); -x_86 = lean::cnstr_get(x_83, 1); -if (lean::is_exclusive(x_83)) { - x_88 = x_83; +lean::dec(x_69); +x_78 = l_String_splitAux___main___closed__1; +x_79 = lean::unbox_uint32(x_71); +x_80 = lean::string_push(x_78, x_79); +x_81 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___spec__6(x_80, x_0, x_73, x_65); +x_82 = lean::cnstr_get(x_81, 0); +x_84 = lean::cnstr_get(x_81, 1); +if (lean::is_exclusive(x_81)) { + x_86 = x_81; } else { + lean::inc(x_82); lean::inc(x_84); - lean::inc(x_86); - lean::dec(x_83); - x_88 = lean::box(0); + lean::dec(x_81); + x_86 = lean::box(0); } -x_89 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_77, x_84); -if (lean::is_scalar(x_88)) { - x_90 = lean::alloc_cnstr(0, 2, 0); +x_87 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_75, x_82); +if (lean::is_scalar(x_86)) { + x_88 = lean::alloc_cnstr(0, 2, 0); } else { - x_90 = x_88; + x_88 = x_86; } -lean::cnstr_set(x_90, 0, x_89); -lean::cnstr_set(x_90, 1, x_86); -return x_90; +lean::cnstr_set(x_88, 0, x_87); +lean::cnstr_set(x_88, 1, x_84); +return x_88; } else { -obj* x_91; uint8 x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; -x_91 = lean::cnstr_get(x_71, 0); -x_93 = lean::cnstr_get_scalar(x_71, sizeof(void*)*1); -if (lean::is_exclusive(x_71)) { - x_94 = x_71; +obj* x_89; uint8 x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; +x_89 = lean::cnstr_get(x_69, 0); +x_91 = lean::cnstr_get_scalar(x_69, sizeof(void*)*1); +if (lean::is_exclusive(x_69)) { + x_92 = x_69; } else { - lean::inc(x_91); - lean::dec(x_71); - x_94 = lean::box(0); + lean::inc(x_89); + lean::dec(x_69); + x_92 = lean::box(0); } -if (lean::is_scalar(x_94)) { - x_95 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_92)) { + x_93 = lean::alloc_cnstr(1, 1, 1); } else { - x_95 = x_94; + x_93 = x_92; } -lean::cnstr_set(x_95, 0, x_91); -lean::cnstr_set_scalar(x_95, sizeof(void*)*1, x_93); -x_96 = x_95; -if (lean::is_scalar(x_69)) { - x_97 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_93, 0, x_89); +lean::cnstr_set_scalar(x_93, sizeof(void*)*1, x_91); +x_94 = x_93; +if (lean::is_scalar(x_67)) { + x_95 = lean::alloc_cnstr(0, 2, 0); } else { - x_97 = x_69; + x_95 = x_67; } -lean::cnstr_set(x_97, 0, x_96); -lean::cnstr_set(x_97, 1, x_67); -return x_97; +lean::cnstr_set(x_95, 0, x_94); +lean::cnstr_set(x_95, 1, x_65); +return x_95; } } } @@ -7824,145 +7761,143 @@ obj* x_4; obj* x_5; uint8 x_7; x_7 = l_String_OldIterator_hasNext___main(x_2); if (x_7 == 0) { -obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_15; obj* x_18; obj* x_19; +obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_17; obj* x_18; x_8 = lean::box(0); x_9 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_10 = l_mjoin___rarg___closed__1; x_11 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_9, x_10, x_8, x_8, x_1, x_2, x_3); -lean::dec(x_2); -x_13 = lean::cnstr_get(x_11, 0); -lean::inc(x_13); -x_15 = lean::cnstr_get(x_11, 1); -lean::inc(x_15); +x_12 = lean::cnstr_get(x_11, 0); +lean::inc(x_12); +x_14 = lean::cnstr_get(x_11, 1); +lean::inc(x_14); lean::dec(x_11); -x_18 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_19 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_13); -if (lean::obj_tag(x_19) == 0) +x_17 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_18 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_12); +if (lean::obj_tag(x_18) == 0) { -obj* x_20; obj* x_22; obj* x_25; obj* x_26; obj* x_28; obj* x_31; -x_20 = lean::cnstr_get(x_19, 1); -lean::inc(x_20); -x_22 = lean::cnstr_get(x_19, 2); -lean::inc(x_22); -lean::dec(x_19); -x_25 = l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___spec__8___rarg(x_20, x_15); -x_26 = lean::cnstr_get(x_25, 0); -lean::inc(x_26); -x_28 = lean::cnstr_get(x_25, 1); -lean::inc(x_28); -lean::dec(x_25); -x_31 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_26); -x_4 = x_31; -x_5 = x_28; +obj* x_19; obj* x_21; obj* x_24; obj* x_25; obj* x_27; obj* x_30; +x_19 = lean::cnstr_get(x_18, 1); +lean::inc(x_19); +x_21 = lean::cnstr_get(x_18, 2); +lean::inc(x_21); +lean::dec(x_18); +x_24 = l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___spec__8___rarg(x_19, x_14); +x_25 = lean::cnstr_get(x_24, 0); +lean::inc(x_25); +x_27 = lean::cnstr_get(x_24, 1); +lean::inc(x_27); +lean::dec(x_24); +x_30 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_25); +x_4 = x_30; +x_5 = x_27; goto lbl_6; } else { -obj* x_32; uint8 x_34; obj* x_35; obj* x_36; obj* x_37; -x_32 = lean::cnstr_get(x_19, 0); -x_34 = lean::cnstr_get_scalar(x_19, sizeof(void*)*1); -if (lean::is_exclusive(x_19)) { - x_35 = x_19; +obj* x_31; uint8 x_33; obj* x_34; obj* x_35; obj* x_36; +x_31 = lean::cnstr_get(x_18, 0); +x_33 = lean::cnstr_get_scalar(x_18, sizeof(void*)*1); +if (lean::is_exclusive(x_18)) { + x_34 = x_18; } else { - lean::inc(x_32); - lean::dec(x_19); - x_35 = lean::box(0); + lean::inc(x_31); + lean::dec(x_18); + x_34 = lean::box(0); } -if (lean::is_scalar(x_35)) { - x_36 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_34)) { + x_35 = lean::alloc_cnstr(1, 1, 1); } else { - x_36 = x_35; + x_35 = x_34; } -lean::cnstr_set(x_36, 0, x_32); -lean::cnstr_set_scalar(x_36, sizeof(void*)*1, x_34); -x_37 = x_36; -x_4 = x_37; -x_5 = x_15; +lean::cnstr_set(x_35, 0, x_31); +lean::cnstr_set_scalar(x_35, sizeof(void*)*1, x_33); +x_36 = x_35; +x_4 = x_36; +x_5 = x_14; goto lbl_6; } } else { -uint32 x_38; uint8 x_39; -x_38 = l_String_OldIterator_curr___main(x_2); -x_39 = l_Lean_isIdFirst(x_38); -if (x_39 == 0) +uint32 x_37; uint8 x_38; +x_37 = l_String_OldIterator_curr___main(x_2); +x_38 = l_Lean_isIdFirst(x_37); +if (x_38 == 0) { -obj* x_40; obj* x_41; obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_49; obj* x_51; obj* x_54; obj* x_55; -x_40 = l_Char_quoteCore(x_38); -x_41 = l_Char_HasRepr___closed__1; -x_42 = lean::string_append(x_41, x_40); -lean::dec(x_40); -x_44 = lean::string_append(x_42, x_41); -x_45 = lean::box(0); -x_46 = l_mjoin___rarg___closed__1; -x_47 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_44, x_46, x_45, x_45, x_1, x_2, x_3); -lean::dec(x_2); -x_49 = lean::cnstr_get(x_47, 0); +obj* x_39; obj* x_40; obj* x_41; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_49; obj* x_52; obj* x_53; +x_39 = l_Char_quoteCore(x_37); +x_40 = l_Char_HasRepr___closed__1; +x_41 = lean::string_append(x_40, x_39); +lean::dec(x_39); +x_43 = lean::string_append(x_41, x_40); +x_44 = lean::box(0); +x_45 = l_mjoin___rarg___closed__1; +x_46 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_43, x_45, x_44, x_44, x_1, x_2, x_3); +x_47 = lean::cnstr_get(x_46, 0); +lean::inc(x_47); +x_49 = lean::cnstr_get(x_46, 1); lean::inc(x_49); -x_51 = lean::cnstr_get(x_47, 1); -lean::inc(x_51); -lean::dec(x_47); -x_54 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_55 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_54, x_49); -if (lean::obj_tag(x_55) == 0) +lean::dec(x_46); +x_52 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_52, x_47); +if (lean::obj_tag(x_53) == 0) { -obj* x_56; obj* x_58; obj* x_61; obj* x_62; obj* x_64; obj* x_67; -x_56 = lean::cnstr_get(x_55, 1); +obj* x_54; obj* x_56; obj* x_59; obj* x_60; obj* x_62; obj* x_65; +x_54 = lean::cnstr_get(x_53, 1); +lean::inc(x_54); +x_56 = lean::cnstr_get(x_53, 2); lean::inc(x_56); -x_58 = lean::cnstr_get(x_55, 2); -lean::inc(x_58); -lean::dec(x_55); -x_61 = l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___spec__10___rarg(x_56, x_51); -x_62 = lean::cnstr_get(x_61, 0); +lean::dec(x_53); +x_59 = l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___spec__10___rarg(x_54, x_49); +x_60 = lean::cnstr_get(x_59, 0); +lean::inc(x_60); +x_62 = lean::cnstr_get(x_59, 1); lean::inc(x_62); -x_64 = lean::cnstr_get(x_61, 1); -lean::inc(x_64); -lean::dec(x_61); -x_67 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_58, x_62); -x_4 = x_67; -x_5 = x_64; +lean::dec(x_59); +x_65 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_56, x_60); +x_4 = x_65; +x_5 = x_62; goto lbl_6; } else { -obj* x_68; uint8 x_70; obj* x_71; obj* x_72; obj* x_73; -x_68 = lean::cnstr_get(x_55, 0); -x_70 = lean::cnstr_get_scalar(x_55, sizeof(void*)*1); -if (lean::is_exclusive(x_55)) { - x_71 = x_55; +obj* x_66; uint8 x_68; obj* x_69; obj* x_70; obj* x_71; +x_66 = lean::cnstr_get(x_53, 0); +x_68 = lean::cnstr_get_scalar(x_53, sizeof(void*)*1); +if (lean::is_exclusive(x_53)) { + x_69 = x_53; } else { - lean::inc(x_68); - lean::dec(x_55); - x_71 = lean::box(0); + lean::inc(x_66); + lean::dec(x_53); + x_69 = lean::box(0); } -if (lean::is_scalar(x_71)) { - x_72 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_69)) { + x_70 = lean::alloc_cnstr(1, 1, 1); } else { - x_72 = x_71; + x_70 = x_69; } -lean::cnstr_set(x_72, 0, x_68); -lean::cnstr_set_scalar(x_72, sizeof(void*)*1, x_70); -x_73 = x_72; -x_4 = x_73; -x_5 = x_51; +lean::cnstr_set(x_70, 0, x_66); +lean::cnstr_set_scalar(x_70, sizeof(void*)*1, x_68); +x_71 = x_70; +x_4 = x_71; +x_5 = x_49; goto lbl_6; } } else { -obj* x_74; obj* x_75; obj* x_76; obj* x_78; obj* x_81; obj* x_82; -x_74 = l_String_OldIterator_next___main(x_2); -x_75 = l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___spec__12___rarg(x_74, x_3); -x_76 = lean::cnstr_get(x_75, 0); +obj* x_72; obj* x_73; obj* x_74; obj* x_76; obj* x_79; obj* x_80; +x_72 = l_String_OldIterator_next___main(x_2); +x_73 = l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___spec__12___rarg(x_72, x_3); +x_74 = lean::cnstr_get(x_73, 0); +lean::inc(x_74); +x_76 = lean::cnstr_get(x_73, 1); lean::inc(x_76); -x_78 = lean::cnstr_get(x_75, 1); -lean::inc(x_78); -lean::dec(x_75); -x_81 = lean::box(0); -x_82 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_81, x_76); -x_4 = x_82; -x_5 = x_78; +lean::dec(x_73); +x_79 = lean::box(0); +x_80 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_79, x_74); +x_4 = x_80; +x_5 = x_76; goto lbl_6; } } @@ -7970,60 +7905,60 @@ lbl_6: { if (lean::obj_tag(x_4) == 0) { -obj* x_83; obj* x_85; obj* x_87; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; -x_83 = lean::cnstr_get(x_4, 1); -x_85 = lean::cnstr_get(x_4, 2); +obj* x_81; obj* x_83; obj* x_85; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; +x_81 = lean::cnstr_get(x_4, 1); +x_83 = lean::cnstr_get(x_4, 2); if (lean::is_exclusive(x_4)) { lean::cnstr_release(x_4, 0); - x_87 = x_4; + x_85 = x_4; } else { + lean::inc(x_81); lean::inc(x_83); - lean::inc(x_85); lean::dec(x_4); - x_87 = lean::box(0); + x_85 = lean::box(0); } -lean::inc(x_83); -x_89 = l_Lean_Parser_mkRawRes(x_0, x_83); -x_90 = l_Lean_Parser_finishCommentBlock___closed__2; -if (lean::is_scalar(x_87)) { - x_91 = lean::alloc_cnstr(0, 3, 0); +lean::inc(x_81); +x_87 = l_Lean_Parser_mkRawRes(x_0, x_81); +x_88 = l_Lean_Parser_finishCommentBlock___closed__2; +if (lean::is_scalar(x_85)) { + x_89 = lean::alloc_cnstr(0, 3, 0); } else { - x_91 = x_87; + x_89 = x_85; } -lean::cnstr_set(x_91, 0, x_89); -lean::cnstr_set(x_91, 1, x_83); -lean::cnstr_set(x_91, 2, x_90); -x_92 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_85, x_91); -x_93 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_93, 0, x_92); -lean::cnstr_set(x_93, 1, x_5); -return x_93; +lean::cnstr_set(x_89, 0, x_87); +lean::cnstr_set(x_89, 1, x_81); +lean::cnstr_set(x_89, 2, x_88); +x_90 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_83, x_89); +x_91 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_91, 0, x_90); +lean::cnstr_set(x_91, 1, x_5); +return x_91; } else { -obj* x_95; uint8 x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; +obj* x_93; uint8 x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; lean::dec(x_0); -x_95 = lean::cnstr_get(x_4, 0); -x_97 = lean::cnstr_get_scalar(x_4, sizeof(void*)*1); +x_93 = lean::cnstr_get(x_4, 0); +x_95 = lean::cnstr_get_scalar(x_4, sizeof(void*)*1); if (lean::is_exclusive(x_4)) { - x_98 = x_4; + x_96 = x_4; } else { - lean::inc(x_95); + lean::inc(x_93); lean::dec(x_4); - x_98 = lean::box(0); + x_96 = lean::box(0); } -if (lean::is_scalar(x_98)) { - x_99 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_96)) { + x_97 = lean::alloc_cnstr(1, 1, 1); } else { - x_99 = x_98; + x_97 = x_96; } -lean::cnstr_set(x_99, 0, x_95); -lean::cnstr_set_scalar(x_99, sizeof(void*)*1, x_97); -x_100 = x_99; -x_101 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_101, 0, x_100); -lean::cnstr_set(x_101, 1, x_5); -return x_101; +lean::cnstr_set(x_97, 0, x_93); +lean::cnstr_set_scalar(x_97, sizeof(void*)*1, x_95); +x_98 = x_97; +x_99 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_99, 0, x_98); +lean::cnstr_set(x_99, 1, x_5); +return x_99; } } } @@ -8402,213 +8337,211 @@ uint8 x_3; x_3 = l_String_OldIterator_hasNext___main(x_1); if (x_3 == 0) { -obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; +obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_14; x_4 = lean::box(0); x_5 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_6 = l_mjoin___rarg___closed__1; x_7 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_5, x_6, x_4, x_4, x_0, x_1, x_2); -lean::dec(x_1); -x_9 = lean::cnstr_get(x_7, 0); -x_11 = lean::cnstr_get(x_7, 1); +x_8 = lean::cnstr_get(x_7, 0); +x_10 = lean::cnstr_get(x_7, 1); if (lean::is_exclusive(x_7)) { lean::cnstr_set(x_7, 0, lean::box(0)); lean::cnstr_set(x_7, 1, lean::box(0)); - x_13 = x_7; + x_12 = x_7; } else { - lean::inc(x_9); - lean::inc(x_11); + lean::inc(x_8); + lean::inc(x_10); lean::dec(x_7); - x_13 = lean::box(0); + x_12 = lean::box(0); } -x_14 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_15 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_9); -if (lean::obj_tag(x_15) == 0) +x_13 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_14 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_13, x_8); +if (lean::obj_tag(x_14) == 0) { -obj* x_17; obj* x_19; obj* x_21; obj* x_24; uint32 x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_30; obj* x_32; obj* x_33; obj* x_34; -lean::dec(x_13); -x_17 = lean::cnstr_get(x_15, 0); -lean::inc(x_17); -x_19 = lean::cnstr_get(x_15, 1); -lean::inc(x_19); -x_21 = lean::cnstr_get(x_15, 2); -lean::inc(x_21); -lean::dec(x_15); -x_24 = l_String_splitAux___main___closed__1; -x_25 = lean::unbox_uint32(x_17); -x_26 = lean::string_push(x_24, x_25); -x_27 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser___spec__2(x_26, x_0, x_19, x_11); -x_28 = lean::cnstr_get(x_27, 0); -x_30 = lean::cnstr_get(x_27, 1); -if (lean::is_exclusive(x_27)) { - x_32 = x_27; +obj* x_16; obj* x_18; obj* x_20; obj* x_23; uint32 x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +lean::dec(x_12); +x_16 = lean::cnstr_get(x_14, 0); +lean::inc(x_16); +x_18 = lean::cnstr_get(x_14, 1); +lean::inc(x_18); +x_20 = lean::cnstr_get(x_14, 2); +lean::inc(x_20); +lean::dec(x_14); +x_23 = l_String_splitAux___main___closed__1; +x_24 = lean::unbox_uint32(x_16); +x_25 = lean::string_push(x_23, x_24); +x_26 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser___spec__2(x_25, x_0, x_18, x_10); +x_27 = lean::cnstr_get(x_26, 0); +x_29 = lean::cnstr_get(x_26, 1); +if (lean::is_exclusive(x_26)) { + x_31 = x_26; } else { - lean::inc(x_28); - lean::inc(x_30); - lean::dec(x_27); - x_32 = lean::box(0); + lean::inc(x_27); + lean::inc(x_29); + lean::dec(x_26); + x_31 = lean::box(0); } -x_33 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_28); -if (lean::is_scalar(x_32)) { - x_34 = lean::alloc_cnstr(0, 2, 0); +x_32 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_27); +if (lean::is_scalar(x_31)) { + x_33 = lean::alloc_cnstr(0, 2, 0); } else { - x_34 = x_32; + x_33 = x_31; } -lean::cnstr_set(x_34, 0, x_33); -lean::cnstr_set(x_34, 1, x_30); -return x_34; +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_29); +return x_33; } else { -obj* x_35; uint8 x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_35 = lean::cnstr_get(x_15, 0); -x_37 = lean::cnstr_get_scalar(x_15, sizeof(void*)*1); -if (lean::is_exclusive(x_15)) { - x_38 = x_15; +obj* x_34; uint8 x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_34 = lean::cnstr_get(x_14, 0); +x_36 = lean::cnstr_get_scalar(x_14, sizeof(void*)*1); +if (lean::is_exclusive(x_14)) { + x_37 = x_14; } else { - lean::inc(x_35); - lean::dec(x_15); - x_38 = lean::box(0); + lean::inc(x_34); + lean::dec(x_14); + x_37 = lean::box(0); } -if (lean::is_scalar(x_38)) { - x_39 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(1, 1, 1); } else { - x_39 = x_38; + x_38 = x_37; } -lean::cnstr_set(x_39, 0, x_35); -lean::cnstr_set_scalar(x_39, sizeof(void*)*1, x_37); -x_40 = x_39; -if (lean::is_scalar(x_13)) { - x_41 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_38, 0, x_34); +lean::cnstr_set_scalar(x_38, sizeof(void*)*1, x_36); +x_39 = x_38; +if (lean::is_scalar(x_12)) { + x_40 = lean::alloc_cnstr(0, 2, 0); } else { - x_41 = x_13; + x_40 = x_12; } -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_11); -return x_41; +lean::cnstr_set(x_40, 0, x_39); +lean::cnstr_set(x_40, 1, x_10); +return x_40; } } else { -uint32 x_42; uint8 x_43; -x_42 = l_String_OldIterator_curr___main(x_1); -x_43 = l_Lean_isIdEndEscape(x_42); -if (x_43 == 0) +uint32 x_41; uint8 x_42; +x_41 = l_String_OldIterator_curr___main(x_1); +x_42 = l_Lean_isIdEndEscape(x_41); +if (x_42 == 0) { -obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; -x_44 = l_String_OldIterator_next___main(x_1); -x_45 = l_String_splitAux___main___closed__1; -x_46 = lean::string_push(x_45, x_42); -x_47 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser___spec__4(x_46, x_0, x_44, x_2); -x_48 = lean::cnstr_get(x_47, 0); -x_50 = lean::cnstr_get(x_47, 1); -if (lean::is_exclusive(x_47)) { - x_52 = x_47; +obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_49; obj* x_51; obj* x_52; obj* x_53; obj* x_54; +x_43 = l_String_OldIterator_next___main(x_1); +x_44 = l_String_splitAux___main___closed__1; +x_45 = lean::string_push(x_44, x_41); +x_46 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser___spec__4(x_45, x_0, x_43, x_2); +x_47 = lean::cnstr_get(x_46, 0); +x_49 = lean::cnstr_get(x_46, 1); +if (lean::is_exclusive(x_46)) { + x_51 = x_46; } else { - lean::inc(x_48); - lean::inc(x_50); - lean::dec(x_47); - x_52 = lean::box(0); + lean::inc(x_47); + lean::inc(x_49); + lean::dec(x_46); + x_51 = lean::box(0); } -x_53 = lean::box(0); -x_54 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_53, x_48); -if (lean::is_scalar(x_52)) { - x_55 = lean::alloc_cnstr(0, 2, 0); +x_52 = lean::box(0); +x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_52, x_47); +if (lean::is_scalar(x_51)) { + x_54 = lean::alloc_cnstr(0, 2, 0); } else { - x_55 = x_52; + x_54 = x_51; } -lean::cnstr_set(x_55, 0, x_54); -lean::cnstr_set(x_55, 1, x_50); -return x_55; +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_49); +return x_54; } else { -obj* x_56; obj* x_57; obj* x_58; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_65; obj* x_67; obj* x_69; obj* x_70; obj* x_71; -x_56 = l_Char_quoteCore(x_42); -x_57 = l_Char_HasRepr___closed__1; -x_58 = lean::string_append(x_57, x_56); -lean::dec(x_56); -x_60 = lean::string_append(x_58, x_57); -x_61 = lean::box(0); -x_62 = l_mjoin___rarg___closed__1; -x_63 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_60, x_62, x_61, x_61, x_0, x_1, x_2); -lean::dec(x_1); -x_65 = lean::cnstr_get(x_63, 0); -x_67 = lean::cnstr_get(x_63, 1); -if (lean::is_exclusive(x_63)) { - lean::cnstr_set(x_63, 0, lean::box(0)); - lean::cnstr_set(x_63, 1, lean::box(0)); - x_69 = x_63; +obj* x_55; obj* x_56; obj* x_57; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_65; obj* x_67; obj* x_68; obj* x_69; +x_55 = l_Char_quoteCore(x_41); +x_56 = l_Char_HasRepr___closed__1; +x_57 = lean::string_append(x_56, x_55); +lean::dec(x_55); +x_59 = lean::string_append(x_57, x_56); +x_60 = lean::box(0); +x_61 = l_mjoin___rarg___closed__1; +x_62 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_59, x_61, x_60, x_60, x_0, x_1, x_2); +x_63 = lean::cnstr_get(x_62, 0); +x_65 = lean::cnstr_get(x_62, 1); +if (lean::is_exclusive(x_62)) { + lean::cnstr_set(x_62, 0, lean::box(0)); + lean::cnstr_set(x_62, 1, lean::box(0)); + x_67 = x_62; } else { + lean::inc(x_63); lean::inc(x_65); - lean::inc(x_67); - lean::dec(x_63); - x_69 = lean::box(0); + lean::dec(x_62); + x_67 = lean::box(0); } -x_70 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_71 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_70, x_65); -if (lean::obj_tag(x_71) == 0) +x_68 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_69 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_68, x_63); +if (lean::obj_tag(x_69) == 0) { -obj* x_73; obj* x_75; obj* x_77; obj* x_80; uint32 x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_86; obj* x_88; obj* x_89; obj* x_90; -lean::dec(x_69); -x_73 = lean::cnstr_get(x_71, 0); +obj* x_71; obj* x_73; obj* x_75; obj* x_78; uint32 x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_84; obj* x_86; obj* x_87; obj* x_88; +lean::dec(x_67); +x_71 = lean::cnstr_get(x_69, 0); +lean::inc(x_71); +x_73 = lean::cnstr_get(x_69, 1); lean::inc(x_73); -x_75 = lean::cnstr_get(x_71, 1); +x_75 = lean::cnstr_get(x_69, 2); lean::inc(x_75); -x_77 = lean::cnstr_get(x_71, 2); -lean::inc(x_77); -lean::dec(x_71); -x_80 = l_String_splitAux___main___closed__1; -x_81 = lean::unbox_uint32(x_73); -x_82 = lean::string_push(x_80, x_81); -x_83 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser___spec__6(x_82, x_0, x_75, x_67); -x_84 = lean::cnstr_get(x_83, 0); -x_86 = lean::cnstr_get(x_83, 1); -if (lean::is_exclusive(x_83)) { - x_88 = x_83; +lean::dec(x_69); +x_78 = l_String_splitAux___main___closed__1; +x_79 = lean::unbox_uint32(x_71); +x_80 = lean::string_push(x_78, x_79); +x_81 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Parser___spec__6(x_80, x_0, x_73, x_65); +x_82 = lean::cnstr_get(x_81, 0); +x_84 = lean::cnstr_get(x_81, 1); +if (lean::is_exclusive(x_81)) { + x_86 = x_81; } else { + lean::inc(x_82); lean::inc(x_84); - lean::inc(x_86); - lean::dec(x_83); - x_88 = lean::box(0); + lean::dec(x_81); + x_86 = lean::box(0); } -x_89 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_77, x_84); -if (lean::is_scalar(x_88)) { - x_90 = lean::alloc_cnstr(0, 2, 0); +x_87 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_75, x_82); +if (lean::is_scalar(x_86)) { + x_88 = lean::alloc_cnstr(0, 2, 0); } else { - x_90 = x_88; + x_88 = x_86; } -lean::cnstr_set(x_90, 0, x_89); -lean::cnstr_set(x_90, 1, x_86); -return x_90; +lean::cnstr_set(x_88, 0, x_87); +lean::cnstr_set(x_88, 1, x_84); +return x_88; } else { -obj* x_91; uint8 x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; -x_91 = lean::cnstr_get(x_71, 0); -x_93 = lean::cnstr_get_scalar(x_71, sizeof(void*)*1); -if (lean::is_exclusive(x_71)) { - x_94 = x_71; +obj* x_89; uint8 x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; +x_89 = lean::cnstr_get(x_69, 0); +x_91 = lean::cnstr_get_scalar(x_69, sizeof(void*)*1); +if (lean::is_exclusive(x_69)) { + x_92 = x_69; } else { - lean::inc(x_91); - lean::dec(x_71); - x_94 = lean::box(0); + lean::inc(x_89); + lean::dec(x_69); + x_92 = lean::box(0); } -if (lean::is_scalar(x_94)) { - x_95 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_92)) { + x_93 = lean::alloc_cnstr(1, 1, 1); } else { - x_95 = x_94; + x_93 = x_92; } -lean::cnstr_set(x_95, 0, x_91); -lean::cnstr_set_scalar(x_95, sizeof(void*)*1, x_93); -x_96 = x_95; -if (lean::is_scalar(x_69)) { - x_97 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_93, 0, x_89); +lean::cnstr_set_scalar(x_93, sizeof(void*)*1, x_91); +x_94 = x_93; +if (lean::is_scalar(x_67)) { + x_95 = lean::alloc_cnstr(0, 2, 0); } else { - x_97 = x_69; + x_95 = x_67; } -lean::cnstr_set(x_97, 0, x_96); -lean::cnstr_set(x_97, 1, x_67); -return x_97; +lean::cnstr_set(x_95, 0, x_94); +lean::cnstr_set(x_95, 1, x_65); +return x_95; } } } @@ -8935,145 +8868,143 @@ obj* x_4; obj* x_5; uint8 x_7; x_7 = l_String_OldIterator_hasNext___main(x_2); if (x_7 == 0) { -obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_15; obj* x_18; obj* x_19; +obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_17; obj* x_18; x_8 = lean::box(0); x_9 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_10 = l_mjoin___rarg___closed__1; x_11 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_9, x_10, x_8, x_8, x_1, x_2, x_3); -lean::dec(x_2); -x_13 = lean::cnstr_get(x_11, 0); -lean::inc(x_13); -x_15 = lean::cnstr_get(x_11, 1); -lean::inc(x_15); +x_12 = lean::cnstr_get(x_11, 0); +lean::inc(x_12); +x_14 = lean::cnstr_get(x_11, 1); +lean::inc(x_14); lean::dec(x_11); -x_18 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_19 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_13); -if (lean::obj_tag(x_19) == 0) +x_17 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_18 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_12); +if (lean::obj_tag(x_18) == 0) { -obj* x_20; obj* x_22; obj* x_25; obj* x_26; obj* x_28; obj* x_31; -x_20 = lean::cnstr_get(x_19, 1); -lean::inc(x_20); -x_22 = lean::cnstr_get(x_19, 2); -lean::inc(x_22); -lean::dec(x_19); -x_25 = l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser___spec__8___rarg(x_20, x_15); -x_26 = lean::cnstr_get(x_25, 0); -lean::inc(x_26); -x_28 = lean::cnstr_get(x_25, 1); -lean::inc(x_28); -lean::dec(x_25); -x_31 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_26); -x_4 = x_31; -x_5 = x_28; +obj* x_19; obj* x_21; obj* x_24; obj* x_25; obj* x_27; obj* x_30; +x_19 = lean::cnstr_get(x_18, 1); +lean::inc(x_19); +x_21 = lean::cnstr_get(x_18, 2); +lean::inc(x_21); +lean::dec(x_18); +x_24 = l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser___spec__8___rarg(x_19, x_14); +x_25 = lean::cnstr_get(x_24, 0); +lean::inc(x_25); +x_27 = lean::cnstr_get(x_24, 1); +lean::inc(x_27); +lean::dec(x_24); +x_30 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_25); +x_4 = x_30; +x_5 = x_27; goto lbl_6; } else { -obj* x_32; uint8 x_34; obj* x_35; obj* x_36; obj* x_37; -x_32 = lean::cnstr_get(x_19, 0); -x_34 = lean::cnstr_get_scalar(x_19, sizeof(void*)*1); -if (lean::is_exclusive(x_19)) { - x_35 = x_19; +obj* x_31; uint8 x_33; obj* x_34; obj* x_35; obj* x_36; +x_31 = lean::cnstr_get(x_18, 0); +x_33 = lean::cnstr_get_scalar(x_18, sizeof(void*)*1); +if (lean::is_exclusive(x_18)) { + x_34 = x_18; } else { - lean::inc(x_32); - lean::dec(x_19); - x_35 = lean::box(0); + lean::inc(x_31); + lean::dec(x_18); + x_34 = lean::box(0); } -if (lean::is_scalar(x_35)) { - x_36 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_34)) { + x_35 = lean::alloc_cnstr(1, 1, 1); } else { - x_36 = x_35; + x_35 = x_34; } -lean::cnstr_set(x_36, 0, x_32); -lean::cnstr_set_scalar(x_36, sizeof(void*)*1, x_34); -x_37 = x_36; -x_4 = x_37; -x_5 = x_15; +lean::cnstr_set(x_35, 0, x_31); +lean::cnstr_set_scalar(x_35, sizeof(void*)*1, x_33); +x_36 = x_35; +x_4 = x_36; +x_5 = x_14; goto lbl_6; } } else { -uint32 x_38; uint8 x_39; -x_38 = l_String_OldIterator_curr___main(x_2); -x_39 = l_Lean_isIdFirst(x_38); -if (x_39 == 0) +uint32 x_37; uint8 x_38; +x_37 = l_String_OldIterator_curr___main(x_2); +x_38 = l_Lean_isIdFirst(x_37); +if (x_38 == 0) { -obj* x_40; obj* x_41; obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_49; obj* x_51; obj* x_54; obj* x_55; -x_40 = l_Char_quoteCore(x_38); -x_41 = l_Char_HasRepr___closed__1; -x_42 = lean::string_append(x_41, x_40); -lean::dec(x_40); -x_44 = lean::string_append(x_42, x_41); -x_45 = lean::box(0); -x_46 = l_mjoin___rarg___closed__1; -x_47 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_44, x_46, x_45, x_45, x_1, x_2, x_3); -lean::dec(x_2); -x_49 = lean::cnstr_get(x_47, 0); +obj* x_39; obj* x_40; obj* x_41; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_49; obj* x_52; obj* x_53; +x_39 = l_Char_quoteCore(x_37); +x_40 = l_Char_HasRepr___closed__1; +x_41 = lean::string_append(x_40, x_39); +lean::dec(x_39); +x_43 = lean::string_append(x_41, x_40); +x_44 = lean::box(0); +x_45 = l_mjoin___rarg___closed__1; +x_46 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_43, x_45, x_44, x_44, x_1, x_2, x_3); +x_47 = lean::cnstr_get(x_46, 0); +lean::inc(x_47); +x_49 = lean::cnstr_get(x_46, 1); lean::inc(x_49); -x_51 = lean::cnstr_get(x_47, 1); -lean::inc(x_51); -lean::dec(x_47); -x_54 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_55 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_54, x_49); -if (lean::obj_tag(x_55) == 0) +lean::dec(x_46); +x_52 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_52, x_47); +if (lean::obj_tag(x_53) == 0) { -obj* x_56; obj* x_58; obj* x_61; obj* x_62; obj* x_64; obj* x_67; -x_56 = lean::cnstr_get(x_55, 1); +obj* x_54; obj* x_56; obj* x_59; obj* x_60; obj* x_62; obj* x_65; +x_54 = lean::cnstr_get(x_53, 1); +lean::inc(x_54); +x_56 = lean::cnstr_get(x_53, 2); lean::inc(x_56); -x_58 = lean::cnstr_get(x_55, 2); -lean::inc(x_58); -lean::dec(x_55); -x_61 = l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser___spec__10___rarg(x_56, x_51); -x_62 = lean::cnstr_get(x_61, 0); +lean::dec(x_53); +x_59 = l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser___spec__10___rarg(x_54, x_49); +x_60 = lean::cnstr_get(x_59, 0); +lean::inc(x_60); +x_62 = lean::cnstr_get(x_59, 1); lean::inc(x_62); -x_64 = lean::cnstr_get(x_61, 1); -lean::inc(x_64); -lean::dec(x_61); -x_67 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_58, x_62); -x_4 = x_67; -x_5 = x_64; +lean::dec(x_59); +x_65 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_56, x_60); +x_4 = x_65; +x_5 = x_62; goto lbl_6; } else { -obj* x_68; uint8 x_70; obj* x_71; obj* x_72; obj* x_73; -x_68 = lean::cnstr_get(x_55, 0); -x_70 = lean::cnstr_get_scalar(x_55, sizeof(void*)*1); -if (lean::is_exclusive(x_55)) { - x_71 = x_55; +obj* x_66; uint8 x_68; obj* x_69; obj* x_70; obj* x_71; +x_66 = lean::cnstr_get(x_53, 0); +x_68 = lean::cnstr_get_scalar(x_53, sizeof(void*)*1); +if (lean::is_exclusive(x_53)) { + x_69 = x_53; } else { - lean::inc(x_68); - lean::dec(x_55); - x_71 = lean::box(0); + lean::inc(x_66); + lean::dec(x_53); + x_69 = lean::box(0); } -if (lean::is_scalar(x_71)) { - x_72 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_69)) { + x_70 = lean::alloc_cnstr(1, 1, 1); } else { - x_72 = x_71; + x_70 = x_69; } -lean::cnstr_set(x_72, 0, x_68); -lean::cnstr_set_scalar(x_72, sizeof(void*)*1, x_70); -x_73 = x_72; -x_4 = x_73; -x_5 = x_51; +lean::cnstr_set(x_70, 0, x_66); +lean::cnstr_set_scalar(x_70, sizeof(void*)*1, x_68); +x_71 = x_70; +x_4 = x_71; +x_5 = x_49; goto lbl_6; } } else { -obj* x_74; obj* x_75; obj* x_76; obj* x_78; obj* x_81; obj* x_82; -x_74 = l_String_OldIterator_next___main(x_2); -x_75 = l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser___spec__12___rarg(x_74, x_3); -x_76 = lean::cnstr_get(x_75, 0); +obj* x_72; obj* x_73; obj* x_74; obj* x_76; obj* x_79; obj* x_80; +x_72 = l_String_OldIterator_next___main(x_2); +x_73 = l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser___spec__12___rarg(x_72, x_3); +x_74 = lean::cnstr_get(x_73, 0); +lean::inc(x_74); +x_76 = lean::cnstr_get(x_73, 1); lean::inc(x_76); -x_78 = lean::cnstr_get(x_75, 1); -lean::inc(x_78); -lean::dec(x_75); -x_81 = lean::box(0); -x_82 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_81, x_76); -x_4 = x_82; -x_5 = x_78; +lean::dec(x_73); +x_79 = lean::box(0); +x_80 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_79, x_74); +x_4 = x_80; +x_5 = x_76; goto lbl_6; } } @@ -9081,60 +9012,60 @@ lbl_6: { if (lean::obj_tag(x_4) == 0) { -obj* x_83; obj* x_85; obj* x_87; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; -x_83 = lean::cnstr_get(x_4, 1); -x_85 = lean::cnstr_get(x_4, 2); +obj* x_81; obj* x_83; obj* x_85; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; +x_81 = lean::cnstr_get(x_4, 1); +x_83 = lean::cnstr_get(x_4, 2); if (lean::is_exclusive(x_4)) { lean::cnstr_release(x_4, 0); - x_87 = x_4; + x_85 = x_4; } else { + lean::inc(x_81); lean::inc(x_83); - lean::inc(x_85); lean::dec(x_4); - x_87 = lean::box(0); + x_85 = lean::box(0); } -lean::inc(x_83); -x_89 = l_Lean_Parser_mkRawRes(x_0, x_83); -x_90 = l_Lean_Parser_finishCommentBlock___closed__2; -if (lean::is_scalar(x_87)) { - x_91 = lean::alloc_cnstr(0, 3, 0); +lean::inc(x_81); +x_87 = l_Lean_Parser_mkRawRes(x_0, x_81); +x_88 = l_Lean_Parser_finishCommentBlock___closed__2; +if (lean::is_scalar(x_85)) { + x_89 = lean::alloc_cnstr(0, 3, 0); } else { - x_91 = x_87; + x_89 = x_85; } -lean::cnstr_set(x_91, 0, x_89); -lean::cnstr_set(x_91, 1, x_83); -lean::cnstr_set(x_91, 2, x_90); -x_92 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_85, x_91); -x_93 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_93, 0, x_92); -lean::cnstr_set(x_93, 1, x_5); -return x_93; +lean::cnstr_set(x_89, 0, x_87); +lean::cnstr_set(x_89, 1, x_81); +lean::cnstr_set(x_89, 2, x_88); +x_90 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_83, x_89); +x_91 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_91, 0, x_90); +lean::cnstr_set(x_91, 1, x_5); +return x_91; } else { -obj* x_95; uint8 x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; +obj* x_93; uint8 x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; lean::dec(x_0); -x_95 = lean::cnstr_get(x_4, 0); -x_97 = lean::cnstr_get_scalar(x_4, sizeof(void*)*1); +x_93 = lean::cnstr_get(x_4, 0); +x_95 = lean::cnstr_get_scalar(x_4, sizeof(void*)*1); if (lean::is_exclusive(x_4)) { - x_98 = x_4; + x_96 = x_4; } else { - lean::inc(x_95); + lean::inc(x_93); lean::dec(x_4); - x_98 = lean::box(0); + x_96 = lean::box(0); } -if (lean::is_scalar(x_98)) { - x_99 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_96)) { + x_97 = lean::alloc_cnstr(1, 1, 1); } else { - x_99 = x_98; + x_97 = x_96; } -lean::cnstr_set(x_99, 0, x_95); -lean::cnstr_set_scalar(x_99, sizeof(void*)*1, x_97); -x_100 = x_99; -x_101 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_101, 0, x_100); -lean::cnstr_set(x_101, 1, x_5); -return x_101; +lean::cnstr_set(x_97, 0, x_93); +lean::cnstr_set_scalar(x_97, sizeof(void*)*1, x_95); +x_98 = x_97; +x_99 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_99, 0, x_98); +lean::cnstr_set(x_99, 1, x_5); +return x_99; } } } @@ -9494,7 +9425,7 @@ lean::cnstr_set(x_7, 1, x_6); if (lean::obj_tag(x_1) == 0) { obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_8 = l_Lean_Parser_raw_view___rarg___lambda__2___closed__1; +x_8 = lean::box(3); x_9 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_9, 0, x_8); lean::cnstr_set(x_9, 1, x_7); @@ -9504,32 +9435,18 @@ return x_11; } else { -obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; x_12 = lean::cnstr_get(x_1, 0); -if (lean::is_exclusive(x_1)) { - x_14 = x_1; -} else { - lean::inc(x_12); - lean::dec(x_1); - x_14 = lean::box(0); -} +lean::inc(x_12); +lean::dec(x_1); x_15 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_15, 0, x_12); -if (lean::is_scalar(x_14)) { - x_16 = lean::alloc_cnstr(1, 1, 0); -} else { - x_16 = x_14; -} +x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_15); -x_17 = lean::box(3); -x_18 = l_Option_getOrElse___main___rarg(x_16, x_17); -lean::dec(x_16); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_18); -lean::cnstr_set(x_20, 1, x_7); -x_21 = l_Lean_Parser_detailIdentSuffix; -x_22 = l_Lean_Parser_Syntax_mkNode(x_21, x_20); -return x_22; +lean::cnstr_set(x_16, 1, x_7); +x_17 = l_Lean_Parser_detailIdentSuffix; +x_18 = l_Lean_Parser_Syntax_mkNode(x_17, x_16); +return x_18; } } } @@ -9556,22 +9473,46 @@ return x_0; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { _start: { -obj* x_8; obj* x_9; uint8 x_10; obj* x_11; obj* x_12; obj* x_13; -x_8 = l_Option_getOrElse___main___rarg(x_2, x_6); -x_9 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -lean::cnstr_set(x_9, 2, x_1); -lean::cnstr_set(x_9, 3, x_3); -x_10 = 0; -x_11 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_11, 0, x_9); -lean::cnstr_set_scalar(x_11, sizeof(void*)*1, x_10); -x_12 = x_11; -x_13 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_13, 0, x_12); -lean::cnstr_set(x_13, 1, x_7); -return x_13; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_8; uint8 x_9; obj* x_10; obj* x_11; obj* x_12; +x_8 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_8, 0, x_6); +lean::cnstr_set(x_8, 1, x_0); +lean::cnstr_set(x_8, 2, x_1); +lean::cnstr_set(x_8, 3, x_3); +x_9 = 0; +x_10 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_10, 0, x_8); +lean::cnstr_set_scalar(x_10, sizeof(void*)*1, x_9); +x_11 = x_10; +x_12 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_7); +return x_12; +} +else +{ +obj* x_14; obj* x_17; uint8 x_18; obj* x_19; obj* x_20; obj* x_21; +lean::dec(x_6); +x_14 = lean::cnstr_get(x_2, 0); +lean::inc(x_14); +lean::dec(x_2); +x_17 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_17, 0, x_14); +lean::cnstr_set(x_17, 1, x_0); +lean::cnstr_set(x_17, 2, x_1); +lean::cnstr_set(x_17, 3, x_3); +x_18 = 0; +x_19 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_19, 0, x_17); +lean::cnstr_set_scalar(x_19, sizeof(void*)*1, x_18); +x_20 = x_19; +x_21 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_21, 0, x_20); +lean::cnstr_set(x_21, 1, x_7); +return x_21; +} } } obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__2(obj* x_0) { @@ -9589,85 +9530,83 @@ uint8 x_5; x_5 = l_String_OldIterator_hasNext___main(x_3); if (x_5 == 0) { -obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; +obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; x_6 = lean::box(0); x_7 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_8 = l_mjoin___rarg___closed__1; x_9 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__2___rarg(x_7, x_8, x_6, x_6, x_1, x_2, x_3, x_4); -lean::dec(x_3); -x_11 = lean::cnstr_get(x_9, 0); -x_13 = lean::cnstr_get(x_9, 1); +x_10 = lean::cnstr_get(x_9, 0); +x_12 = lean::cnstr_get(x_9, 1); if (lean::is_exclusive(x_9)) { - x_15 = x_9; + x_14 = x_9; } else { - lean::inc(x_11); - lean::inc(x_13); + lean::inc(x_10); + lean::inc(x_12); lean::dec(x_9); - x_15 = lean::box(0); + x_14 = lean::box(0); } -x_16 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_17 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_11); -if (lean::is_scalar(x_15)) { - x_18 = lean::alloc_cnstr(0, 2, 0); +x_15 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_16 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_10); +if (lean::is_scalar(x_14)) { + x_17 = lean::alloc_cnstr(0, 2, 0); } else { - x_18 = x_15; + x_17 = x_14; } -lean::cnstr_set(x_18, 0, x_17); -lean::cnstr_set(x_18, 1, x_13); -return x_18; +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_12); +return x_17; } else { -uint32 x_19; uint8 x_20; -x_19 = l_String_OldIterator_curr___main(x_3); -x_20 = x_19 == x_0; -if (x_20 == 0) +uint32 x_18; uint8 x_19; +x_18 = l_String_OldIterator_curr___main(x_3); +x_19 = x_18 == x_0; +if (x_19 == 0) { -obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; -x_21 = l_Char_quoteCore(x_19); -x_22 = l_Char_HasRepr___closed__1; -x_23 = lean::string_append(x_22, x_21); -lean::dec(x_21); -x_25 = lean::string_append(x_23, x_22); -x_26 = lean::box(0); -x_27 = l_mjoin___rarg___closed__1; -x_28 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__2___rarg(x_25, x_27, x_26, x_26, x_1, x_2, x_3, x_4); -lean::dec(x_3); -x_30 = lean::cnstr_get(x_28, 0); -x_32 = lean::cnstr_get(x_28, 1); -if (lean::is_exclusive(x_28)) { - x_34 = x_28; +obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; +x_20 = l_Char_quoteCore(x_18); +x_21 = l_Char_HasRepr___closed__1; +x_22 = lean::string_append(x_21, x_20); +lean::dec(x_20); +x_24 = lean::string_append(x_22, x_21); +x_25 = lean::box(0); +x_26 = l_mjoin___rarg___closed__1; +x_27 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__2___rarg(x_24, x_26, x_25, x_25, x_1, x_2, x_3, x_4); +x_28 = lean::cnstr_get(x_27, 0); +x_30 = lean::cnstr_get(x_27, 1); +if (lean::is_exclusive(x_27)) { + x_32 = x_27; } else { + lean::inc(x_28); lean::inc(x_30); - lean::inc(x_32); - lean::dec(x_28); - x_34 = lean::box(0); + lean::dec(x_27); + x_32 = lean::box(0); } -x_35 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_36 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_35, x_30); -if (lean::is_scalar(x_34)) { - x_37 = lean::alloc_cnstr(0, 2, 0); +x_33 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_34 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_33, x_28); +if (lean::is_scalar(x_32)) { + x_35 = lean::alloc_cnstr(0, 2, 0); } else { - x_37 = x_34; + x_35 = x_32; } -lean::cnstr_set(x_37, 0, x_36); -lean::cnstr_set(x_37, 1, x_32); -return x_37; +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_30); +return x_35; } else { -obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; -x_38 = l_String_OldIterator_next___main(x_3); -x_39 = lean::box(0); -x_40 = lean::box_uint32(x_19); -x_41 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_38); -lean::cnstr_set(x_41, 2, x_39); -x_42 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_42, 0, x_41); -lean::cnstr_set(x_42, 1, x_4); -return x_42; +obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_36 = l_String_OldIterator_next___main(x_3); +x_37 = lean::box(0); +x_38 = lean::box_uint32(x_18); +x_39 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_36); +lean::cnstr_set(x_39, 2, x_37); +x_40 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_40, 0, x_39); +lean::cnstr_set(x_40, 1, x_4); +return x_40; } } } @@ -9733,74 +9672,72 @@ lean::dec(x_23); x_38 = l_String_OldIterator_hasNext___main(x_15); if (x_38 == 0) { -obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_45; obj* x_47; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_46; obj* x_49; obj* x_50; obj* x_51; obj* x_52; lean::dec(x_19); x_40 = lean::box(0); x_41 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_42 = l_mjoin___rarg___closed__1; x_43 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__2___rarg(x_41, x_42, x_40, x_40, x_1, x_2, x_15, x_32); -lean::dec(x_15); -x_45 = lean::cnstr_get(x_43, 0); -lean::inc(x_45); -x_47 = lean::cnstr_get(x_43, 1); -lean::inc(x_47); +x_44 = lean::cnstr_get(x_43, 0); +lean::inc(x_44); +x_46 = lean::cnstr_get(x_43, 1); +lean::inc(x_46); lean::dec(x_43); -x_50 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_50, x_45); -x_52 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_35, x_51); -x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_52); -x_5 = x_53; -x_6 = x_47; +x_49 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_50 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_49, x_44); +x_51 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_35, x_50); +x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_51); +x_5 = x_52; +x_6 = x_46; goto lbl_7; } else { -uint32 x_54; uint8 x_55; -x_54 = l_String_OldIterator_curr___main(x_15); -x_55 = l_Lean_isIdFirst(x_54); -if (x_55 == 0) +uint32 x_53; uint8 x_54; +x_53 = l_String_OldIterator_curr___main(x_15); +x_54 = l_Lean_isIdFirst(x_53); +if (x_54 == 0) { -obj* x_57; obj* x_58; obj* x_59; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_66; obj* x_68; obj* x_71; obj* x_72; obj* x_73; obj* x_74; +obj* x_56; obj* x_57; obj* x_58; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_66; obj* x_69; obj* x_70; obj* x_71; obj* x_72; lean::dec(x_19); -x_57 = l_Char_quoteCore(x_54); -x_58 = l_Char_HasRepr___closed__1; -x_59 = lean::string_append(x_58, x_57); -lean::dec(x_57); -x_61 = lean::string_append(x_59, x_58); -x_62 = lean::box(0); -x_63 = l_mjoin___rarg___closed__1; -x_64 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__2___rarg(x_61, x_63, x_62, x_62, x_1, x_2, x_15, x_32); -lean::dec(x_15); -x_66 = lean::cnstr_get(x_64, 0); +x_56 = l_Char_quoteCore(x_53); +x_57 = l_Char_HasRepr___closed__1; +x_58 = lean::string_append(x_57, x_56); +lean::dec(x_56); +x_60 = lean::string_append(x_58, x_57); +x_61 = lean::box(0); +x_62 = l_mjoin___rarg___closed__1; +x_63 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__2___rarg(x_60, x_62, x_61, x_61, x_1, x_2, x_15, x_32); +x_64 = lean::cnstr_get(x_63, 0); +lean::inc(x_64); +x_66 = lean::cnstr_get(x_63, 1); lean::inc(x_66); -x_68 = lean::cnstr_get(x_64, 1); -lean::inc(x_68); -lean::dec(x_64); -x_71 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_72 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_71, x_66); -x_73 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_35, x_72); -x_74 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_73); -x_5 = x_74; -x_6 = x_68; +lean::dec(x_63); +x_69 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_70 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_69, x_64); +x_71 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_35, x_70); +x_72 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_71); +x_5 = x_72; +x_6 = x_66; goto lbl_7; } else { -obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; +obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; lean::dec(x_35); -x_76 = l_String_OldIterator_next___main(x_15); -x_77 = lean::box(0); -x_78 = lean::box_uint32(x_54); +x_74 = l_String_OldIterator_next___main(x_15); +x_75 = lean::box(0); +x_76 = lean::box_uint32(x_53); if (lean::is_scalar(x_19)) { - x_79 = lean::alloc_cnstr(0, 3, 0); + x_77 = lean::alloc_cnstr(0, 3, 0); } else { - x_79 = x_19; + x_77 = x_19; } -lean::cnstr_set(x_79, 0, x_78); -lean::cnstr_set(x_79, 1, x_76); -lean::cnstr_set(x_79, 2, x_77); -x_80 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_79); -x_5 = x_80; +lean::cnstr_set(x_77, 0, x_76); +lean::cnstr_set(x_77, 1, x_74); +lean::cnstr_set(x_77, 2, x_75); +x_78 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_77); +x_5 = x_78; x_6 = x_32; goto lbl_7; } @@ -9808,83 +9745,83 @@ goto lbl_7; } else { -obj* x_83; obj* x_86; +obj* x_81; obj* x_84; lean::dec(x_15); lean::dec(x_19); -x_83 = lean::cnstr_get(x_22, 1); -lean::inc(x_83); +x_81 = lean::cnstr_get(x_22, 1); +lean::inc(x_81); lean::dec(x_22); -x_86 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_23); -x_5 = x_86; -x_6 = x_83; +x_84 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_23); +x_5 = x_84; +x_6 = x_81; goto lbl_7; } } } else { -obj* x_87; obj* x_90; uint8 x_92; obj* x_93; obj* x_94; obj* x_95; -x_87 = lean::cnstr_get(x_9, 1); -lean::inc(x_87); +obj* x_85; obj* x_88; uint8 x_90; obj* x_91; obj* x_92; obj* x_93; +x_85 = lean::cnstr_get(x_9, 1); +lean::inc(x_85); lean::dec(x_9); -x_90 = lean::cnstr_get(x_10, 0); -x_92 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); +x_88 = lean::cnstr_get(x_10, 0); +x_90 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); if (lean::is_exclusive(x_10)) { - x_93 = x_10; + x_91 = x_10; } else { - lean::inc(x_90); + lean::inc(x_88); lean::dec(x_10); - x_93 = lean::box(0); + x_91 = lean::box(0); } -if (lean::is_scalar(x_93)) { - x_94 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_91)) { + x_92 = lean::alloc_cnstr(1, 1, 1); } else { - x_94 = x_93; + x_92 = x_91; } -lean::cnstr_set(x_94, 0, x_90); -lean::cnstr_set_scalar(x_94, sizeof(void*)*1, x_92); -x_95 = x_94; -x_5 = x_95; -x_6 = x_87; +lean::cnstr_set(x_92, 0, x_88); +lean::cnstr_set_scalar(x_92, sizeof(void*)*1, x_90); +x_93 = x_92; +x_5 = x_93; +x_6 = x_85; goto lbl_7; } lbl_7: { if (lean::obj_tag(x_5) == 0) { -obj* x_96; obj* x_98; obj* x_99; obj* x_100; obj* x_101; -x_96 = lean::cnstr_get(x_5, 0); +obj* x_94; obj* x_96; obj* x_97; obj* x_98; obj* x_99; +x_94 = lean::cnstr_get(x_5, 0); if (lean::is_exclusive(x_5)) { lean::cnstr_release(x_5, 1); lean::cnstr_release(x_5, 2); - x_98 = x_5; + x_96 = x_5; } else { - lean::inc(x_96); + lean::inc(x_94); lean::dec(x_5); - x_98 = lean::box(0); + x_96 = lean::box(0); } -x_99 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_98)) { - x_100 = lean::alloc_cnstr(0, 3, 0); +x_97 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_96)) { + x_98 = lean::alloc_cnstr(0, 3, 0); } else { - x_100 = x_98; + x_98 = x_96; } -lean::cnstr_set(x_100, 0, x_96); -lean::cnstr_set(x_100, 1, x_3); -lean::cnstr_set(x_100, 2, x_99); -x_101 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_101, 0, x_100); -lean::cnstr_set(x_101, 1, x_6); -return x_101; +lean::cnstr_set(x_98, 0, x_94); +lean::cnstr_set(x_98, 1, x_3); +lean::cnstr_set(x_98, 2, x_97); +x_99 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_99, 0, x_98); +lean::cnstr_set(x_99, 1, x_6); +return x_99; } else { -obj* x_103; +obj* x_101; lean::dec(x_3); -x_103 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_103, 0, x_5); -lean::cnstr_set(x_103, 1, x_6); -return x_103; +x_101 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_101, 0, x_5); +lean::cnstr_set(x_101, 1, x_6); +return x_101; } } } @@ -10194,203 +10131,278 @@ goto lbl_20; } else { -obj* x_48; obj* x_51; obj* x_53; obj* x_54; obj* x_56; obj* x_59; obj* x_60; obj* x_62; obj* x_64; obj* x_67; obj* x_69; obj* x_70; obj* x_71; -x_48 = lean::cnstr_get(x_23, 1); -lean::inc(x_48); -lean::dec(x_23); -x_51 = lean::cnstr_get(x_24, 0); +obj* x_48; obj* x_50; obj* x_51; +x_48 = lean::cnstr_get(x_24, 0); if (lean::is_exclusive(x_24)) { lean::cnstr_set(x_24, 0, lean::box(0)); - x_53 = x_24; + x_50 = x_24; } else { - lean::inc(x_51); + lean::inc(x_48); lean::dec(x_24); - x_53 = lean::box(0); + x_50 = lean::box(0); } -x_54 = lean::cnstr_get(x_51, 3); -lean::inc(x_54); -x_56 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_54); -lean::dec(x_54); -lean::inc(x_1); -x_59 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_59, 0, x_56); -lean::cnstr_set(x_59, 1, x_1); -x_60 = lean::cnstr_get(x_51, 0); +x_51 = lean::cnstr_get(x_48, 3); +lean::inc(x_51); +if (lean::obj_tag(x_51) == 0) +{ +obj* x_53; obj* x_56; obj* x_58; obj* x_60; obj* x_63; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; +x_53 = lean::cnstr_get(x_23, 1); +lean::inc(x_53); +lean::dec(x_23); +x_56 = lean::cnstr_get(x_48, 0); +lean::inc(x_56); +x_58 = lean::cnstr_get(x_48, 1); +lean::inc(x_58); +x_60 = lean::cnstr_get(x_48, 2); lean::inc(x_60); -x_62 = lean::cnstr_get(x_51, 1); -lean::inc(x_62); -x_64 = lean::cnstr_get(x_51, 2); -lean::inc(x_64); -lean::dec(x_51); -x_67 = l_List_reverse___rarg(x_59); +lean::dec(x_48); +x_63 = lean::box(3); +lean::inc(x_1); +x_65 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_65, 0, x_63); +lean::cnstr_set(x_65, 1, x_1); +x_66 = l_List_reverse___rarg(x_65); lean::inc(x_0); -x_69 = l_Lean_Parser_Syntax_mkNode(x_0, x_67); -x_70 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_70, 0, x_69); -x_71 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_71, 0, x_60); -lean::cnstr_set(x_71, 1, x_62); -lean::cnstr_set(x_71, 2, x_64); -lean::cnstr_set(x_71, 3, x_70); +x_68 = l_Lean_Parser_Syntax_mkNode(x_0, x_66); +x_69 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_69, 0, x_68); +x_70 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_70, 0, x_56); +lean::cnstr_set(x_70, 1, x_58); +lean::cnstr_set(x_70, 2, x_60); +lean::cnstr_set(x_70, 3, x_69); if (x_29 == 0) { -uint8 x_72; obj* x_73; obj* x_74; -x_72 = 0; -if (lean::is_scalar(x_53)) { - x_73 = lean::alloc_cnstr(1, 1, 1); +uint8 x_71; obj* x_72; obj* x_73; +x_71 = 0; +if (lean::is_scalar(x_50)) { + x_72 = lean::alloc_cnstr(1, 1, 1); } else { - x_73 = x_53; + x_72 = x_50; } -lean::cnstr_set(x_73, 0, x_71); -lean::cnstr_set_scalar(x_73, sizeof(void*)*1, x_72); -x_74 = x_73; -x_18 = x_74; -x_19 = x_48; +lean::cnstr_set(x_72, 0, x_70); +lean::cnstr_set_scalar(x_72, sizeof(void*)*1, x_71); +x_73 = x_72; +x_18 = x_73; +x_19 = x_53; goto lbl_20; } else { -uint8 x_75; obj* x_76; obj* x_77; -x_75 = 1; -if (lean::is_scalar(x_53)) { - x_76 = lean::alloc_cnstr(1, 1, 1); +uint8 x_74; obj* x_75; obj* x_76; +x_74 = 1; +if (lean::is_scalar(x_50)) { + x_75 = lean::alloc_cnstr(1, 1, 1); } else { - x_76 = x_53; + x_75 = x_50; } -lean::cnstr_set(x_76, 0, x_71); -lean::cnstr_set_scalar(x_76, sizeof(void*)*1, x_75); -x_77 = x_76; -x_18 = x_77; -x_19 = x_48; +lean::cnstr_set(x_75, 0, x_70); +lean::cnstr_set_scalar(x_75, sizeof(void*)*1, x_74); +x_76 = x_75; +x_18 = x_76; +x_19 = x_53; goto lbl_20; } } +else +{ +obj* x_77; obj* x_80; obj* x_82; obj* x_84; obj* x_87; obj* x_89; obj* x_91; obj* x_92; obj* x_94; obj* x_95; obj* x_96; +x_77 = lean::cnstr_get(x_23, 1); +lean::inc(x_77); +lean::dec(x_23); +x_80 = lean::cnstr_get(x_48, 0); +lean::inc(x_80); +x_82 = lean::cnstr_get(x_48, 1); +lean::inc(x_82); +x_84 = lean::cnstr_get(x_48, 2); +lean::inc(x_84); +lean::dec(x_48); +x_87 = lean::cnstr_get(x_51, 0); +if (lean::is_exclusive(x_51)) { + x_89 = x_51; +} else { + lean::inc(x_87); + lean::dec(x_51); + x_89 = lean::box(0); +} +lean::inc(x_1); +x_91 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_91, 0, x_87); +lean::cnstr_set(x_91, 1, x_1); +x_92 = l_List_reverse___rarg(x_91); +lean::inc(x_0); +x_94 = l_Lean_Parser_Syntax_mkNode(x_0, x_92); +if (lean::is_scalar(x_89)) { + x_95 = lean::alloc_cnstr(1, 1, 0); +} else { + x_95 = x_89; +} +lean::cnstr_set(x_95, 0, x_94); +x_96 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_96, 0, x_80); +lean::cnstr_set(x_96, 1, x_82); +lean::cnstr_set(x_96, 2, x_84); +lean::cnstr_set(x_96, 3, x_95); +if (x_29 == 0) +{ +uint8 x_97; obj* x_98; obj* x_99; +x_97 = 0; +if (lean::is_scalar(x_50)) { + x_98 = lean::alloc_cnstr(1, 1, 1); +} else { + x_98 = x_50; +} +lean::cnstr_set(x_98, 0, x_96); +lean::cnstr_set_scalar(x_98, sizeof(void*)*1, x_97); +x_99 = x_98; +x_18 = x_99; +x_19 = x_77; +goto lbl_20; +} +else +{ +uint8 x_100; obj* x_101; obj* x_102; +x_100 = 1; +if (lean::is_scalar(x_50)) { + x_101 = lean::alloc_cnstr(1, 1, 1); +} else { + x_101 = x_50; +} +lean::cnstr_set(x_101, 0, x_96); +lean::cnstr_set_scalar(x_101, sizeof(void*)*1, x_100); +x_102 = x_101; +x_18 = x_102; +x_19 = x_77; +goto lbl_20; +} +} +} } lbl_20: { if (lean::obj_tag(x_18) == 0) { -obj* x_78; obj* x_80; obj* x_82; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; -x_78 = lean::cnstr_get(x_18, 0); -x_80 = lean::cnstr_get(x_18, 1); -x_82 = lean::cnstr_get(x_18, 2); +obj* x_103; obj* x_105; obj* x_107; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; +x_103 = lean::cnstr_get(x_18, 0); +x_105 = lean::cnstr_get(x_18, 1); +x_107 = lean::cnstr_get(x_18, 2); if (lean::is_exclusive(x_18)) { - x_84 = x_18; + x_109 = x_18; } else { - lean::inc(x_78); - lean::inc(x_80); - lean::inc(x_82); + lean::inc(x_103); + lean::inc(x_105); + lean::inc(x_107); lean::dec(x_18); - x_84 = lean::box(0); + x_109 = lean::box(0); } if (lean::is_scalar(x_17)) { - x_85 = lean::alloc_cnstr(1, 2, 0); + x_110 = lean::alloc_cnstr(1, 2, 0); } else { - x_85 = x_17; + x_110 = x_17; } -lean::cnstr_set(x_85, 0, x_78); -lean::cnstr_set(x_85, 1, x_1); -x_86 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_84)) { - x_87 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_110, 0, x_103); +lean::cnstr_set(x_110, 1, x_1); +x_111 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_109)) { + x_112 = lean::alloc_cnstr(0, 3, 0); } else { - x_87 = x_84; + x_112 = x_109; } -lean::cnstr_set(x_87, 0, x_85); -lean::cnstr_set(x_87, 1, x_80); -lean::cnstr_set(x_87, 2, x_86); -x_88 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_82, x_87); -if (lean::obj_tag(x_88) == 0) +lean::cnstr_set(x_112, 0, x_110); +lean::cnstr_set(x_112, 1, x_105); +lean::cnstr_set(x_112, 2, x_111); +x_113 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_107, x_112); +if (lean::obj_tag(x_113) == 0) { -obj* x_89; obj* x_91; obj* x_93; obj* x_96; obj* x_97; obj* x_99; obj* x_101; obj* x_102; obj* x_103; -x_89 = lean::cnstr_get(x_88, 0); -lean::inc(x_89); -x_91 = lean::cnstr_get(x_88, 1); -lean::inc(x_91); -x_93 = lean::cnstr_get(x_88, 2); -lean::inc(x_93); -lean::dec(x_88); -x_96 = l_List_mfoldl___main___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__9(x_0, x_89, x_15, x_3, x_4, x_91, x_19); -x_97 = lean::cnstr_get(x_96, 0); -x_99 = lean::cnstr_get(x_96, 1); -if (lean::is_exclusive(x_96)) { - x_101 = x_96; +obj* x_114; obj* x_116; obj* x_118; obj* x_121; obj* x_122; obj* x_124; obj* x_126; obj* x_127; obj* x_128; +x_114 = lean::cnstr_get(x_113, 0); +lean::inc(x_114); +x_116 = lean::cnstr_get(x_113, 1); +lean::inc(x_116); +x_118 = lean::cnstr_get(x_113, 2); +lean::inc(x_118); +lean::dec(x_113); +x_121 = l_List_mfoldl___main___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__9(x_0, x_114, x_15, x_3, x_4, x_116, x_19); +x_122 = lean::cnstr_get(x_121, 0); +x_124 = lean::cnstr_get(x_121, 1); +if (lean::is_exclusive(x_121)) { + x_126 = x_121; } else { - lean::inc(x_97); - lean::inc(x_99); - lean::dec(x_96); - x_101 = lean::box(0); + lean::inc(x_122); + lean::inc(x_124); + lean::dec(x_121); + x_126 = lean::box(0); } -x_102 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_93, x_97); -if (lean::is_scalar(x_101)) { - x_103 = lean::alloc_cnstr(0, 2, 0); +x_127 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_118, x_122); +if (lean::is_scalar(x_126)) { + x_128 = lean::alloc_cnstr(0, 2, 0); } else { - x_103 = x_101; + x_128 = x_126; } -lean::cnstr_set(x_103, 0, x_102); -lean::cnstr_set(x_103, 1, x_99); -return x_103; +lean::cnstr_set(x_128, 0, x_127); +lean::cnstr_set(x_128, 1, x_124); +return x_128; } else { -obj* x_108; uint8 x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; +obj* x_133; uint8 x_135; obj* x_136; obj* x_137; obj* x_138; obj* x_139; lean::dec(x_15); lean::dec(x_4); lean::dec(x_3); lean::dec(x_0); -x_108 = lean::cnstr_get(x_88, 0); -x_110 = lean::cnstr_get_scalar(x_88, sizeof(void*)*1); -if (lean::is_exclusive(x_88)) { - x_111 = x_88; +x_133 = lean::cnstr_get(x_113, 0); +x_135 = lean::cnstr_get_scalar(x_113, sizeof(void*)*1); +if (lean::is_exclusive(x_113)) { + x_136 = x_113; } else { - lean::inc(x_108); - lean::dec(x_88); - x_111 = lean::box(0); + lean::inc(x_133); + lean::dec(x_113); + x_136 = lean::box(0); } -if (lean::is_scalar(x_111)) { - x_112 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_136)) { + x_137 = lean::alloc_cnstr(1, 1, 1); } else { - x_112 = x_111; + x_137 = x_136; } -lean::cnstr_set(x_112, 0, x_108); -lean::cnstr_set_scalar(x_112, sizeof(void*)*1, x_110); -x_113 = x_112; -x_114 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_114, 0, x_113); -lean::cnstr_set(x_114, 1, x_19); -return x_114; +lean::cnstr_set(x_137, 0, x_133); +lean::cnstr_set_scalar(x_137, sizeof(void*)*1, x_135); +x_138 = x_137; +x_139 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_139, 0, x_138); +lean::cnstr_set(x_139, 1, x_19); +return x_139; } } else { -obj* x_121; uint8 x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; +obj* x_146; uint8 x_148; obj* x_149; obj* x_150; obj* x_151; obj* x_152; lean::dec(x_15); lean::dec(x_4); lean::dec(x_1); lean::dec(x_3); lean::dec(x_0); lean::dec(x_17); -x_121 = lean::cnstr_get(x_18, 0); -x_123 = lean::cnstr_get_scalar(x_18, sizeof(void*)*1); +x_146 = lean::cnstr_get(x_18, 0); +x_148 = lean::cnstr_get_scalar(x_18, sizeof(void*)*1); if (lean::is_exclusive(x_18)) { - x_124 = x_18; + x_149 = x_18; } else { - lean::inc(x_121); + lean::inc(x_146); lean::dec(x_18); - x_124 = lean::box(0); + x_149 = lean::box(0); } -if (lean::is_scalar(x_124)) { - x_125 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_149)) { + x_150 = lean::alloc_cnstr(1, 1, 1); } else { - x_125 = x_124; + x_150 = x_149; } -lean::cnstr_set(x_125, 0, x_121); -lean::cnstr_set_scalar(x_125, sizeof(void*)*1, x_123); -x_126 = x_125; -x_127 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_127, 0, x_126); -lean::cnstr_set(x_127, 1, x_19); -return x_127; +lean::cnstr_set(x_150, 0, x_146); +lean::cnstr_set_scalar(x_150, sizeof(void*)*1, x_148); +x_151 = x_150; +x_152 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_152, 0, x_151); +lean::cnstr_set(x_152, 1, x_19); +return x_152; } } } @@ -10511,10 +10523,8 @@ _start: { obj* x_8; x_8 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__2___rarg(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7); -lean::dec(x_2); lean::dec(x_4); lean::dec(x_5); -lean::dec(x_6); return x_8; } } @@ -10648,74 +10658,72 @@ lean::dec(x_23); x_38 = l_String_OldIterator_hasNext___main(x_15); if (x_38 == 0) { -obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_45; obj* x_47; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_46; obj* x_49; obj* x_50; obj* x_51; obj* x_52; lean::dec(x_19); x_40 = lean::box(0); x_41 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_42 = l_mjoin___rarg___closed__1; x_43 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__2___rarg(x_41, x_42, x_40, x_40, x_1, x_2, x_15, x_32); -lean::dec(x_15); -x_45 = lean::cnstr_get(x_43, 0); -lean::inc(x_45); -x_47 = lean::cnstr_get(x_43, 1); -lean::inc(x_47); +x_44 = lean::cnstr_get(x_43, 0); +lean::inc(x_44); +x_46 = lean::cnstr_get(x_43, 1); +lean::inc(x_46); lean::dec(x_43); -x_50 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_50, x_45); -x_52 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_35, x_51); -x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_52); -x_5 = x_53; -x_6 = x_47; +x_49 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_50 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_49, x_44); +x_51 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_35, x_50); +x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_51); +x_5 = x_52; +x_6 = x_46; goto lbl_7; } else { -uint32 x_54; uint8 x_55; -x_54 = l_String_OldIterator_curr___main(x_15); -x_55 = l_Lean_isIdFirst(x_54); -if (x_55 == 0) +uint32 x_53; uint8 x_54; +x_53 = l_String_OldIterator_curr___main(x_15); +x_54 = l_Lean_isIdFirst(x_53); +if (x_54 == 0) { -obj* x_57; obj* x_58; obj* x_59; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_66; obj* x_68; obj* x_71; obj* x_72; obj* x_73; obj* x_74; +obj* x_56; obj* x_57; obj* x_58; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_66; obj* x_69; obj* x_70; obj* x_71; obj* x_72; lean::dec(x_19); -x_57 = l_Char_quoteCore(x_54); -x_58 = l_Char_HasRepr___closed__1; -x_59 = lean::string_append(x_58, x_57); -lean::dec(x_57); -x_61 = lean::string_append(x_59, x_58); -x_62 = lean::box(0); -x_63 = l_mjoin___rarg___closed__1; -x_64 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__2___rarg(x_61, x_63, x_62, x_62, x_1, x_2, x_15, x_32); -lean::dec(x_15); -x_66 = lean::cnstr_get(x_64, 0); +x_56 = l_Char_quoteCore(x_53); +x_57 = l_Char_HasRepr___closed__1; +x_58 = lean::string_append(x_57, x_56); +lean::dec(x_56); +x_60 = lean::string_append(x_58, x_57); +x_61 = lean::box(0); +x_62 = l_mjoin___rarg___closed__1; +x_63 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__2___rarg(x_60, x_62, x_61, x_61, x_1, x_2, x_15, x_32); +x_64 = lean::cnstr_get(x_63, 0); +lean::inc(x_64); +x_66 = lean::cnstr_get(x_63, 1); lean::inc(x_66); -x_68 = lean::cnstr_get(x_64, 1); -lean::inc(x_68); -lean::dec(x_64); -x_71 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_72 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_71, x_66); -x_73 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_35, x_72); -x_74 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_73); -x_5 = x_74; -x_6 = x_68; +lean::dec(x_63); +x_69 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_70 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_69, x_64); +x_71 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_35, x_70); +x_72 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_71); +x_5 = x_72; +x_6 = x_66; goto lbl_7; } else { -obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; +obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; lean::dec(x_35); -x_76 = l_String_OldIterator_next___main(x_15); -x_77 = lean::box(0); -x_78 = lean::box_uint32(x_54); +x_74 = l_String_OldIterator_next___main(x_15); +x_75 = lean::box(0); +x_76 = lean::box_uint32(x_53); if (lean::is_scalar(x_19)) { - x_79 = lean::alloc_cnstr(0, 3, 0); + x_77 = lean::alloc_cnstr(0, 3, 0); } else { - x_79 = x_19; + x_77 = x_19; } -lean::cnstr_set(x_79, 0, x_78); -lean::cnstr_set(x_79, 1, x_76); -lean::cnstr_set(x_79, 2, x_77); -x_80 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_79); -x_5 = x_80; +lean::cnstr_set(x_77, 0, x_76); +lean::cnstr_set(x_77, 1, x_74); +lean::cnstr_set(x_77, 2, x_75); +x_78 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_77); +x_5 = x_78; x_6 = x_32; goto lbl_7; } @@ -10723,83 +10731,83 @@ goto lbl_7; } else { -obj* x_83; obj* x_86; +obj* x_81; obj* x_84; lean::dec(x_15); lean::dec(x_19); -x_83 = lean::cnstr_get(x_22, 1); -lean::inc(x_83); +x_81 = lean::cnstr_get(x_22, 1); +lean::inc(x_81); lean::dec(x_22); -x_86 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_23); -x_5 = x_86; -x_6 = x_83; +x_84 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_23); +x_5 = x_84; +x_6 = x_81; goto lbl_7; } } } else { -obj* x_87; obj* x_90; uint8 x_92; obj* x_93; obj* x_94; obj* x_95; -x_87 = lean::cnstr_get(x_9, 1); -lean::inc(x_87); +obj* x_85; obj* x_88; uint8 x_90; obj* x_91; obj* x_92; obj* x_93; +x_85 = lean::cnstr_get(x_9, 1); +lean::inc(x_85); lean::dec(x_9); -x_90 = lean::cnstr_get(x_10, 0); -x_92 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); +x_88 = lean::cnstr_get(x_10, 0); +x_90 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); if (lean::is_exclusive(x_10)) { - x_93 = x_10; + x_91 = x_10; } else { - lean::inc(x_90); + lean::inc(x_88); lean::dec(x_10); - x_93 = lean::box(0); + x_91 = lean::box(0); } -if (lean::is_scalar(x_93)) { - x_94 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_91)) { + x_92 = lean::alloc_cnstr(1, 1, 1); } else { - x_94 = x_93; + x_92 = x_91; } -lean::cnstr_set(x_94, 0, x_90); -lean::cnstr_set_scalar(x_94, sizeof(void*)*1, x_92); -x_95 = x_94; -x_5 = x_95; -x_6 = x_87; +lean::cnstr_set(x_92, 0, x_88); +lean::cnstr_set_scalar(x_92, sizeof(void*)*1, x_90); +x_93 = x_92; +x_5 = x_93; +x_6 = x_85; goto lbl_7; } lbl_7: { if (lean::obj_tag(x_5) == 0) { -obj* x_96; obj* x_98; obj* x_99; obj* x_100; obj* x_101; -x_96 = lean::cnstr_get(x_5, 0); +obj* x_94; obj* x_96; obj* x_97; obj* x_98; obj* x_99; +x_94 = lean::cnstr_get(x_5, 0); if (lean::is_exclusive(x_5)) { lean::cnstr_release(x_5, 1); lean::cnstr_release(x_5, 2); - x_98 = x_5; + x_96 = x_5; } else { - lean::inc(x_96); + lean::inc(x_94); lean::dec(x_5); - x_98 = lean::box(0); + x_96 = lean::box(0); } -x_99 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_98)) { - x_100 = lean::alloc_cnstr(0, 3, 0); +x_97 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_96)) { + x_98 = lean::alloc_cnstr(0, 3, 0); } else { - x_100 = x_98; + x_98 = x_96; } -lean::cnstr_set(x_100, 0, x_96); -lean::cnstr_set(x_100, 1, x_3); -lean::cnstr_set(x_100, 2, x_99); -x_101 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_101, 0, x_100); -lean::cnstr_set(x_101, 1, x_6); -return x_101; +lean::cnstr_set(x_98, 0, x_94); +lean::cnstr_set(x_98, 1, x_3); +lean::cnstr_set(x_98, 2, x_97); +x_99 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_99, 0, x_98); +lean::cnstr_set(x_99, 1, x_6); +return x_99; } else { -obj* x_103; +obj* x_101; lean::dec(x_3); -x_103 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_103, 0, x_5); -lean::cnstr_set(x_103, 1, x_6); -return x_103; +x_101 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_101, 0, x_5); +lean::cnstr_set(x_101, 1, x_6); +return x_101; } } } @@ -11074,74 +11082,72 @@ lean::dec(x_23); x_38 = l_String_OldIterator_hasNext___main(x_15); if (x_38 == 0) { -obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_45; obj* x_47; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_46; obj* x_49; obj* x_50; obj* x_51; obj* x_52; lean::dec(x_19); x_40 = lean::box(0); x_41 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_42 = l_mjoin___rarg___closed__1; x_43 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__2___rarg(x_41, x_42, x_40, x_40, x_0, x_1, x_15, x_32); -lean::dec(x_15); -x_45 = lean::cnstr_get(x_43, 0); -lean::inc(x_45); -x_47 = lean::cnstr_get(x_43, 1); -lean::inc(x_47); +x_44 = lean::cnstr_get(x_43, 0); +lean::inc(x_44); +x_46 = lean::cnstr_get(x_43, 1); +lean::inc(x_46); lean::dec(x_43); -x_50 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_50, x_45); -x_52 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_35, x_51); -x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_52); -x_5 = x_53; -x_6 = x_47; +x_49 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_50 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_49, x_44); +x_51 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_35, x_50); +x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_51); +x_5 = x_52; +x_6 = x_46; goto lbl_7; } else { -uint32 x_54; uint8 x_55; -x_54 = l_String_OldIterator_curr___main(x_15); -x_55 = l_Lean_isIdFirst(x_54); -if (x_55 == 0) +uint32 x_53; uint8 x_54; +x_53 = l_String_OldIterator_curr___main(x_15); +x_54 = l_Lean_isIdFirst(x_53); +if (x_54 == 0) { -obj* x_57; obj* x_58; obj* x_59; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_66; obj* x_68; obj* x_71; obj* x_72; obj* x_73; obj* x_74; +obj* x_56; obj* x_57; obj* x_58; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_66; obj* x_69; obj* x_70; obj* x_71; obj* x_72; lean::dec(x_19); -x_57 = l_Char_quoteCore(x_54); -x_58 = l_Char_HasRepr___closed__1; -x_59 = lean::string_append(x_58, x_57); -lean::dec(x_57); -x_61 = lean::string_append(x_59, x_58); -x_62 = lean::box(0); -x_63 = l_mjoin___rarg___closed__1; -x_64 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__2___rarg(x_61, x_63, x_62, x_62, x_0, x_1, x_15, x_32); -lean::dec(x_15); -x_66 = lean::cnstr_get(x_64, 0); +x_56 = l_Char_quoteCore(x_53); +x_57 = l_Char_HasRepr___closed__1; +x_58 = lean::string_append(x_57, x_56); +lean::dec(x_56); +x_60 = lean::string_append(x_58, x_57); +x_61 = lean::box(0); +x_62 = l_mjoin___rarg___closed__1; +x_63 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__2___rarg(x_60, x_62, x_61, x_61, x_0, x_1, x_15, x_32); +x_64 = lean::cnstr_get(x_63, 0); +lean::inc(x_64); +x_66 = lean::cnstr_get(x_63, 1); lean::inc(x_66); -x_68 = lean::cnstr_get(x_64, 1); -lean::inc(x_68); -lean::dec(x_64); -x_71 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_72 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_71, x_66); -x_73 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_35, x_72); -x_74 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_73); -x_5 = x_74; -x_6 = x_68; +lean::dec(x_63); +x_69 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_70 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_69, x_64); +x_71 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_35, x_70); +x_72 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_71); +x_5 = x_72; +x_6 = x_66; goto lbl_7; } else { -obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; +obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; lean::dec(x_35); -x_76 = l_String_OldIterator_next___main(x_15); -x_77 = lean::box(0); -x_78 = lean::box_uint32(x_54); +x_74 = l_String_OldIterator_next___main(x_15); +x_75 = lean::box(0); +x_76 = lean::box_uint32(x_53); if (lean::is_scalar(x_19)) { - x_79 = lean::alloc_cnstr(0, 3, 0); + x_77 = lean::alloc_cnstr(0, 3, 0); } else { - x_79 = x_19; + x_77 = x_19; } -lean::cnstr_set(x_79, 0, x_78); -lean::cnstr_set(x_79, 1, x_76); -lean::cnstr_set(x_79, 2, x_77); -x_80 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_79); -x_5 = x_80; +lean::cnstr_set(x_77, 0, x_76); +lean::cnstr_set(x_77, 1, x_74); +lean::cnstr_set(x_77, 2, x_75); +x_78 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_77); +x_5 = x_78; x_6 = x_32; goto lbl_7; } @@ -11149,83 +11155,83 @@ goto lbl_7; } else { -obj* x_83; obj* x_86; +obj* x_81; obj* x_84; lean::dec(x_15); lean::dec(x_19); -x_83 = lean::cnstr_get(x_22, 1); -lean::inc(x_83); +x_81 = lean::cnstr_get(x_22, 1); +lean::inc(x_81); lean::dec(x_22); -x_86 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_23); -x_5 = x_86; -x_6 = x_83; +x_84 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_23); +x_5 = x_84; +x_6 = x_81; goto lbl_7; } } } else { -obj* x_87; obj* x_90; uint8 x_92; obj* x_93; obj* x_94; obj* x_95; -x_87 = lean::cnstr_get(x_9, 1); -lean::inc(x_87); +obj* x_85; obj* x_88; uint8 x_90; obj* x_91; obj* x_92; obj* x_93; +x_85 = lean::cnstr_get(x_9, 1); +lean::inc(x_85); lean::dec(x_9); -x_90 = lean::cnstr_get(x_10, 0); -x_92 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); +x_88 = lean::cnstr_get(x_10, 0); +x_90 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); if (lean::is_exclusive(x_10)) { - x_93 = x_10; + x_91 = x_10; } else { - lean::inc(x_90); + lean::inc(x_88); lean::dec(x_10); - x_93 = lean::box(0); + x_91 = lean::box(0); } -if (lean::is_scalar(x_93)) { - x_94 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_91)) { + x_92 = lean::alloc_cnstr(1, 1, 1); } else { - x_94 = x_93; + x_92 = x_91; } -lean::cnstr_set(x_94, 0, x_90); -lean::cnstr_set_scalar(x_94, sizeof(void*)*1, x_92); -x_95 = x_94; -x_5 = x_95; -x_6 = x_87; +lean::cnstr_set(x_92, 0, x_88); +lean::cnstr_set_scalar(x_92, sizeof(void*)*1, x_90); +x_93 = x_92; +x_5 = x_93; +x_6 = x_85; goto lbl_7; } lbl_7: { if (lean::obj_tag(x_5) == 0) { -obj* x_96; obj* x_98; obj* x_99; obj* x_100; obj* x_101; -x_96 = lean::cnstr_get(x_5, 0); +obj* x_94; obj* x_96; obj* x_97; obj* x_98; obj* x_99; +x_94 = lean::cnstr_get(x_5, 0); if (lean::is_exclusive(x_5)) { lean::cnstr_release(x_5, 1); lean::cnstr_release(x_5, 2); - x_98 = x_5; + x_96 = x_5; } else { - lean::inc(x_96); + lean::inc(x_94); lean::dec(x_5); - x_98 = lean::box(0); + x_96 = lean::box(0); } -x_99 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_98)) { - x_100 = lean::alloc_cnstr(0, 3, 0); +x_97 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_96)) { + x_98 = lean::alloc_cnstr(0, 3, 0); } else { - x_100 = x_98; + x_98 = x_96; } -lean::cnstr_set(x_100, 0, x_96); -lean::cnstr_set(x_100, 1, x_3); -lean::cnstr_set(x_100, 2, x_99); -x_101 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_101, 0, x_100); -lean::cnstr_set(x_101, 1, x_6); -return x_101; +lean::cnstr_set(x_98, 0, x_94); +lean::cnstr_set(x_98, 1, x_3); +lean::cnstr_set(x_98, 2, x_97); +x_99 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_99, 0, x_98); +lean::cnstr_set(x_99, 1, x_6); +return x_99; } else { -obj* x_103; +obj* x_101; lean::dec(x_3); -x_103 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_103, 0, x_5); -lean::cnstr_set(x_103, 1, x_6); -return x_103; +x_101 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_101, 0, x_5); +lean::cnstr_set(x_101, 1, x_6); +return x_101; } } } @@ -11790,181 +11796,273 @@ x_15 = lean::cnstr_get(x_14, 0); lean::inc(x_15); if (lean::obj_tag(x_15) == 0) { -if (lean::obj_tag(x_15) == 0) -{ -obj* x_17; obj* x_20; obj* x_22; obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; +obj* x_17; x_17 = lean::cnstr_get(x_14, 1); lean::inc(x_17); lean::dec(x_14); -x_20 = lean::cnstr_get(x_15, 0); -x_22 = lean::cnstr_get(x_15, 1); -x_24 = lean::cnstr_get(x_15, 2); -if (lean::is_exclusive(x_15)) { - x_26 = x_15; -} else { - lean::inc(x_20); - lean::inc(x_22); - lean::inc(x_24); - lean::dec(x_15); - x_26 = lean::box(0); -} -x_27 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_27, 0, x_20); -x_28 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_26)) { - x_29 = lean::alloc_cnstr(0, 3, 0); -} else { - x_29 = x_26; -} -lean::cnstr_set(x_29, 0, x_27); -lean::cnstr_set(x_29, 1, x_22); -lean::cnstr_set(x_29, 2, x_28); -x_30 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_24, x_29); -x_10 = x_30; +x_10 = x_15; x_11 = x_17; goto lbl_12; } else { -obj* x_31; obj* x_34; uint8 x_36; obj* x_37; obj* x_38; obj* x_39; -x_31 = lean::cnstr_get(x_14, 1); -lean::inc(x_31); -lean::dec(x_14); -x_34 = lean::cnstr_get(x_15, 0); -x_36 = lean::cnstr_get_scalar(x_15, sizeof(void*)*1); -if (lean::is_exclusive(x_15)) { - x_37 = x_15; -} else { - lean::inc(x_34); - lean::dec(x_15); - x_37 = lean::box(0); -} -if (lean::is_scalar(x_37)) { - x_38 = lean::alloc_cnstr(1, 1, 1); -} else { - x_38 = x_37; -} -lean::cnstr_set(x_38, 0, x_34); -lean::cnstr_set_scalar(x_38, sizeof(void*)*1, x_36); -x_39 = x_38; -x_10 = x_39; -x_11 = x_31; -goto lbl_12; -} -} -else -{ -obj* x_40; obj* x_43; uint8 x_45; obj* x_46; obj* x_47; obj* x_49; obj* x_51; obj* x_53; obj* x_56; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; -x_40 = lean::cnstr_get(x_14, 1); -lean::inc(x_40); -lean::dec(x_14); -x_43 = lean::cnstr_get(x_15, 0); -x_45 = lean::cnstr_get_scalar(x_15, sizeof(void*)*1); +obj* x_20; uint8 x_22; obj* x_23; obj* x_24; +x_20 = lean::cnstr_get(x_15, 0); +x_22 = lean::cnstr_get_scalar(x_15, sizeof(void*)*1); if (lean::is_exclusive(x_15)) { lean::cnstr_set(x_15, 0, lean::box(0)); - x_46 = x_15; + x_23 = x_15; } else { - lean::inc(x_43); + lean::inc(x_20); lean::dec(x_15); - x_46 = lean::box(0); + x_23 = lean::box(0); } -x_47 = lean::cnstr_get(x_43, 0); -lean::inc(x_47); -x_49 = lean::cnstr_get(x_43, 1); -lean::inc(x_49); -x_51 = lean::cnstr_get(x_43, 2); -lean::inc(x_51); -x_53 = lean::cnstr_get(x_43, 3); -lean::inc(x_53); -lean::dec(x_43); -x_56 = l_Option_get___main___at_Lean_Parser_run___spec__2(x_53); -lean::dec(x_53); -x_58 = lean::box(0); -x_59 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_59, 0, x_56); -lean::cnstr_set(x_59, 1, x_58); -x_60 = l_Lean_Parser_noKind; -x_61 = l_Lean_Parser_Syntax_mkNode(x_60, x_59); -x_62 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_62, 0, x_61); -x_63 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_63, 0, x_47); -lean::cnstr_set(x_63, 1, x_49); -lean::cnstr_set(x_63, 2, x_51); -lean::cnstr_set(x_63, 3, x_62); -if (x_45 == 0) +x_24 = lean::cnstr_get(x_20, 3); +lean::inc(x_24); +if (lean::obj_tag(x_24) == 0) { -uint8 x_64; obj* x_65; obj* x_66; -x_64 = 0; -if (lean::is_scalar(x_46)) { - x_65 = lean::alloc_cnstr(1, 1, 1); +obj* x_26; obj* x_29; obj* x_31; obj* x_33; obj* x_36; obj* x_37; +x_26 = lean::cnstr_get(x_14, 1); +lean::inc(x_26); +lean::dec(x_14); +x_29 = lean::cnstr_get(x_20, 0); +lean::inc(x_29); +x_31 = lean::cnstr_get(x_20, 1); +lean::inc(x_31); +x_33 = lean::cnstr_get(x_20, 2); +lean::inc(x_33); +lean::dec(x_20); +x_36 = l_Lean_Parser_Combinators_optional___rarg___lambda__1___closed__1; +x_37 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_37, 0, x_29); +lean::cnstr_set(x_37, 1, x_31); +lean::cnstr_set(x_37, 2, x_33); +lean::cnstr_set(x_37, 3, x_36); +if (x_22 == 0) +{ +uint8 x_38; obj* x_39; obj* x_40; +x_38 = 0; +if (lean::is_scalar(x_23)) { + x_39 = lean::alloc_cnstr(1, 1, 1); } else { - x_65 = x_46; + x_39 = x_23; } -lean::cnstr_set(x_65, 0, x_63); -lean::cnstr_set_scalar(x_65, sizeof(void*)*1, x_64); -x_66 = x_65; -x_10 = x_66; -x_11 = x_40; +lean::cnstr_set(x_39, 0, x_37); +lean::cnstr_set_scalar(x_39, sizeof(void*)*1, x_38); +x_40 = x_39; +x_10 = x_40; +x_11 = x_26; goto lbl_12; } else { -uint8 x_67; obj* x_68; obj* x_69; -x_67 = 1; -if (lean::is_scalar(x_46)) { - x_68 = lean::alloc_cnstr(1, 1, 1); +uint8 x_41; obj* x_42; obj* x_43; +x_41 = 1; +if (lean::is_scalar(x_23)) { + x_42 = lean::alloc_cnstr(1, 1, 1); } else { - x_68 = x_46; + x_42 = x_23; } -lean::cnstr_set(x_68, 0, x_63); -lean::cnstr_set_scalar(x_68, sizeof(void*)*1, x_67); -x_69 = x_68; -x_10 = x_69; -x_11 = x_40; +lean::cnstr_set(x_42, 0, x_37); +lean::cnstr_set_scalar(x_42, sizeof(void*)*1, x_41); +x_43 = x_42; +x_10 = x_43; +x_11 = x_26; goto lbl_12; } } +else +{ +obj* x_44; obj* x_47; obj* x_49; obj* x_51; obj* x_54; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; +x_44 = lean::cnstr_get(x_14, 1); +lean::inc(x_44); +lean::dec(x_14); +x_47 = lean::cnstr_get(x_20, 0); +lean::inc(x_47); +x_49 = lean::cnstr_get(x_20, 1); +lean::inc(x_49); +x_51 = lean::cnstr_get(x_20, 2); +lean::inc(x_51); +lean::dec(x_20); +x_54 = lean::cnstr_get(x_24, 0); +if (lean::is_exclusive(x_24)) { + x_56 = x_24; +} else { + lean::inc(x_54); + lean::dec(x_24); + x_56 = lean::box(0); +} +x_57 = lean::box(0); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_54); +lean::cnstr_set(x_58, 1, x_57); +x_59 = l_Lean_Parser_noKind; +x_60 = l_Lean_Parser_Syntax_mkNode(x_59, x_58); +if (lean::is_scalar(x_56)) { + x_61 = lean::alloc_cnstr(1, 1, 0); +} else { + x_61 = x_56; +} +lean::cnstr_set(x_61, 0, x_60); +x_62 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_62, 0, x_47); +lean::cnstr_set(x_62, 1, x_49); +lean::cnstr_set(x_62, 2, x_51); +lean::cnstr_set(x_62, 3, x_61); +if (x_22 == 0) +{ +uint8 x_63; obj* x_64; obj* x_65; +x_63 = 0; +if (lean::is_scalar(x_23)) { + x_64 = lean::alloc_cnstr(1, 1, 1); +} else { + x_64 = x_23; +} +lean::cnstr_set(x_64, 0, x_62); +lean::cnstr_set_scalar(x_64, sizeof(void*)*1, x_63); +x_65 = x_64; +x_10 = x_65; +x_11 = x_44; +goto lbl_12; +} +else +{ +uint8 x_66; obj* x_67; obj* x_68; +x_66 = 1; +if (lean::is_scalar(x_23)) { + x_67 = lean::alloc_cnstr(1, 1, 1); +} else { + x_67 = x_23; +} +lean::cnstr_set(x_67, 0, x_62); +lean::cnstr_set_scalar(x_67, sizeof(void*)*1, x_66); +x_68 = x_67; +x_10 = x_68; +x_11 = x_44; +goto lbl_12; +} +} +} lbl_12: { if (lean::obj_tag(x_10) == 0) { +obj* x_69; obj* x_71; obj* x_73; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; +x_69 = lean::cnstr_get(x_10, 0); +x_71 = lean::cnstr_get(x_10, 1); +x_73 = lean::cnstr_get(x_10, 2); +if (lean::is_exclusive(x_10)) { + x_75 = x_10; +} else { + lean::inc(x_69); + lean::inc(x_71); + lean::inc(x_73); + lean::dec(x_10); + x_75 = lean::box(0); +} +x_76 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_76, 0, x_69); +x_77 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_75)) { + x_78 = lean::alloc_cnstr(0, 3, 0); +} else { + x_78 = x_75; +} +lean::cnstr_set(x_78, 0, x_76); +lean::cnstr_set(x_78, 1, x_71); +lean::cnstr_set(x_78, 2, x_77); +x_79 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_73, x_78); +if (lean::obj_tag(x_79) == 0) +{ lean::dec(x_4); -x_6 = x_10; +x_6 = x_79; x_7 = x_11; goto lbl_8; } else { -uint8 x_71; -x_71 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); -if (x_71 == 0) +uint8 x_81; +x_81 = lean::cnstr_get_scalar(x_79, sizeof(void*)*1); +if (x_81 == 0) { -obj* x_72; obj* x_75; obj* x_78; obj* x_79; obj* x_80; obj* x_81; -x_72 = lean::cnstr_get(x_10, 0); -lean::inc(x_72); +obj* x_82; obj* x_85; obj* x_88; obj* x_89; obj* x_90; obj* x_91; +x_82 = lean::cnstr_get(x_79, 0); +lean::inc(x_82); +lean::dec(x_79); +x_85 = lean::cnstr_get(x_82, 2); +lean::inc(x_85); +lean::dec(x_82); +x_88 = l_mjoin___rarg___closed__1; +x_89 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_89, 0, x_85); +lean::closure_set(x_89, 1, x_88); +x_90 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_90, 0, x_89); +x_91 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_91, 0, x_9); +lean::cnstr_set(x_91, 1, x_4); +lean::cnstr_set(x_91, 2, x_90); +x_6 = x_91; +x_7 = x_11; +goto lbl_8; +} +else +{ +lean::dec(x_4); +x_6 = x_79; +x_7 = x_11; +goto lbl_8; +} +} +} +else +{ +uint8 x_93; +x_93 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); +if (x_93 == 0) +{ +obj* x_94; obj* x_97; obj* x_100; obj* x_101; obj* x_102; obj* x_103; +x_94 = lean::cnstr_get(x_10, 0); +lean::inc(x_94); lean::dec(x_10); -x_75 = lean::cnstr_get(x_72, 2); -lean::inc(x_75); -lean::dec(x_72); -x_78 = l_mjoin___rarg___closed__1; -x_79 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_79, 0, x_75); -lean::closure_set(x_79, 1, x_78); -x_80 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_80, 0, x_79); -x_81 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_81, 0, x_9); -lean::cnstr_set(x_81, 1, x_4); -lean::cnstr_set(x_81, 2, x_80); -x_6 = x_81; +x_97 = lean::cnstr_get(x_94, 2); +lean::inc(x_97); +lean::dec(x_94); +x_100 = l_mjoin___rarg___closed__1; +x_101 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); +lean::closure_set(x_101, 0, x_97); +lean::closure_set(x_101, 1, x_100); +x_102 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_102, 0, x_101); +x_103 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_103, 0, x_9); +lean::cnstr_set(x_103, 1, x_4); +lean::cnstr_set(x_103, 2, x_102); +x_6 = x_103; x_7 = x_11; goto lbl_8; } else { +obj* x_105; obj* x_107; obj* x_108; obj* x_109; lean::dec(x_4); -x_6 = x_10; +x_105 = lean::cnstr_get(x_10, 0); +if (lean::is_exclusive(x_10)) { + x_107 = x_10; +} else { + lean::inc(x_105); + lean::dec(x_10); + x_107 = lean::box(0); +} +if (lean::is_scalar(x_107)) { + x_108 = lean::alloc_cnstr(1, 1, 1); +} else { + x_108 = x_107; +} +lean::cnstr_set(x_108, 0, x_105); +lean::cnstr_set_scalar(x_108, sizeof(void*)*1, x_93); +x_109 = x_108; +x_6 = x_109; x_7 = x_11; goto lbl_8; } @@ -11973,110 +12071,110 @@ goto lbl_8; } else { -obj* x_83; -x_83 = lean::apply_4(x_0, x_2, x_3, x_4, x_5); -return x_83; +obj* x_110; +x_110 = lean::apply_4(x_0, x_2, x_3, x_4, x_5); +return x_110; } lbl_8: { if (lean::obj_tag(x_6) == 0) { -obj* x_84; -x_84 = lean::cnstr_get(x_6, 0); -lean::inc(x_84); -if (lean::obj_tag(x_84) == 0) +obj* x_111; +x_111 = lean::cnstr_get(x_6, 0); +lean::inc(x_111); +if (lean::obj_tag(x_111) == 0) { -obj* x_86; obj* x_88; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; -x_86 = lean::cnstr_get(x_6, 1); -x_88 = lean::cnstr_get(x_6, 2); +obj* x_113; obj* x_115; obj* x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; +x_113 = lean::cnstr_get(x_6, 1); +x_115 = lean::cnstr_get(x_6, 2); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); - x_90 = x_6; + x_117 = x_6; } else { - lean::inc(x_86); - lean::inc(x_88); + lean::inc(x_113); + lean::inc(x_115); lean::dec(x_6); - x_90 = lean::box(0); + x_117 = lean::box(0); } -x_91 = l_Lean_Parser_Combinators_many___rarg___closed__1; -x_92 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_90)) { - x_93 = lean::alloc_cnstr(0, 3, 0); +x_118 = l_Lean_Parser_Combinators_many___rarg___closed__1; +x_119 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_117)) { + x_120 = lean::alloc_cnstr(0, 3, 0); } else { - x_93 = x_90; + x_120 = x_117; } -lean::cnstr_set(x_93, 0, x_91); -lean::cnstr_set(x_93, 1, x_86); -lean::cnstr_set(x_93, 2, x_92); -x_94 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_88, x_93); -x_95 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_95, 0, x_94); -lean::cnstr_set(x_95, 1, x_7); -return x_95; +lean::cnstr_set(x_120, 0, x_118); +lean::cnstr_set(x_120, 1, x_113); +lean::cnstr_set(x_120, 2, x_119); +x_121 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_115, x_120); +x_122 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_122, 0, x_121); +lean::cnstr_set(x_122, 1, x_7); +return x_122; } else { -obj* x_96; obj* x_98; obj* x_100; obj* x_101; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; -x_96 = lean::cnstr_get(x_6, 1); -x_98 = lean::cnstr_get(x_6, 2); +obj* x_123; obj* x_125; obj* x_127; obj* x_128; obj* x_131; obj* x_132; obj* x_133; obj* x_134; obj* x_135; obj* x_136; obj* x_137; obj* x_138; +x_123 = lean::cnstr_get(x_6, 1); +x_125 = lean::cnstr_get(x_6, 2); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); - x_100 = x_6; + x_127 = x_6; } else { - lean::inc(x_96); - lean::inc(x_98); + lean::inc(x_123); + lean::inc(x_125); lean::dec(x_6); - x_100 = lean::box(0); + x_127 = lean::box(0); } -x_101 = lean::cnstr_get(x_84, 0); -lean::inc(x_101); -lean::dec(x_84); -x_104 = lean::box(0); -x_105 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_105, 0, x_101); -lean::cnstr_set(x_105, 1, x_104); -x_106 = l_Lean_Parser_noKind; -x_107 = l_Lean_Parser_Syntax_mkNode(x_106, x_105); -x_108 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_100)) { - x_109 = lean::alloc_cnstr(0, 3, 0); +x_128 = lean::cnstr_get(x_111, 0); +lean::inc(x_128); +lean::dec(x_111); +x_131 = lean::box(0); +x_132 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_132, 0, x_128); +lean::cnstr_set(x_132, 1, x_131); +x_133 = l_Lean_Parser_noKind; +x_134 = l_Lean_Parser_Syntax_mkNode(x_133, x_132); +x_135 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_127)) { + x_136 = lean::alloc_cnstr(0, 3, 0); } else { - x_109 = x_100; + x_136 = x_127; } -lean::cnstr_set(x_109, 0, x_107); -lean::cnstr_set(x_109, 1, x_96); -lean::cnstr_set(x_109, 2, x_108); -x_110 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_98, x_109); -x_111 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_111, 0, x_110); -lean::cnstr_set(x_111, 1, x_7); -return x_111; +lean::cnstr_set(x_136, 0, x_134); +lean::cnstr_set(x_136, 1, x_123); +lean::cnstr_set(x_136, 2, x_135); +x_137 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_125, x_136); +x_138 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_138, 0, x_137); +lean::cnstr_set(x_138, 1, x_7); +return x_138; } } else { -obj* x_112; uint8 x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; -x_112 = lean::cnstr_get(x_6, 0); -x_114 = lean::cnstr_get_scalar(x_6, sizeof(void*)*1); +obj* x_139; uint8 x_141; obj* x_142; obj* x_143; obj* x_144; obj* x_145; +x_139 = lean::cnstr_get(x_6, 0); +x_141 = lean::cnstr_get_scalar(x_6, sizeof(void*)*1); if (lean::is_exclusive(x_6)) { - x_115 = x_6; + x_142 = x_6; } else { - lean::inc(x_112); + lean::inc(x_139); lean::dec(x_6); - x_115 = lean::box(0); + x_142 = lean::box(0); } -if (lean::is_scalar(x_115)) { - x_116 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_142)) { + x_143 = lean::alloc_cnstr(1, 1, 1); } else { - x_116 = x_115; + x_143 = x_142; } -lean::cnstr_set(x_116, 0, x_112); -lean::cnstr_set_scalar(x_116, sizeof(void*)*1, x_114); -x_117 = x_116; -x_118 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_118, 0, x_117); -lean::cnstr_set(x_118, 1, x_7); -return x_118; +lean::cnstr_set(x_143, 0, x_139); +lean::cnstr_set_scalar(x_143, sizeof(void*)*1, x_141); +x_144 = x_143; +x_145 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_145, 0, x_144); +lean::cnstr_set(x_145, 1, x_7); +return x_145; } } } @@ -12123,41 +12221,37 @@ x_7 = l_Lean_Parser_Combinators_optional___at_Lean_Parser_detailIdent_x_27___spe return x_7; } } -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_detailIdent_Parser___spec__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_Lean_Parser_detailIdent_Parser___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_5; obj* x_6; obj* x_7; obj* x_8; -x_5 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_detailIdent_Parser___spec__2___boxed), 5, 1); -lean::closure_set(x_5, 0, x_0); -x_6 = l_Lean_Parser_detailIdent; -x_7 = l_Lean_Parser_detailIdent_x_27___closed__1; -x_8 = l_Lean_Parser_Combinators_node___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__8(x_6, x_7, x_5, x_2, x_3, x_4); -return x_8; +obj* x_4; obj* x_5; obj* x_6; obj* x_7; +x_4 = lean::box(0); +x_5 = l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1; +x_6 = l_mjoin___rarg___closed__1; +x_7 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_5, x_6, x_4, x_4, x_1, x_2, x_3); +return x_7; } } -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_detailIdent_Parser___spec__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_Lean_Parser_detailIdent_Parser___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_5; -x_5 = l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_detailIdent_Parser___spec__2(x_0, x_1, x_2, x_3, x_4); -return x_5; +obj* x_5; obj* x_6; obj* x_7; +x_5 = l_Lean_Parser_detailIdent; +x_6 = l_Lean_Parser_detailIdent_x_27___closed__1; +x_7 = l_Lean_Parser_Combinators_node___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__8(x_5, x_6, x_0, x_2, x_3, x_4); +return x_7; } } obj* _init_l_Lean_Parser_detailIdent_Parser___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; -x_0 = lean::box(0); -x_1 = lean::mk_string("RecT.runParsec: no progress"); -x_2 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 1, 0); -x_3 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg___boxed), 7, 4); -lean::closure_set(x_3, 0, x_1); -lean::closure_set(x_3, 1, x_2); -lean::closure_set(x_3, 2, x_0); -lean::closure_set(x_3, 3, x_0); -x_4 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_detailIdent_Parser___spec__1___boxed), 5, 1); -lean::closure_set(x_4, 0, x_3); -return x_4; +obj* x_0; obj* x_1; obj* x_2; +x_0 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_detailIdent_Parser___lambda__1___boxed), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_detailIdent_Parser___lambda__2___boxed), 5, 0); +x_2 = lean::alloc_closure(reinterpret_cast(l_fixCore___rarg___boxed), 3, 2); +lean::closure_set(x_2, 0, x_0); +lean::closure_set(x_2, 1, x_1); +return x_2; } } obj* l_Lean_Parser_detailIdent_Parser(obj* x_0, obj* x_1, obj* x_2) { @@ -12171,20 +12265,21 @@ x_6 = l_Lean_Parser_Combinators_node___at_Lean_Parser_detailIdentSuffix_Parser_L return x_6; } } -obj* l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_detailIdent_Parser___spec__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_Lean_Parser_detailIdent_Parser___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_5; -x_5 = l___private_init_lean_parser_rec_1__runAux___main___at_Lean_Parser_detailIdent_Parser___spec__2(x_0, x_1, x_2, x_3, x_4); +obj* x_4; +x_4 = l_Lean_Parser_detailIdent_Parser___lambda__1(x_0, x_1, x_2, x_3); +lean::dec(x_0); lean::dec(x_1); -return x_5; +return x_4; } } -obj* l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_detailIdent_Parser___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_Lean_Parser_detailIdent_Parser___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; -x_5 = l___private_init_lean_parser_rec_1__runAux___at_Lean_Parser_detailIdent_Parser___spec__1(x_0, x_1, x_2, x_3, x_4); +x_5 = l_Lean_Parser_detailIdent_Parser___lambda__2(x_0, x_1, x_2, x_3, x_4); lean::dec(x_1); return x_5; } @@ -12416,214 +12511,212 @@ uint8 x_3; x_3 = l_String_OldIterator_hasNext___main(x_1); if (x_3 == 0) { -obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; +obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_14; x_4 = lean::box(0); x_5 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_6 = l_mjoin___rarg___closed__1; x_7 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_5, x_6, x_4, x_4, x_0, x_1, x_2); -lean::dec(x_1); -x_9 = lean::cnstr_get(x_7, 0); -x_11 = lean::cnstr_get(x_7, 1); +x_8 = lean::cnstr_get(x_7, 0); +x_10 = lean::cnstr_get(x_7, 1); if (lean::is_exclusive(x_7)) { lean::cnstr_set(x_7, 0, lean::box(0)); lean::cnstr_set(x_7, 1, lean::box(0)); - x_13 = x_7; + x_12 = x_7; } else { - lean::inc(x_9); - lean::inc(x_11); + lean::inc(x_8); + lean::inc(x_10); lean::dec(x_7); - x_13 = lean::box(0); + x_12 = lean::box(0); } -x_14 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_15 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_9); -if (lean::obj_tag(x_15) == 0) +x_13 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_14 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_13, x_8); +if (lean::obj_tag(x_14) == 0) { -obj* x_17; obj* x_19; obj* x_21; obj* x_24; uint32 x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_30; obj* x_32; obj* x_33; obj* x_34; -lean::dec(x_13); -x_17 = lean::cnstr_get(x_15, 0); -lean::inc(x_17); -x_19 = lean::cnstr_get(x_15, 1); -lean::inc(x_19); -x_21 = lean::cnstr_get(x_15, 2); -lean::inc(x_21); -lean::dec(x_15); -x_24 = l_String_splitAux___main___closed__1; -x_25 = lean::unbox_uint32(x_17); -x_26 = lean::string_push(x_24, x_25); -x_27 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_parser_token_4__ident_x_27___spec__4(x_26, x_0, x_19, x_11); -x_28 = lean::cnstr_get(x_27, 0); -x_30 = lean::cnstr_get(x_27, 1); -if (lean::is_exclusive(x_27)) { - x_32 = x_27; +obj* x_16; obj* x_18; obj* x_20; obj* x_23; uint32 x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +lean::dec(x_12); +x_16 = lean::cnstr_get(x_14, 0); +lean::inc(x_16); +x_18 = lean::cnstr_get(x_14, 1); +lean::inc(x_18); +x_20 = lean::cnstr_get(x_14, 2); +lean::inc(x_20); +lean::dec(x_14); +x_23 = l_String_splitAux___main___closed__1; +x_24 = lean::unbox_uint32(x_16); +x_25 = lean::string_push(x_23, x_24); +x_26 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_parser_token_4__ident_x_27___spec__4(x_25, x_0, x_18, x_10); +x_27 = lean::cnstr_get(x_26, 0); +x_29 = lean::cnstr_get(x_26, 1); +if (lean::is_exclusive(x_26)) { + x_31 = x_26; } else { - lean::inc(x_28); - lean::inc(x_30); - lean::dec(x_27); - x_32 = lean::box(0); + lean::inc(x_27); + lean::inc(x_29); + lean::dec(x_26); + x_31 = lean::box(0); } -x_33 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_28); -if (lean::is_scalar(x_32)) { - x_34 = lean::alloc_cnstr(0, 2, 0); +x_32 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_27); +if (lean::is_scalar(x_31)) { + x_33 = lean::alloc_cnstr(0, 2, 0); } else { - x_34 = x_32; + x_33 = x_31; } -lean::cnstr_set(x_34, 0, x_33); -lean::cnstr_set(x_34, 1, x_30); -return x_34; +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_29); +return x_33; } else { -obj* x_35; uint8 x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_35 = lean::cnstr_get(x_15, 0); -x_37 = lean::cnstr_get_scalar(x_15, sizeof(void*)*1); -if (lean::is_exclusive(x_15)) { - x_38 = x_15; +obj* x_34; uint8 x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_34 = lean::cnstr_get(x_14, 0); +x_36 = lean::cnstr_get_scalar(x_14, sizeof(void*)*1); +if (lean::is_exclusive(x_14)) { + x_37 = x_14; } else { - lean::inc(x_35); - lean::dec(x_15); - x_38 = lean::box(0); + lean::inc(x_34); + lean::dec(x_14); + x_37 = lean::box(0); } -if (lean::is_scalar(x_38)) { - x_39 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(1, 1, 1); } else { - x_39 = x_38; + x_38 = x_37; } -lean::cnstr_set(x_39, 0, x_35); -lean::cnstr_set_scalar(x_39, sizeof(void*)*1, x_37); -x_40 = x_39; -if (lean::is_scalar(x_13)) { - x_41 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_38, 0, x_34); +lean::cnstr_set_scalar(x_38, sizeof(void*)*1, x_36); +x_39 = x_38; +if (lean::is_scalar(x_12)) { + x_40 = lean::alloc_cnstr(0, 2, 0); } else { - x_41 = x_13; + x_40 = x_12; } -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_11); -return x_41; +lean::cnstr_set(x_40, 0, x_39); +lean::cnstr_set(x_40, 1, x_10); +return x_40; } } else { -uint32 x_42; uint8 x_43; -x_42 = l_String_OldIterator_curr___main(x_1); -x_43 = l_Lean_isIdFirst(x_42); -if (x_43 == 0) +uint32 x_41; uint8 x_42; +x_41 = l_String_OldIterator_curr___main(x_1); +x_42 = l_Lean_isIdFirst(x_41); +if (x_42 == 0) { -obj* x_44; obj* x_45; obj* x_46; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_53; obj* x_55; obj* x_57; obj* x_58; obj* x_59; -x_44 = l_Char_quoteCore(x_42); -x_45 = l_Char_HasRepr___closed__1; -x_46 = lean::string_append(x_45, x_44); -lean::dec(x_44); -x_48 = lean::string_append(x_46, x_45); -x_49 = lean::box(0); -x_50 = l_mjoin___rarg___closed__1; -x_51 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_48, x_50, x_49, x_49, x_0, x_1, x_2); -lean::dec(x_1); -x_53 = lean::cnstr_get(x_51, 0); -x_55 = lean::cnstr_get(x_51, 1); -if (lean::is_exclusive(x_51)) { - lean::cnstr_set(x_51, 0, lean::box(0)); - lean::cnstr_set(x_51, 1, lean::box(0)); - x_57 = x_51; +obj* x_43; obj* x_44; obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_53; obj* x_55; obj* x_56; obj* x_57; +x_43 = l_Char_quoteCore(x_41); +x_44 = l_Char_HasRepr___closed__1; +x_45 = lean::string_append(x_44, x_43); +lean::dec(x_43); +x_47 = lean::string_append(x_45, x_44); +x_48 = lean::box(0); +x_49 = l_mjoin___rarg___closed__1; +x_50 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_47, x_49, x_48, x_48, x_0, x_1, x_2); +x_51 = lean::cnstr_get(x_50, 0); +x_53 = lean::cnstr_get(x_50, 1); +if (lean::is_exclusive(x_50)) { + lean::cnstr_set(x_50, 0, lean::box(0)); + lean::cnstr_set(x_50, 1, lean::box(0)); + x_55 = x_50; } else { + lean::inc(x_51); lean::inc(x_53); - lean::inc(x_55); - lean::dec(x_51); - x_57 = lean::box(0); + lean::dec(x_50); + x_55 = lean::box(0); } -x_58 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_59 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_58, x_53); -if (lean::obj_tag(x_59) == 0) +x_56 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_57 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_56, x_51); +if (lean::obj_tag(x_57) == 0) { -obj* x_61; obj* x_63; obj* x_65; obj* x_68; uint32 x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_74; obj* x_76; obj* x_77; obj* x_78; -lean::dec(x_57); -x_61 = lean::cnstr_get(x_59, 0); +obj* x_59; obj* x_61; obj* x_63; obj* x_66; uint32 x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_72; obj* x_74; obj* x_75; obj* x_76; +lean::dec(x_55); +x_59 = lean::cnstr_get(x_57, 0); +lean::inc(x_59); +x_61 = lean::cnstr_get(x_57, 1); lean::inc(x_61); -x_63 = lean::cnstr_get(x_59, 1); +x_63 = lean::cnstr_get(x_57, 2); lean::inc(x_63); -x_65 = lean::cnstr_get(x_59, 2); -lean::inc(x_65); -lean::dec(x_59); -x_68 = l_String_splitAux___main___closed__1; -x_69 = lean::unbox_uint32(x_61); -x_70 = lean::string_push(x_68, x_69); -x_71 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_parser_token_4__ident_x_27___spec__6(x_70, x_0, x_63, x_55); -x_72 = lean::cnstr_get(x_71, 0); -x_74 = lean::cnstr_get(x_71, 1); -if (lean::is_exclusive(x_71)) { - x_76 = x_71; +lean::dec(x_57); +x_66 = l_String_splitAux___main___closed__1; +x_67 = lean::unbox_uint32(x_59); +x_68 = lean::string_push(x_66, x_67); +x_69 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_parser_token_4__ident_x_27___spec__6(x_68, x_0, x_61, x_53); +x_70 = lean::cnstr_get(x_69, 0); +x_72 = lean::cnstr_get(x_69, 1); +if (lean::is_exclusive(x_69)) { + x_74 = x_69; } else { + lean::inc(x_70); lean::inc(x_72); - lean::inc(x_74); - lean::dec(x_71); - x_76 = lean::box(0); + lean::dec(x_69); + x_74 = lean::box(0); } -x_77 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_65, x_72); -if (lean::is_scalar(x_76)) { - x_78 = lean::alloc_cnstr(0, 2, 0); +x_75 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_63, x_70); +if (lean::is_scalar(x_74)) { + x_76 = lean::alloc_cnstr(0, 2, 0); } else { - x_78 = x_76; + x_76 = x_74; } -lean::cnstr_set(x_78, 0, x_77); -lean::cnstr_set(x_78, 1, x_74); -return x_78; +lean::cnstr_set(x_76, 0, x_75); +lean::cnstr_set(x_76, 1, x_72); +return x_76; } else { -obj* x_79; uint8 x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; -x_79 = lean::cnstr_get(x_59, 0); -x_81 = lean::cnstr_get_scalar(x_59, sizeof(void*)*1); -if (lean::is_exclusive(x_59)) { - x_82 = x_59; +obj* x_77; uint8 x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; +x_77 = lean::cnstr_get(x_57, 0); +x_79 = lean::cnstr_get_scalar(x_57, sizeof(void*)*1); +if (lean::is_exclusive(x_57)) { + x_80 = x_57; } else { - lean::inc(x_79); - lean::dec(x_59); - x_82 = lean::box(0); + lean::inc(x_77); + lean::dec(x_57); + x_80 = lean::box(0); } -if (lean::is_scalar(x_82)) { - x_83 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_80)) { + x_81 = lean::alloc_cnstr(1, 1, 1); } else { - x_83 = x_82; + x_81 = x_80; } -lean::cnstr_set(x_83, 0, x_79); -lean::cnstr_set_scalar(x_83, sizeof(void*)*1, x_81); -x_84 = x_83; -if (lean::is_scalar(x_57)) { - x_85 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_81, 0, x_77); +lean::cnstr_set_scalar(x_81, sizeof(void*)*1, x_79); +x_82 = x_81; +if (lean::is_scalar(x_55)) { + x_83 = lean::alloc_cnstr(0, 2, 0); } else { - x_85 = x_57; + x_83 = x_55; } -lean::cnstr_set(x_85, 0, x_84); -lean::cnstr_set(x_85, 1, x_55); -return x_85; +lean::cnstr_set(x_83, 0, x_82); +lean::cnstr_set(x_83, 1, x_53); +return x_83; } } else { -obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_92; obj* x_94; obj* x_95; obj* x_96; obj* x_97; -x_86 = l_String_OldIterator_next___main(x_1); -x_87 = l_String_splitAux___main___closed__1; -x_88 = lean::string_push(x_87, x_42); -x_89 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_parser_token_4__ident_x_27___spec__8(x_88, x_0, x_86, x_2); -x_90 = lean::cnstr_get(x_89, 0); -x_92 = lean::cnstr_get(x_89, 1); -if (lean::is_exclusive(x_89)) { - x_94 = x_89; +obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_90; obj* x_92; obj* x_93; obj* x_94; obj* x_95; +x_84 = l_String_OldIterator_next___main(x_1); +x_85 = l_String_splitAux___main___closed__1; +x_86 = lean::string_push(x_85, x_41); +x_87 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_parser_token_4__ident_x_27___spec__8(x_86, x_0, x_84, x_2); +x_88 = lean::cnstr_get(x_87, 0); +x_90 = lean::cnstr_get(x_87, 1); +if (lean::is_exclusive(x_87)) { + x_92 = x_87; } else { + lean::inc(x_88); lean::inc(x_90); - lean::inc(x_92); - lean::dec(x_89); - x_94 = lean::box(0); + lean::dec(x_87); + x_92 = lean::box(0); } -x_95 = lean::box(0); -x_96 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_95, x_90); -if (lean::is_scalar(x_94)) { - x_97 = lean::alloc_cnstr(0, 2, 0); +x_93 = lean::box(0); +x_94 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_93, x_88); +if (lean::is_scalar(x_92)) { + x_95 = lean::alloc_cnstr(0, 2, 0); } else { - x_97 = x_94; + x_95 = x_92; } -lean::cnstr_set(x_97, 0, x_96); -lean::cnstr_set(x_97, 1, x_92); -return x_97; +lean::cnstr_set(x_95, 0, x_94); +lean::cnstr_set(x_95, 1, x_90); +return x_95; } } } @@ -12635,85 +12728,83 @@ uint8 x_4; x_4 = l_String_OldIterator_hasNext___main(x_2); if (x_4 == 0) { -obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; +obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; x_5 = lean::box(0); x_6 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_7 = l_mjoin___rarg___closed__1; x_8 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_6, x_7, x_5, x_5, x_1, x_2, x_3); -lean::dec(x_2); -x_10 = lean::cnstr_get(x_8, 0); -x_12 = lean::cnstr_get(x_8, 1); +x_9 = lean::cnstr_get(x_8, 0); +x_11 = lean::cnstr_get(x_8, 1); if (lean::is_exclusive(x_8)) { - x_14 = x_8; + x_13 = x_8; } else { - lean::inc(x_10); - lean::inc(x_12); + lean::inc(x_9); + lean::inc(x_11); lean::dec(x_8); - x_14 = lean::box(0); + x_13 = lean::box(0); } -x_15 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_16 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_10); -if (lean::is_scalar(x_14)) { - x_17 = lean::alloc_cnstr(0, 2, 0); +x_14 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_15 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_9); +if (lean::is_scalar(x_13)) { + x_16 = lean::alloc_cnstr(0, 2, 0); } else { - x_17 = x_14; + x_16 = x_13; } -lean::cnstr_set(x_17, 0, x_16); -lean::cnstr_set(x_17, 1, x_12); -return x_17; +lean::cnstr_set(x_16, 0, x_15); +lean::cnstr_set(x_16, 1, x_11); +return x_16; } else { -uint32 x_18; uint8 x_19; -x_18 = l_String_OldIterator_curr___main(x_2); -x_19 = x_18 == x_0; -if (x_19 == 0) +uint32 x_17; uint8 x_18; +x_17 = l_String_OldIterator_curr___main(x_2); +x_18 = x_17 == x_0; +if (x_18 == 0) { -obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_36; -x_20 = l_Char_quoteCore(x_18); -x_21 = l_Char_HasRepr___closed__1; -x_22 = lean::string_append(x_21, x_20); -lean::dec(x_20); -x_24 = lean::string_append(x_22, x_21); -x_25 = lean::box(0); -x_26 = l_mjoin___rarg___closed__1; -x_27 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_24, x_26, x_25, x_25, x_1, x_2, x_3); -lean::dec(x_2); -x_29 = lean::cnstr_get(x_27, 0); -x_31 = lean::cnstr_get(x_27, 1); -if (lean::is_exclusive(x_27)) { - x_33 = x_27; +obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; +x_19 = l_Char_quoteCore(x_17); +x_20 = l_Char_HasRepr___closed__1; +x_21 = lean::string_append(x_20, x_19); +lean::dec(x_19); +x_23 = lean::string_append(x_21, x_20); +x_24 = lean::box(0); +x_25 = l_mjoin___rarg___closed__1; +x_26 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_23, x_25, x_24, x_24, x_1, x_2, x_3); +x_27 = lean::cnstr_get(x_26, 0); +x_29 = lean::cnstr_get(x_26, 1); +if (lean::is_exclusive(x_26)) { + x_31 = x_26; } else { + lean::inc(x_27); lean::inc(x_29); - lean::inc(x_31); - lean::dec(x_27); - x_33 = lean::box(0); + lean::dec(x_26); + x_31 = lean::box(0); } -x_34 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_35 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_34, x_29); -if (lean::is_scalar(x_33)) { - x_36 = lean::alloc_cnstr(0, 2, 0); +x_32 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_33 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_32, x_27); +if (lean::is_scalar(x_31)) { + x_34 = lean::alloc_cnstr(0, 2, 0); } else { - x_36 = x_33; + x_34 = x_31; } -lean::cnstr_set(x_36, 0, x_35); -lean::cnstr_set(x_36, 1, x_31); -return x_36; +lean::cnstr_set(x_34, 0, x_33); +lean::cnstr_set(x_34, 1, x_29); +return x_34; } else { -obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_37 = l_String_OldIterator_next___main(x_2); -x_38 = lean::box(0); -x_39 = lean::box_uint32(x_18); -x_40 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_40, 0, x_39); -lean::cnstr_set(x_40, 1, x_37); -lean::cnstr_set(x_40, 2, x_38); -x_41 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_3); -return x_41; +obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; +x_35 = l_String_OldIterator_next___main(x_2); +x_36 = lean::box(0); +x_37 = lean::box_uint32(x_17); +x_38 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_35); +lean::cnstr_set(x_38, 2, x_36); +x_39 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_3); +return x_39; } } } @@ -12920,213 +13011,211 @@ uint8 x_3; x_3 = l_String_OldIterator_hasNext___main(x_1); if (x_3 == 0) { -obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; +obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_14; x_4 = lean::box(0); x_5 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_6 = l_mjoin___rarg___closed__1; x_7 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_5, x_6, x_4, x_4, x_0, x_1, x_2); -lean::dec(x_1); -x_9 = lean::cnstr_get(x_7, 0); -x_11 = lean::cnstr_get(x_7, 1); +x_8 = lean::cnstr_get(x_7, 0); +x_10 = lean::cnstr_get(x_7, 1); if (lean::is_exclusive(x_7)) { lean::cnstr_set(x_7, 0, lean::box(0)); lean::cnstr_set(x_7, 1, lean::box(0)); - x_13 = x_7; + x_12 = x_7; } else { - lean::inc(x_9); - lean::inc(x_11); + lean::inc(x_8); + lean::inc(x_10); lean::dec(x_7); - x_13 = lean::box(0); + x_12 = lean::box(0); } -x_14 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_15 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_9); -if (lean::obj_tag(x_15) == 0) +x_13 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_14 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_13, x_8); +if (lean::obj_tag(x_14) == 0) { -obj* x_17; obj* x_19; obj* x_21; obj* x_24; uint32 x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_30; obj* x_32; obj* x_33; obj* x_34; -lean::dec(x_13); -x_17 = lean::cnstr_get(x_15, 0); -lean::inc(x_17); -x_19 = lean::cnstr_get(x_15, 1); -lean::inc(x_19); -x_21 = lean::cnstr_get(x_15, 2); -lean::inc(x_21); -lean::dec(x_15); -x_24 = l_String_splitAux___main___closed__1; -x_25 = lean::unbox_uint32(x_17); -x_26 = lean::string_push(x_24, x_25); -x_27 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_parser_token_4__ident_x_27___spec__13(x_26, x_0, x_19, x_11); -x_28 = lean::cnstr_get(x_27, 0); -x_30 = lean::cnstr_get(x_27, 1); -if (lean::is_exclusive(x_27)) { - x_32 = x_27; +obj* x_16; obj* x_18; obj* x_20; obj* x_23; uint32 x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +lean::dec(x_12); +x_16 = lean::cnstr_get(x_14, 0); +lean::inc(x_16); +x_18 = lean::cnstr_get(x_14, 1); +lean::inc(x_18); +x_20 = lean::cnstr_get(x_14, 2); +lean::inc(x_20); +lean::dec(x_14); +x_23 = l_String_splitAux___main___closed__1; +x_24 = lean::unbox_uint32(x_16); +x_25 = lean::string_push(x_23, x_24); +x_26 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_parser_token_4__ident_x_27___spec__13(x_25, x_0, x_18, x_10); +x_27 = lean::cnstr_get(x_26, 0); +x_29 = lean::cnstr_get(x_26, 1); +if (lean::is_exclusive(x_26)) { + x_31 = x_26; } else { - lean::inc(x_28); - lean::inc(x_30); - lean::dec(x_27); - x_32 = lean::box(0); + lean::inc(x_27); + lean::inc(x_29); + lean::dec(x_26); + x_31 = lean::box(0); } -x_33 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_28); -if (lean::is_scalar(x_32)) { - x_34 = lean::alloc_cnstr(0, 2, 0); +x_32 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_27); +if (lean::is_scalar(x_31)) { + x_33 = lean::alloc_cnstr(0, 2, 0); } else { - x_34 = x_32; + x_33 = x_31; } -lean::cnstr_set(x_34, 0, x_33); -lean::cnstr_set(x_34, 1, x_30); -return x_34; +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_29); +return x_33; } else { -obj* x_35; uint8 x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_35 = lean::cnstr_get(x_15, 0); -x_37 = lean::cnstr_get_scalar(x_15, sizeof(void*)*1); -if (lean::is_exclusive(x_15)) { - x_38 = x_15; +obj* x_34; uint8 x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_34 = lean::cnstr_get(x_14, 0); +x_36 = lean::cnstr_get_scalar(x_14, sizeof(void*)*1); +if (lean::is_exclusive(x_14)) { + x_37 = x_14; } else { - lean::inc(x_35); - lean::dec(x_15); - x_38 = lean::box(0); + lean::inc(x_34); + lean::dec(x_14); + x_37 = lean::box(0); } -if (lean::is_scalar(x_38)) { - x_39 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(1, 1, 1); } else { - x_39 = x_38; + x_38 = x_37; } -lean::cnstr_set(x_39, 0, x_35); -lean::cnstr_set_scalar(x_39, sizeof(void*)*1, x_37); -x_40 = x_39; -if (lean::is_scalar(x_13)) { - x_41 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_38, 0, x_34); +lean::cnstr_set_scalar(x_38, sizeof(void*)*1, x_36); +x_39 = x_38; +if (lean::is_scalar(x_12)) { + x_40 = lean::alloc_cnstr(0, 2, 0); } else { - x_41 = x_13; + x_40 = x_12; } -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_11); -return x_41; +lean::cnstr_set(x_40, 0, x_39); +lean::cnstr_set(x_40, 1, x_10); +return x_40; } } else { -uint32 x_42; uint8 x_43; -x_42 = l_String_OldIterator_curr___main(x_1); -x_43 = l_Lean_isIdEndEscape(x_42); -if (x_43 == 0) +uint32 x_41; uint8 x_42; +x_41 = l_String_OldIterator_curr___main(x_1); +x_42 = l_Lean_isIdEndEscape(x_41); +if (x_42 == 0) { -obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; -x_44 = l_String_OldIterator_next___main(x_1); -x_45 = l_String_splitAux___main___closed__1; -x_46 = lean::string_push(x_45, x_42); -x_47 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_parser_token_4__ident_x_27___spec__15(x_46, x_0, x_44, x_2); -x_48 = lean::cnstr_get(x_47, 0); -x_50 = lean::cnstr_get(x_47, 1); -if (lean::is_exclusive(x_47)) { - x_52 = x_47; +obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_49; obj* x_51; obj* x_52; obj* x_53; obj* x_54; +x_43 = l_String_OldIterator_next___main(x_1); +x_44 = l_String_splitAux___main___closed__1; +x_45 = lean::string_push(x_44, x_41); +x_46 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_parser_token_4__ident_x_27___spec__15(x_45, x_0, x_43, x_2); +x_47 = lean::cnstr_get(x_46, 0); +x_49 = lean::cnstr_get(x_46, 1); +if (lean::is_exclusive(x_46)) { + x_51 = x_46; } else { - lean::inc(x_48); - lean::inc(x_50); - lean::dec(x_47); - x_52 = lean::box(0); + lean::inc(x_47); + lean::inc(x_49); + lean::dec(x_46); + x_51 = lean::box(0); } -x_53 = lean::box(0); -x_54 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_53, x_48); -if (lean::is_scalar(x_52)) { - x_55 = lean::alloc_cnstr(0, 2, 0); +x_52 = lean::box(0); +x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_52, x_47); +if (lean::is_scalar(x_51)) { + x_54 = lean::alloc_cnstr(0, 2, 0); } else { - x_55 = x_52; + x_54 = x_51; } -lean::cnstr_set(x_55, 0, x_54); -lean::cnstr_set(x_55, 1, x_50); -return x_55; +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_49); +return x_54; } else { -obj* x_56; obj* x_57; obj* x_58; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_65; obj* x_67; obj* x_69; obj* x_70; obj* x_71; -x_56 = l_Char_quoteCore(x_42); -x_57 = l_Char_HasRepr___closed__1; -x_58 = lean::string_append(x_57, x_56); -lean::dec(x_56); -x_60 = lean::string_append(x_58, x_57); -x_61 = lean::box(0); -x_62 = l_mjoin___rarg___closed__1; -x_63 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_60, x_62, x_61, x_61, x_0, x_1, x_2); -lean::dec(x_1); -x_65 = lean::cnstr_get(x_63, 0); -x_67 = lean::cnstr_get(x_63, 1); -if (lean::is_exclusive(x_63)) { - lean::cnstr_set(x_63, 0, lean::box(0)); - lean::cnstr_set(x_63, 1, lean::box(0)); - x_69 = x_63; +obj* x_55; obj* x_56; obj* x_57; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_65; obj* x_67; obj* x_68; obj* x_69; +x_55 = l_Char_quoteCore(x_41); +x_56 = l_Char_HasRepr___closed__1; +x_57 = lean::string_append(x_56, x_55); +lean::dec(x_55); +x_59 = lean::string_append(x_57, x_56); +x_60 = lean::box(0); +x_61 = l_mjoin___rarg___closed__1; +x_62 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_59, x_61, x_60, x_60, x_0, x_1, x_2); +x_63 = lean::cnstr_get(x_62, 0); +x_65 = lean::cnstr_get(x_62, 1); +if (lean::is_exclusive(x_62)) { + lean::cnstr_set(x_62, 0, lean::box(0)); + lean::cnstr_set(x_62, 1, lean::box(0)); + x_67 = x_62; } else { + lean::inc(x_63); lean::inc(x_65); - lean::inc(x_67); - lean::dec(x_63); - x_69 = lean::box(0); + lean::dec(x_62); + x_67 = lean::box(0); } -x_70 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_71 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_70, x_65); -if (lean::obj_tag(x_71) == 0) +x_68 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_69 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_68, x_63); +if (lean::obj_tag(x_69) == 0) { -obj* x_73; obj* x_75; obj* x_77; obj* x_80; uint32 x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_86; obj* x_88; obj* x_89; obj* x_90; -lean::dec(x_69); -x_73 = lean::cnstr_get(x_71, 0); +obj* x_71; obj* x_73; obj* x_75; obj* x_78; uint32 x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_84; obj* x_86; obj* x_87; obj* x_88; +lean::dec(x_67); +x_71 = lean::cnstr_get(x_69, 0); +lean::inc(x_71); +x_73 = lean::cnstr_get(x_69, 1); lean::inc(x_73); -x_75 = lean::cnstr_get(x_71, 1); +x_75 = lean::cnstr_get(x_69, 2); lean::inc(x_75); -x_77 = lean::cnstr_get(x_71, 2); -lean::inc(x_77); -lean::dec(x_71); -x_80 = l_String_splitAux___main___closed__1; -x_81 = lean::unbox_uint32(x_73); -x_82 = lean::string_push(x_80, x_81); -x_83 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_parser_token_4__ident_x_27___spec__17(x_82, x_0, x_75, x_67); -x_84 = lean::cnstr_get(x_83, 0); -x_86 = lean::cnstr_get(x_83, 1); -if (lean::is_exclusive(x_83)) { - x_88 = x_83; +lean::dec(x_69); +x_78 = l_String_splitAux___main___closed__1; +x_79 = lean::unbox_uint32(x_71); +x_80 = lean::string_push(x_78, x_79); +x_81 = l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_parser_token_4__ident_x_27___spec__17(x_80, x_0, x_73, x_65); +x_82 = lean::cnstr_get(x_81, 0); +x_84 = lean::cnstr_get(x_81, 1); +if (lean::is_exclusive(x_81)) { + x_86 = x_81; } else { + lean::inc(x_82); lean::inc(x_84); - lean::inc(x_86); - lean::dec(x_83); - x_88 = lean::box(0); + lean::dec(x_81); + x_86 = lean::box(0); } -x_89 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_77, x_84); -if (lean::is_scalar(x_88)) { - x_90 = lean::alloc_cnstr(0, 2, 0); +x_87 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_75, x_82); +if (lean::is_scalar(x_86)) { + x_88 = lean::alloc_cnstr(0, 2, 0); } else { - x_90 = x_88; + x_88 = x_86; } -lean::cnstr_set(x_90, 0, x_89); -lean::cnstr_set(x_90, 1, x_86); -return x_90; +lean::cnstr_set(x_88, 0, x_87); +lean::cnstr_set(x_88, 1, x_84); +return x_88; } else { -obj* x_91; uint8 x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; -x_91 = lean::cnstr_get(x_71, 0); -x_93 = lean::cnstr_get_scalar(x_71, sizeof(void*)*1); -if (lean::is_exclusive(x_71)) { - x_94 = x_71; +obj* x_89; uint8 x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; +x_89 = lean::cnstr_get(x_69, 0); +x_91 = lean::cnstr_get_scalar(x_69, sizeof(void*)*1); +if (lean::is_exclusive(x_69)) { + x_92 = x_69; } else { - lean::inc(x_91); - lean::dec(x_71); - x_94 = lean::box(0); + lean::inc(x_89); + lean::dec(x_69); + x_92 = lean::box(0); } -if (lean::is_scalar(x_94)) { - x_95 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_92)) { + x_93 = lean::alloc_cnstr(1, 1, 1); } else { - x_95 = x_94; + x_93 = x_92; } -lean::cnstr_set(x_95, 0, x_91); -lean::cnstr_set_scalar(x_95, sizeof(void*)*1, x_93); -x_96 = x_95; -if (lean::is_scalar(x_69)) { - x_97 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_93, 0, x_89); +lean::cnstr_set_scalar(x_93, sizeof(void*)*1, x_91); +x_94 = x_93; +if (lean::is_scalar(x_67)) { + x_95 = lean::alloc_cnstr(0, 2, 0); } else { - x_97 = x_69; + x_95 = x_67; } -lean::cnstr_set(x_97, 0, x_96); -lean::cnstr_set(x_97, 1, x_67); -return x_97; +lean::cnstr_set(x_95, 0, x_94); +lean::cnstr_set(x_95, 1, x_65); +return x_95; } } } @@ -13578,72 +13667,70 @@ lean::dec(x_24); x_41 = l_String_OldIterator_hasNext___main(x_16); if (x_41 == 0) { -obj* x_43; obj* x_44; obj* x_45; obj* x_47; obj* x_49; obj* x_52; obj* x_53; obj* x_54; +obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_48; obj* x_51; obj* x_52; obj* x_53; lean::dec(x_20); x_43 = lean::box(0); x_44 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_45 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_44, x_0, x_43, x_43, x_3, x_16, x_35); -lean::dec(x_16); -x_47 = lean::cnstr_get(x_45, 0); -lean::inc(x_47); -x_49 = lean::cnstr_get(x_45, 1); -lean::inc(x_49); +x_46 = lean::cnstr_get(x_45, 0); +lean::inc(x_46); +x_48 = lean::cnstr_get(x_45, 1); +lean::inc(x_48); lean::dec(x_45); -x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_1, x_47); -x_53 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_38, x_52); -x_54 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_53); -x_6 = x_54; -x_7 = x_49; +x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_1, x_46); +x_52 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_38, x_51); +x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_52); +x_6 = x_53; +x_7 = x_48; goto lbl_8; } else { -uint32 x_55; uint8 x_56; -x_55 = l_String_OldIterator_curr___main(x_16); -x_56 = l_Lean_isIdFirst(x_55); -if (x_56 == 0) +uint32 x_54; uint8 x_55; +x_54 = l_String_OldIterator_curr___main(x_16); +x_55 = l_Lean_isIdFirst(x_54); +if (x_55 == 0) { -obj* x_58; obj* x_59; obj* x_60; obj* x_62; obj* x_63; obj* x_64; obj* x_66; obj* x_68; obj* x_71; obj* x_72; obj* x_73; +obj* x_57; obj* x_58; obj* x_59; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_66; obj* x_69; obj* x_70; obj* x_71; lean::dec(x_20); -x_58 = l_Char_quoteCore(x_55); -x_59 = l_Char_HasRepr___closed__1; -x_60 = lean::string_append(x_59, x_58); -lean::dec(x_58); -x_62 = lean::string_append(x_60, x_59); -x_63 = lean::box(0); -x_64 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_62, x_0, x_63, x_63, x_3, x_16, x_35); -lean::dec(x_16); -x_66 = lean::cnstr_get(x_64, 0); +x_57 = l_Char_quoteCore(x_54); +x_58 = l_Char_HasRepr___closed__1; +x_59 = lean::string_append(x_58, x_57); +lean::dec(x_57); +x_61 = lean::string_append(x_59, x_58); +x_62 = lean::box(0); +x_63 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_61, x_0, x_62, x_62, x_3, x_16, x_35); +x_64 = lean::cnstr_get(x_63, 0); +lean::inc(x_64); +x_66 = lean::cnstr_get(x_63, 1); lean::inc(x_66); -x_68 = lean::cnstr_get(x_64, 1); -lean::inc(x_68); -lean::dec(x_64); -x_71 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_1, x_66); -x_72 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_38, x_71); -x_73 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_72); -x_6 = x_73; -x_7 = x_68; +lean::dec(x_63); +x_69 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_1, x_64); +x_70 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_38, x_69); +x_71 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_70); +x_6 = x_71; +x_7 = x_66; goto lbl_8; } else { -obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; +obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; lean::dec(x_1); lean::dec(x_0); lean::dec(x_38); -x_77 = l_String_OldIterator_next___main(x_16); -x_78 = lean::box(0); -x_79 = lean::box_uint32(x_55); +x_75 = l_String_OldIterator_next___main(x_16); +x_76 = lean::box(0); +x_77 = lean::box_uint32(x_54); if (lean::is_scalar(x_20)) { - x_80 = lean::alloc_cnstr(0, 3, 0); + x_78 = lean::alloc_cnstr(0, 3, 0); } else { - x_80 = x_20; + x_78 = x_20; } -lean::cnstr_set(x_80, 0, x_79); -lean::cnstr_set(x_80, 1, x_77); -lean::cnstr_set(x_80, 2, x_78); -x_81 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_80); -x_6 = x_81; +lean::cnstr_set(x_78, 0, x_77); +lean::cnstr_set(x_78, 1, x_75); +lean::cnstr_set(x_78, 2, x_76); +x_79 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_78); +x_6 = x_79; x_7 = x_35; goto lbl_8; } @@ -13651,87 +13738,87 @@ goto lbl_8; } else { -obj* x_86; obj* x_89; +obj* x_84; obj* x_87; lean::dec(x_16); lean::dec(x_1); lean::dec(x_0); lean::dec(x_20); -x_86 = lean::cnstr_get(x_23, 1); -lean::inc(x_86); +x_84 = lean::cnstr_get(x_23, 1); +lean::inc(x_84); lean::dec(x_23); -x_89 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_24); -x_6 = x_89; -x_7 = x_86; +x_87 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_24); +x_6 = x_87; +x_7 = x_84; goto lbl_8; } } } else { -obj* x_92; obj* x_95; uint8 x_97; obj* x_98; obj* x_99; obj* x_100; +obj* x_90; obj* x_93; uint8 x_95; obj* x_96; obj* x_97; obj* x_98; lean::dec(x_1); lean::dec(x_0); -x_92 = lean::cnstr_get(x_10, 1); -lean::inc(x_92); +x_90 = lean::cnstr_get(x_10, 1); +lean::inc(x_90); lean::dec(x_10); -x_95 = lean::cnstr_get(x_11, 0); -x_97 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); +x_93 = lean::cnstr_get(x_11, 0); +x_95 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); if (lean::is_exclusive(x_11)) { - x_98 = x_11; + x_96 = x_11; } else { - lean::inc(x_95); + lean::inc(x_93); lean::dec(x_11); - x_98 = lean::box(0); + x_96 = lean::box(0); } -if (lean::is_scalar(x_98)) { - x_99 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_96)) { + x_97 = lean::alloc_cnstr(1, 1, 1); } else { - x_99 = x_98; + x_97 = x_96; } -lean::cnstr_set(x_99, 0, x_95); -lean::cnstr_set_scalar(x_99, sizeof(void*)*1, x_97); -x_100 = x_99; -x_6 = x_100; -x_7 = x_92; +lean::cnstr_set(x_97, 0, x_93); +lean::cnstr_set_scalar(x_97, sizeof(void*)*1, x_95); +x_98 = x_97; +x_6 = x_98; +x_7 = x_90; goto lbl_8; } lbl_8: { if (lean::obj_tag(x_6) == 0) { -obj* x_101; obj* x_103; obj* x_104; obj* x_105; obj* x_106; -x_101 = lean::cnstr_get(x_6, 0); +obj* x_99; obj* x_101; obj* x_102; obj* x_103; obj* x_104; +x_99 = lean::cnstr_get(x_6, 0); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 1); lean::cnstr_release(x_6, 2); - x_103 = x_6; + x_101 = x_6; } else { - lean::inc(x_101); + lean::inc(x_99); lean::dec(x_6); - x_103 = lean::box(0); + x_101 = lean::box(0); } -x_104 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_103)) { - x_105 = lean::alloc_cnstr(0, 3, 0); +x_102 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_101)) { + x_103 = lean::alloc_cnstr(0, 3, 0); } else { - x_105 = x_103; + x_103 = x_101; } -lean::cnstr_set(x_105, 0, x_101); -lean::cnstr_set(x_105, 1, x_4); -lean::cnstr_set(x_105, 2, x_104); -x_106 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_106, 0, x_105); -lean::cnstr_set(x_106, 1, x_7); -return x_106; +lean::cnstr_set(x_103, 0, x_99); +lean::cnstr_set(x_103, 1, x_4); +lean::cnstr_set(x_103, 2, x_102); +x_104 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_104, 0, x_103); +lean::cnstr_set(x_104, 1, x_7); +return x_104; } else { -obj* x_108; +obj* x_106; lean::dec(x_4); -x_108 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_108, 0, x_6); -lean::cnstr_set(x_108, 1, x_7); -return x_108; +x_106 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_106, 0, x_6); +lean::cnstr_set(x_106, 1, x_7); +return x_106; } } } @@ -15113,90 +15200,87 @@ obj* x_4; obj* x_5; uint8 x_7; x_7 = l_String_OldIterator_hasNext___main(x_2); if (x_7 == 0) { -obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_15; obj* x_18; obj* x_19; +obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_17; obj* x_18; x_8 = lean::box(0); x_9 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_10 = l_mjoin___rarg___closed__1; x_11 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_9, x_10, x_8, x_8, x_1, x_2, x_3); -lean::dec(x_2); -x_13 = lean::cnstr_get(x_11, 0); -lean::inc(x_13); -x_15 = lean::cnstr_get(x_11, 1); -lean::inc(x_15); +x_12 = lean::cnstr_get(x_11, 0); +lean::inc(x_12); +x_14 = lean::cnstr_get(x_11, 1); +lean::inc(x_14); lean::dec(x_11); -x_18 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_19 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_13); -x_4 = x_19; -x_5 = x_15; +x_17 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_18 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_12); +x_4 = x_18; +x_5 = x_14; goto lbl_6; } else { -uint32 x_20; uint8 x_21; -x_20 = l_String_OldIterator_curr___main(x_2); -x_21 = x_0 <= x_20; -if (x_21 == 0) +uint32 x_19; uint8 x_20; +x_19 = l_String_OldIterator_curr___main(x_2); +x_20 = x_0 <= x_19; +if (x_20 == 0) { -obj* x_22; obj* x_23; obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_33; obj* x_36; obj* x_37; -x_22 = l_Char_quoteCore(x_20); -x_23 = l_Char_HasRepr___closed__1; -x_24 = lean::string_append(x_23, x_22); -lean::dec(x_22); -x_26 = lean::string_append(x_24, x_23); -x_27 = lean::box(0); -x_28 = l_mjoin___rarg___closed__1; -x_29 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_26, x_28, x_27, x_27, x_1, x_2, x_3); -lean::dec(x_2); -x_31 = lean::cnstr_get(x_29, 0); +obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_34; obj* x_35; +x_21 = l_Char_quoteCore(x_19); +x_22 = l_Char_HasRepr___closed__1; +x_23 = lean::string_append(x_22, x_21); +lean::dec(x_21); +x_25 = lean::string_append(x_23, x_22); +x_26 = lean::box(0); +x_27 = l_mjoin___rarg___closed__1; +x_28 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_25, x_27, x_26, x_26, x_1, x_2, x_3); +x_29 = lean::cnstr_get(x_28, 0); +lean::inc(x_29); +x_31 = lean::cnstr_get(x_28, 1); lean::inc(x_31); -x_33 = lean::cnstr_get(x_29, 1); -lean::inc(x_33); -lean::dec(x_29); -x_36 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_37 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_36, x_31); -x_4 = x_37; -x_5 = x_33; +lean::dec(x_28); +x_34 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_35 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_34, x_29); +x_4 = x_35; +x_5 = x_31; goto lbl_6; } else { -uint32 x_38; uint8 x_39; -x_38 = 56; -x_39 = x_20 < x_38; -if (x_39 == 0) +uint32 x_36; uint8 x_37; +x_36 = 56; +x_37 = x_19 < x_36; +if (x_37 == 0) { -obj* x_40; obj* x_41; obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_49; obj* x_51; obj* x_54; obj* x_55; -x_40 = l_Char_quoteCore(x_20); -x_41 = l_Char_HasRepr___closed__1; -x_42 = lean::string_append(x_41, x_40); -lean::dec(x_40); -x_44 = lean::string_append(x_42, x_41); -x_45 = lean::box(0); -x_46 = l_mjoin___rarg___closed__1; -x_47 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_44, x_46, x_45, x_45, x_1, x_2, x_3); -lean::dec(x_2); -x_49 = lean::cnstr_get(x_47, 0); -lean::inc(x_49); -x_51 = lean::cnstr_get(x_47, 1); -lean::inc(x_51); -lean::dec(x_47); -x_54 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_55 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_54, x_49); -x_4 = x_55; -x_5 = x_51; +obj* x_38; obj* x_39; obj* x_40; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_48; obj* x_51; obj* x_52; +x_38 = l_Char_quoteCore(x_19); +x_39 = l_Char_HasRepr___closed__1; +x_40 = lean::string_append(x_39, x_38); +lean::dec(x_38); +x_42 = lean::string_append(x_40, x_39); +x_43 = lean::box(0); +x_44 = l_mjoin___rarg___closed__1; +x_45 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_42, x_44, x_43, x_43, x_1, x_2, x_3); +x_46 = lean::cnstr_get(x_45, 0); +lean::inc(x_46); +x_48 = lean::cnstr_get(x_45, 1); +lean::inc(x_48); +lean::dec(x_45); +x_51 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_51, x_46); +x_4 = x_52; +x_5 = x_48; goto lbl_6; } else { -obj* x_56; obj* x_57; obj* x_58; obj* x_59; -x_56 = l_String_OldIterator_next___main(x_2); -x_57 = lean::box(0); -x_58 = lean::box_uint32(x_20); -x_59 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_59, 0, x_58); -lean::cnstr_set(x_59, 1, x_56); -lean::cnstr_set(x_59, 2, x_57); -x_4 = x_59; +obj* x_53; obj* x_54; obj* x_55; obj* x_56; +x_53 = l_String_OldIterator_next___main(x_2); +x_54 = lean::box(0); +x_55 = lean::box_uint32(x_19); +x_56 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_56, 0, x_55); +lean::cnstr_set(x_56, 1, x_53); +lean::cnstr_set(x_56, 2, x_54); +x_4 = x_56; x_5 = x_3; goto lbl_6; } @@ -15206,62 +15290,62 @@ lbl_6: { if (lean::obj_tag(x_4) == 0) { -obj* x_60; obj* x_62; obj* x_64; obj* x_67; uint32 x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_73; obj* x_75; obj* x_76; obj* x_77; -x_60 = lean::cnstr_get(x_4, 0); -lean::inc(x_60); -x_62 = lean::cnstr_get(x_4, 1); -lean::inc(x_62); -x_64 = lean::cnstr_get(x_4, 2); -lean::inc(x_64); +obj* x_57; obj* x_59; obj* x_61; obj* x_64; uint32 x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_70; obj* x_72; obj* x_73; obj* x_74; +x_57 = lean::cnstr_get(x_4, 0); +lean::inc(x_57); +x_59 = lean::cnstr_get(x_4, 1); +lean::inc(x_59); +x_61 = lean::cnstr_get(x_4, 2); +lean::inc(x_61); lean::dec(x_4); -x_67 = l_String_splitAux___main___closed__1; -x_68 = lean::unbox_uint32(x_60); -x_69 = lean::string_push(x_67, x_68); -x_70 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_parseOctLit___spec__2(x_0, x_69, x_1, x_62, x_5); -x_71 = lean::cnstr_get(x_70, 0); -x_73 = lean::cnstr_get(x_70, 1); -if (lean::is_exclusive(x_70)) { - x_75 = x_70; +x_64 = l_String_splitAux___main___closed__1; +x_65 = lean::unbox_uint32(x_57); +x_66 = lean::string_push(x_64, x_65); +x_67 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_parseOctLit___spec__2(x_0, x_66, x_1, x_59, x_5); +x_68 = lean::cnstr_get(x_67, 0); +x_70 = lean::cnstr_get(x_67, 1); +if (lean::is_exclusive(x_67)) { + x_72 = x_67; } else { - lean::inc(x_71); - lean::inc(x_73); - lean::dec(x_70); - x_75 = lean::box(0); + lean::inc(x_68); + lean::inc(x_70); + lean::dec(x_67); + x_72 = lean::box(0); } -x_76 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_64, x_71); -if (lean::is_scalar(x_75)) { - x_77 = lean::alloc_cnstr(0, 2, 0); +x_73 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_61, x_68); +if (lean::is_scalar(x_72)) { + x_74 = lean::alloc_cnstr(0, 2, 0); } else { - x_77 = x_75; + x_74 = x_72; } -lean::cnstr_set(x_77, 0, x_76); -lean::cnstr_set(x_77, 1, x_73); -return x_77; +lean::cnstr_set(x_74, 0, x_73); +lean::cnstr_set(x_74, 1, x_70); +return x_74; } else { -obj* x_78; uint8 x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; -x_78 = lean::cnstr_get(x_4, 0); -x_80 = lean::cnstr_get_scalar(x_4, sizeof(void*)*1); +obj* x_75; uint8 x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; +x_75 = lean::cnstr_get(x_4, 0); +x_77 = lean::cnstr_get_scalar(x_4, sizeof(void*)*1); if (lean::is_exclusive(x_4)) { - x_81 = x_4; + x_78 = x_4; } else { - lean::inc(x_78); + lean::inc(x_75); lean::dec(x_4); - x_81 = lean::box(0); + x_78 = lean::box(0); } -if (lean::is_scalar(x_81)) { - x_82 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_78)) { + x_79 = lean::alloc_cnstr(1, 1, 1); } else { - x_82 = x_81; + x_79 = x_78; } -lean::cnstr_set(x_82, 0, x_78); -lean::cnstr_set_scalar(x_82, sizeof(void*)*1, x_80); -x_83 = x_82; -x_84 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_84, 0, x_83); -lean::cnstr_set(x_84, 1, x_5); -return x_84; +lean::cnstr_set(x_79, 0, x_75); +lean::cnstr_set_scalar(x_79, sizeof(void*)*1, x_77); +x_80 = x_79; +x_81 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_81, 0, x_80); +lean::cnstr_set(x_81, 1, x_5); +return x_81; } } } @@ -15551,81 +15635,79 @@ obj* x_3; obj* x_4; uint8 x_6; x_6 = l_String_OldIterator_hasNext___main(x_1); if (x_6 == 0) { -obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_12; obj* x_14; obj* x_17; obj* x_18; +obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_16; obj* x_17; x_7 = lean::box(0); x_8 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_9 = l_mjoin___rarg___closed__1; x_10 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_8, x_9, x_7, x_7, x_0, x_1, x_2); -lean::dec(x_1); -x_12 = lean::cnstr_get(x_10, 0); -lean::inc(x_12); -x_14 = lean::cnstr_get(x_10, 1); -lean::inc(x_14); +x_11 = lean::cnstr_get(x_10, 0); +lean::inc(x_11); +x_13 = lean::cnstr_get(x_10, 1); +lean::inc(x_13); lean::dec(x_10); -x_17 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_18 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_12); -x_3 = x_18; -x_4 = x_14; +x_16 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_17 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_11); +x_3 = x_17; +x_4 = x_13; goto lbl_5; } else { -uint32 x_19; uint8 x_20; -x_19 = l_String_OldIterator_curr___main(x_1); -x_20 = l_Char_isDigit(x_19); +uint32 x_18; uint8 x_19; +x_18 = l_String_OldIterator_curr___main(x_1); +x_19 = l_Char_isDigit(x_18); +if (x_19 == 0) +{ +uint8 x_20; +x_20 = l_Char_isAlpha(x_18); if (x_20 == 0) { -uint8 x_21; -x_21 = l_Char_isAlpha(x_19); -if (x_21 == 0) -{ -obj* x_22; obj* x_23; obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_33; obj* x_36; obj* x_37; -x_22 = l_Char_quoteCore(x_19); -x_23 = l_Char_HasRepr___closed__1; -x_24 = lean::string_append(x_23, x_22); -lean::dec(x_22); -x_26 = lean::string_append(x_24, x_23); -x_27 = lean::box(0); -x_28 = l_mjoin___rarg___closed__1; -x_29 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_26, x_28, x_27, x_27, x_0, x_1, x_2); -lean::dec(x_1); -x_31 = lean::cnstr_get(x_29, 0); +obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_34; obj* x_35; +x_21 = l_Char_quoteCore(x_18); +x_22 = l_Char_HasRepr___closed__1; +x_23 = lean::string_append(x_22, x_21); +lean::dec(x_21); +x_25 = lean::string_append(x_23, x_22); +x_26 = lean::box(0); +x_27 = l_mjoin___rarg___closed__1; +x_28 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_25, x_27, x_26, x_26, x_0, x_1, x_2); +x_29 = lean::cnstr_get(x_28, 0); +lean::inc(x_29); +x_31 = lean::cnstr_get(x_28, 1); lean::inc(x_31); -x_33 = lean::cnstr_get(x_29, 1); -lean::inc(x_33); -lean::dec(x_29); -x_36 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_37 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_36, x_31); -x_3 = x_37; -x_4 = x_33; +lean::dec(x_28); +x_34 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_35 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_34, x_29); +x_3 = x_35; +x_4 = x_31; goto lbl_5; } else { -obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_38 = l_String_OldIterator_next___main(x_1); -x_39 = lean::box(0); -x_40 = lean::box_uint32(x_19); -x_41 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_38); -lean::cnstr_set(x_41, 2, x_39); -x_3 = x_41; +obj* x_36; obj* x_37; obj* x_38; obj* x_39; +x_36 = l_String_OldIterator_next___main(x_1); +x_37 = lean::box(0); +x_38 = lean::box_uint32(x_18); +x_39 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_36); +lean::cnstr_set(x_39, 2, x_37); +x_3 = x_39; x_4 = x_2; goto lbl_5; } } else { -obj* x_42; obj* x_43; obj* x_44; obj* x_45; -x_42 = l_String_OldIterator_next___main(x_1); -x_43 = lean::box(0); -x_44 = lean::box_uint32(x_19); -x_45 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_45, 0, x_44); -lean::cnstr_set(x_45, 1, x_42); -lean::cnstr_set(x_45, 2, x_43); -x_3 = x_45; +obj* x_40; obj* x_41; obj* x_42; obj* x_43; +x_40 = l_String_OldIterator_next___main(x_1); +x_41 = lean::box(0); +x_42 = lean::box_uint32(x_18); +x_43 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_40); +lean::cnstr_set(x_43, 2, x_41); +x_3 = x_43; x_4 = x_2; goto lbl_5; } @@ -15634,62 +15716,62 @@ lbl_5: { if (lean::obj_tag(x_3) == 0) { -obj* x_46; obj* x_48; obj* x_50; obj* x_53; uint32 x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_59; obj* x_61; obj* x_62; obj* x_63; -x_46 = lean::cnstr_get(x_3, 0); +obj* x_44; obj* x_46; obj* x_48; obj* x_51; uint32 x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_57; obj* x_59; obj* x_60; obj* x_61; +x_44 = lean::cnstr_get(x_3, 0); +lean::inc(x_44); +x_46 = lean::cnstr_get(x_3, 1); lean::inc(x_46); -x_48 = lean::cnstr_get(x_3, 1); +x_48 = lean::cnstr_get(x_3, 2); lean::inc(x_48); -x_50 = lean::cnstr_get(x_3, 2); -lean::inc(x_50); lean::dec(x_3); -x_53 = l_String_splitAux___main___closed__1; -x_54 = lean::unbox_uint32(x_46); -x_55 = lean::string_push(x_53, x_54); -x_56 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_parseHexLit___spec__2(x_55, x_0, x_48, x_4); -x_57 = lean::cnstr_get(x_56, 0); -x_59 = lean::cnstr_get(x_56, 1); -if (lean::is_exclusive(x_56)) { - x_61 = x_56; +x_51 = l_String_splitAux___main___closed__1; +x_52 = lean::unbox_uint32(x_44); +x_53 = lean::string_push(x_51, x_52); +x_54 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_parseHexLit___spec__2(x_53, x_0, x_46, x_4); +x_55 = lean::cnstr_get(x_54, 0); +x_57 = lean::cnstr_get(x_54, 1); +if (lean::is_exclusive(x_54)) { + x_59 = x_54; } else { + lean::inc(x_55); lean::inc(x_57); - lean::inc(x_59); - lean::dec(x_56); - x_61 = lean::box(0); + lean::dec(x_54); + x_59 = lean::box(0); } -x_62 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_50, x_57); -if (lean::is_scalar(x_61)) { - x_63 = lean::alloc_cnstr(0, 2, 0); +x_60 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_48, x_55); +if (lean::is_scalar(x_59)) { + x_61 = lean::alloc_cnstr(0, 2, 0); } else { - x_63 = x_61; + x_61 = x_59; } -lean::cnstr_set(x_63, 0, x_62); -lean::cnstr_set(x_63, 1, x_59); -return x_63; +lean::cnstr_set(x_61, 0, x_60); +lean::cnstr_set(x_61, 1, x_57); +return x_61; } else { -obj* x_64; uint8 x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; -x_64 = lean::cnstr_get(x_3, 0); -x_66 = lean::cnstr_get_scalar(x_3, sizeof(void*)*1); +obj* x_62; uint8 x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; +x_62 = lean::cnstr_get(x_3, 0); +x_64 = lean::cnstr_get_scalar(x_3, sizeof(void*)*1); if (lean::is_exclusive(x_3)) { - x_67 = x_3; + x_65 = x_3; } else { - lean::inc(x_64); + lean::inc(x_62); lean::dec(x_3); - x_67 = lean::box(0); + x_65 = lean::box(0); } -if (lean::is_scalar(x_67)) { - x_68 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_65)) { + x_66 = lean::alloc_cnstr(1, 1, 1); } else { - x_68 = x_67; + x_66 = x_65; } -lean::cnstr_set(x_68, 0, x_64); -lean::cnstr_set_scalar(x_68, sizeof(void*)*1, x_66); -x_69 = x_68; -x_70 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_70, 0, x_69); -lean::cnstr_set(x_70, 1, x_4); -return x_70; +lean::cnstr_set(x_66, 0, x_62); +lean::cnstr_set_scalar(x_66, sizeof(void*)*1, x_64); +x_67 = x_66; +x_68 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_68, 0, x_67); +lean::cnstr_set(x_68, 1, x_4); +return x_68; } } } @@ -16285,70 +16367,64 @@ return x_115; obj* _init_l_Lean_Parser_number_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(0ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_number; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_number; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_number_HasView_x_27___lambda__2___closed__2() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(1ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_number; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_number; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_number_HasView_x_27___lambda__2___closed__3() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(2ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_number; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_number; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_number_HasView_x_27___lambda__2___closed__4() { @@ -16364,24 +16440,22 @@ return x_2; obj* _init_l_Lean_Parser_number_HasView_x_27___lambda__2___closed__5() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_0 = lean::box(0); x_1 = lean::box(0); x_2 = lean::mk_nat_obj(3ul); x_3 = lean_name_mk_numeral(x_1, x_2); -x_4 = lean::box(0); -x_5 = lean::box(3); -x_6 = l_Option_getOrElse___main___rarg(x_4, x_5); +x_4 = lean::box(3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +x_6 = l_Lean_Parser_Syntax_mkNode(x_3, x_5); x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); lean::cnstr_set(x_7, 1, x_0); -x_8 = l_Lean_Parser_Syntax_mkNode(x_3, x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_0); -x_10 = l_Lean_Parser_number; -x_11 = l_Lean_Parser_Syntax_mkNode(x_10, x_9); -return x_11; +x_8 = l_Lean_Parser_number; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } obj* _init_l_Lean_Parser_number_HasView_x_27___lambda__2___closed__6() { @@ -16414,178 +16488,122 @@ return x_5; } else { -obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +obj* x_6; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; x_6 = lean::cnstr_get(x_2, 0); -if (lean::is_exclusive(x_2)) { - x_8 = x_2; -} else { - lean::inc(x_6); - lean::dec(x_2); - x_8 = lean::box(0); -} +lean::inc(x_6); +lean::dec(x_2); x_9 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_9, 0, x_6); -if (lean::is_scalar(x_8)) { - x_10 = lean::alloc_cnstr(1, 1, 0); -} else { - x_10 = x_8; -} +x_10 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_10, 0, x_9); -x_11 = lean::box(3); -x_12 = l_Option_getOrElse___main___rarg(x_10, x_11); -lean::dec(x_10); -x_14 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_14, 0, x_12); -lean::cnstr_set(x_14, 1, x_1); -x_15 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; -x_16 = l_Lean_Parser_Syntax_mkNode(x_15, x_14); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_16); -lean::cnstr_set(x_17, 1, x_1); -x_18 = l_Lean_Parser_number; -x_19 = l_Lean_Parser_Syntax_mkNode(x_18, x_17); -return x_19; +lean::cnstr_set(x_10, 1, x_1); +x_11 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__1; +x_12 = l_Lean_Parser_Syntax_mkNode(x_11, x_10); +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_1); +x_14 = l_Lean_Parser_number; +x_15 = l_Lean_Parser_Syntax_mkNode(x_14, x_13); +return x_15; } } case 1: { -obj* x_20; -x_20 = lean::cnstr_get(x_0, 0); -lean::inc(x_20); +obj* x_16; +x_16 = lean::cnstr_get(x_0, 0); +lean::inc(x_16); lean::dec(x_0); -if (lean::obj_tag(x_20) == 0) +if (lean::obj_tag(x_16) == 0) { -obj* x_23; -x_23 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__2; -return x_23; +obj* x_19; +x_19 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__2; +return x_19; } else { -obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; -x_24 = lean::cnstr_get(x_20, 0); -if (lean::is_exclusive(x_20)) { - x_26 = x_20; -} else { - lean::inc(x_24); - lean::dec(x_20); - x_26 = lean::box(0); -} -x_27 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_27, 0, x_24); -if (lean::is_scalar(x_26)) { - x_28 = lean::alloc_cnstr(1, 1, 0); -} else { - x_28 = x_26; -} -lean::cnstr_set(x_28, 0, x_27); -x_29 = lean::box(3); -x_30 = l_Option_getOrElse___main___rarg(x_28, x_29); -lean::dec(x_28); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_30); -lean::cnstr_set(x_32, 1, x_1); -x_33 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; -x_34 = l_Lean_Parser_Syntax_mkNode(x_33, x_32); -x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_34); -lean::cnstr_set(x_35, 1, x_1); -x_36 = l_Lean_Parser_number; -x_37 = l_Lean_Parser_Syntax_mkNode(x_36, x_35); -return x_37; +obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +x_20 = lean::cnstr_get(x_16, 0); +lean::inc(x_20); +lean::dec(x_16); +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_23); +lean::cnstr_set(x_24, 1, x_1); +x_25 = l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__3; +x_26 = l_Lean_Parser_Syntax_mkNode(x_25, x_24); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_1); +x_28 = l_Lean_Parser_number; +x_29 = l_Lean_Parser_Syntax_mkNode(x_28, x_27); +return x_29; } } case 2: { -obj* x_38; -x_38 = lean::cnstr_get(x_0, 0); -lean::inc(x_38); +obj* x_30; +x_30 = lean::cnstr_get(x_0, 0); +lean::inc(x_30); lean::dec(x_0); -if (lean::obj_tag(x_38) == 0) +if (lean::obj_tag(x_30) == 0) { -obj* x_41; -x_41 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__3; -return x_41; +obj* x_33; +x_33 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__3; +return x_33; } else { -obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; -x_42 = lean::cnstr_get(x_38, 0); -if (lean::is_exclusive(x_38)) { - x_44 = x_38; -} else { - lean::inc(x_42); - lean::dec(x_38); - x_44 = lean::box(0); -} -x_45 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_45, 0, x_42); -if (lean::is_scalar(x_44)) { - x_46 = lean::alloc_cnstr(1, 1, 0); -} else { - x_46 = x_44; -} -lean::cnstr_set(x_46, 0, x_45); -x_47 = lean::box(3); -x_48 = l_Option_getOrElse___main___rarg(x_46, x_47); -lean::dec(x_46); -x_50 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_50, 0, x_48); -lean::cnstr_set(x_50, 1, x_1); -x_51 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__4; -x_52 = l_Lean_Parser_Syntax_mkNode(x_51, x_50); -x_53 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_53, 0, x_52); -lean::cnstr_set(x_53, 1, x_1); -x_54 = l_Lean_Parser_number; -x_55 = l_Lean_Parser_Syntax_mkNode(x_54, x_53); -return x_55; +obj* x_34; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; +x_34 = lean::cnstr_get(x_30, 0); +lean::inc(x_34); +lean::dec(x_30); +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_34); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_1); +x_39 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__4; +x_40 = l_Lean_Parser_Syntax_mkNode(x_39, x_38); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_40); +lean::cnstr_set(x_41, 1, x_1); +x_42 = l_Lean_Parser_number; +x_43 = l_Lean_Parser_Syntax_mkNode(x_42, x_41); +return x_43; } } default: { -obj* x_56; -x_56 = lean::cnstr_get(x_0, 0); -lean::inc(x_56); +obj* x_44; +x_44 = lean::cnstr_get(x_0, 0); +lean::inc(x_44); lean::dec(x_0); -if (lean::obj_tag(x_56) == 0) +if (lean::obj_tag(x_44) == 0) { -obj* x_59; -x_59 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__5; -return x_59; +obj* x_47; +x_47 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__5; +return x_47; } else { -obj* x_60; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; -x_60 = lean::cnstr_get(x_56, 0); -if (lean::is_exclusive(x_56)) { - x_62 = x_56; -} else { - lean::inc(x_60); - lean::dec(x_56); - x_62 = lean::box(0); -} -x_63 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_63, 0, x_60); -if (lean::is_scalar(x_62)) { - x_64 = lean::alloc_cnstr(1, 1, 0); -} else { - x_64 = x_62; -} -lean::cnstr_set(x_64, 0, x_63); -x_65 = lean::box(3); -x_66 = l_Option_getOrElse___main___rarg(x_64, x_65); -lean::dec(x_64); -x_68 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_68, 0, x_66); -lean::cnstr_set(x_68, 1, x_1); -x_69 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__6; -x_70 = l_Lean_Parser_Syntax_mkNode(x_69, x_68); -x_71 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_71, 0, x_70); -lean::cnstr_set(x_71, 1, x_1); -x_72 = l_Lean_Parser_number; -x_73 = l_Lean_Parser_Syntax_mkNode(x_72, x_71); -return x_73; +obj* x_48; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_48 = lean::cnstr_get(x_44, 0); +lean::inc(x_48); +lean::dec(x_44); +x_51 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_51, 0, x_48); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_1); +x_53 = l_Lean_Parser_number_HasView_x_27___lambda__2___closed__6; +x_54 = l_Lean_Parser_Syntax_mkNode(x_53, x_52); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_54); +lean::cnstr_set(x_55, 1, x_1); +x_56 = l_Lean_Parser_number; +x_57 = l_Lean_Parser_Syntax_mkNode(x_56, x_55); +return x_57; } } } @@ -16813,214 +16831,212 @@ uint8 x_3; x_3 = l_String_OldIterator_hasNext___main(x_1); if (x_3 == 0) { -obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; +obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_14; x_4 = lean::box(0); x_5 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_6 = l_mjoin___rarg___closed__1; x_7 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_5, x_6, x_4, x_4, x_0, x_1, x_2); -lean::dec(x_1); -x_9 = lean::cnstr_get(x_7, 0); -x_11 = lean::cnstr_get(x_7, 1); +x_8 = lean::cnstr_get(x_7, 0); +x_10 = lean::cnstr_get(x_7, 1); if (lean::is_exclusive(x_7)) { lean::cnstr_set(x_7, 0, lean::box(0)); lean::cnstr_set(x_7, 1, lean::box(0)); - x_13 = x_7; + x_12 = x_7; } else { - lean::inc(x_9); - lean::inc(x_11); + lean::inc(x_8); + lean::inc(x_10); lean::dec(x_7); - x_13 = lean::box(0); + x_12 = lean::box(0); } -x_14 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_15 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_9); -if (lean::obj_tag(x_15) == 0) +x_13 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_14 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_13, x_8); +if (lean::obj_tag(x_14) == 0) { -obj* x_17; obj* x_19; obj* x_21; obj* x_24; uint32 x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_30; obj* x_32; obj* x_33; obj* x_34; -lean::dec(x_13); -x_17 = lean::cnstr_get(x_15, 0); -lean::inc(x_17); -x_19 = lean::cnstr_get(x_15, 1); -lean::inc(x_19); -x_21 = lean::cnstr_get(x_15, 2); -lean::inc(x_21); -lean::dec(x_15); -x_24 = l_String_splitAux___main___closed__1; -x_25 = lean::unbox_uint32(x_17); -x_26 = lean::string_push(x_24, x_25); -x_27 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_number_x_27___spec__2(x_26, x_0, x_19, x_11); -x_28 = lean::cnstr_get(x_27, 0); -x_30 = lean::cnstr_get(x_27, 1); -if (lean::is_exclusive(x_27)) { - x_32 = x_27; +obj* x_16; obj* x_18; obj* x_20; obj* x_23; uint32 x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +lean::dec(x_12); +x_16 = lean::cnstr_get(x_14, 0); +lean::inc(x_16); +x_18 = lean::cnstr_get(x_14, 1); +lean::inc(x_18); +x_20 = lean::cnstr_get(x_14, 2); +lean::inc(x_20); +lean::dec(x_14); +x_23 = l_String_splitAux___main___closed__1; +x_24 = lean::unbox_uint32(x_16); +x_25 = lean::string_push(x_23, x_24); +x_26 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_number_x_27___spec__2(x_25, x_0, x_18, x_10); +x_27 = lean::cnstr_get(x_26, 0); +x_29 = lean::cnstr_get(x_26, 1); +if (lean::is_exclusive(x_26)) { + x_31 = x_26; } else { - lean::inc(x_28); - lean::inc(x_30); - lean::dec(x_27); - x_32 = lean::box(0); + lean::inc(x_27); + lean::inc(x_29); + lean::dec(x_26); + x_31 = lean::box(0); } -x_33 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_28); -if (lean::is_scalar(x_32)) { - x_34 = lean::alloc_cnstr(0, 2, 0); +x_32 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_27); +if (lean::is_scalar(x_31)) { + x_33 = lean::alloc_cnstr(0, 2, 0); } else { - x_34 = x_32; + x_33 = x_31; } -lean::cnstr_set(x_34, 0, x_33); -lean::cnstr_set(x_34, 1, x_30); -return x_34; +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_29); +return x_33; } else { -obj* x_35; uint8 x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_35 = lean::cnstr_get(x_15, 0); -x_37 = lean::cnstr_get_scalar(x_15, sizeof(void*)*1); -if (lean::is_exclusive(x_15)) { - x_38 = x_15; +obj* x_34; uint8 x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_34 = lean::cnstr_get(x_14, 0); +x_36 = lean::cnstr_get_scalar(x_14, sizeof(void*)*1); +if (lean::is_exclusive(x_14)) { + x_37 = x_14; } else { - lean::inc(x_35); - lean::dec(x_15); - x_38 = lean::box(0); + lean::inc(x_34); + lean::dec(x_14); + x_37 = lean::box(0); } -if (lean::is_scalar(x_38)) { - x_39 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(1, 1, 1); } else { - x_39 = x_38; + x_38 = x_37; } -lean::cnstr_set(x_39, 0, x_35); -lean::cnstr_set_scalar(x_39, sizeof(void*)*1, x_37); -x_40 = x_39; -if (lean::is_scalar(x_13)) { - x_41 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_38, 0, x_34); +lean::cnstr_set_scalar(x_38, sizeof(void*)*1, x_36); +x_39 = x_38; +if (lean::is_scalar(x_12)) { + x_40 = lean::alloc_cnstr(0, 2, 0); } else { - x_41 = x_13; + x_40 = x_12; } -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_11); -return x_41; +lean::cnstr_set(x_40, 0, x_39); +lean::cnstr_set(x_40, 1, x_10); +return x_40; } } else { -uint32 x_42; uint8 x_43; -x_42 = l_String_OldIterator_curr___main(x_1); -x_43 = l_Char_isDigit(x_42); -if (x_43 == 0) +uint32 x_41; uint8 x_42; +x_41 = l_String_OldIterator_curr___main(x_1); +x_42 = l_Char_isDigit(x_41); +if (x_42 == 0) { -obj* x_44; obj* x_45; obj* x_46; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_53; obj* x_55; obj* x_57; obj* x_58; obj* x_59; -x_44 = l_Char_quoteCore(x_42); -x_45 = l_Char_HasRepr___closed__1; -x_46 = lean::string_append(x_45, x_44); -lean::dec(x_44); -x_48 = lean::string_append(x_46, x_45); -x_49 = lean::box(0); -x_50 = l_mjoin___rarg___closed__1; -x_51 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_48, x_50, x_49, x_49, x_0, x_1, x_2); -lean::dec(x_1); -x_53 = lean::cnstr_get(x_51, 0); -x_55 = lean::cnstr_get(x_51, 1); -if (lean::is_exclusive(x_51)) { - lean::cnstr_set(x_51, 0, lean::box(0)); - lean::cnstr_set(x_51, 1, lean::box(0)); - x_57 = x_51; +obj* x_43; obj* x_44; obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_53; obj* x_55; obj* x_56; obj* x_57; +x_43 = l_Char_quoteCore(x_41); +x_44 = l_Char_HasRepr___closed__1; +x_45 = lean::string_append(x_44, x_43); +lean::dec(x_43); +x_47 = lean::string_append(x_45, x_44); +x_48 = lean::box(0); +x_49 = l_mjoin___rarg___closed__1; +x_50 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_47, x_49, x_48, x_48, x_0, x_1, x_2); +x_51 = lean::cnstr_get(x_50, 0); +x_53 = lean::cnstr_get(x_50, 1); +if (lean::is_exclusive(x_50)) { + lean::cnstr_set(x_50, 0, lean::box(0)); + lean::cnstr_set(x_50, 1, lean::box(0)); + x_55 = x_50; } else { + lean::inc(x_51); lean::inc(x_53); - lean::inc(x_55); - lean::dec(x_51); - x_57 = lean::box(0); + lean::dec(x_50); + x_55 = lean::box(0); } -x_58 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_59 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_58, x_53); -if (lean::obj_tag(x_59) == 0) +x_56 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_57 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_56, x_51); +if (lean::obj_tag(x_57) == 0) { -obj* x_61; obj* x_63; obj* x_65; obj* x_68; uint32 x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_74; obj* x_76; obj* x_77; obj* x_78; -lean::dec(x_57); -x_61 = lean::cnstr_get(x_59, 0); +obj* x_59; obj* x_61; obj* x_63; obj* x_66; uint32 x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_72; obj* x_74; obj* x_75; obj* x_76; +lean::dec(x_55); +x_59 = lean::cnstr_get(x_57, 0); +lean::inc(x_59); +x_61 = lean::cnstr_get(x_57, 1); lean::inc(x_61); -x_63 = lean::cnstr_get(x_59, 1); +x_63 = lean::cnstr_get(x_57, 2); lean::inc(x_63); -x_65 = lean::cnstr_get(x_59, 2); -lean::inc(x_65); -lean::dec(x_59); -x_68 = l_String_splitAux___main___closed__1; -x_69 = lean::unbox_uint32(x_61); -x_70 = lean::string_push(x_68, x_69); -x_71 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_number_x_27___spec__4(x_70, x_0, x_63, x_55); -x_72 = lean::cnstr_get(x_71, 0); -x_74 = lean::cnstr_get(x_71, 1); -if (lean::is_exclusive(x_71)) { - x_76 = x_71; +lean::dec(x_57); +x_66 = l_String_splitAux___main___closed__1; +x_67 = lean::unbox_uint32(x_59); +x_68 = lean::string_push(x_66, x_67); +x_69 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_number_x_27___spec__4(x_68, x_0, x_61, x_53); +x_70 = lean::cnstr_get(x_69, 0); +x_72 = lean::cnstr_get(x_69, 1); +if (lean::is_exclusive(x_69)) { + x_74 = x_69; } else { + lean::inc(x_70); lean::inc(x_72); - lean::inc(x_74); - lean::dec(x_71); - x_76 = lean::box(0); + lean::dec(x_69); + x_74 = lean::box(0); } -x_77 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_65, x_72); -if (lean::is_scalar(x_76)) { - x_78 = lean::alloc_cnstr(0, 2, 0); +x_75 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_63, x_70); +if (lean::is_scalar(x_74)) { + x_76 = lean::alloc_cnstr(0, 2, 0); } else { - x_78 = x_76; + x_76 = x_74; } -lean::cnstr_set(x_78, 0, x_77); -lean::cnstr_set(x_78, 1, x_74); -return x_78; +lean::cnstr_set(x_76, 0, x_75); +lean::cnstr_set(x_76, 1, x_72); +return x_76; } else { -obj* x_79; uint8 x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; -x_79 = lean::cnstr_get(x_59, 0); -x_81 = lean::cnstr_get_scalar(x_59, sizeof(void*)*1); -if (lean::is_exclusive(x_59)) { - x_82 = x_59; +obj* x_77; uint8 x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; +x_77 = lean::cnstr_get(x_57, 0); +x_79 = lean::cnstr_get_scalar(x_57, sizeof(void*)*1); +if (lean::is_exclusive(x_57)) { + x_80 = x_57; } else { - lean::inc(x_79); - lean::dec(x_59); - x_82 = lean::box(0); + lean::inc(x_77); + lean::dec(x_57); + x_80 = lean::box(0); } -if (lean::is_scalar(x_82)) { - x_83 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_80)) { + x_81 = lean::alloc_cnstr(1, 1, 1); } else { - x_83 = x_82; + x_81 = x_80; } -lean::cnstr_set(x_83, 0, x_79); -lean::cnstr_set_scalar(x_83, sizeof(void*)*1, x_81); -x_84 = x_83; -if (lean::is_scalar(x_57)) { - x_85 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_81, 0, x_77); +lean::cnstr_set_scalar(x_81, sizeof(void*)*1, x_79); +x_82 = x_81; +if (lean::is_scalar(x_55)) { + x_83 = lean::alloc_cnstr(0, 2, 0); } else { - x_85 = x_57; + x_83 = x_55; } -lean::cnstr_set(x_85, 0, x_84); -lean::cnstr_set(x_85, 1, x_55); -return x_85; +lean::cnstr_set(x_83, 0, x_82); +lean::cnstr_set(x_83, 1, x_53); +return x_83; } } else { -obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_92; obj* x_94; obj* x_95; obj* x_96; obj* x_97; -x_86 = l_String_OldIterator_next___main(x_1); -x_87 = l_String_splitAux___main___closed__1; -x_88 = lean::string_push(x_87, x_42); -x_89 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_number_x_27___spec__6(x_88, x_0, x_86, x_2); -x_90 = lean::cnstr_get(x_89, 0); -x_92 = lean::cnstr_get(x_89, 1); -if (lean::is_exclusive(x_89)) { - x_94 = x_89; +obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_90; obj* x_92; obj* x_93; obj* x_94; obj* x_95; +x_84 = l_String_OldIterator_next___main(x_1); +x_85 = l_String_splitAux___main___closed__1; +x_86 = lean::string_push(x_85, x_41); +x_87 = l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_number_x_27___spec__6(x_86, x_0, x_84, x_2); +x_88 = lean::cnstr_get(x_87, 0); +x_90 = lean::cnstr_get(x_87, 1); +if (lean::is_exclusive(x_87)) { + x_92 = x_87; } else { + lean::inc(x_88); lean::inc(x_90); - lean::inc(x_92); - lean::dec(x_89); - x_94 = lean::box(0); + lean::dec(x_87); + x_92 = lean::box(0); } -x_95 = lean::box(0); -x_96 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_95, x_90); -if (lean::is_scalar(x_94)) { - x_97 = lean::alloc_cnstr(0, 2, 0); +x_93 = lean::box(0); +x_94 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_93, x_88); +if (lean::is_scalar(x_92)) { + x_95 = lean::alloc_cnstr(0, 2, 0); } else { - x_97 = x_94; + x_95 = x_92; } -lean::cnstr_set(x_97, 0, x_96); -lean::cnstr_set(x_97, 1, x_92); -return x_97; +lean::cnstr_set(x_95, 0, x_94); +lean::cnstr_set(x_95, 1, x_90); +return x_95; } } } @@ -17542,26 +17558,47 @@ goto lbl_8; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__12___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_5; obj* x_6; uint8 x_7; obj* x_8; obj* x_9; -x_5 = l_Option_getOrElse___main___rarg(x_2, x_4); -x_6 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_0); -lean::cnstr_set(x_6, 2, x_1); -lean::cnstr_set(x_6, 3, x_3); -x_7 = 0; -x_8 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_8, 0, x_6); -lean::cnstr_set_scalar(x_8, sizeof(void*)*1, x_7); -x_9 = x_8; -return x_9; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_5; uint8 x_6; obj* x_7; obj* x_8; +x_5 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +lean::cnstr_set(x_5, 2, x_1); +lean::cnstr_set(x_5, 3, x_3); +x_6 = 0; +x_7 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_7, 0, x_5); +lean::cnstr_set_scalar(x_7, sizeof(void*)*1, x_6); +x_8 = x_7; +return x_8; +} +else +{ +obj* x_10; obj* x_13; uint8 x_14; obj* x_15; obj* x_16; +lean::dec(x_4); +x_10 = lean::cnstr_get(x_2, 0); +lean::inc(x_10); +lean::dec(x_2); +x_13 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_13, 0, x_10); +lean::cnstr_set(x_13, 1, x_0); +lean::cnstr_set(x_13, 2, x_1); +lean::cnstr_set(x_13, 3, x_3); +x_14 = 0; +x_15 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_15, 0, x_13); +lean::cnstr_set_scalar(x_15, sizeof(void*)*1, x_14); +x_16 = x_15; +return x_16; +} } } obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__12(obj* x_0) { _start: { obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__12___rarg___boxed), 5, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__12___rarg), 5, 0); return x_1; } } @@ -17674,84 +17711,85 @@ return x_48; obj* l_Lean_Parser_MonadParsec_longestMatch___at_Lean_Parser_number_x_27___spec__10(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_9; obj* x_11; +obj* x_4; obj* x_5; obj* x_6; obj* x_8; obj* x_10; obj* x_12; x_4 = lean::box(0); x_5 = l_Lean_Parser_MonadParsec_longestMatch___rarg___lambda__2___closed__1; x_6 = l_mjoin___rarg___closed__1; -x_7 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__12___rarg(x_5, x_6, x_4, x_4, x_2); lean::inc(x_2); -x_9 = l_List_mfoldr___main___at_Lean_Parser_number_x_27___spec__13(x_2, x_7, x_0, x_1, x_2, x_3); +x_8 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__12___rarg(x_5, x_6, x_4, x_4, x_2); +lean::inc(x_2); +x_10 = l_List_mfoldr___main___at_Lean_Parser_number_x_27___spec__13(x_2, x_8, x_0, x_1, x_2, x_3); lean::dec(x_2); -x_11 = lean::cnstr_get(x_9, 0); -lean::inc(x_11); -if (lean::obj_tag(x_11) == 0) +x_12 = lean::cnstr_get(x_10, 0); +lean::inc(x_12); +if (lean::obj_tag(x_12) == 0) { -obj* x_13; obj* x_15; obj* x_16; obj* x_18; obj* x_21; obj* x_22; obj* x_23; obj* x_24; -x_13 = lean::cnstr_get(x_9, 1); -if (lean::is_exclusive(x_9)) { - lean::cnstr_release(x_9, 0); - x_15 = x_9; +obj* x_14; obj* x_16; obj* x_17; obj* x_19; obj* x_22; obj* x_23; obj* x_24; obj* x_25; +x_14 = lean::cnstr_get(x_10, 1); +if (lean::is_exclusive(x_10)) { + lean::cnstr_release(x_10, 0); + x_16 = x_10; } else { - lean::inc(x_13); - lean::dec(x_9); - x_15 = lean::box(0); + lean::inc(x_14); + lean::dec(x_10); + x_16 = lean::box(0); } -x_16 = lean::cnstr_get(x_11, 0); -lean::inc(x_16); -x_18 = lean::cnstr_get(x_11, 2); -lean::inc(x_18); -lean::dec(x_11); -x_21 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_16); -x_22 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_23 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_22, x_21); -if (lean::is_scalar(x_15)) { - x_24 = lean::alloc_cnstr(0, 2, 0); +x_17 = lean::cnstr_get(x_12, 0); +lean::inc(x_17); +x_19 = lean::cnstr_get(x_12, 2); +lean::inc(x_19); +lean::dec(x_12); +x_22 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_19, x_17); +x_23 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_24 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_23, x_22); +if (lean::is_scalar(x_16)) { + x_25 = lean::alloc_cnstr(0, 2, 0); } else { - x_24 = x_15; + x_25 = x_16; } -lean::cnstr_set(x_24, 0, x_23); -lean::cnstr_set(x_24, 1, x_13); -return x_24; +lean::cnstr_set(x_25, 0, x_24); +lean::cnstr_set(x_25, 1, x_14); +return x_25; } else { -obj* x_25; obj* x_27; obj* x_28; uint8 x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; -x_25 = lean::cnstr_get(x_9, 1); -if (lean::is_exclusive(x_9)) { - lean::cnstr_release(x_9, 0); - x_27 = x_9; +obj* x_26; obj* x_28; obj* x_29; uint8 x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_26 = lean::cnstr_get(x_10, 1); +if (lean::is_exclusive(x_10)) { + lean::cnstr_release(x_10, 0); + x_28 = x_10; } else { - lean::inc(x_25); - lean::dec(x_9); - x_27 = lean::box(0); + lean::inc(x_26); + lean::dec(x_10); + x_28 = lean::box(0); } -x_28 = lean::cnstr_get(x_11, 0); -x_30 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); -if (lean::is_exclusive(x_11)) { - x_31 = x_11; +x_29 = lean::cnstr_get(x_12, 0); +x_31 = lean::cnstr_get_scalar(x_12, sizeof(void*)*1); +if (lean::is_exclusive(x_12)) { + x_32 = x_12; } else { - lean::inc(x_28); - lean::dec(x_11); - x_31 = lean::box(0); + lean::inc(x_29); + lean::dec(x_12); + x_32 = lean::box(0); } -if (lean::is_scalar(x_31)) { - x_32 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_32)) { + x_33 = lean::alloc_cnstr(1, 1, 1); } else { - x_32 = x_31; + x_33 = x_32; } -lean::cnstr_set(x_32, 0, x_28); -lean::cnstr_set_scalar(x_32, sizeof(void*)*1, x_30); -x_33 = x_32; -x_34 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_35 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_34, x_33); -if (lean::is_scalar(x_27)) { - x_36 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_33, 0, x_29); +lean::cnstr_set_scalar(x_33, sizeof(void*)*1, x_31); +x_34 = x_33; +x_35 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_36 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_35, x_34); +if (lean::is_scalar(x_28)) { + x_37 = lean::alloc_cnstr(0, 2, 0); } else { - x_36 = x_27; + x_37 = x_28; } -lean::cnstr_set(x_36, 0, x_35); -lean::cnstr_set(x_36, 1, x_25); -return x_36; +lean::cnstr_set(x_37, 0, x_36); +lean::cnstr_set(x_37, 1, x_26); +return x_37; } } } @@ -17773,7 +17811,7 @@ x_11 = lean::cnstr_get(x_9, 0); lean::inc(x_11); if (lean::obj_tag(x_11) == 0) { -obj* x_13; obj* x_16; obj* x_18; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_27; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +obj* x_13; obj* x_16; obj* x_18; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_26; obj* x_28; obj* x_30; obj* x_31; obj* x_32; x_13 = lean::cnstr_get(x_8, 1); lean::inc(x_13); lean::dec(x_8); @@ -17786,113 +17824,112 @@ x_21 = lean::box(0); x_22 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1; x_23 = l_mjoin___rarg___closed__1; x_24 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_22, x_23, x_21, x_21, x_1, x_16, x_13); -lean::dec(x_16); lean::dec(x_1); -x_27 = lean::cnstr_get(x_24, 0); -x_29 = lean::cnstr_get(x_24, 1); +x_26 = lean::cnstr_get(x_24, 0); +x_28 = lean::cnstr_get(x_24, 1); if (lean::is_exclusive(x_24)) { - x_31 = x_24; + x_30 = x_24; } else { - lean::inc(x_27); - lean::inc(x_29); + lean::inc(x_26); + lean::inc(x_28); lean::dec(x_24); - x_31 = lean::box(0); + x_30 = lean::box(0); } -x_32 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_27); -if (lean::is_scalar(x_31)) { - x_33 = lean::alloc_cnstr(0, 2, 0); +x_31 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_26); +if (lean::is_scalar(x_30)) { + x_32 = lean::alloc_cnstr(0, 2, 0); } else { - x_33 = x_31; + x_32 = x_30; } -lean::cnstr_set(x_33, 0, x_32); -lean::cnstr_set(x_33, 1, x_29); -return x_33; +lean::cnstr_set(x_32, 0, x_31); +lean::cnstr_set(x_32, 1, x_28); +return x_32; } else { -obj* x_35; obj* x_37; obj* x_38; obj* x_40; obj* x_42; obj* x_43; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +obj* x_34; obj* x_36; obj* x_37; obj* x_39; obj* x_41; obj* x_42; obj* x_45; obj* x_46; obj* x_47; obj* x_48; lean::dec(x_1); -x_35 = lean::cnstr_get(x_8, 1); +x_34 = lean::cnstr_get(x_8, 1); if (lean::is_exclusive(x_8)) { lean::cnstr_release(x_8, 0); - x_37 = x_8; + x_36 = x_8; } else { - lean::inc(x_35); + lean::inc(x_34); lean::dec(x_8); - x_37 = lean::box(0); + x_36 = lean::box(0); } -x_38 = lean::cnstr_get(x_9, 1); -x_40 = lean::cnstr_get(x_9, 2); +x_37 = lean::cnstr_get(x_9, 1); +x_39 = lean::cnstr_get(x_9, 2); if (lean::is_exclusive(x_9)) { lean::cnstr_release(x_9, 0); - x_42 = x_9; + x_41 = x_9; } else { - lean::inc(x_38); - lean::inc(x_40); + lean::inc(x_37); + lean::inc(x_39); lean::dec(x_9); - x_42 = lean::box(0); + x_41 = lean::box(0); } -x_43 = lean::cnstr_get(x_11, 0); -lean::inc(x_43); +x_42 = lean::cnstr_get(x_11, 0); +lean::inc(x_42); lean::dec(x_11); -x_46 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_42)) { - x_47 = lean::alloc_cnstr(0, 3, 0); +x_45 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_41)) { + x_46 = lean::alloc_cnstr(0, 3, 0); } else { - x_47 = x_42; + x_46 = x_41; } -lean::cnstr_set(x_47, 0, x_43); -lean::cnstr_set(x_47, 1, x_38); -lean::cnstr_set(x_47, 2, x_46); -x_48 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_40, x_47); -if (lean::is_scalar(x_37)) { - x_49 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_46, 0, x_42); +lean::cnstr_set(x_46, 1, x_37); +lean::cnstr_set(x_46, 2, x_45); +x_47 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_39, x_46); +if (lean::is_scalar(x_36)) { + x_48 = lean::alloc_cnstr(0, 2, 0); } else { - x_49 = x_37; + x_48 = x_36; } -lean::cnstr_set(x_49, 0, x_48); -lean::cnstr_set(x_49, 1, x_35); -return x_49; +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_34); +return x_48; } } else { -obj* x_51; obj* x_53; obj* x_54; uint8 x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +obj* x_50; obj* x_52; obj* x_53; uint8 x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; lean::dec(x_1); -x_51 = lean::cnstr_get(x_8, 1); +x_50 = lean::cnstr_get(x_8, 1); if (lean::is_exclusive(x_8)) { lean::cnstr_release(x_8, 0); - x_53 = x_8; + x_52 = x_8; } else { - lean::inc(x_51); + lean::inc(x_50); lean::dec(x_8); - x_53 = lean::box(0); + x_52 = lean::box(0); } -x_54 = lean::cnstr_get(x_9, 0); -x_56 = lean::cnstr_get_scalar(x_9, sizeof(void*)*1); +x_53 = lean::cnstr_get(x_9, 0); +x_55 = lean::cnstr_get_scalar(x_9, sizeof(void*)*1); if (lean::is_exclusive(x_9)) { - x_57 = x_9; + x_56 = x_9; } else { - lean::inc(x_54); + lean::inc(x_53); lean::dec(x_9); - x_57 = lean::box(0); + x_56 = lean::box(0); } -if (lean::is_scalar(x_57)) { - x_58 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_56)) { + x_57 = lean::alloc_cnstr(1, 1, 1); } else { - x_58 = x_57; + x_57 = x_56; } -lean::cnstr_set(x_58, 0, x_54); -lean::cnstr_set_scalar(x_58, sizeof(void*)*1, x_56); -x_59 = x_58; -if (lean::is_scalar(x_53)) { - x_60 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_57, 0, x_53); +lean::cnstr_set_scalar(x_57, sizeof(void*)*1, x_55); +x_58 = x_57; +if (lean::is_scalar(x_52)) { + x_59 = lean::alloc_cnstr(0, 2, 0); } else { - x_60 = x_53; + x_59 = x_52; } -lean::cnstr_set(x_60, 0, x_59); -lean::cnstr_set(x_60, 1, x_51); -return x_60; +lean::cnstr_set(x_59, 0, x_58); +lean::cnstr_set(x_59, 1, x_50); +return x_59; } } } @@ -18366,16 +18403,6 @@ lean::dec(x_0); return x_6; } } -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__12___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__12___rarg(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_2); -lean::dec(x_4); -return x_5; -} -} obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__12___boxed(obj* x_0) { _start: { @@ -18512,17 +18539,15 @@ return x_22; obj* _init_l_Lean_Parser_stringLit_HasView_x_27___lambda__2___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; x_0 = lean::box(0); -x_1 = lean::box(0); -x_2 = lean::box(3); -x_3 = l_Option_getOrElse___main___rarg(x_1, x_2); -x_4 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_4, 0, x_3); -lean::cnstr_set(x_4, 1, x_0); -x_5 = l_Lean_Parser_stringLit; -x_6 = l_Lean_Parser_Syntax_mkNode(x_5, x_4); -return x_6; +x_1 = lean::box(3); +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = l_Lean_Parser_stringLit; +x_4 = l_Lean_Parser_Syntax_mkNode(x_3, x_2); +return x_4; } } obj* l_Lean_Parser_stringLit_HasView_x_27___lambda__2(obj* x_0) { @@ -18536,33 +18561,19 @@ return x_1; } else { -obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; +obj* x_2; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; x_2 = lean::cnstr_get(x_0, 0); -if (lean::is_exclusive(x_0)) { - x_4 = x_0; -} else { - lean::inc(x_2); - lean::dec(x_0); - x_4 = lean::box(0); -} +lean::inc(x_2); +lean::dec(x_0); x_5 = lean::box(0); x_6 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_6, 0, x_2); -if (lean::is_scalar(x_4)) { - x_7 = lean::alloc_cnstr(1, 1, 0); -} else { - x_7 = x_4; -} +x_7 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_7, 0, x_6); -x_8 = lean::box(3); -x_9 = l_Option_getOrElse___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_11, 0, x_9); -lean::cnstr_set(x_11, 1, x_5); -x_12 = l_Lean_Parser_stringLit; -x_13 = l_Lean_Parser_Syntax_mkNode(x_12, x_11); -return x_13; +lean::cnstr_set(x_7, 1, x_5); +x_8 = l_Lean_Parser_stringLit; +x_9 = l_Lean_Parser_Syntax_mkNode(x_8, x_7); +return x_9; } } } @@ -18595,7 +18606,6 @@ lean::cnstr_set(x_5, 0, x_1); x_6 = lean::box(0); x_7 = l_mjoin___rarg___closed__1; x_8 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_0, x_7, x_5, x_6, x_2, x_3, x_4); -lean::dec(x_5); return x_8; } } @@ -18614,85 +18624,83 @@ uint8 x_3; x_3 = l_String_OldIterator_hasNext___main(x_1); if (x_3 == 0) { -obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; +obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_15; x_4 = lean::box(0); x_5 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_6 = l_mjoin___rarg___closed__1; x_7 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_5, x_6, x_4, x_4, x_0, x_1, x_2); -lean::dec(x_1); -x_9 = lean::cnstr_get(x_7, 0); -x_11 = lean::cnstr_get(x_7, 1); +x_8 = lean::cnstr_get(x_7, 0); +x_10 = lean::cnstr_get(x_7, 1); if (lean::is_exclusive(x_7)) { - x_13 = x_7; + x_12 = x_7; } else { - lean::inc(x_9); - lean::inc(x_11); + lean::inc(x_8); + lean::inc(x_10); lean::dec(x_7); - x_13 = lean::box(0); + x_12 = lean::box(0); } -x_14 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_15 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_9); -if (lean::is_scalar(x_13)) { - x_16 = lean::alloc_cnstr(0, 2, 0); +x_13 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_14 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_13, x_8); +if (lean::is_scalar(x_12)) { + x_15 = lean::alloc_cnstr(0, 2, 0); } else { - x_16 = x_13; + x_15 = x_12; } -lean::cnstr_set(x_16, 0, x_15); -lean::cnstr_set(x_16, 1, x_11); -return x_16; +lean::cnstr_set(x_15, 0, x_14); +lean::cnstr_set(x_15, 1, x_10); +return x_15; } else { -uint32 x_17; uint8 x_18; -x_17 = l_String_OldIterator_curr___main(x_1); -x_18 = l_Char_isDigit(x_17); -if (x_18 == 0) +uint32 x_16; uint8 x_17; +x_16 = l_String_OldIterator_curr___main(x_1); +x_17 = l_Char_isDigit(x_16); +if (x_17 == 0) { -obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; -x_19 = l_Char_quoteCore(x_17); -x_20 = l_Char_HasRepr___closed__1; -x_21 = lean::string_append(x_20, x_19); -lean::dec(x_19); -x_23 = lean::string_append(x_21, x_20); -x_24 = lean::box(0); -x_25 = l_mjoin___rarg___closed__1; -x_26 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_23, x_25, x_24, x_24, x_0, x_1, x_2); -lean::dec(x_1); -x_28 = lean::cnstr_get(x_26, 0); -x_30 = lean::cnstr_get(x_26, 1); -if (lean::is_exclusive(x_26)) { - x_32 = x_26; +obj* x_18; obj* x_19; obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_18 = l_Char_quoteCore(x_16); +x_19 = l_Char_HasRepr___closed__1; +x_20 = lean::string_append(x_19, x_18); +lean::dec(x_18); +x_22 = lean::string_append(x_20, x_19); +x_23 = lean::box(0); +x_24 = l_mjoin___rarg___closed__1; +x_25 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_22, x_24, x_23, x_23, x_0, x_1, x_2); +x_26 = lean::cnstr_get(x_25, 0); +x_28 = lean::cnstr_get(x_25, 1); +if (lean::is_exclusive(x_25)) { + x_30 = x_25; } else { + lean::inc(x_26); lean::inc(x_28); - lean::inc(x_30); - lean::dec(x_26); - x_32 = lean::box(0); + lean::dec(x_25); + x_30 = lean::box(0); } -x_33 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_34 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_33, x_28); -if (lean::is_scalar(x_32)) { - x_35 = lean::alloc_cnstr(0, 2, 0); +x_31 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_32 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_31, x_26); +if (lean::is_scalar(x_30)) { + x_33 = lean::alloc_cnstr(0, 2, 0); } else { - x_35 = x_32; + x_33 = x_30; } -lean::cnstr_set(x_35, 0, x_34); -lean::cnstr_set(x_35, 1, x_30); -return x_35; +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_28); +return x_33; } else { -obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; -x_36 = l_String_OldIterator_next___main(x_1); -x_37 = lean::box(0); -x_38 = lean::box_uint32(x_17); -x_39 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_39, 0, x_38); -lean::cnstr_set(x_39, 1, x_36); -lean::cnstr_set(x_39, 2, x_37); -x_40 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_40, 0, x_39); -lean::cnstr_set(x_40, 1, x_2); -return x_40; +obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_34 = l_String_OldIterator_next___main(x_1); +x_35 = lean::box(0); +x_36 = lean::box_uint32(x_16); +x_37 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_37, 0, x_36); +lean::cnstr_set(x_37, 1, x_34); +lean::cnstr_set(x_37, 2, x_35); +x_38 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_2); +return x_38; } } } @@ -18805,89 +18813,92 @@ lean::dec(x_3); x_51 = l_String_OldIterator_hasNext___main(x_1); if (x_51 == 0) { -obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_58; obj* x_61; obj* x_62; +obj* x_52; obj* x_53; obj* x_54; obj* x_56; obj* x_57; obj* x_59; obj* x_62; obj* x_63; x_52 = lean::box(0); x_53 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_54 = l_mjoin___rarg___closed__1; -x_55 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_53, x_54, x_52, x_52, x_0, x_1, x_4); -x_56 = lean::cnstr_get(x_55, 0); -lean::inc(x_56); -x_58 = lean::cnstr_get(x_55, 1); -lean::inc(x_58); -lean::dec(x_55); -x_61 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_62 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_61, x_56); -x_47 = x_62; -x_48 = x_58; -goto lbl_49; -} -else -{ -uint32 x_63; uint32 x_64; uint8 x_65; -x_63 = l_String_OldIterator_curr___main(x_1); -x_64 = 97; -x_65 = x_64 <= x_63; -if (x_65 == 0) -{ -obj* x_66; obj* x_67; obj* x_68; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_76; obj* x_79; obj* x_80; -x_66 = l_Char_quoteCore(x_63); -x_67 = l_Char_HasRepr___closed__1; -x_68 = lean::string_append(x_67, x_66); -lean::dec(x_66); -x_70 = lean::string_append(x_68, x_67); -x_71 = lean::box(0); -x_72 = l_mjoin___rarg___closed__1; -x_73 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_70, x_72, x_71, x_71, x_0, x_1, x_4); -x_74 = lean::cnstr_get(x_73, 0); -lean::inc(x_74); -x_76 = lean::cnstr_get(x_73, 1); -lean::inc(x_76); -lean::dec(x_73); -x_79 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_80 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_79, x_74); -x_47 = x_80; -x_48 = x_76; -goto lbl_49; -} -else -{ -uint32 x_81; uint8 x_82; -x_81 = 102; -x_82 = x_63 <= x_81; -if (x_82 == 0) -{ -obj* x_83; obj* x_84; obj* x_85; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_93; obj* x_96; obj* x_97; -x_83 = l_Char_quoteCore(x_63); -x_84 = l_Char_HasRepr___closed__1; -x_85 = lean::string_append(x_84, x_83); -lean::dec(x_83); -x_87 = lean::string_append(x_85, x_84); -x_88 = lean::box(0); -x_89 = l_mjoin___rarg___closed__1; -x_90 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_87, x_89, x_88, x_88, x_0, x_1, x_4); -x_91 = lean::cnstr_get(x_90, 0); -lean::inc(x_91); -x_93 = lean::cnstr_get(x_90, 1); -lean::inc(x_93); -lean::dec(x_90); -x_96 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_97 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_96, x_91); -x_47 = x_97; -x_48 = x_93; -goto lbl_49; -} -else -{ -obj* x_99; obj* x_100; obj* x_101; obj* x_102; lean::inc(x_1); -x_99 = l_String_OldIterator_next___main(x_1); -x_100 = lean::box(0); -x_101 = lean::box_uint32(x_63); -x_102 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_102, 0, x_101); -lean::cnstr_set(x_102, 1, x_99); -lean::cnstr_set(x_102, 2, x_100); -x_47 = x_102; +x_56 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_53, x_54, x_52, x_52, x_0, x_1, x_4); +x_57 = lean::cnstr_get(x_56, 0); +lean::inc(x_57); +x_59 = lean::cnstr_get(x_56, 1); +lean::inc(x_59); +lean::dec(x_56); +x_62 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_63 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_62, x_57); +x_47 = x_63; +x_48 = x_59; +goto lbl_49; +} +else +{ +uint32 x_64; uint32 x_65; uint8 x_66; +x_64 = l_String_OldIterator_curr___main(x_1); +x_65 = 97; +x_66 = x_65 <= x_64; +if (x_66 == 0) +{ +obj* x_67; obj* x_68; obj* x_69; obj* x_71; obj* x_72; obj* x_73; obj* x_75; obj* x_76; obj* x_78; obj* x_81; obj* x_82; +x_67 = l_Char_quoteCore(x_64); +x_68 = l_Char_HasRepr___closed__1; +x_69 = lean::string_append(x_68, x_67); +lean::dec(x_67); +x_71 = lean::string_append(x_69, x_68); +x_72 = lean::box(0); +x_73 = l_mjoin___rarg___closed__1; +lean::inc(x_1); +x_75 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_71, x_73, x_72, x_72, x_0, x_1, x_4); +x_76 = lean::cnstr_get(x_75, 0); +lean::inc(x_76); +x_78 = lean::cnstr_get(x_75, 1); +lean::inc(x_78); +lean::dec(x_75); +x_81 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_82 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_81, x_76); +x_47 = x_82; +x_48 = x_78; +goto lbl_49; +} +else +{ +uint32 x_83; uint8 x_84; +x_83 = 102; +x_84 = x_64 <= x_83; +if (x_84 == 0) +{ +obj* x_85; obj* x_86; obj* x_87; obj* x_89; obj* x_90; obj* x_91; obj* x_93; obj* x_94; obj* x_96; obj* x_99; obj* x_100; +x_85 = l_Char_quoteCore(x_64); +x_86 = l_Char_HasRepr___closed__1; +x_87 = lean::string_append(x_86, x_85); +lean::dec(x_85); +x_89 = lean::string_append(x_87, x_86); +x_90 = lean::box(0); +x_91 = l_mjoin___rarg___closed__1; +lean::inc(x_1); +x_93 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_89, x_91, x_90, x_90, x_0, x_1, x_4); +x_94 = lean::cnstr_get(x_93, 0); +lean::inc(x_94); +x_96 = lean::cnstr_get(x_93, 1); +lean::inc(x_96); +lean::dec(x_93); +x_99 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_100 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_99, x_94); +x_47 = x_100; +x_48 = x_96; +goto lbl_49; +} +else +{ +obj* x_102; obj* x_103; obj* x_104; obj* x_105; +lean::inc(x_1); +x_102 = l_String_OldIterator_next___main(x_1); +x_103 = lean::box(0); +x_104 = lean::box_uint32(x_64); +x_105 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_105, 0, x_104); +lean::cnstr_set(x_105, 1, x_102); +lean::cnstr_set(x_105, 2, x_103); +x_47 = x_105; x_48 = x_4; goto lbl_49; } @@ -18896,130 +18907,127 @@ goto lbl_49; } else { -obj* x_105; obj* x_106; obj* x_107; +obj* x_108; obj* x_109; obj* x_110; lean::dec(x_1); lean::dec(x_41); -x_105 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5___closed__1; -x_106 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_3, x_105); -x_107 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_107, 0, x_106); -lean::cnstr_set(x_107, 1, x_4); -return x_107; +x_108 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5___closed__1; +x_109 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_3, x_108); +x_110 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_110, 0, x_109); +lean::cnstr_set(x_110, 1, x_4); +return x_110; } lbl_46: { if (lean::obj_tag(x_44) == 0) { -obj* x_109; obj* x_110; obj* x_111; obj* x_112; +obj* x_112; obj* x_113; obj* x_114; obj* x_115; lean::dec(x_1); -x_109 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_41, x_44); -x_110 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5___closed__1; -x_111 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_109, x_110); -x_112 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_112, 0, x_111); -lean::cnstr_set(x_112, 1, x_45); -return x_112; +x_112 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_41, x_44); +x_113 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5___closed__1; +x_114 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_112, x_113); +x_115 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_115, 0, x_114); +lean::cnstr_set(x_115, 1, x_45); +return x_115; } else { -obj* x_113; uint8 x_115; obj* x_116; obj* x_117; -x_113 = lean::cnstr_get(x_44, 0); -lean::inc(x_113); -x_115 = lean::cnstr_get_scalar(x_44, sizeof(void*)*1); -if (x_115 == 0) +obj* x_116; uint8 x_118; obj* x_119; obj* x_120; +x_116 = lean::cnstr_get(x_44, 0); +lean::inc(x_116); +x_118 = lean::cnstr_get_scalar(x_44, sizeof(void*)*1); +if (x_118 == 0) { -uint8 x_120; +uint8 x_123; lean::dec(x_44); -x_120 = l_String_OldIterator_hasNext___main(x_1); -if (x_120 == 0) +x_123 = l_String_OldIterator_hasNext___main(x_1); +if (x_123 == 0) { -obj* x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_126; obj* x_128; obj* x_131; obj* x_132; -x_121 = lean::box(0); -x_122 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; -x_123 = l_mjoin___rarg___closed__1; -x_124 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_122, x_123, x_121, x_121, x_0, x_1, x_45); -lean::dec(x_1); -x_126 = lean::cnstr_get(x_124, 0); -lean::inc(x_126); -x_128 = lean::cnstr_get(x_124, 1); +obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; obj* x_130; obj* x_133; obj* x_134; +x_124 = lean::box(0); +x_125 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; +x_126 = l_mjoin___rarg___closed__1; +x_127 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_125, x_126, x_124, x_124, x_0, x_1, x_45); +x_128 = lean::cnstr_get(x_127, 0); lean::inc(x_128); -lean::dec(x_124); -x_131 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_132 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_131, x_126); -x_116 = x_132; -x_117 = x_128; -goto lbl_118; +x_130 = lean::cnstr_get(x_127, 1); +lean::inc(x_130); +lean::dec(x_127); +x_133 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_134 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_133, x_128); +x_119 = x_134; +x_120 = x_130; +goto lbl_121; } else { -uint32 x_133; uint32 x_134; uint8 x_135; -x_133 = l_String_OldIterator_curr___main(x_1); -x_134 = 65; -x_135 = x_134 <= x_133; -if (x_135 == 0) +uint32 x_135; uint32 x_136; uint8 x_137; +x_135 = l_String_OldIterator_curr___main(x_1); +x_136 = 65; +x_137 = x_136 <= x_135; +if (x_137 == 0) { -obj* x_136; obj* x_137; obj* x_138; obj* x_140; obj* x_141; obj* x_142; obj* x_143; obj* x_145; obj* x_147; obj* x_150; obj* x_151; -x_136 = l_Char_quoteCore(x_133); -x_137 = l_Char_HasRepr___closed__1; -x_138 = lean::string_append(x_137, x_136); -lean::dec(x_136); -x_140 = lean::string_append(x_138, x_137); -x_141 = lean::box(0); -x_142 = l_mjoin___rarg___closed__1; -x_143 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_140, x_142, x_141, x_141, x_0, x_1, x_45); -lean::dec(x_1); -x_145 = lean::cnstr_get(x_143, 0); -lean::inc(x_145); -x_147 = lean::cnstr_get(x_143, 1); -lean::inc(x_147); -lean::dec(x_143); -x_150 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_151 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_150, x_145); -x_116 = x_151; -x_117 = x_147; -goto lbl_118; +obj* x_138; obj* x_139; obj* x_140; obj* x_142; obj* x_143; obj* x_144; obj* x_145; obj* x_146; obj* x_148; obj* x_151; obj* x_152; +x_138 = l_Char_quoteCore(x_135); +x_139 = l_Char_HasRepr___closed__1; +x_140 = lean::string_append(x_139, x_138); +lean::dec(x_138); +x_142 = lean::string_append(x_140, x_139); +x_143 = lean::box(0); +x_144 = l_mjoin___rarg___closed__1; +x_145 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_142, x_144, x_143, x_143, x_0, x_1, x_45); +x_146 = lean::cnstr_get(x_145, 0); +lean::inc(x_146); +x_148 = lean::cnstr_get(x_145, 1); +lean::inc(x_148); +lean::dec(x_145); +x_151 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_152 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_151, x_146); +x_119 = x_152; +x_120 = x_148; +goto lbl_121; } else { -uint32 x_152; uint8 x_153; -x_152 = 70; -x_153 = x_133 <= x_152; -if (x_153 == 0) +uint32 x_153; uint8 x_154; +x_153 = 70; +x_154 = x_135 <= x_153; +if (x_154 == 0) { -obj* x_154; obj* x_155; obj* x_156; obj* x_158; obj* x_159; obj* x_160; obj* x_161; obj* x_163; obj* x_165; obj* x_168; obj* x_169; -x_154 = l_Char_quoteCore(x_133); -x_155 = l_Char_HasRepr___closed__1; -x_156 = lean::string_append(x_155, x_154); -lean::dec(x_154); -x_158 = lean::string_append(x_156, x_155); -x_159 = lean::box(0); -x_160 = l_mjoin___rarg___closed__1; -x_161 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_158, x_160, x_159, x_159, x_0, x_1, x_45); -lean::dec(x_1); -x_163 = lean::cnstr_get(x_161, 0); +obj* x_155; obj* x_156; obj* x_157; obj* x_159; obj* x_160; obj* x_161; obj* x_162; obj* x_163; obj* x_165; obj* x_168; obj* x_169; +x_155 = l_Char_quoteCore(x_135); +x_156 = l_Char_HasRepr___closed__1; +x_157 = lean::string_append(x_156, x_155); +lean::dec(x_155); +x_159 = lean::string_append(x_157, x_156); +x_160 = lean::box(0); +x_161 = l_mjoin___rarg___closed__1; +x_162 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_159, x_161, x_160, x_160, x_0, x_1, x_45); +x_163 = lean::cnstr_get(x_162, 0); lean::inc(x_163); -x_165 = lean::cnstr_get(x_161, 1); +x_165 = lean::cnstr_get(x_162, 1); lean::inc(x_165); -lean::dec(x_161); +lean::dec(x_162); x_168 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; x_169 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_168, x_163); -x_116 = x_169; -x_117 = x_165; -goto lbl_118; +x_119 = x_169; +x_120 = x_165; +goto lbl_121; } else { obj* x_170; obj* x_171; obj* x_172; obj* x_173; x_170 = l_String_OldIterator_next___main(x_1); x_171 = lean::box(0); -x_172 = lean::box_uint32(x_133); +x_172 = lean::box_uint32(x_135); x_173 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_173, 0, x_172); lean::cnstr_set(x_173, 1, x_170); lean::cnstr_set(x_173, 2, x_171); -x_116 = x_173; -x_117 = x_45; -goto lbl_118; +x_119 = x_173; +x_120 = x_45; +goto lbl_121; } } } @@ -19027,7 +19035,7 @@ goto lbl_118; else { obj* x_176; obj* x_177; obj* x_178; obj* x_179; -lean::dec(x_113); +lean::dec(x_116); lean::dec(x_1); x_176 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_41, x_44); x_177 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5___closed__1; @@ -19037,21 +19045,21 @@ lean::cnstr_set(x_179, 0, x_178); lean::cnstr_set(x_179, 1, x_45); return x_179; } -lbl_118: +lbl_121: { -if (lean::obj_tag(x_116) == 0) +if (lean::obj_tag(x_119) == 0) { obj* x_180; obj* x_182; obj* x_184; obj* x_186; uint32 x_187; obj* x_188; obj* x_189; obj* x_190; obj* x_192; obj* x_193; obj* x_195; obj* x_196; obj* x_197; obj* x_198; obj* x_199; obj* x_200; obj* x_201; obj* x_202; -x_180 = lean::cnstr_get(x_116, 0); -x_182 = lean::cnstr_get(x_116, 1); -x_184 = lean::cnstr_get(x_116, 2); -if (lean::is_exclusive(x_116)) { - x_186 = x_116; +x_180 = lean::cnstr_get(x_119, 0); +x_182 = lean::cnstr_get(x_119, 1); +x_184 = lean::cnstr_get(x_119, 2); +if (lean::is_exclusive(x_119)) { + x_186 = x_119; } else { lean::inc(x_180); lean::inc(x_182); lean::inc(x_184); - lean::dec(x_116); + lean::dec(x_119); x_186 = lean::box(0); } x_187 = lean::unbox_uint32(x_180); @@ -19072,25 +19080,25 @@ lean::cnstr_set(x_196, 0, x_193); lean::cnstr_set(x_196, 1, x_182); lean::cnstr_set(x_196, 2, x_195); x_197 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_184, x_196); -x_198 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_113, x_197); +x_198 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_116, x_197); x_199 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_41, x_198); x_200 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5___closed__1; x_201 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_199, x_200); x_202 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_202, 0, x_201); -lean::cnstr_set(x_202, 1, x_117); +lean::cnstr_set(x_202, 1, x_120); return x_202; } else { obj* x_203; uint8 x_205; obj* x_206; obj* x_207; obj* x_208; obj* x_209; obj* x_210; obj* x_211; obj* x_212; obj* x_213; -x_203 = lean::cnstr_get(x_116, 0); -x_205 = lean::cnstr_get_scalar(x_116, sizeof(void*)*1); -if (lean::is_exclusive(x_116)) { - x_206 = x_116; +x_203 = lean::cnstr_get(x_119, 0); +x_205 = lean::cnstr_get_scalar(x_119, sizeof(void*)*1); +if (lean::is_exclusive(x_119)) { + x_206 = x_119; } else { lean::inc(x_203); - lean::dec(x_116); + lean::dec(x_119); x_206 = lean::box(0); } if (lean::is_scalar(x_206)) { @@ -19101,13 +19109,13 @@ if (lean::is_scalar(x_206)) { lean::cnstr_set(x_207, 0, x_203); lean::cnstr_set_scalar(x_207, sizeof(void*)*1, x_205); x_208 = x_207; -x_209 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_113, x_208); +x_209 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_116, x_208); x_210 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_41, x_209); x_211 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5___closed__1; x_212 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_210, x_211); x_213 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_213, 0, x_212); -lean::cnstr_set(x_213, 1, x_117); +lean::cnstr_set(x_213, 1, x_120); return x_213; } } @@ -19254,672 +19262,671 @@ x_32 = 117; x_33 = x_18 == x_32; if (x_33 == 0) { -obj* x_34; obj* x_35; obj* x_37; obj* x_39; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; +obj* x_34; obj* x_35; obj* x_36; obj* x_38; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; x_34 = l_Lean_Parser_parseQuotedChar___rarg___lambda__7___closed__1; x_35 = l_Lean_Parser_MonadParsec_unexpectedAt___at_Lean_Parser_stringLit_x_27___spec__4___rarg(x_34, x_1, x_0, x_12, x_7); -lean::dec(x_12); -x_37 = lean::cnstr_get(x_35, 0); -x_39 = lean::cnstr_get(x_35, 1); +x_36 = lean::cnstr_get(x_35, 0); +x_38 = lean::cnstr_get(x_35, 1); if (lean::is_exclusive(x_35)) { - x_41 = x_35; + x_40 = x_35; } else { - lean::inc(x_37); - lean::inc(x_39); + lean::inc(x_36); + lean::inc(x_38); lean::dec(x_35); - x_41 = lean::box(0); + x_40 = lean::box(0); } -x_42 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_37); -x_43 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_44 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_43, x_42); -if (lean::is_scalar(x_41)) { - x_45 = lean::alloc_cnstr(0, 2, 0); +x_41 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_36); +x_42 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_43 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_42, x_41); +if (lean::is_scalar(x_40)) { + x_44 = lean::alloc_cnstr(0, 2, 0); } else { - x_45 = x_41; + x_44 = x_40; } -lean::cnstr_set(x_45, 0, x_44); -lean::cnstr_set(x_45, 1, x_39); -return x_45; +lean::cnstr_set(x_44, 0, x_43); +lean::cnstr_set(x_44, 1, x_38); +return x_44; } else { -obj* x_47; obj* x_48; +obj* x_46; obj* x_47; lean::dec(x_1); -x_47 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5(x_0, x_12, x_7); -x_48 = lean::cnstr_get(x_47, 0); -lean::inc(x_48); -if (lean::obj_tag(x_48) == 0) +x_46 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5(x_0, x_12, x_7); +x_47 = lean::cnstr_get(x_46, 0); +lean::inc(x_47); +if (lean::obj_tag(x_47) == 0) { -obj* x_50; obj* x_53; obj* x_55; obj* x_57; obj* x_60; obj* x_61; -x_50 = lean::cnstr_get(x_47, 1); -lean::inc(x_50); +obj* x_49; obj* x_52; obj* x_54; obj* x_56; obj* x_59; obj* x_60; +x_49 = lean::cnstr_get(x_46, 1); +lean::inc(x_49); +lean::dec(x_46); +x_52 = lean::cnstr_get(x_47, 0); +lean::inc(x_52); +x_54 = lean::cnstr_get(x_47, 1); +lean::inc(x_54); +x_56 = lean::cnstr_get(x_47, 2); +lean::inc(x_56); lean::dec(x_47); -x_53 = lean::cnstr_get(x_48, 0); -lean::inc(x_53); -x_55 = lean::cnstr_get(x_48, 1); -lean::inc(x_55); -x_57 = lean::cnstr_get(x_48, 2); -lean::inc(x_57); -lean::dec(x_48); -x_60 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5(x_0, x_55, x_50); -x_61 = lean::cnstr_get(x_60, 0); -lean::inc(x_61); -if (lean::obj_tag(x_61) == 0) +x_59 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5(x_0, x_54, x_49); +x_60 = lean::cnstr_get(x_59, 0); +lean::inc(x_60); +if (lean::obj_tag(x_60) == 0) { -obj* x_63; obj* x_66; obj* x_68; obj* x_70; obj* x_73; obj* x_74; -x_63 = lean::cnstr_get(x_60, 1); -lean::inc(x_63); +obj* x_62; obj* x_65; obj* x_67; obj* x_69; obj* x_72; obj* x_73; +x_62 = lean::cnstr_get(x_59, 1); +lean::inc(x_62); +lean::dec(x_59); +x_65 = lean::cnstr_get(x_60, 0); +lean::inc(x_65); +x_67 = lean::cnstr_get(x_60, 1); +lean::inc(x_67); +x_69 = lean::cnstr_get(x_60, 2); +lean::inc(x_69); lean::dec(x_60); -x_66 = lean::cnstr_get(x_61, 0); -lean::inc(x_66); -x_68 = lean::cnstr_get(x_61, 1); -lean::inc(x_68); -x_70 = lean::cnstr_get(x_61, 2); -lean::inc(x_70); -lean::dec(x_61); -x_73 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5(x_0, x_68, x_63); -x_74 = lean::cnstr_get(x_73, 0); -lean::inc(x_74); -if (lean::obj_tag(x_74) == 0) +x_72 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5(x_0, x_67, x_62); +x_73 = lean::cnstr_get(x_72, 0); +lean::inc(x_73); +if (lean::obj_tag(x_73) == 0) { -obj* x_76; obj* x_79; obj* x_81; obj* x_83; obj* x_86; obj* x_87; -x_76 = lean::cnstr_get(x_73, 1); -lean::inc(x_76); +obj* x_75; obj* x_78; obj* x_80; obj* x_82; obj* x_85; obj* x_86; +x_75 = lean::cnstr_get(x_72, 1); +lean::inc(x_75); +lean::dec(x_72); +x_78 = lean::cnstr_get(x_73, 0); +lean::inc(x_78); +x_80 = lean::cnstr_get(x_73, 1); +lean::inc(x_80); +x_82 = lean::cnstr_get(x_73, 2); +lean::inc(x_82); lean::dec(x_73); -x_79 = lean::cnstr_get(x_74, 0); -lean::inc(x_79); -x_81 = lean::cnstr_get(x_74, 1); -lean::inc(x_81); -x_83 = lean::cnstr_get(x_74, 2); -lean::inc(x_83); -lean::dec(x_74); -x_86 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5(x_0, x_81, x_76); -x_87 = lean::cnstr_get(x_86, 0); -lean::inc(x_87); -if (lean::obj_tag(x_87) == 0) +x_85 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5(x_0, x_80, x_75); +x_86 = lean::cnstr_get(x_85, 0); +lean::inc(x_86); +if (lean::obj_tag(x_86) == 0) { -obj* x_89; obj* x_91; obj* x_92; obj* x_94; obj* x_96; obj* x_98; obj* x_99; obj* x_100; obj* x_102; obj* x_105; obj* x_107; obj* x_110; obj* x_112; uint32 x_115; obj* x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; -x_89 = lean::cnstr_get(x_86, 1); +obj* x_88; obj* x_90; obj* x_91; obj* x_93; obj* x_95; obj* x_97; obj* x_98; obj* x_99; obj* x_101; obj* x_104; obj* x_106; obj* x_109; obj* x_111; uint32 x_114; obj* x_116; obj* x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; +x_88 = lean::cnstr_get(x_85, 1); +if (lean::is_exclusive(x_85)) { + lean::cnstr_release(x_85, 0); + x_90 = x_85; +} else { + lean::inc(x_88); + lean::dec(x_85); + x_90 = lean::box(0); +} +x_91 = lean::cnstr_get(x_86, 0); +x_93 = lean::cnstr_get(x_86, 1); +x_95 = lean::cnstr_get(x_86, 2); if (lean::is_exclusive(x_86)) { - lean::cnstr_release(x_86, 0); - x_91 = x_86; + x_97 = x_86; } else { - lean::inc(x_89); + lean::inc(x_91); + lean::inc(x_93); + lean::inc(x_95); lean::dec(x_86); - x_91 = lean::box(0); + x_97 = lean::box(0); } -x_92 = lean::cnstr_get(x_87, 0); -x_94 = lean::cnstr_get(x_87, 1); -x_96 = lean::cnstr_get(x_87, 2); -if (lean::is_exclusive(x_87)) { - x_98 = x_87; +x_98 = lean::mk_nat_obj(16ul); +x_99 = lean::nat_mul(x_98, x_52); +lean::dec(x_52); +x_101 = lean::nat_add(x_99, x_65); +lean::dec(x_65); +lean::dec(x_99); +x_104 = lean::nat_mul(x_98, x_101); +lean::dec(x_101); +x_106 = lean::nat_add(x_104, x_78); +lean::dec(x_78); +lean::dec(x_104); +x_109 = lean::nat_mul(x_98, x_106); +lean::dec(x_106); +x_111 = lean::nat_add(x_109, x_91); +lean::dec(x_91); +lean::dec(x_109); +x_114 = l_Char_ofNat(x_111); +lean::dec(x_111); +x_116 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_117 = lean::box_uint32(x_114); +if (lean::is_scalar(x_97)) { + x_118 = lean::alloc_cnstr(0, 3, 0); } else { - lean::inc(x_92); - lean::inc(x_94); - lean::inc(x_96); - lean::dec(x_87); - x_98 = lean::box(0); + x_118 = x_97; } -x_99 = lean::mk_nat_obj(16ul); -x_100 = lean::nat_mul(x_99, x_53); -lean::dec(x_53); -x_102 = lean::nat_add(x_100, x_66); -lean::dec(x_66); -lean::dec(x_100); -x_105 = lean::nat_mul(x_99, x_102); -lean::dec(x_102); -x_107 = lean::nat_add(x_105, x_79); -lean::dec(x_79); -lean::dec(x_105); -x_110 = lean::nat_mul(x_99, x_107); -lean::dec(x_107); -x_112 = lean::nat_add(x_110, x_92); -lean::dec(x_92); -lean::dec(x_110); -x_115 = l_Char_ofNat(x_112); -lean::dec(x_112); -x_117 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_118 = lean::box_uint32(x_115); -if (lean::is_scalar(x_98)) { - x_119 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_118, 0, x_117); +lean::cnstr_set(x_118, 1, x_93); +lean::cnstr_set(x_118, 2, x_116); +x_119 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_95, x_118); +x_120 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_82, x_119); +x_121 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_69, x_120); +x_122 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_56, x_121); +x_123 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_122); +x_124 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_116, x_123); +if (lean::is_scalar(x_90)) { + x_125 = lean::alloc_cnstr(0, 2, 0); } else { - x_119 = x_98; + x_125 = x_90; } -lean::cnstr_set(x_119, 0, x_118); -lean::cnstr_set(x_119, 1, x_94); -lean::cnstr_set(x_119, 2, x_117); -x_120 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_96, x_119); -x_121 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_83, x_120); -x_122 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_70, x_121); -x_123 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_57, x_122); -x_124 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_123); -x_125 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_117, x_124); -if (lean::is_scalar(x_91)) { - x_126 = lean::alloc_cnstr(0, 2, 0); -} else { - x_126 = x_91; -} -lean::cnstr_set(x_126, 0, x_125); -lean::cnstr_set(x_126, 1, x_89); -return x_126; +lean::cnstr_set(x_125, 0, x_124); +lean::cnstr_set(x_125, 1, x_88); +return x_125; } else { -obj* x_130; obj* x_132; obj* x_133; uint8 x_135; obj* x_136; obj* x_137; obj* x_138; obj* x_139; obj* x_140; obj* x_141; obj* x_142; obj* x_143; obj* x_144; obj* x_145; -lean::dec(x_53); -lean::dec(x_66); -lean::dec(x_79); -x_130 = lean::cnstr_get(x_86, 1); +obj* x_129; obj* x_131; obj* x_132; uint8 x_134; obj* x_135; obj* x_136; obj* x_137; obj* x_138; obj* x_139; obj* x_140; obj* x_141; obj* x_142; obj* x_143; obj* x_144; +lean::dec(x_52); +lean::dec(x_65); +lean::dec(x_78); +x_129 = lean::cnstr_get(x_85, 1); +if (lean::is_exclusive(x_85)) { + lean::cnstr_release(x_85, 0); + x_131 = x_85; +} else { + lean::inc(x_129); + lean::dec(x_85); + x_131 = lean::box(0); +} +x_132 = lean::cnstr_get(x_86, 0); +x_134 = lean::cnstr_get_scalar(x_86, sizeof(void*)*1); if (lean::is_exclusive(x_86)) { - lean::cnstr_release(x_86, 0); - x_132 = x_86; + x_135 = x_86; } else { - lean::inc(x_130); + lean::inc(x_132); lean::dec(x_86); - x_132 = lean::box(0); + x_135 = lean::box(0); } -x_133 = lean::cnstr_get(x_87, 0); -x_135 = lean::cnstr_get_scalar(x_87, sizeof(void*)*1); -if (lean::is_exclusive(x_87)) { - x_136 = x_87; +if (lean::is_scalar(x_135)) { + x_136 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_133); - lean::dec(x_87); - x_136 = lean::box(0); + x_136 = x_135; } -if (lean::is_scalar(x_136)) { - x_137 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_136, 0, x_132); +lean::cnstr_set_scalar(x_136, sizeof(void*)*1, x_134); +x_137 = x_136; +x_138 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_82, x_137); +x_139 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_69, x_138); +x_140 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_56, x_139); +x_141 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_140); +x_142 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_143 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_142, x_141); +if (lean::is_scalar(x_131)) { + x_144 = lean::alloc_cnstr(0, 2, 0); } else { - x_137 = x_136; + x_144 = x_131; } -lean::cnstr_set(x_137, 0, x_133); -lean::cnstr_set_scalar(x_137, sizeof(void*)*1, x_135); -x_138 = x_137; -x_139 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_83, x_138); -x_140 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_70, x_139); -x_141 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_57, x_140); -x_142 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_141); -x_143 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_144 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_143, x_142); -if (lean::is_scalar(x_132)) { - x_145 = lean::alloc_cnstr(0, 2, 0); -} else { - x_145 = x_132; -} -lean::cnstr_set(x_145, 0, x_144); -lean::cnstr_set(x_145, 1, x_130); -return x_145; +lean::cnstr_set(x_144, 0, x_143); +lean::cnstr_set(x_144, 1, x_129); +return x_144; } } else { -obj* x_148; obj* x_150; obj* x_151; uint8 x_153; obj* x_154; obj* x_155; obj* x_156; obj* x_157; obj* x_158; obj* x_159; obj* x_160; obj* x_161; obj* x_162; -lean::dec(x_53); -lean::dec(x_66); -x_148 = lean::cnstr_get(x_73, 1); +obj* x_147; obj* x_149; obj* x_150; uint8 x_152; obj* x_153; obj* x_154; obj* x_155; obj* x_156; obj* x_157; obj* x_158; obj* x_159; obj* x_160; obj* x_161; +lean::dec(x_52); +lean::dec(x_65); +x_147 = lean::cnstr_get(x_72, 1); +if (lean::is_exclusive(x_72)) { + lean::cnstr_release(x_72, 0); + x_149 = x_72; +} else { + lean::inc(x_147); + lean::dec(x_72); + x_149 = lean::box(0); +} +x_150 = lean::cnstr_get(x_73, 0); +x_152 = lean::cnstr_get_scalar(x_73, sizeof(void*)*1); if (lean::is_exclusive(x_73)) { - lean::cnstr_release(x_73, 0); - x_150 = x_73; + x_153 = x_73; } else { - lean::inc(x_148); + lean::inc(x_150); lean::dec(x_73); - x_150 = lean::box(0); + x_153 = lean::box(0); } -x_151 = lean::cnstr_get(x_74, 0); -x_153 = lean::cnstr_get_scalar(x_74, sizeof(void*)*1); -if (lean::is_exclusive(x_74)) { - x_154 = x_74; +if (lean::is_scalar(x_153)) { + x_154 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_151); - lean::dec(x_74); - x_154 = lean::box(0); + x_154 = x_153; } -if (lean::is_scalar(x_154)) { - x_155 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_154, 0, x_150); +lean::cnstr_set_scalar(x_154, sizeof(void*)*1, x_152); +x_155 = x_154; +x_156 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_69, x_155); +x_157 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_56, x_156); +x_158 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_157); +x_159 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_160 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_159, x_158); +if (lean::is_scalar(x_149)) { + x_161 = lean::alloc_cnstr(0, 2, 0); } else { - x_155 = x_154; + x_161 = x_149; } -lean::cnstr_set(x_155, 0, x_151); -lean::cnstr_set_scalar(x_155, sizeof(void*)*1, x_153); -x_156 = x_155; -x_157 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_70, x_156); -x_158 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_57, x_157); -x_159 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_158); -x_160 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_161 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_160, x_159); -if (lean::is_scalar(x_150)) { - x_162 = lean::alloc_cnstr(0, 2, 0); -} else { - x_162 = x_150; -} -lean::cnstr_set(x_162, 0, x_161); -lean::cnstr_set(x_162, 1, x_148); -return x_162; +lean::cnstr_set(x_161, 0, x_160); +lean::cnstr_set(x_161, 1, x_147); +return x_161; } } else { -obj* x_164; obj* x_166; obj* x_167; uint8 x_169; obj* x_170; obj* x_171; obj* x_172; obj* x_173; obj* x_174; obj* x_175; obj* x_176; obj* x_177; -lean::dec(x_53); -x_164 = lean::cnstr_get(x_60, 1); +obj* x_163; obj* x_165; obj* x_166; uint8 x_168; obj* x_169; obj* x_170; obj* x_171; obj* x_172; obj* x_173; obj* x_174; obj* x_175; obj* x_176; +lean::dec(x_52); +x_163 = lean::cnstr_get(x_59, 1); +if (lean::is_exclusive(x_59)) { + lean::cnstr_release(x_59, 0); + x_165 = x_59; +} else { + lean::inc(x_163); + lean::dec(x_59); + x_165 = lean::box(0); +} +x_166 = lean::cnstr_get(x_60, 0); +x_168 = lean::cnstr_get_scalar(x_60, sizeof(void*)*1); if (lean::is_exclusive(x_60)) { - lean::cnstr_release(x_60, 0); - x_166 = x_60; + x_169 = x_60; } else { - lean::inc(x_164); + lean::inc(x_166); lean::dec(x_60); - x_166 = lean::box(0); + x_169 = lean::box(0); } -x_167 = lean::cnstr_get(x_61, 0); -x_169 = lean::cnstr_get_scalar(x_61, sizeof(void*)*1); -if (lean::is_exclusive(x_61)) { - x_170 = x_61; +if (lean::is_scalar(x_169)) { + x_170 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_167); - lean::dec(x_61); - x_170 = lean::box(0); + x_170 = x_169; } -if (lean::is_scalar(x_170)) { - x_171 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_170, 0, x_166); +lean::cnstr_set_scalar(x_170, sizeof(void*)*1, x_168); +x_171 = x_170; +x_172 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_56, x_171); +x_173 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_172); +x_174 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_175 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_174, x_173); +if (lean::is_scalar(x_165)) { + x_176 = lean::alloc_cnstr(0, 2, 0); } else { - x_171 = x_170; + x_176 = x_165; } -lean::cnstr_set(x_171, 0, x_167); -lean::cnstr_set_scalar(x_171, sizeof(void*)*1, x_169); -x_172 = x_171; -x_173 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_57, x_172); -x_174 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_173); -x_175 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_176 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_175, x_174); -if (lean::is_scalar(x_166)) { - x_177 = lean::alloc_cnstr(0, 2, 0); -} else { - x_177 = x_166; -} -lean::cnstr_set(x_177, 0, x_176); -lean::cnstr_set(x_177, 1, x_164); -return x_177; +lean::cnstr_set(x_176, 0, x_175); +lean::cnstr_set(x_176, 1, x_163); +return x_176; } } else { -obj* x_178; obj* x_180; obj* x_181; uint8 x_183; obj* x_184; obj* x_185; obj* x_186; obj* x_187; obj* x_188; obj* x_189; obj* x_190; -x_178 = lean::cnstr_get(x_47, 1); +obj* x_177; obj* x_179; obj* x_180; uint8 x_182; obj* x_183; obj* x_184; obj* x_185; obj* x_186; obj* x_187; obj* x_188; obj* x_189; +x_177 = lean::cnstr_get(x_46, 1); +if (lean::is_exclusive(x_46)) { + lean::cnstr_release(x_46, 0); + x_179 = x_46; +} else { + lean::inc(x_177); + lean::dec(x_46); + x_179 = lean::box(0); +} +x_180 = lean::cnstr_get(x_47, 0); +x_182 = lean::cnstr_get_scalar(x_47, sizeof(void*)*1); if (lean::is_exclusive(x_47)) { - lean::cnstr_release(x_47, 0); - x_180 = x_47; + x_183 = x_47; } else { - lean::inc(x_178); + lean::inc(x_180); lean::dec(x_47); - x_180 = lean::box(0); + x_183 = lean::box(0); } -x_181 = lean::cnstr_get(x_48, 0); -x_183 = lean::cnstr_get_scalar(x_48, sizeof(void*)*1); -if (lean::is_exclusive(x_48)) { - x_184 = x_48; +if (lean::is_scalar(x_183)) { + x_184 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_181); - lean::dec(x_48); - x_184 = lean::box(0); + x_184 = x_183; } -if (lean::is_scalar(x_184)) { - x_185 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_184, 0, x_180); +lean::cnstr_set_scalar(x_184, sizeof(void*)*1, x_182); +x_185 = x_184; +x_186 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_185); +x_187 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_188 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_187, x_186); +if (lean::is_scalar(x_179)) { + x_189 = lean::alloc_cnstr(0, 2, 0); } else { - x_185 = x_184; + x_189 = x_179; } -lean::cnstr_set(x_185, 0, x_181); -lean::cnstr_set_scalar(x_185, sizeof(void*)*1, x_183); -x_186 = x_185; -x_187 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_186); -x_188 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_189 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_188, x_187); -if (lean::is_scalar(x_180)) { - x_190 = lean::alloc_cnstr(0, 2, 0); -} else { - x_190 = x_180; -} -lean::cnstr_set(x_190, 0, x_189); -lean::cnstr_set(x_190, 1, x_178); -return x_190; +lean::cnstr_set(x_189, 0, x_188); +lean::cnstr_set(x_189, 1, x_177); +return x_189; } } } else { -obj* x_192; obj* x_193; +obj* x_191; obj* x_192; lean::dec(x_1); -x_192 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5(x_0, x_12, x_7); -x_193 = lean::cnstr_get(x_192, 0); -lean::inc(x_193); -if (lean::obj_tag(x_193) == 0) +x_191 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5(x_0, x_12, x_7); +x_192 = lean::cnstr_get(x_191, 0); +lean::inc(x_192); +if (lean::obj_tag(x_192) == 0) { -obj* x_195; obj* x_198; obj* x_200; obj* x_202; obj* x_205; obj* x_206; -x_195 = lean::cnstr_get(x_192, 1); -lean::inc(x_195); +obj* x_194; obj* x_197; obj* x_199; obj* x_201; obj* x_204; obj* x_205; +x_194 = lean::cnstr_get(x_191, 1); +lean::inc(x_194); +lean::dec(x_191); +x_197 = lean::cnstr_get(x_192, 0); +lean::inc(x_197); +x_199 = lean::cnstr_get(x_192, 1); +lean::inc(x_199); +x_201 = lean::cnstr_get(x_192, 2); +lean::inc(x_201); lean::dec(x_192); -x_198 = lean::cnstr_get(x_193, 0); -lean::inc(x_198); -x_200 = lean::cnstr_get(x_193, 1); -lean::inc(x_200); -x_202 = lean::cnstr_get(x_193, 2); -lean::inc(x_202); -lean::dec(x_193); -x_205 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5(x_0, x_200, x_195); -x_206 = lean::cnstr_get(x_205, 0); -lean::inc(x_206); -if (lean::obj_tag(x_206) == 0) +x_204 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5(x_0, x_199, x_194); +x_205 = lean::cnstr_get(x_204, 0); +lean::inc(x_205); +if (lean::obj_tag(x_205) == 0) { -obj* x_208; obj* x_210; obj* x_211; obj* x_213; obj* x_215; obj* x_217; obj* x_218; obj* x_219; obj* x_221; uint32 x_224; obj* x_226; obj* x_227; obj* x_228; obj* x_229; obj* x_230; obj* x_231; obj* x_232; obj* x_233; -x_208 = lean::cnstr_get(x_205, 1); +obj* x_207; obj* x_209; obj* x_210; obj* x_212; obj* x_214; obj* x_216; obj* x_217; obj* x_218; obj* x_220; uint32 x_223; obj* x_225; obj* x_226; obj* x_227; obj* x_228; obj* x_229; obj* x_230; obj* x_231; obj* x_232; +x_207 = lean::cnstr_get(x_204, 1); +if (lean::is_exclusive(x_204)) { + lean::cnstr_release(x_204, 0); + x_209 = x_204; +} else { + lean::inc(x_207); + lean::dec(x_204); + x_209 = lean::box(0); +} +x_210 = lean::cnstr_get(x_205, 0); +x_212 = lean::cnstr_get(x_205, 1); +x_214 = lean::cnstr_get(x_205, 2); if (lean::is_exclusive(x_205)) { - lean::cnstr_release(x_205, 0); - x_210 = x_205; + x_216 = x_205; } else { - lean::inc(x_208); + lean::inc(x_210); + lean::inc(x_212); + lean::inc(x_214); lean::dec(x_205); - x_210 = lean::box(0); + x_216 = lean::box(0); } -x_211 = lean::cnstr_get(x_206, 0); -x_213 = lean::cnstr_get(x_206, 1); -x_215 = lean::cnstr_get(x_206, 2); -if (lean::is_exclusive(x_206)) { - x_217 = x_206; +x_217 = lean::mk_nat_obj(16ul); +x_218 = lean::nat_mul(x_217, x_197); +lean::dec(x_197); +x_220 = lean::nat_add(x_218, x_210); +lean::dec(x_210); +lean::dec(x_218); +x_223 = l_Char_ofNat(x_220); +lean::dec(x_220); +x_225 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_226 = lean::box_uint32(x_223); +if (lean::is_scalar(x_216)) { + x_227 = lean::alloc_cnstr(0, 3, 0); } else { - lean::inc(x_211); - lean::inc(x_213); - lean::inc(x_215); - lean::dec(x_206); - x_217 = lean::box(0); + x_227 = x_216; } -x_218 = lean::mk_nat_obj(16ul); -x_219 = lean::nat_mul(x_218, x_198); -lean::dec(x_198); -x_221 = lean::nat_add(x_219, x_211); -lean::dec(x_211); -lean::dec(x_219); -x_224 = l_Char_ofNat(x_221); -lean::dec(x_221); -x_226 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_227 = lean::box_uint32(x_224); -if (lean::is_scalar(x_217)) { - x_228 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_227, 0, x_226); +lean::cnstr_set(x_227, 1, x_212); +lean::cnstr_set(x_227, 2, x_225); +x_228 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_214, x_227); +x_229 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_201, x_228); +x_230 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_229); +x_231 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_225, x_230); +if (lean::is_scalar(x_209)) { + x_232 = lean::alloc_cnstr(0, 2, 0); } else { - x_228 = x_217; + x_232 = x_209; } -lean::cnstr_set(x_228, 0, x_227); -lean::cnstr_set(x_228, 1, x_213); -lean::cnstr_set(x_228, 2, x_226); -x_229 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_215, x_228); -x_230 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_202, x_229); -x_231 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_230); -x_232 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_226, x_231); -if (lean::is_scalar(x_210)) { - x_233 = lean::alloc_cnstr(0, 2, 0); -} else { - x_233 = x_210; -} -lean::cnstr_set(x_233, 0, x_232); -lean::cnstr_set(x_233, 1, x_208); -return x_233; +lean::cnstr_set(x_232, 0, x_231); +lean::cnstr_set(x_232, 1, x_207); +return x_232; } else { -obj* x_235; obj* x_237; obj* x_238; uint8 x_240; obj* x_241; obj* x_242; obj* x_243; obj* x_244; obj* x_245; obj* x_246; obj* x_247; obj* x_248; -lean::dec(x_198); -x_235 = lean::cnstr_get(x_205, 1); +obj* x_234; obj* x_236; obj* x_237; uint8 x_239; obj* x_240; obj* x_241; obj* x_242; obj* x_243; obj* x_244; obj* x_245; obj* x_246; obj* x_247; +lean::dec(x_197); +x_234 = lean::cnstr_get(x_204, 1); +if (lean::is_exclusive(x_204)) { + lean::cnstr_release(x_204, 0); + x_236 = x_204; +} else { + lean::inc(x_234); + lean::dec(x_204); + x_236 = lean::box(0); +} +x_237 = lean::cnstr_get(x_205, 0); +x_239 = lean::cnstr_get_scalar(x_205, sizeof(void*)*1); if (lean::is_exclusive(x_205)) { - lean::cnstr_release(x_205, 0); - x_237 = x_205; + x_240 = x_205; } else { - lean::inc(x_235); + lean::inc(x_237); lean::dec(x_205); - x_237 = lean::box(0); + x_240 = lean::box(0); } -x_238 = lean::cnstr_get(x_206, 0); -x_240 = lean::cnstr_get_scalar(x_206, sizeof(void*)*1); -if (lean::is_exclusive(x_206)) { - x_241 = x_206; +if (lean::is_scalar(x_240)) { + x_241 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_238); - lean::dec(x_206); - x_241 = lean::box(0); + x_241 = x_240; } -if (lean::is_scalar(x_241)) { - x_242 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_241, 0, x_237); +lean::cnstr_set_scalar(x_241, sizeof(void*)*1, x_239); +x_242 = x_241; +x_243 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_201, x_242); +x_244 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_243); +x_245 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_246 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_245, x_244); +if (lean::is_scalar(x_236)) { + x_247 = lean::alloc_cnstr(0, 2, 0); } else { - x_242 = x_241; + x_247 = x_236; } -lean::cnstr_set(x_242, 0, x_238); -lean::cnstr_set_scalar(x_242, sizeof(void*)*1, x_240); -x_243 = x_242; -x_244 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_202, x_243); -x_245 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_244); -x_246 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_247 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_246, x_245); -if (lean::is_scalar(x_237)) { - x_248 = lean::alloc_cnstr(0, 2, 0); -} else { - x_248 = x_237; -} -lean::cnstr_set(x_248, 0, x_247); -lean::cnstr_set(x_248, 1, x_235); -return x_248; +lean::cnstr_set(x_247, 0, x_246); +lean::cnstr_set(x_247, 1, x_234); +return x_247; } } else { -obj* x_249; obj* x_251; obj* x_252; uint8 x_254; obj* x_255; obj* x_256; obj* x_257; obj* x_258; obj* x_259; obj* x_260; obj* x_261; -x_249 = lean::cnstr_get(x_192, 1); +obj* x_248; obj* x_250; obj* x_251; uint8 x_253; obj* x_254; obj* x_255; obj* x_256; obj* x_257; obj* x_258; obj* x_259; obj* x_260; +x_248 = lean::cnstr_get(x_191, 1); +if (lean::is_exclusive(x_191)) { + lean::cnstr_release(x_191, 0); + x_250 = x_191; +} else { + lean::inc(x_248); + lean::dec(x_191); + x_250 = lean::box(0); +} +x_251 = lean::cnstr_get(x_192, 0); +x_253 = lean::cnstr_get_scalar(x_192, sizeof(void*)*1); if (lean::is_exclusive(x_192)) { - lean::cnstr_release(x_192, 0); - x_251 = x_192; + x_254 = x_192; } else { - lean::inc(x_249); + lean::inc(x_251); lean::dec(x_192); - x_251 = lean::box(0); + x_254 = lean::box(0); } -x_252 = lean::cnstr_get(x_193, 0); -x_254 = lean::cnstr_get_scalar(x_193, sizeof(void*)*1); -if (lean::is_exclusive(x_193)) { - x_255 = x_193; +if (lean::is_scalar(x_254)) { + x_255 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_252); - lean::dec(x_193); - x_255 = lean::box(0); + x_255 = x_254; } -if (lean::is_scalar(x_255)) { - x_256 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_255, 0, x_251); +lean::cnstr_set_scalar(x_255, sizeof(void*)*1, x_253); +x_256 = x_255; +x_257 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_256); +x_258 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_259 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_258, x_257); +if (lean::is_scalar(x_250)) { + x_260 = lean::alloc_cnstr(0, 2, 0); } else { - x_256 = x_255; + x_260 = x_250; } -lean::cnstr_set(x_256, 0, x_252); -lean::cnstr_set_scalar(x_256, sizeof(void*)*1, x_254); -x_257 = x_256; -x_258 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_257); -x_259 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_260 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_259, x_258); -if (lean::is_scalar(x_251)) { - x_261 = lean::alloc_cnstr(0, 2, 0); -} else { - x_261 = x_251; -} -lean::cnstr_set(x_261, 0, x_260); -lean::cnstr_set(x_261, 1, x_249); -return x_261; +lean::cnstr_set(x_260, 0, x_259); +lean::cnstr_set(x_260, 1, x_248); +return x_260; } } } else { -uint32 x_263; obj* x_264; obj* x_265; obj* x_266; obj* x_267; obj* x_268; obj* x_269; +uint32 x_262; obj* x_263; obj* x_264; obj* x_265; obj* x_266; obj* x_267; obj* x_268; lean::dec(x_1); -x_263 = 9; -x_264 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_265 = lean::box_uint32(x_263); +x_262 = 9; +x_263 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_264 = lean::box_uint32(x_262); if (lean::is_scalar(x_16)) { - x_266 = lean::alloc_cnstr(0, 3, 0); + x_265 = lean::alloc_cnstr(0, 3, 0); } else { - x_266 = x_16; + x_265 = x_16; } -lean::cnstr_set(x_266, 0, x_265); -lean::cnstr_set(x_266, 1, x_12); -lean::cnstr_set(x_266, 2, x_264); -x_267 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_266); -x_268 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_264, x_267); +lean::cnstr_set(x_265, 0, x_264); +lean::cnstr_set(x_265, 1, x_12); +lean::cnstr_set(x_265, 2, x_263); +x_266 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_265); +x_267 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_263, x_266); if (lean::is_scalar(x_9)) { - x_269 = lean::alloc_cnstr(0, 2, 0); + x_268 = lean::alloc_cnstr(0, 2, 0); } else { - x_269 = x_9; + x_268 = x_9; } -lean::cnstr_set(x_269, 0, x_268); -lean::cnstr_set(x_269, 1, x_7); -return x_269; +lean::cnstr_set(x_268, 0, x_267); +lean::cnstr_set(x_268, 1, x_7); +return x_268; } } else { -uint32 x_271; obj* x_272; obj* x_273; obj* x_274; obj* x_275; obj* x_276; obj* x_277; +uint32 x_270; obj* x_271; obj* x_272; obj* x_273; obj* x_274; obj* x_275; obj* x_276; lean::dec(x_1); -x_271 = 10; -x_272 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_273 = lean::box_uint32(x_271); +x_270 = 10; +x_271 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_272 = lean::box_uint32(x_270); if (lean::is_scalar(x_16)) { - x_274 = lean::alloc_cnstr(0, 3, 0); + x_273 = lean::alloc_cnstr(0, 3, 0); } else { - x_274 = x_16; + x_273 = x_16; } -lean::cnstr_set(x_274, 0, x_273); -lean::cnstr_set(x_274, 1, x_12); -lean::cnstr_set(x_274, 2, x_272); -x_275 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_274); -x_276 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_272, x_275); +lean::cnstr_set(x_273, 0, x_272); +lean::cnstr_set(x_273, 1, x_12); +lean::cnstr_set(x_273, 2, x_271); +x_274 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_273); +x_275 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_271, x_274); if (lean::is_scalar(x_9)) { - x_277 = lean::alloc_cnstr(0, 2, 0); + x_276 = lean::alloc_cnstr(0, 2, 0); } else { - x_277 = x_9; + x_276 = x_9; } -lean::cnstr_set(x_277, 0, x_276); -lean::cnstr_set(x_277, 1, x_7); -return x_277; +lean::cnstr_set(x_276, 0, x_275); +lean::cnstr_set(x_276, 1, x_7); +return x_276; } } else { -obj* x_279; obj* x_280; obj* x_281; obj* x_282; obj* x_283; obj* x_284; +obj* x_278; obj* x_279; obj* x_280; obj* x_281; obj* x_282; obj* x_283; lean::dec(x_1); -x_279 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_280 = lean::box_uint32(x_22); +x_278 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_279 = lean::box_uint32(x_22); if (lean::is_scalar(x_16)) { - x_281 = lean::alloc_cnstr(0, 3, 0); + x_280 = lean::alloc_cnstr(0, 3, 0); } else { - x_281 = x_16; + x_280 = x_16; } -lean::cnstr_set(x_281, 0, x_280); -lean::cnstr_set(x_281, 1, x_12); -lean::cnstr_set(x_281, 2, x_279); -x_282 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_281); -x_283 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_279, x_282); +lean::cnstr_set(x_280, 0, x_279); +lean::cnstr_set(x_280, 1, x_12); +lean::cnstr_set(x_280, 2, x_278); +x_281 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_280); +x_282 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_278, x_281); if (lean::is_scalar(x_9)) { - x_284 = lean::alloc_cnstr(0, 2, 0); + x_283 = lean::alloc_cnstr(0, 2, 0); } else { - x_284 = x_9; + x_283 = x_9; } -lean::cnstr_set(x_284, 0, x_283); -lean::cnstr_set(x_284, 1, x_7); -return x_284; +lean::cnstr_set(x_283, 0, x_282); +lean::cnstr_set(x_283, 1, x_7); +return x_283; } } else { -obj* x_286; obj* x_287; obj* x_288; obj* x_289; obj* x_290; obj* x_291; +obj* x_285; obj* x_286; obj* x_287; obj* x_288; obj* x_289; obj* x_290; lean::dec(x_1); -x_286 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_287 = lean::box_uint32(x_20); +x_285 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_286 = lean::box_uint32(x_20); if (lean::is_scalar(x_16)) { - x_288 = lean::alloc_cnstr(0, 3, 0); + x_287 = lean::alloc_cnstr(0, 3, 0); } else { - x_288 = x_16; + x_287 = x_16; } -lean::cnstr_set(x_288, 0, x_287); -lean::cnstr_set(x_288, 1, x_12); -lean::cnstr_set(x_288, 2, x_286); -x_289 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_288); -x_290 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_286, x_289); +lean::cnstr_set(x_287, 0, x_286); +lean::cnstr_set(x_287, 1, x_12); +lean::cnstr_set(x_287, 2, x_285); +x_288 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_287); +x_289 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_285, x_288); if (lean::is_scalar(x_9)) { - x_291 = lean::alloc_cnstr(0, 2, 0); + x_290 = lean::alloc_cnstr(0, 2, 0); } else { - x_291 = x_9; + x_290 = x_9; } -lean::cnstr_set(x_291, 0, x_290); -lean::cnstr_set(x_291, 1, x_7); -return x_291; +lean::cnstr_set(x_290, 0, x_289); +lean::cnstr_set(x_290, 1, x_7); +return x_290; } } else { -obj* x_293; obj* x_294; obj* x_295; obj* x_296; obj* x_297; obj* x_298; +obj* x_292; obj* x_293; obj* x_294; obj* x_295; obj* x_296; obj* x_297; lean::dec(x_1); -x_293 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_294 = lean::box_uint32(x_17); +x_292 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_293 = lean::box_uint32(x_17); if (lean::is_scalar(x_16)) { - x_295 = lean::alloc_cnstr(0, 3, 0); + x_294 = lean::alloc_cnstr(0, 3, 0); } else { - x_295 = x_16; + x_294 = x_16; } -lean::cnstr_set(x_295, 0, x_294); -lean::cnstr_set(x_295, 1, x_12); -lean::cnstr_set(x_295, 2, x_293); -x_296 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_295); -x_297 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_293, x_296); +lean::cnstr_set(x_294, 0, x_293); +lean::cnstr_set(x_294, 1, x_12); +lean::cnstr_set(x_294, 2, x_292); +x_295 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_14, x_294); +x_296 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_292, x_295); if (lean::is_scalar(x_9)) { - x_298 = lean::alloc_cnstr(0, 2, 0); + x_297 = lean::alloc_cnstr(0, 2, 0); } else { - x_298 = x_9; + x_297 = x_9; } -lean::cnstr_set(x_298, 0, x_297); -lean::cnstr_set(x_298, 1, x_7); -return x_298; +lean::cnstr_set(x_297, 0, x_296); +lean::cnstr_set(x_297, 1, x_7); +return x_297; } } else { -obj* x_300; obj* x_302; obj* x_303; uint8 x_305; obj* x_306; obj* x_307; obj* x_308; obj* x_309; obj* x_310; obj* x_311; +obj* x_299; obj* x_301; obj* x_302; uint8 x_304; obj* x_305; obj* x_306; obj* x_307; obj* x_308; obj* x_309; obj* x_310; lean::dec(x_1); -x_300 = lean::cnstr_get(x_4, 1); +x_299 = lean::cnstr_get(x_4, 1); if (lean::is_exclusive(x_4)) { lean::cnstr_release(x_4, 0); - x_302 = x_4; + x_301 = x_4; } else { - lean::inc(x_300); + lean::inc(x_299); lean::dec(x_4); - x_302 = lean::box(0); + x_301 = lean::box(0); } -x_303 = lean::cnstr_get(x_5, 0); -x_305 = lean::cnstr_get_scalar(x_5, sizeof(void*)*1); +x_302 = lean::cnstr_get(x_5, 0); +x_304 = lean::cnstr_get_scalar(x_5, sizeof(void*)*1); if (lean::is_exclusive(x_5)) { - x_306 = x_5; + x_305 = x_5; } else { - lean::inc(x_303); + lean::inc(x_302); lean::dec(x_5); - x_306 = lean::box(0); + x_305 = lean::box(0); } -if (lean::is_scalar(x_306)) { - x_307 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_305)) { + x_306 = lean::alloc_cnstr(1, 1, 1); } else { - x_307 = x_306; + x_306 = x_305; } -lean::cnstr_set(x_307, 0, x_303); -lean::cnstr_set_scalar(x_307, sizeof(void*)*1, x_305); -x_308 = x_307; -x_309 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_310 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_309, x_308); -if (lean::is_scalar(x_302)) { - x_311 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_306, 0, x_302); +lean::cnstr_set_scalar(x_306, sizeof(void*)*1, x_304); +x_307 = x_306; +x_308 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_309 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_308, x_307); +if (lean::is_scalar(x_301)) { + x_310 = lean::alloc_cnstr(0, 2, 0); } else { - x_311 = x_302; + x_310 = x_301; } -lean::cnstr_set(x_311, 0, x_310); -lean::cnstr_set(x_311, 1, x_300); -return x_311; +lean::cnstr_set(x_310, 0, x_309); +lean::cnstr_set(x_310, 1, x_299); +return x_310; } } } @@ -20456,7 +20463,6 @@ _start: obj* x_5; x_5 = l_Lean_Parser_MonadParsec_unexpectedAt___at_Lean_Parser_stringLit_x_27___spec__4___rarg(x_0, x_1, x_2, x_3, x_4); lean::dec(x_2); -lean::dec(x_3); return x_5; } } @@ -20814,125 +20820,127 @@ obj* x_5; obj* x_6; uint8 x_8; x_8 = l_String_OldIterator_hasNext___main(x_3); if (x_8 == 0) { -obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_17; +obj* x_9; obj* x_10; obj* x_12; obj* x_13; obj* x_15; obj* x_18; x_9 = lean::box(0); x_10 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; -x_11 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_10, x_0, x_9, x_9, x_2, x_3, x_4); -x_12 = lean::cnstr_get(x_11, 0); -lean::inc(x_12); -x_14 = lean::cnstr_get(x_11, 1); -lean::inc(x_14); -lean::dec(x_11); -x_17 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_1, x_12); -if (lean::obj_tag(x_17) == 0) -{ -x_5 = x_17; -x_6 = x_14; -goto lbl_7; -} -else -{ -uint8 x_18; -x_18 = lean::cnstr_get_scalar(x_17, sizeof(void*)*1); -if (x_18 == 0) -{ -obj* x_19; uint32 x_22; obj* x_24; obj* x_25; obj* x_27; obj* x_30; -x_19 = lean::cnstr_get(x_17, 0); -lean::inc(x_19); -lean::dec(x_17); -x_22 = l_Lean_idBeginEscape; lean::inc(x_3); -x_24 = l_Lean_Parser_MonadParsec_ch___at___private_init_lean_parser_token_4__ident_x_27___spec__11(x_22, x_2, x_3, x_14); -x_25 = lean::cnstr_get(x_24, 0); -lean::inc(x_25); -x_27 = lean::cnstr_get(x_24, 1); -lean::inc(x_27); -lean::dec(x_24); -x_30 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_19, x_25); -x_5 = x_30; -x_6 = x_27; +x_12 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_10, x_0, x_9, x_9, x_2, x_3, x_4); +x_13 = lean::cnstr_get(x_12, 0); +lean::inc(x_13); +x_15 = lean::cnstr_get(x_12, 1); +lean::inc(x_15); +lean::dec(x_12); +x_18 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_1, x_13); +if (lean::obj_tag(x_18) == 0) +{ +x_5 = x_18; +x_6 = x_15; goto lbl_7; } else { -x_5 = x_17; -x_6 = x_14; +uint8 x_19; +x_19 = lean::cnstr_get_scalar(x_18, sizeof(void*)*1); +if (x_19 == 0) +{ +obj* x_20; uint32 x_23; obj* x_25; obj* x_26; obj* x_28; obj* x_31; +x_20 = lean::cnstr_get(x_18, 0); +lean::inc(x_20); +lean::dec(x_18); +x_23 = l_Lean_idBeginEscape; +lean::inc(x_3); +x_25 = l_Lean_Parser_MonadParsec_ch___at___private_init_lean_parser_token_4__ident_x_27___spec__11(x_23, x_2, x_3, x_15); +x_26 = lean::cnstr_get(x_25, 0); +lean::inc(x_26); +x_28 = lean::cnstr_get(x_25, 1); +lean::inc(x_28); +lean::dec(x_25); +x_31 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_20, x_26); +x_5 = x_31; +x_6 = x_28; +goto lbl_7; +} +else +{ +x_5 = x_18; +x_6 = x_15; goto lbl_7; } } } else { -uint32 x_31; uint8 x_32; -x_31 = l_String_OldIterator_curr___main(x_3); -x_32 = l_Lean_isIdFirst(x_31); -if (x_32 == 0) +uint32 x_32; uint8 x_33; +x_32 = l_String_OldIterator_curr___main(x_3); +x_33 = l_Lean_isIdFirst(x_32); +if (x_33 == 0) { -obj* x_33; obj* x_34; obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_42; obj* x_45; -x_33 = l_Char_quoteCore(x_31); -x_34 = l_Char_HasRepr___closed__1; -x_35 = lean::string_append(x_34, x_33); -lean::dec(x_33); -x_37 = lean::string_append(x_35, x_34); -x_38 = lean::box(0); -x_39 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_37, x_0, x_38, x_38, x_2, x_3, x_4); -x_40 = lean::cnstr_get(x_39, 0); -lean::inc(x_40); -x_42 = lean::cnstr_get(x_39, 1); +obj* x_34; obj* x_35; obj* x_36; obj* x_38; obj* x_39; obj* x_41; obj* x_42; obj* x_44; obj* x_47; +x_34 = l_Char_quoteCore(x_32); +x_35 = l_Char_HasRepr___closed__1; +x_36 = lean::string_append(x_35, x_34); +lean::dec(x_34); +x_38 = lean::string_append(x_36, x_35); +x_39 = lean::box(0); +lean::inc(x_3); +x_41 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_38, x_0, x_39, x_39, x_2, x_3, x_4); +x_42 = lean::cnstr_get(x_41, 0); lean::inc(x_42); -lean::dec(x_39); -x_45 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_1, x_40); -if (lean::obj_tag(x_45) == 0) +x_44 = lean::cnstr_get(x_41, 1); +lean::inc(x_44); +lean::dec(x_41); +x_47 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_1, x_42); +if (lean::obj_tag(x_47) == 0) { -x_5 = x_45; -x_6 = x_42; +x_5 = x_47; +x_6 = x_44; goto lbl_7; } else { -uint8 x_46; -x_46 = lean::cnstr_get_scalar(x_45, sizeof(void*)*1); -if (x_46 == 0) +uint8 x_48; +x_48 = lean::cnstr_get_scalar(x_47, sizeof(void*)*1); +if (x_48 == 0) { -obj* x_47; uint32 x_50; obj* x_52; obj* x_53; obj* x_55; obj* x_58; -x_47 = lean::cnstr_get(x_45, 0); -lean::inc(x_47); -lean::dec(x_45); -x_50 = l_Lean_idBeginEscape; +obj* x_49; uint32 x_52; obj* x_54; obj* x_55; obj* x_57; obj* x_60; +x_49 = lean::cnstr_get(x_47, 0); +lean::inc(x_49); +lean::dec(x_47); +x_52 = l_Lean_idBeginEscape; lean::inc(x_3); -x_52 = l_Lean_Parser_MonadParsec_ch___at___private_init_lean_parser_token_4__ident_x_27___spec__11(x_50, x_2, x_3, x_42); -x_53 = lean::cnstr_get(x_52, 0); -lean::inc(x_53); -x_55 = lean::cnstr_get(x_52, 1); +x_54 = l_Lean_Parser_MonadParsec_ch___at___private_init_lean_parser_token_4__ident_x_27___spec__11(x_52, x_2, x_3, x_44); +x_55 = lean::cnstr_get(x_54, 0); lean::inc(x_55); -lean::dec(x_52); -x_58 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_47, x_53); -x_5 = x_58; -x_6 = x_55; +x_57 = lean::cnstr_get(x_54, 1); +lean::inc(x_57); +lean::dec(x_54); +x_60 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_49, x_55); +x_5 = x_60; +x_6 = x_57; goto lbl_7; } else { -x_5 = x_45; -x_6 = x_42; +x_5 = x_47; +x_6 = x_44; goto lbl_7; } } } else { -obj* x_62; obj* x_63; obj* x_64; obj* x_65; +obj* x_64; obj* x_65; obj* x_66; obj* x_67; lean::dec(x_1); lean::dec(x_0); lean::inc(x_3); -x_62 = l_String_OldIterator_next___main(x_3); -x_63 = lean::box(0); -x_64 = lean::box_uint32(x_31); -x_65 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_65, 0, x_64); -lean::cnstr_set(x_65, 1, x_62); -lean::cnstr_set(x_65, 2, x_63); -x_5 = x_65; +x_64 = l_String_OldIterator_next___main(x_3); +x_65 = lean::box(0); +x_66 = lean::box_uint32(x_32); +x_67 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_67, 0, x_66); +lean::cnstr_set(x_67, 1, x_64); +lean::cnstr_set(x_67, 2, x_65); +x_5 = x_67; x_6 = x_4; goto lbl_7; } @@ -20941,39 +20949,39 @@ lbl_7: { if (lean::obj_tag(x_5) == 0) { -obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; -x_66 = lean::cnstr_get(x_5, 0); +obj* x_68; obj* x_70; obj* x_71; obj* x_72; obj* x_73; +x_68 = lean::cnstr_get(x_5, 0); if (lean::is_exclusive(x_5)) { lean::cnstr_release(x_5, 1); lean::cnstr_release(x_5, 2); - x_68 = x_5; + x_70 = x_5; } else { - lean::inc(x_66); + lean::inc(x_68); lean::dec(x_5); - x_68 = lean::box(0); + x_70 = lean::box(0); } -x_69 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_68)) { - x_70 = lean::alloc_cnstr(0, 3, 0); +x_71 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_70)) { + x_72 = lean::alloc_cnstr(0, 3, 0); } else { - x_70 = x_68; + x_72 = x_70; } -lean::cnstr_set(x_70, 0, x_66); -lean::cnstr_set(x_70, 1, x_3); -lean::cnstr_set(x_70, 2, x_69); -x_71 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_71, 0, x_70); -lean::cnstr_set(x_71, 1, x_6); -return x_71; +lean::cnstr_set(x_72, 0, x_68); +lean::cnstr_set(x_72, 1, x_3); +lean::cnstr_set(x_72, 2, x_71); +x_73 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_73, 0, x_72); +lean::cnstr_set(x_73, 1, x_6); +return x_73; } else { -obj* x_73; +obj* x_75; lean::dec(x_3); -x_73 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_73, 0, x_5); -lean::cnstr_set(x_73, 1, x_6); -return x_73; +x_75 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_75, 0, x_5); +lean::cnstr_set(x_75, 1, x_6); +return x_75; } } } @@ -21653,7 +21661,7 @@ goto lbl_133; } else { -obj* x_178; obj* x_179; obj* x_180; obj* x_181; obj* x_183; obj* x_185; +obj* x_178; obj* x_179; obj* x_180; obj* x_181; obj* x_182; obj* x_184; lean::dec(x_153); lean::dec(x_150); lean::dec(x_110); @@ -21661,14 +21669,13 @@ x_178 = lean::box(0); x_179 = l_Lean_Parser_token___closed__2; x_180 = l_mjoin___rarg___closed__1; x_181 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_179, x_180, x_178, x_178, x_0, x_126, x_121); -lean::dec(x_126); -x_183 = lean::cnstr_get(x_181, 0); -lean::inc(x_183); -x_185 = lean::cnstr_get(x_181, 1); -lean::inc(x_185); +x_182 = lean::cnstr_get(x_181, 0); +lean::inc(x_182); +x_184 = lean::cnstr_get(x_181, 1); +lean::inc(x_184); lean::dec(x_181); -x_131 = x_183; -x_132 = x_185; +x_131 = x_182; +x_132 = x_184; goto lbl_133; } } @@ -21676,130 +21683,130 @@ lbl_133: { if (lean::obj_tag(x_131) == 0) { -obj* x_188; obj* x_190; obj* x_192; obj* x_195; obj* x_197; -x_188 = lean::cnstr_get(x_131, 0); -lean::inc(x_188); -x_190 = lean::cnstr_get(x_131, 1); -lean::inc(x_190); -x_192 = lean::cnstr_get(x_131, 2); -lean::inc(x_192); +obj* x_187; obj* x_189; obj* x_191; obj* x_194; obj* x_196; +x_187 = lean::cnstr_get(x_131, 0); +lean::inc(x_187); +x_189 = lean::cnstr_get(x_131, 1); +lean::inc(x_189); +x_191 = lean::cnstr_get(x_131, 2); +lean::inc(x_191); lean::dec(x_131); -x_195 = l_Lean_Parser_withTrailing___at_Lean_Parser_token___spec__3(x_188, x_0, x_190, x_132); +x_194 = l_Lean_Parser_withTrailing___at_Lean_Parser_token___spec__3(x_187, x_0, x_189, x_132); lean::dec(x_0); -x_197 = lean::cnstr_get(x_195, 0); -lean::inc(x_197); -if (lean::obj_tag(x_197) == 0) +x_196 = lean::cnstr_get(x_194, 0); +lean::inc(x_196); +if (lean::obj_tag(x_196) == 0) { -obj* x_200; obj* x_202; obj* x_204; obj* x_206; obj* x_209; obj* x_210; obj* x_211; obj* x_213; obj* x_216; obj* x_217; obj* x_219; obj* x_220; obj* x_221; obj* x_222; obj* x_223; obj* x_224; obj* x_225; -lean::dec(x_195); -x_200 = lean::cnstr_get(x_197, 0); -x_202 = lean::cnstr_get(x_197, 1); -x_204 = lean::cnstr_get(x_197, 2); -if (lean::is_exclusive(x_197)) { - x_206 = x_197; +obj* x_199; obj* x_201; obj* x_203; obj* x_205; obj* x_208; obj* x_209; obj* x_210; obj* x_212; obj* x_215; obj* x_216; obj* x_218; obj* x_219; obj* x_220; obj* x_221; obj* x_222; obj* x_223; obj* x_224; +lean::dec(x_194); +x_199 = lean::cnstr_get(x_196, 0); +x_201 = lean::cnstr_get(x_196, 1); +x_203 = lean::cnstr_get(x_196, 2); +if (lean::is_exclusive(x_196)) { + x_205 = x_196; } else { - lean::inc(x_200); - lean::inc(x_202); - lean::inc(x_204); - lean::dec(x_197); - x_206 = lean::box(0); + lean::inc(x_199); + lean::inc(x_201); + lean::inc(x_203); + lean::dec(x_196); + x_205 = lean::box(0); } -lean::inc(x_200); -lean::inc(x_202); -x_209 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_209, 0, x_1); -lean::cnstr_set(x_209, 1, x_202); -lean::cnstr_set(x_209, 2, x_200); -x_210 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_210, 0, x_209); -x_211 = lean::cnstr_get(x_2, 1); -lean::inc(x_211); -x_213 = lean::cnstr_get(x_2, 2); -lean::inc(x_213); +lean::inc(x_199); +lean::inc(x_201); +x_208 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_208, 0, x_1); +lean::cnstr_set(x_208, 1, x_201); +lean::cnstr_set(x_208, 2, x_199); +x_209 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_209, 0, x_208); +x_210 = lean::cnstr_get(x_2, 1); +lean::inc(x_210); +x_212 = lean::cnstr_get(x_2, 2); +lean::inc(x_212); lean::dec(x_2); -x_216 = lean::mk_nat_obj(1ul); -x_217 = lean::nat_add(x_213, x_216); -lean::dec(x_213); -x_219 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_219, 0, x_210); -lean::cnstr_set(x_219, 1, x_211); -lean::cnstr_set(x_219, 2, x_217); -x_220 = l_Lean_Parser_matchToken___closed__1; -if (lean::is_scalar(x_206)) { - x_221 = lean::alloc_cnstr(0, 3, 0); +x_215 = lean::mk_nat_obj(1ul); +x_216 = lean::nat_add(x_212, x_215); +lean::dec(x_212); +x_218 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_218, 0, x_209); +lean::cnstr_set(x_218, 1, x_210); +lean::cnstr_set(x_218, 2, x_216); +x_219 = l_Lean_Parser_matchToken___closed__1; +if (lean::is_scalar(x_205)) { + x_220 = lean::alloc_cnstr(0, 3, 0); } else { - x_221 = x_206; + x_220 = x_205; } -lean::cnstr_set(x_221, 0, x_200); -lean::cnstr_set(x_221, 1, x_202); -lean::cnstr_set(x_221, 2, x_220); -x_222 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_204, x_221); -x_223 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_192, x_222); -x_224 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_128, x_223); -x_225 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_114, x_224); -x_96 = x_225; -x_97 = x_219; +lean::cnstr_set(x_220, 0, x_199); +lean::cnstr_set(x_220, 1, x_201); +lean::cnstr_set(x_220, 2, x_219); +x_221 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_203, x_220); +x_222 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_191, x_221); +x_223 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_128, x_222); +x_224 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_114, x_223); +x_96 = x_224; +x_97 = x_218; goto lbl_98; } else { -obj* x_228; obj* x_231; uint8 x_233; obj* x_234; obj* x_235; obj* x_236; obj* x_237; obj* x_238; obj* x_239; +obj* x_227; obj* x_230; uint8 x_232; obj* x_233; obj* x_234; obj* x_235; obj* x_236; obj* x_237; obj* x_238; lean::dec(x_1); lean::dec(x_2); -x_228 = lean::cnstr_get(x_195, 1); -lean::inc(x_228); -lean::dec(x_195); -x_231 = lean::cnstr_get(x_197, 0); -x_233 = lean::cnstr_get_scalar(x_197, sizeof(void*)*1); -if (lean::is_exclusive(x_197)) { - x_234 = x_197; +x_227 = lean::cnstr_get(x_194, 1); +lean::inc(x_227); +lean::dec(x_194); +x_230 = lean::cnstr_get(x_196, 0); +x_232 = lean::cnstr_get_scalar(x_196, sizeof(void*)*1); +if (lean::is_exclusive(x_196)) { + x_233 = x_196; } else { - lean::inc(x_231); - lean::dec(x_197); - x_234 = lean::box(0); + lean::inc(x_230); + lean::dec(x_196); + x_233 = lean::box(0); } -if (lean::is_scalar(x_234)) { - x_235 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_233)) { + x_234 = lean::alloc_cnstr(1, 1, 1); } else { - x_235 = x_234; + x_234 = x_233; } -lean::cnstr_set(x_235, 0, x_231); -lean::cnstr_set_scalar(x_235, sizeof(void*)*1, x_233); -x_236 = x_235; -x_237 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_192, x_236); -x_238 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_128, x_237); -x_239 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_114, x_238); -x_96 = x_239; -x_97 = x_228; +lean::cnstr_set(x_234, 0, x_230); +lean::cnstr_set_scalar(x_234, sizeof(void*)*1, x_232); +x_235 = x_234; +x_236 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_191, x_235); +x_237 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_128, x_236); +x_238 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_114, x_237); +x_96 = x_238; +x_97 = x_227; goto lbl_98; } } else { -obj* x_243; uint8 x_245; obj* x_246; obj* x_247; obj* x_248; obj* x_249; obj* x_250; +obj* x_242; uint8 x_244; obj* x_245; obj* x_246; obj* x_247; obj* x_248; obj* x_249; lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_243 = lean::cnstr_get(x_131, 0); -x_245 = lean::cnstr_get_scalar(x_131, sizeof(void*)*1); +x_242 = lean::cnstr_get(x_131, 0); +x_244 = lean::cnstr_get_scalar(x_131, sizeof(void*)*1); if (lean::is_exclusive(x_131)) { - x_246 = x_131; + x_245 = x_131; } else { - lean::inc(x_243); + lean::inc(x_242); lean::dec(x_131); - x_246 = lean::box(0); + x_245 = lean::box(0); } -if (lean::is_scalar(x_246)) { - x_247 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_245)) { + x_246 = lean::alloc_cnstr(1, 1, 1); } else { - x_247 = x_246; + x_246 = x_245; } -lean::cnstr_set(x_247, 0, x_243); -lean::cnstr_set_scalar(x_247, sizeof(void*)*1, x_245); -x_248 = x_247; -x_249 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_128, x_248); -x_250 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_114, x_249); -x_96 = x_250; +lean::cnstr_set(x_246, 0, x_242); +lean::cnstr_set_scalar(x_246, sizeof(void*)*1, x_244); +x_247 = x_246; +x_248 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_128, x_247); +x_249 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_114, x_248); +x_96 = x_249; x_97 = x_132; goto lbl_98; } @@ -21807,135 +21814,135 @@ goto lbl_98; } else { -obj* x_255; obj* x_258; uint8 x_260; obj* x_261; obj* x_262; obj* x_263; obj* x_264; +obj* x_254; obj* x_257; uint8 x_259; obj* x_260; obj* x_261; obj* x_262; obj* x_263; lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); lean::dec(x_110); -x_255 = lean::cnstr_get(x_118, 1); -lean::inc(x_255); +x_254 = lean::cnstr_get(x_118, 1); +lean::inc(x_254); lean::dec(x_118); -x_258 = lean::cnstr_get(x_119, 0); -x_260 = lean::cnstr_get_scalar(x_119, sizeof(void*)*1); +x_257 = lean::cnstr_get(x_119, 0); +x_259 = lean::cnstr_get_scalar(x_119, sizeof(void*)*1); if (lean::is_exclusive(x_119)) { - x_261 = x_119; + x_260 = x_119; } else { - lean::inc(x_258); + lean::inc(x_257); lean::dec(x_119); - x_261 = lean::box(0); + x_260 = lean::box(0); } -if (lean::is_scalar(x_261)) { - x_262 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_260)) { + x_261 = lean::alloc_cnstr(1, 1, 1); } else { - x_262 = x_261; + x_261 = x_260; } -lean::cnstr_set(x_262, 0, x_258); -lean::cnstr_set_scalar(x_262, sizeof(void*)*1, x_260); -x_263 = x_262; -x_264 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_114, x_263); -x_96 = x_264; -x_97 = x_255; +lean::cnstr_set(x_261, 0, x_257); +lean::cnstr_set_scalar(x_261, sizeof(void*)*1, x_259); +x_262 = x_261; +x_263 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_114, x_262); +x_96 = x_263; +x_97 = x_254; goto lbl_98; } } else { -obj* x_268; obj* x_271; uint8 x_273; obj* x_274; obj* x_275; obj* x_276; +obj* x_267; obj* x_270; uint8 x_272; obj* x_273; obj* x_274; obj* x_275; lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_268 = lean::cnstr_get(x_104, 1); -lean::inc(x_268); +x_267 = lean::cnstr_get(x_104, 1); +lean::inc(x_267); lean::dec(x_104); -x_271 = lean::cnstr_get(x_105, 0); -x_273 = lean::cnstr_get_scalar(x_105, sizeof(void*)*1); +x_270 = lean::cnstr_get(x_105, 0); +x_272 = lean::cnstr_get_scalar(x_105, sizeof(void*)*1); if (lean::is_exclusive(x_105)) { - x_274 = x_105; + x_273 = x_105; } else { - lean::inc(x_271); + lean::inc(x_270); lean::dec(x_105); - x_274 = lean::box(0); + x_273 = lean::box(0); } -if (lean::is_scalar(x_274)) { - x_275 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_273)) { + x_274 = lean::alloc_cnstr(1, 1, 1); } else { - x_275 = x_274; + x_274 = x_273; } -lean::cnstr_set(x_275, 0, x_271); -lean::cnstr_set_scalar(x_275, sizeof(void*)*1, x_273); -x_276 = x_275; -x_96 = x_276; -x_97 = x_268; +lean::cnstr_set(x_274, 0, x_270); +lean::cnstr_set_scalar(x_274, sizeof(void*)*1, x_272); +x_275 = x_274; +x_96 = x_275; +x_97 = x_267; goto lbl_98; } lbl_98: { if (lean::obj_tag(x_96) == 0) { -obj* x_277; obj* x_278; obj* x_279; obj* x_280; -x_277 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_278 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_277, x_96); -x_279 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_277, x_278); -x_280 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_280, 0, x_279); -lean::cnstr_set(x_280, 1, x_97); -return x_280; +obj* x_276; obj* x_277; obj* x_278; obj* x_279; +x_276 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_277 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_276, x_96); +x_278 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_276, x_277); +x_279 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_279, 0, x_278); +lean::cnstr_set(x_279, 1, x_97); +return x_279; } else { -uint8 x_281; -x_281 = lean::cnstr_get_scalar(x_96, sizeof(void*)*1); +uint8 x_280; +x_280 = lean::cnstr_get_scalar(x_96, sizeof(void*)*1); if (x_94 == 0) { -obj* x_282; obj* x_284; obj* x_285; obj* x_286; obj* x_287; obj* x_288; obj* x_289; obj* x_290; -x_282 = lean::cnstr_get(x_96, 0); +obj* x_281; obj* x_283; obj* x_284; obj* x_285; obj* x_286; obj* x_287; obj* x_288; obj* x_289; +x_281 = lean::cnstr_get(x_96, 0); if (lean::is_exclusive(x_96)) { - x_284 = x_96; + x_283 = x_96; } else { - lean::inc(x_282); + lean::inc(x_281); lean::dec(x_96); - x_284 = lean::box(0); + x_283 = lean::box(0); } -if (lean::is_scalar(x_284)) { - x_285 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_283)) { + x_284 = lean::alloc_cnstr(1, 1, 1); } else { - x_285 = x_284; + x_284 = x_283; } -lean::cnstr_set(x_285, 0, x_282); -lean::cnstr_set_scalar(x_285, sizeof(void*)*1, x_281); -x_286 = x_285; -x_287 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_288 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_287, x_286); -x_289 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_287, x_288); -x_290 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_290, 0, x_289); -lean::cnstr_set(x_290, 1, x_97); -return x_290; +lean::cnstr_set(x_284, 0, x_281); +lean::cnstr_set_scalar(x_284, sizeof(void*)*1, x_280); +x_285 = x_284; +x_286 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_287 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_286, x_285); +x_288 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_286, x_287); +x_289 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_289, 0, x_288); +lean::cnstr_set(x_289, 1, x_97); +return x_289; } else { -obj* x_291; obj* x_293; uint8 x_294; obj* x_295; obj* x_296; obj* x_297; -x_291 = lean::cnstr_get(x_96, 0); +obj* x_290; obj* x_292; uint8 x_293; obj* x_294; obj* x_295; obj* x_296; +x_290 = lean::cnstr_get(x_96, 0); if (lean::is_exclusive(x_96)) { - x_293 = x_96; + x_292 = x_96; } else { - lean::inc(x_291); + lean::inc(x_290); lean::dec(x_96); - x_293 = lean::box(0); + x_292 = lean::box(0); } -x_294 = 1; -if (lean::is_scalar(x_293)) { - x_295 = lean::alloc_cnstr(1, 1, 1); +x_293 = 1; +if (lean::is_scalar(x_292)) { + x_294 = lean::alloc_cnstr(1, 1, 1); } else { - x_295 = x_293; + x_294 = x_292; } -lean::cnstr_set(x_295, 0, x_291); -lean::cnstr_set_scalar(x_295, sizeof(void*)*1, x_294); -x_296 = x_295; -x_297 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_297, 0, x_296); -lean::cnstr_set(x_297, 1, x_97); -return x_297; +lean::cnstr_set(x_294, 0, x_290); +lean::cnstr_set_scalar(x_294, sizeof(void*)*1, x_293); +x_295 = x_294; +x_296 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_296, 0, x_295); +lean::cnstr_set(x_296, 1, x_97); +return x_296; } } } @@ -22250,241 +22257,237 @@ lean::dec(x_23); x_28 = lean::string_dec_eq(x_2, x_25); if (x_28 == 0) { -obj* x_31; obj* x_32; obj* x_33; obj* x_37; +obj* x_31; obj* x_32; obj* x_33; obj* x_35; lean::dec(x_13); lean::dec(x_20); x_31 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_31, 0, x_4); x_32 = lean::box(0); x_33 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_25, x_0, x_31, x_32, x_3, x_16, x_11); -lean::dec(x_16); lean::dec(x_3); -lean::dec(x_31); -x_37 = lean::cnstr_get(x_33, 0); -lean::inc(x_37); -if (lean::obj_tag(x_37) == 0) +x_35 = lean::cnstr_get(x_33, 0); +lean::inc(x_35); +if (lean::obj_tag(x_35) == 0) { -obj* x_39; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; -x_39 = lean::cnstr_get(x_33, 1); +obj* x_37; obj* x_39; obj* x_40; obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; +x_37 = lean::cnstr_get(x_33, 1); if (lean::is_exclusive(x_33)) { lean::cnstr_release(x_33, 0); - x_41 = x_33; + x_39 = x_33; } else { - lean::inc(x_39); + lean::inc(x_37); lean::dec(x_33); - x_41 = lean::box(0); + x_39 = lean::box(0); } -x_42 = lean::cnstr_get(x_37, 1); -x_44 = lean::cnstr_get(x_37, 2); -if (lean::is_exclusive(x_37)) { - lean::cnstr_release(x_37, 0); - x_46 = x_37; +x_40 = lean::cnstr_get(x_35, 1); +x_42 = lean::cnstr_get(x_35, 2); +if (lean::is_exclusive(x_35)) { + lean::cnstr_release(x_35, 0); + x_44 = x_35; } else { + lean::inc(x_40); lean::inc(x_42); - lean::inc(x_44); - lean::dec(x_37); - x_46 = lean::box(0); + lean::dec(x_35); + x_44 = lean::box(0); } -x_47 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_46)) { - x_48 = lean::alloc_cnstr(0, 3, 0); +x_45 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_44)) { + x_46 = lean::alloc_cnstr(0, 3, 0); } else { - x_48 = x_46; + x_46 = x_44; } -lean::cnstr_set(x_48, 0, x_14); -lean::cnstr_set(x_48, 1, x_42); -lean::cnstr_set(x_48, 2, x_47); -x_49 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_44, x_48); -x_50 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_49); -x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_47, x_50); -x_52 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_51, x_1); -x_53 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_52); -if (lean::is_scalar(x_41)) { - x_54 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_46, 0, x_14); +lean::cnstr_set(x_46, 1, x_40); +lean::cnstr_set(x_46, 2, x_45); +x_47 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_42, x_46); +x_48 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_47); +x_49 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_45, x_48); +x_50 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_49, x_1); +x_51 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_50); +if (lean::is_scalar(x_39)) { + x_52 = lean::alloc_cnstr(0, 2, 0); } else { - x_54 = x_41; + x_52 = x_39; } -lean::cnstr_set(x_54, 0, x_53); -lean::cnstr_set(x_54, 1, x_39); -return x_54; +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_37); +return x_52; } else { -obj* x_56; obj* x_58; obj* x_59; uint8 x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; +obj* x_54; obj* x_56; obj* x_57; uint8 x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; lean::dec(x_14); -x_56 = lean::cnstr_get(x_33, 1); +x_54 = lean::cnstr_get(x_33, 1); if (lean::is_exclusive(x_33)) { lean::cnstr_release(x_33, 0); - x_58 = x_33; + x_56 = x_33; } else { - lean::inc(x_56); + lean::inc(x_54); lean::dec(x_33); - x_58 = lean::box(0); + x_56 = lean::box(0); } -x_59 = lean::cnstr_get(x_37, 0); -x_61 = lean::cnstr_get_scalar(x_37, sizeof(void*)*1); -if (lean::is_exclusive(x_37)) { - x_62 = x_37; +x_57 = lean::cnstr_get(x_35, 0); +x_59 = lean::cnstr_get_scalar(x_35, sizeof(void*)*1); +if (lean::is_exclusive(x_35)) { + x_60 = x_35; } else { - lean::inc(x_59); - lean::dec(x_37); - x_62 = lean::box(0); + lean::inc(x_57); + lean::dec(x_35); + x_60 = lean::box(0); } -if (lean::is_scalar(x_62)) { - x_63 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_60)) { + x_61 = lean::alloc_cnstr(1, 1, 1); } else { - x_63 = x_62; + x_61 = x_60; } -lean::cnstr_set(x_63, 0, x_59); -lean::cnstr_set_scalar(x_63, sizeof(void*)*1, x_61); -x_64 = x_63; -x_65 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_64); -x_66 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_67 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_66, x_65); -x_68 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_67, x_1); -x_69 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_68); -if (lean::is_scalar(x_58)) { - x_70 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_61, 0, x_57); +lean::cnstr_set_scalar(x_61, sizeof(void*)*1, x_59); +x_62 = x_61; +x_63 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_62); +x_64 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_65 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_64, x_63); +x_66 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_65, x_1); +x_67 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_66); +if (lean::is_scalar(x_56)) { + x_68 = lean::alloc_cnstr(0, 2, 0); } else { - x_70 = x_58; + x_68 = x_56; } -lean::cnstr_set(x_70, 0, x_69); -lean::cnstr_set(x_70, 1, x_56); -return x_70; +lean::cnstr_set(x_68, 0, x_67); +lean::cnstr_set(x_68, 1, x_54); +return x_68; } } else { -obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; +obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; lean::dec(x_4); lean::dec(x_3); lean::dec(x_0); lean::dec(x_25); -x_75 = l_Lean_Parser_finishCommentBlock___closed__2; +x_73 = l_Lean_Parser_finishCommentBlock___closed__2; if (lean::is_scalar(x_20)) { - x_76 = lean::alloc_cnstr(0, 3, 0); + x_74 = lean::alloc_cnstr(0, 3, 0); } else { - x_76 = x_20; + x_74 = x_20; } -lean::cnstr_set(x_76, 0, x_14); -lean::cnstr_set(x_76, 1, x_16); -lean::cnstr_set(x_76, 2, x_75); -x_77 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_76); -x_78 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_79 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_78, x_77); -x_80 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_79, x_1); -x_81 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_80); +lean::cnstr_set(x_74, 0, x_14); +lean::cnstr_set(x_74, 1, x_16); +lean::cnstr_set(x_74, 2, x_73); +x_75 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_74); +x_76 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_77 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_76, x_75); +x_78 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_77, x_1); +x_79 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_78); if (lean::is_scalar(x_13)) { - x_82 = lean::alloc_cnstr(0, 2, 0); + x_80 = lean::alloc_cnstr(0, 2, 0); } else { - x_82 = x_13; + x_80 = x_13; } -lean::cnstr_set(x_82, 0, x_81); -lean::cnstr_set(x_82, 1, x_11); -return x_82; +lean::cnstr_set(x_80, 0, x_79); +lean::cnstr_set(x_80, 1, x_11); +return x_80; } } case 3: { -obj* x_85; +obj* x_83; lean::dec(x_13); lean::dec(x_20); -x_85 = lean::box(0); -x_21 = x_85; +x_83 = lean::box(0); +x_21 = x_83; goto lbl_22; } default: { -obj* x_89; +obj* x_87; lean::dec(x_13); lean::dec(x_14); lean::dec(x_20); -x_89 = lean::box(0); -x_21 = x_89; +x_87 = lean::box(0); +x_21 = x_87; goto lbl_22; } } lbl_22: { -obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_98; obj* x_100; obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; +obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_94; obj* x_96; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; lean::dec(x_21); -x_91 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_91, 0, x_4); -x_92 = lean::box(0); -x_93 = l_String_splitAux___main___closed__1; -x_94 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_93, x_0, x_91, x_92, x_3, x_16, x_11); -lean::dec(x_16); +x_89 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_89, 0, x_4); +x_90 = lean::box(0); +x_91 = l_String_splitAux___main___closed__1; +x_92 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_91, x_0, x_89, x_90, x_3, x_16, x_11); lean::dec(x_3); -lean::dec(x_91); -x_98 = lean::cnstr_get(x_94, 0); -x_100 = lean::cnstr_get(x_94, 1); -if (lean::is_exclusive(x_94)) { - x_102 = x_94; +x_94 = lean::cnstr_get(x_92, 0); +x_96 = lean::cnstr_get(x_92, 1); +if (lean::is_exclusive(x_92)) { + x_98 = x_92; } else { - lean::inc(x_98); - lean::inc(x_100); - lean::dec(x_94); - x_102 = lean::box(0); + lean::inc(x_94); + lean::inc(x_96); + lean::dec(x_92); + x_98 = lean::box(0); } -x_103 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_98); -x_104 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_105 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_104, x_103); -x_106 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_105, x_1); -x_107 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_106); -if (lean::is_scalar(x_102)) { - x_108 = lean::alloc_cnstr(0, 2, 0); +x_99 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_94); +x_100 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_101 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_100, x_99); +x_102 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_101, x_1); +x_103 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_102); +if (lean::is_scalar(x_98)) { + x_104 = lean::alloc_cnstr(0, 2, 0); } else { - x_108 = x_102; + x_104 = x_98; } -lean::cnstr_set(x_108, 0, x_107); -lean::cnstr_set(x_108, 1, x_100); -return x_108; +lean::cnstr_set(x_104, 0, x_103); +lean::cnstr_set(x_104, 1, x_96); +return x_104; } } else { -obj* x_112; obj* x_114; obj* x_115; uint8 x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; +obj* x_108; obj* x_110; obj* x_111; uint8 x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; lean::dec(x_4); lean::dec(x_3); lean::dec(x_0); -x_112 = lean::cnstr_get(x_8, 1); +x_108 = lean::cnstr_get(x_8, 1); if (lean::is_exclusive(x_8)) { lean::cnstr_release(x_8, 0); - x_114 = x_8; + x_110 = x_8; } else { - lean::inc(x_112); + lean::inc(x_108); lean::dec(x_8); + x_110 = lean::box(0); +} +x_111 = lean::cnstr_get(x_9, 0); +x_113 = lean::cnstr_get_scalar(x_9, sizeof(void*)*1); +if (lean::is_exclusive(x_9)) { + x_114 = x_9; +} else { + lean::inc(x_111); + lean::dec(x_9); x_114 = lean::box(0); } -x_115 = lean::cnstr_get(x_9, 0); -x_117 = lean::cnstr_get_scalar(x_9, sizeof(void*)*1); -if (lean::is_exclusive(x_9)) { - x_118 = x_9; -} else { - lean::inc(x_115); - lean::dec(x_9); - x_118 = lean::box(0); -} -if (lean::is_scalar(x_118)) { - x_119 = lean::alloc_cnstr(1, 1, 1); -} else { - x_119 = x_118; -} -lean::cnstr_set(x_119, 0, x_115); -lean::cnstr_set_scalar(x_119, sizeof(void*)*1, x_117); -x_120 = x_119; -x_121 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_122 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_121, x_120); -x_123 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_122, x_1); -x_124 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_123); if (lean::is_scalar(x_114)) { - x_125 = lean::alloc_cnstr(0, 2, 0); + x_115 = lean::alloc_cnstr(1, 1, 1); } else { - x_125 = x_114; + x_115 = x_114; } -lean::cnstr_set(x_125, 0, x_124); -lean::cnstr_set(x_125, 1, x_112); -return x_125; +lean::cnstr_set(x_115, 0, x_111); +lean::cnstr_set_scalar(x_115, sizeof(void*)*1, x_113); +x_116 = x_115; +x_117 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_118 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_117, x_116); +x_119 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_118, x_1); +x_120 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_119); +if (lean::is_scalar(x_110)) { + x_121 = lean::alloc_cnstr(0, 2, 0); +} else { + x_121 = x_110; +} +lean::cnstr_set(x_121, 0, x_120); +lean::cnstr_set(x_121, 1, x_108); +return x_121; } } } @@ -22697,198 +22700,169 @@ lean::dec(x_0); return x_1; } } -obj* l_Lean_Parser_tryView___at_Lean_Parser_number_Parser___spec__1(obj* x_0, obj* x_1) { +obj* _init_l_Lean_Parser_number_Parser___rarg___lambda__1___closed__1() { _start: { -uint8 x_2; -x_2 = l_Lean_Parser_Syntax_isOfKind___main(x_0, x_1); -if (x_2 == 0) -{ -obj* x_4; -lean::dec(x_1); -x_4 = lean::box(0); -return x_4; +obj* x_0; obj* x_1; +x_0 = lean::mk_string("number"); +x_1 = lean::alloc_closure(reinterpret_cast(l_DList_singleton___rarg), 2, 1); +lean::closure_set(x_1, 0, x_0); +return x_1; } -else +} +obj* l_Lean_Parser_number_Parser___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) { +_start: { -obj* x_5; obj* x_6; obj* x_9; obj* x_10; -x_5 = l_Lean_Parser_number_HasView; +obj* x_5; obj* x_6; +lean::inc(x_1); +lean::inc(x_0); +x_5 = l_Lean_Parser_token(x_0, x_1, x_2); x_6 = lean::cnstr_get(x_5, 0); lean::inc(x_6); -lean::dec(x_5); -x_9 = lean::apply_1(x_6, x_1); -x_10 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_10, 0, x_9); -return x_10; -} -} -} -obj* l_Lean_Parser_number_Parser___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: +if (lean::obj_tag(x_6) == 0) { -obj* x_6; obj* x_7; -lean::inc(x_2); -lean::inc(x_1); -x_6 = l_Lean_Parser_token(x_1, x_2, x_3); -x_7 = lean::cnstr_get(x_6, 0); -lean::inc(x_7); -if (lean::obj_tag(x_7) == 0) -{ -obj* x_9; obj* x_11; obj* x_12; obj* x_14; obj* x_16; obj* x_18; obj* x_19; obj* x_21; -x_9 = lean::cnstr_get(x_6, 1); +obj* x_8; obj* x_10; obj* x_11; obj* x_13; obj* x_15; obj* x_17; obj* x_18; uint8 x_19; +x_8 = lean::cnstr_get(x_5, 1); +if (lean::is_exclusive(x_5)) { + lean::cnstr_release(x_5, 0); + lean::cnstr_set(x_5, 1, lean::box(0)); + x_10 = x_5; +} else { + lean::inc(x_8); + lean::dec(x_5); + x_10 = lean::box(0); +} +x_11 = lean::cnstr_get(x_6, 0); +x_13 = lean::cnstr_get(x_6, 1); +x_15 = lean::cnstr_get(x_6, 2); if (lean::is_exclusive(x_6)) { - lean::cnstr_release(x_6, 0); + lean::cnstr_set(x_6, 0, lean::box(0)); lean::cnstr_set(x_6, 1, lean::box(0)); - x_11 = x_6; + lean::cnstr_set(x_6, 2, lean::box(0)); + x_17 = x_6; } else { - lean::inc(x_9); + lean::inc(x_11); + lean::inc(x_13); + lean::inc(x_15); lean::dec(x_6); - x_11 = lean::box(0); + x_17 = lean::box(0); } -x_12 = lean::cnstr_get(x_7, 0); -x_14 = lean::cnstr_get(x_7, 1); -x_16 = lean::cnstr_get(x_7, 2); -if (lean::is_exclusive(x_7)) { - lean::cnstr_set(x_7, 0, lean::box(0)); - lean::cnstr_set(x_7, 1, lean::box(0)); - lean::cnstr_set(x_7, 2, lean::box(0)); - x_18 = x_7; -} else { - lean::inc(x_12); - lean::inc(x_14); - lean::inc(x_16); - lean::dec(x_7); - x_18 = lean::box(0); -} -x_19 = l_Lean_Parser_number; -lean::inc(x_12); -x_21 = l_Lean_Parser_tryView___at_Lean_Parser_number_Parser___spec__1(x_19, x_12); -if (lean::obj_tag(x_21) == 0) +x_18 = l_Lean_Parser_number; +x_19 = l_Lean_Parser_Syntax_isOfKind___main(x_18, x_11); +if (x_19 == 0) { -obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_33; obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; +obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +lean::dec(x_17); +lean::dec(x_10); lean::dec(x_11); -lean::dec(x_12); -lean::dec(x_18); -x_25 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_25, 0, x_2); -x_26 = lean::box(0); -x_27 = l_String_splitAux___main___closed__1; -lean::inc(x_0); -x_29 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_27, x_0, x_25, x_26, x_1, x_14, x_9); -lean::dec(x_14); -lean::dec(x_1); -lean::dec(x_25); -x_33 = lean::cnstr_get(x_29, 0); -x_35 = lean::cnstr_get(x_29, 1); -if (lean::is_exclusive(x_29)) { - x_37 = x_29; +x_23 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_23, 0, x_1); +x_24 = lean::box(0); +x_25 = l_String_splitAux___main___closed__1; +x_26 = l_Lean_Parser_number_Parser___rarg___lambda__1___closed__1; +x_27 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_25, x_26, x_23, x_24, x_0, x_13, x_8); +lean::dec(x_0); +x_29 = lean::cnstr_get(x_27, 0); +x_31 = lean::cnstr_get(x_27, 1); +if (lean::is_exclusive(x_27)) { + x_33 = x_27; } else { - lean::inc(x_33); - lean::inc(x_35); - lean::dec(x_29); - x_37 = lean::box(0); + lean::inc(x_29); + lean::inc(x_31); + lean::dec(x_27); + x_33 = lean::box(0); } -x_38 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_39 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_33); -x_40 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_39); -x_41 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_40); -x_42 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_41, x_0); -x_43 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_42); -if (lean::is_scalar(x_37)) { - x_44 = lean::alloc_cnstr(0, 2, 0); +x_34 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_29); +x_35 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_36 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_35, x_34); +x_37 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_36); +if (lean::is_scalar(x_33)) { + x_38 = lean::alloc_cnstr(0, 2, 0); } else { - x_44 = x_37; + x_38 = x_33; } -lean::cnstr_set(x_44, 0, x_43); -lean::cnstr_set(x_44, 1, x_35); -return x_44; +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_31); +return x_38; } else { -obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; +obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; lean::dec(x_1); -lean::dec(x_2); -lean::dec(x_21); -x_48 = l_Lean_Parser_finishCommentBlock___closed__2; -if (lean::is_scalar(x_18)) { - x_49 = lean::alloc_cnstr(0, 3, 0); +lean::dec(x_0); +x_41 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_17)) { + x_42 = lean::alloc_cnstr(0, 3, 0); } else { - x_49 = x_18; + x_42 = x_17; } -lean::cnstr_set(x_49, 0, x_12); -lean::cnstr_set(x_49, 1, x_14); -lean::cnstr_set(x_49, 2, x_48); -x_50 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_49); -x_51 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_51, x_50); -x_53 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_52, x_0); -x_54 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_53); -if (lean::is_scalar(x_11)) { - x_55 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_42, 0, x_11); +lean::cnstr_set(x_42, 1, x_13); +lean::cnstr_set(x_42, 2, x_41); +x_43 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_15, x_42); +x_44 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_41, x_43); +x_45 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_44); +if (lean::is_scalar(x_10)) { + x_46 = lean::alloc_cnstr(0, 2, 0); } else { - x_55 = x_11; + x_46 = x_10; } -lean::cnstr_set(x_55, 0, x_54); -lean::cnstr_set(x_55, 1, x_9); -return x_55; +lean::cnstr_set(x_46, 0, x_45); +lean::cnstr_set(x_46, 1, x_8); +return x_46; } } else { -obj* x_58; obj* x_60; obj* x_61; uint8 x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; +obj* x_49; obj* x_51; obj* x_52; uint8 x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; lean::dec(x_1); -lean::dec(x_2); -x_58 = lean::cnstr_get(x_6, 1); +lean::dec(x_0); +x_49 = lean::cnstr_get(x_5, 1); +if (lean::is_exclusive(x_5)) { + lean::cnstr_release(x_5, 0); + x_51 = x_5; +} else { + lean::inc(x_49); + lean::dec(x_5); + x_51 = lean::box(0); +} +x_52 = lean::cnstr_get(x_6, 0); +x_54 = lean::cnstr_get_scalar(x_6, sizeof(void*)*1); if (lean::is_exclusive(x_6)) { - lean::cnstr_release(x_6, 0); - x_60 = x_6; + x_55 = x_6; } else { - lean::inc(x_58); + lean::inc(x_52); lean::dec(x_6); - x_60 = lean::box(0); + x_55 = lean::box(0); } -x_61 = lean::cnstr_get(x_7, 0); -x_63 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); -if (lean::is_exclusive(x_7)) { - x_64 = x_7; +if (lean::is_scalar(x_55)) { + x_56 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_61); - lean::dec(x_7); - x_64 = lean::box(0); + x_56 = x_55; } -if (lean::is_scalar(x_64)) { - x_65 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_56, 0, x_52); +lean::cnstr_set_scalar(x_56, sizeof(void*)*1, x_54); +x_57 = x_56; +x_58 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_59 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_58, x_57); +x_60 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_59); +if (lean::is_scalar(x_51)) { + x_61 = lean::alloc_cnstr(0, 2, 0); } else { - x_65 = x_64; + x_61 = x_51; } -lean::cnstr_set(x_65, 0, x_61); -lean::cnstr_set_scalar(x_65, sizeof(void*)*1, x_63); -x_66 = x_65; -x_67 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_68 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_67, x_66); -x_69 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_68, x_0); -x_70 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_69); -if (lean::is_scalar(x_60)) { - x_71 = lean::alloc_cnstr(0, 2, 0); -} else { - x_71 = x_60; -} -lean::cnstr_set(x_71, 0, x_70); -lean::cnstr_set(x_71, 1, x_58); -return x_71; +lean::cnstr_set(x_61, 0, x_60); +lean::cnstr_set(x_61, 1, x_49); +return x_61; } } } obj* _init_l_Lean_Parser_number_Parser___rarg___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_2; -x_0 = lean::mk_string("number"); -x_1 = lean::alloc_closure(reinterpret_cast(l_DList_singleton___rarg), 2, 1); -lean::closure_set(x_1, 0, x_0); -x_2 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_number_Parser___rarg___lambda__1), 4, 1); -lean::closure_set(x_2, 0, x_1); -return x_2; +obj* x_0; +x_0 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_number_Parser___rarg___lambda__1), 3, 0); +return x_0; } } obj* l_Lean_Parser_number_Parser___rarg(obj* x_0) { @@ -22908,15 +22882,6 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_number_Parser___ return x_1; } } -obj* l_Lean_Parser_tryView___at_Lean_Parser_number_Parser___spec__1___boxed(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = l_Lean_Parser_tryView___at_Lean_Parser_number_Parser___spec__1(x_0, x_1); -lean::dec(x_0); -return x_2; -} -} obj* l_Lean_Parser_number_Parser___boxed(obj* x_0) { _start: { @@ -23356,7 +23321,7 @@ lean::inc(x_12); x_21 = l_Lean_Parser_tryView___at_Lean_Parser_stringLit_Parser___spec__1(x_19, x_12); if (lean::obj_tag(x_21) == 0) { -obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_33; obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; +obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; lean::dec(x_11); lean::dec(x_12); lean::dec(x_18); @@ -23366,107 +23331,105 @@ x_26 = lean::box(0); x_27 = l_String_splitAux___main___closed__1; lean::inc(x_0); x_29 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_27, x_0, x_25, x_26, x_1, x_14, x_9); -lean::dec(x_14); lean::dec(x_1); -lean::dec(x_25); -x_33 = lean::cnstr_get(x_29, 0); -x_35 = lean::cnstr_get(x_29, 1); +x_31 = lean::cnstr_get(x_29, 0); +x_33 = lean::cnstr_get(x_29, 1); if (lean::is_exclusive(x_29)) { - x_37 = x_29; + x_35 = x_29; } else { + lean::inc(x_31); lean::inc(x_33); - lean::inc(x_35); lean::dec(x_29); - x_37 = lean::box(0); + x_35 = lean::box(0); } -x_38 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_39 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_33); -x_40 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_39); -x_41 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_40); -x_42 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_41, x_0); -x_43 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_42); -if (lean::is_scalar(x_37)) { - x_44 = lean::alloc_cnstr(0, 2, 0); +x_36 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_37 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_36, x_31); +x_38 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_37); +x_39 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_36, x_38); +x_40 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_39, x_0); +x_41 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_40); +if (lean::is_scalar(x_35)) { + x_42 = lean::alloc_cnstr(0, 2, 0); } else { - x_44 = x_37; + x_42 = x_35; } -lean::cnstr_set(x_44, 0, x_43); -lean::cnstr_set(x_44, 1, x_35); -return x_44; +lean::cnstr_set(x_42, 0, x_41); +lean::cnstr_set(x_42, 1, x_33); +return x_42; } else { -obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; +obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; lean::dec(x_1); lean::dec(x_2); lean::dec(x_21); -x_48 = l_Lean_Parser_finishCommentBlock___closed__2; +x_46 = l_Lean_Parser_finishCommentBlock___closed__2; if (lean::is_scalar(x_18)) { - x_49 = lean::alloc_cnstr(0, 3, 0); + x_47 = lean::alloc_cnstr(0, 3, 0); } else { - x_49 = x_18; + x_47 = x_18; } -lean::cnstr_set(x_49, 0, x_12); -lean::cnstr_set(x_49, 1, x_14); -lean::cnstr_set(x_49, 2, x_48); -x_50 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_49); -x_51 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_51, x_50); -x_53 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_52, x_0); -x_54 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_53); +lean::cnstr_set(x_47, 0, x_12); +lean::cnstr_set(x_47, 1, x_14); +lean::cnstr_set(x_47, 2, x_46); +x_48 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_47); +x_49 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_50 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_49, x_48); +x_51 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_50, x_0); +x_52 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_51); if (lean::is_scalar(x_11)) { - x_55 = lean::alloc_cnstr(0, 2, 0); + x_53 = lean::alloc_cnstr(0, 2, 0); } else { - x_55 = x_11; + x_53 = x_11; } -lean::cnstr_set(x_55, 0, x_54); -lean::cnstr_set(x_55, 1, x_9); -return x_55; +lean::cnstr_set(x_53, 0, x_52); +lean::cnstr_set(x_53, 1, x_9); +return x_53; } } else { -obj* x_58; obj* x_60; obj* x_61; uint8 x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; +obj* x_56; obj* x_58; obj* x_59; uint8 x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; lean::dec(x_1); lean::dec(x_2); -x_58 = lean::cnstr_get(x_6, 1); +x_56 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); - x_60 = x_6; + x_58 = x_6; } else { - lean::inc(x_58); + lean::inc(x_56); lean::dec(x_6); - x_60 = lean::box(0); + x_58 = lean::box(0); } -x_61 = lean::cnstr_get(x_7, 0); -x_63 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); +x_59 = lean::cnstr_get(x_7, 0); +x_61 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); if (lean::is_exclusive(x_7)) { - x_64 = x_7; + x_62 = x_7; } else { - lean::inc(x_61); + lean::inc(x_59); lean::dec(x_7); - x_64 = lean::box(0); + x_62 = lean::box(0); } -if (lean::is_scalar(x_64)) { - x_65 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_62)) { + x_63 = lean::alloc_cnstr(1, 1, 1); } else { - x_65 = x_64; + x_63 = x_62; } -lean::cnstr_set(x_65, 0, x_61); -lean::cnstr_set_scalar(x_65, sizeof(void*)*1, x_63); -x_66 = x_65; -x_67 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_68 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_67, x_66); -x_69 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_68, x_0); -x_70 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_69); -if (lean::is_scalar(x_60)) { - x_71 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_63, 0, x_59); +lean::cnstr_set_scalar(x_63, sizeof(void*)*1, x_61); +x_64 = x_63; +x_65 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_66 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_65, x_64); +x_67 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_66, x_0); +x_68 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_67); +if (lean::is_scalar(x_58)) { + x_69 = lean::alloc_cnstr(0, 2, 0); } else { - x_71 = x_60; + x_69 = x_58; } -lean::cnstr_set(x_71, 0, x_70); -lean::cnstr_set(x_71, 1, x_58); -return x_71; +lean::cnstr_set(x_69, 0, x_68); +lean::cnstr_set(x_69, 1, x_56); +return x_69; } } } @@ -23598,26 +23561,47 @@ return x_1; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_5; obj* x_6; uint8 x_7; obj* x_8; obj* x_9; -x_5 = l_Option_getOrElse___main___rarg(x_2, x_4); -x_6 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_0); -lean::cnstr_set(x_6, 2, x_1); -lean::cnstr_set(x_6, 3, x_3); -x_7 = 0; -x_8 = lean::alloc_cnstr(1, 1, 1); -lean::cnstr_set(x_8, 0, x_6); -lean::cnstr_set_scalar(x_8, sizeof(void*)*1, x_7); -x_9 = x_8; -return x_9; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_5; uint8 x_6; obj* x_7; obj* x_8; +x_5 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_0); +lean::cnstr_set(x_5, 2, x_1); +lean::cnstr_set(x_5, 3, x_3); +x_6 = 0; +x_7 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_7, 0, x_5); +lean::cnstr_set_scalar(x_7, sizeof(void*)*1, x_6); +x_8 = x_7; +return x_8; +} +else +{ +obj* x_10; obj* x_13; uint8 x_14; obj* x_15; obj* x_16; +lean::dec(x_4); +x_10 = lean::cnstr_get(x_2, 0); +lean::inc(x_10); +lean::dec(x_2); +x_13 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_13, 0, x_10); +lean::cnstr_set(x_13, 1, x_0); +lean::cnstr_set(x_13, 2, x_1); +lean::cnstr_set(x_13, 3, x_3); +x_14 = 0; +x_15 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_15, 0, x_13); +lean::cnstr_set_scalar(x_15, sizeof(void*)*1, x_14); +x_16 = x_15; +return x_16; +} } } obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3(obj* x_0) { _start: { obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg___boxed), 5, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg), 5, 0); return x_1; } } @@ -23628,48 +23612,46 @@ uint8 x_2; x_2 = l_String_OldIterator_hasNext___main(x_1); if (x_2 == 0) { -obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_8; obj* x_9; +obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; x_3 = lean::box(0); x_4 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_5 = l_mjoin___rarg___closed__1; x_6 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_4, x_5, x_3, x_3, x_1); -lean::dec(x_1); -x_8 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_9 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_8, x_6); -return x_9; +x_7 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_8 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_6); +return x_8; } else { -uint32 x_10; uint8 x_11; -x_10 = l_String_OldIterator_curr___main(x_1); -x_11 = x_10 == x_0; -if (x_11 == 0) +uint32 x_9; uint8 x_10; +x_9 = l_String_OldIterator_curr___main(x_1); +x_10 = x_9 == x_0; +if (x_10 == 0) { -obj* x_12; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; -x_12 = l_Char_quoteCore(x_10); -x_13 = l_Char_HasRepr___closed__1; -x_14 = lean::string_append(x_13, x_12); -lean::dec(x_12); -x_16 = lean::string_append(x_14, x_13); -x_17 = lean::box(0); -x_18 = l_mjoin___rarg___closed__1; -x_19 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_16, x_18, x_17, x_17, x_1); -lean::dec(x_1); -x_21 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_22 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_21, x_19); -return x_22; +obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +x_11 = l_Char_quoteCore(x_9); +x_12 = l_Char_HasRepr___closed__1; +x_13 = lean::string_append(x_12, x_11); +lean::dec(x_11); +x_15 = lean::string_append(x_13, x_12); +x_16 = lean::box(0); +x_17 = l_mjoin___rarg___closed__1; +x_18 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_15, x_17, x_16, x_16, x_1); +x_19 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_20 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_19, x_18); +return x_20; } else { -obj* x_23; obj* x_24; obj* x_25; obj* x_26; -x_23 = l_String_OldIterator_next___main(x_1); -x_24 = lean::box(0); -x_25 = lean::box_uint32(x_10); -x_26 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_26, 0, x_25); -lean::cnstr_set(x_26, 1, x_23); -lean::cnstr_set(x_26, 2, x_24); -return x_26; +obj* x_21; obj* x_22; obj* x_23; obj* x_24; +x_21 = l_String_OldIterator_next___main(x_1); +x_22 = lean::box(0); +x_23 = lean::box_uint32(x_9); +x_24 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_24, 0, x_23); +lean::cnstr_set(x_24, 1, x_21); +lean::cnstr_set(x_24, 2, x_22); +return x_24; } } } @@ -23681,48 +23663,46 @@ uint8 x_1; x_1 = l_String_OldIterator_hasNext___main(x_0); if (x_1 == 0) { -obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_7; obj* x_8; +obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; x_2 = lean::box(0); x_3 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_4 = l_mjoin___rarg___closed__1; x_5 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_3, x_4, x_2, x_2, x_0); -lean::dec(x_0); -x_7 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_8 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_5); -return x_8; +x_6 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_7 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_6, x_5); +return x_7; } else { -uint32 x_9; uint8 x_10; -x_9 = l_String_OldIterator_curr___main(x_0); -x_10 = l_True_Decidable; -if (x_10 == 0) +uint32 x_8; uint8 x_9; +x_8 = l_String_OldIterator_curr___main(x_0); +x_9 = l_True_Decidable; +if (x_9 == 0) { -obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; -x_11 = l_Char_quoteCore(x_9); -x_12 = l_Char_HasRepr___closed__1; -x_13 = lean::string_append(x_12, x_11); -lean::dec(x_11); -x_15 = lean::string_append(x_13, x_12); -x_16 = lean::box(0); -x_17 = l_mjoin___rarg___closed__1; -x_18 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_15, x_17, x_16, x_16, x_0); -lean::dec(x_0); -x_20 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_21 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_18); -return x_21; +obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_10 = l_Char_quoteCore(x_8); +x_11 = l_Char_HasRepr___closed__1; +x_12 = lean::string_append(x_11, x_10); +lean::dec(x_10); +x_14 = lean::string_append(x_12, x_11); +x_15 = lean::box(0); +x_16 = l_mjoin___rarg___closed__1; +x_17 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_14, x_16, x_15, x_15, x_0); +x_18 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_19 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_17); +return x_19; } else { -obj* x_22; obj* x_23; obj* x_24; obj* x_25; -x_22 = l_String_OldIterator_next___main(x_0); -x_23 = lean::box(0); -x_24 = lean::box_uint32(x_9); -x_25 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_25, 0, x_24); -lean::cnstr_set(x_25, 1, x_22); -lean::cnstr_set(x_25, 2, x_23); -return x_25; +obj* x_20; obj* x_21; obj* x_22; obj* x_23; +x_20 = l_String_OldIterator_next___main(x_0); +x_21 = lean::box(0); +x_22 = lean::box_uint32(x_8); +x_23 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_23, 0, x_22); +lean::cnstr_set(x_23, 1, x_20); +lean::cnstr_set(x_23, 2, x_21); +return x_23; } } } @@ -23736,7 +23716,6 @@ lean::cnstr_set(x_3, 0, x_1); x_4 = lean::box(0); x_5 = l_mjoin___rarg___closed__1; x_6 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_0, x_5, x_3, x_4, x_2); -lean::dec(x_3); return x_6; } } @@ -23744,7 +23723,7 @@ obj* l_Lean_Parser_MonadParsec_unexpectedAt___at_Lean_Parser_stringLit_View_valu _start: { obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_unexpectedAt___at_Lean_Parser_stringLit_View_value___spec__7___rarg___boxed), 3, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_unexpectedAt___at_Lean_Parser_stringLit_View_value___spec__7___rarg), 3, 0); return x_1; } } @@ -23755,48 +23734,46 @@ uint8 x_1; x_1 = l_String_OldIterator_hasNext___main(x_0); if (x_1 == 0) { -obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_7; obj* x_8; +obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; x_2 = lean::box(0); x_3 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_4 = l_mjoin___rarg___closed__1; x_5 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_3, x_4, x_2, x_2, x_0); -lean::dec(x_0); -x_7 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_8 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_5); -return x_8; +x_6 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_7 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_6, x_5); +return x_7; } else { -uint32 x_9; uint8 x_10; -x_9 = l_String_OldIterator_curr___main(x_0); -x_10 = l_Char_isDigit(x_9); -if (x_10 == 0) +uint32 x_8; uint8 x_9; +x_8 = l_String_OldIterator_curr___main(x_0); +x_9 = l_Char_isDigit(x_8); +if (x_9 == 0) { -obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; -x_11 = l_Char_quoteCore(x_9); -x_12 = l_Char_HasRepr___closed__1; -x_13 = lean::string_append(x_12, x_11); -lean::dec(x_11); -x_15 = lean::string_append(x_13, x_12); -x_16 = lean::box(0); -x_17 = l_mjoin___rarg___closed__1; -x_18 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_15, x_17, x_16, x_16, x_0); -lean::dec(x_0); -x_20 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_21 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_18); -return x_21; +obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_10 = l_Char_quoteCore(x_8); +x_11 = l_Char_HasRepr___closed__1; +x_12 = lean::string_append(x_11, x_10); +lean::dec(x_10); +x_14 = lean::string_append(x_12, x_11); +x_15 = lean::box(0); +x_16 = l_mjoin___rarg___closed__1; +x_17 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_14, x_16, x_15, x_15, x_0); +x_18 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_19 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_18, x_17); +return x_19; } else { -obj* x_22; obj* x_23; obj* x_24; obj* x_25; -x_22 = l_String_OldIterator_next___main(x_0); -x_23 = lean::box(0); -x_24 = lean::box_uint32(x_9); -x_25 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_25, 0, x_24); -lean::cnstr_set(x_25, 1, x_22); -lean::cnstr_set(x_25, 2, x_23); -return x_25; +obj* x_20; obj* x_21; obj* x_22; obj* x_23; +x_20 = l_String_OldIterator_next___main(x_0); +x_21 = lean::box(0); +x_22 = lean::box_uint32(x_8); +x_23 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_23, 0, x_22); +lean::cnstr_set(x_23, 1, x_20); +lean::cnstr_set(x_23, 2, x_21); +return x_23; } } } @@ -23893,243 +23870,243 @@ lean::dec(x_1); x_42 = l_String_OldIterator_hasNext___main(x_0); if (x_42 == 0) { -obj* x_43; obj* x_44; obj* x_45; obj* x_46; +obj* x_43; obj* x_44; obj* x_45; obj* x_47; x_43 = lean::box(0); x_44 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; x_45 = l_mjoin___rarg___closed__1; -x_46 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_44, x_45, x_43, x_43, x_0); -x_40 = x_46; -goto lbl_41; -} -else -{ -uint32 x_47; uint32 x_48; uint8 x_49; -x_47 = l_String_OldIterator_curr___main(x_0); -x_48 = 97; -x_49 = x_48 <= x_47; -if (x_49 == 0) -{ -obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; -x_50 = l_Char_quoteCore(x_47); -x_51 = l_Char_HasRepr___closed__1; -x_52 = lean::string_append(x_51, x_50); -lean::dec(x_50); -x_54 = lean::string_append(x_52, x_51); -x_55 = lean::box(0); -x_56 = l_mjoin___rarg___closed__1; -x_57 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_54, x_56, x_55, x_55, x_0); -x_40 = x_57; -goto lbl_41; -} -else -{ -uint32 x_58; uint8 x_59; -x_58 = 102; -x_59 = x_47 <= x_58; -if (x_59 == 0) -{ -obj* x_60; obj* x_61; obj* x_62; obj* x_64; obj* x_65; obj* x_66; obj* x_67; -x_60 = l_Char_quoteCore(x_47); -x_61 = l_Char_HasRepr___closed__1; -x_62 = lean::string_append(x_61, x_60); -lean::dec(x_60); -x_64 = lean::string_append(x_62, x_61); -x_65 = lean::box(0); -x_66 = l_mjoin___rarg___closed__1; -x_67 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_64, x_66, x_65, x_65, x_0); -x_40 = x_67; -goto lbl_41; -} -else -{ -obj* x_69; obj* x_70; obj* x_71; obj* x_72; lean::inc(x_0); -x_69 = l_String_OldIterator_next___main(x_0); -x_70 = lean::box(0); -x_71 = lean::box_uint32(x_47); -x_72 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_72, 0, x_71); -lean::cnstr_set(x_72, 1, x_69); -lean::cnstr_set(x_72, 2, x_70); -x_40 = x_72; +x_47 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_44, x_45, x_43, x_43, x_0); +x_40 = x_47; +goto lbl_41; +} +else +{ +uint32 x_48; uint32 x_49; uint8 x_50; +x_48 = l_String_OldIterator_curr___main(x_0); +x_49 = 97; +x_50 = x_49 <= x_48; +if (x_50 == 0) +{ +obj* x_51; obj* x_52; obj* x_53; obj* x_55; obj* x_56; obj* x_57; obj* x_59; +x_51 = l_Char_quoteCore(x_48); +x_52 = l_Char_HasRepr___closed__1; +x_53 = lean::string_append(x_52, x_51); +lean::dec(x_51); +x_55 = lean::string_append(x_53, x_52); +x_56 = lean::box(0); +x_57 = l_mjoin___rarg___closed__1; +lean::inc(x_0); +x_59 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_55, x_57, x_56, x_56, x_0); +x_40 = x_59; +goto lbl_41; +} +else +{ +uint32 x_60; uint8 x_61; +x_60 = 102; +x_61 = x_48 <= x_60; +if (x_61 == 0) +{ +obj* x_62; obj* x_63; obj* x_64; obj* x_66; obj* x_67; obj* x_68; obj* x_70; +x_62 = l_Char_quoteCore(x_48); +x_63 = l_Char_HasRepr___closed__1; +x_64 = lean::string_append(x_63, x_62); +lean::dec(x_62); +x_66 = lean::string_append(x_64, x_63); +x_67 = lean::box(0); +x_68 = l_mjoin___rarg___closed__1; +lean::inc(x_0); +x_70 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_66, x_68, x_67, x_67, x_0); +x_40 = x_70; +goto lbl_41; +} +else +{ +obj* x_72; obj* x_73; obj* x_74; obj* x_75; +lean::inc(x_0); +x_72 = l_String_OldIterator_next___main(x_0); +x_73 = lean::box(0); +x_74 = lean::box_uint32(x_48); +x_75 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_75, 0, x_74); +lean::cnstr_set(x_75, 1, x_72); +lean::cnstr_set(x_75, 2, x_73); +x_40 = x_75; goto lbl_41; } } } lbl_41: { -obj* x_73; obj* x_74; -x_73 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_74 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_73, x_40); -if (lean::obj_tag(x_74) == 0) +obj* x_76; obj* x_77; +x_76 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_77 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_76, x_40); +if (lean::obj_tag(x_77) == 0) { -obj* x_75; obj* x_77; obj* x_79; obj* x_81; uint32 x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_87; obj* x_88; obj* x_90; obj* x_91; -x_75 = lean::cnstr_get(x_74, 0); -x_77 = lean::cnstr_get(x_74, 1); -x_79 = lean::cnstr_get(x_74, 2); -if (lean::is_exclusive(x_74)) { - x_81 = x_74; +obj* x_78; obj* x_80; obj* x_82; obj* x_84; uint32 x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_90; obj* x_91; obj* x_93; obj* x_94; +x_78 = lean::cnstr_get(x_77, 0); +x_80 = lean::cnstr_get(x_77, 1); +x_82 = lean::cnstr_get(x_77, 2); +if (lean::is_exclusive(x_77)) { + x_84 = x_77; } else { - lean::inc(x_75); - lean::inc(x_77); - lean::inc(x_79); - lean::dec(x_74); - x_81 = lean::box(0); + lean::inc(x_78); + lean::inc(x_80); + lean::inc(x_82); + lean::dec(x_77); + x_84 = lean::box(0); } -x_82 = lean::unbox_uint32(x_75); -x_83 = lean::uint32_to_nat(x_82); -x_84 = l_Lean_Parser_parseHexDigit___rarg___lambda__3___closed__1; -x_85 = lean::nat_sub(x_83, x_84); -lean::dec(x_83); -x_87 = lean::mk_nat_obj(10ul); -x_88 = lean::nat_add(x_87, x_85); -lean::dec(x_85); -if (lean::is_scalar(x_81)) { - x_90 = lean::alloc_cnstr(0, 3, 0); +x_85 = lean::unbox_uint32(x_78); +x_86 = lean::uint32_to_nat(x_85); +x_87 = l_Lean_Parser_parseHexDigit___rarg___lambda__3___closed__1; +x_88 = lean::nat_sub(x_86, x_87); +lean::dec(x_86); +x_90 = lean::mk_nat_obj(10ul); +x_91 = lean::nat_add(x_90, x_88); +lean::dec(x_88); +if (lean::is_scalar(x_84)) { + x_93 = lean::alloc_cnstr(0, 3, 0); } else { - x_90 = x_81; + x_93 = x_84; } -lean::cnstr_set(x_90, 0, x_88); -lean::cnstr_set(x_90, 1, x_77); -lean::cnstr_set(x_90, 2, x_73); -x_91 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_79, x_90); -if (lean::obj_tag(x_91) == 0) +lean::cnstr_set(x_93, 0, x_91); +lean::cnstr_set(x_93, 1, x_80); +lean::cnstr_set(x_93, 2, x_76); +x_94 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_82, x_93); +if (lean::obj_tag(x_94) == 0) { -obj* x_93; obj* x_94; obj* x_95; +obj* x_96; obj* x_97; obj* x_98; lean::dec(x_0); -x_93 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_2, x_91); -x_94 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5___closed__1; -x_95 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_93, x_94); -return x_95; +x_96 = l_Lean_Parser_ParsecT_orelseMkRes___rarg(x_2, x_94); +x_97 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5___closed__1; +x_98 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_96, x_97); +return x_98; } else { -obj* x_96; uint8 x_98; -x_96 = lean::cnstr_get(x_91, 0); -lean::inc(x_96); -x_98 = lean::cnstr_get_scalar(x_91, sizeof(void*)*1); -x_35 = x_91; -x_36 = x_96; -x_37 = x_98; -goto lbl_38; -} -} -else -{ -obj* x_99; uint8 x_101; obj* x_102; obj* x_104; obj* x_105; -x_99 = lean::cnstr_get(x_74, 0); -x_101 = lean::cnstr_get_scalar(x_74, sizeof(void*)*1); -if (lean::is_exclusive(x_74)) { - x_102 = x_74; -} else { - lean::inc(x_99); - lean::dec(x_74); - x_102 = lean::box(0); -} +obj* x_99; uint8 x_101; +x_99 = lean::cnstr_get(x_94, 0); lean::inc(x_99); -if (lean::is_scalar(x_102)) { - x_104 = lean::alloc_cnstr(1, 1, 1); -} else { - x_104 = x_102; -} -lean::cnstr_set(x_104, 0, x_99); -lean::cnstr_set_scalar(x_104, sizeof(void*)*1, x_101); -x_105 = x_104; -x_35 = x_105; +x_101 = lean::cnstr_get_scalar(x_94, sizeof(void*)*1); +x_35 = x_94; x_36 = x_99; x_37 = x_101; goto lbl_38; } } +else +{ +obj* x_102; uint8 x_104; obj* x_105; obj* x_107; obj* x_108; +x_102 = lean::cnstr_get(x_77, 0); +x_104 = lean::cnstr_get_scalar(x_77, sizeof(void*)*1); +if (lean::is_exclusive(x_77)) { + x_105 = x_77; +} else { + lean::inc(x_102); + lean::dec(x_77); + x_105 = lean::box(0); +} +lean::inc(x_102); +if (lean::is_scalar(x_105)) { + x_107 = lean::alloc_cnstr(1, 1, 1); +} else { + x_107 = x_105; +} +lean::cnstr_set(x_107, 0, x_102); +lean::cnstr_set_scalar(x_107, sizeof(void*)*1, x_104); +x_108 = x_107; +x_35 = x_108; +x_36 = x_102; +x_37 = x_104; +goto lbl_38; +} +} } else { -obj* x_108; obj* x_109; +obj* x_111; obj* x_112; lean::dec(x_0); lean::dec(x_2); -x_108 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5___closed__1; -x_109 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_1, x_108); -return x_109; +x_111 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_x_27___spec__5___closed__1; +x_112 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_1, x_111); +return x_112; } lbl_38: { if (x_37 == 0) { -obj* x_111; uint8 x_113; +obj* x_114; uint8 x_116; lean::dec(x_35); -x_113 = l_String_OldIterator_hasNext___main(x_0); -if (x_113 == 0) +x_116 = l_String_OldIterator_hasNext___main(x_0); +if (x_116 == 0) { -obj* x_114; obj* x_115; obj* x_116; obj* x_117; -x_114 = lean::box(0); -x_115 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; -x_116 = l_mjoin___rarg___closed__1; -x_117 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_115, x_116, x_114, x_114, x_0); -lean::dec(x_0); -x_111 = x_117; -goto lbl_112; +obj* x_117; obj* x_118; obj* x_119; obj* x_120; +x_117 = lean::box(0); +x_118 = l_Lean_Parser_MonadParsec_eoiError___rarg___closed__1; +x_119 = l_mjoin___rarg___closed__1; +x_120 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_118, x_119, x_117, x_117, x_0); +x_114 = x_120; +goto lbl_115; } else { -uint32 x_119; uint32 x_120; uint8 x_121; -x_119 = l_String_OldIterator_curr___main(x_0); -x_120 = 65; -x_121 = x_120 <= x_119; -if (x_121 == 0) +uint32 x_121; uint32 x_122; uint8 x_123; +x_121 = l_String_OldIterator_curr___main(x_0); +x_122 = 65; +x_123 = x_122 <= x_121; +if (x_123 == 0) { -obj* x_122; obj* x_123; obj* x_124; obj* x_126; obj* x_127; obj* x_128; obj* x_129; -x_122 = l_Char_quoteCore(x_119); -x_123 = l_Char_HasRepr___closed__1; -x_124 = lean::string_append(x_123, x_122); -lean::dec(x_122); -x_126 = lean::string_append(x_124, x_123); -x_127 = lean::box(0); -x_128 = l_mjoin___rarg___closed__1; -x_129 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_126, x_128, x_127, x_127, x_0); -lean::dec(x_0); -x_111 = x_129; -goto lbl_112; +obj* x_124; obj* x_125; obj* x_126; obj* x_128; obj* x_129; obj* x_130; obj* x_131; +x_124 = l_Char_quoteCore(x_121); +x_125 = l_Char_HasRepr___closed__1; +x_126 = lean::string_append(x_125, x_124); +lean::dec(x_124); +x_128 = lean::string_append(x_126, x_125); +x_129 = lean::box(0); +x_130 = l_mjoin___rarg___closed__1; +x_131 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_128, x_130, x_129, x_129, x_0); +x_114 = x_131; +goto lbl_115; } else { -uint32 x_131; uint8 x_132; -x_131 = 70; -x_132 = x_119 <= x_131; -if (x_132 == 0) +uint32 x_132; uint8 x_133; +x_132 = 70; +x_133 = x_121 <= x_132; +if (x_133 == 0) { -obj* x_133; obj* x_134; obj* x_135; obj* x_137; obj* x_138; obj* x_139; obj* x_140; -x_133 = l_Char_quoteCore(x_119); -x_134 = l_Char_HasRepr___closed__1; -x_135 = lean::string_append(x_134, x_133); -lean::dec(x_133); -x_137 = lean::string_append(x_135, x_134); -x_138 = lean::box(0); -x_139 = l_mjoin___rarg___closed__1; -x_140 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_137, x_139, x_138, x_138, x_0); -lean::dec(x_0); -x_111 = x_140; -goto lbl_112; +obj* x_134; obj* x_135; obj* x_136; obj* x_138; obj* x_139; obj* x_140; obj* x_141; +x_134 = l_Char_quoteCore(x_121); +x_135 = l_Char_HasRepr___closed__1; +x_136 = lean::string_append(x_135, x_134); +lean::dec(x_134); +x_138 = lean::string_append(x_136, x_135); +x_139 = lean::box(0); +x_140 = l_mjoin___rarg___closed__1; +x_141 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_138, x_140, x_139, x_139, x_0); +x_114 = x_141; +goto lbl_115; } else { obj* x_142; obj* x_143; obj* x_144; obj* x_145; x_142 = l_String_OldIterator_next___main(x_0); x_143 = lean::box(0); -x_144 = lean::box_uint32(x_119); +x_144 = lean::box_uint32(x_121); x_145 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_145, 0, x_144); lean::cnstr_set(x_145, 1, x_142); lean::cnstr_set(x_145, 2, x_143); -x_111 = x_145; -goto lbl_112; +x_114 = x_145; +goto lbl_115; } } } -lbl_112: +lbl_115: { obj* x_146; obj* x_147; x_146 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_147 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_146, x_111); +x_147 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_146, x_114); if (lean::obj_tag(x_147) == 0) { obj* x_148; obj* x_150; obj* x_152; obj* x_154; uint32 x_155; obj* x_156; obj* x_157; obj* x_158; obj* x_160; obj* x_161; obj* x_163; obj* x_164; obj* x_165; obj* x_166; obj* x_167; obj* x_168; @@ -24270,452 +24247,451 @@ x_24 = 117; x_25 = x_11 == x_24; if (x_25 == 0) { -obj* x_26; obj* x_27; obj* x_29; obj* x_30; obj* x_31; +obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; x_26 = l_Lean_Parser_parseQuotedChar___rarg___lambda__7___closed__1; x_27 = l_Lean_Parser_MonadParsec_unexpectedAt___at_Lean_Parser_stringLit_View_value___spec__7___rarg(x_26, x_0, x_5); -lean::dec(x_5); -x_29 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_27); -x_30 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_31 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_30, x_29); -return x_31; +x_28 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_27); +x_29 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_30 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_29, x_28); +return x_30; } else { -obj* x_33; +obj* x_32; lean::dec(x_0); -x_33 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_View_value___spec__8(x_5); -if (lean::obj_tag(x_33) == 0) +x_32 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_View_value___spec__8(x_5); +if (lean::obj_tag(x_32) == 0) { -obj* x_34; obj* x_36; obj* x_38; obj* x_41; -x_34 = lean::cnstr_get(x_33, 0); -lean::inc(x_34); -x_36 = lean::cnstr_get(x_33, 1); -lean::inc(x_36); -x_38 = lean::cnstr_get(x_33, 2); -lean::inc(x_38); +obj* x_33; obj* x_35; obj* x_37; obj* x_40; +x_33 = lean::cnstr_get(x_32, 0); +lean::inc(x_33); +x_35 = lean::cnstr_get(x_32, 1); +lean::inc(x_35); +x_37 = lean::cnstr_get(x_32, 2); +lean::inc(x_37); +lean::dec(x_32); +x_40 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_View_value___spec__8(x_35); +if (lean::obj_tag(x_40) == 0) +{ +obj* x_41; obj* x_43; obj* x_45; obj* x_48; +x_41 = lean::cnstr_get(x_40, 0); +lean::inc(x_41); +x_43 = lean::cnstr_get(x_40, 1); +lean::inc(x_43); +x_45 = lean::cnstr_get(x_40, 2); +lean::inc(x_45); +lean::dec(x_40); +x_48 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_View_value___spec__8(x_43); +if (lean::obj_tag(x_48) == 0) +{ +obj* x_49; obj* x_51; obj* x_53; obj* x_56; +x_49 = lean::cnstr_get(x_48, 0); +lean::inc(x_49); +x_51 = lean::cnstr_get(x_48, 1); +lean::inc(x_51); +x_53 = lean::cnstr_get(x_48, 2); +lean::inc(x_53); +lean::dec(x_48); +x_56 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_View_value___spec__8(x_51); +if (lean::obj_tag(x_56) == 0) +{ +obj* x_57; obj* x_59; obj* x_61; obj* x_63; obj* x_64; obj* x_65; obj* x_67; obj* x_70; obj* x_72; obj* x_75; obj* x_77; uint32 x_80; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; +x_57 = lean::cnstr_get(x_56, 0); +x_59 = lean::cnstr_get(x_56, 1); +x_61 = lean::cnstr_get(x_56, 2); +if (lean::is_exclusive(x_56)) { + x_63 = x_56; +} else { + lean::inc(x_57); + lean::inc(x_59); + lean::inc(x_61); + lean::dec(x_56); + x_63 = lean::box(0); +} +x_64 = lean::mk_nat_obj(16ul); +x_65 = lean::nat_mul(x_64, x_33); lean::dec(x_33); -x_41 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_View_value___spec__8(x_36); -if (lean::obj_tag(x_41) == 0) -{ -obj* x_42; obj* x_44; obj* x_46; obj* x_49; -x_42 = lean::cnstr_get(x_41, 0); -lean::inc(x_42); -x_44 = lean::cnstr_get(x_41, 1); -lean::inc(x_44); -x_46 = lean::cnstr_get(x_41, 2); -lean::inc(x_46); +x_67 = lean::nat_add(x_65, x_41); lean::dec(x_41); -x_49 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_View_value___spec__8(x_44); -if (lean::obj_tag(x_49) == 0) -{ -obj* x_50; obj* x_52; obj* x_54; obj* x_57; -x_50 = lean::cnstr_get(x_49, 0); -lean::inc(x_50); -x_52 = lean::cnstr_get(x_49, 1); -lean::inc(x_52); -x_54 = lean::cnstr_get(x_49, 2); -lean::inc(x_54); +lean::dec(x_65); +x_70 = lean::nat_mul(x_64, x_67); +lean::dec(x_67); +x_72 = lean::nat_add(x_70, x_49); lean::dec(x_49); -x_57 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_View_value___spec__8(x_52); -if (lean::obj_tag(x_57) == 0) -{ -obj* x_58; obj* x_60; obj* x_62; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_71; obj* x_73; obj* x_76; obj* x_78; uint32 x_81; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; -x_58 = lean::cnstr_get(x_57, 0); -x_60 = lean::cnstr_get(x_57, 1); -x_62 = lean::cnstr_get(x_57, 2); -if (lean::is_exclusive(x_57)) { - x_64 = x_57; +lean::dec(x_70); +x_75 = lean::nat_mul(x_64, x_72); +lean::dec(x_72); +x_77 = lean::nat_add(x_75, x_57); +lean::dec(x_57); +lean::dec(x_75); +x_80 = l_Char_ofNat(x_77); +lean::dec(x_77); +x_82 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_83 = lean::box_uint32(x_80); +if (lean::is_scalar(x_63)) { + x_84 = lean::alloc_cnstr(0, 3, 0); } else { - lean::inc(x_58); - lean::inc(x_60); - lean::inc(x_62); - lean::dec(x_57); - x_64 = lean::box(0); + x_84 = x_63; } -x_65 = lean::mk_nat_obj(16ul); -x_66 = lean::nat_mul(x_65, x_34); -lean::dec(x_34); -x_68 = lean::nat_add(x_66, x_42); -lean::dec(x_42); -lean::dec(x_66); -x_71 = lean::nat_mul(x_65, x_68); -lean::dec(x_68); -x_73 = lean::nat_add(x_71, x_50); -lean::dec(x_50); -lean::dec(x_71); -x_76 = lean::nat_mul(x_65, x_73); -lean::dec(x_73); -x_78 = lean::nat_add(x_76, x_58); -lean::dec(x_58); -lean::dec(x_76); -x_81 = l_Char_ofNat(x_78); -lean::dec(x_78); -x_83 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_84 = lean::box_uint32(x_81); -if (lean::is_scalar(x_64)) { - x_85 = lean::alloc_cnstr(0, 3, 0); -} else { - x_85 = x_64; -} -lean::cnstr_set(x_85, 0, x_84); -lean::cnstr_set(x_85, 1, x_60); -lean::cnstr_set(x_85, 2, x_83); -x_86 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_62, x_85); -x_87 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_54, x_86); -x_88 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_46, x_87); -x_89 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_88); -x_90 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_89); -x_91 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_83, x_90); -return x_91; +lean::cnstr_set(x_84, 0, x_83); +lean::cnstr_set(x_84, 1, x_59); +lean::cnstr_set(x_84, 2, x_82); +x_85 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_61, x_84); +x_86 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_53, x_85); +x_87 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_45, x_86); +x_88 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_37, x_87); +x_89 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_88); +x_90 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_82, x_89); +return x_90; } else { -obj* x_95; uint8 x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; -lean::dec(x_42); -lean::dec(x_50); -lean::dec(x_34); -x_95 = lean::cnstr_get(x_57, 0); -x_97 = lean::cnstr_get_scalar(x_57, sizeof(void*)*1); -if (lean::is_exclusive(x_57)) { - x_98 = x_57; +obj* x_94; uint8 x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_105; +lean::dec(x_41); +lean::dec(x_49); +lean::dec(x_33); +x_94 = lean::cnstr_get(x_56, 0); +x_96 = lean::cnstr_get_scalar(x_56, sizeof(void*)*1); +if (lean::is_exclusive(x_56)) { + x_97 = x_56; } else { - lean::inc(x_95); - lean::dec(x_57); - x_98 = lean::box(0); + lean::inc(x_94); + lean::dec(x_56); + x_97 = lean::box(0); } -if (lean::is_scalar(x_98)) { - x_99 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_97)) { + x_98 = lean::alloc_cnstr(1, 1, 1); } else { - x_99 = x_98; + x_98 = x_97; } -lean::cnstr_set(x_99, 0, x_95); -lean::cnstr_set_scalar(x_99, sizeof(void*)*1, x_97); -x_100 = x_99; -x_101 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_54, x_100); -x_102 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_46, x_101); -x_103 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_102); -x_104 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_103); -x_105 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_106 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_105, x_104); -return x_106; +lean::cnstr_set(x_98, 0, x_94); +lean::cnstr_set_scalar(x_98, sizeof(void*)*1, x_96); +x_99 = x_98; +x_100 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_53, x_99); +x_101 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_45, x_100); +x_102 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_37, x_101); +x_103 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_102); +x_104 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_105 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_104, x_103); +return x_105; } } else { -obj* x_109; uint8 x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; -lean::dec(x_42); -lean::dec(x_34); -x_109 = lean::cnstr_get(x_49, 0); -x_111 = lean::cnstr_get_scalar(x_49, sizeof(void*)*1); -if (lean::is_exclusive(x_49)) { - x_112 = x_49; +obj* x_108; uint8 x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; +lean::dec(x_41); +lean::dec(x_33); +x_108 = lean::cnstr_get(x_48, 0); +x_110 = lean::cnstr_get_scalar(x_48, sizeof(void*)*1); +if (lean::is_exclusive(x_48)) { + x_111 = x_48; } else { - lean::inc(x_109); - lean::dec(x_49); - x_112 = lean::box(0); + lean::inc(x_108); + lean::dec(x_48); + x_111 = lean::box(0); } -if (lean::is_scalar(x_112)) { - x_113 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_111)) { + x_112 = lean::alloc_cnstr(1, 1, 1); } else { - x_113 = x_112; + x_112 = x_111; } -lean::cnstr_set(x_113, 0, x_109); -lean::cnstr_set_scalar(x_113, sizeof(void*)*1, x_111); -x_114 = x_113; -x_115 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_46, x_114); -x_116 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_115); -x_117 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_116); -x_118 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_119 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_118, x_117); -return x_119; +lean::cnstr_set(x_112, 0, x_108); +lean::cnstr_set_scalar(x_112, sizeof(void*)*1, x_110); +x_113 = x_112; +x_114 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_45, x_113); +x_115 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_37, x_114); +x_116 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_115); +x_117 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_118 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_117, x_116); +return x_118; } } else { -obj* x_121; uint8 x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; obj* x_129; obj* x_130; -lean::dec(x_34); -x_121 = lean::cnstr_get(x_41, 0); -x_123 = lean::cnstr_get_scalar(x_41, sizeof(void*)*1); -if (lean::is_exclusive(x_41)) { - x_124 = x_41; +obj* x_120; uint8 x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; obj* x_129; +lean::dec(x_33); +x_120 = lean::cnstr_get(x_40, 0); +x_122 = lean::cnstr_get_scalar(x_40, sizeof(void*)*1); +if (lean::is_exclusive(x_40)) { + x_123 = x_40; } else { - lean::inc(x_121); - lean::dec(x_41); - x_124 = lean::box(0); + lean::inc(x_120); + lean::dec(x_40); + x_123 = lean::box(0); } -if (lean::is_scalar(x_124)) { - x_125 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_123)) { + x_124 = lean::alloc_cnstr(1, 1, 1); } else { - x_125 = x_124; + x_124 = x_123; } -lean::cnstr_set(x_125, 0, x_121); -lean::cnstr_set_scalar(x_125, sizeof(void*)*1, x_123); -x_126 = x_125; -x_127 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_38, x_126); -x_128 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_127); -x_129 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_130 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_129, x_128); -return x_130; +lean::cnstr_set(x_124, 0, x_120); +lean::cnstr_set_scalar(x_124, sizeof(void*)*1, x_122); +x_125 = x_124; +x_126 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_37, x_125); +x_127 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_126); +x_128 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_129 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_128, x_127); +return x_129; } } else { -obj* x_131; uint8 x_133; obj* x_134; obj* x_135; obj* x_136; obj* x_137; obj* x_138; obj* x_139; -x_131 = lean::cnstr_get(x_33, 0); -x_133 = lean::cnstr_get_scalar(x_33, sizeof(void*)*1); -if (lean::is_exclusive(x_33)) { - x_134 = x_33; +obj* x_130; uint8 x_132; obj* x_133; obj* x_134; obj* x_135; obj* x_136; obj* x_137; obj* x_138; +x_130 = lean::cnstr_get(x_32, 0); +x_132 = lean::cnstr_get_scalar(x_32, sizeof(void*)*1); +if (lean::is_exclusive(x_32)) { + x_133 = x_32; } else { - lean::inc(x_131); - lean::dec(x_33); - x_134 = lean::box(0); + lean::inc(x_130); + lean::dec(x_32); + x_133 = lean::box(0); } -if (lean::is_scalar(x_134)) { - x_135 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_133)) { + x_134 = lean::alloc_cnstr(1, 1, 1); } else { - x_135 = x_134; + x_134 = x_133; } -lean::cnstr_set(x_135, 0, x_131); -lean::cnstr_set_scalar(x_135, sizeof(void*)*1, x_133); -x_136 = x_135; -x_137 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_136); -x_138 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_139 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_138, x_137); -return x_139; +lean::cnstr_set(x_134, 0, x_130); +lean::cnstr_set_scalar(x_134, sizeof(void*)*1, x_132); +x_135 = x_134; +x_136 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_135); +x_137 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_138 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_137, x_136); +return x_138; } } } else { -obj* x_141; +obj* x_140; lean::dec(x_0); -x_141 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_View_value___spec__8(x_5); -if (lean::obj_tag(x_141) == 0) +x_140 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_View_value___spec__8(x_5); +if (lean::obj_tag(x_140) == 0) { -obj* x_142; obj* x_144; obj* x_146; obj* x_149; -x_142 = lean::cnstr_get(x_141, 0); -lean::inc(x_142); -x_144 = lean::cnstr_get(x_141, 1); -lean::inc(x_144); -x_146 = lean::cnstr_get(x_141, 2); -lean::inc(x_146); +obj* x_141; obj* x_143; obj* x_145; obj* x_148; +x_141 = lean::cnstr_get(x_140, 0); +lean::inc(x_141); +x_143 = lean::cnstr_get(x_140, 1); +lean::inc(x_143); +x_145 = lean::cnstr_get(x_140, 2); +lean::inc(x_145); +lean::dec(x_140); +x_148 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_View_value___spec__8(x_143); +if (lean::obj_tag(x_148) == 0) +{ +obj* x_149; obj* x_151; obj* x_153; obj* x_155; obj* x_156; obj* x_157; obj* x_159; uint32 x_162; obj* x_164; obj* x_165; obj* x_166; obj* x_167; obj* x_168; obj* x_169; obj* x_170; +x_149 = lean::cnstr_get(x_148, 0); +x_151 = lean::cnstr_get(x_148, 1); +x_153 = lean::cnstr_get(x_148, 2); +if (lean::is_exclusive(x_148)) { + x_155 = x_148; +} else { + lean::inc(x_149); + lean::inc(x_151); + lean::inc(x_153); + lean::dec(x_148); + x_155 = lean::box(0); +} +x_156 = lean::mk_nat_obj(16ul); +x_157 = lean::nat_mul(x_156, x_141); lean::dec(x_141); -x_149 = l_Lean_Parser_parseHexDigit___at_Lean_Parser_stringLit_View_value___spec__8(x_144); -if (lean::obj_tag(x_149) == 0) -{ -obj* x_150; obj* x_152; obj* x_154; obj* x_156; obj* x_157; obj* x_158; obj* x_160; uint32 x_163; obj* x_165; obj* x_166; obj* x_167; obj* x_168; obj* x_169; obj* x_170; obj* x_171; -x_150 = lean::cnstr_get(x_149, 0); -x_152 = lean::cnstr_get(x_149, 1); -x_154 = lean::cnstr_get(x_149, 2); -if (lean::is_exclusive(x_149)) { - x_156 = x_149; +x_159 = lean::nat_add(x_157, x_149); +lean::dec(x_149); +lean::dec(x_157); +x_162 = l_Char_ofNat(x_159); +lean::dec(x_159); +x_164 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_165 = lean::box_uint32(x_162); +if (lean::is_scalar(x_155)) { + x_166 = lean::alloc_cnstr(0, 3, 0); } else { - lean::inc(x_150); - lean::inc(x_152); - lean::inc(x_154); - lean::dec(x_149); - x_156 = lean::box(0); + x_166 = x_155; } -x_157 = lean::mk_nat_obj(16ul); -x_158 = lean::nat_mul(x_157, x_142); -lean::dec(x_142); -x_160 = lean::nat_add(x_158, x_150); -lean::dec(x_150); -lean::dec(x_158); -x_163 = l_Char_ofNat(x_160); -lean::dec(x_160); -x_165 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_166 = lean::box_uint32(x_163); -if (lean::is_scalar(x_156)) { - x_167 = lean::alloc_cnstr(0, 3, 0); -} else { - x_167 = x_156; -} -lean::cnstr_set(x_167, 0, x_166); -lean::cnstr_set(x_167, 1, x_152); -lean::cnstr_set(x_167, 2, x_165); -x_168 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_154, x_167); -x_169 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_146, x_168); -x_170 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_169); -x_171 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_165, x_170); -return x_171; +lean::cnstr_set(x_166, 0, x_165); +lean::cnstr_set(x_166, 1, x_151); +lean::cnstr_set(x_166, 2, x_164); +x_167 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_153, x_166); +x_168 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_145, x_167); +x_169 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_168); +x_170 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_164, x_169); +return x_170; } else { -obj* x_173; uint8 x_175; obj* x_176; obj* x_177; obj* x_178; obj* x_179; obj* x_180; obj* x_181; obj* x_182; -lean::dec(x_142); -x_173 = lean::cnstr_get(x_149, 0); -x_175 = lean::cnstr_get_scalar(x_149, sizeof(void*)*1); -if (lean::is_exclusive(x_149)) { - x_176 = x_149; +obj* x_172; uint8 x_174; obj* x_175; obj* x_176; obj* x_177; obj* x_178; obj* x_179; obj* x_180; obj* x_181; +lean::dec(x_141); +x_172 = lean::cnstr_get(x_148, 0); +x_174 = lean::cnstr_get_scalar(x_148, sizeof(void*)*1); +if (lean::is_exclusive(x_148)) { + x_175 = x_148; } else { - lean::inc(x_173); - lean::dec(x_149); - x_176 = lean::box(0); + lean::inc(x_172); + lean::dec(x_148); + x_175 = lean::box(0); } -if (lean::is_scalar(x_176)) { - x_177 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_175)) { + x_176 = lean::alloc_cnstr(1, 1, 1); } else { - x_177 = x_176; + x_176 = x_175; } -lean::cnstr_set(x_177, 0, x_173); -lean::cnstr_set_scalar(x_177, sizeof(void*)*1, x_175); -x_178 = x_177; -x_179 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_146, x_178); -x_180 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_179); -x_181 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_182 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_181, x_180); -return x_182; +lean::cnstr_set(x_176, 0, x_172); +lean::cnstr_set_scalar(x_176, sizeof(void*)*1, x_174); +x_177 = x_176; +x_178 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_145, x_177); +x_179 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_178); +x_180 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_181 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_180, x_179); +return x_181; } } else { -obj* x_183; uint8 x_185; obj* x_186; obj* x_187; obj* x_188; obj* x_189; obj* x_190; obj* x_191; -x_183 = lean::cnstr_get(x_141, 0); -x_185 = lean::cnstr_get_scalar(x_141, sizeof(void*)*1); -if (lean::is_exclusive(x_141)) { - x_186 = x_141; +obj* x_182; uint8 x_184; obj* x_185; obj* x_186; obj* x_187; obj* x_188; obj* x_189; obj* x_190; +x_182 = lean::cnstr_get(x_140, 0); +x_184 = lean::cnstr_get_scalar(x_140, sizeof(void*)*1); +if (lean::is_exclusive(x_140)) { + x_185 = x_140; } else { - lean::inc(x_183); - lean::dec(x_141); - x_186 = lean::box(0); + lean::inc(x_182); + lean::dec(x_140); + x_185 = lean::box(0); } -if (lean::is_scalar(x_186)) { - x_187 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_185)) { + x_186 = lean::alloc_cnstr(1, 1, 1); } else { - x_187 = x_186; + x_186 = x_185; } -lean::cnstr_set(x_187, 0, x_183); -lean::cnstr_set_scalar(x_187, sizeof(void*)*1, x_185); -x_188 = x_187; -x_189 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_188); -x_190 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_191 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_190, x_189); -return x_191; +lean::cnstr_set(x_186, 0, x_182); +lean::cnstr_set_scalar(x_186, sizeof(void*)*1, x_184); +x_187 = x_186; +x_188 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_187); +x_189 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_190 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_189, x_188); +return x_190; } } } else { -uint32 x_193; obj* x_194; obj* x_195; obj* x_196; obj* x_197; obj* x_198; +uint32 x_192; obj* x_193; obj* x_194; obj* x_195; obj* x_196; obj* x_197; lean::dec(x_0); -x_193 = 9; -x_194 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_195 = lean::box_uint32(x_193); +x_192 = 9; +x_193 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_194 = lean::box_uint32(x_192); if (lean::is_scalar(x_9)) { - x_196 = lean::alloc_cnstr(0, 3, 0); + x_195 = lean::alloc_cnstr(0, 3, 0); } else { - x_196 = x_9; + x_195 = x_9; } -lean::cnstr_set(x_196, 0, x_195); -lean::cnstr_set(x_196, 1, x_5); -lean::cnstr_set(x_196, 2, x_194); -x_197 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_196); -x_198 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_194, x_197); -return x_198; +lean::cnstr_set(x_195, 0, x_194); +lean::cnstr_set(x_195, 1, x_5); +lean::cnstr_set(x_195, 2, x_193); +x_196 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_195); +x_197 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_193, x_196); +return x_197; } } else { -uint32 x_200; obj* x_201; obj* x_202; obj* x_203; obj* x_204; obj* x_205; +uint32 x_199; obj* x_200; obj* x_201; obj* x_202; obj* x_203; obj* x_204; lean::dec(x_0); -x_200 = 10; -x_201 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_202 = lean::box_uint32(x_200); +x_199 = 10; +x_200 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_201 = lean::box_uint32(x_199); if (lean::is_scalar(x_9)) { - x_203 = lean::alloc_cnstr(0, 3, 0); + x_202 = lean::alloc_cnstr(0, 3, 0); } else { - x_203 = x_9; + x_202 = x_9; } -lean::cnstr_set(x_203, 0, x_202); -lean::cnstr_set(x_203, 1, x_5); -lean::cnstr_set(x_203, 2, x_201); -x_204 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_203); -x_205 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_201, x_204); -return x_205; +lean::cnstr_set(x_202, 0, x_201); +lean::cnstr_set(x_202, 1, x_5); +lean::cnstr_set(x_202, 2, x_200); +x_203 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_202); +x_204 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_200, x_203); +return x_204; } } else { -obj* x_207; obj* x_208; obj* x_209; obj* x_210; obj* x_211; +obj* x_206; obj* x_207; obj* x_208; obj* x_209; obj* x_210; lean::dec(x_0); -x_207 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_208 = lean::box_uint32(x_15); +x_206 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_207 = lean::box_uint32(x_15); if (lean::is_scalar(x_9)) { - x_209 = lean::alloc_cnstr(0, 3, 0); + x_208 = lean::alloc_cnstr(0, 3, 0); } else { - x_209 = x_9; + x_208 = x_9; } -lean::cnstr_set(x_209, 0, x_208); -lean::cnstr_set(x_209, 1, x_5); -lean::cnstr_set(x_209, 2, x_207); -x_210 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_209); -x_211 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_207, x_210); -return x_211; +lean::cnstr_set(x_208, 0, x_207); +lean::cnstr_set(x_208, 1, x_5); +lean::cnstr_set(x_208, 2, x_206); +x_209 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_208); +x_210 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_206, x_209); +return x_210; } } else { -obj* x_213; obj* x_214; obj* x_215; obj* x_216; obj* x_217; +obj* x_212; obj* x_213; obj* x_214; obj* x_215; obj* x_216; lean::dec(x_0); -x_213 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_214 = lean::box_uint32(x_13); +x_212 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_213 = lean::box_uint32(x_13); if (lean::is_scalar(x_9)) { - x_215 = lean::alloc_cnstr(0, 3, 0); + x_214 = lean::alloc_cnstr(0, 3, 0); } else { - x_215 = x_9; + x_214 = x_9; } -lean::cnstr_set(x_215, 0, x_214); -lean::cnstr_set(x_215, 1, x_5); -lean::cnstr_set(x_215, 2, x_213); -x_216 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_215); -x_217 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_213, x_216); -return x_217; +lean::cnstr_set(x_214, 0, x_213); +lean::cnstr_set(x_214, 1, x_5); +lean::cnstr_set(x_214, 2, x_212); +x_215 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_214); +x_216 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_212, x_215); +return x_216; } } else { -obj* x_219; obj* x_220; obj* x_221; obj* x_222; obj* x_223; +obj* x_218; obj* x_219; obj* x_220; obj* x_221; obj* x_222; lean::dec(x_0); -x_219 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_220 = lean::box_uint32(x_10); +x_218 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_219 = lean::box_uint32(x_10); if (lean::is_scalar(x_9)) { - x_221 = lean::alloc_cnstr(0, 3, 0); + x_220 = lean::alloc_cnstr(0, 3, 0); } else { - x_221 = x_9; + x_220 = x_9; } -lean::cnstr_set(x_221, 0, x_220); -lean::cnstr_set(x_221, 1, x_5); -lean::cnstr_set(x_221, 2, x_219); -x_222 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_221); -x_223 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_219, x_222); -return x_223; +lean::cnstr_set(x_220, 0, x_219); +lean::cnstr_set(x_220, 1, x_5); +lean::cnstr_set(x_220, 2, x_218); +x_221 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_7, x_220); +x_222 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_218, x_221); +return x_222; } } else { -obj* x_225; uint8 x_227; obj* x_228; obj* x_229; obj* x_230; obj* x_231; obj* x_232; +obj* x_224; uint8 x_226; obj* x_227; obj* x_228; obj* x_229; obj* x_230; obj* x_231; lean::dec(x_0); -x_225 = lean::cnstr_get(x_2, 0); -x_227 = lean::cnstr_get_scalar(x_2, sizeof(void*)*1); +x_224 = lean::cnstr_get(x_2, 0); +x_226 = lean::cnstr_get_scalar(x_2, sizeof(void*)*1); if (lean::is_exclusive(x_2)) { - x_228 = x_2; + x_227 = x_2; } else { - lean::inc(x_225); + lean::inc(x_224); lean::dec(x_2); - x_228 = lean::box(0); + x_227 = lean::box(0); } -if (lean::is_scalar(x_228)) { - x_229 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_227)) { + x_228 = lean::alloc_cnstr(1, 1, 1); } else { - x_229 = x_228; + x_228 = x_227; } -lean::cnstr_set(x_229, 0, x_225); -lean::cnstr_set_scalar(x_229, sizeof(void*)*1, x_227); -x_230 = x_229; -x_231 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_232 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_231, x_230); -return x_232; +lean::cnstr_set(x_228, 0, x_224); +lean::cnstr_set_scalar(x_228, sizeof(void*)*1, x_226); +x_229 = x_228; +x_230 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_231 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_230, x_229); +return x_231; } } } @@ -25022,16 +24998,6 @@ return x_17; } } } -obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___rarg(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_2); -lean::dec(x_4); -return x_5; -} -} obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_stringLit_View_value___spec__3___boxed(obj* x_0) { _start: { @@ -25050,15 +25016,6 @@ x_3 = l_Lean_Parser_MonadParsec_ch___at_Lean_Parser_stringLit_View_value___spec_ return x_3; } } -obj* l_Lean_Parser_MonadParsec_unexpectedAt___at_Lean_Parser_stringLit_View_value___spec__7___rarg___boxed(obj* x_0, obj* x_1, obj* x_2) { -_start: -{ -obj* x_3; -x_3 = l_Lean_Parser_MonadParsec_unexpectedAt___at_Lean_Parser_stringLit_View_value___spec__7___rarg(x_0, x_1, x_2); -lean::dec(x_2); -return x_3; -} -} obj* l_Lean_Parser_MonadParsec_unexpectedAt___at_Lean_Parser_stringLit_View_value___spec__7___boxed(obj* x_0) { _start: { @@ -25164,7 +25121,7 @@ goto lbl_20; } lbl_20: { -obj* x_38; obj* x_39; obj* x_40; obj* x_42; obj* x_46; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +obj* x_38; obj* x_39; obj* x_40; obj* x_42; obj* x_44; obj* x_46; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; lean::dec(x_19); x_38 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_38, 0, x_2); @@ -25172,77 +25129,75 @@ x_39 = lean::box(0); x_40 = l_String_splitAux___main___closed__1; lean::inc(x_0); x_42 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_40, x_0, x_38, x_39, x_1, x_14, x_9); -lean::dec(x_14); lean::dec(x_1); -lean::dec(x_38); -x_46 = lean::cnstr_get(x_42, 0); -x_48 = lean::cnstr_get(x_42, 1); +x_44 = lean::cnstr_get(x_42, 0); +x_46 = lean::cnstr_get(x_42, 1); if (lean::is_exclusive(x_42)) { - x_50 = x_42; + x_48 = x_42; } else { + lean::inc(x_44); lean::inc(x_46); - lean::inc(x_48); lean::dec(x_42); - x_50 = lean::box(0); + x_48 = lean::box(0); } -x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_46); -x_52 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_52, x_51); -x_54 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_53, x_0); -x_55 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_54); -if (lean::is_scalar(x_50)) { - x_56 = lean::alloc_cnstr(0, 2, 0); +x_49 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_44); +x_50 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_50, x_49); +x_52 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_51, x_0); +x_53 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_52); +if (lean::is_scalar(x_48)) { + x_54 = lean::alloc_cnstr(0, 2, 0); } else { - x_56 = x_50; + x_54 = x_48; } -lean::cnstr_set(x_56, 0, x_55); -lean::cnstr_set(x_56, 1, x_48); -return x_56; +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_46); +return x_54; } } else { -obj* x_59; obj* x_61; obj* x_62; uint8 x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; +obj* x_57; obj* x_59; obj* x_60; uint8 x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; lean::dec(x_1); lean::dec(x_2); -x_59 = lean::cnstr_get(x_6, 1); +x_57 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); - x_61 = x_6; + x_59 = x_6; } else { - lean::inc(x_59); + lean::inc(x_57); lean::dec(x_6); - x_61 = lean::box(0); + x_59 = lean::box(0); } -x_62 = lean::cnstr_get(x_7, 0); -x_64 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); +x_60 = lean::cnstr_get(x_7, 0); +x_62 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); if (lean::is_exclusive(x_7)) { - x_65 = x_7; + x_63 = x_7; } else { - lean::inc(x_62); + lean::inc(x_60); lean::dec(x_7); - x_65 = lean::box(0); + x_63 = lean::box(0); } -if (lean::is_scalar(x_65)) { - x_66 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_63)) { + x_64 = lean::alloc_cnstr(1, 1, 1); } else { - x_66 = x_65; + x_64 = x_63; } -lean::cnstr_set(x_66, 0, x_62); -lean::cnstr_set_scalar(x_66, sizeof(void*)*1, x_64); -x_67 = x_66; -x_68 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_69 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_68, x_67); -x_70 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_69, x_0); -x_71 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_70); -if (lean::is_scalar(x_61)) { - x_72 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_64, 0, x_60); +lean::cnstr_set_scalar(x_64, sizeof(void*)*1, x_62); +x_65 = x_64; +x_66 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_67 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_66, x_65); +x_68 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_67, x_0); +x_69 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_68); +if (lean::is_scalar(x_59)) { + x_70 = lean::alloc_cnstr(0, 2, 0); } else { - x_72 = x_61; + x_70 = x_59; } -lean::cnstr_set(x_72, 0, x_71); -lean::cnstr_set(x_72, 1, x_59); -return x_72; +lean::cnstr_set(x_70, 0, x_69); +lean::cnstr_set(x_70, 1, x_57); +return x_70; } } } @@ -25655,7 +25610,7 @@ return x_55; } else { -obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_67; +obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_65; lean::dec(x_11); lean::dec(x_18); x_58 = l_String_quote(x_0); @@ -25666,98 +25621,96 @@ lean::cnstr_set(x_60, 0, x_2); x_61 = lean::box(0); x_62 = l_String_splitAux___main___closed__1; x_63 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_62, x_59, x_60, x_61, x_1, x_14, x_9); -lean::dec(x_14); lean::dec(x_1); -lean::dec(x_60); -x_67 = lean::cnstr_get(x_63, 0); -lean::inc(x_67); -if (lean::obj_tag(x_67) == 0) +x_65 = lean::cnstr_get(x_63, 0); +lean::inc(x_65); +if (lean::obj_tag(x_65) == 0) { -obj* x_69; obj* x_71; obj* x_72; obj* x_74; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; -x_69 = lean::cnstr_get(x_63, 1); +obj* x_67; obj* x_69; obj* x_70; obj* x_72; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; +x_67 = lean::cnstr_get(x_63, 1); if (lean::is_exclusive(x_63)) { lean::cnstr_release(x_63, 0); - x_71 = x_63; + x_69 = x_63; } else { - lean::inc(x_69); + lean::inc(x_67); lean::dec(x_63); - x_71 = lean::box(0); + x_69 = lean::box(0); } -x_72 = lean::cnstr_get(x_67, 1); -x_74 = lean::cnstr_get(x_67, 2); -if (lean::is_exclusive(x_67)) { - lean::cnstr_release(x_67, 0); - x_76 = x_67; +x_70 = lean::cnstr_get(x_65, 1); +x_72 = lean::cnstr_get(x_65, 2); +if (lean::is_exclusive(x_65)) { + lean::cnstr_release(x_65, 0); + x_74 = x_65; } else { + lean::inc(x_70); lean::inc(x_72); - lean::inc(x_74); - lean::dec(x_67); - x_76 = lean::box(0); + lean::dec(x_65); + x_74 = lean::box(0); } -x_77 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_76)) { - x_78 = lean::alloc_cnstr(0, 3, 0); +x_75 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_74)) { + x_76 = lean::alloc_cnstr(0, 3, 0); } else { - x_78 = x_76; + x_76 = x_74; } -lean::cnstr_set(x_78, 0, x_12); -lean::cnstr_set(x_78, 1, x_72); -lean::cnstr_set(x_78, 2, x_77); -x_79 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_74, x_78); -x_80 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_79); -x_81 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_77, x_80); -x_82 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_81); -if (lean::is_scalar(x_71)) { - x_83 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_76, 0, x_12); +lean::cnstr_set(x_76, 1, x_70); +lean::cnstr_set(x_76, 2, x_75); +x_77 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_72, x_76); +x_78 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_77); +x_79 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_75, x_78); +x_80 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_79); +if (lean::is_scalar(x_69)) { + x_81 = lean::alloc_cnstr(0, 2, 0); } else { - x_83 = x_71; + x_81 = x_69; } -lean::cnstr_set(x_83, 0, x_82); -lean::cnstr_set(x_83, 1, x_69); -return x_83; +lean::cnstr_set(x_81, 0, x_80); +lean::cnstr_set(x_81, 1, x_67); +return x_81; } else { -obj* x_85; obj* x_87; obj* x_88; uint8 x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; +obj* x_83; obj* x_85; obj* x_86; uint8 x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; lean::dec(x_12); -x_85 = lean::cnstr_get(x_63, 1); +x_83 = lean::cnstr_get(x_63, 1); if (lean::is_exclusive(x_63)) { lean::cnstr_release(x_63, 0); - x_87 = x_63; + x_85 = x_63; } else { - lean::inc(x_85); + lean::inc(x_83); lean::dec(x_63); - x_87 = lean::box(0); + x_85 = lean::box(0); } -x_88 = lean::cnstr_get(x_67, 0); -x_90 = lean::cnstr_get_scalar(x_67, sizeof(void*)*1); -if (lean::is_exclusive(x_67)) { - x_91 = x_67; +x_86 = lean::cnstr_get(x_65, 0); +x_88 = lean::cnstr_get_scalar(x_65, sizeof(void*)*1); +if (lean::is_exclusive(x_65)) { + x_89 = x_65; } else { - lean::inc(x_88); - lean::dec(x_67); - x_91 = lean::box(0); + lean::inc(x_86); + lean::dec(x_65); + x_89 = lean::box(0); } -if (lean::is_scalar(x_91)) { - x_92 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_89)) { + x_90 = lean::alloc_cnstr(1, 1, 1); } else { - x_92 = x_91; + x_90 = x_89; } -lean::cnstr_set(x_92, 0, x_88); -lean::cnstr_set_scalar(x_92, sizeof(void*)*1, x_90); -x_93 = x_92; -x_94 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_93); -x_95 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_96 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_95, x_94); -x_97 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_96); -if (lean::is_scalar(x_87)) { - x_98 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_90, 0, x_86); +lean::cnstr_set_scalar(x_90, sizeof(void*)*1, x_88); +x_91 = x_90; +x_92 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_16, x_91); +x_93 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_94 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_93, x_92); +x_95 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_94); +if (lean::is_scalar(x_85)) { + x_96 = lean::alloc_cnstr(0, 2, 0); } else { - x_98 = x_87; + x_96 = x_85; } -lean::cnstr_set(x_98, 0, x_97); -lean::cnstr_set(x_98, 1, x_85); -return x_98; +lean::cnstr_set(x_96, 0, x_95); +lean::cnstr_set(x_96, 1, x_83); +return x_96; } } } @@ -25765,47 +25718,47 @@ return x_98; } else { -obj* x_102; obj* x_104; obj* x_105; uint8 x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; +obj* x_100; obj* x_102; obj* x_103; uint8 x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_102 = lean::cnstr_get(x_6, 1); +x_100 = lean::cnstr_get(x_6, 1); if (lean::is_exclusive(x_6)) { lean::cnstr_release(x_6, 0); - x_104 = x_6; + x_102 = x_6; } else { - lean::inc(x_102); + lean::inc(x_100); lean::dec(x_6); - x_104 = lean::box(0); + x_102 = lean::box(0); } -x_105 = lean::cnstr_get(x_7, 0); -x_107 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); +x_103 = lean::cnstr_get(x_7, 0); +x_105 = lean::cnstr_get_scalar(x_7, sizeof(void*)*1); if (lean::is_exclusive(x_7)) { - x_108 = x_7; + x_106 = x_7; } else { - lean::inc(x_105); + lean::inc(x_103); lean::dec(x_7); - x_108 = lean::box(0); + x_106 = lean::box(0); } -if (lean::is_scalar(x_108)) { - x_109 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_106)) { + x_107 = lean::alloc_cnstr(1, 1, 1); } else { - x_109 = x_108; + x_107 = x_106; } -lean::cnstr_set(x_109, 0, x_105); -lean::cnstr_set_scalar(x_109, sizeof(void*)*1, x_107); -x_110 = x_109; -x_111 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_112 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_111, x_110); -x_113 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_112); -if (lean::is_scalar(x_104)) { - x_114 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_107, 0, x_103); +lean::cnstr_set_scalar(x_107, sizeof(void*)*1, x_105); +x_108 = x_107; +x_109 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_110 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_109, x_108); +x_111 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_110); +if (lean::is_scalar(x_102)) { + x_112 = lean::alloc_cnstr(0, 2, 0); } else { - x_114 = x_104; + x_112 = x_102; } -lean::cnstr_set(x_114, 0, x_113); -lean::cnstr_set(x_114, 1, x_102); -return x_114; +lean::cnstr_set(x_112, 0, x_111); +lean::cnstr_set(x_112, 1, x_100); +return x_112; } } } @@ -25946,235 +25899,231 @@ x_30 = lean::string_dec_eq(x_0, x_27); lean::dec(x_0); if (x_30 == 0) { -obj* x_34; obj* x_35; obj* x_36; obj* x_40; +obj* x_34; obj* x_35; obj* x_36; obj* x_38; lean::dec(x_13); lean::dec(x_22); x_34 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_34, 0, x_4); x_35 = lean::box(0); x_36 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_27, x_2, x_34, x_35, x_3, x_18, x_11); -lean::dec(x_18); lean::dec(x_3); -lean::dec(x_34); -x_40 = lean::cnstr_get(x_36, 0); -lean::inc(x_40); -if (lean::obj_tag(x_40) == 0) +x_38 = lean::cnstr_get(x_36, 0); +lean::inc(x_38); +if (lean::obj_tag(x_38) == 0) { -obj* x_42; obj* x_44; obj* x_45; obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; -x_42 = lean::cnstr_get(x_36, 1); +obj* x_40; obj* x_42; obj* x_43; obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; +x_40 = lean::cnstr_get(x_36, 1); if (lean::is_exclusive(x_36)) { lean::cnstr_release(x_36, 0); - x_44 = x_36; + x_42 = x_36; } else { - lean::inc(x_42); + lean::inc(x_40); lean::dec(x_36); - x_44 = lean::box(0); + x_42 = lean::box(0); } -x_45 = lean::cnstr_get(x_40, 1); -x_47 = lean::cnstr_get(x_40, 2); -if (lean::is_exclusive(x_40)) { - lean::cnstr_release(x_40, 0); - x_49 = x_40; +x_43 = lean::cnstr_get(x_38, 1); +x_45 = lean::cnstr_get(x_38, 2); +if (lean::is_exclusive(x_38)) { + lean::cnstr_release(x_38, 0); + x_47 = x_38; } else { + lean::inc(x_43); lean::inc(x_45); - lean::inc(x_47); - lean::dec(x_40); - x_49 = lean::box(0); + lean::dec(x_38); + x_47 = lean::box(0); } -x_50 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -if (lean::is_scalar(x_49)) { - x_51 = lean::alloc_cnstr(0, 3, 0); +x_48 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +if (lean::is_scalar(x_47)) { + x_49 = lean::alloc_cnstr(0, 3, 0); } else { - x_51 = x_49; + x_49 = x_47; } -lean::cnstr_set(x_51, 0, x_16); -lean::cnstr_set(x_51, 1, x_45); -lean::cnstr_set(x_51, 2, x_50); -x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_47, x_51); -x_53 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_52); -x_54 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_50, x_53); -x_55 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_54, x_15); -x_56 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_55); -if (lean::is_scalar(x_44)) { - x_57 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_49, 0, x_16); +lean::cnstr_set(x_49, 1, x_43); +lean::cnstr_set(x_49, 2, x_48); +x_50 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_45, x_49); +x_51 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_50); +x_52 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_48, x_51); +x_53 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_52, x_15); +x_54 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_53); +if (lean::is_scalar(x_42)) { + x_55 = lean::alloc_cnstr(0, 2, 0); } else { - x_57 = x_44; + x_55 = x_42; } -lean::cnstr_set(x_57, 0, x_56); -lean::cnstr_set(x_57, 1, x_42); -return x_57; +lean::cnstr_set(x_55, 0, x_54); +lean::cnstr_set(x_55, 1, x_40); +return x_55; } else { -obj* x_59; obj* x_61; obj* x_62; uint8 x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; +obj* x_57; obj* x_59; obj* x_60; uint8 x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; lean::dec(x_16); -x_59 = lean::cnstr_get(x_36, 1); +x_57 = lean::cnstr_get(x_36, 1); if (lean::is_exclusive(x_36)) { lean::cnstr_release(x_36, 0); - x_61 = x_36; + x_59 = x_36; } else { - lean::inc(x_59); + lean::inc(x_57); lean::dec(x_36); - x_61 = lean::box(0); + x_59 = lean::box(0); } -x_62 = lean::cnstr_get(x_40, 0); -x_64 = lean::cnstr_get_scalar(x_40, sizeof(void*)*1); -if (lean::is_exclusive(x_40)) { - x_65 = x_40; +x_60 = lean::cnstr_get(x_38, 0); +x_62 = lean::cnstr_get_scalar(x_38, sizeof(void*)*1); +if (lean::is_exclusive(x_38)) { + x_63 = x_38; } else { - lean::inc(x_62); - lean::dec(x_40); - x_65 = lean::box(0); + lean::inc(x_60); + lean::dec(x_38); + x_63 = lean::box(0); } -if (lean::is_scalar(x_65)) { - x_66 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_63)) { + x_64 = lean::alloc_cnstr(1, 1, 1); } else { - x_66 = x_65; + x_64 = x_63; } -lean::cnstr_set(x_66, 0, x_62); -lean::cnstr_set_scalar(x_66, sizeof(void*)*1, x_64); -x_67 = x_66; -x_68 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_67); -x_69 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_70 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_69, x_68); -x_71 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_70, x_15); -x_72 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_71); -if (lean::is_scalar(x_61)) { - x_73 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_64, 0, x_60); +lean::cnstr_set_scalar(x_64, sizeof(void*)*1, x_62); +x_65 = x_64; +x_66 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_65); +x_67 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_68 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_67, x_66); +x_69 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_68, x_15); +x_70 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_69); +if (lean::is_scalar(x_59)) { + x_71 = lean::alloc_cnstr(0, 2, 0); } else { - x_73 = x_61; + x_71 = x_59; } -lean::cnstr_set(x_73, 0, x_72); -lean::cnstr_set(x_73, 1, x_59); -return x_73; +lean::cnstr_set(x_71, 0, x_70); +lean::cnstr_set(x_71, 1, x_57); +return x_71; } } else { -obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; +obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); lean::dec(x_27); -x_78 = l_Lean_Parser_finishCommentBlock___closed__2; +x_76 = l_Lean_Parser_finishCommentBlock___closed__2; if (lean::is_scalar(x_22)) { - x_79 = lean::alloc_cnstr(0, 3, 0); + x_77 = lean::alloc_cnstr(0, 3, 0); } else { - x_79 = x_22; + x_77 = x_22; } -lean::cnstr_set(x_79, 0, x_16); -lean::cnstr_set(x_79, 1, x_18); -lean::cnstr_set(x_79, 2, x_78); -x_80 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_79); -x_81 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_82 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_81, x_80); -x_83 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_82, x_15); -x_84 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_83); +lean::cnstr_set(x_77, 0, x_16); +lean::cnstr_set(x_77, 1, x_18); +lean::cnstr_set(x_77, 2, x_76); +x_78 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_77); +x_79 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_80 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_79, x_78); +x_81 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_80, x_15); +x_82 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_81); if (lean::is_scalar(x_13)) { - x_85 = lean::alloc_cnstr(0, 2, 0); + x_83 = lean::alloc_cnstr(0, 2, 0); } else { - x_85 = x_13; + x_83 = x_13; } -lean::cnstr_set(x_85, 0, x_84); -lean::cnstr_set(x_85, 1, x_11); -return x_85; +lean::cnstr_set(x_83, 0, x_82); +lean::cnstr_set(x_83, 1, x_11); +return x_83; } } case 3: { -obj* x_89; +obj* x_87; lean::dec(x_13); lean::dec(x_0); lean::dec(x_22); -x_89 = lean::box(0); -x_23 = x_89; +x_87 = lean::box(0); +x_23 = x_87; goto lbl_24; } default: { -obj* x_94; +obj* x_92; lean::dec(x_13); lean::dec(x_0); lean::dec(x_16); lean::dec(x_22); -x_94 = lean::box(0); -x_23 = x_94; +x_92 = lean::box(0); +x_23 = x_92; goto lbl_24; } } lbl_24: { -obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_103; obj* x_105; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_113; +obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_99; obj* x_101; obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; lean::dec(x_23); -x_96 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_96, 0, x_4); -x_97 = lean::box(0); -x_98 = l_String_splitAux___main___closed__1; -x_99 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_98, x_2, x_96, x_97, x_3, x_18, x_11); -lean::dec(x_18); +x_94 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_94, 0, x_4); +x_95 = lean::box(0); +x_96 = l_String_splitAux___main___closed__1; +x_97 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_96, x_2, x_94, x_95, x_3, x_18, x_11); lean::dec(x_3); -lean::dec(x_96); -x_103 = lean::cnstr_get(x_99, 0); -x_105 = lean::cnstr_get(x_99, 1); -if (lean::is_exclusive(x_99)) { - x_107 = x_99; +x_99 = lean::cnstr_get(x_97, 0); +x_101 = lean::cnstr_get(x_97, 1); +if (lean::is_exclusive(x_97)) { + x_103 = x_97; } else { - lean::inc(x_103); - lean::inc(x_105); - lean::dec(x_99); - x_107 = lean::box(0); + lean::inc(x_99); + lean::inc(x_101); + lean::dec(x_97); + x_103 = lean::box(0); } -x_108 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_103); -x_109 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_110 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_109, x_108); -x_111 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_110, x_15); -x_112 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_111); -if (lean::is_scalar(x_107)) { - x_113 = lean::alloc_cnstr(0, 2, 0); +x_104 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_20, x_99); +x_105 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_106 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_105, x_104); +x_107 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_106, x_15); +x_108 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_107); +if (lean::is_scalar(x_103)) { + x_109 = lean::alloc_cnstr(0, 2, 0); } else { - x_113 = x_107; + x_109 = x_103; } -lean::cnstr_set(x_113, 0, x_112); -lean::cnstr_set(x_113, 1, x_105); -return x_113; +lean::cnstr_set(x_109, 0, x_108); +lean::cnstr_set(x_109, 1, x_101); +return x_109; } } else { -obj* x_118; uint8 x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; +obj* x_114; uint8 x_116; obj* x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; lean::dec(x_4); lean::dec(x_3); lean::dec(x_0); lean::dec(x_2); -x_118 = lean::cnstr_get(x_9, 0); -x_120 = lean::cnstr_get_scalar(x_9, sizeof(void*)*1); +x_114 = lean::cnstr_get(x_9, 0); +x_116 = lean::cnstr_get_scalar(x_9, sizeof(void*)*1); if (lean::is_exclusive(x_9)) { - x_121 = x_9; + x_117 = x_9; } else { - lean::inc(x_118); + lean::inc(x_114); lean::dec(x_9); - x_121 = lean::box(0); + x_117 = lean::box(0); } -if (lean::is_scalar(x_121)) { - x_122 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_117)) { + x_118 = lean::alloc_cnstr(1, 1, 1); } else { - x_122 = x_121; + x_118 = x_117; } -lean::cnstr_set(x_122, 0, x_118); -lean::cnstr_set_scalar(x_122, sizeof(void*)*1, x_120); -x_123 = x_122; -x_124 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_125 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_124, x_123); -x_126 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_125, x_15); -x_127 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_126); +lean::cnstr_set(x_118, 0, x_114); +lean::cnstr_set_scalar(x_118, sizeof(void*)*1, x_116); +x_119 = x_118; +x_120 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_121 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_120, x_119); +x_122 = l_Lean_Parser_ParsecT_labelsMkRes___rarg(x_121, x_15); +x_123 = l_Lean_Parser_ParsecT_tryMkRes___rarg(x_122); if (lean::is_scalar(x_13)) { - x_128 = lean::alloc_cnstr(0, 2, 0); + x_124 = lean::alloc_cnstr(0, 2, 0); } else { - x_128 = x_13; + x_124 = x_13; } -lean::cnstr_set(x_128, 0, x_127); -lean::cnstr_set(x_128, 1, x_11); -return x_128; +lean::cnstr_set(x_124, 0, x_123); +lean::cnstr_set(x_124, 1, x_11); +return x_124; } } } @@ -26214,20 +26163,19 @@ x_4 = lean::box(0); x_5 = l_Lean_Parser_Combinators_anyOf___rarg___closed__1; x_6 = l_mjoin___rarg___closed__1; x_7 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_5, x_6, x_4, x_4, x_1, x_2, x_3); -lean::dec(x_2); lean::dec(x_1); return x_7; } else { -obj* x_10; obj* x_12; obj* x_15; -x_10 = lean::cnstr_get(x_0, 0); -lean::inc(x_10); -x_12 = lean::cnstr_get(x_0, 1); -lean::inc(x_12); +obj* x_9; obj* x_11; obj* x_14; +x_9 = lean::cnstr_get(x_0, 0); +lean::inc(x_9); +x_11 = lean::cnstr_get(x_0, 1); +lean::inc(x_11); lean::dec(x_0); -x_15 = l_List_foldl___main___at_Lean_Parser_unicodeSymbol_Lean_Parser_HasTokens___spec__3(x_10, x_12, x_1, x_2, x_3); -return x_15; +x_14 = l_List_foldl___main___at_Lean_Parser_unicodeSymbol_Lean_Parser_HasTokens___spec__3(x_9, x_11, x_1, x_2, x_3); +return x_14; } } } @@ -26579,196 +26527,194 @@ x_7 = lean::box(0); x_8 = l_String_splitAux___main___closed__1; x_9 = l_mjoin___rarg___closed__1; x_10 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_8, x_9, x_7, x_7, x_2, x_3, x_4); -lean::dec(x_3); return x_10; } else { -obj* x_12; -x_12 = lean::cnstr_get(x_1, 0); -lean::inc(x_12); +obj* x_11; +x_11 = lean::cnstr_get(x_1, 0); +lean::inc(x_11); lean::dec(x_1); -switch (lean::obj_tag(x_12)) { +switch (lean::obj_tag(x_11)) { case 0: { -obj* x_15; obj* x_18; obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_28; obj* x_30; obj* x_31; obj* x_32; obj* x_33; -x_15 = lean::cnstr_get(x_12, 0); -lean::inc(x_15); -lean::dec(x_12); -x_18 = lean::cnstr_get(x_15, 1); -lean::inc(x_18); -lean::dec(x_15); -x_21 = lean::box(0); -x_22 = lean_name_mk_string(x_21, x_18); -x_23 = l_RBMap_find___main___at_Lean_Parser_indexed___spec__1___rarg(x_0, x_22); -lean::dec(x_22); -x_25 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_23, x_2, x_3, x_4); -x_26 = lean::cnstr_get(x_25, 0); -x_28 = lean::cnstr_get(x_25, 1); -if (lean::is_exclusive(x_25)) { - x_30 = x_25; +obj* x_14; obj* x_17; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32; +x_14 = lean::cnstr_get(x_11, 0); +lean::inc(x_14); +lean::dec(x_11); +x_17 = lean::cnstr_get(x_14, 1); +lean::inc(x_17); +lean::dec(x_14); +x_20 = lean::box(0); +x_21 = lean_name_mk_string(x_20, x_17); +x_22 = l_RBMap_find___main___at_Lean_Parser_indexed___spec__1___rarg(x_0, x_21); +lean::dec(x_21); +x_24 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_22, x_2, x_3, x_4); +x_25 = lean::cnstr_get(x_24, 0); +x_27 = lean::cnstr_get(x_24, 1); +if (lean::is_exclusive(x_24)) { + x_29 = x_24; } else { - lean::inc(x_26); - lean::inc(x_28); - lean::dec(x_25); - x_30 = lean::box(0); + lean::inc(x_25); + lean::inc(x_27); + lean::dec(x_24); + x_29 = lean::box(0); } -x_31 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_32 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_31, x_26); -if (lean::is_scalar(x_30)) { - x_33 = lean::alloc_cnstr(0, 2, 0); +x_30 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_31 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_30, x_25); +if (lean::is_scalar(x_29)) { + x_32 = lean::alloc_cnstr(0, 2, 0); } else { - x_33 = x_30; + x_32 = x_29; } -lean::cnstr_set(x_33, 0, x_32); -lean::cnstr_set(x_33, 1, x_28); -return x_33; +lean::cnstr_set(x_32, 0, x_31); +lean::cnstr_set(x_32, 1, x_27); +return x_32; } case 1: { -obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_40; obj* x_42; obj* x_43; obj* x_44; obj* x_45; -lean::dec(x_12); -x_35 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1; -x_36 = l_RBMap_find___main___at_Lean_Parser_indexed___spec__3___rarg(x_0, x_35); -x_37 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_36, x_2, x_3, x_4); -x_38 = lean::cnstr_get(x_37, 0); -x_40 = lean::cnstr_get(x_37, 1); -if (lean::is_exclusive(x_37)) { - x_42 = x_37; +obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_39; obj* x_41; obj* x_42; obj* x_43; obj* x_44; +lean::dec(x_11); +x_34 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1; +x_35 = l_RBMap_find___main___at_Lean_Parser_indexed___spec__3___rarg(x_0, x_34); +x_36 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_35, x_2, x_3, x_4); +x_37 = lean::cnstr_get(x_36, 0); +x_39 = lean::cnstr_get(x_36, 1); +if (lean::is_exclusive(x_36)) { + x_41 = x_36; } else { - lean::inc(x_38); - lean::inc(x_40); - lean::dec(x_37); - x_42 = lean::box(0); + lean::inc(x_37); + lean::inc(x_39); + lean::dec(x_36); + x_41 = lean::box(0); } -x_43 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_44 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_43, x_38); -if (lean::is_scalar(x_42)) { - x_45 = lean::alloc_cnstr(0, 2, 0); +x_42 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_43 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_42, x_37); +if (lean::is_scalar(x_41)) { + x_44 = lean::alloc_cnstr(0, 2, 0); } else { - x_45 = x_42; + x_44 = x_41; } -lean::cnstr_set(x_45, 0, x_44); -lean::cnstr_set(x_45, 1, x_40); -return x_45; +lean::cnstr_set(x_44, 0, x_43); +lean::cnstr_set(x_44, 1, x_39); +return x_44; } case 2: { -obj* x_46; obj* x_49; obj* x_52; obj* x_54; obj* x_55; obj* x_57; obj* x_59; obj* x_60; obj* x_61; obj* x_62; -x_46 = lean::cnstr_get(x_12, 0); -lean::inc(x_46); -lean::dec(x_12); -x_49 = lean::cnstr_get(x_46, 0); -lean::inc(x_49); -lean::dec(x_46); -x_52 = l_RBMap_find___main___at_Lean_Parser_indexed___spec__4___rarg(x_0, x_49); -lean::dec(x_49); -x_54 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_52, x_2, x_3, x_4); -x_55 = lean::cnstr_get(x_54, 0); -x_57 = lean::cnstr_get(x_54, 1); -if (lean::is_exclusive(x_54)) { - x_59 = x_54; +obj* x_45; obj* x_48; obj* x_51; obj* x_53; obj* x_54; obj* x_56; obj* x_58; obj* x_59; obj* x_60; obj* x_61; +x_45 = lean::cnstr_get(x_11, 0); +lean::inc(x_45); +lean::dec(x_11); +x_48 = lean::cnstr_get(x_45, 0); +lean::inc(x_48); +lean::dec(x_45); +x_51 = l_RBMap_find___main___at_Lean_Parser_indexed___spec__4___rarg(x_0, x_48); +lean::dec(x_48); +x_53 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_51, x_2, x_3, x_4); +x_54 = lean::cnstr_get(x_53, 0); +x_56 = lean::cnstr_get(x_53, 1); +if (lean::is_exclusive(x_53)) { + x_58 = x_53; } else { - lean::inc(x_55); - lean::inc(x_57); - lean::dec(x_54); - x_59 = lean::box(0); + lean::inc(x_54); + lean::inc(x_56); + lean::dec(x_53); + x_58 = lean::box(0); } -x_60 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_61 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_60, x_55); -if (lean::is_scalar(x_59)) { - x_62 = lean::alloc_cnstr(0, 2, 0); +x_59 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_60 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_59, x_54); +if (lean::is_scalar(x_58)) { + x_61 = lean::alloc_cnstr(0, 2, 0); } else { - x_62 = x_59; + x_61 = x_58; } -lean::cnstr_set(x_62, 0, x_61); -lean::cnstr_set(x_62, 1, x_57); -return x_62; +lean::cnstr_set(x_61, 0, x_60); +lean::cnstr_set(x_61, 1, x_56); +return x_61; } default: { -obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; -x_63 = lean::box(0); -x_64 = l_String_splitAux___main___closed__1; -x_65 = l_mjoin___rarg___closed__1; -x_66 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_64, x_65, x_63, x_63, x_2, x_3, x_4); -lean::dec(x_3); -x_68 = lean::cnstr_get(x_66, 0); -lean::inc(x_68); -if (lean::obj_tag(x_68) == 0) +obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; +x_62 = lean::box(0); +x_63 = l_String_splitAux___main___closed__1; +x_64 = l_mjoin___rarg___closed__1; +x_65 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_63, x_64, x_62, x_62, x_2, x_3, x_4); +x_66 = lean::cnstr_get(x_65, 0); +lean::inc(x_66); +if (lean::obj_tag(x_66) == 0) { -obj* x_70; obj* x_73; obj* x_75; obj* x_77; obj* x_80; obj* x_82; obj* x_83; obj* x_85; obj* x_87; obj* x_88; obj* x_89; -x_70 = lean::cnstr_get(x_66, 1); -lean::inc(x_70); -lean::dec(x_66); -x_73 = lean::cnstr_get(x_68, 0); +obj* x_68; obj* x_71; obj* x_73; obj* x_75; obj* x_78; obj* x_80; obj* x_81; obj* x_83; obj* x_85; obj* x_86; obj* x_87; +x_68 = lean::cnstr_get(x_65, 1); +lean::inc(x_68); +lean::dec(x_65); +x_71 = lean::cnstr_get(x_66, 0); +lean::inc(x_71); +x_73 = lean::cnstr_get(x_66, 1); lean::inc(x_73); -x_75 = lean::cnstr_get(x_68, 1); +x_75 = lean::cnstr_get(x_66, 2); lean::inc(x_75); -x_77 = lean::cnstr_get(x_68, 2); -lean::inc(x_77); -lean::dec(x_68); -x_80 = l_RBMap_find___main___at_Lean_Parser_indexed___spec__5___rarg(x_0, x_73); -lean::dec(x_73); -x_82 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_80, x_2, x_75, x_70); -x_83 = lean::cnstr_get(x_82, 0); -x_85 = lean::cnstr_get(x_82, 1); -if (lean::is_exclusive(x_82)) { - x_87 = x_82; +lean::dec(x_66); +x_78 = l_RBMap_find___main___at_Lean_Parser_indexed___spec__5___rarg(x_0, x_71); +lean::dec(x_71); +x_80 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_78, x_2, x_73, x_68); +x_81 = lean::cnstr_get(x_80, 0); +x_83 = lean::cnstr_get(x_80, 1); +if (lean::is_exclusive(x_80)) { + x_85 = x_80; } else { + lean::inc(x_81); lean::inc(x_83); - lean::inc(x_85); - lean::dec(x_82); - x_87 = lean::box(0); + lean::dec(x_80); + x_85 = lean::box(0); } -x_88 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_77, x_83); -if (lean::is_scalar(x_87)) { - x_89 = lean::alloc_cnstr(0, 2, 0); +x_86 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_75, x_81); +if (lean::is_scalar(x_85)) { + x_87 = lean::alloc_cnstr(0, 2, 0); } else { - x_89 = x_87; + x_87 = x_85; } -lean::cnstr_set(x_89, 0, x_88); -lean::cnstr_set(x_89, 1, x_85); -return x_89; +lean::cnstr_set(x_87, 0, x_86); +lean::cnstr_set(x_87, 1, x_83); +return x_87; } else { -obj* x_91; obj* x_93; obj* x_94; uint8 x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; +obj* x_89; obj* x_91; obj* x_92; uint8 x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; lean::dec(x_0); -x_91 = lean::cnstr_get(x_66, 1); +x_89 = lean::cnstr_get(x_65, 1); +if (lean::is_exclusive(x_65)) { + lean::cnstr_release(x_65, 0); + x_91 = x_65; +} else { + lean::inc(x_89); + lean::dec(x_65); + x_91 = lean::box(0); +} +x_92 = lean::cnstr_get(x_66, 0); +x_94 = lean::cnstr_get_scalar(x_66, sizeof(void*)*1); if (lean::is_exclusive(x_66)) { - lean::cnstr_release(x_66, 0); - x_93 = x_66; + x_95 = x_66; } else { - lean::inc(x_91); + lean::inc(x_92); lean::dec(x_66); - x_93 = lean::box(0); + x_95 = lean::box(0); } -x_94 = lean::cnstr_get(x_68, 0); -x_96 = lean::cnstr_get_scalar(x_68, sizeof(void*)*1); -if (lean::is_exclusive(x_68)) { - x_97 = x_68; +if (lean::is_scalar(x_95)) { + x_96 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_94); - lean::dec(x_68); - x_97 = lean::box(0); + x_96 = x_95; } -if (lean::is_scalar(x_97)) { - x_98 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_96, 0, x_92); +lean::cnstr_set_scalar(x_96, sizeof(void*)*1, x_94); +x_97 = x_96; +if (lean::is_scalar(x_91)) { + x_98 = lean::alloc_cnstr(0, 2, 0); } else { - x_98 = x_97; + x_98 = x_91; } -lean::cnstr_set(x_98, 0, x_94); -lean::cnstr_set_scalar(x_98, sizeof(void*)*1, x_96); -x_99 = x_98; -if (lean::is_scalar(x_93)) { - x_100 = lean::alloc_cnstr(0, 2, 0); -} else { - x_100 = x_93; -} -lean::cnstr_set(x_100, 0, x_99); -lean::cnstr_set(x_100, 1, x_91); -return x_100; +lean::cnstr_set(x_98, 0, x_97); +lean::cnstr_set(x_98, 1, x_89); +return x_98; } } } @@ -26956,8 +26902,6 @@ lean::mark_persistent(l___private_init_lean_parser_token_2__whitespaceAux___main lean::mark_persistent(l___private_init_lean_parser_token_2__whitespaceAux___main___closed__4); l_Lean_Parser_withTrailing___rarg___closed__1 = _init_l_Lean_Parser_withTrailing___rarg___closed__1(); lean::mark_persistent(l_Lean_Parser_withTrailing___rarg___closed__1); - l_Lean_Parser_raw_view___rarg___lambda__2___closed__1 = _init_l_Lean_Parser_raw_view___rarg___lambda__2___closed__1(); -lean::mark_persistent(l_Lean_Parser_raw_view___rarg___lambda__2___closed__1); l_Lean_Parser_raw_view___rarg___closed__1 = _init_l_Lean_Parser_raw_view___rarg___closed__1(); lean::mark_persistent(l_Lean_Parser_raw_view___rarg___closed__1); l_Lean_Parser_raw_view___rarg___closed__2 = _init_l_Lean_Parser_raw_view___rarg___closed__2(); @@ -27084,6 +27028,8 @@ lean::mark_persistent(l_Lean_Parser_token___closed__1); lean::mark_persistent(l_Lean_Parser_token___closed__2); l_Lean_Parser_peekToken___closed__1 = _init_l_Lean_Parser_peekToken___closed__1(); lean::mark_persistent(l_Lean_Parser_peekToken___closed__1); + l_Lean_Parser_number_Parser___rarg___lambda__1___closed__1 = _init_l_Lean_Parser_number_Parser___rarg___lambda__1___closed__1(); +lean::mark_persistent(l_Lean_Parser_number_Parser___rarg___lambda__1___closed__1); l_Lean_Parser_number_Parser___rarg___closed__1 = _init_l_Lean_Parser_number_Parser___rarg___closed__1(); lean::mark_persistent(l_Lean_Parser_number_Parser___rarg___closed__1); l_Lean_Parser_number_Parser_view___rarg___closed__1 = _init_l_Lean_Parser_number_Parser_view___rarg___closed__1(); diff --git a/src/stage0/init/lean/parser/trie.cpp b/src/stage0/init/lean/parser/trie.cpp index 2f15c3ccd6..2c7a59eb1c 100644 --- a/src/stage0/init/lean/parser/trie.cpp +++ b/src/stage0/init/lean/parser/trie.cpp @@ -25,8 +25,11 @@ namespace lean { obj* nat_sub(obj*, obj*); } obj* l_Lean_Format_pretty(obj*, obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_Trie_insert___boxed(obj*); obj* l_Lean_Parser_Trie_mk___closed__1; +obj* l_RBNode_insert___at___private_init_lean_parser_trie_1__insertAux___main___spec__5(obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7___boxed(obj*); obj* l_Lean_Format_group___main(obj*); obj* l___private_init_lean_parser_trie_4__toStringAux___main___rarg(obj*); obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__3(obj*); @@ -46,6 +49,7 @@ obj* l___private_init_lean_parser_trie_1__insertAux___rarg(obj*, obj*, obj*, obj obj* l___private_init_lean_parser_trie_3__matchPrefixAux___main___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Trie_insert___rarg(obj*, obj*, obj*); obj* l_RBNode_balance2___main___rarg(obj*, obj*); +obj* l_RBNode_insert___at___private_init_lean_parser_trie_1__insertAux___main___spec__5___boxed(obj*); obj* l_Lean_toFmt___at___private_init_lean_parser_trie_4__toStringAux___main___spec__2(obj*); obj* l___private_init_lean_parser_trie_4__toStringAux___rarg(obj*); obj* l___private_init_lean_parser_trie_2__findAux___main___rarg(obj*, obj*, obj*); @@ -59,12 +63,12 @@ obj* l_RBNode_fold___main___at___private_init_lean_parser_trie_4__toStringAux___ obj* l_RBNode_insert___at___private_init_lean_parser_trie_1__insertAux___main___spec__2(obj*); obj* l___private_init_lean_parser_trie_4__toStringAux___boxed(obj*); obj* l_String_Iterator_next___main(obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7(obj*); namespace lean { obj* string_append(obj*, obj*); } obj* l_Lean_Parser_Trie_find___boxed(obj*); obj* l_String_OldIterator_next___main(obj*); -obj* l_Option_getOrElse___main___rarg(obj*, obj*); obj* l_Lean_toFmt___at___private_init_lean_parser_trie_4__toStringAux___main___spec__2___boxed(obj*); obj* l___private_init_lean_parser_trie_3__matchPrefixAux(obj*); obj* l_Lean_Parser_Trie_HasToString___rarg(obj*); @@ -77,14 +81,18 @@ uint8 nat_dec_eq(obj*, obj*); } obj* l___private_init_lean_parser_trie_2__findAux(obj*); uint8 l_RBNode_isRed___main___rarg(obj*); -obj* l_Option_orelse___main___rarg(obj*, obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7___rarg(obj*, uint32, obj*); obj* l_RBNode_fold___main___at___private_init_lean_parser_trie_4__toStringAux___main___spec__3(obj*); obj* l_Lean_Parser_Trie_mk(obj*); obj* l___private_init_lean_parser_trie_2__findAux___boxed(obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6___rarg(obj*, uint32, obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6(obj*); obj* l_Lean_Parser_Trie_HasToString(obj*); obj* l_RBNode_fold___main___at___private_init_lean_parser_trie_4__toStringAux___main___spec__3___boxed(obj*); obj* l___private_init_lean_parser_trie_3__matchPrefixAux___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Trie_matchPrefix(obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6___rarg___boxed(obj*, obj*, obj*); +obj* l_RBNode_insert___at___private_init_lean_parser_trie_1__insertAux___main___spec__5___rarg(obj*, uint32, obj*); obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__4___rarg(obj*, uint32, obj*); obj* l_RBNode_insert___at___private_init_lean_parser_trie_1__insertAux___main___spec__2___rarg(obj*, uint32, obj*); obj* l_RBNode_find___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__1(obj*); @@ -100,8 +108,10 @@ obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___mai obj* l_RBNode_fold___main___at___private_init_lean_parser_trie_4__toStringAux___main___spec__3___rarg(obj*, obj*); obj* l___private_init_lean_parser_trie_1__insertAux(obj*); obj* l___private_init_lean_parser_trie_1__insertAux___main___rarg___boxed(obj*, obj*, obj*, obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6___boxed(obj*); obj* l_Lean_Parser_Trie_find___rarg(obj*, obj*); obj* l___private_init_lean_parser_trie_2__findAux___main___boxed(obj*); +obj* l_RBNode_insert___at___private_init_lean_parser_trie_1__insertAux___main___spec__5___rarg___boxed(obj*, obj*, obj*); obj* l_RBNode_insert___at___private_init_lean_parser_trie_1__insertAux___main___spec__2___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_Trie_mk___boxed(obj*); obj* l_Lean_Parser_Trie_insert(obj*); @@ -711,6 +721,518 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_insert___at___private return x_1; } } +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6___rarg(obj* x_0, uint32 x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +uint8 x_3; obj* x_4; obj* x_5; obj* x_6; +x_3 = 0; +x_4 = lean::box_uint32(x_1); +x_5 = lean::alloc_cnstr(1, 4, 1); +lean::cnstr_set(x_5, 0, x_0); +lean::cnstr_set(x_5, 1, x_4); +lean::cnstr_set(x_5, 2, x_2); +lean::cnstr_set(x_5, 3, x_0); +lean::cnstr_set_scalar(x_5, sizeof(void*)*4, x_3); +x_6 = x_5; +return x_6; +} +else +{ +uint8 x_7; +x_7 = lean::cnstr_get_scalar(x_0, sizeof(void*)*4); +if (x_7 == 0) +{ +obj* x_8; obj* x_10; obj* x_12; obj* x_14; obj* x_16; uint32 x_17; uint8 x_18; +x_8 = lean::cnstr_get(x_0, 0); +x_10 = lean::cnstr_get(x_0, 1); +x_12 = lean::cnstr_get(x_0, 2); +x_14 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_16 = x_0; +} else { + lean::inc(x_8); + lean::inc(x_10); + lean::inc(x_12); + lean::inc(x_14); + lean::dec(x_0); + x_16 = lean::box(0); +} +x_17 = lean::unbox_uint32(x_10); +x_18 = x_1 < x_17; +if (x_18 == 0) +{ +uint8 x_19; +x_19 = x_17 < x_1; +if (x_19 == 0) +{ +obj* x_21; obj* x_22; obj* x_23; +lean::dec(x_12); +x_21 = lean::box_uint32(x_1); +if (lean::is_scalar(x_16)) { + x_22 = lean::alloc_cnstr(1, 4, 1); +} else { + x_22 = x_16; +} +lean::cnstr_set(x_22, 0, x_8); +lean::cnstr_set(x_22, 1, x_21); +lean::cnstr_set(x_22, 2, x_2); +lean::cnstr_set(x_22, 3, x_14); +lean::cnstr_set_scalar(x_22, sizeof(void*)*4, x_7); +x_23 = x_22; +return x_23; +} +else +{ +obj* x_24; obj* x_25; obj* x_26; +x_24 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6___rarg(x_14, x_1, x_2); +if (lean::is_scalar(x_16)) { + x_25 = lean::alloc_cnstr(1, 4, 1); +} else { + x_25 = x_16; +} +lean::cnstr_set(x_25, 0, x_8); +lean::cnstr_set(x_25, 1, x_10); +lean::cnstr_set(x_25, 2, x_12); +lean::cnstr_set(x_25, 3, x_24); +lean::cnstr_set_scalar(x_25, sizeof(void*)*4, x_7); +x_26 = x_25; +return x_26; +} +} +else +{ +obj* x_27; obj* x_28; obj* x_29; +x_27 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6___rarg(x_8, x_1, x_2); +if (lean::is_scalar(x_16)) { + x_28 = lean::alloc_cnstr(1, 4, 1); +} else { + x_28 = x_16; +} +lean::cnstr_set(x_28, 0, x_27); +lean::cnstr_set(x_28, 1, x_10); +lean::cnstr_set(x_28, 2, x_12); +lean::cnstr_set(x_28, 3, x_14); +lean::cnstr_set_scalar(x_28, sizeof(void*)*4, x_7); +x_29 = x_28; +return x_29; +} +} +else +{ +obj* x_30; obj* x_32; obj* x_34; obj* x_36; obj* x_38; uint32 x_39; uint8 x_40; +x_30 = lean::cnstr_get(x_0, 0); +x_32 = lean::cnstr_get(x_0, 1); +x_34 = lean::cnstr_get(x_0, 2); +x_36 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_38 = x_0; +} else { + lean::inc(x_30); + lean::inc(x_32); + lean::inc(x_34); + lean::inc(x_36); + lean::dec(x_0); + x_38 = lean::box(0); +} +x_39 = lean::unbox_uint32(x_32); +x_40 = x_1 < x_39; +if (x_40 == 0) +{ +uint8 x_41; +x_41 = x_39 < x_1; +if (x_41 == 0) +{ +obj* x_43; obj* x_44; obj* x_45; +lean::dec(x_34); +x_43 = lean::box_uint32(x_1); +if (lean::is_scalar(x_38)) { + x_44 = lean::alloc_cnstr(1, 4, 1); +} else { + x_44 = x_38; +} +lean::cnstr_set(x_44, 0, x_30); +lean::cnstr_set(x_44, 1, x_43); +lean::cnstr_set(x_44, 2, x_2); +lean::cnstr_set(x_44, 3, x_36); +lean::cnstr_set_scalar(x_44, sizeof(void*)*4, x_7); +x_45 = x_44; +return x_45; +} +else +{ +uint8 x_46; +x_46 = l_RBNode_isRed___main___rarg(x_36); +if (x_46 == 0) +{ +obj* x_47; obj* x_48; obj* x_49; +x_47 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6___rarg(x_36, x_1, x_2); +if (lean::is_scalar(x_38)) { + x_48 = lean::alloc_cnstr(1, 4, 1); +} else { + x_48 = x_38; +} +lean::cnstr_set(x_48, 0, x_30); +lean::cnstr_set(x_48, 1, x_32); +lean::cnstr_set(x_48, 2, x_34); +lean::cnstr_set(x_48, 3, x_47); +lean::cnstr_set_scalar(x_48, sizeof(void*)*4, x_7); +x_49 = x_48; +return x_49; +} +else +{ +obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; +x_50 = lean::box(0); +if (lean::is_scalar(x_38)) { + x_51 = lean::alloc_cnstr(1, 4, 1); +} else { + x_51 = x_38; +} +lean::cnstr_set(x_51, 0, x_30); +lean::cnstr_set(x_51, 1, x_32); +lean::cnstr_set(x_51, 2, x_34); +lean::cnstr_set(x_51, 3, x_50); +lean::cnstr_set_scalar(x_51, sizeof(void*)*4, x_7); +x_52 = x_51; +x_53 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6___rarg(x_36, x_1, x_2); +x_54 = l_RBNode_balance2___main___rarg(x_52, x_53); +return x_54; +} +} +} +else +{ +uint8 x_55; +x_55 = l_RBNode_isRed___main___rarg(x_30); +if (x_55 == 0) +{ +obj* x_56; obj* x_57; obj* x_58; +x_56 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6___rarg(x_30, x_1, x_2); +if (lean::is_scalar(x_38)) { + x_57 = lean::alloc_cnstr(1, 4, 1); +} else { + x_57 = x_38; +} +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_32); +lean::cnstr_set(x_57, 2, x_34); +lean::cnstr_set(x_57, 3, x_36); +lean::cnstr_set_scalar(x_57, sizeof(void*)*4, x_7); +x_58 = x_57; +return x_58; +} +else +{ +obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; +x_59 = lean::box(0); +if (lean::is_scalar(x_38)) { + x_60 = lean::alloc_cnstr(1, 4, 1); +} else { + x_60 = x_38; +} +lean::cnstr_set(x_60, 0, x_59); +lean::cnstr_set(x_60, 1, x_32); +lean::cnstr_set(x_60, 2, x_34); +lean::cnstr_set(x_60, 3, x_36); +lean::cnstr_set_scalar(x_60, sizeof(void*)*4, x_7); +x_61 = x_60; +x_62 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6___rarg(x_30, x_1, x_2); +x_63 = l_RBNode_balance1___main___rarg(x_61, x_62); +return x_63; +} +} +} +} +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6___rarg___boxed), 3, 0); +return x_1; +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7___rarg(obj* x_0, uint32 x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +uint8 x_3; obj* x_4; obj* x_5; obj* x_6; +x_3 = 0; +x_4 = lean::box_uint32(x_1); +x_5 = lean::alloc_cnstr(1, 4, 1); +lean::cnstr_set(x_5, 0, x_0); +lean::cnstr_set(x_5, 1, x_4); +lean::cnstr_set(x_5, 2, x_2); +lean::cnstr_set(x_5, 3, x_0); +lean::cnstr_set_scalar(x_5, sizeof(void*)*4, x_3); +x_6 = x_5; +return x_6; +} +else +{ +uint8 x_7; +x_7 = lean::cnstr_get_scalar(x_0, sizeof(void*)*4); +if (x_7 == 0) +{ +obj* x_8; obj* x_10; obj* x_12; obj* x_14; obj* x_16; uint32 x_17; uint8 x_18; +x_8 = lean::cnstr_get(x_0, 0); +x_10 = lean::cnstr_get(x_0, 1); +x_12 = lean::cnstr_get(x_0, 2); +x_14 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_16 = x_0; +} else { + lean::inc(x_8); + lean::inc(x_10); + lean::inc(x_12); + lean::inc(x_14); + lean::dec(x_0); + x_16 = lean::box(0); +} +x_17 = lean::unbox_uint32(x_10); +x_18 = x_1 < x_17; +if (x_18 == 0) +{ +uint8 x_19; +x_19 = x_17 < x_1; +if (x_19 == 0) +{ +obj* x_21; obj* x_22; obj* x_23; +lean::dec(x_12); +x_21 = lean::box_uint32(x_1); +if (lean::is_scalar(x_16)) { + x_22 = lean::alloc_cnstr(1, 4, 1); +} else { + x_22 = x_16; +} +lean::cnstr_set(x_22, 0, x_8); +lean::cnstr_set(x_22, 1, x_21); +lean::cnstr_set(x_22, 2, x_2); +lean::cnstr_set(x_22, 3, x_14); +lean::cnstr_set_scalar(x_22, sizeof(void*)*4, x_7); +x_23 = x_22; +return x_23; +} +else +{ +obj* x_24; obj* x_25; obj* x_26; +x_24 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7___rarg(x_14, x_1, x_2); +if (lean::is_scalar(x_16)) { + x_25 = lean::alloc_cnstr(1, 4, 1); +} else { + x_25 = x_16; +} +lean::cnstr_set(x_25, 0, x_8); +lean::cnstr_set(x_25, 1, x_10); +lean::cnstr_set(x_25, 2, x_12); +lean::cnstr_set(x_25, 3, x_24); +lean::cnstr_set_scalar(x_25, sizeof(void*)*4, x_7); +x_26 = x_25; +return x_26; +} +} +else +{ +obj* x_27; obj* x_28; obj* x_29; +x_27 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7___rarg(x_8, x_1, x_2); +if (lean::is_scalar(x_16)) { + x_28 = lean::alloc_cnstr(1, 4, 1); +} else { + x_28 = x_16; +} +lean::cnstr_set(x_28, 0, x_27); +lean::cnstr_set(x_28, 1, x_10); +lean::cnstr_set(x_28, 2, x_12); +lean::cnstr_set(x_28, 3, x_14); +lean::cnstr_set_scalar(x_28, sizeof(void*)*4, x_7); +x_29 = x_28; +return x_29; +} +} +else +{ +obj* x_30; obj* x_32; obj* x_34; obj* x_36; obj* x_38; uint32 x_39; uint8 x_40; +x_30 = lean::cnstr_get(x_0, 0); +x_32 = lean::cnstr_get(x_0, 1); +x_34 = lean::cnstr_get(x_0, 2); +x_36 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_38 = x_0; +} else { + lean::inc(x_30); + lean::inc(x_32); + lean::inc(x_34); + lean::inc(x_36); + lean::dec(x_0); + x_38 = lean::box(0); +} +x_39 = lean::unbox_uint32(x_32); +x_40 = x_1 < x_39; +if (x_40 == 0) +{ +uint8 x_41; +x_41 = x_39 < x_1; +if (x_41 == 0) +{ +obj* x_43; obj* x_44; obj* x_45; +lean::dec(x_34); +x_43 = lean::box_uint32(x_1); +if (lean::is_scalar(x_38)) { + x_44 = lean::alloc_cnstr(1, 4, 1); +} else { + x_44 = x_38; +} +lean::cnstr_set(x_44, 0, x_30); +lean::cnstr_set(x_44, 1, x_43); +lean::cnstr_set(x_44, 2, x_2); +lean::cnstr_set(x_44, 3, x_36); +lean::cnstr_set_scalar(x_44, sizeof(void*)*4, x_7); +x_45 = x_44; +return x_45; +} +else +{ +uint8 x_46; +x_46 = l_RBNode_isRed___main___rarg(x_36); +if (x_46 == 0) +{ +obj* x_47; obj* x_48; obj* x_49; +x_47 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7___rarg(x_36, x_1, x_2); +if (lean::is_scalar(x_38)) { + x_48 = lean::alloc_cnstr(1, 4, 1); +} else { + x_48 = x_38; +} +lean::cnstr_set(x_48, 0, x_30); +lean::cnstr_set(x_48, 1, x_32); +lean::cnstr_set(x_48, 2, x_34); +lean::cnstr_set(x_48, 3, x_47); +lean::cnstr_set_scalar(x_48, sizeof(void*)*4, x_7); +x_49 = x_48; +return x_49; +} +else +{ +obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; +x_50 = lean::box(0); +if (lean::is_scalar(x_38)) { + x_51 = lean::alloc_cnstr(1, 4, 1); +} else { + x_51 = x_38; +} +lean::cnstr_set(x_51, 0, x_30); +lean::cnstr_set(x_51, 1, x_32); +lean::cnstr_set(x_51, 2, x_34); +lean::cnstr_set(x_51, 3, x_50); +lean::cnstr_set_scalar(x_51, sizeof(void*)*4, x_7); +x_52 = x_51; +x_53 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7___rarg(x_36, x_1, x_2); +x_54 = l_RBNode_balance2___main___rarg(x_52, x_53); +return x_54; +} +} +} +else +{ +uint8 x_55; +x_55 = l_RBNode_isRed___main___rarg(x_30); +if (x_55 == 0) +{ +obj* x_56; obj* x_57; obj* x_58; +x_56 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7___rarg(x_30, x_1, x_2); +if (lean::is_scalar(x_38)) { + x_57 = lean::alloc_cnstr(1, 4, 1); +} else { + x_57 = x_38; +} +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_32); +lean::cnstr_set(x_57, 2, x_34); +lean::cnstr_set(x_57, 3, x_36); +lean::cnstr_set_scalar(x_57, sizeof(void*)*4, x_7); +x_58 = x_57; +return x_58; +} +else +{ +obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; +x_59 = lean::box(0); +if (lean::is_scalar(x_38)) { + x_60 = lean::alloc_cnstr(1, 4, 1); +} else { + x_60 = x_38; +} +lean::cnstr_set(x_60, 0, x_59); +lean::cnstr_set(x_60, 1, x_32); +lean::cnstr_set(x_60, 2, x_34); +lean::cnstr_set(x_60, 3, x_36); +lean::cnstr_set_scalar(x_60, sizeof(void*)*4, x_7); +x_61 = x_60; +x_62 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7___rarg(x_30, x_1, x_2); +x_63 = l_RBNode_balance1___main___rarg(x_61, x_62); +return x_63; +} +} +} +} +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7___rarg___boxed), 3, 0); +return x_1; +} +} +obj* l_RBNode_insert___at___private_init_lean_parser_trie_1__insertAux___main___spec__5___rarg(obj* x_0, uint32 x_1, obj* x_2) { +_start: +{ +uint8 x_3; +x_3 = l_RBNode_isRed___main___rarg(x_0); +if (x_3 == 0) +{ +obj* x_4; +x_4 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6___rarg(x_0, x_1, x_2); +return x_4; +} +else +{ +obj* x_5; obj* x_6; +x_5 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7___rarg(x_0, x_1, x_2); +x_6 = l_RBNode_setBlack___main___rarg(x_5); +return x_6; +} +} +} +obj* l_RBNode_insert___at___private_init_lean_parser_trie_1__insertAux___main___spec__5(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_insert___at___private_init_lean_parser_trie_1__insertAux___main___spec__5___rarg___boxed), 3, 0); +return x_1; +} +} obj* l___private_init_lean_parser_trie_1__insertAux___main___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { @@ -719,10 +1241,12 @@ x_4 = lean::mk_nat_obj(0ul); x_5 = lean::nat_dec_eq(x_1, x_4); if (x_5 == 0) { -obj* x_6; obj* x_8; obj* x_10; obj* x_11; obj* x_12; uint32 x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_19; obj* x_20; obj* x_22; obj* x_23; +obj* x_6; obj* x_8; obj* x_10; obj* x_11; obj* x_12; uint32 x_13; obj* x_15; obj* x_16; x_6 = lean::cnstr_get(x_2, 0); x_8 = lean::cnstr_get(x_2, 1); if (lean::is_exclusive(x_2)) { + lean::cnstr_set(x_2, 0, lean::box(0)); + lean::cnstr_set(x_2, 1, lean::box(0)); x_10 = x_2; } else { lean::inc(x_6); @@ -735,45 +1259,65 @@ x_12 = lean::nat_sub(x_1, x_11); x_13 = l_String_Iterator_curr___main(x_3); lean::inc(x_8); x_15 = l_RBNode_find___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__1___rarg(x_8, x_13); -x_16 = l_Lean_Parser_Trie_mk___closed__1; -x_17 = l_Option_getOrElse___main___rarg(x_15, x_16); -lean::dec(x_15); -x_19 = l_String_Iterator_next___main(x_3); -x_20 = l___private_init_lean_parser_trie_1__insertAux___main___rarg(x_0, x_12, x_17, x_19); +x_16 = l_String_Iterator_next___main(x_3); +if (lean::obj_tag(x_15) == 0) +{ +obj* x_17; obj* x_18; obj* x_20; obj* x_21; +x_17 = l_Lean_Parser_Trie_mk___closed__1; +x_18 = l___private_init_lean_parser_trie_1__insertAux___main___rarg(x_0, x_12, x_17, x_16); lean::dec(x_12); -x_22 = l_RBNode_insert___at___private_init_lean_parser_trie_1__insertAux___main___spec__2___rarg(x_8, x_13, x_20); +x_20 = l_RBNode_insert___at___private_init_lean_parser_trie_1__insertAux___main___spec__2___rarg(x_8, x_13, x_18); if (lean::is_scalar(x_10)) { - x_23 = lean::alloc_cnstr(0, 2, 0); + x_21 = lean::alloc_cnstr(0, 2, 0); } else { - x_23 = x_10; + x_21 = x_10; } -lean::cnstr_set(x_23, 0, x_6); -lean::cnstr_set(x_23, 1, x_22); -return x_23; +lean::cnstr_set(x_21, 0, x_6); +lean::cnstr_set(x_21, 1, x_20); +return x_21; } else { -obj* x_25; obj* x_27; obj* x_28; obj* x_29; +obj* x_22; obj* x_25; obj* x_27; obj* x_28; +x_22 = lean::cnstr_get(x_15, 0); +lean::inc(x_22); +lean::dec(x_15); +x_25 = l___private_init_lean_parser_trie_1__insertAux___main___rarg(x_0, x_12, x_22, x_16); +lean::dec(x_12); +x_27 = l_RBNode_insert___at___private_init_lean_parser_trie_1__insertAux___main___spec__5___rarg(x_8, x_13, x_25); +if (lean::is_scalar(x_10)) { + x_28 = lean::alloc_cnstr(0, 2, 0); +} else { + x_28 = x_10; +} +lean::cnstr_set(x_28, 0, x_6); +lean::cnstr_set(x_28, 1, x_27); +return x_28; +} +} +else +{ +obj* x_30; obj* x_32; obj* x_33; obj* x_34; lean::dec(x_3); -x_25 = lean::cnstr_get(x_2, 1); +x_30 = lean::cnstr_get(x_2, 1); if (lean::is_exclusive(x_2)) { lean::cnstr_release(x_2, 0); - x_27 = x_2; + x_32 = x_2; } else { - lean::inc(x_25); + lean::inc(x_30); lean::dec(x_2); - x_27 = lean::box(0); + x_32 = lean::box(0); } -x_28 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_28, 0, x_0); -if (lean::is_scalar(x_27)) { - x_29 = lean::alloc_cnstr(0, 2, 0); +x_33 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_33, 0, x_0); +if (lean::is_scalar(x_32)) { + x_34 = lean::alloc_cnstr(0, 2, 0); } else { - x_29 = x_27; + x_34 = x_32; } -lean::cnstr_set(x_29, 0, x_28); -lean::cnstr_set(x_29, 1, x_25); -return x_29; +lean::cnstr_set(x_34, 0, x_33); +lean::cnstr_set(x_34, 1, x_30); +return x_34; } } } @@ -857,6 +1401,60 @@ lean::dec(x_0); return x_1; } } +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6___rarg___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +uint32 x_3; obj* x_4; +x_3 = lean::unbox_uint32(x_1); +x_4 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6___rarg(x_0, x_3, x_2); +return x_4; +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__6(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7___rarg___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +uint32 x_3; obj* x_4; +x_3 = lean::unbox_uint32(x_1); +x_4 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7___rarg(x_0, x_3, x_2); +return x_4; +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_ins___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__7(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_insert___at___private_init_lean_parser_trie_1__insertAux___main___spec__5___rarg___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +uint32 x_3; obj* x_4; +x_3 = lean::unbox_uint32(x_1); +x_4 = l_RBNode_insert___at___private_init_lean_parser_trie_1__insertAux___main___spec__5___rarg(x_0, x_3, x_2); +return x_4; +} +} +obj* l_RBNode_insert___at___private_init_lean_parser_trie_1__insertAux___main___spec__5___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_insert___at___private_init_lean_parser_trie_1__insertAux___main___spec__5(x_0); +lean::dec(x_0); +return x_1; +} +} obj* l___private_init_lean_parser_trie_1__insertAux___main___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { @@ -1083,115 +1681,102 @@ x_14 = l_String_OldIterator_curr___main(x_2); x_15 = l_RBNode_find___main___at___private_init_lean_parser_trie_1__insertAux___main___spec__1___rarg(x_8, x_14); if (lean::obj_tag(x_6) == 0) { -obj* x_16; obj* x_17; -x_16 = lean::box(0); -x_17 = l_Option_orelse___main___rarg(x_16, x_3); -lean::dec(x_3); if (lean::obj_tag(x_15) == 0) { lean::dec(x_12); lean::dec(x_2); -return x_17; +return x_3; } else { -obj* x_21; obj* x_24; -x_21 = lean::cnstr_get(x_15, 0); -lean::inc(x_21); +obj* x_18; obj* x_21; +x_18 = lean::cnstr_get(x_15, 0); +lean::inc(x_18); lean::dec(x_15); -x_24 = l_String_OldIterator_next___main(x_2); +x_21 = l_String_OldIterator_next___main(x_2); x_0 = x_12; -x_1 = x_21; -x_2 = x_24; -x_3 = x_17; +x_1 = x_18; +x_2 = x_21; goto _start; } } else { -obj* x_26; obj* x_28; obj* x_30; obj* x_31; obj* x_32; -x_26 = lean::cnstr_get(x_6, 0); +obj* x_24; obj* x_26; obj* x_28; obj* x_29; +lean::dec(x_3); +x_24 = lean::cnstr_get(x_6, 0); if (lean::is_exclusive(x_6)) { - x_28 = x_6; + x_26 = x_6; } else { - lean::inc(x_26); + lean::inc(x_24); lean::dec(x_6); - x_28 = lean::box(0); + x_26 = lean::box(0); } lean::inc(x_2); -x_30 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_30, 0, x_2); -lean::cnstr_set(x_30, 1, x_26); -if (lean::is_scalar(x_28)) { - x_31 = lean::alloc_cnstr(1, 1, 0); +x_28 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_28, 0, x_2); +lean::cnstr_set(x_28, 1, x_24); +if (lean::is_scalar(x_26)) { + x_29 = lean::alloc_cnstr(1, 1, 0); } else { - x_31 = x_28; + x_29 = x_26; } -lean::cnstr_set(x_31, 0, x_30); -x_32 = l_Option_orelse___main___rarg(x_31, x_3); -lean::dec(x_3); -lean::dec(x_31); +lean::cnstr_set(x_29, 0, x_28); if (lean::obj_tag(x_15) == 0) { lean::dec(x_12); lean::dec(x_2); -return x_32; +return x_29; } else { -obj* x_37; obj* x_40; -x_37 = lean::cnstr_get(x_15, 0); -lean::inc(x_37); +obj* x_32; obj* x_35; +x_32 = lean::cnstr_get(x_15, 0); +lean::inc(x_32); lean::dec(x_15); -x_40 = l_String_OldIterator_next___main(x_2); +x_35 = l_String_OldIterator_next___main(x_2); x_0 = x_12; -x_1 = x_37; -x_2 = x_40; -x_3 = x_32; +x_1 = x_32; +x_2 = x_35; +x_3 = x_29; goto _start; } } } else { -obj* x_43; +obj* x_38; lean::dec(x_0); -x_43 = lean::cnstr_get(x_1, 0); -lean::inc(x_43); +x_38 = lean::cnstr_get(x_1, 0); +lean::inc(x_38); lean::dec(x_1); -if (lean::obj_tag(x_43) == 0) +if (lean::obj_tag(x_38) == 0) { -obj* x_47; obj* x_48; lean::dec(x_2); -x_47 = lean::box(0); -x_48 = l_Option_orelse___main___rarg(x_47, x_3); -lean::dec(x_3); -return x_48; +return x_3; } else { -obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; -x_50 = lean::cnstr_get(x_43, 0); -if (lean::is_exclusive(x_43)) { - x_52 = x_43; -} else { - lean::inc(x_50); - lean::dec(x_43); - x_52 = lean::box(0); -} -x_53 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_53, 0, x_2); -lean::cnstr_set(x_53, 1, x_50); -if (lean::is_scalar(x_52)) { - x_54 = lean::alloc_cnstr(1, 1, 0); -} else { - x_54 = x_52; -} -lean::cnstr_set(x_54, 0, x_53); -x_55 = l_Option_orelse___main___rarg(x_54, x_3); +obj* x_43; obj* x_45; obj* x_46; obj* x_47; lean::dec(x_3); -lean::dec(x_54); -return x_55; +x_43 = lean::cnstr_get(x_38, 0); +if (lean::is_exclusive(x_38)) { + x_45 = x_38; +} else { + lean::inc(x_43); + lean::dec(x_38); + x_45 = lean::box(0); +} +x_46 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_46, 0, x_2); +lean::cnstr_set(x_46, 1, x_43); +if (lean::is_scalar(x_45)) { + x_47 = lean::alloc_cnstr(1, 1, 0); +} else { + x_47 = x_45; +} +lean::cnstr_set(x_47, 0, x_46); +return x_47; } } } diff --git a/src/stage0/init/lean/trace.cpp b/src/stage0/init/lean/trace.cpp index 4eb1db7beb..21d0334576 100644 --- a/src/stage0/init/lean/trace.cpp +++ b/src/stage0/init/lean/trace.cpp @@ -645,7 +645,7 @@ obj* x_6; obj* x_9; obj* x_10; obj* x_12; obj* x_13; x_6 = lean::cnstr_get(x_5, 1); lean::inc(x_6); lean::dec(x_5); -x_9 = lean::thunk_get(x_0); +x_9 = lean::thunk_get_own(x_0); x_10 = lean::apply_1(x_9, x_6); lean::inc(x_4); x_12 = lean::alloc_closure(reinterpret_cast(l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__2), 5, 4); @@ -686,7 +686,7 @@ lean::dec(x_11); lean::dec(x_4); lean::dec(x_3); lean::dec(x_2); -x_22 = lean::thunk_get(x_1); +x_22 = lean::thunk_get_own(x_1); lean::dec(x_1); x_24 = lean::apply_1(x_22, x_9); return x_24; @@ -859,7 +859,7 @@ obj* x_7; obj* x_10; obj* x_11; obj* x_13; obj* x_14; x_7 = lean::cnstr_get(x_6, 1); lean::inc(x_7); lean::dec(x_6); -x_10 = lean::thunk_get(x_0); +x_10 = lean::thunk_get_own(x_0); x_11 = lean::apply_1(x_10, x_7); lean::inc(x_5); x_13 = lean::alloc_closure(reinterpret_cast(l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__8), 6, 5); @@ -890,7 +890,7 @@ lean::dec(x_3); x_17 = lean::cnstr_get(x_8, 1); lean::inc(x_17); lean::dec(x_8); -x_20 = lean::thunk_get(x_0); +x_20 = lean::thunk_get_own(x_0); lean::dec(x_0); x_22 = lean::apply_1(x_20, x_17); return x_22; @@ -926,7 +926,7 @@ lean::closure_set(x_36, 0, x_1); lean::closure_set(x_36, 1, x_27); x_37 = lean::alloc_closure(reinterpret_cast(l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__7), 2, 1); lean::closure_set(x_37, 0, x_3); -x_38 = lean::thunk_get(x_0); +x_38 = lean::thunk_get_own(x_0); lean::dec(x_0); x_40 = l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__4___rarg(x_4, lean::box(0), x_36, x_37, x_38, x_24); return x_40;