From 80d44710b7ff020da8d66cbf276b2774f3197cc9 Mon Sep 17 00:00:00 2001 From: Leonardo de Moura Date: Thu, 12 Nov 2020 14:48:28 -0800 Subject: [PATCH] chore: update stage0 --- stage0/src/Lean/Elab/Do.lean | 14 +- stage0/src/Lean/Meta/ExprDefEq.lean | 1 + stage0/stdlib/Lean/Elab/Do.c | 802 ++++++++++++++-------------- stage0/stdlib/Lean/Meta/ExprDefEq.c | 779 +++++++++++++-------------- 4 files changed, 807 insertions(+), 789 deletions(-) diff --git a/stage0/src/Lean/Elab/Do.lean b/stage0/src/Lean/Elab/Do.lean index 296b104783..f1ebc804ec 100644 --- a/stage0/src/Lean/Elab/Do.lean +++ b/stage0/src/Lean/Elab/Do.lean @@ -44,15 +44,16 @@ private partial def hasLiftMethod : Syntax → Bool | _ => false structure ExtractMonadResult := - (m : Expr) - (α : Expr) - (hasBindInst : Expr) + (m : Expr) + (α : Expr) + (hasBindInst : Expr) + (expectedType : Expr) private def mkIdBindFor (type : Expr) : TermElabM ExtractMonadResult := do let u ← getDecLevel type let id := Lean.mkConst `Id [u] let idBindVal := Lean.mkConst `Id.hasBind [u] - pure { m := id, hasBindInst := idBindVal, α := type } + pure { m := id, hasBindInst := idBindVal, α := type, expectedType := mkApp id type } private def extractBind (expectedType? : Option Expr) : TermElabM ExtractMonadResult := do match expectedType? with @@ -65,7 +66,7 @@ private def extractBind (expectedType? : Option Expr) : TermElabM ExtractMonadRe try let bindInstType ← mkAppM `Bind #[m] let bindInstVal ← synthesizeInst bindInstType - pure { m := m, hasBindInst := bindInstVal, α := α } + pure { m := m, hasBindInst := bindInstVal, α := α, expectedType := expectedType } catch _ => mkIdBindFor type | _ => mkIdBindFor type @@ -1530,8 +1531,7 @@ def elabDo : TermElab := fun stx expectedType? => do let codeBlock ← ToCodeBlock.run stx m let stxNew ← liftMacroM $ ToTerm.run codeBlock.code m trace[Elab.do]! stxNew - let expectedType := mkApp bindInfo.m bindInfo.α - withMacroExpansion stx stxNew $ elabTermEnsuringType stxNew expectedType + withMacroExpansion stx stxNew $ elabTermEnsuringType stxNew bindInfo.expectedType end Do diff --git a/stage0/src/Lean/Meta/ExprDefEq.lean b/stage0/src/Lean/Meta/ExprDefEq.lean index 98894e0036..55c7dbff38 100644 --- a/stage0/src/Lean/Meta/ExprDefEq.lean +++ b/stage0/src/Lean/Meta/ExprDefEq.lean @@ -675,6 +675,7 @@ private partial def processAssignmentFOApprox (mvar : Expr) (args : Array Expr) pure false else trace[Meta.isDefEq.foApprox]! "{mvar} {args} := {v}" + let v := v.headBeta if (← commitWhen $ processAssignmentFOApproxAux mvar args v) then pure true else diff --git a/stage0/stdlib/Lean/Elab/Do.c b/stage0/stdlib/Lean/Elab/Do.c index eeb66a0e7a..c5e8fc58d3 100644 --- a/stage0/stdlib/Lean/Elab/Do.c +++ b/stage0/stdlib/Lean/Elab/Do.c @@ -264,7 +264,7 @@ extern lean_object* l_Lean_Meta_assert___closed__1; lean_object* l_Lean_Elab_Term_Do_ToCodeBlock_doLetArrowToCode___closed__6; lean_object* l_Lean_Elab_Term_Do_mkSimpleJmp___closed__1; lean_object* lean_string_utf8_byte_size(lean_object*); -lean_object* l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_Do_ToTerm_matchNestedTermResult___closed__19; lean_object* l_Lean_throwErrorAt___at_Lean_Elab_Term_Do_ToCodeBlock_mkForInBody___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_MessageData_joinSep(lean_object*, lean_object*); @@ -593,7 +593,7 @@ lean_object* l_Array_foldrMUnsafe_fold___at___private_Lean_Elab_Do_0__Lean_Elab_ lean_object* l_Array_mapMUnsafe_map___at_Lean_Elab_Term_Do_ToTerm_mkJoinPointCore___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_Do_ToCodeBlock_doLetArrowToCode_match__2___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_throwUnsupportedSyntax___at_Lean_Elab_Term_Do_mkJmp___spec__6(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___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* l_Lean_Elab_Term_Do_mkAuxDeclFor___at_Lean_Elab_Term_Do_pullExitPointsAux___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_foldlMUnsafe_fold___at_Lean_Elab_Term_Do_eraseVars___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_Do_convertTerminalActionIntoJmp_loop_match__1(lean_object*); @@ -741,7 +741,7 @@ lean_object* l_Lean_Elab_Term_Do_ToTerm_returnToTerm___boxed(lean_object*, lean_ lean_object* l_Lean_Elab_Term_Do_pullExitPointsAux___lambda__3(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_foldrMUnsafe_fold___at___private_Lean_Elab_Do_0__Lean_Elab_Term_Do_expandDoIf_x3f___spec__1(lean_object*, lean_object*, size_t, size_t, lean_object*); lean_object* l_Lean_Elab_Term_Do_hasExitPointPred_loop___at_Lean_Elab_Term_Do_hasTerminalAction___spec__1___boxed(lean_object*); -lean_object* l_Lean_Elab_Term_initFn____x40_Lean_Elab_Do___hyg_23880_(lean_object*); +lean_object* l_Lean_Elab_Term_initFn____x40_Lean_Elab_Do___hyg_23879_(lean_object*); lean_object* l_Lean_Elab_Term_Do_ToCodeBlock_ensureEOS___closed__3; lean_object* l_Lean_Elab_Term_Do_ToCodeBlock_doSeqToCode___closed__3; lean_object* l_Lean_Elab_Term_Do_ToCodeBlock_doReassignArrowToCode___closed__3; @@ -1826,7 +1826,7 @@ uint8_t x_10; x_10 = !lean_is_exclusive(x_9); if (x_10 == 0) { -lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; x_11 = lean_ctor_get(x_9, 0); x_12 = lean_box(0); x_13 = lean_alloc_ctor(1, 2, 0); @@ -1837,61 +1837,69 @@ lean_inc(x_13); x_15 = l_Lean_mkConst(x_14, x_13); x_16 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_mkIdBindFor___closed__4; x_17 = l_Lean_mkConst(x_16, x_13); -x_18 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_18, 0, x_15); -lean_ctor_set(x_18, 1, x_1); -lean_ctor_set(x_18, 2, x_17); -lean_ctor_set(x_9, 0, x_18); +lean_inc(x_1); +lean_inc(x_15); +x_18 = l_Lean_mkApp(x_15, x_1); +x_19 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_19, 0, x_15); +lean_ctor_set(x_19, 1, x_1); +lean_ctor_set(x_19, 2, x_17); +lean_ctor_set(x_19, 3, x_18); +lean_ctor_set(x_9, 0, x_19); return x_9; } else { -lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; -x_19 = lean_ctor_get(x_9, 0); -x_20 = lean_ctor_get(x_9, 1); +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_20 = lean_ctor_get(x_9, 0); +x_21 = lean_ctor_get(x_9, 1); +lean_inc(x_21); lean_inc(x_20); -lean_inc(x_19); lean_dec(x_9); -x_21 = lean_box(0); -x_22 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_22, 0, x_19); -lean_ctor_set(x_22, 1, x_21); -x_23 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_mkIdBindFor___closed__2; -lean_inc(x_22); -x_24 = l_Lean_mkConst(x_23, x_22); -x_25 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_mkIdBindFor___closed__4; -x_26 = l_Lean_mkConst(x_25, x_22); -x_27 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_27, 0, x_24); -lean_ctor_set(x_27, 1, x_1); -lean_ctor_set(x_27, 2, x_26); -x_28 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_28, 0, x_27); -lean_ctor_set(x_28, 1, x_20); -return x_28; +x_22 = lean_box(0); +x_23 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_23, 0, x_20); +lean_ctor_set(x_23, 1, x_22); +x_24 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_mkIdBindFor___closed__2; +lean_inc(x_23); +x_25 = l_Lean_mkConst(x_24, x_23); +x_26 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_mkIdBindFor___closed__4; +x_27 = l_Lean_mkConst(x_26, x_23); +lean_inc(x_1); +lean_inc(x_25); +x_28 = l_Lean_mkApp(x_25, x_1); +x_29 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_29, 0, x_25); +lean_ctor_set(x_29, 1, x_1); +lean_ctor_set(x_29, 2, x_27); +lean_ctor_set(x_29, 3, x_28); +x_30 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_30, 0, x_29); +lean_ctor_set(x_30, 1, x_21); +return x_30; } } else { -uint8_t x_29; +uint8_t x_31; lean_dec(x_1); -x_29 = !lean_is_exclusive(x_9); -if (x_29 == 0) +x_31 = !lean_is_exclusive(x_9); +if (x_31 == 0) { return x_9; } else { -lean_object* x_30; lean_object* x_31; lean_object* x_32; -x_30 = lean_ctor_get(x_9, 0); -x_31 = lean_ctor_get(x_9, 1); -lean_inc(x_31); -lean_inc(x_30); +lean_object* x_32; lean_object* x_33; lean_object* x_34; +x_32 = lean_ctor_get(x_9, 0); +x_33 = lean_ctor_get(x_9, 1); +lean_inc(x_33); +lean_inc(x_32); lean_dec(x_9); -x_32 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_32, 0, x_30); -lean_ctor_set(x_32, 1, x_31); -return x_32; +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_32); +lean_ctor_set(x_34, 1, x_33); +return x_34; } } } @@ -1971,112 +1979,117 @@ x_2 = lean_alloc_closure((void*)(l___private_Lean_Elab_Do_0__Lean_Elab_Term_extr return x_2; } } -lean_object* l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___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* l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___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) { _start: { if (lean_obj_tag(x_1) == 5) { -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_10 = lean_ctor_get(x_1, 0); -lean_inc(x_10); -x_11 = lean_ctor_get(x_1, 1); +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_11 = lean_ctor_get(x_1, 0); lean_inc(x_11); -x_12 = l_Lean_mkOptionalNode___closed__2; -lean_inc(x_10); -x_13 = lean_array_push(x_12, x_10); -x_14 = l_myMacro____x40_Init_Notation___hyg_4868____closed__5; +x_12 = lean_ctor_get(x_1, 1); +lean_inc(x_12); +x_13 = l_Lean_mkOptionalNode___closed__2; +lean_inc(x_11); +x_14 = lean_array_push(x_13, x_11); +x_15 = l_myMacro____x40_Init_Notation___hyg_4868____closed__5; +lean_inc(x_9); lean_inc(x_8); lean_inc(x_7); lean_inc(x_6); -lean_inc(x_5); -x_15 = l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_0__Lean_Elab_Term_isMonad_x3f___spec__1(x_14, x_13, x_3, x_4, x_5, x_6, x_7, x_8, x_9); -if (lean_obj_tag(x_15) == 0) +x_16 = l_Lean_Meta_mkAppM___at___private_Lean_Elab_Term_0__Lean_Elab_Term_isMonad_x3f___spec__1(x_15, x_14, x_4, x_5, x_6, x_7, x_8, x_9, x_10); +if (lean_obj_tag(x_16) == 0) { -lean_object* x_16; lean_object* x_17; lean_object* x_18; -x_16 = lean_ctor_get(x_15, 0); -lean_inc(x_16); -x_17 = lean_ctor_get(x_15, 1); +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_ctor_get(x_16, 0); lean_inc(x_17); -lean_dec(x_15); +x_18 = lean_ctor_get(x_16, 1); +lean_inc(x_18); +lean_dec(x_16); +lean_inc(x_9); lean_inc(x_8); lean_inc(x_7); lean_inc(x_6); -lean_inc(x_5); -lean_inc(x_3); -x_18 = l_Lean_Elab_Term_synthesizeInst(x_16, x_3, x_4, x_5, x_6, x_7, x_8, x_17); -if (lean_obj_tag(x_18) == 0) +lean_inc(x_4); +x_19 = l_Lean_Elab_Term_synthesizeInst(x_17, x_4, x_5, x_6, x_7, x_8, x_9, x_18); +if (lean_obj_tag(x_19) == 0) { -uint8_t x_19; +uint8_t x_20; +lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_3); +lean_dec(x_4); lean_dec(x_1); -x_19 = !lean_is_exclusive(x_18); -if (x_19 == 0) +x_20 = !lean_is_exclusive(x_19); +if (x_20 == 0) { -lean_object* x_20; lean_object* x_21; -x_20 = lean_ctor_get(x_18, 0); -x_21 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_21, 0, x_10); -lean_ctor_set(x_21, 1, x_11); -lean_ctor_set(x_21, 2, x_20); -lean_ctor_set(x_18, 0, x_21); -return x_18; +lean_object* x_21; lean_object* x_22; +x_21 = lean_ctor_get(x_19, 0); +x_22 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_22, 0, x_11); +lean_ctor_set(x_22, 1, x_12); +lean_ctor_set(x_22, 2, x_21); +lean_ctor_set(x_22, 3, x_2); +lean_ctor_set(x_19, 0, x_22); +return x_19; } else { -lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; -x_22 = lean_ctor_get(x_18, 0); -x_23 = lean_ctor_get(x_18, 1); +lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; +x_23 = lean_ctor_get(x_19, 0); +x_24 = lean_ctor_get(x_19, 1); +lean_inc(x_24); lean_inc(x_23); -lean_inc(x_22); -lean_dec(x_18); -x_24 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_24, 0, x_10); -lean_ctor_set(x_24, 1, x_11); -lean_ctor_set(x_24, 2, x_22); -x_25 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_25, 0, x_24); -lean_ctor_set(x_25, 1, x_23); -return x_25; +lean_dec(x_19); +x_25 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_25, 0, x_11); +lean_ctor_set(x_25, 1, x_12); +lean_ctor_set(x_25, 2, x_23); +lean_ctor_set(x_25, 3, x_2); +x_26 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_26, 0, x_25); +lean_ctor_set(x_26, 1, x_24); +return x_26; } } else { -lean_object* x_26; lean_object* x_27; +lean_object* x_27; lean_object* x_28; +lean_dec(x_12); lean_dec(x_11); -lean_dec(x_10); -x_26 = lean_ctor_get(x_18, 1); -lean_inc(x_26); -lean_dec(x_18); -x_27 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_mkIdBindFor(x_1, x_3, x_4, x_5, x_6, x_7, x_8, x_26); -lean_dec(x_3); -return x_27; +lean_dec(x_2); +x_27 = lean_ctor_get(x_19, 1); +lean_inc(x_27); +lean_dec(x_19); +x_28 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_mkIdBindFor(x_1, x_4, x_5, x_6, x_7, x_8, x_9, x_27); +lean_dec(x_4); +return x_28; } } else { -lean_object* x_28; lean_object* x_29; +lean_object* x_29; lean_object* x_30; +lean_dec(x_12); lean_dec(x_11); -lean_dec(x_10); -x_28 = lean_ctor_get(x_15, 1); -lean_inc(x_28); -lean_dec(x_15); -x_29 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_mkIdBindFor(x_1, x_3, x_4, x_5, x_6, x_7, x_8, x_28); -lean_dec(x_3); -return x_29; -} -} -else -{ -lean_object* x_30; -x_30 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_mkIdBindFor(x_1, x_3, x_4, x_5, x_6, x_7, x_8, x_9); -lean_dec(x_3); +lean_dec(x_2); +x_29 = lean_ctor_get(x_16, 1); +lean_inc(x_29); +lean_dec(x_16); +x_30 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_mkIdBindFor(x_1, x_4, x_5, x_6, x_7, x_8, x_9, x_29); +lean_dec(x_4); return x_30; } } +else +{ +lean_object* x_31; +lean_dec(x_2); +x_31 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_mkIdBindFor(x_1, x_4, x_5, x_6, x_7, x_8, x_9, x_10); +lean_dec(x_4); +return x_31; +} +} } static lean_object* _init_l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___closed__1() { _start: @@ -2145,6 +2158,7 @@ lean_ctor_set(x_17, 2, x_14); lean_inc(x_7); lean_inc(x_6); lean_inc(x_5); +lean_inc(x_12); x_18 = l_Lean_Meta_whnf___at___private_Lean_Elab_Term_0__Lean_Elab_Term_isTypeApp_x3f___spec__1(x_12, x_2, x_3, x_17, x_5, x_6, x_7, x_8); if (lean_obj_tag(x_18) == 0) { @@ -2161,13 +2175,14 @@ if (x_22 == 0) { lean_object* x_23; lean_object* x_24; x_23 = lean_box(0); -x_24 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___lambda__1(x_19, x_23, x_2, x_3, x_4, x_5, x_6, x_7, x_20); +x_24 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___lambda__1(x_19, x_12, x_23, x_2, x_3, x_4, x_5, x_6, x_7, x_20); return x_24; } else { lean_object* x_25; lean_object* x_26; uint8_t x_27; lean_dec(x_19); +lean_dec(x_12); x_25 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___closed__3; x_26 = l_Lean_throwError___at_Lean_Elab_Term_throwErrorIfErrors___spec__1___rarg(x_25, x_2, x_3, x_4, x_5, x_6, x_7, x_20); lean_dec(x_7); @@ -2197,6 +2212,7 @@ return x_30; else { uint8_t x_31; +lean_dec(x_12); lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); @@ -2250,6 +2266,7 @@ lean_ctor_set(x_44, 2, x_14); lean_inc(x_7); lean_inc(x_6); lean_inc(x_5); +lean_inc(x_12); x_45 = l_Lean_Meta_whnf___at___private_Lean_Elab_Term_0__Lean_Elab_Term_isTypeApp_x3f___spec__1(x_12, x_2, x_3, x_44, x_5, x_6, x_7, x_8); if (lean_obj_tag(x_45) == 0) { @@ -2266,13 +2283,14 @@ if (x_49 == 0) { lean_object* x_50; lean_object* x_51; x_50 = lean_box(0); -x_51 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___lambda__1(x_46, x_50, x_2, x_3, x_4, x_5, x_6, x_7, x_47); +x_51 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___lambda__1(x_46, x_12, x_50, x_2, x_3, x_4, x_5, x_6, x_7, x_47); return x_51; } else { 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_dec(x_46); +lean_dec(x_12); x_52 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___closed__3; x_53 = l_Lean_throwError___at_Lean_Elab_Term_throwErrorIfErrors___spec__1___rarg(x_52, x_2, x_3, x_4, x_5, x_6, x_7, x_47); lean_dec(x_7); @@ -2304,6 +2322,7 @@ return x_57; else { lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; +lean_dec(x_12); lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); @@ -2334,14 +2353,14 @@ return x_61; } } } -lean_object* l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___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* l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___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) { _start: { -lean_object* x_10; -x_10 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9); -lean_dec(x_4); -lean_dec(x_2); -return x_10; +lean_object* x_11; +x_11 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10); +lean_dec(x_5); +lean_dec(x_3); +return x_11; } } lean_object* l___private_Lean_Elab_Do_0__Lean_Elab_Term_extractBind___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) { @@ -17895,7 +17914,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; x_1 = l_Lean_Elab_Term_Do_ToTerm_returnToTermCore___closed__19; x_2 = l_Lean_Elab_Term_Do_ToTerm_returnToTermCore___closed__20; -x_3 = lean_unsigned_to_nat(822u); +x_3 = lean_unsigned_to_nat(823u); x_4 = lean_unsigned_to_nat(28u); x_5 = l_Lean_Name_getString_x21___closed__3; x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5); @@ -19502,7 +19521,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; x_1 = l_Lean_Elab_Term_Do_ToTerm_returnToTermCore___closed__19; x_2 = l_Lean_Elab_Term_Do_ToTerm_continueToTermCore___closed__1; -x_3 = lean_unsigned_to_nat(835u); +x_3 = lean_unsigned_to_nat(836u); x_4 = lean_unsigned_to_nat(28u); x_5 = l_Lean_Name_getString_x21___closed__3; x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5); @@ -19679,7 +19698,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; x_1 = l_Lean_Elab_Term_Do_ToTerm_returnToTermCore___closed__19; x_2 = l_Lean_Elab_Term_Do_ToTerm_continueToTermCore___closed__1; -x_3 = lean_unsigned_to_nat(839u); +x_3 = lean_unsigned_to_nat(840u); x_4 = lean_unsigned_to_nat(28u); x_5 = l_Lean_Name_getString_x21___closed__3; x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5); @@ -20880,7 +20899,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; x_1 = l_Lean_Elab_Term_Do_ToTerm_returnToTermCore___closed__19; x_2 = l_Lean_Elab_Term_Do_ToTerm_breakToTermCore___closed__1; -x_3 = lean_unsigned_to_nat(851u); +x_3 = lean_unsigned_to_nat(852u); x_4 = lean_unsigned_to_nat(28u); x_5 = l_Lean_Name_getString_x21___closed__3; x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5); @@ -20966,7 +20985,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; x_1 = l_Lean_Elab_Term_Do_ToTerm_returnToTermCore___closed__19; x_2 = l_Lean_Elab_Term_Do_ToTerm_breakToTermCore___closed__1; -x_3 = lean_unsigned_to_nat(855u); +x_3 = lean_unsigned_to_nat(856u); x_4 = lean_unsigned_to_nat(28u); x_5 = l_Lean_Name_getString_x21___closed__3; x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5); @@ -22214,7 +22233,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; x_1 = l_Lean_Elab_Term_Do_ToTerm_returnToTermCore___closed__19; x_2 = l_Lean_Elab_Term_Do_ToTerm_actionTerminalToTermCore___closed__5; -x_3 = lean_unsigned_to_nat(871u); +x_3 = lean_unsigned_to_nat(872u); x_4 = lean_unsigned_to_nat(28u); x_5 = l_Lean_Name_getString_x21___closed__3; x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5); @@ -28239,7 +28258,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; x_1 = l_Lean_Elab_Term_Do_ToTerm_returnToTermCore___closed__19; x_2 = l_Lean_Elab_Term_Do_ToTerm_mkNestedKind___closed__1; -x_3 = lean_unsigned_to_nat(1046u); +x_3 = lean_unsigned_to_nat(1047u); x_4 = lean_unsigned_to_nat(27u); x_5 = l_Lean_Name_getString_x21___closed__3; x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5); @@ -28548,7 +28567,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; x_1 = l_Lean_Elab_Term_Do_ToTerm_returnToTermCore___closed__19; x_2 = l_Lean_Elab_Term_Do_ToTerm_matchNestedTermResult___closed__3; -x_3 = lean_unsigned_to_nat(1102u); +x_3 = lean_unsigned_to_nat(1103u); x_4 = lean_unsigned_to_nat(27u); x_5 = l_Lean_Name_getString_x21___closed__3; x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5); @@ -47256,7 +47275,6 @@ lean_inc(x_6); lean_inc(x_5); lean_inc(x_4); lean_inc(x_3); -lean_inc(x_15); x_16 = l___private_Lean_Elab_Do_0__Lean_Elab_Term_Do_mkMonadAlias(x_15, x_3, x_4, x_5, x_6, x_7, x_8, x_14); if (lean_obj_tag(x_16) == 0) { @@ -47277,285 +47295,282 @@ lean_inc(x_1); x_19 = l_Lean_Elab_Term_Do_ToCodeBlock_run(x_1, x_17, x_3, x_4, x_5, x_6, x_7, x_8, x_18); if (lean_obj_tag(x_19) == 0) { -lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* 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; lean_object* x_83; lean_object* x_84; lean_object* x_85; uint8_t x_86; lean_object* x_87; +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* 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; lean_object* x_83; lean_object* x_84; uint8_t x_85; lean_object* x_86; x_20 = lean_ctor_get(x_19, 0); lean_inc(x_20); x_21 = lean_ctor_get(x_19, 1); lean_inc(x_21); lean_dec(x_19); -x_67 = lean_ctor_get(x_20, 0); -lean_inc(x_67); +x_66 = lean_ctor_get(x_20, 0); +lean_inc(x_66); lean_dec(x_20); -x_68 = lean_st_ref_get(x_8, x_21); -x_69 = lean_ctor_get(x_68, 0); +x_67 = lean_st_ref_get(x_8, x_21); +x_68 = lean_ctor_get(x_67, 0); +lean_inc(x_68); +x_69 = lean_ctor_get(x_67, 1); lean_inc(x_69); -x_70 = lean_ctor_get(x_68, 1); +lean_dec(x_67); +x_70 = lean_ctor_get(x_68, 0); lean_inc(x_70); lean_dec(x_68); -x_71 = lean_ctor_get(x_69, 0); -lean_inc(x_71); -lean_dec(x_69); -x_72 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4, x_5, x_6, x_7, x_8, x_70); -x_73 = lean_ctor_get(x_72, 0); +x_71 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4, x_5, x_6, x_7, x_8, x_69); +x_72 = lean_ctor_get(x_71, 0); +lean_inc(x_72); +x_73 = lean_ctor_get(x_71, 1); lean_inc(x_73); -x_74 = lean_ctor_get(x_72, 1); +lean_dec(x_71); +x_74 = lean_ctor_get(x_7, 1); lean_inc(x_74); -lean_dec(x_72); -x_75 = lean_ctor_get(x_7, 1); +x_75 = lean_ctor_get(x_7, 2); lean_inc(x_75); -x_76 = lean_ctor_get(x_7, 2); -lean_inc(x_76); -x_77 = lean_st_ref_get(x_8, x_74); -x_78 = lean_ctor_get(x_77, 0); +x_76 = lean_st_ref_get(x_8, x_73); +x_77 = lean_ctor_get(x_76, 0); +lean_inc(x_77); +x_78 = lean_ctor_get(x_76, 1); lean_inc(x_78); +lean_dec(x_76); x_79 = lean_ctor_get(x_77, 1); lean_inc(x_79); lean_dec(x_77); -x_80 = lean_ctor_get(x_78, 1); -lean_inc(x_80); -lean_dec(x_78); -lean_inc(x_71); -x_81 = lean_alloc_closure((void*)(l___private_Lean_Elab_Util_0__Lean_Elab_expandMacro_x3f___boxed), 4, 1); -lean_closure_set(x_81, 0, x_71); -x_82 = x_81; -x_83 = lean_environment_main_module(x_71); -x_84 = lean_alloc_ctor(0, 5, 0); -lean_ctor_set(x_84, 0, x_82); -lean_ctor_set(x_84, 1, x_83); -lean_ctor_set(x_84, 2, x_73); -lean_ctor_set(x_84, 3, x_75); -lean_ctor_set(x_84, 4, x_76); -x_85 = l_Array_empty___closed__1; -x_86 = 0; -x_87 = l_Lean_Elab_Term_Do_ToTerm_run(x_67, x_17, x_85, x_86, x_84, x_80); -if (lean_obj_tag(x_87) == 0) +lean_inc(x_70); +x_80 = lean_alloc_closure((void*)(l___private_Lean_Elab_Util_0__Lean_Elab_expandMacro_x3f___boxed), 4, 1); +lean_closure_set(x_80, 0, x_70); +x_81 = x_80; +x_82 = lean_environment_main_module(x_70); +x_83 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_83, 0, x_81); +lean_ctor_set(x_83, 1, x_82); +lean_ctor_set(x_83, 2, x_72); +lean_ctor_set(x_83, 3, x_74); +lean_ctor_set(x_83, 4, x_75); +x_84 = l_Array_empty___closed__1; +x_85 = 0; +x_86 = l_Lean_Elab_Term_Do_ToTerm_run(x_66, x_17, x_84, x_85, x_83, x_79); +if (lean_obj_tag(x_86) == 0) { -lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; uint8_t x_93; -x_88 = lean_ctor_get(x_87, 0); +lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; uint8_t x_92; +x_87 = lean_ctor_get(x_86, 0); +lean_inc(x_87); +x_88 = lean_ctor_get(x_86, 1); lean_inc(x_88); -x_89 = lean_ctor_get(x_87, 1); -lean_inc(x_89); -lean_dec(x_87); -x_90 = lean_st_ref_take(x_8, x_79); -x_91 = lean_ctor_get(x_90, 0); +lean_dec(x_86); +x_89 = lean_st_ref_take(x_8, x_78); +x_90 = lean_ctor_get(x_89, 0); +lean_inc(x_90); +x_91 = lean_ctor_get(x_89, 1); lean_inc(x_91); -x_92 = lean_ctor_get(x_90, 1); -lean_inc(x_92); -lean_dec(x_90); -x_93 = !lean_is_exclusive(x_91); -if (x_93 == 0) +lean_dec(x_89); +x_92 = !lean_is_exclusive(x_90); +if (x_92 == 0) { -lean_object* x_94; lean_object* x_95; lean_object* x_96; -x_94 = lean_ctor_get(x_91, 1); +lean_object* x_93; lean_object* x_94; lean_object* x_95; +x_93 = lean_ctor_get(x_90, 1); +lean_dec(x_93); +lean_ctor_set(x_90, 1, x_88); +x_94 = lean_st_ref_set(x_8, x_90, x_91); +x_95 = lean_ctor_get(x_94, 1); +lean_inc(x_95); lean_dec(x_94); -lean_ctor_set(x_91, 1, x_89); -x_95 = lean_st_ref_set(x_8, x_91, x_92); -x_96 = lean_ctor_get(x_95, 1); -lean_inc(x_96); -lean_dec(x_95); -x_22 = x_88; -x_23 = x_96; -goto block_66; +x_22 = x_87; +x_23 = x_95; +goto block_65; } else { -lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; -x_97 = lean_ctor_get(x_91, 0); -x_98 = lean_ctor_get(x_91, 2); -x_99 = lean_ctor_get(x_91, 3); -lean_inc(x_99); +lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; +x_96 = lean_ctor_get(x_90, 0); +x_97 = lean_ctor_get(x_90, 2); +x_98 = lean_ctor_get(x_90, 3); lean_inc(x_98); lean_inc(x_97); -lean_dec(x_91); -x_100 = lean_alloc_ctor(0, 4, 0); -lean_ctor_set(x_100, 0, x_97); -lean_ctor_set(x_100, 1, x_89); -lean_ctor_set(x_100, 2, x_98); -lean_ctor_set(x_100, 3, x_99); -x_101 = lean_st_ref_set(x_8, x_100, x_92); -x_102 = lean_ctor_get(x_101, 1); -lean_inc(x_102); -lean_dec(x_101); -x_22 = x_88; -x_23 = x_102; -goto block_66; +lean_inc(x_96); +lean_dec(x_90); +x_99 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_99, 0, x_96); +lean_ctor_set(x_99, 1, x_88); +lean_ctor_set(x_99, 2, x_97); +lean_ctor_set(x_99, 3, x_98); +x_100 = lean_st_ref_set(x_8, x_99, x_91); +x_101 = lean_ctor_get(x_100, 1); +lean_inc(x_101); +lean_dec(x_100); +x_22 = x_87; +x_23 = x_101; +goto block_65; } } else { -lean_object* x_103; -lean_dec(x_15); +lean_object* x_102; lean_dec(x_13); lean_dec(x_1); -x_103 = lean_ctor_get(x_87, 0); -lean_inc(x_103); -lean_dec(x_87); -if (lean_obj_tag(x_103) == 0) +x_102 = lean_ctor_get(x_86, 0); +lean_inc(x_102); +lean_dec(x_86); +if (lean_obj_tag(x_102) == 0) { -lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; uint8_t x_109; -x_104 = lean_ctor_get(x_103, 0); +lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; uint8_t x_108; +x_103 = lean_ctor_get(x_102, 0); +lean_inc(x_103); +x_104 = lean_ctor_get(x_102, 1); lean_inc(x_104); -x_105 = lean_ctor_get(x_103, 1); -lean_inc(x_105); -lean_dec(x_103); -x_106 = lean_alloc_ctor(2, 1, 0); +lean_dec(x_102); +x_105 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_105, 0, x_104); +x_106 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_106, 0, x_105); -x_107 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_107, 0, x_106); -x_108 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_0__Lean_Elab_Term_elabTermAux___spec__1___rarg(x_104, x_107, x_3, x_4, x_5, x_6, x_7, x_8, x_79); +x_107 = l_Lean_throwErrorAt___at___private_Lean_Elab_Term_0__Lean_Elab_Term_elabTermAux___spec__1___rarg(x_103, x_106, x_3, x_4, x_5, x_6, x_7, x_8, x_78); lean_dec(x_8); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); -lean_dec(x_104); -x_109 = !lean_is_exclusive(x_108); -if (x_109 == 0) +lean_dec(x_103); +x_108 = !lean_is_exclusive(x_107); +if (x_108 == 0) { -return x_108; +return x_107; } else { -lean_object* x_110; lean_object* x_111; lean_object* x_112; -x_110 = lean_ctor_get(x_108, 0); -x_111 = lean_ctor_get(x_108, 1); -lean_inc(x_111); +lean_object* x_109; lean_object* x_110; lean_object* x_111; +x_109 = lean_ctor_get(x_107, 0); +x_110 = lean_ctor_get(x_107, 1); lean_inc(x_110); -lean_dec(x_108); -x_112 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_112, 0, x_110); -lean_ctor_set(x_112, 1, x_111); -return x_112; +lean_inc(x_109); +lean_dec(x_107); +x_111 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_111, 0, x_109); +lean_ctor_set(x_111, 1, x_110); +return x_111; } } else { -lean_object* x_113; uint8_t x_114; +lean_object* x_112; uint8_t x_113; lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); -x_113 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_0__Lean_Elab_Term_elabTermAux___spec__2___rarg(x_79); -x_114 = !lean_is_exclusive(x_113); -if (x_114 == 0) +x_112 = l_Lean_Elab_throwUnsupportedSyntax___at___private_Lean_Elab_Term_0__Lean_Elab_Term_elabTermAux___spec__2___rarg(x_78); +x_113 = !lean_is_exclusive(x_112); +if (x_113 == 0) { -return x_113; +return x_112; } else { -lean_object* x_115; lean_object* x_116; lean_object* x_117; -x_115 = lean_ctor_get(x_113, 0); -x_116 = lean_ctor_get(x_113, 1); -lean_inc(x_116); +lean_object* x_114; lean_object* x_115; lean_object* x_116; +x_114 = lean_ctor_get(x_112, 0); +x_115 = lean_ctor_get(x_112, 1); lean_inc(x_115); -lean_dec(x_113); -x_117 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_117, 0, x_115); -lean_ctor_set(x_117, 1, x_116); -return x_117; +lean_inc(x_114); +lean_dec(x_112); +x_116 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_116, 0, x_114); +lean_ctor_set(x_116, 1, x_115); +return x_116; } } } -block_66: +block_65: { -lean_object* x_24; lean_object* x_51; lean_object* x_52; lean_object* x_53; uint8_t x_54; -x_51 = lean_st_ref_get(x_8, x_23); -x_52 = lean_ctor_get(x_51, 0); +lean_object* x_24; lean_object* x_50; lean_object* x_51; lean_object* x_52; uint8_t x_53; +x_50 = lean_st_ref_get(x_8, x_23); +x_51 = lean_ctor_get(x_50, 0); +lean_inc(x_51); +x_52 = lean_ctor_get(x_51, 3); lean_inc(x_52); -x_53 = lean_ctor_get(x_52, 3); -lean_inc(x_53); +lean_dec(x_51); +x_53 = lean_ctor_get_uint8(x_52, sizeof(void*)*1); lean_dec(x_52); -x_54 = lean_ctor_get_uint8(x_53, sizeof(void*)*1); -lean_dec(x_53); -if (x_54 == 0) +if (x_53 == 0) { -lean_object* x_55; -x_55 = lean_ctor_get(x_51, 1); +lean_object* x_54; +x_54 = lean_ctor_get(x_50, 1); +lean_inc(x_54); +lean_dec(x_50); +x_24 = x_54; +goto block_49; +} +else +{ +lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; uint8_t x_59; +x_55 = lean_ctor_get(x_50, 1); lean_inc(x_55); -lean_dec(x_51); -x_24 = x_55; -goto block_50; +lean_dec(x_50); +x_56 = l_Lean_Elab_Term_Do_elabDo___closed__1; +x_57 = l___private_Lean_Util_Trace_0__Lean_checkTraceOptionM___at___private_Lean_Elab_Term_0__Lean_Elab_Term_postponeElabTerm___spec__2(x_56, x_3, x_4, x_5, x_6, x_7, x_8, x_55); +x_58 = lean_ctor_get(x_57, 0); +lean_inc(x_58); +x_59 = lean_unbox(x_58); +lean_dec(x_58); +if (x_59 == 0) +{ +lean_object* x_60; +x_60 = lean_ctor_get(x_57, 1); +lean_inc(x_60); +lean_dec(x_57); +x_24 = x_60; +goto block_49; } else { -lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; uint8_t x_60; -x_56 = lean_ctor_get(x_51, 1); -lean_inc(x_56); -lean_dec(x_51); -x_57 = l_Lean_Elab_Term_Do_elabDo___closed__1; -x_58 = l___private_Lean_Util_Trace_0__Lean_checkTraceOptionM___at___private_Lean_Elab_Term_0__Lean_Elab_Term_postponeElabTerm___spec__2(x_57, x_3, x_4, x_5, x_6, x_7, x_8, x_56); -x_59 = lean_ctor_get(x_58, 0); -lean_inc(x_59); -x_60 = lean_unbox(x_59); -lean_dec(x_59); -if (x_60 == 0) -{ -lean_object* x_61; -x_61 = lean_ctor_get(x_58, 1); +lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; +x_61 = lean_ctor_get(x_57, 1); lean_inc(x_61); -lean_dec(x_58); -x_24 = x_61; -goto block_50; -} -else -{ -lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; -x_62 = lean_ctor_get(x_58, 1); -lean_inc(x_62); -lean_dec(x_58); +lean_dec(x_57); lean_inc(x_22); -x_63 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_63, 0, x_22); -x_64 = l_Lean_addTrace___at___private_Lean_Elab_Term_0__Lean_Elab_Term_postponeElabTerm___spec__1(x_57, x_63, x_3, x_4, x_5, x_6, x_7, x_8, x_62); -x_65 = lean_ctor_get(x_64, 1); -lean_inc(x_65); -lean_dec(x_64); -x_24 = x_65; -goto block_50; +x_62 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_62, 0, x_22); +x_63 = l_Lean_addTrace___at___private_Lean_Elab_Term_0__Lean_Elab_Term_postponeElabTerm___spec__1(x_56, x_62, x_3, x_4, x_5, x_6, x_7, x_8, x_61); +x_64 = lean_ctor_get(x_63, 1); +lean_inc(x_64); +lean_dec(x_63); +x_24 = x_64; +goto block_49; } } -block_50: +block_49: { -lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; uint8_t x_29; -x_25 = lean_ctor_get(x_13, 1); +lean_object* x_25; lean_object* x_26; lean_object* x_27; uint8_t x_28; +x_25 = lean_ctor_get(x_13, 3); lean_inc(x_25); lean_dec(x_13); -x_26 = l_Lean_mkApp(x_15, x_25); -x_27 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_27, 0, x_26); -x_28 = lean_box(0); -x_29 = !lean_is_exclusive(x_3); -if (x_29 == 0) +x_26 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_26, 0, x_25); +x_27 = lean_box(0); +x_28 = !lean_is_exclusive(x_3); +if (x_28 == 0) { -lean_object* x_30; lean_object* x_31; lean_object* x_32; uint8_t x_33; lean_object* x_34; -x_30 = lean_ctor_get(x_3, 6); +lean_object* x_29; lean_object* x_30; lean_object* x_31; uint8_t x_32; lean_object* x_33; +x_29 = lean_ctor_get(x_3, 6); lean_inc(x_22); -x_31 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_31, 0, x_1); -lean_ctor_set(x_31, 1, x_22); -x_32 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_32, 0, x_31); -lean_ctor_set(x_32, 1, x_30); -lean_ctor_set(x_3, 6, x_32); -x_33 = 1; -x_34 = l_Lean_Elab_Term_elabTermEnsuringType(x_22, x_27, x_33, x_28, x_3, x_4, x_5, x_6, x_7, x_8, x_24); -return x_34; +x_30 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_30, 0, x_1); +lean_ctor_set(x_30, 1, x_22); +x_31 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_31, 0, x_30); +lean_ctor_set(x_31, 1, x_29); +lean_ctor_set(x_3, 6, x_31); +x_32 = 1; +x_33 = l_Lean_Elab_Term_elabTermEnsuringType(x_22, x_26, x_32, x_27, x_3, x_4, x_5, x_6, x_7, x_8, x_24); +return x_33; } else { -lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; uint8_t x_43; uint8_t x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; uint8_t x_48; lean_object* x_49; -x_35 = lean_ctor_get(x_3, 0); -x_36 = lean_ctor_get(x_3, 1); -x_37 = lean_ctor_get(x_3, 2); -x_38 = lean_ctor_get(x_3, 3); -x_39 = lean_ctor_get(x_3, 4); -x_40 = lean_ctor_get(x_3, 5); -x_41 = lean_ctor_get(x_3, 6); -x_42 = lean_ctor_get(x_3, 7); -x_43 = lean_ctor_get_uint8(x_3, sizeof(void*)*8); -x_44 = lean_ctor_get_uint8(x_3, sizeof(void*)*8 + 1); -lean_inc(x_42); +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_40; lean_object* x_41; uint8_t x_42; uint8_t x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; uint8_t x_47; lean_object* x_48; +x_34 = lean_ctor_get(x_3, 0); +x_35 = lean_ctor_get(x_3, 1); +x_36 = lean_ctor_get(x_3, 2); +x_37 = lean_ctor_get(x_3, 3); +x_38 = lean_ctor_get(x_3, 4); +x_39 = lean_ctor_get(x_3, 5); +x_40 = lean_ctor_get(x_3, 6); +x_41 = lean_ctor_get(x_3, 7); +x_42 = lean_ctor_get_uint8(x_3, sizeof(void*)*8); +x_43 = lean_ctor_get_uint8(x_3, sizeof(void*)*8 + 1); lean_inc(x_41); lean_inc(x_40); lean_inc(x_39); @@ -47563,37 +47578,37 @@ lean_inc(x_38); lean_inc(x_37); lean_inc(x_36); lean_inc(x_35); +lean_inc(x_34); lean_dec(x_3); lean_inc(x_22); -x_45 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_45, 0, x_1); -lean_ctor_set(x_45, 1, x_22); -x_46 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_46, 0, x_45); -lean_ctor_set(x_46, 1, x_41); -x_47 = lean_alloc_ctor(0, 8, 2); -lean_ctor_set(x_47, 0, x_35); -lean_ctor_set(x_47, 1, x_36); -lean_ctor_set(x_47, 2, x_37); -lean_ctor_set(x_47, 3, x_38); -lean_ctor_set(x_47, 4, x_39); -lean_ctor_set(x_47, 5, x_40); -lean_ctor_set(x_47, 6, x_46); -lean_ctor_set(x_47, 7, x_42); -lean_ctor_set_uint8(x_47, sizeof(void*)*8, x_43); -lean_ctor_set_uint8(x_47, sizeof(void*)*8 + 1, x_44); -x_48 = 1; -x_49 = l_Lean_Elab_Term_elabTermEnsuringType(x_22, x_27, x_48, x_28, x_47, x_4, x_5, x_6, x_7, x_8, x_24); -return x_49; +x_44 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_44, 0, x_1); +lean_ctor_set(x_44, 1, x_22); +x_45 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_45, 0, x_44); +lean_ctor_set(x_45, 1, x_40); +x_46 = lean_alloc_ctor(0, 8, 2); +lean_ctor_set(x_46, 0, x_34); +lean_ctor_set(x_46, 1, x_35); +lean_ctor_set(x_46, 2, x_36); +lean_ctor_set(x_46, 3, x_37); +lean_ctor_set(x_46, 4, x_38); +lean_ctor_set(x_46, 5, x_39); +lean_ctor_set(x_46, 6, x_45); +lean_ctor_set(x_46, 7, x_41); +lean_ctor_set_uint8(x_46, sizeof(void*)*8, x_42); +lean_ctor_set_uint8(x_46, sizeof(void*)*8 + 1, x_43); +x_47 = 1; +x_48 = l_Lean_Elab_Term_elabTermEnsuringType(x_22, x_26, x_47, x_27, x_46, x_4, x_5, x_6, x_7, x_8, x_24); +return x_48; } } } } else { -uint8_t x_118; +uint8_t x_117; lean_dec(x_17); -lean_dec(x_15); lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); @@ -47602,30 +47617,29 @@ lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); lean_dec(x_1); -x_118 = !lean_is_exclusive(x_19); -if (x_118 == 0) +x_117 = !lean_is_exclusive(x_19); +if (x_117 == 0) { return x_19; } else { -lean_object* x_119; lean_object* x_120; lean_object* x_121; -x_119 = lean_ctor_get(x_19, 0); -x_120 = lean_ctor_get(x_19, 1); -lean_inc(x_120); +lean_object* x_118; lean_object* x_119; lean_object* x_120; +x_118 = lean_ctor_get(x_19, 0); +x_119 = lean_ctor_get(x_19, 1); lean_inc(x_119); +lean_inc(x_118); lean_dec(x_19); -x_121 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_121, 0, x_119); -lean_ctor_set(x_121, 1, x_120); -return x_121; +x_120 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_120, 0, x_118); +lean_ctor_set(x_120, 1, x_119); +return x_120; } } } else { -uint8_t x_122; -lean_dec(x_15); +uint8_t x_121; lean_dec(x_13); lean_dec(x_8); lean_dec(x_7); @@ -47634,29 +47648,29 @@ lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); lean_dec(x_1); -x_122 = !lean_is_exclusive(x_16); -if (x_122 == 0) +x_121 = !lean_is_exclusive(x_16); +if (x_121 == 0) { return x_16; } else { -lean_object* x_123; lean_object* x_124; lean_object* x_125; -x_123 = lean_ctor_get(x_16, 0); -x_124 = lean_ctor_get(x_16, 1); -lean_inc(x_124); +lean_object* x_122; lean_object* x_123; lean_object* x_124; +x_122 = lean_ctor_get(x_16, 0); +x_123 = lean_ctor_get(x_16, 1); lean_inc(x_123); +lean_inc(x_122); lean_dec(x_16); -x_125 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_125, 0, x_123); -lean_ctor_set(x_125, 1, x_124); -return x_125; +x_124 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_124, 0, x_122); +lean_ctor_set(x_124, 1, x_123); +return x_124; } } } else { -uint8_t x_126; +uint8_t x_125; lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); @@ -47664,29 +47678,29 @@ lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); lean_dec(x_1); -x_126 = !lean_is_exclusive(x_12); -if (x_126 == 0) +x_125 = !lean_is_exclusive(x_12); +if (x_125 == 0) { return x_12; } else { -lean_object* x_127; lean_object* x_128; lean_object* x_129; -x_127 = lean_ctor_get(x_12, 0); -x_128 = lean_ctor_get(x_12, 1); -lean_inc(x_128); +lean_object* x_126; lean_object* x_127; lean_object* x_128; +x_126 = lean_ctor_get(x_12, 0); +x_127 = lean_ctor_get(x_12, 1); lean_inc(x_127); +lean_inc(x_126); lean_dec(x_12); -x_129 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_129, 0, x_127); -lean_ctor_set(x_129, 1, x_128); -return x_129; +x_128 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_128, 0, x_126); +lean_ctor_set(x_128, 1, x_127); +return x_128; } } } else { -uint8_t x_130; +uint8_t x_129; lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); @@ -47695,23 +47709,23 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_130 = !lean_is_exclusive(x_10); -if (x_130 == 0) +x_129 = !lean_is_exclusive(x_10); +if (x_129 == 0) { return x_10; } else { -lean_object* x_131; lean_object* x_132; lean_object* x_133; -x_131 = lean_ctor_get(x_10, 0); -x_132 = lean_ctor_get(x_10, 1); -lean_inc(x_132); +lean_object* x_130; lean_object* x_131; lean_object* x_132; +x_130 = lean_ctor_get(x_10, 0); +x_131 = lean_ctor_get(x_10, 1); lean_inc(x_131); +lean_inc(x_130); lean_dec(x_10); -x_133 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_133, 0, x_131); -lean_ctor_set(x_133, 1, x_132); -return x_133; +x_132 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_132, 0, x_130); +lean_ctor_set(x_132, 1, x_131); +return x_132; } } } @@ -47735,7 +47749,7 @@ x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); return x_5; } } -lean_object* l_Lean_Elab_Term_initFn____x40_Lean_Elab_Do___hyg_23880_(lean_object* x_1) { +lean_object* l_Lean_Elab_Term_initFn____x40_Lean_Elab_Do___hyg_23879_(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; @@ -48847,7 +48861,7 @@ lean_mark_persistent(l___regBuiltin_Lean_Elab_Term_Do_elabDo___closed__1); res = l___regBuiltin_Lean_Elab_Term_Do_elabDo(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = l_Lean_Elab_Term_initFn____x40_Lean_Elab_Do___hyg_23880_(lean_io_mk_world()); +res = l_Lean_Elab_Term_initFn____x40_Lean_Elab_Do___hyg_23879_(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); l___regBuiltin_Lean_Elab_Term_expandTermFor___closed__1 = _init_l___regBuiltin_Lean_Elab_Term_expandTermFor___closed__1(); diff --git a/stage0/stdlib/Lean/Meta/ExprDefEq.c b/stage0/stdlib/Lean/Meta/ExprDefEq.c index 6aad204847..bb6a984c72 100644 --- a/stage0/stdlib/Lean/Meta/ExprDefEq.c +++ b/stage0/stdlib/Lean/Meta/ExprDefEq.c @@ -292,6 +292,7 @@ lean_object* l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_isAssignable_match__1_ lean_object* l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_isDefEqProofIrrel_match__1___rarg(uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_CheckAssignment_assignToConstFun___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* l_Lean_Meta_isExprDefEqAuxImpl___closed__1; +lean_object* l_Lean_Expr_headBeta(lean_object*); lean_object* l_Lean_Meta_isExprDefEqAuxImpl_match__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_CheckAssignment_checkMVar___closed__4; uint8_t l_Array_contains___at_Lean_Meta_CheckAssignment_check___spec__2(lean_object*, lean_object*); @@ -419,6 +420,7 @@ uint8_t l_Lean_Expr_Data_binderInfo(uint64_t); lean_object* l_Lean_Meta_isDefEqBindingDomain_loop_match__1(lean_object*); lean_object* l_Lean_ConstantInfo_hints(lean_object*); lean_object* l_Lean_Meta_commitWhen___at___private_Lean_Meta_ExprDefEq_0__Lean_Meta_tryHeuristic___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7273____closed__1; lean_object* l_Array_anyMUnsafe_any___rarg(lean_object*, lean_object*, lean_object*, size_t, size_t); size_t lean_usize_of_nat(lean_object*); uint8_t l_Std_PersistentArray_anyM___at_Lean_Meta_CheckAssignment_check___spec__17(lean_object*, lean_object*); @@ -430,7 +432,6 @@ lean_object* l_Lean_Meta_CheckAssignment_throwOutOfScopeFVar___rarg(lean_object* lean_object* l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_isDefEqQuick(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Expr_isLambda(lean_object*); lean_object* l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processAssignment_process_match__2(lean_object*); -lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7269____closed__1; lean_object* l_Lean_Meta_isExprDefEqAuxImpl___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_foldlMUnsafe_fold___at_Lean_Meta_CheckAssignment_check___spec__62___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_withoutPostponingUniverseConstraintsImp___rarg___closed__6; @@ -572,8 +573,8 @@ uint8_t l_Array_anyMUnsafe_any___at_Lean_Meta_CheckAssignment_check___spec__34(l lean_object* l___private_Lean_MetavarContext_0__Lean_MetavarContext_DependsOn_dep_visitMain___at_Lean_Meta_CheckAssignment_check___spec__30___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Std_Data_PersistentArray_0__Std_PersistentArray_foldlMAux___at_Lean_Meta_CheckAssignment_check___spec__53(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_isAssigned_match__1(lean_object*); -lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7278_(lean_object*); -lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7269_(lean_object*); +lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7282_(lean_object*); +lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7273_(lean_object*); lean_object* l_Std_HashMapImp_insert___at___private_Lean_Meta_ExprDefEq_0__Lean_Meta_CheckAssignment_cache___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_inferType___at_Lean_Meta_CheckAssignment_check___spec__68___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_expr_update_lambda(lean_object*, uint8_t, lean_object*, lean_object*); @@ -40290,223 +40291,224 @@ return x_2; lean_object* l_Lean_Meta_commitWhen___at___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processAssignmentFOApprox_loop___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t 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_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; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_29; -x_10 = lean_st_ref_get(x_8, x_9); -x_11 = lean_ctor_get(x_10, 0); -lean_inc(x_11); -x_12 = lean_ctor_get(x_10, 1); +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_30; +x_10 = l_Lean_Expr_headBeta(x_3); +x_11 = lean_st_ref_get(x_8, x_9); +x_12 = lean_ctor_get(x_11, 0); lean_inc(x_12); -lean_dec(x_10); -x_13 = lean_ctor_get(x_11, 0); +x_13 = lean_ctor_get(x_11, 1); lean_inc(x_13); lean_dec(x_11); -x_14 = lean_st_ref_get(x_6, x_12); -x_15 = lean_ctor_get(x_14, 0); -lean_inc(x_15); -x_16 = lean_ctor_get(x_14, 1); +x_14 = lean_ctor_get(x_12, 0); +lean_inc(x_14); +lean_dec(x_12); +x_15 = lean_st_ref_get(x_6, x_13); +x_16 = lean_ctor_get(x_15, 0); lean_inc(x_16); -lean_dec(x_14); -x_17 = lean_ctor_get(x_15, 0); +x_17 = lean_ctor_get(x_15, 1); lean_inc(x_17); lean_dec(x_15); -x_18 = l___private_Lean_Meta_LevelDefEq_0__Lean_Meta_getResetPostponed(x_5, x_6, x_7, x_8, x_16); -x_19 = lean_ctor_get(x_18, 0); -lean_inc(x_19); -x_20 = lean_ctor_get(x_18, 1); +x_18 = lean_ctor_get(x_16, 0); +lean_inc(x_18); +lean_dec(x_16); +x_19 = l___private_Lean_Meta_LevelDefEq_0__Lean_Meta_getResetPostponed(x_5, x_6, x_7, x_8, x_17); +x_20 = lean_ctor_get(x_19, 0); lean_inc(x_20); -lean_dec(x_18); -lean_inc(x_8); -lean_inc(x_7); -lean_inc(x_6); -lean_inc(x_5); -x_29 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processAssignmentFOApproxAux(x_1, x_2, x_3, x_5, x_6, x_7, x_8, x_20); -if (lean_obj_tag(x_29) == 0) -{ -lean_object* x_30; uint8_t x_31; -x_30 = lean_ctor_get(x_29, 0); -lean_inc(x_30); -x_31 = lean_unbox(x_30); -lean_dec(x_30); -if (x_31 == 0) -{ -lean_object* x_32; lean_object* x_33; uint8_t x_34; -x_32 = lean_ctor_get(x_29, 1); -lean_inc(x_32); -lean_dec(x_29); -x_33 = l___private_Lean_Meta_LevelDefEq_0__Lean_Meta_restore(x_13, x_17, x_19, x_5, x_6, x_7, x_8, x_32); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_5); -x_34 = !lean_is_exclusive(x_33); -if (x_34 == 0) -{ -lean_object* x_35; uint8_t x_36; lean_object* x_37; -x_35 = lean_ctor_get(x_33, 0); -lean_dec(x_35); -x_36 = 0; -x_37 = lean_box(x_36); -lean_ctor_set(x_33, 0, x_37); -return x_33; -} -else -{ -lean_object* x_38; uint8_t x_39; lean_object* x_40; lean_object* x_41; -x_38 = lean_ctor_get(x_33, 1); -lean_inc(x_38); -lean_dec(x_33); -x_39 = 0; -x_40 = lean_box(x_39); -x_41 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_41, 0, x_40); -lean_ctor_set(x_41, 1, x_38); -return x_41; -} -} -else -{ -lean_object* x_42; lean_object* x_43; -x_42 = lean_ctor_get(x_29, 1); -lean_inc(x_42); -lean_dec(x_29); -lean_inc(x_8); -lean_inc(x_7); -lean_inc(x_6); -lean_inc(x_5); -x_43 = l___private_Lean_Meta_LevelDefEq_0__Lean_Meta_processPostponed(x_4, x_5, x_6, x_7, x_8, x_42); -if (lean_obj_tag(x_43) == 0) -{ -lean_object* x_44; uint8_t x_45; -x_44 = lean_ctor_get(x_43, 0); -lean_inc(x_44); -x_45 = lean_unbox(x_44); -lean_dec(x_44); -if (x_45 == 0) -{ -lean_object* x_46; lean_object* x_47; uint8_t x_48; -x_46 = lean_ctor_get(x_43, 1); -lean_inc(x_46); -lean_dec(x_43); -x_47 = l___private_Lean_Meta_LevelDefEq_0__Lean_Meta_restore(x_13, x_17, x_19, x_5, x_6, x_7, x_8, x_46); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_5); -x_48 = !lean_is_exclusive(x_47); -if (x_48 == 0) -{ -lean_object* x_49; uint8_t x_50; lean_object* x_51; -x_49 = lean_ctor_get(x_47, 0); -lean_dec(x_49); -x_50 = 0; -x_51 = lean_box(x_50); -lean_ctor_set(x_47, 0, x_51); -return x_47; -} -else -{ -lean_object* x_52; uint8_t x_53; lean_object* x_54; lean_object* x_55; -x_52 = lean_ctor_get(x_47, 1); -lean_inc(x_52); -lean_dec(x_47); -x_53 = 0; -x_54 = lean_box(x_53); -x_55 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_55, 0, x_54); -lean_ctor_set(x_55, 1, x_52); -return x_55; -} -} -else -{ -uint8_t x_56; +x_21 = lean_ctor_get(x_19, 1); +lean_inc(x_21); lean_dec(x_19); -lean_dec(x_17); -lean_dec(x_13); +lean_inc(x_8); +lean_inc(x_7); +lean_inc(x_6); +lean_inc(x_5); +x_30 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processAssignmentFOApproxAux(x_1, x_2, x_10, x_5, x_6, x_7, x_8, x_21); +if (lean_obj_tag(x_30) == 0) +{ +lean_object* x_31; uint8_t x_32; +x_31 = lean_ctor_get(x_30, 0); +lean_inc(x_31); +x_32 = lean_unbox(x_31); +lean_dec(x_31); +if (x_32 == 0) +{ +lean_object* x_33; lean_object* x_34; uint8_t x_35; +x_33 = lean_ctor_get(x_30, 1); +lean_inc(x_33); +lean_dec(x_30); +x_34 = l___private_Lean_Meta_LevelDefEq_0__Lean_Meta_restore(x_14, x_18, x_20, x_5, x_6, x_7, x_8, x_33); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); -x_56 = !lean_is_exclusive(x_43); -if (x_56 == 0) +x_35 = !lean_is_exclusive(x_34); +if (x_35 == 0) { -lean_object* x_57; uint8_t x_58; lean_object* x_59; -x_57 = lean_ctor_get(x_43, 0); -lean_dec(x_57); -x_58 = 1; -x_59 = lean_box(x_58); -lean_ctor_set(x_43, 0, x_59); -return x_43; +lean_object* x_36; uint8_t x_37; lean_object* x_38; +x_36 = lean_ctor_get(x_34, 0); +lean_dec(x_36); +x_37 = 0; +x_38 = lean_box(x_37); +lean_ctor_set(x_34, 0, x_38); +return x_34; } else { -lean_object* x_60; uint8_t x_61; lean_object* x_62; lean_object* x_63; -x_60 = lean_ctor_get(x_43, 1); -lean_inc(x_60); -lean_dec(x_43); -x_61 = 1; -x_62 = lean_box(x_61); -x_63 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_63, 0, x_62); -lean_ctor_set(x_63, 1, x_60); -return x_63; +lean_object* x_39; uint8_t x_40; lean_object* x_41; lean_object* x_42; +x_39 = lean_ctor_get(x_34, 1); +lean_inc(x_39); +lean_dec(x_34); +x_40 = 0; +x_41 = lean_box(x_40); +x_42 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_42, 0, x_41); +lean_ctor_set(x_42, 1, x_39); +return x_42; +} +} +else +{ +lean_object* x_43; lean_object* x_44; +x_43 = lean_ctor_get(x_30, 1); +lean_inc(x_43); +lean_dec(x_30); +lean_inc(x_8); +lean_inc(x_7); +lean_inc(x_6); +lean_inc(x_5); +x_44 = l___private_Lean_Meta_LevelDefEq_0__Lean_Meta_processPostponed(x_4, x_5, x_6, x_7, x_8, x_43); +if (lean_obj_tag(x_44) == 0) +{ +lean_object* x_45; uint8_t x_46; +x_45 = lean_ctor_get(x_44, 0); +lean_inc(x_45); +x_46 = lean_unbox(x_45); +lean_dec(x_45); +if (x_46 == 0) +{ +lean_object* x_47; lean_object* x_48; uint8_t x_49; +x_47 = lean_ctor_get(x_44, 1); +lean_inc(x_47); +lean_dec(x_44); +x_48 = l___private_Lean_Meta_LevelDefEq_0__Lean_Meta_restore(x_14, x_18, x_20, x_5, x_6, x_7, x_8, x_47); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +x_49 = !lean_is_exclusive(x_48); +if (x_49 == 0) +{ +lean_object* x_50; uint8_t x_51; lean_object* x_52; +x_50 = lean_ctor_get(x_48, 0); +lean_dec(x_50); +x_51 = 0; +x_52 = lean_box(x_51); +lean_ctor_set(x_48, 0, x_52); +return x_48; +} +else +{ +lean_object* x_53; uint8_t x_54; lean_object* x_55; lean_object* x_56; +x_53 = lean_ctor_get(x_48, 1); +lean_inc(x_53); +lean_dec(x_48); +x_54 = 0; +x_55 = lean_box(x_54); +x_56 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_56, 0, x_55); +lean_ctor_set(x_56, 1, x_53); +return x_56; +} +} +else +{ +uint8_t x_57; +lean_dec(x_20); +lean_dec(x_18); +lean_dec(x_14); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +x_57 = !lean_is_exclusive(x_44); +if (x_57 == 0) +{ +lean_object* x_58; uint8_t x_59; lean_object* x_60; +x_58 = lean_ctor_get(x_44, 0); +lean_dec(x_58); +x_59 = 1; +x_60 = lean_box(x_59); +lean_ctor_set(x_44, 0, x_60); +return x_44; +} +else +{ +lean_object* x_61; uint8_t x_62; lean_object* x_63; lean_object* x_64; +x_61 = lean_ctor_get(x_44, 1); +lean_inc(x_61); +lean_dec(x_44); +x_62 = 1; +x_63 = lean_box(x_62); +x_64 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_64, 0, x_63); +lean_ctor_set(x_64, 1, x_61); +return x_64; } } } else { -lean_object* x_64; lean_object* x_65; -x_64 = lean_ctor_get(x_43, 0); -lean_inc(x_64); -x_65 = lean_ctor_get(x_43, 1); +lean_object* x_65; lean_object* x_66; +x_65 = lean_ctor_get(x_44, 0); lean_inc(x_65); -lean_dec(x_43); -x_21 = x_64; +x_66 = lean_ctor_get(x_44, 1); +lean_inc(x_66); +lean_dec(x_44); x_22 = x_65; -goto block_28; +x_23 = x_66; +goto block_29; } } } else { -lean_object* x_66; lean_object* x_67; -x_66 = lean_ctor_get(x_29, 0); -lean_inc(x_66); -x_67 = lean_ctor_get(x_29, 1); +lean_object* x_67; lean_object* x_68; +x_67 = lean_ctor_get(x_30, 0); lean_inc(x_67); -lean_dec(x_29); -x_21 = x_66; +x_68 = lean_ctor_get(x_30, 1); +lean_inc(x_68); +lean_dec(x_30); x_22 = x_67; -goto block_28; +x_23 = x_68; +goto block_29; } -block_28: +block_29: { -lean_object* x_23; uint8_t x_24; -x_23 = l___private_Lean_Meta_LevelDefEq_0__Lean_Meta_restore(x_13, x_17, x_19, x_5, x_6, x_7, x_8, x_22); +lean_object* x_24; uint8_t x_25; +x_24 = l___private_Lean_Meta_LevelDefEq_0__Lean_Meta_restore(x_14, x_18, x_20, x_5, x_6, x_7, x_8, x_23); lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); -x_24 = !lean_is_exclusive(x_23); -if (x_24 == 0) +x_25 = !lean_is_exclusive(x_24); +if (x_25 == 0) { -lean_object* x_25; -x_25 = lean_ctor_get(x_23, 0); -lean_dec(x_25); -lean_ctor_set_tag(x_23, 1); -lean_ctor_set(x_23, 0, x_21); -return x_23; +lean_object* x_26; +x_26 = lean_ctor_get(x_24, 0); +lean_dec(x_26); +lean_ctor_set_tag(x_24, 1); +lean_ctor_set(x_24, 0, x_22); +return x_24; } else { -lean_object* x_26; lean_object* x_27; -x_26 = lean_ctor_get(x_23, 1); -lean_inc(x_26); -lean_dec(x_23); -x_27 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_27, 0, x_21); -lean_ctor_set(x_27, 1, x_26); -return x_27; +lean_object* x_27; lean_object* x_28; +x_27 = lean_ctor_get(x_24, 1); +lean_inc(x_27); +lean_dec(x_24); +x_28 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_28, 0, x_22); +lean_ctor_set(x_28, 1, x_27); +return x_28; } } } @@ -40532,309 +40534,310 @@ return x_3; lean_object* l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processAssignmentFOApprox_loop(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) { _start: { -lean_object* x_9; lean_object* x_43; lean_object* x_44; uint8_t x_45; -x_43 = l_Lean_Meta_getConfig___at___private_Lean_Meta_WHNF_0__Lean_Meta_whnfCoreImp___spec__3(x_4, x_5, x_6, x_7, x_8); -x_44 = lean_ctor_get(x_43, 0); -lean_inc(x_44); -x_45 = lean_ctor_get_uint8(x_44, 0); -lean_dec(x_44); -if (x_45 == 0) +lean_object* x_9; lean_object* x_44; lean_object* x_45; uint8_t x_46; +x_44 = l_Lean_Meta_getConfig___at___private_Lean_Meta_WHNF_0__Lean_Meta_whnfCoreImp___spec__3(x_4, x_5, x_6, x_7, x_8); +x_45 = lean_ctor_get(x_44, 0); +lean_inc(x_45); +x_46 = lean_ctor_get_uint8(x_45, 0); +lean_dec(x_45); +if (x_46 == 0) { -uint8_t x_46; +uint8_t x_47; lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); lean_dec(x_1); -x_46 = !lean_is_exclusive(x_43); -if (x_46 == 0) +x_47 = !lean_is_exclusive(x_44); +if (x_47 == 0) { -lean_object* x_47; uint8_t x_48; lean_object* x_49; -x_47 = lean_ctor_get(x_43, 0); -lean_dec(x_47); -x_48 = 0; -x_49 = lean_box(x_48); -lean_ctor_set(x_43, 0, x_49); -return x_43; +lean_object* x_48; uint8_t x_49; lean_object* x_50; +x_48 = lean_ctor_get(x_44, 0); +lean_dec(x_48); +x_49 = 0; +x_50 = lean_box(x_49); +lean_ctor_set(x_44, 0, x_50); +return x_44; } else { -lean_object* x_50; uint8_t x_51; lean_object* x_52; lean_object* x_53; -x_50 = lean_ctor_get(x_43, 1); -lean_inc(x_50); -lean_dec(x_43); -x_51 = 0; -x_52 = lean_box(x_51); -x_53 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_53, 0, x_52); -lean_ctor_set(x_53, 1, x_50); -return x_53; +lean_object* x_51; uint8_t x_52; lean_object* x_53; lean_object* x_54; +x_51 = lean_ctor_get(x_44, 1); +lean_inc(x_51); +lean_dec(x_44); +x_52 = 0; +x_53 = lean_box(x_52); +x_54 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_54, 0, x_53); +lean_ctor_set(x_54, 1, x_51); +return x_54; } } else { -lean_object* x_54; uint8_t x_55; lean_object* x_56; lean_object* x_75; lean_object* x_76; lean_object* x_77; uint8_t x_78; -x_54 = lean_ctor_get(x_43, 1); -lean_inc(x_54); -lean_dec(x_43); -x_75 = lean_st_ref_get(x_7, x_54); -x_76 = lean_ctor_get(x_75, 0); -lean_inc(x_76); -x_77 = lean_ctor_get(x_76, 3); +lean_object* x_55; uint8_t x_56; lean_object* x_57; lean_object* x_76; lean_object* x_77; lean_object* x_78; uint8_t x_79; +x_55 = lean_ctor_get(x_44, 1); +lean_inc(x_55); +lean_dec(x_44); +x_76 = lean_st_ref_get(x_7, x_55); +x_77 = lean_ctor_get(x_76, 0); lean_inc(x_77); -lean_dec(x_76); -x_78 = lean_ctor_get_uint8(x_77, sizeof(void*)*1); +x_78 = lean_ctor_get(x_77, 3); +lean_inc(x_78); lean_dec(x_77); -if (x_78 == 0) +x_79 = lean_ctor_get_uint8(x_78, sizeof(void*)*1); +lean_dec(x_78); +if (x_79 == 0) { -lean_object* x_79; uint8_t x_80; -x_79 = lean_ctor_get(x_75, 1); -lean_inc(x_79); -lean_dec(x_75); -x_80 = 0; -x_55 = x_80; -x_56 = x_79; -goto block_74; +lean_object* x_80; uint8_t x_81; +x_80 = lean_ctor_get(x_76, 1); +lean_inc(x_80); +lean_dec(x_76); +x_81 = 0; +x_56 = x_81; +x_57 = x_80; +goto block_75; } else { -lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; uint8_t x_86; -x_81 = lean_ctor_get(x_75, 1); -lean_inc(x_81); -lean_dec(x_75); -x_82 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processAssignmentFOApprox_loop___closed__2; -x_83 = l___private_Lean_Util_Trace_0__Lean_checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___spec__2(x_82, x_4, x_5, x_6, x_7, x_81); -x_84 = lean_ctor_get(x_83, 0); -lean_inc(x_84); -x_85 = lean_ctor_get(x_83, 1); +lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; uint8_t x_87; +x_82 = lean_ctor_get(x_76, 1); +lean_inc(x_82); +lean_dec(x_76); +x_83 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processAssignmentFOApprox_loop___closed__2; +x_84 = l___private_Lean_Util_Trace_0__Lean_checkTraceOptionM___at_Lean_Meta_isLevelDefEqAux___spec__2(x_83, x_4, x_5, x_6, x_7, x_82); +x_85 = lean_ctor_get(x_84, 0); lean_inc(x_85); -lean_dec(x_83); -x_86 = lean_unbox(x_84); +x_86 = lean_ctor_get(x_84, 1); +lean_inc(x_86); lean_dec(x_84); -x_55 = x_86; -x_56 = x_85; -goto block_74; +x_87 = lean_unbox(x_85); +lean_dec(x_85); +x_56 = x_87; +x_57 = x_86; +goto block_75; } -block_74: +block_75: { -if (x_55 == 0) +if (x_56 == 0) { -x_9 = x_56; -goto block_42; +x_9 = x_57; +goto block_43; } else { -lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; +lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_inc(x_1); -x_57 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_57, 0, x_1); -x_58 = l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; -x_59 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_59, 0, x_58); -lean_ctor_set(x_59, 1, x_57); -x_60 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_CheckAssignment_addAssignmentInfo___rarg___closed__3; -x_61 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_61, 0, x_59); -lean_ctor_set(x_61, 1, x_60); -x_62 = l_Array_toList___rarg(x_2); -x_63 = l_List_map___at_Lean_MessageData_Lean_Message___instance__12___spec__1(x_62); -x_64 = l_Lean_MessageData_ofList(x_63); -lean_dec(x_63); -x_65 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_65, 0, x_61); -lean_ctor_set(x_65, 1, x_64); -x_66 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_checkTypesAndAssign___closed__8; -x_67 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_67, 0, x_65); -lean_ctor_set(x_67, 1, x_66); +x_58 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_58, 0, x_1); +x_59 = l_Array_foldlMUnsafe_fold___at_Lean_withNestedTraces___spec__5___closed__1; +x_60 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_60, 0, x_59); +lean_ctor_set(x_60, 1, x_58); +x_61 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_CheckAssignment_addAssignmentInfo___rarg___closed__3; +x_62 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_62, 0, x_60); +lean_ctor_set(x_62, 1, x_61); +x_63 = l_Array_toList___rarg(x_2); +x_64 = l_List_map___at_Lean_MessageData_Lean_Message___instance__12___spec__1(x_63); +x_65 = l_Lean_MessageData_ofList(x_64); +lean_dec(x_64); +x_66 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_66, 0, x_62); +lean_ctor_set(x_66, 1, x_65); +x_67 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_checkTypesAndAssign___closed__8; +x_68 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_68, 0, x_66); +lean_ctor_set(x_68, 1, x_67); lean_inc(x_3); -x_68 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_68, 0, x_3); -x_69 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_69, 0, x_67); -lean_ctor_set(x_69, 1, x_68); +x_69 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_69, 0, x_3); x_70 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_70, 0, x_69); -lean_ctor_set(x_70, 1, x_58); -x_71 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processAssignmentFOApprox_loop___closed__2; -x_72 = l_Lean_addTrace___at_Lean_Meta_isLevelDefEqAux___spec__1(x_71, x_70, x_4, x_5, x_6, x_7, x_56); -x_73 = lean_ctor_get(x_72, 1); -lean_inc(x_73); -lean_dec(x_72); -x_9 = x_73; -goto block_42; +lean_ctor_set(x_70, 0, x_68); +lean_ctor_set(x_70, 1, x_69); +x_71 = lean_alloc_ctor(10, 2, 0); +lean_ctor_set(x_71, 0, x_70); +lean_ctor_set(x_71, 1, x_59); +x_72 = l___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processAssignmentFOApprox_loop___closed__2; +x_73 = l_Lean_addTrace___at_Lean_Meta_isLevelDefEqAux___spec__1(x_72, x_71, x_4, x_5, x_6, x_7, x_57); +x_74 = lean_ctor_get(x_73, 1); +lean_inc(x_74); +lean_dec(x_73); +x_9 = x_74; +goto block_43; } } } -block_42: +block_43: { -uint8_t x_10; lean_object* x_11; -x_10 = 1; -lean_inc(x_7); -lean_inc(x_6); -lean_inc(x_5); -lean_inc(x_4); +lean_object* x_10; uint8_t x_11; lean_object* x_12; lean_inc(x_3); -lean_inc(x_1); -x_11 = l_Lean_Meta_commitWhen___at___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processAssignmentFOApprox_loop___spec__1(x_1, x_2, x_3, x_10, x_4, x_5, x_6, x_7, x_9); -if (lean_obj_tag(x_11) == 0) -{ -lean_object* x_12; uint8_t x_13; -x_12 = lean_ctor_get(x_11, 0); -lean_inc(x_12); -x_13 = lean_unbox(x_12); -lean_dec(x_12); -if (x_13 == 0) -{ -lean_object* x_14; lean_object* x_15; -x_14 = lean_ctor_get(x_11, 1); -lean_inc(x_14); -lean_dec(x_11); +x_10 = l_Lean_Expr_headBeta(x_3); +x_11 = 1; lean_inc(x_7); lean_inc(x_6); lean_inc(x_5); lean_inc(x_4); -x_15 = l___private_Lean_Meta_WHNF_0__Lean_Meta_unfoldDefinitionImp_x3f(x_3, x_4, x_5, x_6, x_7, x_14); -if (lean_obj_tag(x_15) == 0) +lean_inc(x_1); +x_12 = l_Lean_Meta_commitWhen___at___private_Lean_Meta_ExprDefEq_0__Lean_Meta_processAssignmentFOApprox_loop___spec__1(x_1, x_2, x_3, x_11, x_4, x_5, x_6, x_7, x_9); +if (lean_obj_tag(x_12) == 0) { -lean_object* x_16; -x_16 = lean_ctor_get(x_15, 0); -lean_inc(x_16); +lean_object* x_13; uint8_t x_14; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +x_14 = lean_unbox(x_13); +lean_dec(x_13); +if (x_14 == 0) +{ +lean_object* x_15; lean_object* x_16; +x_15 = lean_ctor_get(x_12, 1); +lean_inc(x_15); +lean_dec(x_12); +lean_inc(x_7); +lean_inc(x_6); +lean_inc(x_5); +lean_inc(x_4); +x_16 = l___private_Lean_Meta_WHNF_0__Lean_Meta_unfoldDefinitionImp_x3f(x_10, x_4, x_5, x_6, x_7, x_15); if (lean_obj_tag(x_16) == 0) { -uint8_t x_17; +lean_object* x_17; +x_17 = lean_ctor_get(x_16, 0); +lean_inc(x_17); +if (lean_obj_tag(x_17) == 0) +{ +uint8_t x_18; lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_1); -x_17 = !lean_is_exclusive(x_15); -if (x_17 == 0) +x_18 = !lean_is_exclusive(x_16); +if (x_18 == 0) { -lean_object* x_18; uint8_t x_19; lean_object* x_20; -x_18 = lean_ctor_get(x_15, 0); -lean_dec(x_18); -x_19 = 0; -x_20 = lean_box(x_19); -lean_ctor_set(x_15, 0, x_20); -return x_15; +lean_object* x_19; uint8_t x_20; lean_object* x_21; +x_19 = lean_ctor_get(x_16, 0); +lean_dec(x_19); +x_20 = 0; +x_21 = lean_box(x_20); +lean_ctor_set(x_16, 0, x_21); +return x_16; } else { -lean_object* x_21; uint8_t x_22; lean_object* x_23; lean_object* x_24; -x_21 = lean_ctor_get(x_15, 1); -lean_inc(x_21); -lean_dec(x_15); -x_22 = 0; -x_23 = lean_box(x_22); -x_24 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_24, 0, x_23); -lean_ctor_set(x_24, 1, x_21); -return x_24; +lean_object* x_22; uint8_t x_23; lean_object* x_24; lean_object* x_25; +x_22 = lean_ctor_get(x_16, 1); +lean_inc(x_22); +lean_dec(x_16); +x_23 = 0; +x_24 = lean_box(x_23); +x_25 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_25, 0, x_24); +lean_ctor_set(x_25, 1, x_22); +return x_25; } } else { -lean_object* x_25; lean_object* x_26; -x_25 = lean_ctor_get(x_15, 1); -lean_inc(x_25); -lean_dec(x_15); -x_26 = lean_ctor_get(x_16, 0); +lean_object* x_26; lean_object* x_27; +x_26 = lean_ctor_get(x_16, 1); lean_inc(x_26); lean_dec(x_16); -x_3 = x_26; -x_8 = x_25; +x_27 = lean_ctor_get(x_17, 0); +lean_inc(x_27); +lean_dec(x_17); +x_3 = x_27; +x_8 = x_26; goto _start; } } else { -uint8_t x_28; +uint8_t x_29; lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_1); -x_28 = !lean_is_exclusive(x_15); -if (x_28 == 0) +x_29 = !lean_is_exclusive(x_16); +if (x_29 == 0) { -return x_15; +return x_16; } else { -lean_object* x_29; lean_object* x_30; lean_object* x_31; -x_29 = lean_ctor_get(x_15, 0); -x_30 = lean_ctor_get(x_15, 1); +lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_30 = lean_ctor_get(x_16, 0); +x_31 = lean_ctor_get(x_16, 1); +lean_inc(x_31); lean_inc(x_30); -lean_inc(x_29); -lean_dec(x_15); -x_31 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_31, 0, x_29); -lean_ctor_set(x_31, 1, x_30); -return x_31; +lean_dec(x_16); +x_32 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_32, 0, x_30); +lean_ctor_set(x_32, 1, x_31); +return x_32; } } } else { -uint8_t x_32; +uint8_t x_33; +lean_dec(x_10); lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); -lean_dec(x_3); lean_dec(x_1); -x_32 = !lean_is_exclusive(x_11); -if (x_32 == 0) +x_33 = !lean_is_exclusive(x_12); +if (x_33 == 0) { -lean_object* x_33; lean_object* x_34; -x_33 = lean_ctor_get(x_11, 0); -lean_dec(x_33); -x_34 = lean_box(x_10); -lean_ctor_set(x_11, 0, x_34); -return x_11; +lean_object* x_34; lean_object* x_35; +x_34 = lean_ctor_get(x_12, 0); +lean_dec(x_34); +x_35 = lean_box(x_11); +lean_ctor_set(x_12, 0, x_35); +return x_12; } else { -lean_object* x_35; lean_object* x_36; lean_object* x_37; -x_35 = lean_ctor_get(x_11, 1); -lean_inc(x_35); -lean_dec(x_11); -x_36 = lean_box(x_10); -x_37 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_37, 0, x_36); -lean_ctor_set(x_37, 1, x_35); -return x_37; +lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_36 = lean_ctor_get(x_12, 1); +lean_inc(x_36); +lean_dec(x_12); +x_37 = lean_box(x_11); +x_38 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_38, 0, x_37); +lean_ctor_set(x_38, 1, x_36); +return x_38; } } } else { -uint8_t x_38; +uint8_t x_39; +lean_dec(x_10); lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); -lean_dec(x_3); lean_dec(x_1); -x_38 = !lean_is_exclusive(x_11); -if (x_38 == 0) +x_39 = !lean_is_exclusive(x_12); +if (x_39 == 0) { -return x_11; +return x_12; } else { -lean_object* x_39; lean_object* x_40; lean_object* x_41; -x_39 = lean_ctor_get(x_11, 0); -x_40 = lean_ctor_get(x_11, 1); +lean_object* x_40; lean_object* x_41; lean_object* x_42; +x_40 = lean_ctor_get(x_12, 0); +x_41 = lean_ctor_get(x_12, 1); +lean_inc(x_41); lean_inc(x_40); -lean_inc(x_39); -lean_dec(x_11); -x_41 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_41, 0, x_39); -lean_ctor_set(x_41, 1, x_40); -return x_41; +lean_dec(x_12); +x_42 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_42, 0, x_40); +lean_ctor_set(x_42, 1, x_41); +return x_42; } } } @@ -60771,7 +60774,7 @@ x_10 = l_Lean_Meta_isExprDefEqAuxImpl___lambda__1(x_1, x_2, x_9, x_4, x_5, x_6, return x_10; } } -static lean_object* _init_l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7269____closed__1() { +static lean_object* _init_l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7273____closed__1() { _start: { lean_object* x_1; @@ -60779,12 +60782,12 @@ x_1 = lean_alloc_closure((void*)(l_Lean_Meta_isExprDefEqAuxImpl), 7, 0); return x_1; } } -lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7269_(lean_object* x_1) { +lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7273_(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; lean_object* x_4; uint8_t x_5; x_2 = l_Lean_Meta_isExprDefEqAuxRef; -x_3 = l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7269____closed__1; +x_3 = l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7273____closed__1; x_4 = lean_st_ref_set(x_2, x_3, x_1); x_5 = !lean_is_exclusive(x_4); if (x_5 == 0) @@ -60806,7 +60809,7 @@ return x_8; } } } -lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7278_(lean_object* x_1) { +lean_object* l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7282_(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; @@ -61175,12 +61178,12 @@ l_Lean_Meta_isExprDefEqAuxImpl___lambda__2___closed__1 = _init_l_Lean_Meta_isExp lean_mark_persistent(l_Lean_Meta_isExprDefEqAuxImpl___lambda__2___closed__1); l_Lean_Meta_isExprDefEqAuxImpl___closed__1 = _init_l_Lean_Meta_isExprDefEqAuxImpl___closed__1(); lean_mark_persistent(l_Lean_Meta_isExprDefEqAuxImpl___closed__1); -l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7269____closed__1 = _init_l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7269____closed__1(); -lean_mark_persistent(l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7269____closed__1); -res = l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7269_(lean_io_mk_world()); +l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7273____closed__1 = _init_l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7273____closed__1(); +lean_mark_persistent(l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7273____closed__1); +res = l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7273_(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7278_(lean_io_mk_world()); +res = l_Lean_Meta_initFn____x40_Lean_Meta_ExprDefEq___hyg_7282_(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));