diff --git a/stage0/src/Lean/Meta/GeneralizeTelescope.lean b/stage0/src/Lean/Meta/GeneralizeTelescope.lean index 111a85d77c..073295cb9c 100644 --- a/stage0/src/Lean/Meta/GeneralizeTelescope.lean +++ b/stage0/src/Lean/Meta/GeneralizeTelescope.lean @@ -28,25 +28,25 @@ partial def updateTypes (e eNew : Expr) (entries : Array Entry) (i : Nat) : Meta else pure entries -partial def generalizeTelescopeAux {α} (prefixForNewVars : Name) (k : Array Expr → MetaM α) - (entries : Array Entry) (i : Nat) (nextVarIdx : Nat) (fvars : Array Expr) : MetaM α := do +partial def generalizeTelescopeAux {α} (k : Array Expr → MetaM α) + (entries : Array Entry) (i : Nat) (fvars : Array Expr) : MetaM α := do if h : i < entries.size then - let replace (e : Expr) (type : Expr) : MetaM α := do - let userName := prefixForNewVars.appendIndexAfter nextVarIdx + let replace (baseUserName : Name) (e : Expr) (type : Expr) : MetaM α := do + let userName ← mkFreshUserName baseUserName withLocalDeclD userName type fun x => do entries ← updateTypes e x entries (i+1) - generalizeTelescopeAux prefixForNewVars k entries (i+1) (nextVarIdx+1) (fvars.push x) + generalizeTelescopeAux k entries (i+1) (fvars.push x) match entries.get ⟨i, h⟩ with | ⟨e@(Expr.fvar fvarId _), type, false⟩ => let localDecl ← getLocalDecl fvarId match localDecl with - | LocalDecl.cdecl .. => generalizeTelescopeAux prefixForNewVars k entries (i+1) nextVarIdx (fvars.push e) - | LocalDecl.ldecl .. => replace e type + | LocalDecl.cdecl .. => generalizeTelescopeAux k entries (i+1) (fvars.push e) + | LocalDecl.ldecl .. => replace localDecl.userName e type | ⟨e, type, modified⟩ => if modified then unless (← isTypeCorrect type) do throwError! "failed to create telescope generalizing {entries.map Entry.expr}" - replace e type + replace `x e type else k fvars @@ -71,25 +71,23 @@ open GeneralizeTelescope Moreover, for any type correct lambda abstraction `f` constructed using `mkForall #[x_1, ..., x_n] ...`, The application `f e_1 ... e_n` is also type correct. - The parameter `prefixForNewVars` is used to create new user facing names for the (new) variables `x_i`. - The `kabstract` method is used to "locate" and abstract forward dependencies. That is, an occurrence of `e_i` in the of `e_j` for `j > i`. The method checks whether the abstract types `A_i` are type correct. Here is an example where `generalizeTelescope` fails to create the telescope `x_1 ... x_n`. Assume the local context contains `(n : Nat := 10) (xs : Vec Nat n) (ys : Vec Nat 10) (h : xs = ys)`. - Then, assume we invoke `generalizeTelescope` with `es := #[10, xs, ys, h]` and `prefixForNewVars := aux`. + Then, assume we invoke `generalizeTelescope` with `es := #[10, xs, ys, h]` A type error is detected when processing `h`'s type. At this point, the method had successfully produced ``` - (aux_1 : Nat) (xs : Vec Nat n) (aux_2 : Vec Nat aux_1) + (x_1 : Nat) (xs : Vec Nat n) (x_2 : Vec Nat x_1) ``` - and the type for the new variable abstracting `h` is `xs = aux_2` which is not type correct. -/ -def generalizeTelescope {α} (es : Array Expr) (prefixForNewVars : Name) (k : Array Expr → MetaM α) : MetaM α := do + and the type for the new variable abstracting `h` is `xs = x_2` which is not type correct. -/ +def generalizeTelescope {α} (es : Array Expr) (k : Array Expr → MetaM α) : MetaM α := do let es ← es.mapM fun e => do let type ← inferType e let type ← instantiateMVars type pure { expr := e, type := type, modified := false : Entry } - generalizeTelescopeAux prefixForNewVars k es 0 1 #[] + generalizeTelescopeAux k es 0 #[] end Lean.Meta diff --git a/stage0/src/Lean/Meta/Tactic/Rewrite.lean b/stage0/src/Lean/Meta/Tactic/Rewrite.lean index e73d9fc0ea..dd9b2d68aa 100644 --- a/stage0/src/Lean/Meta/Tactic/Rewrite.lean +++ b/stage0/src/Lean/Meta/Tactic/Rewrite.lean @@ -4,6 +4,7 @@ Released under Apache 2.0 license as described in the file LICENSE. Authors: Leonardo de Moura -/ import Lean.Meta.AppBuilder +import Lean.Meta.MatchUtil import Lean.Meta.KAbstract import Lean.Meta.Check import Lean.Meta.Tactic.Apply @@ -21,9 +22,9 @@ def rewrite (mvarId : MVarId) (e : Expr) (heq : Expr) (symm : Bool := false) (oc let heqType ← inferType heq let (newMVars, binderInfos, heqType) ← forallMetaTelescopeReducing heqType let heq := mkAppN heq newMVars - let cont (heq heqType : Expr) : MetaM RewriteResult := - match heqType.eq? with - | none => throwTacticEx `rewrite mvarId msg!"equality of iff proof expected{indentExpr heqType}" + let cont (heq heqType : Expr) : MetaM RewriteResult := do + match (← matchEq? heqType) with + | none => throwTacticEx `rewrite mvarId msg!"equality or iff proof expected{indentExpr heqType}" | some (α, lhs, rhs) => let cont (heq heqType lhs rhs : Expr) : MetaM RewriteResult := do if lhs.getAppFn.isMVar then diff --git a/stage0/src/Lean/Parser/Do.lean b/stage0/src/Lean/Parser/Do.lean index bf44893d53..608fcef678 100644 --- a/stage0/src/Lean/Parser/Do.lean +++ b/stage0/src/Lean/Parser/Do.lean @@ -23,7 +23,7 @@ def doSeqBracketed := parser! "{" >> withoutPosition (many1 (group (doElemParser def doSeq := doSeqBracketed <|> doSeqIndent def notFollowedByRedefinedTermToken := - notFollowedBy ("if" <|> "match" <|> "let" <|> "have" <|> "do" <|> "dbgTrace!" <|> "assert!") "token at 'do' element" + notFollowedBy ("if" <|> "match" <|> "let" <|> "have" <|> "do" <|> "dbgTrace!" <|> "assert!" <|> "for" <|> "unless" <|> "return" <|> "try") "token at 'do' element" @[builtinDoElemParser] def doLet := parser! "let " >> letDecl @[builtinDoElemParser] def doLetRec := parser! group ("let " >> nonReservedSymbol "rec ") >> letRecDecls @@ -99,6 +99,12 @@ parser is succeeding. @[builtinTermParser] def doElem.quot : Parser := parser! "`(doElem|" >> toggleInsideQuot doElemParser >> ")" +/- macros for using `unless`, `for`, `try`, `return` as terms. They expand into `do unless ...`, `do for ...`, `do try ...`, and `do return ...` -/ +@[builtinTermParser] def termUnless := parser! "unless " >> withForbidden "do" termParser >> "do " >> doSeq +@[builtinTermParser] def termFor := parser! "for " >> termParser >> " in " >> withForbidden "do" termParser >> "do " >> doSeq +@[builtinTermParser] def termTry := parser! "try " >> doSeq >> many (doCatch <|> doCatchMatch) >> optional doFinally +@[builtinTermParser] def termReturn := parser!:leadPrec withPosition ("return " >> optional (checkLineEq >> termParser)) + end Term end Parser end Lean diff --git a/stage0/stdlib/Lean/Meta/GeneralizeTelescope.c b/stage0/stdlib/Lean/Meta/GeneralizeTelescope.c index 8ea1338524..50d766c3cb 100644 --- a/stage0/stdlib/Lean/Meta/GeneralizeTelescope.c +++ b/stage0/stdlib/Lean/Meta/GeneralizeTelescope.c @@ -16,6 +16,7 @@ extern "C" { size_t l_USize_add(size_t, size_t); lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux_match__2(lean_object*); lean_object* l_Lean_stringToMessageData(lean_object*); +lean_object* l_Lean_LocalDecl_userName(lean_object*); lean_object* l_Lean_Meta_withLocalDecl___at_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_uget(lean_object*, size_t); lean_object* l_Array_mapMUnsafe_map___at_Lean_Meta_generalizeTelescope___spec__1(size_t, size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -36,12 +37,12 @@ lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l_Lean_throwError___at_Lean_Meta_getMVarDecl___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___closed__1; lean_object* lean_array_fget(lean_object*, lean_object*); +lean_object* l___private_Lean_CoreM_0__Lean_Core_mkFreshNameImp(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Occurrences_beq(lean_object*, lean_object*); lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___closed__2; lean_object* l_Array_mapMUnsafe_map___at_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___spec__2(size_t, size_t, lean_object*); -lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Name_appendIndexAfter(lean_object*, lean_object*); lean_object* lean_st_mk_ref(lean_object*, lean_object*); lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux_match__1___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_generalizeTelescope___rarg___boxed__const__1; @@ -53,9 +54,9 @@ lean_object* l_Lean_Meta_GeneralizeTelescope_updateTypes_match__1___rarg(lean_ob lean_object* l___private_Lean_HeadIndex_0__Lean_Expr_headNumArgsAux(lean_object*, lean_object*); lean_object* l_Lean_Meta_getLocalDecl___at_Lean_Meta_getFVarLocalDecl___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; -lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_GeneralizeTelescope_updateTypes(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_kabstract_visit(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Expr_isFVar(lean_object*); lean_object* l_Lean_Meta_GeneralizeTelescope_updateTypes___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -68,15 +69,16 @@ lean_object* l_Lean_Meta_kabstract___at_Lean_Meta_GeneralizeTelescope_updateType extern lean_object* l_Lean_mkOptionalNode___closed__2; lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux_match__1(lean_object*); lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux_match__2___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_kabstract___at_Lean_Meta_GeneralizeTelescope_updateTypes___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_mapMUnsafe_map___at_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___spec__2___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_GeneralizeTelescope_updateTypes_match__1(lean_object*); -lean_object* l_Lean_Meta_generalizeTelescope___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_generalizeTelescope___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux(lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); +extern lean_object* l_Lean_Meta_mkArrow___rarg___closed__2; lean_object* l_Lean_Meta_GeneralizeTelescope_updateTypes_match__1___rarg(lean_object* x_1, lean_object* x_2) { _start: { @@ -909,82 +911,82 @@ goto _start; } } } -lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11, lean_object* x_12, lean_object* x_13) { +lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11) { _start: { -lean_object* x_14; lean_object* x_15; lean_object* x_16; -x_14 = lean_unsigned_to_nat(1u); -x_15 = lean_nat_add(x_1, x_14); -lean_inc(x_12); -lean_inc(x_11); +lean_object* x_12; lean_object* x_13; lean_object* x_14; +x_12 = lean_unsigned_to_nat(1u); +x_13 = lean_nat_add(x_1, x_12); lean_inc(x_10); lean_inc(x_9); -lean_inc(x_15); -x_16 = l_Lean_Meta_GeneralizeTelescope_updateTypes(x_2, x_8, x_3, x_15, x_9, x_10, x_11, x_12, x_13); -if (lean_obj_tag(x_16) == 0) +lean_inc(x_8); +lean_inc(x_7); +lean_inc(x_13); +x_14 = l_Lean_Meta_GeneralizeTelescope_updateTypes(x_2, x_6, x_3, x_13, x_7, x_8, x_9, x_10, x_11); +if (lean_obj_tag(x_14) == 0) { -lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; -x_17 = lean_ctor_get(x_16, 0); -lean_inc(x_17); -x_18 = lean_ctor_get(x_16, 1); -lean_inc(x_18); -lean_dec(x_16); -x_19 = lean_nat_add(x_4, x_14); -x_20 = lean_array_push(x_5, x_8); -x_21 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg(x_6, x_7, x_17, x_15, x_19, x_20, x_9, x_10, x_11, x_12, x_18); -return x_21; +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +lean_dec(x_14); +x_17 = lean_array_push(x_4, x_6); +x_18 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg(x_5, x_15, x_13, x_17, x_7, x_8, x_9, x_10, x_16); +return x_18; } else { -uint8_t x_22; -lean_dec(x_15); -lean_dec(x_12); -lean_dec(x_11); +uint8_t x_19; +lean_dec(x_13); lean_dec(x_10); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); -x_22 = !lean_is_exclusive(x_16); -if (x_22 == 0) +lean_dec(x_4); +x_19 = !lean_is_exclusive(x_14); +if (x_19 == 0) { -return x_16; +return x_14; } else { -lean_object* x_23; lean_object* x_24; lean_object* x_25; -x_23 = lean_ctor_get(x_16, 0); -x_24 = lean_ctor_get(x_16, 1); -lean_inc(x_24); -lean_inc(x_23); -lean_dec(x_16); -x_25 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_25, 0, x_23); -lean_ctor_set(x_25, 1, x_24); -return x_25; +lean_object* x_20; lean_object* x_21; lean_object* x_22; +x_20 = lean_ctor_get(x_14, 0); +x_21 = lean_ctor_get(x_14, 1); +lean_inc(x_21); +lean_inc(x_20); +lean_dec(x_14); +x_22 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_22, 0, x_20); +lean_ctor_set(x_22, 1, x_21); +return x_22; } } } } -lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11, lean_object* x_12, lean_object* x_13, lean_object* x_14) { +lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11, lean_object* x_12) { _start: { -lean_object* x_15; lean_object* x_16; uint8_t x_17; lean_object* x_18; -lean_inc(x_2); -lean_inc(x_1); -x_15 = l_Lean_Name_appendIndexAfter(x_1, x_2); -x_16 = lean_alloc_closure((void*)(l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__1___boxed), 13, 7); -lean_closure_set(x_16, 0, x_3); -lean_closure_set(x_16, 1, x_4); -lean_closure_set(x_16, 2, x_5); -lean_closure_set(x_16, 3, x_2); -lean_closure_set(x_16, 4, x_6); -lean_closure_set(x_16, 5, x_1); -lean_closure_set(x_16, 6, x_7); -x_17 = 0; -x_18 = l_Lean_Meta_withLocalDecl___at_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___spec__1___rarg(x_15, x_17, x_8, x_16, x_10, x_11, x_12, x_13, x_14); -return x_18; +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; uint8_t x_18; lean_object* x_19; +x_13 = l_Lean_Meta_mkArrow___rarg___closed__2; +x_14 = l___private_Lean_CoreM_0__Lean_Core_mkFreshNameImp(x_13, x_10, x_11, x_12); +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_14, 1); +lean_inc(x_16); +lean_dec(x_14); +x_17 = lean_alloc_closure((void*)(l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__1___boxed), 11, 5); +lean_closure_set(x_17, 0, x_1); +lean_closure_set(x_17, 1, x_2); +lean_closure_set(x_17, 2, x_3); +lean_closure_set(x_17, 3, x_4); +lean_closure_set(x_17, 4, x_5); +x_18 = 0; +x_19 = l_Lean_Meta_withLocalDecl___at_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___spec__1___rarg(x_15, x_18, x_6, x_17, x_8, x_9, x_10, x_11, x_16); +return x_19; } } static lean_object* _init_l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___closed__1() { @@ -1004,96 +1006,94 @@ x_2 = l_Lean_stringToMessageData(x_1); return x_2; } } -lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11) { +lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9) { _start: { -lean_object* x_12; uint8_t x_13; -x_12 = lean_array_get_size(x_3); -x_13 = lean_nat_dec_lt(x_4, x_12); -if (x_13 == 0) +lean_object* x_10; uint8_t x_11; +x_10 = lean_array_get_size(x_2); +x_11 = lean_nat_dec_lt(x_3, x_10); +if (x_11 == 0) { -lean_object* x_14; -lean_dec(x_12); -lean_dec(x_5); -lean_dec(x_4); +lean_object* x_12; +lean_dec(x_10); lean_dec(x_3); -lean_dec(x_1); -x_14 = lean_apply_6(x_2, x_6, x_7, x_8, x_9, x_10, x_11); -return x_14; +lean_dec(x_2); +x_12 = lean_apply_6(x_1, x_4, x_5, x_6, x_7, x_8, x_9); +return x_12; } else { -lean_object* x_15; lean_object* x_16; -x_15 = lean_array_fget(x_3, x_4); -x_16 = lean_ctor_get(x_15, 0); +lean_object* x_13; lean_object* x_14; +x_13 = lean_array_fget(x_2, x_3); +x_14 = lean_ctor_get(x_13, 0); +lean_inc(x_14); +if (lean_obj_tag(x_14) == 1) +{ +uint8_t x_15; +x_15 = lean_ctor_get_uint8(x_13, sizeof(void*)*2); +if (x_15 == 0) +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; +lean_dec(x_10); +x_16 = lean_ctor_get(x_13, 1); lean_inc(x_16); -if (lean_obj_tag(x_16) == 1) +lean_dec(x_13); +x_17 = lean_ctor_get(x_14, 0); +lean_inc(x_17); +lean_inc(x_5); +x_18 = l_Lean_Meta_getLocalDecl___at_Lean_Meta_getFVarLocalDecl___spec__1(x_17, x_5, x_6, x_7, x_8, x_9); +if (lean_obj_tag(x_18) == 0) { -uint8_t x_17; -x_17 = lean_ctor_get_uint8(x_15, sizeof(void*)*2); -if (x_17 == 0) -{ -lean_object* x_18; lean_object* x_19; lean_object* x_20; -lean_dec(x_12); -x_18 = lean_ctor_get(x_15, 1); -lean_inc(x_18); -lean_dec(x_15); -x_19 = lean_ctor_get(x_16, 0); +lean_object* x_19; +x_19 = lean_ctor_get(x_18, 0); lean_inc(x_19); -lean_inc(x_7); -x_20 = l_Lean_Meta_getLocalDecl___at_Lean_Meta_getFVarLocalDecl___spec__1(x_19, x_7, x_8, x_9, x_10, x_11); -if (lean_obj_tag(x_20) == 0) +if (lean_obj_tag(x_19) == 0) { -lean_object* x_21; -x_21 = lean_ctor_get(x_20, 0); -lean_inc(x_21); -if (lean_obj_tag(x_21) == 0) -{ -lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; -lean_dec(x_21); +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; +lean_dec(x_19); +lean_dec(x_16); +x_20 = lean_ctor_get(x_18, 1); +lean_inc(x_20); lean_dec(x_18); -x_22 = lean_ctor_get(x_20, 1); -lean_inc(x_22); -lean_dec(x_20); -x_23 = lean_unsigned_to_nat(1u); -x_24 = lean_nat_add(x_4, x_23); -lean_dec(x_4); -x_25 = lean_array_push(x_6, x_16); -x_4 = x_24; -x_6 = x_25; -x_11 = x_22; +x_21 = lean_unsigned_to_nat(1u); +x_22 = lean_nat_add(x_3, x_21); +lean_dec(x_3); +x_23 = lean_array_push(x_4, x_14); +x_3 = x_22; +x_4 = x_23; +x_9 = x_20; goto _start; } else { -lean_object* x_27; lean_object* x_28; lean_object* x_29; uint8_t x_30; lean_object* x_31; -lean_dec(x_21); -x_27 = lean_ctor_get(x_20, 1); -lean_inc(x_27); -lean_dec(x_20); -lean_inc(x_5); -lean_inc(x_1); -x_28 = l_Lean_Name_appendIndexAfter(x_1, x_5); -x_29 = lean_alloc_closure((void*)(l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__1___boxed), 13, 7); -lean_closure_set(x_29, 0, x_4); -lean_closure_set(x_29, 1, x_16); -lean_closure_set(x_29, 2, x_3); -lean_closure_set(x_29, 3, x_5); -lean_closure_set(x_29, 4, x_6); -lean_closure_set(x_29, 5, x_1); -lean_closure_set(x_29, 6, x_2); -x_30 = 0; -x_31 = l_Lean_Meta_withLocalDecl___at_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___spec__1___rarg(x_28, x_30, x_18, x_29, x_7, x_8, x_9, x_10, x_27); -return x_31; +lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; uint8_t x_31; lean_object* x_32; +x_25 = lean_ctor_get(x_18, 1); +lean_inc(x_25); +lean_dec(x_18); +x_26 = l_Lean_LocalDecl_userName(x_19); +lean_dec(x_19); +x_27 = l___private_Lean_CoreM_0__Lean_Core_mkFreshNameImp(x_26, x_7, x_8, x_25); +x_28 = lean_ctor_get(x_27, 0); +lean_inc(x_28); +x_29 = lean_ctor_get(x_27, 1); +lean_inc(x_29); +lean_dec(x_27); +x_30 = lean_alloc_closure((void*)(l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__1___boxed), 11, 5); +lean_closure_set(x_30, 0, x_3); +lean_closure_set(x_30, 1, x_14); +lean_closure_set(x_30, 2, x_2); +lean_closure_set(x_30, 3, x_4); +lean_closure_set(x_30, 4, x_1); +x_31 = 0; +x_32 = l_Lean_Meta_withLocalDecl___at_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___spec__1___rarg(x_28, x_31, x_16, x_30, x_5, x_6, x_7, x_8, x_29); +return x_32; } } else { -uint8_t x_32; -lean_dec(x_18); +uint8_t x_33; lean_dec(x_16); -lean_dec(x_10); -lean_dec(x_9); +lean_dec(x_14); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); @@ -1102,208 +1102,204 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_32 = !lean_is_exclusive(x_20); -if (x_32 == 0) +x_33 = !lean_is_exclusive(x_18); +if (x_33 == 0) { -return x_20; +return x_18; } else { -lean_object* x_33; lean_object* x_34; lean_object* x_35; -x_33 = lean_ctor_get(x_20, 0); -x_34 = lean_ctor_get(x_20, 1); +lean_object* x_34; lean_object* x_35; lean_object* x_36; +x_34 = lean_ctor_get(x_18, 0); +x_35 = lean_ctor_get(x_18, 1); +lean_inc(x_35); lean_inc(x_34); -lean_inc(x_33); -lean_dec(x_20); -x_35 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_35, 0, x_33); -lean_ctor_set(x_35, 1, x_34); -return x_35; +lean_dec(x_18); +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_34); +lean_ctor_set(x_36, 1, x_35); +return x_36; } } } else { -lean_object* x_36; lean_object* x_37; lean_object* x_38; uint8_t x_39; -x_36 = lean_ctor_get(x_15, 1); -lean_inc(x_36); -lean_dec(x_15); -lean_inc(x_10); -lean_inc(x_9); +lean_object* x_37; lean_object* x_38; lean_object* x_39; uint8_t x_40; +x_37 = lean_ctor_get(x_13, 1); +lean_inc(x_37); +lean_dec(x_13); lean_inc(x_8); lean_inc(x_7); -lean_inc(x_36); -x_37 = l_Lean_Meta_isTypeCorrect(x_36, x_7, x_8, x_9, x_10, x_11); -x_38 = lean_ctor_get(x_37, 0); -lean_inc(x_38); -x_39 = lean_unbox(x_38); +lean_inc(x_6); +lean_inc(x_5); +lean_inc(x_37); +x_38 = l_Lean_Meta_isTypeCorrect(x_37, x_5, x_6, x_7, x_8, x_9); +x_39 = lean_ctor_get(x_38, 0); +lean_inc(x_39); +x_40 = lean_unbox(x_39); +lean_dec(x_39); +if (x_40 == 0) +{ +lean_object* x_41; size_t x_42; size_t x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; uint8_t x_55; +lean_dec(x_37); +lean_dec(x_14); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_41 = lean_ctor_get(x_38, 1); +lean_inc(x_41); lean_dec(x_38); -if (x_39 == 0) -{ -lean_object* x_40; size_t x_41; size_t x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; uint8_t x_54; -lean_dec(x_36); -lean_dec(x_16); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_40 = lean_ctor_get(x_37, 1); -lean_inc(x_40); -lean_dec(x_37); -x_41 = lean_usize_of_nat(x_12); -lean_dec(x_12); -x_42 = 0; -x_43 = x_3; -x_44 = l_Array_mapMUnsafe_map___at_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___spec__2(x_41, x_42, x_43); -x_45 = x_44; -x_46 = l_Array_toList___rarg(x_45); -lean_dec(x_45); -x_47 = l_List_map___at_Lean_MessageData_Lean_Message___instance__12___spec__1(x_46); -x_48 = l_Lean_MessageData_ofList(x_47); -lean_dec(x_47); -x_49 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___closed__2; -x_50 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_50, 0, x_49); -lean_ctor_set(x_50, 1, x_48); -x_51 = l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; -x_52 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_52, 0, x_50); -lean_ctor_set(x_52, 1, x_51); -x_53 = l_Lean_throwError___at_Lean_Meta_getMVarDecl___spec__1___rarg(x_52, x_7, x_8, x_9, x_10, x_40); +x_42 = lean_usize_of_nat(x_10); lean_dec(x_10); -lean_dec(x_9); +x_43 = 0; +x_44 = x_2; +x_45 = l_Array_mapMUnsafe_map___at_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___spec__2(x_42, x_43, x_44); +x_46 = x_45; +x_47 = l_Array_toList___rarg(x_46); +lean_dec(x_46); +x_48 = l_List_map___at_Lean_MessageData_Lean_Message___instance__12___spec__1(x_47); +x_49 = l_Lean_MessageData_ofList(x_48); +lean_dec(x_48); +x_50 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___closed__2; +x_51 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_51, 0, x_50); +lean_ctor_set(x_51, 1, x_49); +x_52 = l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; +x_53 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_53, 0, x_51); +lean_ctor_set(x_53, 1, x_52); +x_54 = l_Lean_throwError___at_Lean_Meta_getMVarDecl___spec__1___rarg(x_53, x_5, x_6, x_7, x_8, x_41); lean_dec(x_8); lean_dec(x_7); -x_54 = !lean_is_exclusive(x_53); -if (x_54 == 0) +lean_dec(x_6); +lean_dec(x_5); +x_55 = !lean_is_exclusive(x_54); +if (x_55 == 0) { -return x_53; +return x_54; } else { -lean_object* x_55; lean_object* x_56; lean_object* x_57; -x_55 = lean_ctor_get(x_53, 0); -x_56 = lean_ctor_get(x_53, 1); +lean_object* x_56; lean_object* x_57; lean_object* x_58; +x_56 = lean_ctor_get(x_54, 0); +x_57 = lean_ctor_get(x_54, 1); +lean_inc(x_57); lean_inc(x_56); -lean_inc(x_55); -lean_dec(x_53); -x_57 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_57, 0, x_55); -lean_ctor_set(x_57, 1, x_56); -return x_57; +lean_dec(x_54); +x_58 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_58, 0, x_56); +lean_ctor_set(x_58, 1, x_57); +return x_58; } } else { -lean_object* x_58; lean_object* x_59; lean_object* x_60; -lean_dec(x_12); -x_58 = lean_ctor_get(x_37, 1); -lean_inc(x_58); -lean_dec(x_37); -x_59 = lean_box(0); -x_60 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__2(x_1, x_5, x_4, x_16, x_3, x_6, x_2, x_36, x_59, x_7, x_8, x_9, x_10, x_58); -return x_60; +lean_object* x_59; lean_object* x_60; lean_object* x_61; +lean_dec(x_10); +x_59 = lean_ctor_get(x_38, 1); +lean_inc(x_59); +lean_dec(x_38); +x_60 = lean_box(0); +x_61 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__2(x_3, x_14, x_2, x_4, x_1, x_37, x_60, x_5, x_6, x_7, x_8, x_59); +return x_61; } } } else { -uint8_t x_61; -x_61 = lean_ctor_get_uint8(x_15, sizeof(void*)*2); -if (x_61 == 0) +uint8_t x_62; +x_62 = lean_ctor_get_uint8(x_13, sizeof(void*)*2); +if (x_62 == 0) { -lean_object* x_62; lean_object* x_63; lean_object* x_64; -lean_dec(x_12); -x_62 = lean_ctor_get(x_15, 1); -lean_inc(x_62); -lean_dec(x_15); -x_63 = lean_box(0); -x_64 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__2(x_1, x_5, x_4, x_16, x_3, x_6, x_2, x_62, x_63, x_7, x_8, x_9, x_10, x_11); -return x_64; +lean_object* x_63; lean_object* x_64; lean_object* x_65; +lean_dec(x_10); +x_63 = lean_ctor_get(x_13, 1); +lean_inc(x_63); +lean_dec(x_13); +x_64 = lean_box(0); +x_65 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__2(x_3, x_14, x_2, x_4, x_1, x_63, x_64, x_5, x_6, x_7, x_8, x_9); +return x_65; } else { -lean_object* x_65; lean_object* x_66; lean_object* x_67; uint8_t x_68; -x_65 = lean_ctor_get(x_15, 1); -lean_inc(x_65); -lean_dec(x_15); -lean_inc(x_10); -lean_inc(x_9); +lean_object* x_66; lean_object* x_67; lean_object* x_68; uint8_t x_69; +x_66 = lean_ctor_get(x_13, 1); +lean_inc(x_66); +lean_dec(x_13); lean_inc(x_8); lean_inc(x_7); -lean_inc(x_65); -x_66 = l_Lean_Meta_isTypeCorrect(x_65, x_7, x_8, x_9, x_10, x_11); -x_67 = lean_ctor_get(x_66, 0); -lean_inc(x_67); -x_68 = lean_unbox(x_67); -lean_dec(x_67); -if (x_68 == 0) +lean_inc(x_6); +lean_inc(x_5); +lean_inc(x_66); +x_67 = l_Lean_Meta_isTypeCorrect(x_66, x_5, x_6, x_7, x_8, x_9); +x_68 = lean_ctor_get(x_67, 0); +lean_inc(x_68); +x_69 = lean_unbox(x_68); +lean_dec(x_68); +if (x_69 == 0) { -lean_object* x_69; size_t x_70; size_t x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; uint8_t x_83; -lean_dec(x_65); -lean_dec(x_16); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_69 = lean_ctor_get(x_66, 1); -lean_inc(x_69); +lean_object* x_70; size_t x_71; size_t x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; uint8_t x_84; lean_dec(x_66); -x_70 = lean_usize_of_nat(x_12); -lean_dec(x_12); -x_71 = 0; -x_72 = x_3; -x_73 = l_Array_mapMUnsafe_map___at_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___spec__2(x_70, x_71, x_72); -x_74 = x_73; -x_75 = l_Array_toList___rarg(x_74); -lean_dec(x_74); -x_76 = l_List_map___at_Lean_MessageData_Lean_Message___instance__12___spec__1(x_75); -x_77 = l_Lean_MessageData_ofList(x_76); -lean_dec(x_76); -x_78 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___closed__2; -x_79 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_79, 0, x_78); -lean_ctor_set(x_79, 1, x_77); -x_80 = l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; -x_81 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_81, 0, x_79); -lean_ctor_set(x_81, 1, x_80); -x_82 = l_Lean_throwError___at_Lean_Meta_getMVarDecl___spec__1___rarg(x_81, x_7, x_8, x_9, x_10, x_69); +lean_dec(x_14); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +x_70 = lean_ctor_get(x_67, 1); +lean_inc(x_70); +lean_dec(x_67); +x_71 = lean_usize_of_nat(x_10); lean_dec(x_10); -lean_dec(x_9); +x_72 = 0; +x_73 = x_2; +x_74 = l_Array_mapMUnsafe_map___at_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___spec__2(x_71, x_72, x_73); +x_75 = x_74; +x_76 = l_Array_toList___rarg(x_75); +lean_dec(x_75); +x_77 = l_List_map___at_Lean_MessageData_Lean_Message___instance__12___spec__1(x_76); +x_78 = l_Lean_MessageData_ofList(x_77); +lean_dec(x_77); +x_79 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___closed__2; +x_80 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_80, 0, x_79); +lean_ctor_set(x_80, 1, x_78); +x_81 = l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; +x_82 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_82, 0, x_80); +lean_ctor_set(x_82, 1, x_81); +x_83 = l_Lean_throwError___at_Lean_Meta_getMVarDecl___spec__1___rarg(x_82, x_5, x_6, x_7, x_8, x_70); lean_dec(x_8); lean_dec(x_7); -x_83 = !lean_is_exclusive(x_82); -if (x_83 == 0) +lean_dec(x_6); +lean_dec(x_5); +x_84 = !lean_is_exclusive(x_83); +if (x_84 == 0) { -return x_82; +return x_83; } else { -lean_object* x_84; lean_object* x_85; lean_object* x_86; -x_84 = lean_ctor_get(x_82, 0); -x_85 = lean_ctor_get(x_82, 1); +lean_object* x_85; lean_object* x_86; lean_object* x_87; +x_85 = lean_ctor_get(x_83, 0); +x_86 = lean_ctor_get(x_83, 1); +lean_inc(x_86); lean_inc(x_85); -lean_inc(x_84); -lean_dec(x_82); -x_86 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_86, 0, x_84); -lean_ctor_set(x_86, 1, x_85); -return x_86; +lean_dec(x_83); +x_87 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_87, 0, x_85); +lean_ctor_set(x_87, 1, x_86); +return x_87; } } else { -lean_object* x_87; lean_object* x_88; lean_object* x_89; -lean_dec(x_12); -x_87 = lean_ctor_get(x_66, 1); -lean_inc(x_87); -lean_dec(x_66); -x_88 = lean_box(0); -x_89 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__2(x_1, x_5, x_4, x_16, x_3, x_6, x_2, x_65, x_88, x_7, x_8, x_9, x_10, x_87); -return x_89; +lean_object* x_88; lean_object* x_89; lean_object* x_90; +lean_dec(x_10); +x_88 = lean_ctor_get(x_67, 1); +lean_inc(x_88); +lean_dec(x_67); +x_89 = lean_box(0); +x_90 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__2(x_3, x_14, x_2, x_4, x_1, x_66, x_89, x_5, x_6, x_7, x_8, x_88); +return x_90; } } } @@ -1314,7 +1310,7 @@ lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux(lean_object* _start: { lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg), 11, 0); +x_2 = lean_alloc_closure((void*)(l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg), 9, 0); return x_2; } } @@ -1340,23 +1336,22 @@ x_6 = l_Array_mapMUnsafe_map___at_Lean_Meta_GeneralizeTelescope_generalizeTelesc return x_6; } } -lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11, lean_object* x_12, lean_object* x_13) { +lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11) { _start: { -lean_object* x_14; -x_14 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11, x_12, x_13); -lean_dec(x_4); +lean_object* x_12; +x_12 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11); lean_dec(x_1); -return x_14; +return x_12; } } -lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11, lean_object* x_12, lean_object* x_13, lean_object* x_14) { +lean_object* l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11, lean_object* x_12) { _start: { -lean_object* x_15; -x_15 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__2(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11, x_12, x_13, x_14); -lean_dec(x_9); -return x_15; +lean_object* x_13; +x_13 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg___lambda__2(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11, x_12); +lean_dec(x_7); +return x_13; } } lean_object* l_Array_mapMUnsafe_map___at_Lean_Meta_generalizeTelescope___spec__1(size_t x_1, size_t x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8) { @@ -1494,66 +1489,64 @@ x_2 = lean_box_usize(x_1); return x_2; } } -lean_object* l_Lean_Meta_generalizeTelescope___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8) { +lean_object* l_Lean_Meta_generalizeTelescope___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { _start: { -lean_object* x_9; size_t x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; -x_9 = lean_array_get_size(x_1); -x_10 = lean_usize_of_nat(x_9); -lean_dec(x_9); -x_11 = x_1; -x_12 = lean_box_usize(x_10); -x_13 = l_Lean_Meta_generalizeTelescope___rarg___boxed__const__1; -x_14 = lean_alloc_closure((void*)(l_Array_mapMUnsafe_map___at_Lean_Meta_generalizeTelescope___spec__1___boxed), 8, 3); -lean_closure_set(x_14, 0, x_12); -lean_closure_set(x_14, 1, x_13); -lean_closure_set(x_14, 2, x_11); -x_15 = x_14; -lean_inc(x_7); +lean_object* x_8; size_t x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_8 = lean_array_get_size(x_1); +x_9 = lean_usize_of_nat(x_8); +lean_dec(x_8); +x_10 = x_1; +x_11 = lean_box_usize(x_9); +x_12 = l_Lean_Meta_generalizeTelescope___rarg___boxed__const__1; +x_13 = lean_alloc_closure((void*)(l_Array_mapMUnsafe_map___at_Lean_Meta_generalizeTelescope___spec__1___boxed), 8, 3); +lean_closure_set(x_13, 0, x_11); +lean_closure_set(x_13, 1, x_12); +lean_closure_set(x_13, 2, x_10); +x_14 = x_13; lean_inc(x_6); lean_inc(x_5); lean_inc(x_4); -x_16 = lean_apply_5(x_15, x_4, x_5, x_6, x_7, x_8); -if (lean_obj_tag(x_16) == 0) +lean_inc(x_3); +x_15 = lean_apply_5(x_14, x_3, x_4, x_5, x_6, x_7); +if (lean_obj_tag(x_15) == 0) { -lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; -x_17 = lean_ctor_get(x_16, 0); +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_16 = lean_ctor_get(x_15, 0); +lean_inc(x_16); +x_17 = lean_ctor_get(x_15, 1); lean_inc(x_17); -x_18 = lean_ctor_get(x_16, 1); -lean_inc(x_18); -lean_dec(x_16); -x_19 = lean_unsigned_to_nat(0u); -x_20 = lean_unsigned_to_nat(1u); -x_21 = l_Array_empty___closed__1; -x_22 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg(x_2, x_3, x_17, x_19, x_20, x_21, x_4, x_5, x_6, x_7, x_18); -return x_22; +lean_dec(x_15); +x_18 = lean_unsigned_to_nat(0u); +x_19 = l_Array_empty___closed__1; +x_20 = l_Lean_Meta_GeneralizeTelescope_generalizeTelescopeAux___rarg(x_2, x_16, x_18, x_19, x_3, x_4, x_5, x_6, x_17); +return x_20; } else { -uint8_t x_23; -lean_dec(x_7); +uint8_t x_21; lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); -x_23 = !lean_is_exclusive(x_16); -if (x_23 == 0) +x_21 = !lean_is_exclusive(x_15); +if (x_21 == 0) { -return x_16; +return x_15; } else { -lean_object* x_24; lean_object* x_25; lean_object* x_26; -x_24 = lean_ctor_get(x_16, 0); -x_25 = lean_ctor_get(x_16, 1); -lean_inc(x_25); -lean_inc(x_24); -lean_dec(x_16); -x_26 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_26, 0, x_24); -lean_ctor_set(x_26, 1, x_25); -return x_26; +lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_22 = lean_ctor_get(x_15, 0); +x_23 = lean_ctor_get(x_15, 1); +lean_inc(x_23); +lean_inc(x_22); +lean_dec(x_15); +x_24 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_24, 0, x_22); +lean_ctor_set(x_24, 1, x_23); +return x_24; } } } @@ -1562,7 +1555,7 @@ lean_object* l_Lean_Meta_generalizeTelescope(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l_Lean_Meta_generalizeTelescope___rarg), 8, 0); +x_2 = lean_alloc_closure((void*)(l_Lean_Meta_generalizeTelescope___rarg), 7, 0); return x_2; } } diff --git a/stage0/stdlib/Lean/Meta/Tactic/Rewrite.c b/stage0/stdlib/Lean/Meta/Tactic/Rewrite.c index a9ff686d15..35c57dabca 100644 --- a/stage0/stdlib/Lean/Meta/Tactic/Rewrite.c +++ b/stage0/stdlib/Lean/Meta/Tactic/Rewrite.c @@ -1,6 +1,6 @@ // Lean compiler output // Module: Lean.Meta.Tactic.Rewrite -// Imports: Init Lean.Meta.AppBuilder Lean.Meta.KAbstract Lean.Meta.Check Lean.Meta.Tactic.Apply +// Imports: Init Lean.Meta.AppBuilder Lean.Meta.MatchUtil Lean.Meta.KAbstract Lean.Meta.Check Lean.Meta.Tactic.Apply #include #if defined(__clang__) #pragma clang diagnostic ignored "-Wunused-parameter" @@ -15,7 +15,6 @@ extern "C" { #endif lean_object* l_Lean_Meta_rewrite___lambda__4___closed__9; size_t l_USize_add(size_t, size_t); -extern lean_object* l_Lean_Expr_eq_x3f___closed__2; lean_object* l_Lean_Expr_mvarId_x21(lean_object*); lean_object* l_Lean_stringToMessageData(lean_object*); lean_object* l___private_Lean_Meta_AppBuilder_0__Lean_Meta_mkEqImp(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -81,6 +80,7 @@ lean_object* l_Lean_Expr_toHeadIndex(lean_object*); size_t lean_usize_of_nat(lean_object*); lean_object* l_Lean_Meta_rewrite_match__1(lean_object*); lean_object* l_Lean_Meta_rewrite___lambda__4___closed__7; +lean_object* l_Lean_Meta_matchEq_x3f(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_throwTacticEx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_HeadIndex_0__Lean_Expr_headNumArgsAux(lean_object*, lean_object*); extern lean_object* l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; @@ -1463,7 +1463,7 @@ static lean_object* _init_l_Lean_Meta_rewrite___lambda__4___closed__1() { _start: { lean_object* x_1; -x_1 = lean_mk_string("equality of iff proof expected"); +x_1 = lean_mk_string("equality or iff proof expected"); return x_1; } } @@ -1588,17 +1588,28 @@ x_28 = lean_unsigned_to_nat(2u); x_29 = l_Lean_Expr_isAppOfArity(x_25, x_27, x_28); if (x_29 == 0) { -lean_object* x_30; lean_object* x_31; uint8_t x_32; -x_30 = l_Lean_Expr_eq_x3f___closed__2; -x_31 = lean_unsigned_to_nat(3u); -x_32 = l_Lean_Expr_isAppOfArity(x_25, x_30, x_31); -if (x_32 == 0) +lean_object* x_30; +lean_inc(x_11); +lean_inc(x_10); +lean_inc(x_9); +lean_inc(x_8); +lean_inc(x_25); +x_30 = l_Lean_Meta_matchEq_x3f(x_25, x_8, x_9, x_10, x_11, x_22); +if (lean_obj_tag(x_30) == 0) { -lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; +lean_object* x_31; +x_31 = lean_ctor_get(x_30, 0); +lean_inc(x_31); +if (lean_obj_tag(x_31) == 0) +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_dec(x_26); lean_dec(x_24); lean_dec(x_23); lean_dec(x_5); +x_32 = lean_ctor_get(x_30, 1); +lean_inc(x_32); +lean_dec(x_30); x_33 = l_Lean_indentExpr(x_25); x_34 = l_Lean_Meta_rewrite___lambda__4___closed__2; x_35 = lean_alloc_ctor(10, 2, 0); @@ -1609,7 +1620,7 @@ x_37 = lean_alloc_ctor(10, 2, 0); lean_ctor_set(x_37, 0, x_35); lean_ctor_set(x_37, 1, x_36); x_38 = lean_box(0); -x_39 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_37, x_38, x_8, x_9, x_10, x_11, x_22); +x_39 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_37, x_38, x_8, x_9, x_10, x_11, x_32); lean_dec(x_11); lean_dec(x_10); lean_dec(x_9); @@ -1618,249 +1629,269 @@ return x_39; } else { -lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; -x_40 = l_Lean_Expr_appFn_x21(x_25); -x_41 = l_Lean_Expr_appFn_x21(x_40); -x_42 = l_Lean_Expr_appArg_x21(x_41); -lean_dec(x_41); -x_43 = l_Lean_Expr_appArg_x21(x_40); -lean_dec(x_40); -x_44 = l_Lean_Expr_appArg_x21(x_25); +lean_object* x_40; lean_object* x_41; +x_40 = lean_ctor_get(x_31, 0); +lean_inc(x_40); +lean_dec(x_31); +x_41 = lean_ctor_get(x_40, 1); +lean_inc(x_41); if (x_4 == 0) { -lean_object* x_45; uint8_t x_46; -x_45 = l_Lean_Expr_getAppFn(x_43); -x_46 = l_Lean_Expr_isMVar(x_45); -lean_dec(x_45); -if (x_46 == 0) +lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; uint8_t x_47; +x_42 = lean_ctor_get(x_30, 1); +lean_inc(x_42); +lean_dec(x_30); +x_43 = lean_ctor_get(x_40, 0); +lean_inc(x_43); +lean_dec(x_40); +x_44 = lean_ctor_get(x_41, 0); +lean_inc(x_44); +x_45 = lean_ctor_get(x_41, 1); +lean_inc(x_45); +lean_dec(x_41); +x_46 = l_Lean_Expr_getAppFn(x_44); +x_47 = l_Lean_Expr_isMVar(x_46); +lean_dec(x_46); +if (x_47 == 0) { -lean_object* x_47; lean_object* x_48; +lean_object* x_48; lean_object* x_49; lean_dec(x_25); -x_47 = lean_box(0); -x_48 = l_Lean_Meta_rewrite___lambda__3(x_5, x_43, x_6, x_44, x_42, x_26, x_2, x_3, x_23, x_24, x_47, x_8, x_9, x_10, x_11, x_22); +x_48 = lean_box(0); +x_49 = l_Lean_Meta_rewrite___lambda__3(x_5, x_44, x_6, x_45, x_43, x_26, x_2, x_3, x_23, x_24, x_48, x_8, x_9, x_10, x_11, x_42); lean_dec(x_24); lean_dec(x_23); -lean_dec(x_44); -return x_48; +lean_dec(x_45); +return x_49; } else { -lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; uint8_t x_60; -lean_dec(x_44); -lean_dec(x_42); +lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; uint8_t x_61; +lean_dec(x_45); +lean_dec(x_43); lean_dec(x_26); lean_dec(x_24); lean_dec(x_23); lean_dec(x_5); -x_49 = l_Lean_indentExpr(x_43); -x_50 = l_Lean_Meta_rewrite___lambda__4___closed__4; -x_51 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_51, 0, x_50); -lean_ctor_set(x_51, 1, x_49); -x_52 = l_Lean_Meta_rewrite___lambda__4___closed__6; -x_53 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_53, 0, x_51); -lean_ctor_set(x_53, 1, x_52); -x_54 = l_Lean_indentExpr(x_25); -x_55 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_55, 0, x_53); -lean_ctor_set(x_55, 1, x_54); -x_56 = l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; -x_57 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_57, 0, x_55); -lean_ctor_set(x_57, 1, x_56); -x_58 = lean_box(0); -x_59 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_57, x_58, x_8, x_9, x_10, x_11, x_22); +x_50 = l_Lean_indentExpr(x_44); +x_51 = l_Lean_Meta_rewrite___lambda__4___closed__4; +x_52 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_52, 0, x_51); +lean_ctor_set(x_52, 1, x_50); +x_53 = l_Lean_Meta_rewrite___lambda__4___closed__6; +x_54 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_54, 0, x_52); +lean_ctor_set(x_54, 1, x_53); +x_55 = l_Lean_indentExpr(x_25); +x_56 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_56, 0, x_54); +lean_ctor_set(x_56, 1, x_55); +x_57 = l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; +x_58 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_58, 0, x_56); +lean_ctor_set(x_58, 1, x_57); +x_59 = lean_box(0); +x_60 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_58, x_59, x_8, x_9, x_10, x_11, x_42); lean_dec(x_11); lean_dec(x_10); lean_dec(x_9); lean_dec(x_8); -x_60 = !lean_is_exclusive(x_59); -if (x_60 == 0) +x_61 = !lean_is_exclusive(x_60); +if (x_61 == 0) { -return x_59; +return x_60; } else { -lean_object* x_61; lean_object* x_62; lean_object* x_63; -x_61 = lean_ctor_get(x_59, 0); -x_62 = lean_ctor_get(x_59, 1); +lean_object* x_62; lean_object* x_63; lean_object* x_64; +x_62 = lean_ctor_get(x_60, 0); +x_63 = lean_ctor_get(x_60, 1); +lean_inc(x_63); lean_inc(x_62); -lean_inc(x_61); -lean_dec(x_59); -x_63 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_63, 0, x_61); -lean_ctor_set(x_63, 1, x_62); -return x_63; -} -} -} -else -{ -lean_object* x_64; -lean_dec(x_25); -lean_inc(x_11); -lean_inc(x_10); -lean_inc(x_9); -lean_inc(x_8); -x_64 = l___private_Lean_Meta_AppBuilder_0__Lean_Meta_mkEqSymmImp(x_26, x_8, x_9, x_10, x_11, x_22); -if (lean_obj_tag(x_64) == 0) -{ -lean_object* x_65; lean_object* x_66; lean_object* x_67; -x_65 = lean_ctor_get(x_64, 0); -lean_inc(x_65); -x_66 = lean_ctor_get(x_64, 1); -lean_inc(x_66); -lean_dec(x_64); -lean_inc(x_11); -lean_inc(x_10); -lean_inc(x_9); -lean_inc(x_8); -lean_inc(x_43); -lean_inc(x_44); -x_67 = l___private_Lean_Meta_AppBuilder_0__Lean_Meta_mkEqImp(x_44, x_43, x_8, x_9, x_10, x_11, x_66); -if (lean_obj_tag(x_67) == 0) -{ -lean_object* x_68; lean_object* x_69; lean_object* x_70; uint8_t x_71; -x_68 = lean_ctor_get(x_67, 0); -lean_inc(x_68); -x_69 = lean_ctor_get(x_67, 1); -lean_inc(x_69); -lean_dec(x_67); -x_70 = l_Lean_Expr_getAppFn(x_44); -x_71 = l_Lean_Expr_isMVar(x_70); -lean_dec(x_70); -if (x_71 == 0) -{ -lean_object* x_72; lean_object* x_73; -lean_dec(x_68); -x_72 = lean_box(0); -x_73 = l_Lean_Meta_rewrite___lambda__3(x_5, x_44, x_6, x_43, x_42, x_65, x_2, x_3, x_23, x_24, x_72, x_8, x_9, x_10, x_11, x_69); -lean_dec(x_24); -lean_dec(x_23); -lean_dec(x_43); -return x_73; -} -else -{ -lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; uint8_t x_85; -lean_dec(x_65); -lean_dec(x_43); -lean_dec(x_42); -lean_dec(x_24); -lean_dec(x_23); -lean_dec(x_5); -x_74 = l_Lean_indentExpr(x_44); -x_75 = l_Lean_Meta_rewrite___lambda__4___closed__4; -x_76 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_76, 0, x_75); -lean_ctor_set(x_76, 1, x_74); -x_77 = l_Lean_Meta_rewrite___lambda__4___closed__6; -x_78 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_78, 0, x_76); -lean_ctor_set(x_78, 1, x_77); -x_79 = l_Lean_indentExpr(x_68); -x_80 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_80, 0, x_78); -lean_ctor_set(x_80, 1, x_79); -x_81 = l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; -x_82 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_82, 0, x_80); -lean_ctor_set(x_82, 1, x_81); -x_83 = lean_box(0); -x_84 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_82, x_83, x_8, x_9, x_10, x_11, x_69); -lean_dec(x_11); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_8); -x_85 = !lean_is_exclusive(x_84); -if (x_85 == 0) -{ -return x_84; -} -else -{ -lean_object* x_86; lean_object* x_87; lean_object* x_88; -x_86 = lean_ctor_get(x_84, 0); -x_87 = lean_ctor_get(x_84, 1); -lean_inc(x_87); -lean_inc(x_86); -lean_dec(x_84); -x_88 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_88, 0, x_86); -lean_ctor_set(x_88, 1, x_87); -return x_88; -} -} -} -else -{ -uint8_t x_89; -lean_dec(x_65); -lean_dec(x_44); -lean_dec(x_43); -lean_dec(x_42); -lean_dec(x_24); -lean_dec(x_23); -lean_dec(x_11); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_5); -lean_dec(x_3); -lean_dec(x_2); -x_89 = !lean_is_exclusive(x_67); -if (x_89 == 0) -{ -return x_67; -} -else -{ -lean_object* x_90; lean_object* x_91; lean_object* x_92; -x_90 = lean_ctor_get(x_67, 0); -x_91 = lean_ctor_get(x_67, 1); -lean_inc(x_91); -lean_inc(x_90); -lean_dec(x_67); -x_92 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_92, 0, x_90); -lean_ctor_set(x_92, 1, x_91); -return x_92; -} -} -} -else -{ -uint8_t x_93; -lean_dec(x_44); -lean_dec(x_43); -lean_dec(x_42); -lean_dec(x_24); -lean_dec(x_23); -lean_dec(x_11); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_5); -lean_dec(x_3); -lean_dec(x_2); -x_93 = !lean_is_exclusive(x_64); -if (x_93 == 0) -{ +lean_dec(x_60); +x_64 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_64, 0, x_62); +lean_ctor_set(x_64, 1, x_63); return x_64; } +} +} else { -lean_object* x_94; lean_object* x_95; lean_object* x_96; -x_94 = lean_ctor_get(x_64, 0); -x_95 = lean_ctor_get(x_64, 1); +lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; +lean_dec(x_25); +x_65 = lean_ctor_get(x_30, 1); +lean_inc(x_65); +lean_dec(x_30); +x_66 = lean_ctor_get(x_40, 0); +lean_inc(x_66); +lean_dec(x_40); +x_67 = lean_ctor_get(x_41, 0); +lean_inc(x_67); +x_68 = lean_ctor_get(x_41, 1); +lean_inc(x_68); +lean_dec(x_41); +lean_inc(x_11); +lean_inc(x_10); +lean_inc(x_9); +lean_inc(x_8); +x_69 = l___private_Lean_Meta_AppBuilder_0__Lean_Meta_mkEqSymmImp(x_26, x_8, x_9, x_10, x_11, x_65); +if (lean_obj_tag(x_69) == 0) +{ +lean_object* x_70; lean_object* x_71; lean_object* x_72; +x_70 = lean_ctor_get(x_69, 0); +lean_inc(x_70); +x_71 = lean_ctor_get(x_69, 1); +lean_inc(x_71); +lean_dec(x_69); +lean_inc(x_11); +lean_inc(x_10); +lean_inc(x_9); +lean_inc(x_8); +lean_inc(x_67); +lean_inc(x_68); +x_72 = l___private_Lean_Meta_AppBuilder_0__Lean_Meta_mkEqImp(x_68, x_67, x_8, x_9, x_10, x_11, x_71); +if (lean_obj_tag(x_72) == 0) +{ +lean_object* x_73; lean_object* x_74; lean_object* x_75; uint8_t x_76; +x_73 = lean_ctor_get(x_72, 0); +lean_inc(x_73); +x_74 = lean_ctor_get(x_72, 1); +lean_inc(x_74); +lean_dec(x_72); +x_75 = l_Lean_Expr_getAppFn(x_68); +x_76 = l_Lean_Expr_isMVar(x_75); +lean_dec(x_75); +if (x_76 == 0) +{ +lean_object* x_77; lean_object* x_78; +lean_dec(x_73); +x_77 = lean_box(0); +x_78 = l_Lean_Meta_rewrite___lambda__3(x_5, x_68, x_6, x_67, x_66, x_70, x_2, x_3, x_23, x_24, x_77, x_8, x_9, x_10, x_11, x_74); +lean_dec(x_24); +lean_dec(x_23); +lean_dec(x_67); +return x_78; +} +else +{ +lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; uint8_t x_90; +lean_dec(x_70); +lean_dec(x_67); +lean_dec(x_66); +lean_dec(x_24); +lean_dec(x_23); +lean_dec(x_5); +x_79 = l_Lean_indentExpr(x_68); +x_80 = l_Lean_Meta_rewrite___lambda__4___closed__4; +x_81 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_81, 0, x_80); +lean_ctor_set(x_81, 1, x_79); +x_82 = l_Lean_Meta_rewrite___lambda__4___closed__6; +x_83 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_83, 0, x_81); +lean_ctor_set(x_83, 1, x_82); +x_84 = l_Lean_indentExpr(x_73); +x_85 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_85, 0, x_83); +lean_ctor_set(x_85, 1, x_84); +x_86 = l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; +x_87 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_87, 0, x_85); +lean_ctor_set(x_87, 1, x_86); +x_88 = lean_box(0); +x_89 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_87, x_88, x_8, x_9, x_10, x_11, x_74); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +x_90 = !lean_is_exclusive(x_89); +if (x_90 == 0) +{ +return x_89; +} +else +{ +lean_object* x_91; lean_object* x_92; lean_object* x_93; +x_91 = lean_ctor_get(x_89, 0); +x_92 = lean_ctor_get(x_89, 1); +lean_inc(x_92); +lean_inc(x_91); +lean_dec(x_89); +x_93 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_93, 0, x_91); +lean_ctor_set(x_93, 1, x_92); +return x_93; +} +} +} +else +{ +uint8_t x_94; +lean_dec(x_70); +lean_dec(x_68); +lean_dec(x_67); +lean_dec(x_66); +lean_dec(x_24); +lean_dec(x_23); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_94 = !lean_is_exclusive(x_72); +if (x_94 == 0) +{ +return x_72; +} +else +{ +lean_object* x_95; lean_object* x_96; lean_object* x_97; +x_95 = lean_ctor_get(x_72, 0); +x_96 = lean_ctor_get(x_72, 1); +lean_inc(x_96); lean_inc(x_95); -lean_inc(x_94); -lean_dec(x_64); -x_96 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_96, 0, x_94); -lean_ctor_set(x_96, 1, x_95); -return x_96; +lean_dec(x_72); +x_97 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_97, 0, x_95); +lean_ctor_set(x_97, 1, x_96); +return x_97; +} +} +} +else +{ +uint8_t x_98; +lean_dec(x_68); +lean_dec(x_67); +lean_dec(x_66); +lean_dec(x_24); +lean_dec(x_23); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_98 = !lean_is_exclusive(x_69); +if (x_98 == 0) +{ +return x_69; +} +else +{ +lean_object* x_99; lean_object* x_100; lean_object* x_101; +x_99 = lean_ctor_get(x_69, 0); +x_100 = lean_ctor_get(x_69, 1); +lean_inc(x_100); +lean_inc(x_99); +lean_dec(x_69); +x_101 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_101, 0, x_99); +lean_ctor_set(x_101, 1, x_100); +return x_101; } } } @@ -1868,275 +1899,305 @@ return x_96; } else { -lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; -x_97 = l_Lean_Expr_appFn_x21(x_25); -x_98 = l_Lean_Expr_appArg_x21(x_97); -lean_dec(x_97); -x_99 = l_Lean_Expr_appArg_x21(x_25); +uint8_t x_102; +lean_dec(x_26); +lean_dec(x_25); +lean_dec(x_24); +lean_dec(x_23); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_102 = !lean_is_exclusive(x_30); +if (x_102 == 0) +{ +return x_30; +} +else +{ +lean_object* x_103; lean_object* x_104; lean_object* x_105; +x_103 = lean_ctor_get(x_30, 0); +x_104 = lean_ctor_get(x_30, 1); +lean_inc(x_104); +lean_inc(x_103); +lean_dec(x_30); +x_105 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_105, 0, x_103); +lean_ctor_set(x_105, 1, x_104); +return x_105; +} +} +} +else +{ +lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; +x_106 = l_Lean_Expr_appFn_x21(x_25); +x_107 = l_Lean_Expr_appArg_x21(x_106); +lean_dec(x_106); +x_108 = l_Lean_Expr_appArg_x21(x_25); lean_dec(x_25); lean_inc(x_11); lean_inc(x_10); lean_inc(x_9); lean_inc(x_8); -lean_inc(x_99); -lean_inc(x_98); -x_100 = l___private_Lean_Meta_AppBuilder_0__Lean_Meta_mkEqImp(x_98, x_99, x_8, x_9, x_10, x_11, x_22); -if (lean_obj_tag(x_100) == 0) +lean_inc(x_108); +lean_inc(x_107); +x_109 = l___private_Lean_Meta_AppBuilder_0__Lean_Meta_mkEqImp(x_107, x_108, x_8, x_9, x_10, x_11, x_22); +if (lean_obj_tag(x_109) == 0) { -lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; uint8_t x_107; -x_101 = lean_ctor_get(x_100, 0); -lean_inc(x_101); -x_102 = lean_ctor_get(x_100, 1); -lean_inc(x_102); -lean_dec(x_100); -x_103 = l_Lean_Meta_rewrite___lambda__4___closed__9; -x_104 = l_Lean_mkApp3(x_103, x_98, x_99, x_26); -x_105 = l_Lean_Expr_eq_x3f___closed__2; -x_106 = lean_unsigned_to_nat(3u); -x_107 = l_Lean_Expr_isAppOfArity(x_101, x_105, x_106); -if (x_107 == 0) +lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; +x_110 = lean_ctor_get(x_109, 0); +lean_inc(x_110); +x_111 = lean_ctor_get(x_109, 1); +lean_inc(x_111); +lean_dec(x_109); +x_112 = l_Lean_Meta_rewrite___lambda__4___closed__9; +x_113 = l_Lean_mkApp3(x_112, x_107, x_108, x_26); +lean_inc(x_11); +lean_inc(x_10); +lean_inc(x_9); +lean_inc(x_8); +lean_inc(x_110); +x_114 = l_Lean_Meta_matchEq_x3f(x_110, x_8, x_9, x_10, x_11, x_111); +if (lean_obj_tag(x_114) == 0) { -lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; -lean_dec(x_104); +lean_object* x_115; +x_115 = lean_ctor_get(x_114, 0); +lean_inc(x_115); +if (lean_obj_tag(x_115) == 0) +{ +lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; +lean_dec(x_113); lean_dec(x_24); lean_dec(x_23); lean_dec(x_5); -x_108 = l_Lean_indentExpr(x_101); -x_109 = l_Lean_Meta_rewrite___lambda__4___closed__2; -x_110 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_110, 0, x_109); -lean_ctor_set(x_110, 1, x_108); -x_111 = l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; -x_112 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_112, 0, x_110); -lean_ctor_set(x_112, 1, x_111); -x_113 = lean_box(0); -x_114 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_112, x_113, x_8, x_9, x_10, x_11, x_102); +x_116 = lean_ctor_get(x_114, 1); +lean_inc(x_116); +lean_dec(x_114); +x_117 = l_Lean_indentExpr(x_110); +x_118 = l_Lean_Meta_rewrite___lambda__4___closed__2; +x_119 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_119, 0, x_118); +lean_ctor_set(x_119, 1, x_117); +x_120 = l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; +x_121 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_121, 0, x_119); +lean_ctor_set(x_121, 1, x_120); +x_122 = lean_box(0); +x_123 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_121, x_122, x_8, x_9, x_10, x_11, x_116); lean_dec(x_11); lean_dec(x_10); lean_dec(x_9); lean_dec(x_8); -return x_114; -} -else -{ -lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; -x_115 = l_Lean_Expr_appFn_x21(x_101); -x_116 = l_Lean_Expr_appFn_x21(x_115); -x_117 = l_Lean_Expr_appArg_x21(x_116); -lean_dec(x_116); -x_118 = l_Lean_Expr_appArg_x21(x_115); -lean_dec(x_115); -x_119 = l_Lean_Expr_appArg_x21(x_101); -if (x_4 == 0) -{ -lean_object* x_120; uint8_t x_121; -x_120 = l_Lean_Expr_getAppFn(x_118); -x_121 = l_Lean_Expr_isMVar(x_120); -lean_dec(x_120); -if (x_121 == 0) -{ -lean_object* x_122; lean_object* x_123; -lean_dec(x_101); -x_122 = lean_box(0); -x_123 = l_Lean_Meta_rewrite___lambda__3(x_5, x_118, x_6, x_119, x_117, x_104, x_2, x_3, x_23, x_24, x_122, x_8, x_9, x_10, x_11, x_102); -lean_dec(x_24); -lean_dec(x_23); -lean_dec(x_119); return x_123; } else { -lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; uint8_t x_135; -lean_dec(x_119); -lean_dec(x_117); -lean_dec(x_104); +lean_object* x_124; lean_object* x_125; +x_124 = lean_ctor_get(x_115, 0); +lean_inc(x_124); +lean_dec(x_115); +x_125 = lean_ctor_get(x_124, 1); +lean_inc(x_125); +if (x_4 == 0) +{ +lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; uint8_t x_131; +x_126 = lean_ctor_get(x_114, 1); +lean_inc(x_126); +lean_dec(x_114); +x_127 = lean_ctor_get(x_124, 0); +lean_inc(x_127); +lean_dec(x_124); +x_128 = lean_ctor_get(x_125, 0); +lean_inc(x_128); +x_129 = lean_ctor_get(x_125, 1); +lean_inc(x_129); +lean_dec(x_125); +x_130 = l_Lean_Expr_getAppFn(x_128); +x_131 = l_Lean_Expr_isMVar(x_130); +lean_dec(x_130); +if (x_131 == 0) +{ +lean_object* x_132; lean_object* x_133; +lean_dec(x_110); +x_132 = lean_box(0); +x_133 = l_Lean_Meta_rewrite___lambda__3(x_5, x_128, x_6, x_129, x_127, x_113, x_2, x_3, x_23, x_24, x_132, x_8, x_9, x_10, x_11, x_126); lean_dec(x_24); lean_dec(x_23); -lean_dec(x_5); -x_124 = l_Lean_indentExpr(x_118); -x_125 = l_Lean_Meta_rewrite___lambda__4___closed__4; -x_126 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_126, 0, x_125); -lean_ctor_set(x_126, 1, x_124); -x_127 = l_Lean_Meta_rewrite___lambda__4___closed__6; -x_128 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_128, 0, x_126); -lean_ctor_set(x_128, 1, x_127); -x_129 = l_Lean_indentExpr(x_101); -x_130 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_130, 0, x_128); -lean_ctor_set(x_130, 1, x_129); -x_131 = l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; -x_132 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_132, 0, x_130); -lean_ctor_set(x_132, 1, x_131); -x_133 = lean_box(0); -x_134 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_132, x_133, x_8, x_9, x_10, x_11, x_102); -lean_dec(x_11); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_8); -x_135 = !lean_is_exclusive(x_134); -if (x_135 == 0) -{ -return x_134; +lean_dec(x_129); +return x_133; } else { -lean_object* x_136; lean_object* x_137; lean_object* x_138; -x_136 = lean_ctor_get(x_134, 0); -x_137 = lean_ctor_get(x_134, 1); -lean_inc(x_137); -lean_inc(x_136); -lean_dec(x_134); -x_138 = lean_alloc_ctor(1, 2, 0); +lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; uint8_t x_145; +lean_dec(x_129); +lean_dec(x_127); +lean_dec(x_113); +lean_dec(x_24); +lean_dec(x_23); +lean_dec(x_5); +x_134 = l_Lean_indentExpr(x_128); +x_135 = l_Lean_Meta_rewrite___lambda__4___closed__4; +x_136 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_136, 0, x_135); +lean_ctor_set(x_136, 1, x_134); +x_137 = l_Lean_Meta_rewrite___lambda__4___closed__6; +x_138 = lean_alloc_ctor(10, 2, 0); lean_ctor_set(x_138, 0, x_136); lean_ctor_set(x_138, 1, x_137); -return x_138; -} -} +x_139 = l_Lean_indentExpr(x_110); +x_140 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_140, 0, x_138); +lean_ctor_set(x_140, 1, x_139); +x_141 = l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; +x_142 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_142, 0, x_140); +lean_ctor_set(x_142, 1, x_141); +x_143 = lean_box(0); +x_144 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_142, x_143, x_8, x_9, x_10, x_11, x_126); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +x_145 = !lean_is_exclusive(x_144); +if (x_145 == 0) +{ +return x_144; } else { -lean_object* x_139; -lean_dec(x_101); -lean_inc(x_11); -lean_inc(x_10); -lean_inc(x_9); -lean_inc(x_8); -x_139 = l___private_Lean_Meta_AppBuilder_0__Lean_Meta_mkEqSymmImp(x_104, x_8, x_9, x_10, x_11, x_102); -if (lean_obj_tag(x_139) == 0) -{ -lean_object* x_140; lean_object* x_141; lean_object* x_142; -x_140 = lean_ctor_get(x_139, 0); -lean_inc(x_140); -x_141 = lean_ctor_get(x_139, 1); -lean_inc(x_141); -lean_dec(x_139); -lean_inc(x_11); -lean_inc(x_10); -lean_inc(x_9); -lean_inc(x_8); -lean_inc(x_118); -lean_inc(x_119); -x_142 = l___private_Lean_Meta_AppBuilder_0__Lean_Meta_mkEqImp(x_119, x_118, x_8, x_9, x_10, x_11, x_141); -if (lean_obj_tag(x_142) == 0) -{ -lean_object* x_143; lean_object* x_144; lean_object* x_145; uint8_t x_146; -x_143 = lean_ctor_get(x_142, 0); -lean_inc(x_143); -x_144 = lean_ctor_get(x_142, 1); -lean_inc(x_144); -lean_dec(x_142); -x_145 = l_Lean_Expr_getAppFn(x_119); -x_146 = l_Lean_Expr_isMVar(x_145); -lean_dec(x_145); -if (x_146 == 0) -{ -lean_object* x_147; lean_object* x_148; -lean_dec(x_143); -x_147 = lean_box(0); -x_148 = l_Lean_Meta_rewrite___lambda__3(x_5, x_119, x_6, x_118, x_117, x_140, x_2, x_3, x_23, x_24, x_147, x_8, x_9, x_10, x_11, x_144); -lean_dec(x_24); -lean_dec(x_23); -lean_dec(x_118); +lean_object* x_146; lean_object* x_147; lean_object* x_148; +x_146 = lean_ctor_get(x_144, 0); +x_147 = lean_ctor_get(x_144, 1); +lean_inc(x_147); +lean_inc(x_146); +lean_dec(x_144); +x_148 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_148, 0, x_146); +lean_ctor_set(x_148, 1, x_147); return x_148; } +} +} else { -lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; uint8_t x_160; -lean_dec(x_140); -lean_dec(x_118); -lean_dec(x_117); -lean_dec(x_24); -lean_dec(x_23); -lean_dec(x_5); -x_149 = l_Lean_indentExpr(x_119); -x_150 = l_Lean_Meta_rewrite___lambda__4___closed__4; -x_151 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_151, 0, x_150); -lean_ctor_set(x_151, 1, x_149); -x_152 = l_Lean_Meta_rewrite___lambda__4___closed__6; -x_153 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_153, 0, x_151); -lean_ctor_set(x_153, 1, x_152); -x_154 = l_Lean_indentExpr(x_143); -x_155 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_155, 0, x_153); -lean_ctor_set(x_155, 1, x_154); -x_156 = l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; -x_157 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_157, 0, x_155); -lean_ctor_set(x_157, 1, x_156); -x_158 = lean_box(0); -x_159 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_157, x_158, x_8, x_9, x_10, x_11, x_144); -lean_dec(x_11); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_8); -x_160 = !lean_is_exclusive(x_159); +lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; +lean_dec(x_110); +x_149 = lean_ctor_get(x_114, 1); +lean_inc(x_149); +lean_dec(x_114); +x_150 = lean_ctor_get(x_124, 0); +lean_inc(x_150); +lean_dec(x_124); +x_151 = lean_ctor_get(x_125, 0); +lean_inc(x_151); +x_152 = lean_ctor_get(x_125, 1); +lean_inc(x_152); +lean_dec(x_125); +lean_inc(x_11); +lean_inc(x_10); +lean_inc(x_9); +lean_inc(x_8); +x_153 = l___private_Lean_Meta_AppBuilder_0__Lean_Meta_mkEqSymmImp(x_113, x_8, x_9, x_10, x_11, x_149); +if (lean_obj_tag(x_153) == 0) +{ +lean_object* x_154; lean_object* x_155; lean_object* x_156; +x_154 = lean_ctor_get(x_153, 0); +lean_inc(x_154); +x_155 = lean_ctor_get(x_153, 1); +lean_inc(x_155); +lean_dec(x_153); +lean_inc(x_11); +lean_inc(x_10); +lean_inc(x_9); +lean_inc(x_8); +lean_inc(x_151); +lean_inc(x_152); +x_156 = l___private_Lean_Meta_AppBuilder_0__Lean_Meta_mkEqImp(x_152, x_151, x_8, x_9, x_10, x_11, x_155); +if (lean_obj_tag(x_156) == 0) +{ +lean_object* x_157; lean_object* x_158; lean_object* x_159; uint8_t x_160; +x_157 = lean_ctor_get(x_156, 0); +lean_inc(x_157); +x_158 = lean_ctor_get(x_156, 1); +lean_inc(x_158); +lean_dec(x_156); +x_159 = l_Lean_Expr_getAppFn(x_152); +x_160 = l_Lean_Expr_isMVar(x_159); +lean_dec(x_159); if (x_160 == 0) { -return x_159; -} -else -{ -lean_object* x_161; lean_object* x_162; lean_object* x_163; -x_161 = lean_ctor_get(x_159, 0); -x_162 = lean_ctor_get(x_159, 1); -lean_inc(x_162); -lean_inc(x_161); -lean_dec(x_159); -x_163 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_163, 0, x_161); -lean_ctor_set(x_163, 1, x_162); -return x_163; -} -} -} -else -{ -uint8_t x_164; -lean_dec(x_140); -lean_dec(x_119); -lean_dec(x_118); -lean_dec(x_117); +lean_object* x_161; lean_object* x_162; +lean_dec(x_157); +x_161 = lean_box(0); +x_162 = l_Lean_Meta_rewrite___lambda__3(x_5, x_152, x_6, x_151, x_150, x_154, x_2, x_3, x_23, x_24, x_161, x_8, x_9, x_10, x_11, x_158); lean_dec(x_24); lean_dec(x_23); -lean_dec(x_11); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_5); -lean_dec(x_3); -lean_dec(x_2); -x_164 = !lean_is_exclusive(x_142); -if (x_164 == 0) -{ -return x_142; +lean_dec(x_151); +return x_162; } else { -lean_object* x_165; lean_object* x_166; lean_object* x_167; -x_165 = lean_ctor_get(x_142, 0); -x_166 = lean_ctor_get(x_142, 1); -lean_inc(x_166); -lean_inc(x_165); -lean_dec(x_142); -x_167 = lean_alloc_ctor(1, 2, 0); +lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; uint8_t x_174; +lean_dec(x_154); +lean_dec(x_151); +lean_dec(x_150); +lean_dec(x_24); +lean_dec(x_23); +lean_dec(x_5); +x_163 = l_Lean_indentExpr(x_152); +x_164 = l_Lean_Meta_rewrite___lambda__4___closed__4; +x_165 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_165, 0, x_164); +lean_ctor_set(x_165, 1, x_163); +x_166 = l_Lean_Meta_rewrite___lambda__4___closed__6; +x_167 = lean_alloc_ctor(10, 2, 0); lean_ctor_set(x_167, 0, x_165); lean_ctor_set(x_167, 1, x_166); -return x_167; +x_168 = l_Lean_indentExpr(x_157); +x_169 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_169, 0, x_167); +lean_ctor_set(x_169, 1, x_168); +x_170 = l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; +x_171 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_171, 0, x_169); +lean_ctor_set(x_171, 1, x_170); +x_172 = lean_box(0); +x_173 = l_Lean_Meta_throwTacticEx___rarg(x_2, x_3, x_171, x_172, x_8, x_9, x_10, x_11, x_158); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +x_174 = !lean_is_exclusive(x_173); +if (x_174 == 0) +{ +return x_173; +} +else +{ +lean_object* x_175; lean_object* x_176; lean_object* x_177; +x_175 = lean_ctor_get(x_173, 0); +x_176 = lean_ctor_get(x_173, 1); +lean_inc(x_176); +lean_inc(x_175); +lean_dec(x_173); +x_177 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_177, 0, x_175); +lean_ctor_set(x_177, 1, x_176); +return x_177; } } } else { -uint8_t x_168; -lean_dec(x_119); -lean_dec(x_118); -lean_dec(x_117); +uint8_t x_178; +lean_dec(x_154); +lean_dec(x_152); +lean_dec(x_151); +lean_dec(x_150); lean_dec(x_24); lean_dec(x_23); lean_dec(x_11); @@ -2146,23 +2207,58 @@ lean_dec(x_8); lean_dec(x_5); lean_dec(x_3); lean_dec(x_2); -x_168 = !lean_is_exclusive(x_139); -if (x_168 == 0) +x_178 = !lean_is_exclusive(x_156); +if (x_178 == 0) { -return x_139; +return x_156; } else { -lean_object* x_169; lean_object* x_170; lean_object* x_171; -x_169 = lean_ctor_get(x_139, 0); -x_170 = lean_ctor_get(x_139, 1); -lean_inc(x_170); -lean_inc(x_169); -lean_dec(x_139); -x_171 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_171, 0, x_169); -lean_ctor_set(x_171, 1, x_170); -return x_171; +lean_object* x_179; lean_object* x_180; lean_object* x_181; +x_179 = lean_ctor_get(x_156, 0); +x_180 = lean_ctor_get(x_156, 1); +lean_inc(x_180); +lean_inc(x_179); +lean_dec(x_156); +x_181 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_181, 0, x_179); +lean_ctor_set(x_181, 1, x_180); +return x_181; +} +} +} +else +{ +uint8_t x_182; +lean_dec(x_152); +lean_dec(x_151); +lean_dec(x_150); +lean_dec(x_24); +lean_dec(x_23); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_182 = !lean_is_exclusive(x_153); +if (x_182 == 0) +{ +return x_153; +} +else +{ +lean_object* x_183; lean_object* x_184; lean_object* x_185; +x_183 = lean_ctor_get(x_153, 0); +x_184 = lean_ctor_get(x_153, 1); +lean_inc(x_184); +lean_inc(x_183); +lean_dec(x_153); +x_185 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_185, 0, x_183); +lean_ctor_set(x_185, 1, x_184); +return x_185; } } } @@ -2170,9 +2266,43 @@ return x_171; } else { -uint8_t x_172; -lean_dec(x_99); -lean_dec(x_98); +uint8_t x_186; +lean_dec(x_113); +lean_dec(x_110); +lean_dec(x_24); +lean_dec(x_23); +lean_dec(x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_5); +lean_dec(x_3); +lean_dec(x_2); +x_186 = !lean_is_exclusive(x_114); +if (x_186 == 0) +{ +return x_114; +} +else +{ +lean_object* x_187; lean_object* x_188; lean_object* x_189; +x_187 = lean_ctor_get(x_114, 0); +x_188 = lean_ctor_get(x_114, 1); +lean_inc(x_188); +lean_inc(x_187); +lean_dec(x_114); +x_189 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_189, 0, x_187); +lean_ctor_set(x_189, 1, x_188); +return x_189; +} +} +} +else +{ +uint8_t x_190; +lean_dec(x_108); +lean_dec(x_107); lean_dec(x_26); lean_dec(x_24); lean_dec(x_23); @@ -2183,30 +2313,30 @@ lean_dec(x_8); lean_dec(x_5); lean_dec(x_3); lean_dec(x_2); -x_172 = !lean_is_exclusive(x_100); -if (x_172 == 0) +x_190 = !lean_is_exclusive(x_109); +if (x_190 == 0) { -return x_100; +return x_109; } else { -lean_object* x_173; lean_object* x_174; lean_object* x_175; -x_173 = lean_ctor_get(x_100, 0); -x_174 = lean_ctor_get(x_100, 1); -lean_inc(x_174); -lean_inc(x_173); -lean_dec(x_100); -x_175 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_175, 0, x_173); -lean_ctor_set(x_175, 1, x_174); -return x_175; +lean_object* x_191; lean_object* x_192; lean_object* x_193; +x_191 = lean_ctor_get(x_109, 0); +x_192 = lean_ctor_get(x_109, 1); +lean_inc(x_192); +lean_inc(x_191); +lean_dec(x_109); +x_193 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_193, 0, x_191); +lean_ctor_set(x_193, 1, x_192); +return x_193; } } } } else { -uint8_t x_176; +uint8_t x_194; lean_dec(x_11); lean_dec(x_10); lean_dec(x_9); @@ -2215,29 +2345,29 @@ lean_dec(x_5); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_176 = !lean_is_exclusive(x_19); -if (x_176 == 0) +x_194 = !lean_is_exclusive(x_19); +if (x_194 == 0) { return x_19; } else { -lean_object* x_177; lean_object* x_178; lean_object* x_179; -x_177 = lean_ctor_get(x_19, 0); -x_178 = lean_ctor_get(x_19, 1); -lean_inc(x_178); -lean_inc(x_177); +lean_object* x_195; lean_object* x_196; lean_object* x_197; +x_195 = lean_ctor_get(x_19, 0); +x_196 = lean_ctor_get(x_19, 1); +lean_inc(x_196); +lean_inc(x_195); lean_dec(x_19); -x_179 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_179, 0, x_177); -lean_ctor_set(x_179, 1, x_178); -return x_179; +x_197 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_197, 0, x_195); +lean_ctor_set(x_197, 1, x_196); +return x_197; } } } else { -uint8_t x_180; +uint8_t x_198; lean_dec(x_11); lean_dec(x_10); lean_dec(x_9); @@ -2246,23 +2376,23 @@ lean_dec(x_5); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_180 = !lean_is_exclusive(x_13); -if (x_180 == 0) +x_198 = !lean_is_exclusive(x_13); +if (x_198 == 0) { return x_13; } else { -lean_object* x_181; lean_object* x_182; lean_object* x_183; -x_181 = lean_ctor_get(x_13, 0); -x_182 = lean_ctor_get(x_13, 1); -lean_inc(x_182); -lean_inc(x_181); +lean_object* x_199; lean_object* x_200; lean_object* x_201; +x_199 = lean_ctor_get(x_13, 0); +x_200 = lean_ctor_get(x_13, 1); +lean_inc(x_200); +lean_inc(x_199); lean_dec(x_13); -x_183 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_183, 0, x_181); -lean_ctor_set(x_183, 1, x_182); -return x_183; +x_201 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_201, 0, x_199); +lean_ctor_set(x_201, 1, x_200); +return x_201; } } } @@ -2396,6 +2526,7 @@ return x_12; } lean_object* initialize_Init(lean_object*); lean_object* initialize_Lean_Meta_AppBuilder(lean_object*); +lean_object* initialize_Lean_Meta_MatchUtil(lean_object*); lean_object* initialize_Lean_Meta_KAbstract(lean_object*); lean_object* initialize_Lean_Meta_Check(lean_object*); lean_object* initialize_Lean_Meta_Tactic_Apply(lean_object*); @@ -2410,6 +2541,9 @@ lean_dec_ref(res); res = initialize_Lean_Meta_AppBuilder(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +res = initialize_Lean_Meta_MatchUtil(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); res = initialize_Lean_Meta_KAbstract(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); diff --git a/stage0/stdlib/Lean/Parser/Do.c b/stage0/stdlib/Lean/Parser/Do.c index a4296300e1..207b0ccb59 100644 --- a/stage0/stdlib/Lean/Parser/Do.c +++ b/stage0/stdlib/Lean/Parser/Do.c @@ -20,6 +20,7 @@ lean_object* l_Lean_PrettyPrinter_Parenthesizer_visitToken___rarg(lean_object*, lean_object* l___regBuiltin_Lean_Parser_Term_doBreak_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_doExpr___closed__1; extern lean_object* l_Lean_Parser_Term_subtype_parenthesizer___closed__6; +lean_object* l_Lean_Parser_Term_termReturn___closed__1; lean_object* l_Lean_Parser_Term_liftMethod_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doSeqBracketed_formatter___closed__2; lean_object* l_Lean_Parser_Term_doIf_parenthesizer___closed__9; @@ -46,6 +47,8 @@ lean_object* l_Lean_Parser_Term_doIdDecl___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_doReassignArrow___elambda__1___closed__6; lean_object* l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_optIdent___closed__3; +lean_object* l_Lean_Parser_Term_termTry___closed__2; +lean_object* l_Lean_Parser_Term_termUnless___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_doIdDecl___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_doPatDecl___closed__11; @@ -85,6 +88,7 @@ lean_object* l_Lean_Parser_Term_doIf_formatter___closed__20; lean_object* l_Lean_Parser_Term_liftMethod___elambda__1___closed__6; extern lean_object* l_Lean_nullKind; lean_object* l_Lean_Parser_Term_doMatch_formatter___closed__6; +lean_object* l_Lean_Parser_Term_termTry___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_doReassign___elambda__1___closed__1; lean_object* l___regBuiltinParser_Lean_Parser_Term_doHave(lean_object*); extern lean_object* l_Lean_Parser_Term_letrec___elambda__1___closed__6; @@ -93,6 +97,7 @@ extern lean_object* l_Lean_Parser_leadPrec; lean_object* l_Lean_Parser_Term_doReassignArrow___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_doFor___elambda__1___closed__9; lean_object* l_Lean_Parser_Term_doExpr___closed__2; +lean_object* l_Lean_Parser_Term_termFor_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_matchAlts___closed__13; lean_object* l_Lean_Parser_Term_doTry___closed__4; lean_object* l_Lean_Parser_Term_doLetArrow___closed__1; @@ -130,9 +135,11 @@ lean_object* l_Lean_Parser_Term_doReassignArrow___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_doFor_formatter___closed__6; lean_object* l_Lean_Parser_Term_doCatchMatch_formatter___closed__2; lean_object* l_Lean_Parser_Term_doCatch___closed__4; +lean_object* l_Lean_Parser_Term_termUnless_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doMatch; lean_object* l_Lean_Parser_Term_doUnless_parenthesizer___closed__6; lean_object* l_Lean_Parser_Term_doIf_formatter___closed__12; +lean_object* l_Lean_Parser_Term_termReturn___closed__2; lean_object* l_Lean_Parser_Term_doMatchAlts___closed__1; lean_object* l_Lean_Parser_Term_doFinally___elambda__1___closed__7; lean_object* l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -148,6 +155,7 @@ lean_object* l_Lean_Parser_Term_doMatch_parenthesizer(lean_object*, lean_object* extern lean_object* l___regBuiltin_Lean_Parser_Term_ident_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_doReturn___closed__4; lean_object* l_Lean_Parser_Term_do___closed__3; +lean_object* l___regBuiltin_Lean_Parser_Term_termTry_formatter___closed__1; lean_object* l_Lean_Parser_Term_doMatch_parenthesizer___closed__7; lean_object* l_Lean_Parser_Term_doPatDecl___elambda__1___closed__5; extern lean_object* l_Lean_Parser_Term_structInst_parenthesizer___closed__2; @@ -157,12 +165,15 @@ lean_object* l_Lean_Parser_Term_doReassignArrow___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_doPatDecl___elambda__1___closed__10; lean_object* l_Lean_Parser_group_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doAssert; +lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__34; lean_object* l_Lean_Parser_Term_doIf_parenthesizer___closed__17; lean_object* l___regBuiltinParser_Lean_Parser_Term_doTry(lean_object*); extern lean_object* l_Lean_Parser_Term_match___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_doDbgTrace___closed__4; lean_object* l_Lean_Parser_Term_doCatchMatch_formatter___closed__1; +lean_object* l_Lean_Parser_Term_termTry___closed__4; extern lean_object* l_Lean_Parser_Term_letPatDecl; +lean_object* l_Lean_Parser_Term_termUnless_parenthesizer___closed__2; lean_object* l_Lean_Parser_Term_doPatDecl___elambda__1___closed__14; lean_object* l___regBuiltin_Lean_Parser_Term_doLetArrow_parenthesizer(lean_object*); lean_object* l_Lean_Parser_Term_doFinally___closed__5; @@ -182,6 +193,7 @@ lean_object* l_Lean_Parser_Term_doUnless_parenthesizer___closed__3; lean_object* l_Lean_Parser_Term_doSeqIndent___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_doAssert_formatter___closed__1; lean_object* l_Lean_Parser_Term_doIf___closed__21; +lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__33; lean_object* l_Lean_Parser_Term_doTry___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_doElem_quot___elambda__1___closed__6; extern lean_object* l_Lean_Parser_Term_dbgTrace_formatter___closed__5; @@ -198,6 +210,7 @@ lean_object* l_Lean_Parser_Term_doLetRec___elambda__1___closed__8; lean_object* l_Lean_Parser_Term_doFor___closed__9; lean_object* l_Lean_Parser_Term_doAssert_formatter___closed__2; lean_object* l_Lean_Parser_Term_doTry_formatter___closed__9; +lean_object* l_Lean_Parser_Term_termUnless___closed__3; extern lean_object* l_Lean_Parser_Term_if_parenthesizer___closed__3; lean_object* l_Lean_Parser_Term_doIf___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_doBreak___elambda__1(lean_object*, lean_object*); @@ -228,9 +241,12 @@ lean_object* l_Lean_Parser_Term_doUnless___closed__2; lean_object* l_Lean_Parser_Term_doMatchAlts___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_doElem_quot_parenthesizer___closed__4; lean_object* l_Lean_Parser_Term_doIf___elambda__1___closed__18; +lean_object* l_Lean_Parser_Term_termReturn___elambda__1___closed__5; lean_object* l___regBuiltinParser_Lean_Parser_Term_do(lean_object*); +lean_object* l_Lean_Parser_Term_termUnless___closed__5; lean_object* l_Lean_Parser_Term_doElem_quot___elambda__1___closed__4; lean_object* l_Lean_PrettyPrinter_Parenthesizer_withoutPosition_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_termUnless___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_doTry___closed__8; lean_object* l_Lean_Parser_Term_doPatDecl_parenthesizer___closed__7; lean_object* l_Lean_Parser_Term_doIdDecl___closed__5; @@ -242,16 +258,20 @@ lean_object* l_Lean_Parser_Term_liftMethod___elambda__1___closed__2; extern lean_object* l_Lean_Parser_Tactic_tacticSeqBracketed_formatter___closed__2; lean_object* l_Lean_Parser_Term_doCatchMatch_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doTry_formatter___closed__4; +lean_object* l_Lean_Parser_Term_termTry___elambda__1___closed__2; lean_object* l_Lean_Parser_doElemParser_formatter(lean_object*); lean_object* l_Lean_Parser_orelseFn(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_registerBuiltinDynamicParserAttribute(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__28; lean_object* l_Lean_Parser_Term_doLet___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__14; lean_object* l_Lean_Parser_Term_doTry_parenthesizer___closed__12; lean_object* l_Lean_Parser_Term_doHave___elambda__1___closed__8; lean_object* l_Lean_Parser_Term_doElem_quot_formatter___closed__3; lean_object* l_Lean_Parser_Term_doCatchMatch___closed__5; +lean_object* l___regBuiltin_Lean_Parser_Term_termUnless_formatter___closed__1; lean_object* l_Lean_Parser_Term_doTry_formatter___closed__8; +lean_object* l_Lean_Parser_Term_termReturn___closed__4; extern lean_object* l_Lean_Parser_Term_let_formatter___closed__2; lean_object* l_Lean_Parser_Term_doPatDecl_formatter___closed__9; lean_object* l_Lean_Parser_Term_doIf___elambda__1___closed__15; @@ -290,6 +310,7 @@ lean_object* lean_string_append(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doIdDecl_formatter___closed__1; lean_object* l_Lean_Parser_Term_doIf___closed__13; lean_object* l_Lean_Parser_Term_doReassign___closed__1; +lean_object* l_Lean_Parser_Term_termUnless___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_doFor___elambda__1___closed__15; lean_object* l_Lean_Parser_Term_doFinally___closed__6; lean_object* l_Lean_Parser_Term_doIf___closed__1; @@ -304,11 +325,13 @@ lean_object* l___regBuiltin_Lean_Parser_Term_doReturn_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_doCatch___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_doUnless___closed__7; lean_object* l_Lean_Parser_Term_doBreak___elambda__1___closed__1; +lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__25; lean_object* l_Lean_Parser_Term_doTry___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_doIf_formatter___closed__10; lean_object* l_Lean_Parser_Term_elseIf_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_PrettyPrinter_Formatter_try_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Parser_Term_doLet_parenthesizer___closed__1; +lean_object* l_Lean_Parser_Term_termFor_formatter___closed__1; lean_object* l_Lean_Parser_Term_doElem_quot; lean_object* l_Lean_Parser_Term_doCatchMatch_parenthesizer___closed__3; lean_object* l_Lean_Parser_Term_doUnless_parenthesizer___closed__5; @@ -320,11 +343,13 @@ lean_object* l_Lean_Parser_Term_doUnless___elambda__1___closed__16; lean_object* l_Lean_Parser_Term_doReassign___closed__2; lean_object* l_Lean_Parser_checkPrecFn___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doCatch_parenthesizer___closed__8; +lean_object* l_Lean_Parser_Term_termReturn___closed__5; extern lean_object* l_Lean_Parser_Term_letRecDecls___closed__5; lean_object* l_Lean_Parser_Term_doCatchMatch___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_doReturn___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_doReassign_formatter___closed__4; lean_object* l_Lean_Parser_Term_doAssert___closed__2; +lean_object* l_Lean_Parser_Term_termUnless_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_group_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doMatchAlt___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_doSeqBracketed___elambda__1___closed__6; @@ -333,6 +358,7 @@ lean_object* l_Lean_Parser_Term_doSeqBracketed___closed__3; lean_object* l_Lean_Parser_Term_doSeqBracketed_formatter___closed__9; lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAntiquot_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__29; lean_object* l_Lean_Parser_leadingNode_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doDbgTrace___closed__2; lean_object* l_Lean_Parser_Term_liftMethod___closed__4; @@ -352,6 +378,7 @@ lean_object* l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer(lean_objec lean_object* l_Lean_Parser_Term_doFor___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_liftMethod___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_doContinue_formatter___closed__1; +lean_object* l_Lean_Parser_Term_termFor_formatter___closed__2; lean_object* l_Lean_Parser_Term_liftMethod_parenthesizer___closed__3; lean_object* l_Lean_Parser_Term_doReturn_formatter___closed__2; lean_object* l_Lean_Parser_Term_doElem_quot_formatter___closed__6; @@ -387,6 +414,7 @@ lean_object* l_Lean_Parser_Term_doUnless___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_doAssert___elambda__1___closed__5; extern lean_object* l_Lean_Parser_Term_match_parenthesizer___closed__4; lean_object* l_Lean_Parser_Term_doReturn_parenthesizer___closed__6; +lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__37; lean_object* l_Lean_PrettyPrinter_Formatter_optional_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_byTactic___elambda__1___closed__9; lean_object* l_Lean_Parser_Term_doSeqIndent___closed__1; @@ -407,6 +435,7 @@ extern lean_object* l_Lean_Parser_Tactic_tacticSeqBracketed___elambda__1___close lean_object* l_Lean_Parser_Term_doIf___closed__9; lean_object* l_Lean_Parser_Term_doIdDecl___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_doIf_parenthesizer___closed__14; +lean_object* l_Lean_Parser_Term_termTry___closed__3; lean_object* l_Lean_Parser_Term_doLetArrow_parenthesizer___closed__1; lean_object* l___regBuiltinParser_Lean_Parser_Term_doBreak(lean_object*); lean_object* l_Lean_Parser_Term_doReassignArrow___elambda__1___closed__7; @@ -421,6 +450,7 @@ lean_object* l_Lean_Parser_Term_doUnless___elambda__1___closed__1; lean_object* l___regBuiltin_Lean_Parser_Term_doLet_formatter(lean_object*); lean_object* l_Lean_Parser_Term_doIf___elambda__1___closed__9; extern lean_object* l_Lean_Parser_Term_letrec_formatter___closed__6; +lean_object* l_Lean_Parser_Term_termFor___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doPatDecl_formatter___closed__5; lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__24; lean_object* l_Lean_Parser_Term_doFor___closed__2; @@ -458,7 +488,10 @@ lean_object* l___regBuiltin_Lean_Parser_Term_doMatch_formatter___closed__1; lean_object* l___regBuiltin_Lean_Parser_Term_doBreak_formatter___closed__1; lean_object* l___regBuiltinParser_Lean_Parser_Term_doReturn(lean_object*); lean_object* l_Lean_Parser_Term_doReturn_parenthesizer___closed__3; +lean_object* l_Lean_Parser_Term_termReturn___elambda__1___closed__2; +lean_object* l_Lean_Parser_Term_termUnless_formatter___closed__2; lean_object* l_Lean_Parser_Term_doIdDecl_parenthesizer___closed__6; +lean_object* l___regBuiltin_Lean_Parser_Term_termTry_formatter(lean_object*); lean_object* l_Lean_Parser_Term_doSeqIndent_formatter___closed__2; lean_object* l_Lean_Parser_Term_doIdDecl___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_doAssert_parenthesizer___closed__1; @@ -493,6 +526,7 @@ lean_object* l___regBuiltin_Lean_Parser_Term_doReturn_formatter(lean_object*); lean_object* l___regBuiltin_Lean_Parser_Term_doTry_formatter(lean_object*); lean_object* l_Lean_Parser_Term_elseIf___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_doFor___closed__4; +lean_object* l_Lean_Parser_Term_termReturn_formatter___closed__1; lean_object* l___regBuiltin_Lean_Parser_Term_doReassignArrow_parenthesizer(lean_object*); lean_object* l_Lean_Parser_Term_doMatch___elambda__1___closed__8; lean_object* l_Lean_Parser_Term_elseIf; @@ -518,9 +552,12 @@ lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___c lean_object* l_Lean_Parser_Term_doNested; lean_object* l_Lean_Parser_Term_doReturn___elambda__1___closed__5; extern lean_object* l_Lean_Parser_antiquotNestedExpr___closed__2; +lean_object* l___regBuiltin_Lean_Parser_Term_termTry_parenthesizer___closed__1; +lean_object* l_Lean_Parser_Term_termUnless_formatter___closed__1; extern lean_object* l_Lean_Parser_Term_if___elambda__1___closed__13; lean_object* l_Lean_Parser_noFirstTokenInfo(lean_object*); lean_object* l_Lean_Parser_Term_doIdDecl_parenthesizer___closed__1; +lean_object* l_Lean_Parser_Term_termReturn___elambda__1___closed__1; extern lean_object* l_Lean_Parser_Term_letDecl; lean_object* l___regBuiltin_Lean_Parser_Term_liftMethod_parenthesizer(lean_object*); lean_object* l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__3; @@ -550,6 +587,7 @@ lean_object* l___regBuiltin_Lean_Parser_Term_doElem_quot_parenthesizer___closed_ lean_object* l_Lean_Parser_Term_doExpr_parenthesizer___closed__2; lean_object* l_Lean_Parser_Term_elseIf___elambda__1___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doContinue___elambda__1___closed__4; +lean_object* l_Lean_Parser_Term_termReturn___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doSeqBracketed___elambda__1(lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Parser_Term_doIf_formatter(lean_object*); lean_object* l_Lean_Parser_Term_doLetArrow___elambda__1___closed__2; @@ -557,23 +595,29 @@ lean_object* l_Lean_Parser_Term_doIdDecl_parenthesizer___closed__4; lean_object* l_Lean_Parser_Term_doAssert___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_doHave_parenthesizer___closed__2; lean_object* l_Lean_Parser_Term_doIf___closed__18; +lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__32; lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__10; lean_object* l_Lean_Parser_Term_leftArrow___closed__3; lean_object* l_Lean_Parser_Term_doMatchAlts___elambda__1___closed__1; lean_object* l_Lean_PrettyPrinter_Formatter_withForbidden_formatter___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_termReturn; lean_object* l_Lean_Parser_Term_doFor; lean_object* l_Lean_Parser_Term_doCatch_parenthesizer___closed__7; lean_object* l_Lean_Parser_Term_doLetArrow; +lean_object* l_Lean_Parser_Term_termUnless___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_doFor___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_doMatchAlts_formatter___closed__6; lean_object* l_Lean_Parser_Term_doExpr_formatter___closed__3; lean_object* l_Lean_Parser_checkLineEqFn(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doHave_parenthesizer___closed__1; +lean_object* l_Lean_Parser_Term_termTry; lean_object* l_Lean_Parser_Term_doMatch_parenthesizer___closed__4; +lean_object* l_Lean_Parser_Term_termFor; lean_object* l_Lean_Parser_Term_doAssert_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doReassignArrow___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_doLet___closed__3; lean_object* l___regBuiltinParser_Lean_Parser_Term_doContinue(lean_object*); +lean_object* l_Lean_Parser_Term_termTry___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_doIdDecl___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_doLetRec_parenthesizer___closed__1; lean_object* l_Lean_Parser_optionaInfo(lean_object*); @@ -594,6 +638,7 @@ lean_object* l_Lean_Parser_Term_doFor___elambda__1___closed__13; extern lean_object* l_Lean_Parser_Term_assert___elambda__1___closed__6; lean_object* l_Lean_PrettyPrinter_Formatter_node_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doCatchMatch___closed__6; +lean_object* l_Lean_Parser_Term_termUnless___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_doCatch___elambda__1___closed__14; lean_object* l_Lean_PrettyPrinter_Formatter_unicodeSymbol_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doCatch___elambda__1___closed__3; @@ -624,9 +669,11 @@ lean_object* l_Lean_Parser_Term_doFor___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_doDbgTrace_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_doUnless___elambda__1___closed__8; lean_object* l___regBuiltin_Lean_Parser_Term_doElem_quot_formatter(lean_object*); +lean_object* l_Lean_Parser_Term_termFor_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doReassignArrow_parenthesizer___closed__3; lean_object* l_Lean_Parser_Term_doSeqIndent_parenthesizer___closed__3; lean_object* l_Lean_Parser_doElemParser_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_termTry___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_doReassign___closed__3; lean_object* l_Lean_Parser_initFn____x40_Lean_Parser_Do___hyg_14____closed__2; extern lean_object* l___kind_tactic____x40_Init_Tactics___hyg_461____closed__9; @@ -646,6 +693,8 @@ lean_object* l_Lean_Parser_Term_doPatDecl_formatter___closed__2; lean_object* l_Lean_Parser_orelseInfo(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doPatDecl_formatter___closed__8; lean_object* l_Lean_Parser_Term_elseIf___closed__6; +lean_object* l_Lean_Parser_Term_termReturn___elambda__1___closed__6; +lean_object* l_Lean_Parser_Term_termTry_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doIf___elambda__1___closed__10; extern lean_object* l_Lean_Parser_Term_binderIdent___closed__1; lean_object* l_Lean_Parser_Term_doLet_parenthesizer___closed__2; @@ -668,7 +717,9 @@ extern lean_object* l_Init_Data_Repr___instance__15___closed__1; lean_object* l_Lean_Parser_Term_doReturn_formatter___closed__3; lean_object* l_Lean_Parser_Term_doTry___closed__11; lean_object* l_Lean_Parser_Term_doSeqBracketed___elambda__1___closed__7; +lean_object* l_Lean_Parser_Term_termTry___elambda__1___closed__3; extern lean_object* l_Lean_Parser_maxPrec; +lean_object* l___regBuiltin_Lean_Parser_Term_termUnless_formatter(lean_object*); lean_object* l_Lean_Parser_Term_doNested___closed__4; lean_object* l_Lean_Parser_Term_doSeqIndent___elambda__1___closed__8; lean_object* l___regBuiltinParser_Lean_Parser_Term_doElem_quot(lean_object*); @@ -692,14 +743,19 @@ lean_object* l_Lean_Parser_Term_doSeqBracketed_formatter___closed__4; lean_object* l_Lean_Parser_Term_leftArrow___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_doSeqIndent_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doLetRec___elambda__1___closed__10; +lean_object* l_Lean_Parser_Term_termUnless___elambda__1___closed__1; +lean_object* l_Lean_Parser_Term_termUnless___elambda__1(lean_object*, lean_object*); +lean_object* l___regBuiltinParser_Lean_Parser_Term_termUnless(lean_object*); lean_object* l_Lean_Parser_Term_doCatch___elambda__1___closed__10; lean_object* l_Lean_Parser_Term_doMatchAlts_formatter___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkLineEq_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doMatch_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_termTry___closed__5; extern lean_object* l_Lean_Parser_Term_haveDecl___closed__5; extern lean_object* l_Lean_Parser_Term_if___closed__1; lean_object* l_Lean_Parser_Term_doMatch___closed__7; lean_object* l_Lean_Parser_Term_doFinally___closed__4; +lean_object* l_Lean_Parser_Term_termFor___closed__3; lean_object* l_Lean_Parser_Term_doLetArrow___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_doUnless___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_doLetArrow___closed__3; @@ -724,6 +780,7 @@ lean_object* l_Lean_Parser_Term_leftArrow___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_doReturn_formatter___closed__6; lean_object* l_Lean_Parser_Term_doReassignArrow_parenthesizer___closed__2; lean_object* l___regBuiltin_Lean_Parser_Term_doElem_quot_formatter___closed__1; +lean_object* l___regBuiltin_Lean_Parser_Term_termReturn_formatter(lean_object*); lean_object* l_Lean_Parser_Term_doCatchMatch___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_doBreak___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_elseIf_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -746,6 +803,7 @@ lean_object* l_Lean_Parser_Term_liftMethod___closed__1; lean_object* l_Lean_Parser_Term_doPatDecl___closed__5; lean_object* l_Lean_Parser_Term_doLetArrow___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_doCatchMatch___closed__1; +lean_object* l___regBuiltin_Lean_Parser_Term_termFor_formatter(lean_object*); lean_object* l_Lean_Parser_Term_doIf_formatter___closed__13; lean_object* l_Lean_Parser_Tactic_tacticSeq1Indented___elambda__1___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doCatch_formatter___closed__1; @@ -756,6 +814,8 @@ lean_object* l_Lean_PrettyPrinter_Parenthesizer_symbol_parenthesizer___boxed(lea lean_object* l_Lean_Parser_Term_doBreak___closed__1; lean_object* l___regBuiltin_Lean_Parser_Term_doLetArrow_formatter___closed__1; lean_object* l_Lean_Parser_Term_doFinally_formatter___closed__1; +lean_object* l___regBuiltinParser_Lean_Parser_Term_termFor(lean_object*); +lean_object* l___regBuiltinParser_Lean_Parser_Term_termTry(lean_object*); lean_object* l_Lean_Parser_Term_doUnless___elambda__1___lambda__1___closed__1; extern lean_object* l_Lean_Parser_Error_toString___closed__2; lean_object* l_Lean_Parser_Term_doMatchAlts_formatter___closed__5; @@ -765,6 +825,7 @@ lean_object* l___regBuiltin_Lean_Parser_Term_doIf_formatter___closed__1; lean_object* l_Lean_Parser_Term_doIdDecl_formatter___closed__3; lean_object* l_Lean_Parser_Term_doReturn___elambda__1___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_match_formatter___closed__4; +lean_object* l_Lean_Parser_Term_termFor___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_elseIf___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doContinue___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_doLetArrow_formatter___closed__6; @@ -786,7 +847,9 @@ lean_object* l___regBuiltin_Lean_Parser_Term_doDbgTrace_formatter___closed__1; lean_object* l_Lean_Parser_initFn____x40_Lean_Parser_Do___hyg_4____closed__4; lean_object* l_Lean_Parser_Term_leftArrow___elambda__1___closed__8; lean_object* l_Lean_Parser_Term_liftMethod___closed__3; +lean_object* l_Lean_Parser_Term_termFor___closed__2; extern lean_object* l_Lean_Parser_Tactic_tacticSeqBracketed___elambda__1___closed__9; +lean_object* l_Lean_Parser_Term_termFor___elambda__1___closed__2; extern lean_object* l_Lean_Parser_Tactic_tacticSeqBracketed___closed__3; lean_object* l_Lean_Parser_Term_doCatchMatch___closed__2; lean_object* l_Lean_Parser_Term_doLet___elambda__1___closed__8; @@ -794,6 +857,7 @@ lean_object* l_Lean_Parser_Term_doFinally___elambda__1___closed__1; lean_object* l___regBuiltin_Lean_Parser_Term_doTry_formatter___closed__1; lean_object* l_Lean_Parser_Term_doCatchMatch___elambda__1___closed__4; extern lean_object* l_Lean_Parser_antiquotNestedExpr___closed__3; +lean_object* l___regBuiltinParser_Lean_Parser_Term_termReturn(lean_object*); lean_object* l_Lean_Parser_Term_doMatch___closed__8; lean_object* l___regBuiltin_Lean_Parser_Term_doLet_parenthesizer(lean_object*); lean_object* l_Lean_Parser_Term_doAssert___elambda__1___closed__1; @@ -802,6 +866,7 @@ lean_object* l_Lean_Parser_Term_doLetArrow_formatter___closed__3; lean_object* l___regBuiltin_Lean_Parser_Term_doAssert_parenthesizer(lean_object*); lean_object* l_Lean_Parser_Term_doTry_formatter___closed__10; lean_object* l_Lean_Parser_Term_doIf___elambda__1(lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_termUnless___closed__4; lean_object* l_Lean_Parser_Term_doReturn___closed__3; lean_object* l_Lean_Parser_Term_doElem_quot_parenthesizer___closed__6; lean_object* l_Lean_Parser_Term_doUnless___elambda__1___closed__13; @@ -817,6 +882,7 @@ lean_object* l_Lean_Parser_Term_doLet___closed__5; lean_object* l_Lean_Parser_Term_doIf_parenthesizer___closed__1; extern lean_object* l_Lean_Parser_Term_tupleTail_formatter___closed__3; lean_object* l_Lean_Parser_Term_doBreak___closed__4; +lean_object* l_Lean_Parser_Term_termUnless___closed__2; extern lean_object* l_Lean_Parser_Term_matchAlts_formatter___closed__13; lean_object* l_Lean_Parser_Term_doExpr___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_doDbgTrace_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -826,6 +892,7 @@ lean_object* l_Lean_Parser_Term_doCatchMatch___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_doCatch_formatter___closed__4; lean_object* l_Lean_Parser_Term_doLetRec_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doUnless_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_termReturn_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doAssert___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_elseIf_parenthesizer___closed__2; lean_object* l_Lean_PrettyPrinter_Formatter_withPosition_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -833,13 +900,16 @@ lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken_formatter(lean_o lean_object* l_Lean_Parser_Term_doReassign_parenthesizer___closed__3; lean_object* l___regBuiltinParser_Lean_Parser_Term_doNested(lean_object*); lean_object* l_Lean_Parser_Term_doReassign_formatter___closed__3; +lean_object* l_Lean_Parser_Term_termTry_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__21; +lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__38; lean_object* l___regBuiltin_Lean_Parser_Term_doExpr_formatter(lean_object*); lean_object* l_Lean_Parser_Term_liftMethod___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_doUnless___elambda__1___closed__15; lean_object* l_Lean_Parser_Term_doHave___closed__2; extern lean_object* l_Lean_Parser_Term_letrec___closed__4; extern lean_object* l_Lean_Parser_Tactic_tacticSeqBracketed_parenthesizer___closed__10; +lean_object* l___regBuiltin_Lean_Parser_Term_termReturn_parenthesizer___closed__1; extern lean_object* l_Lean_Parser_Term_if___closed__2; lean_object* l_Lean_Parser_Term_doIdDecl_formatter___closed__7; lean_object* l_Lean_Parser_Term_doPatDecl_parenthesizer___closed__3; @@ -872,6 +942,7 @@ extern lean_object* l_Lean_Parser_Term_if_parenthesizer___closed__4; lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doLetRec___closed__4; lean_object* l_Lean_Parser_Term_doPatDecl_parenthesizer___closed__5; +lean_object* l_Lean_Parser_Term_termUnless___closed__1; lean_object* l_Lean_Parser_Term_doPatDecl___elambda__1___closed__11; lean_object* l_Lean_Parser_Term_doUnless___elambda__1___closed__14; lean_object* l_Lean_Parser_Term_doSeqBracketed_parenthesizer___closed__6; @@ -900,11 +971,13 @@ lean_object* l_Lean_Parser_Term_doFor_parenthesizer___closed__5; lean_object* l_Lean_Parser_Term_doCatch_formatter___closed__2; lean_object* l_Lean_Parser_Term_doAssert___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_doSeq_parenthesizer___closed__2; +lean_object* l_Lean_Parser_Term_termFor___elambda__1___closed__6; extern lean_object* l_Lean_Parser_Term_binderIdent; lean_object* l_Lean_Parser_Term_doSeq_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doTry___closed__1; lean_object* l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_doIf___elambda__1___closed__19; +lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__31; lean_object* l_Lean_Parser_Term_doFinally_parenthesizer___closed__2; lean_object* l_Lean_Parser_Term_elseIf___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_doReassignArrow___elambda__1___closed__5; @@ -926,6 +999,7 @@ lean_object* l_Lean_Parser_Term_doFinally_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_doSeqBracketed_formatter___closed__7; lean_object* l_Lean_Parser_Term_doPatDecl_parenthesizer___closed__2; lean_object* l_Lean_Parser_Term_doExpr___elambda__1(lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_termFor___closed__1; lean_object* l_Lean_Parser_Term_doIf_formatter___closed__17; lean_object* l_Lean_Parser_Term_doIf_parenthesizer___closed__7; lean_object* l_Lean_Parser_Term_doSeqIndent; @@ -934,6 +1008,7 @@ lean_object* l_Lean_Parser_Term_doAssert___elambda__1___closed__8; lean_object* l___regBuiltin_Lean_Parser_Term_do_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_liftMethod_parenthesizer___closed__4; lean_object* l_Lean_Parser_Term_doSeqIndent_parenthesizer___closed__2; +lean_object* l___regBuiltin_Lean_Parser_Term_termUnless_parenthesizer(lean_object*); lean_object* l_Lean_Parser_Term_elseIf___closed__2; lean_object* l_Lean_Parser_Term_leftArrow___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_doSeqBracketed___closed__6; @@ -944,7 +1019,9 @@ lean_object* l_Lean_Parser_Term_doLetArrow_formatter(lean_object*, lean_object*, lean_object* l_Lean_Parser_Term_doReassign___closed__6; lean_object* l_Lean_Parser_Term_doLetArrow___closed__7; lean_object* l_Lean_Parser_Term_doSeqBracketed_parenthesizer___closed__9; +lean_object* l_Lean_Parser_Term_termFor_parenthesizer___closed__2; lean_object* l_Lean_Parser_Term_doBreak; +lean_object* l_Lean_Parser_Term_termTry___elambda__1(lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Parser_Term_doNested_parenthesizer___closed__1; extern lean_object* l_Lean_Parser_Term_letDecl_formatter___closed__3; lean_object* l_Lean_Parser_Term_doAssert_parenthesizer___closed__2; @@ -965,6 +1042,7 @@ lean_object* l___regBuiltin_Lean_Parser_Term_do_formatter(lean_object*); lean_object* l_Lean_Parser_Term_elseIf___closed__4; lean_object* l_Lean_Parser_Term_doLetRec___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_doTry_parenthesizer___closed__4; +lean_object* l_Lean_Parser_Term_termReturn_formatter___closed__2; lean_object* l_Lean_Parser_Term_doSeqBracketed_formatter___closed__10; lean_object* l_Lean_Parser_Term_doIf___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_doNested___closed__5; @@ -993,6 +1071,8 @@ lean_object* l_Lean_Parser_Term_doFor_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_doExpr___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_doSeq___closed__3; lean_object* l_Lean_Parser_Term_doReturn_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_Parser_Term_termTry_parenthesizer(lean_object*); +lean_object* l_Lean_Parser_Term_termUnless; lean_object* l_Lean_Parser_Term_doLet___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_doPatDecl___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_doMatchAlt___closed__7; @@ -1022,10 +1102,12 @@ lean_object* l_Lean_Parser_orelseFnCore(lean_object*, lean_object*, uint8_t, lea extern lean_object* l_Lean_Parser_Term_matchAlts_parenthesizer___closed__13; extern lean_object* l_Lean_Parser_epsilonInfo; lean_object* l_Lean_Parser_Term_doCatch_parenthesizer___closed__3; +lean_object* l___regBuiltin_Lean_Parser_Term_termFor_parenthesizer(lean_object*); lean_object* l_Lean_Parser_Term_doIf_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doNested___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_leftArrow___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_doUnless___elambda__1___closed__9; +lean_object* l_Lean_Parser_Term_termTry_parenthesizer___closed__2; lean_object* l_Lean_Parser_Term_doPatDecl_parenthesizer___closed__8; lean_object* l_Lean_Parser_Term_doTry_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_doFor___elambda__1___closed__11; @@ -1034,6 +1116,7 @@ extern lean_object* l_Lean_Parser_Term_matchAlt_parenthesizer___closed__2; lean_object* l___regBuiltin_Lean_Parser_Term_doMatch_parenthesizer(lean_object*); lean_object* l_Lean_Parser_Term_doReassign___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_doIf_parenthesizer___closed__3; +lean_object* l___regBuiltin_Lean_Parser_Term_termReturn_parenthesizer(lean_object*); lean_object* l_Lean_Parser_Term_doCatch_formatter___closed__6; lean_object* l_Lean_Parser_Term_doTry___closed__2; lean_object* l_Lean_Parser_Term_doTry_parenthesizer___closed__2; @@ -1041,6 +1124,7 @@ lean_object* l_Lean_Parser_Term_doLet___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doUnless___closed__10; lean_object* l_Lean_Parser_categoryParser___elambda__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doPatDecl_parenthesizer___closed__9; +lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__26; lean_object* l_Lean_Parser_Term_doReassignArrow_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_doMatch___closed__6; lean_object* l_Lean_Parser_Term_doBreak_parenthesizer___closed__1; @@ -1057,11 +1141,14 @@ lean_object* l_Lean_Parser_Term_doFinally___elambda__1(lean_object*, lean_object lean_object* l_Lean_Parser_Term_doCatchMatch; lean_object* l_Lean_Parser_Term_doIf_formatter___closed__8; lean_object* l_Lean_Parser_Term_doContinue_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_termTry_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_doFor_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__36; lean_object* l_Lean_Parser_Term_doDbgTrace___closed__5; lean_object* l_Lean_Parser_Term_doElem_quot___elambda__1___closed__11; lean_object* l_Lean_Parser_Term_doElem_quot___closed__4; lean_object* l_Lean_Parser_Term_doHave___elambda__1___closed__2; +lean_object* l___regBuiltin_Lean_Parser_Term_termReturn_formatter___closed__1; lean_object* l_Lean_Parser_Term_doReturn_formatter___closed__7; lean_object* l_Lean_Parser_Term_doFor_formatter___closed__1; lean_object* l_Lean_Parser_Term_doNested_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -1078,6 +1165,7 @@ lean_object* l_Lean_Parser_Term_doMatch___elambda__1___closed__10; lean_object* l_Lean_Parser_Term_doContinue___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken; lean_object* l_Lean_Parser_Term_doUnless___elambda__1___closed__10; +lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__35; lean_object* l_Lean_Parser_Term_doBreak_formatter___closed__1; lean_object* l_Lean_Parser_Term_doIf_parenthesizer___closed__11; lean_object* l_Lean_Parser_Term_doSeqBracketed___elambda__1___closed__5; @@ -1092,6 +1180,7 @@ extern lean_object* l_Lean_KeyedDeclsAttribute_init___rarg___lambda__3___closed_ lean_object* l_Lean_Parser_Term_doTry___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doExpr___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_elseIf___closed__3; +lean_object* l_Lean_Parser_Term_termFor___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_doSeqBracketed_formatter___closed__5; lean_object* l_Lean_Parser_Term_doTry___elambda__1___closed__14; lean_object* l_Lean_Parser_Term_doCatch_parenthesizer___closed__2; @@ -1113,6 +1202,7 @@ lean_object* l_Lean_Parser_Term_doSeq_parenthesizer(lean_object*, lean_object*, lean_object* l_Lean_Parser_Term_doSeqIndent___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_doPatDecl_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doExpr___elambda__1___closed__4; +lean_object* l___regBuiltin_Lean_Parser_Term_termUnless_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_doReassign_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__8; lean_object* l_Lean_Parser_Term_doIf___elambda__1___closed__14; @@ -1129,6 +1219,7 @@ lean_object* l_Lean_Parser_Term_doElem_quot_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_doPatDecl___closed__3; lean_object* l_Lean_Parser_Term_doUnless_parenthesizer___closed__4; lean_object* l___regBuiltin_Lean_Parser_Term_doContinue_formatter___closed__1; +lean_object* l_Lean_Parser_Term_termReturn___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_doLetArrow___closed__2; lean_object* l_Lean_Parser_Term_doUnless_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doBreak_formatter___closed__2; @@ -1137,6 +1228,7 @@ lean_object* l_Lean_Parser_Term_doLetRec_formatter___closed__2; lean_object* l_Lean_Parser_optionalFn(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doMatch_formatter___closed__7; lean_object* l_Lean_Parser_Term_doExpr___elambda__1___closed__1; +lean_object* l_Lean_Parser_Term_termReturn___closed__3; lean_object* l_Lean_Parser_Term_doHave___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_doHave___closed__5; lean_object* l_Lean_Parser_Term_liftMethod_formatter___closed__4; @@ -1165,6 +1257,7 @@ lean_object* l_Lean_Parser_Term_doFinally_parenthesizer(lean_object*, lean_objec lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__18; lean_object* l_Lean_Parser_Term_doCatchMatch_formatter___closed__3; lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__3; +lean_object* l_Lean_Parser_Term_termFor___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_doLet___closed__2; lean_object* l_Lean_Parser_Term_doLetArrow___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__5; @@ -1172,10 +1265,12 @@ lean_object* l_Lean_Parser_Term_doCatch_formatter___closed__3; lean_object* l_Lean_Parser_Term_doReturn_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doTry_parenthesizer___closed__7; lean_object* l___regBuiltinParser_Lean_Parser_Term_doReassignArrow(lean_object*); +lean_object* l_Lean_Parser_Term_termFor___closed__5; lean_object* l_Lean_Parser_Term_doSeqBracketed_parenthesizer___closed__5; extern lean_object* l_Lean_Parser_Term_have___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_doIdDecl_formatter___closed__6; extern lean_object* l_Lean_Parser_Term_have_formatter___closed__4; +lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__30; lean_object* l_Lean_Parser_Term_doMatchAlt_formatter___closed__3; lean_object* l_Lean_Parser_Term_elseIf___elambda__1___lambda__1___closed__1; extern lean_object* l_Lean_Parser_Term_if_formatter___closed__2; @@ -1183,6 +1278,7 @@ lean_object* l_Lean_Parser_Term_doNested___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_doUnless___elambda__1___lambda__1(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_letIdDecl___closed__4; lean_object* l_Lean_Parser_Term_leftArrow___closed__1; +lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__39; lean_object* l_Lean_Parser_Term_doLet___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_doSeqIndent___closed__10; lean_object* l_Lean_Parser_mkAntiquot(lean_object*, lean_object*, uint8_t); @@ -1190,6 +1286,7 @@ lean_object* l_Lean_Parser_Term_doNested___closed__3; lean_object* l___regBuiltin_Lean_Parser_Term_doExpr_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_doMatchAlt_formatter___closed__2; lean_object* l_Lean_Parser_Term_doFor___elambda__1___closed__6; +lean_object* l___regBuiltin_Lean_Parser_Term_termFor_parenthesizer___closed__1; lean_object* l___regBuiltin_Lean_Parser_Term_doReassignArrow_parenthesizer___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_withPosition_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_elseIf_parenthesizer___closed__5; @@ -1202,6 +1299,7 @@ lean_object* l_Lean_Parser_Term_do_formatter___closed__2; lean_object* l___regBuiltin_Lean_Parser_Term_doAssert_parenthesizer___closed__1; lean_object* l___regBuiltin_Lean_Parser_Term_doMatch_parenthesizer___closed__1; lean_object* l___regBuiltin_Lean_Parser_Term_doElem_quot_parenthesizer(lean_object*); +lean_object* l_Lean_Parser_Term_termFor___elambda__1___closed__3; lean_object* l_Lean_Parser_doElemParser_formatter___boxed(lean_object*); lean_object* l___regBuiltin_Lean_Parser_Term_doUnless_formatter___closed__1; lean_object* l_Lean_Parser_Term_doLetRec_formatter___closed__1; @@ -1251,6 +1349,8 @@ lean_object* l_Lean_Parser_Term_elseIf_parenthesizer___closed__3; lean_object* l_Lean_Parser_Term_doFinally_formatter___closed__2; lean_object* l_Lean_Parser_Term_doCatchMatch_parenthesizer___closed__2; lean_object* l_Lean_Parser_Term_doFinally___elambda__1___closed__4; +lean_object* l_Lean_Parser_Term_termReturn_parenthesizer___closed__1; +lean_object* l_Lean_Parser_Term_termReturn___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_doFinally_parenthesizer___closed__3; lean_object* l_Lean_Parser_Term_do___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_doReturn___elambda__1___closed__3; @@ -1271,7 +1371,9 @@ lean_object* l_Lean_Parser_Term_doMatchAlt___elambda__1___closed__8; lean_object* l_Lean_Parser_Term_doSeqBracketed_formatter___closed__6; lean_object* l_Lean_Parser_Term_doPatDecl___closed__1; lean_object* l_Lean_Parser_Term_doHave___elambda__1___closed__6; +lean_object* l_Lean_Parser_Term_termTry___closed__1; lean_object* l_Lean_Parser_Term_doIf_formatter___closed__1; +lean_object* l_Lean_Parser_Term_termTry_formatter___closed__1; lean_object* l___regBuiltin_Lean_Parser_Term_doTry_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__9; lean_object* l_Lean_Parser_Term_doPatDecl___closed__4; @@ -1279,6 +1381,7 @@ lean_object* l_Lean_Parser_Term_doMatchAlts_parenthesizer___closed__2; lean_object* l_Lean_Parser_Term_doLetArrow_formatter___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_many1_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doContinue___elambda__1(lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_termTry_formatter___closed__2; lean_object* l_Lean_Parser_Term_doIf_parenthesizer___closed__6; lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___closed__2; lean_object* l_Lean_Parser_Term_doBreak___closed__5; @@ -1286,6 +1389,7 @@ lean_object* l_Lean_Parser_Term_doCatch; lean_object* l_Lean_Parser_Term_doPatDecl___closed__6; lean_object* l_Lean_Parser_Term_doPatDecl___elambda__1___closed__8; lean_object* l___regBuiltin_Lean_Parser_Term_doIf_parenthesizer___closed__1; +lean_object* l_Lean_Parser_Term_termFor_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_doElem_quot___elambda__1___closed__12; lean_object* l_Lean_Parser_Term_doCatchMatch_parenthesizer___closed__1; extern lean_object* l_Lean_Parser_Term_dbgTrace___closed__3; @@ -1297,9 +1401,11 @@ lean_object* l_Lean_Parser_Term_doSeqBracketed_formatter(lean_object*, lean_obje lean_object* l_Lean_Parser_Term_doCatch___elambda__1___closed__11; lean_object* l_Lean_Parser_Term_doLetRec___closed__1; lean_object* l_Lean_Parser_Term_liftMethod_parenthesizer___closed__2; +lean_object* l_Lean_Parser_Term_termUnless_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_doIf___elambda__1___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doIf_parenthesizer___closed__20; lean_object* l_Lean_Parser_Term_doDbgTrace___closed__3; +lean_object* l_Lean_Parser_Term_termReturn_parenthesizer___closed__2; lean_object* l_Lean_Parser_Term_doExpr_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Parser_Term_doContinue_parenthesizer(lean_object*); lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__2; @@ -1354,8 +1460,10 @@ lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___c lean_object* l_Lean_PrettyPrinter_Formatter_withoutPosition_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__2; lean_object* l___regBuiltin_Lean_Parser_Term_doBreak_formatter(lean_object*); +lean_object* l_Lean_Parser_Term_termReturn_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doMatchAlt_formatter___closed__4; lean_object* l_Lean_Parser_Term_doHave___elambda__1___closed__3; +lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__40; lean_object* l_Lean_Parser_Term_doPatDecl___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_doExpr___closed__3; lean_object* l_Lean_Parser_Term_doMatchAlt___closed__6; @@ -1367,6 +1475,7 @@ lean_object* l_Lean_Parser_Term_doElem_quot___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_doSeqIndent___elambda__1___closed__10; lean_object* l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_doCatch___elambda__1___closed__1; +lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__27; lean_object* l_Lean_Parser_unicodeSymbolFnAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_elseIf_formatter___closed__4; lean_object* l_Lean_Parser_Term_doTry___closed__3; @@ -1382,6 +1491,7 @@ lean_object* l_Lean_Parser_Term_doMatchAlts_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_doCatch_formatter___closed__5; lean_object* l_Lean_Parser_Term_liftMethod___closed__2; lean_object* l_Lean_Parser_Term_doUnless___elambda__1___closed__12; +lean_object* l_Lean_Parser_Term_termFor___closed__4; lean_object* l_Lean_Parser_Term_doLetRec___closed__2; lean_object* l___regBuiltinParser_Lean_Parser_Term_doLet(lean_object*); lean_object* l_Lean_Parser_Term_do_parenthesizer___closed__1; @@ -1403,6 +1513,7 @@ lean_object* l_Lean_Parser_Term_doElem_quot___closed__1; lean_object* l_Lean_Parser_Term_doTry___closed__5; lean_object* l_Lean_Parser_Term_doReassign_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_doIf___closed__11; +lean_object* l_Lean_Parser_Term_termTry___elambda__1___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_try_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doPatDecl___closed__8; lean_object* l_Lean_Parser_Term_do_parenthesizer___closed__2; @@ -1429,6 +1540,7 @@ extern lean_object* l_Lean_Parser_Term_letDecl_parenthesizer___closed__6; lean_object* l_Lean_Parser_andthenFn(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doElem_quot_parenthesizer___closed__5; lean_object* l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__8; +lean_object* l___regBuiltin_Lean_Parser_Term_termFor_formatter___closed__1; static lean_object* _init_l_Lean_Parser_initFn____x40_Lean_Parser_Do___hyg_4____closed__1() { _start: { @@ -3007,76 +3119,232 @@ return x_2; static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__18() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__14; -x_2 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__17; -x_3 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn), 4, 2); -lean_closure_set(x_3, 0, x_1); -lean_closure_set(x_3, 1, x_2); -return x_3; +lean_object* x_1; +x_1 = lean_mk_string("for"); +return x_1; } } static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__19() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__11; -x_2 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__18; -x_3 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn), 4, 2); -lean_closure_set(x_3, 0, x_1); -lean_closure_set(x_3, 1, x_2); -return x_3; +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__18; +x_2 = l_String_trim(x_1); +return x_2; } } static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__20() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__8; -x_2 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__19; -x_3 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn), 4, 2); -lean_closure_set(x_3, 0, x_1); -lean_closure_set(x_3, 1, x_2); -return x_3; +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__19; +x_2 = lean_alloc_closure((void*)(l_Lean_Parser_symbolFn___boxed), 3, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; } } static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__21() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__6; -x_2 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__20; -x_3 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn), 4, 2); -lean_closure_set(x_3, 0, x_1); -lean_closure_set(x_3, 1, x_2); -return x_3; +lean_object* x_1; +x_1 = lean_mk_string("unless"); +return x_1; } } static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__22() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__4; -x_2 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__21; -x_3 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn), 4, 2); -lean_closure_set(x_3, 0, x_1); -lean_closure_set(x_3, 1, x_2); -return x_3; +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__21; +x_2 = l_String_trim(x_1); +return x_2; } } static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__23() { _start: { +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__22; +x_2 = lean_alloc_closure((void*)(l_Lean_Parser_symbolFn___boxed), 3, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__24() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("return"); +return x_1; +} +} +static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__25() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__24; +x_2 = l_String_trim(x_1); +return x_2; +} +} +static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__26() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__25; +x_2 = lean_alloc_closure((void*)(l_Lean_Parser_symbolFn___boxed), 3, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__27() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("try"); +return x_1; +} +} +static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__28() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__27; +x_2 = l_String_trim(x_1); +return x_2; +} +} +static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__29() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__28; +x_2 = lean_alloc_closure((void*)(l_Lean_Parser_symbolFn___boxed), 3, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__30() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__2; -x_2 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__22; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__26; +x_2 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__29; x_3 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn), 4, 2); lean_closure_set(x_3, 0, x_1); lean_closure_set(x_3, 1, x_2); return x_3; } } -static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__24() { +static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__31() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__23; +x_2 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__30; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__32() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__20; +x_2 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__31; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__33() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__17; +x_2 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__32; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__34() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__14; +x_2 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__33; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__35() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__11; +x_2 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__34; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__36() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__8; +x_2 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__35; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__37() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__6; +x_2 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__36; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__38() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__4; +x_2 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__37; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__39() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__2; +x_2 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__38; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__40() { _start: { lean_object* x_1; @@ -3088,8 +3356,8 @@ lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1(lea _start: { lean_object* x_3; lean_object* x_4; lean_object* x_5; -x_3 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__23; -x_4 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__24; +x_3 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__39; +x_4 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__40; x_5 = l_Lean_Parser_notFollowedByFn(x_3, x_4, x_1, x_2); return x_5; } @@ -15790,6 +16058,1066 @@ x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); return x_5; } } +static lean_object* _init_l_Lean_Parser_Term_termUnless___elambda__1___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("termUnless"); +return x_1; +} +} +static lean_object* _init_l_Lean_Parser_Term_termUnless___elambda__1___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__6; +x_2 = l_Lean_Parser_Term_termUnless___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termUnless___elambda__1___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_termUnless___elambda__1___closed__2; +x_2 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l_Lean_Parser_Term_termUnless___elambda__1___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_termUnless___elambda__1___closed__1; +x_2 = l_Lean_Parser_Term_termUnless___elambda__1___closed__3; +x_3 = 1; +x_4 = l_Lean_Parser_mkAntiquot(x_1, x_2, x_3); +return x_4; +} +} +static lean_object* _init_l_Lean_Parser_Term_termUnless___elambda__1___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_termUnless___elambda__1___closed__2; +x_2 = l_Lean_Parser_Term_doUnless___elambda__1___closed__14; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_nodeFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termUnless___elambda__1___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_2 = l_Lean_Parser_Term_termUnless___elambda__1___closed__5; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* l_Lean_Parser_Term_termUnless___elambda__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; uint8_t x_6; lean_object* x_7; +x_3 = l_Lean_Parser_Term_termUnless___elambda__1___closed__4; +x_4 = lean_ctor_get(x_3, 1); +lean_inc(x_4); +x_5 = l_Lean_Parser_Term_termUnless___elambda__1___closed__6; +x_6 = 1; +x_7 = l_Lean_Parser_orelseFnCore(x_4, x_5, x_6, x_1, x_2); +return x_7; +} +} +static lean_object* _init_l_Lean_Parser_Term_termUnless___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_termUnless___elambda__1___closed__2; +x_2 = l_Lean_Parser_Term_doUnless___closed__5; +x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termUnless___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_epsilonInfo; +x_2 = l_Lean_Parser_Term_termUnless___closed__1; +x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termUnless___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_termUnless___elambda__1___closed__4; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = l_Lean_Parser_Term_termUnless___closed__2; +x_4 = l_Lean_Parser_orelseInfo(x_2, x_3); +return x_4; +} +} +static lean_object* _init_l_Lean_Parser_Term_termUnless___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_termUnless___elambda__1), 2, 0); +return x_1; +} +} +static lean_object* _init_l_Lean_Parser_Term_termUnless___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_termUnless___closed__3; +x_2 = l_Lean_Parser_Term_termUnless___closed__4; +x_3 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termUnless() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Parser_Term_termUnless___closed__5; +return x_1; +} +} +lean_object* l___regBuiltinParser_Lean_Parser_Term_termUnless(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_2 = l___kind_tactic____x40_Init_Tactics___hyg_461____closed__9; +x_3 = l_Lean_Parser_Term_termUnless___elambda__1___closed__2; +x_4 = 1; +x_5 = l_Lean_Parser_Term_termUnless; +x_6 = lean_unsigned_to_nat(0u); +x_7 = l_Lean_Parser_addBuiltinParser(x_2, x_3, x_4, x_5, x_6, x_1); +return x_7; +} +} +static lean_object* _init_l_Lean_Parser_Term_termUnless_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; lean_object* x_5; +x_1 = l_Lean_Parser_Term_termUnless___elambda__1___closed__1; +x_2 = l_Lean_Parser_Term_termUnless___elambda__1___closed__3; +x_3 = 1; +x_4 = lean_box(x_3); +x_5 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot_formatter___boxed), 8, 3); +lean_closure_set(x_5, 0, x_1); +lean_closure_set(x_5, 1, x_2); +lean_closure_set(x_5, 2, x_4); +return x_5; +} +} +static lean_object* _init_l_Lean_Parser_Term_termUnless_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_termUnless___elambda__1___closed__2; +x_2 = lean_unsigned_to_nat(1024u); +x_3 = l_Lean_Parser_Term_doUnless_formatter___closed__7; +x_4 = lean_alloc_closure((void*)(l_Lean_Parser_leadingNode_formatter___boxed), 8, 3); +lean_closure_set(x_4, 0, x_1); +lean_closure_set(x_4, 1, x_2); +lean_closure_set(x_4, 2, x_3); +return x_4; +} +} +lean_object* l_Lean_Parser_Term_termUnless_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_6 = l_Lean_Parser_Term_termUnless_formatter___closed__1; +x_7 = l_Lean_Parser_Term_termUnless_formatter___closed__2; +x_8 = l_Lean_PrettyPrinter_Formatter_orelse_formatter(x_6, x_7, x_1, x_2, x_3, x_4, x_5); +return x_8; +} +} +static lean_object* _init_l___regBuiltin_Lean_Parser_Term_termUnless_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_termUnless_formatter), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_Parser_Term_termUnless_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l_Lean_Parser_Term_termUnless___elambda__1___closed__2; +x_4 = l___regBuiltin_Lean_Parser_Term_termUnless_formatter___closed__1; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +static lean_object* _init_l_Lean_Parser_Term_termUnless_parenthesizer___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; lean_object* x_5; +x_1 = l_Lean_Parser_Term_termUnless___elambda__1___closed__1; +x_2 = l_Lean_Parser_Term_termUnless___elambda__1___closed__3; +x_3 = 1; +x_4 = lean_box(x_3); +x_5 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot_parenthesizer___boxed), 8, 3); +lean_closure_set(x_5, 0, x_1); +lean_closure_set(x_5, 1, x_2); +lean_closure_set(x_5, 2, x_4); +return x_5; +} +} +static lean_object* _init_l_Lean_Parser_Term_termUnless_parenthesizer___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_termUnless___elambda__1___closed__2; +x_2 = lean_unsigned_to_nat(1024u); +x_3 = l_Lean_Parser_Term_doUnless_parenthesizer___closed__7; +x_4 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_leadingNode_parenthesizer___boxed), 8, 3); +lean_closure_set(x_4, 0, x_1); +lean_closure_set(x_4, 1, x_2); +lean_closure_set(x_4, 2, x_3); +return x_4; +} +} +lean_object* l_Lean_Parser_Term_termUnless_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_6 = l_Lean_Parser_Term_termUnless_parenthesizer___closed__1; +x_7 = l_Lean_Parser_Term_termUnless_parenthesizer___closed__2; +x_8 = l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer(x_6, x_7, x_1, x_2, x_3, x_4, x_5); +return x_8; +} +} +static lean_object* _init_l___regBuiltin_Lean_Parser_Term_termUnless_parenthesizer___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_termUnless_parenthesizer), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_Parser_Term_termUnless_parenthesizer(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_parenthesizerAttribute; +x_3 = l_Lean_Parser_Term_termUnless___elambda__1___closed__2; +x_4 = l___regBuiltin_Lean_Parser_Term_termUnless_parenthesizer___closed__1; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +static lean_object* _init_l_Lean_Parser_Term_termFor___elambda__1___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("termFor"); +return x_1; +} +} +static lean_object* _init_l_Lean_Parser_Term_termFor___elambda__1___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__6; +x_2 = l_Lean_Parser_Term_termFor___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termFor___elambda__1___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_termFor___elambda__1___closed__2; +x_2 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l_Lean_Parser_Term_termFor___elambda__1___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_termFor___elambda__1___closed__1; +x_2 = l_Lean_Parser_Term_termFor___elambda__1___closed__3; +x_3 = 1; +x_4 = l_Lean_Parser_mkAntiquot(x_1, x_2, x_3); +return x_4; +} +} +static lean_object* _init_l_Lean_Parser_Term_termFor___elambda__1___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_termFor___elambda__1___closed__2; +x_2 = l_Lean_Parser_Term_doFor___elambda__1___closed__13; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_nodeFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termFor___elambda__1___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_2 = l_Lean_Parser_Term_termFor___elambda__1___closed__5; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* l_Lean_Parser_Term_termFor___elambda__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; uint8_t x_6; lean_object* x_7; +x_3 = l_Lean_Parser_Term_termFor___elambda__1___closed__4; +x_4 = lean_ctor_get(x_3, 1); +lean_inc(x_4); +x_5 = l_Lean_Parser_Term_termFor___elambda__1___closed__6; +x_6 = 1; +x_7 = l_Lean_Parser_orelseFnCore(x_4, x_5, x_6, x_1, x_2); +return x_7; +} +} +static lean_object* _init_l_Lean_Parser_Term_termFor___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_termFor___elambda__1___closed__2; +x_2 = l_Lean_Parser_Term_doFor___closed__5; +x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termFor___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_epsilonInfo; +x_2 = l_Lean_Parser_Term_termFor___closed__1; +x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termFor___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_termFor___elambda__1___closed__4; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = l_Lean_Parser_Term_termFor___closed__2; +x_4 = l_Lean_Parser_orelseInfo(x_2, x_3); +return x_4; +} +} +static lean_object* _init_l_Lean_Parser_Term_termFor___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_termFor___elambda__1), 2, 0); +return x_1; +} +} +static lean_object* _init_l_Lean_Parser_Term_termFor___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_termFor___closed__3; +x_2 = l_Lean_Parser_Term_termFor___closed__4; +x_3 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termFor() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Parser_Term_termFor___closed__5; +return x_1; +} +} +lean_object* l___regBuiltinParser_Lean_Parser_Term_termFor(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_2 = l___kind_tactic____x40_Init_Tactics___hyg_461____closed__9; +x_3 = l_Lean_Parser_Term_termFor___elambda__1___closed__2; +x_4 = 1; +x_5 = l_Lean_Parser_Term_termFor; +x_6 = lean_unsigned_to_nat(0u); +x_7 = l_Lean_Parser_addBuiltinParser(x_2, x_3, x_4, x_5, x_6, x_1); +return x_7; +} +} +static lean_object* _init_l_Lean_Parser_Term_termFor_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; lean_object* x_5; +x_1 = l_Lean_Parser_Term_termFor___elambda__1___closed__1; +x_2 = l_Lean_Parser_Term_termFor___elambda__1___closed__3; +x_3 = 1; +x_4 = lean_box(x_3); +x_5 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot_formatter___boxed), 8, 3); +lean_closure_set(x_5, 0, x_1); +lean_closure_set(x_5, 1, x_2); +lean_closure_set(x_5, 2, x_4); +return x_5; +} +} +static lean_object* _init_l_Lean_Parser_Term_termFor_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_termFor___elambda__1___closed__2; +x_2 = lean_unsigned_to_nat(1024u); +x_3 = l_Lean_Parser_Term_doFor_formatter___closed__6; +x_4 = lean_alloc_closure((void*)(l_Lean_Parser_leadingNode_formatter___boxed), 8, 3); +lean_closure_set(x_4, 0, x_1); +lean_closure_set(x_4, 1, x_2); +lean_closure_set(x_4, 2, x_3); +return x_4; +} +} +lean_object* l_Lean_Parser_Term_termFor_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_6 = l_Lean_Parser_Term_termFor_formatter___closed__1; +x_7 = l_Lean_Parser_Term_termFor_formatter___closed__2; +x_8 = l_Lean_PrettyPrinter_Formatter_orelse_formatter(x_6, x_7, x_1, x_2, x_3, x_4, x_5); +return x_8; +} +} +static lean_object* _init_l___regBuiltin_Lean_Parser_Term_termFor_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_termFor_formatter), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_Parser_Term_termFor_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l_Lean_Parser_Term_termFor___elambda__1___closed__2; +x_4 = l___regBuiltin_Lean_Parser_Term_termFor_formatter___closed__1; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +static lean_object* _init_l_Lean_Parser_Term_termFor_parenthesizer___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; lean_object* x_5; +x_1 = l_Lean_Parser_Term_termFor___elambda__1___closed__1; +x_2 = l_Lean_Parser_Term_termFor___elambda__1___closed__3; +x_3 = 1; +x_4 = lean_box(x_3); +x_5 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot_parenthesizer___boxed), 8, 3); +lean_closure_set(x_5, 0, x_1); +lean_closure_set(x_5, 1, x_2); +lean_closure_set(x_5, 2, x_4); +return x_5; +} +} +static lean_object* _init_l_Lean_Parser_Term_termFor_parenthesizer___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_termFor___elambda__1___closed__2; +x_2 = lean_unsigned_to_nat(1024u); +x_3 = l_Lean_Parser_Term_doFor_parenthesizer___closed__6; +x_4 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_leadingNode_parenthesizer___boxed), 8, 3); +lean_closure_set(x_4, 0, x_1); +lean_closure_set(x_4, 1, x_2); +lean_closure_set(x_4, 2, x_3); +return x_4; +} +} +lean_object* l_Lean_Parser_Term_termFor_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_6 = l_Lean_Parser_Term_termFor_parenthesizer___closed__1; +x_7 = l_Lean_Parser_Term_termFor_parenthesizer___closed__2; +x_8 = l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer(x_6, x_7, x_1, x_2, x_3, x_4, x_5); +return x_8; +} +} +static lean_object* _init_l___regBuiltin_Lean_Parser_Term_termFor_parenthesizer___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_termFor_parenthesizer), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_Parser_Term_termFor_parenthesizer(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_parenthesizerAttribute; +x_3 = l_Lean_Parser_Term_termFor___elambda__1___closed__2; +x_4 = l___regBuiltin_Lean_Parser_Term_termFor_parenthesizer___closed__1; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +static lean_object* _init_l_Lean_Parser_Term_termTry___elambda__1___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("termTry"); +return x_1; +} +} +static lean_object* _init_l_Lean_Parser_Term_termTry___elambda__1___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__6; +x_2 = l_Lean_Parser_Term_termTry___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termTry___elambda__1___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_termTry___elambda__1___closed__2; +x_2 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l_Lean_Parser_Term_termTry___elambda__1___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_termTry___elambda__1___closed__1; +x_2 = l_Lean_Parser_Term_termTry___elambda__1___closed__3; +x_3 = 1; +x_4 = l_Lean_Parser_mkAntiquot(x_1, x_2, x_3); +return x_4; +} +} +static lean_object* _init_l_Lean_Parser_Term_termTry___elambda__1___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_termTry___elambda__1___closed__2; +x_2 = l_Lean_Parser_Term_doTry___elambda__1___closed__13; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_nodeFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termTry___elambda__1___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__8; +x_2 = l_Lean_Parser_Term_termTry___elambda__1___closed__5; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* l_Lean_Parser_Term_termTry___elambda__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; uint8_t x_6; lean_object* x_7; +x_3 = l_Lean_Parser_Term_termTry___elambda__1___closed__4; +x_4 = lean_ctor_get(x_3, 1); +lean_inc(x_4); +x_5 = l_Lean_Parser_Term_termTry___elambda__1___closed__6; +x_6 = 1; +x_7 = l_Lean_Parser_orelseFnCore(x_4, x_5, x_6, x_1, x_2); +return x_7; +} +} +static lean_object* _init_l_Lean_Parser_Term_termTry___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_termTry___elambda__1___closed__2; +x_2 = l_Lean_Parser_Term_doTry___closed__7; +x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termTry___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_epsilonInfo; +x_2 = l_Lean_Parser_Term_termTry___closed__1; +x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termTry___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_termTry___elambda__1___closed__4; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = l_Lean_Parser_Term_termTry___closed__2; +x_4 = l_Lean_Parser_orelseInfo(x_2, x_3); +return x_4; +} +} +static lean_object* _init_l_Lean_Parser_Term_termTry___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_termTry___elambda__1), 2, 0); +return x_1; +} +} +static lean_object* _init_l_Lean_Parser_Term_termTry___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_termTry___closed__3; +x_2 = l_Lean_Parser_Term_termTry___closed__4; +x_3 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termTry() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Parser_Term_termTry___closed__5; +return x_1; +} +} +lean_object* l___regBuiltinParser_Lean_Parser_Term_termTry(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_2 = l___kind_tactic____x40_Init_Tactics___hyg_461____closed__9; +x_3 = l_Lean_Parser_Term_termTry___elambda__1___closed__2; +x_4 = 1; +x_5 = l_Lean_Parser_Term_termTry; +x_6 = lean_unsigned_to_nat(0u); +x_7 = l_Lean_Parser_addBuiltinParser(x_2, x_3, x_4, x_5, x_6, x_1); +return x_7; +} +} +static lean_object* _init_l_Lean_Parser_Term_termTry_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; lean_object* x_5; +x_1 = l_Lean_Parser_Term_termTry___elambda__1___closed__1; +x_2 = l_Lean_Parser_Term_termTry___elambda__1___closed__3; +x_3 = 1; +x_4 = lean_box(x_3); +x_5 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot_formatter___boxed), 8, 3); +lean_closure_set(x_5, 0, x_1); +lean_closure_set(x_5, 1, x_2); +lean_closure_set(x_5, 2, x_4); +return x_5; +} +} +static lean_object* _init_l_Lean_Parser_Term_termTry_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_termTry___elambda__1___closed__2; +x_2 = lean_unsigned_to_nat(1024u); +x_3 = l_Lean_Parser_Term_doTry_formatter___closed__11; +x_4 = lean_alloc_closure((void*)(l_Lean_Parser_leadingNode_formatter___boxed), 8, 3); +lean_closure_set(x_4, 0, x_1); +lean_closure_set(x_4, 1, x_2); +lean_closure_set(x_4, 2, x_3); +return x_4; +} +} +lean_object* l_Lean_Parser_Term_termTry_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_6 = l_Lean_Parser_Term_termTry_formatter___closed__1; +x_7 = l_Lean_Parser_Term_termTry_formatter___closed__2; +x_8 = l_Lean_PrettyPrinter_Formatter_orelse_formatter(x_6, x_7, x_1, x_2, x_3, x_4, x_5); +return x_8; +} +} +static lean_object* _init_l___regBuiltin_Lean_Parser_Term_termTry_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_termTry_formatter), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_Parser_Term_termTry_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l_Lean_Parser_Term_termTry___elambda__1___closed__2; +x_4 = l___regBuiltin_Lean_Parser_Term_termTry_formatter___closed__1; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +static lean_object* _init_l_Lean_Parser_Term_termTry_parenthesizer___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; lean_object* x_5; +x_1 = l_Lean_Parser_Term_termTry___elambda__1___closed__1; +x_2 = l_Lean_Parser_Term_termTry___elambda__1___closed__3; +x_3 = 1; +x_4 = lean_box(x_3); +x_5 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot_parenthesizer___boxed), 8, 3); +lean_closure_set(x_5, 0, x_1); +lean_closure_set(x_5, 1, x_2); +lean_closure_set(x_5, 2, x_4); +return x_5; +} +} +static lean_object* _init_l_Lean_Parser_Term_termTry_parenthesizer___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_termTry___elambda__1___closed__2; +x_2 = lean_unsigned_to_nat(1024u); +x_3 = l_Lean_Parser_Term_doTry_parenthesizer___closed__11; +x_4 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_leadingNode_parenthesizer___boxed), 8, 3); +lean_closure_set(x_4, 0, x_1); +lean_closure_set(x_4, 1, x_2); +lean_closure_set(x_4, 2, x_3); +return x_4; +} +} +lean_object* l_Lean_Parser_Term_termTry_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_6 = l_Lean_Parser_Term_termTry_parenthesizer___closed__1; +x_7 = l_Lean_Parser_Term_termTry_parenthesizer___closed__2; +x_8 = l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer(x_6, x_7, x_1, x_2, x_3, x_4, x_5); +return x_8; +} +} +static lean_object* _init_l___regBuiltin_Lean_Parser_Term_termTry_parenthesizer___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_termTry_parenthesizer), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_Parser_Term_termTry_parenthesizer(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_parenthesizerAttribute; +x_3 = l_Lean_Parser_Term_termTry___elambda__1___closed__2; +x_4 = l___regBuiltin_Lean_Parser_Term_termTry_parenthesizer___closed__1; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +static lean_object* _init_l_Lean_Parser_Term_termReturn___elambda__1___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("termReturn"); +return x_1; +} +} +static lean_object* _init_l_Lean_Parser_Term_termReturn___elambda__1___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__6; +x_2 = l_Lean_Parser_Term_termReturn___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termReturn___elambda__1___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_termReturn___elambda__1___closed__2; +x_2 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l_Lean_Parser_Term_termReturn___elambda__1___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_termReturn___elambda__1___closed__1; +x_2 = l_Lean_Parser_Term_termReturn___elambda__1___closed__3; +x_3 = 1; +x_4 = l_Lean_Parser_mkAntiquot(x_1, x_2, x_3); +return x_4; +} +} +static lean_object* _init_l_Lean_Parser_Term_termReturn___elambda__1___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_termReturn___elambda__1___closed__2; +x_2 = l_Lean_Parser_Term_doReturn___elambda__1___closed__9; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_nodeFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termReturn___elambda__1___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_byTactic___elambda__1___closed__9; +x_2 = l_Lean_Parser_Term_termReturn___elambda__1___closed__5; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* l_Lean_Parser_Term_termReturn___elambda__1(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; uint8_t x_6; lean_object* x_7; +x_3 = l_Lean_Parser_Term_termReturn___elambda__1___closed__4; +x_4 = lean_ctor_get(x_3, 1); +lean_inc(x_4); +x_5 = l_Lean_Parser_Term_termReturn___elambda__1___closed__6; +x_6 = 1; +x_7 = l_Lean_Parser_orelseFnCore(x_4, x_5, x_6, x_1, x_2); +return x_7; +} +} +static lean_object* _init_l_Lean_Parser_Term_termReturn___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_termReturn___elambda__1___closed__2; +x_2 = l_Lean_Parser_Term_doReturn___closed__4; +x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termReturn___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_epsilonInfo; +x_2 = l_Lean_Parser_Term_termReturn___closed__1; +x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termReturn___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_termReturn___elambda__1___closed__4; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = l_Lean_Parser_Term_termReturn___closed__2; +x_4 = l_Lean_Parser_orelseInfo(x_2, x_3); +return x_4; +} +} +static lean_object* _init_l_Lean_Parser_Term_termReturn___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_termReturn___elambda__1), 2, 0); +return x_1; +} +} +static lean_object* _init_l_Lean_Parser_Term_termReturn___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_termReturn___closed__3; +x_2 = l_Lean_Parser_Term_termReturn___closed__4; +x_3 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_termReturn() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean_Parser_Term_termReturn___closed__5; +return x_1; +} +} +lean_object* l___regBuiltinParser_Lean_Parser_Term_termReturn(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_2 = l___kind_tactic____x40_Init_Tactics___hyg_461____closed__9; +x_3 = l_Lean_Parser_Term_termReturn___elambda__1___closed__2; +x_4 = 1; +x_5 = l_Lean_Parser_Term_termReturn; +x_6 = lean_unsigned_to_nat(0u); +x_7 = l_Lean_Parser_addBuiltinParser(x_2, x_3, x_4, x_5, x_6, x_1); +return x_7; +} +} +static lean_object* _init_l_Lean_Parser_Term_termReturn_formatter___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; lean_object* x_5; +x_1 = l_Lean_Parser_Term_termReturn___elambda__1___closed__1; +x_2 = l_Lean_Parser_Term_termReturn___elambda__1___closed__3; +x_3 = 1; +x_4 = lean_box(x_3); +x_5 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot_formatter___boxed), 8, 3); +lean_closure_set(x_5, 0, x_1); +lean_closure_set(x_5, 1, x_2); +lean_closure_set(x_5, 2, x_4); +return x_5; +} +} +static lean_object* _init_l_Lean_Parser_Term_termReturn_formatter___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_termReturn___elambda__1___closed__2; +x_2 = l_Lean_Parser_leadPrec; +x_3 = l_Lean_Parser_Term_doReturn_formatter___closed__6; +x_4 = lean_alloc_closure((void*)(l_Lean_Parser_leadingNode_formatter___boxed), 8, 3); +lean_closure_set(x_4, 0, x_1); +lean_closure_set(x_4, 1, x_2); +lean_closure_set(x_4, 2, x_3); +return x_4; +} +} +lean_object* l_Lean_Parser_Term_termReturn_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_6 = l_Lean_Parser_Term_termReturn_formatter___closed__1; +x_7 = l_Lean_Parser_Term_termReturn_formatter___closed__2; +x_8 = l_Lean_PrettyPrinter_Formatter_orelse_formatter(x_6, x_7, x_1, x_2, x_3, x_4, x_5); +return x_8; +} +} +static lean_object* _init_l___regBuiltin_Lean_Parser_Term_termReturn_formatter___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_termReturn_formatter), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_Parser_Term_termReturn_formatter(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_formatterAttribute; +x_3 = l_Lean_Parser_Term_termReturn___elambda__1___closed__2; +x_4 = l___regBuiltin_Lean_Parser_Term_termReturn_formatter___closed__1; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} +static lean_object* _init_l_Lean_Parser_Term_termReturn_parenthesizer___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; lean_object* x_5; +x_1 = l_Lean_Parser_Term_termReturn___elambda__1___closed__1; +x_2 = l_Lean_Parser_Term_termReturn___elambda__1___closed__3; +x_3 = 1; +x_4 = lean_box(x_3); +x_5 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot_parenthesizer___boxed), 8, 3); +lean_closure_set(x_5, 0, x_1); +lean_closure_set(x_5, 1, x_2); +lean_closure_set(x_5, 2, x_4); +return x_5; +} +} +static lean_object* _init_l_Lean_Parser_Term_termReturn_parenthesizer___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_termReturn___elambda__1___closed__2; +x_2 = l_Lean_Parser_leadPrec; +x_3 = l_Lean_Parser_Term_doReturn_parenthesizer___closed__6; +x_4 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_leadingNode_parenthesizer___boxed), 8, 3); +lean_closure_set(x_4, 0, x_1); +lean_closure_set(x_4, 1, x_2); +lean_closure_set(x_4, 2, x_3); +return x_4; +} +} +lean_object* l_Lean_Parser_Term_termReturn_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_6 = l_Lean_Parser_Term_termReturn_parenthesizer___closed__1; +x_7 = l_Lean_Parser_Term_termReturn_parenthesizer___closed__2; +x_8 = l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer(x_6, x_7, x_1, x_2, x_3, x_4, x_5); +return x_8; +} +} +static lean_object* _init_l___regBuiltin_Lean_Parser_Term_termReturn_parenthesizer___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_termReturn_parenthesizer), 5, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_Parser_Term_termReturn_parenthesizer(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_PrettyPrinter_parenthesizerAttribute; +x_3 = l_Lean_Parser_Term_termReturn___elambda__1___closed__2; +x_4 = l___regBuiltin_Lean_Parser_Term_termReturn_parenthesizer___closed__1; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} lean_object* initialize_Init(lean_object*); lean_object* initialize_Lean_Parser_Term(lean_object*); static bool _G_initialized = false; @@ -16048,6 +17376,38 @@ l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__23 = _ lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__23); l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__24 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__24(); lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__24); +l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__25 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__25(); +lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__25); +l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__26 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__26(); +lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__26); +l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__27 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__27(); +lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__27); +l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__28 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__28(); +lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__28); +l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__29 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__29(); +lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__29); +l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__30 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__30(); +lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__30); +l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__31 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__31(); +lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__31); +l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__32 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__32(); +lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__32); +l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__33 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__33(); +lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__33); +l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__34 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__34(); +lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__34); +l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__35 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__35(); +lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__35); +l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__36 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__36(); +lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__36); +l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__37 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__37(); +lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__37); +l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__38 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__38(); +lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__38); +l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__39 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__39(); +lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__39); +l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__40 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__40(); +lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__40); l_Lean_Parser_Term_notFollowedByRedefinedTermToken___closed__1 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___closed__1(); lean_mark_persistent(l_Lean_Parser_Term_notFollowedByRedefinedTermToken___closed__1); l_Lean_Parser_Term_notFollowedByRedefinedTermToken___closed__2 = _init_l_Lean_Parser_Term_notFollowedByRedefinedTermToken___closed__2(); @@ -18016,6 +19376,186 @@ lean_mark_persistent(l___regBuiltin_Lean_Parser_Term_doElem_quot_parenthesizer__ res = l___regBuiltin_Lean_Parser_Term_doElem_quot_parenthesizer(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +l_Lean_Parser_Term_termUnless___elambda__1___closed__1 = _init_l_Lean_Parser_Term_termUnless___elambda__1___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_termUnless___elambda__1___closed__1); +l_Lean_Parser_Term_termUnless___elambda__1___closed__2 = _init_l_Lean_Parser_Term_termUnless___elambda__1___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_termUnless___elambda__1___closed__2); +l_Lean_Parser_Term_termUnless___elambda__1___closed__3 = _init_l_Lean_Parser_Term_termUnless___elambda__1___closed__3(); +lean_mark_persistent(l_Lean_Parser_Term_termUnless___elambda__1___closed__3); +l_Lean_Parser_Term_termUnless___elambda__1___closed__4 = _init_l_Lean_Parser_Term_termUnless___elambda__1___closed__4(); +lean_mark_persistent(l_Lean_Parser_Term_termUnless___elambda__1___closed__4); +l_Lean_Parser_Term_termUnless___elambda__1___closed__5 = _init_l_Lean_Parser_Term_termUnless___elambda__1___closed__5(); +lean_mark_persistent(l_Lean_Parser_Term_termUnless___elambda__1___closed__5); +l_Lean_Parser_Term_termUnless___elambda__1___closed__6 = _init_l_Lean_Parser_Term_termUnless___elambda__1___closed__6(); +lean_mark_persistent(l_Lean_Parser_Term_termUnless___elambda__1___closed__6); +l_Lean_Parser_Term_termUnless___closed__1 = _init_l_Lean_Parser_Term_termUnless___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_termUnless___closed__1); +l_Lean_Parser_Term_termUnless___closed__2 = _init_l_Lean_Parser_Term_termUnless___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_termUnless___closed__2); +l_Lean_Parser_Term_termUnless___closed__3 = _init_l_Lean_Parser_Term_termUnless___closed__3(); +lean_mark_persistent(l_Lean_Parser_Term_termUnless___closed__3); +l_Lean_Parser_Term_termUnless___closed__4 = _init_l_Lean_Parser_Term_termUnless___closed__4(); +lean_mark_persistent(l_Lean_Parser_Term_termUnless___closed__4); +l_Lean_Parser_Term_termUnless___closed__5 = _init_l_Lean_Parser_Term_termUnless___closed__5(); +lean_mark_persistent(l_Lean_Parser_Term_termUnless___closed__5); +l_Lean_Parser_Term_termUnless = _init_l_Lean_Parser_Term_termUnless(); +lean_mark_persistent(l_Lean_Parser_Term_termUnless); +res = l___regBuiltinParser_Lean_Parser_Term_termUnless(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Parser_Term_termUnless_formatter___closed__1 = _init_l_Lean_Parser_Term_termUnless_formatter___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_termUnless_formatter___closed__1); +l_Lean_Parser_Term_termUnless_formatter___closed__2 = _init_l_Lean_Parser_Term_termUnless_formatter___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_termUnless_formatter___closed__2); +l___regBuiltin_Lean_Parser_Term_termUnless_formatter___closed__1 = _init_l___regBuiltin_Lean_Parser_Term_termUnless_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_Parser_Term_termUnless_formatter___closed__1); +res = l___regBuiltin_Lean_Parser_Term_termUnless_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Parser_Term_termUnless_parenthesizer___closed__1 = _init_l_Lean_Parser_Term_termUnless_parenthesizer___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_termUnless_parenthesizer___closed__1); +l_Lean_Parser_Term_termUnless_parenthesizer___closed__2 = _init_l_Lean_Parser_Term_termUnless_parenthesizer___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_termUnless_parenthesizer___closed__2); +l___regBuiltin_Lean_Parser_Term_termUnless_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_Parser_Term_termUnless_parenthesizer___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_Parser_Term_termUnless_parenthesizer___closed__1); +res = l___regBuiltin_Lean_Parser_Term_termUnless_parenthesizer(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Parser_Term_termFor___elambda__1___closed__1 = _init_l_Lean_Parser_Term_termFor___elambda__1___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_termFor___elambda__1___closed__1); +l_Lean_Parser_Term_termFor___elambda__1___closed__2 = _init_l_Lean_Parser_Term_termFor___elambda__1___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_termFor___elambda__1___closed__2); +l_Lean_Parser_Term_termFor___elambda__1___closed__3 = _init_l_Lean_Parser_Term_termFor___elambda__1___closed__3(); +lean_mark_persistent(l_Lean_Parser_Term_termFor___elambda__1___closed__3); +l_Lean_Parser_Term_termFor___elambda__1___closed__4 = _init_l_Lean_Parser_Term_termFor___elambda__1___closed__4(); +lean_mark_persistent(l_Lean_Parser_Term_termFor___elambda__1___closed__4); +l_Lean_Parser_Term_termFor___elambda__1___closed__5 = _init_l_Lean_Parser_Term_termFor___elambda__1___closed__5(); +lean_mark_persistent(l_Lean_Parser_Term_termFor___elambda__1___closed__5); +l_Lean_Parser_Term_termFor___elambda__1___closed__6 = _init_l_Lean_Parser_Term_termFor___elambda__1___closed__6(); +lean_mark_persistent(l_Lean_Parser_Term_termFor___elambda__1___closed__6); +l_Lean_Parser_Term_termFor___closed__1 = _init_l_Lean_Parser_Term_termFor___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_termFor___closed__1); +l_Lean_Parser_Term_termFor___closed__2 = _init_l_Lean_Parser_Term_termFor___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_termFor___closed__2); +l_Lean_Parser_Term_termFor___closed__3 = _init_l_Lean_Parser_Term_termFor___closed__3(); +lean_mark_persistent(l_Lean_Parser_Term_termFor___closed__3); +l_Lean_Parser_Term_termFor___closed__4 = _init_l_Lean_Parser_Term_termFor___closed__4(); +lean_mark_persistent(l_Lean_Parser_Term_termFor___closed__4); +l_Lean_Parser_Term_termFor___closed__5 = _init_l_Lean_Parser_Term_termFor___closed__5(); +lean_mark_persistent(l_Lean_Parser_Term_termFor___closed__5); +l_Lean_Parser_Term_termFor = _init_l_Lean_Parser_Term_termFor(); +lean_mark_persistent(l_Lean_Parser_Term_termFor); +res = l___regBuiltinParser_Lean_Parser_Term_termFor(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Parser_Term_termFor_formatter___closed__1 = _init_l_Lean_Parser_Term_termFor_formatter___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_termFor_formatter___closed__1); +l_Lean_Parser_Term_termFor_formatter___closed__2 = _init_l_Lean_Parser_Term_termFor_formatter___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_termFor_formatter___closed__2); +l___regBuiltin_Lean_Parser_Term_termFor_formatter___closed__1 = _init_l___regBuiltin_Lean_Parser_Term_termFor_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_Parser_Term_termFor_formatter___closed__1); +res = l___regBuiltin_Lean_Parser_Term_termFor_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Parser_Term_termFor_parenthesizer___closed__1 = _init_l_Lean_Parser_Term_termFor_parenthesizer___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_termFor_parenthesizer___closed__1); +l_Lean_Parser_Term_termFor_parenthesizer___closed__2 = _init_l_Lean_Parser_Term_termFor_parenthesizer___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_termFor_parenthesizer___closed__2); +l___regBuiltin_Lean_Parser_Term_termFor_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_Parser_Term_termFor_parenthesizer___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_Parser_Term_termFor_parenthesizer___closed__1); +res = l___regBuiltin_Lean_Parser_Term_termFor_parenthesizer(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Parser_Term_termTry___elambda__1___closed__1 = _init_l_Lean_Parser_Term_termTry___elambda__1___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_termTry___elambda__1___closed__1); +l_Lean_Parser_Term_termTry___elambda__1___closed__2 = _init_l_Lean_Parser_Term_termTry___elambda__1___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_termTry___elambda__1___closed__2); +l_Lean_Parser_Term_termTry___elambda__1___closed__3 = _init_l_Lean_Parser_Term_termTry___elambda__1___closed__3(); +lean_mark_persistent(l_Lean_Parser_Term_termTry___elambda__1___closed__3); +l_Lean_Parser_Term_termTry___elambda__1___closed__4 = _init_l_Lean_Parser_Term_termTry___elambda__1___closed__4(); +lean_mark_persistent(l_Lean_Parser_Term_termTry___elambda__1___closed__4); +l_Lean_Parser_Term_termTry___elambda__1___closed__5 = _init_l_Lean_Parser_Term_termTry___elambda__1___closed__5(); +lean_mark_persistent(l_Lean_Parser_Term_termTry___elambda__1___closed__5); +l_Lean_Parser_Term_termTry___elambda__1___closed__6 = _init_l_Lean_Parser_Term_termTry___elambda__1___closed__6(); +lean_mark_persistent(l_Lean_Parser_Term_termTry___elambda__1___closed__6); +l_Lean_Parser_Term_termTry___closed__1 = _init_l_Lean_Parser_Term_termTry___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_termTry___closed__1); +l_Lean_Parser_Term_termTry___closed__2 = _init_l_Lean_Parser_Term_termTry___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_termTry___closed__2); +l_Lean_Parser_Term_termTry___closed__3 = _init_l_Lean_Parser_Term_termTry___closed__3(); +lean_mark_persistent(l_Lean_Parser_Term_termTry___closed__3); +l_Lean_Parser_Term_termTry___closed__4 = _init_l_Lean_Parser_Term_termTry___closed__4(); +lean_mark_persistent(l_Lean_Parser_Term_termTry___closed__4); +l_Lean_Parser_Term_termTry___closed__5 = _init_l_Lean_Parser_Term_termTry___closed__5(); +lean_mark_persistent(l_Lean_Parser_Term_termTry___closed__5); +l_Lean_Parser_Term_termTry = _init_l_Lean_Parser_Term_termTry(); +lean_mark_persistent(l_Lean_Parser_Term_termTry); +res = l___regBuiltinParser_Lean_Parser_Term_termTry(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Parser_Term_termTry_formatter___closed__1 = _init_l_Lean_Parser_Term_termTry_formatter___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_termTry_formatter___closed__1); +l_Lean_Parser_Term_termTry_formatter___closed__2 = _init_l_Lean_Parser_Term_termTry_formatter___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_termTry_formatter___closed__2); +l___regBuiltin_Lean_Parser_Term_termTry_formatter___closed__1 = _init_l___regBuiltin_Lean_Parser_Term_termTry_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_Parser_Term_termTry_formatter___closed__1); +res = l___regBuiltin_Lean_Parser_Term_termTry_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Parser_Term_termTry_parenthesizer___closed__1 = _init_l_Lean_Parser_Term_termTry_parenthesizer___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_termTry_parenthesizer___closed__1); +l_Lean_Parser_Term_termTry_parenthesizer___closed__2 = _init_l_Lean_Parser_Term_termTry_parenthesizer___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_termTry_parenthesizer___closed__2); +l___regBuiltin_Lean_Parser_Term_termTry_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_Parser_Term_termTry_parenthesizer___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_Parser_Term_termTry_parenthesizer___closed__1); +res = l___regBuiltin_Lean_Parser_Term_termTry_parenthesizer(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Parser_Term_termReturn___elambda__1___closed__1 = _init_l_Lean_Parser_Term_termReturn___elambda__1___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_termReturn___elambda__1___closed__1); +l_Lean_Parser_Term_termReturn___elambda__1___closed__2 = _init_l_Lean_Parser_Term_termReturn___elambda__1___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_termReturn___elambda__1___closed__2); +l_Lean_Parser_Term_termReturn___elambda__1___closed__3 = _init_l_Lean_Parser_Term_termReturn___elambda__1___closed__3(); +lean_mark_persistent(l_Lean_Parser_Term_termReturn___elambda__1___closed__3); +l_Lean_Parser_Term_termReturn___elambda__1___closed__4 = _init_l_Lean_Parser_Term_termReturn___elambda__1___closed__4(); +lean_mark_persistent(l_Lean_Parser_Term_termReturn___elambda__1___closed__4); +l_Lean_Parser_Term_termReturn___elambda__1___closed__5 = _init_l_Lean_Parser_Term_termReturn___elambda__1___closed__5(); +lean_mark_persistent(l_Lean_Parser_Term_termReturn___elambda__1___closed__5); +l_Lean_Parser_Term_termReturn___elambda__1___closed__6 = _init_l_Lean_Parser_Term_termReturn___elambda__1___closed__6(); +lean_mark_persistent(l_Lean_Parser_Term_termReturn___elambda__1___closed__6); +l_Lean_Parser_Term_termReturn___closed__1 = _init_l_Lean_Parser_Term_termReturn___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_termReturn___closed__1); +l_Lean_Parser_Term_termReturn___closed__2 = _init_l_Lean_Parser_Term_termReturn___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_termReturn___closed__2); +l_Lean_Parser_Term_termReturn___closed__3 = _init_l_Lean_Parser_Term_termReturn___closed__3(); +lean_mark_persistent(l_Lean_Parser_Term_termReturn___closed__3); +l_Lean_Parser_Term_termReturn___closed__4 = _init_l_Lean_Parser_Term_termReturn___closed__4(); +lean_mark_persistent(l_Lean_Parser_Term_termReturn___closed__4); +l_Lean_Parser_Term_termReturn___closed__5 = _init_l_Lean_Parser_Term_termReturn___closed__5(); +lean_mark_persistent(l_Lean_Parser_Term_termReturn___closed__5); +l_Lean_Parser_Term_termReturn = _init_l_Lean_Parser_Term_termReturn(); +lean_mark_persistent(l_Lean_Parser_Term_termReturn); +res = l___regBuiltinParser_Lean_Parser_Term_termReturn(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Parser_Term_termReturn_formatter___closed__1 = _init_l_Lean_Parser_Term_termReturn_formatter___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_termReturn_formatter___closed__1); +l_Lean_Parser_Term_termReturn_formatter___closed__2 = _init_l_Lean_Parser_Term_termReturn_formatter___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_termReturn_formatter___closed__2); +l___regBuiltin_Lean_Parser_Term_termReturn_formatter___closed__1 = _init_l___regBuiltin_Lean_Parser_Term_termReturn_formatter___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_Parser_Term_termReturn_formatter___closed__1); +res = l___regBuiltin_Lean_Parser_Term_termReturn_formatter(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); +l_Lean_Parser_Term_termReturn_parenthesizer___closed__1 = _init_l_Lean_Parser_Term_termReturn_parenthesizer___closed__1(); +lean_mark_persistent(l_Lean_Parser_Term_termReturn_parenthesizer___closed__1); +l_Lean_Parser_Term_termReturn_parenthesizer___closed__2 = _init_l_Lean_Parser_Term_termReturn_parenthesizer___closed__2(); +lean_mark_persistent(l_Lean_Parser_Term_termReturn_parenthesizer___closed__2); +l___regBuiltin_Lean_Parser_Term_termReturn_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_Parser_Term_termReturn_parenthesizer___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_Parser_Term_termReturn_parenthesizer___closed__1); +res = l___regBuiltin_Lean_Parser_Term_termReturn_parenthesizer(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); return lean_io_result_mk_ok(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Lean/Parser/Syntax.c b/stage0/stdlib/Lean/Parser/Syntax.c index 8e5229791f..03ad0b3629 100644 --- a/stage0/stdlib/Lean/Parser/Syntax.c +++ b/stage0/stdlib/Lean/Parser/Syntax.c @@ -437,7 +437,6 @@ lean_object* l_Lean_Parser_Command_infix_formatter___closed__3; lean_object* l_Lean_Parser_Syntax_char___closed__2; lean_object* l_Lean_Parser_Command_postfix___elambda__1___closed__8; extern lean_object* l_Lean_Parser_Term_syntheticHole___closed__1; -lean_object* l_Lean_Parser_Syntax_try___elambda__1___closed__8; lean_object* l_Lean_Parser_Syntax_noWs_parenthesizer___closed__1; lean_object* l_Lean_Parser_Command_parserKindPrio___closed__2; lean_object* l_Lean_Parser_checkPrecFn(lean_object*, lean_object*, lean_object*); @@ -1705,6 +1704,7 @@ lean_object* l_Lean_Parser_Command_macroTail___closed__3; lean_object* l_Lean_Parser_Command_macroTail___closed__1; lean_object* l_Lean_Parser_Syntax_try___elambda__1___closed__2; lean_object* l_Lean_Parser_Command_mixfixKind_formatter___closed__4; +extern lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__27; lean_object* l_Lean_PrettyPrinter_Parenthesizer_identEq_parenthesizer___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_infixl_formatter___closed__3; lean_object* l___regBuiltin_Lean_Parser_Command_macro_parenthesizer(lean_object*); @@ -5616,43 +5616,35 @@ return x_5; static lean_object* _init_l_Lean_Parser_Syntax_try___elambda__1___closed__1() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("try"); -return x_1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Syntax_paren___elambda__1___closed__2; +x_2 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__27; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; } } static lean_object* _init_l_Lean_Parser_Syntax_try___elambda__1___closed__2() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Syntax_paren___elambda__1___closed__2; -x_2 = l_Lean_Parser_Syntax_try___elambda__1___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} -static lean_object* _init_l_Lean_Parser_Syntax_try___elambda__1___closed__3() { -_start: -{ lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Syntax_try___elambda__1___closed__2; +x_1 = l_Lean_Parser_Syntax_try___elambda__1___closed__1; x_2 = lean_alloc_ctor(1, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -static lean_object* _init_l_Lean_Parser_Syntax_try___elambda__1___closed__4() { +static lean_object* _init_l_Lean_Parser_Syntax_try___elambda__1___closed__3() { _start: { lean_object* x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; -x_1 = l_Lean_Parser_Syntax_try___elambda__1___closed__1; -x_2 = l_Lean_Parser_Syntax_try___elambda__1___closed__3; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__27; +x_2 = l_Lean_Parser_Syntax_try___elambda__1___closed__2; x_3 = 1; x_4 = l_Lean_Parser_mkAntiquot(x_1, x_2, x_3); return x_4; } } -static lean_object* _init_l_Lean_Parser_Syntax_try___elambda__1___closed__5() { +static lean_object* _init_l_Lean_Parser_Syntax_try___elambda__1___closed__4() { _start: { lean_object* x_1; lean_object* x_2; @@ -5662,13 +5654,25 @@ lean_closure_set(x_2, 0, x_1); return x_2; } } +static lean_object* _init_l_Lean_Parser_Syntax_try___elambda__1___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Syntax_try___elambda__1___closed__4; +x_2 = l_Lean_Parser_Syntax_interpolatedStr___elambda__1___closed__7; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} static lean_object* _init_l_Lean_Parser_Syntax_try___elambda__1___closed__6() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Syntax_try___elambda__1___closed__5; -x_2 = l_Lean_Parser_Syntax_interpolatedStr___elambda__1___closed__7; -x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); +x_1 = l_Lean_Parser_Syntax_try___elambda__1___closed__1; +x_2 = l_Lean_Parser_Syntax_try___elambda__1___closed__5; +x_3 = lean_alloc_closure((void*)(l_Lean_Parser_nodeFn), 4, 2); lean_closure_set(x_3, 0, x_1); lean_closure_set(x_3, 1, x_2); return x_3; @@ -5678,20 +5682,8 @@ static lean_object* _init_l_Lean_Parser_Syntax_try___elambda__1___closed__7() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Syntax_try___elambda__1___closed__2; -x_2 = l_Lean_Parser_Syntax_try___elambda__1___closed__6; -x_3 = lean_alloc_closure((void*)(l_Lean_Parser_nodeFn), 4, 2); -lean_closure_set(x_3, 0, x_1); -lean_closure_set(x_3, 1, x_2); -return x_3; -} -} -static lean_object* _init_l_Lean_Parser_Syntax_try___elambda__1___closed__8() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__8; -x_2 = l_Lean_Parser_Syntax_try___elambda__1___closed__7; +x_2 = l_Lean_Parser_Syntax_try___elambda__1___closed__6; x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2); lean_closure_set(x_3, 0, x_1); lean_closure_set(x_3, 1, x_2); @@ -5702,10 +5694,10 @@ lean_object* l_Lean_Parser_Syntax_try___elambda__1(lean_object* x_1, lean_object _start: { lean_object* x_3; lean_object* x_4; lean_object* x_5; uint8_t x_6; lean_object* x_7; -x_3 = l_Lean_Parser_Syntax_try___elambda__1___closed__4; +x_3 = l_Lean_Parser_Syntax_try___elambda__1___closed__3; x_4 = lean_ctor_get(x_3, 1); lean_inc(x_4); -x_5 = l_Lean_Parser_Syntax_try___elambda__1___closed__8; +x_5 = l_Lean_Parser_Syntax_try___elambda__1___closed__7; x_6 = 1; x_7 = l_Lean_Parser_orelseFnCore(x_4, x_5, x_6, x_1, x_2); return x_7; @@ -5737,7 +5729,7 @@ static lean_object* _init_l_Lean_Parser_Syntax_try___closed__3() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Syntax_try___elambda__1___closed__2; +x_1 = l_Lean_Parser_Syntax_try___elambda__1___closed__1; x_2 = l_Lean_Parser_Syntax_try___closed__2; x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); return x_3; @@ -5757,7 +5749,7 @@ static lean_object* _init_l_Lean_Parser_Syntax_try___closed__5() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Parser_Syntax_try___elambda__1___closed__4; +x_1 = l_Lean_Parser_Syntax_try___elambda__1___closed__3; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); x_3 = l_Lean_Parser_Syntax_try___closed__4; @@ -5798,7 +5790,7 @@ _start: { lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; x_2 = l_Lean_Parser_categoryParserFnImpl___closed__4; -x_3 = l_Lean_Parser_Syntax_try___elambda__1___closed__2; +x_3 = l_Lean_Parser_Syntax_try___elambda__1___closed__1; x_4 = 1; x_5 = l_Lean_Parser_Syntax_try; x_6 = lean_unsigned_to_nat(0u); @@ -5810,8 +5802,8 @@ static lean_object* _init_l_Lean_Parser_Syntax_try_formatter___closed__1() { _start: { lean_object* x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; lean_object* x_5; -x_1 = l_Lean_Parser_Syntax_try___elambda__1___closed__1; -x_2 = l_Lean_Parser_Syntax_try___elambda__1___closed__3; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__27; +x_2 = l_Lean_Parser_Syntax_try___elambda__1___closed__2; x_3 = 1; x_4 = lean_box(x_3); x_5 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot_formatter___boxed), 8, 3); @@ -5847,7 +5839,7 @@ static lean_object* _init_l_Lean_Parser_Syntax_try_formatter___closed__4() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Parser_Syntax_try___elambda__1___closed__2; +x_1 = l_Lean_Parser_Syntax_try___elambda__1___closed__1; x_2 = lean_unsigned_to_nat(1024u); x_3 = l_Lean_Parser_Syntax_try_formatter___closed__3; x_4 = lean_alloc_closure((void*)(l_Lean_Parser_leadingNode_formatter___boxed), 8, 3); @@ -5880,7 +5872,7 @@ _start: { lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_2 = l_Lean_PrettyPrinter_formatterAttribute; -x_3 = l_Lean_Parser_Syntax_try___elambda__1___closed__2; +x_3 = l_Lean_Parser_Syntax_try___elambda__1___closed__1; x_4 = l___regBuiltin_Lean_Parser_Syntax_try_formatter___closed__1; x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); return x_5; @@ -5890,8 +5882,8 @@ static lean_object* _init_l_Lean_Parser_Syntax_try_parenthesizer___closed__1() { _start: { lean_object* x_1; lean_object* x_2; uint8_t x_3; lean_object* x_4; lean_object* x_5; -x_1 = l_Lean_Parser_Syntax_try___elambda__1___closed__1; -x_2 = l_Lean_Parser_Syntax_try___elambda__1___closed__3; +x_1 = l_Lean_Parser_Term_notFollowedByRedefinedTermToken___elambda__1___closed__27; +x_2 = l_Lean_Parser_Syntax_try___elambda__1___closed__2; x_3 = 1; x_4 = lean_box(x_3); x_5 = lean_alloc_closure((void*)(l_Lean_Parser_mkAntiquot_parenthesizer___boxed), 8, 3); @@ -5930,7 +5922,7 @@ static lean_object* _init_l_Lean_Parser_Syntax_try_parenthesizer___closed__4() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Parser_Syntax_try___elambda__1___closed__2; +x_1 = l_Lean_Parser_Syntax_try___elambda__1___closed__1; x_2 = lean_unsigned_to_nat(1024u); x_3 = l_Lean_Parser_Syntax_try_parenthesizer___closed__3; x_4 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_leadingNode_parenthesizer___boxed), 8, 3); @@ -5963,7 +5955,7 @@ _start: { lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_2 = l_Lean_PrettyPrinter_parenthesizerAttribute; -x_3 = l_Lean_Parser_Syntax_try___elambda__1___closed__2; +x_3 = l_Lean_Parser_Syntax_try___elambda__1___closed__1; x_4 = l___regBuiltin_Lean_Parser_Syntax_try_parenthesizer___closed__1; x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); return x_5; @@ -19789,8 +19781,6 @@ l_Lean_Parser_Syntax_try___elambda__1___closed__6 = _init_l_Lean_Parser_Syntax_t lean_mark_persistent(l_Lean_Parser_Syntax_try___elambda__1___closed__6); l_Lean_Parser_Syntax_try___elambda__1___closed__7 = _init_l_Lean_Parser_Syntax_try___elambda__1___closed__7(); lean_mark_persistent(l_Lean_Parser_Syntax_try___elambda__1___closed__7); -l_Lean_Parser_Syntax_try___elambda__1___closed__8 = _init_l_Lean_Parser_Syntax_try___elambda__1___closed__8(); -lean_mark_persistent(l_Lean_Parser_Syntax_try___elambda__1___closed__8); l_Lean_Parser_Syntax_try___closed__1 = _init_l_Lean_Parser_Syntax_try___closed__1(); lean_mark_persistent(l_Lean_Parser_Syntax_try___closed__1); l_Lean_Parser_Syntax_try___closed__2 = _init_l_Lean_Parser_Syntax_try___closed__2();