chore: update stage0
This commit is contained in:
Leonardo de Moura
parent
250dc3e3a9
commit
d089a25f0e
12 changed files with 13927 additions and 12983 deletions
13
stage0/src/Lean/Elab/Binders.lean
generated
13
stage0/src/Lean/Elab/Binders.lean
generated
|
|
@ -422,10 +422,9 @@ expandMatchAltsIntoMatchAux ref matchAlts true (getMatchAltNumPatterns matchAlts
|
|||
|
||||
@[builtinTermElab «fun»] def elabFun : TermElab :=
|
||||
fun stx expectedType? =>
|
||||
-- "fun " >> ((many1 funBinder >> darrow >> termParser) <|> funMatchAlts)
|
||||
-- funMatchAlts := parser! matchAlts false
|
||||
if (stx.getArg 1).isOfKind `Lean.Parser.Term.funMatchAlts then do
|
||||
stxNew ← liftMacroM $ expandMatchAltsIntoMatch stx ((stx.getArg 1).getArg 0);
|
||||
-- "fun " >> ((many1 funBinder >> darrow >> termParser) <|> matchAlts)
|
||||
if (stx.getArg 1).isOfKind `Lean.Parser.Term.matchAlts then do
|
||||
stxNew ← liftMacroM $ expandMatchAltsIntoMatch stx (stx.getArg 1);
|
||||
withMacroExpansion stx stxNew $ elabTerm stxNew expectedType?
|
||||
else do
|
||||
let binders := (stx.getArg 1).getArgs;
|
||||
|
|
@ -482,7 +481,7 @@ let value := letIdDecl.getArg 4;
|
|||
private def expandLetEqnsDeclVal (ref : Syntax) (alts : Syntax) : Nat → Array Syntax → MacroM Syntax
|
||||
| 0, discrs =>
|
||||
pure $ Syntax.node `Lean.Parser.Term.match
|
||||
#[mkAtomFrom ref "match ", mkNullNode discrs, mkNullNode, mkAtomFrom ref " with ", mkNullNode, alts]
|
||||
#[mkAtomFrom ref "match ", mkNullNode discrs, mkNullNode, mkAtomFrom ref " with ", alts]
|
||||
| n+1, discrs => withFreshMacroScope do
|
||||
x ← `(x);
|
||||
let discrs := if discrs.isEmpty then discrs else discrs.push $ mkAtomFrom ref ", ";
|
||||
|
|
@ -492,7 +491,7 @@ private def expandLetEqnsDeclVal (ref : Syntax) (alts : Syntax) : Nat → Array
|
|||
|
||||
def expandLetEqnsDecl (letDecl : Syntax) : MacroM Syntax := do
|
||||
let ref := letDecl;
|
||||
let matchAlts := letDecl.getArg 4;
|
||||
let matchAlts := letDecl.getArg 3;
|
||||
val ← expandMatchAltsIntoMatch ref matchAlts;
|
||||
pure $ Syntax.node `Lean.Parser.Term.letIdDecl #[letDecl.getArg 0, letDecl.getArg 1, letDecl.getArg 2, mkAtomFrom ref " := ", val]
|
||||
|
||||
|
|
@ -509,7 +508,7 @@ else if letDecl.getKind == `Lean.Parser.Term.letPatDecl then do
|
|||
let optType := letDecl.getArg 2;
|
||||
let type := expandOptType stx optType;
|
||||
let val := letDecl.getArg 4;
|
||||
stxNew ← `(let x : $type := $val; match x with $pat => $body);
|
||||
stxNew ← `(let x : $type := $val; match x with | $pat => $body);
|
||||
let stxNew := if useLetExpr then stxNew else stxNew.updateKind `Lean.Parser.Term.«let!»;
|
||||
withMacroExpansion stx stxNew $ elabTerm stxNew expectedType?
|
||||
else if letDecl.getKind == `Lean.Parser.Term.letEqnsDecl then do
|
||||
|
|
|
|||
2
stage0/src/Lean/Elab/LetRec.lean
generated
2
stage0/src/Lean/Elab/LetRec.lean
generated
|
|
@ -54,7 +54,7 @@ decls ← (letRec.getArg 1).getArgs.getSepElems.mapM fun attrDeclStx => do {
|
|||
if decl.isOfKind `Lean.Parser.Term.letIdDecl then
|
||||
pure $ decl.getArg 4
|
||||
else
|
||||
liftMacroM $ expandMatchAltsIntoMatch decl (decl.getArg 4);
|
||||
liftMacroM $ expandMatchAltsIntoMatch decl (decl.getArg 3);
|
||||
pure {
|
||||
ref := decl,
|
||||
attrs := attrs,
|
||||
|
|
|
|||
5
stage0/src/Lean/Elab/Match.lean
generated
5
stage0/src/Lean/Elab/Match.lean
generated
|
|
@ -686,9 +686,10 @@ else do
|
|||
let stx := stx.setArg 2 (mkOptType matchType);
|
||||
newDiscrs ← mkNewDiscrs discrs 0 #[];
|
||||
let stx := stx.setArg 1 (mkNullNode newDiscrs);
|
||||
let alts := (stx.getArg 5).getArgs;
|
||||
let matchAlts := stx.getArg 4;
|
||||
let alts := (matchAlts.getArg 1).getArgs;
|
||||
newAlts ← mkNewAlts discrs alts;
|
||||
let stx := stx.setArg 5 (mkNullNode newAlts);
|
||||
let stx := stx.setArg 4 (matchAlts.setArg 1 (mkNullNode newAlts));
|
||||
pure stx
|
||||
|
||||
-- parser! "match " >> sepBy1 termParser ", " >> optType >> " with " >> matchAlts
|
||||
|
|
|
|||
2
stage0/src/Lean/Elab/Quotation.lean
generated
2
stage0/src/Lean/Elab/Quotation.lean
generated
|
|
@ -294,7 +294,7 @@ private def letBindRhss (cont : List Alt → TermElabM Syntax) : List Alt → Li
|
|||
|
||||
def match_syntax.expand (stx : Syntax) : TermElabM Syntax := do
|
||||
let discr := stx.getArg 1;
|
||||
let alts := stx.getArg 4;
|
||||
let alts := (stx.getArg 3).getArg 1;
|
||||
alts ← alts.getArgs.getSepElems.mapM $ fun alt => do {
|
||||
let pats := alt.getArg 0;
|
||||
pat ← if pats.getArgs.size == 1 then pure $ pats.getArg 0
|
||||
|
|
|
|||
11879
stage0/stdlib/Lean/Elab/Binders.c
generated
11879
stage0/stdlib/Lean/Elab/Binders.c
generated
File diff suppressed because it is too large
Load diff
2153
stage0/stdlib/Lean/Elab/DoNotation.c
generated
2153
stage0/stdlib/Lean/Elab/DoNotation.c
generated
File diff suppressed because it is too large
Load diff
2
stage0/stdlib/Lean/Elab/LetRec.c
generated
2
stage0/stdlib/Lean/Elab/LetRec.c
generated
|
|
@ -1278,7 +1278,7 @@ lean_inc(x_64);
|
|||
x_65 = lean_ctor_get(x_63, 1);
|
||||
lean_inc(x_65);
|
||||
lean_dec(x_63);
|
||||
x_66 = lean_unsigned_to_nat(4u);
|
||||
x_66 = lean_unsigned_to_nat(3u);
|
||||
x_67 = l_Lean_Syntax_getArg(x_32, x_66);
|
||||
x_68 = l_Lean_Elab_Term_getCurrMacroScope(x_3, x_4, x_5, x_6, x_7, x_8, x_65);
|
||||
x_69 = lean_ctor_get(x_68, 0);
|
||||
|
|
|
|||
6078
stage0/stdlib/Lean/Elab/Match.c
generated
6078
stage0/stdlib/Lean/Elab/Match.c
generated
File diff suppressed because it is too large
Load diff
80
stage0/stdlib/Lean/Elab/Quotation.c
generated
80
stage0/stdlib/Lean/Elab/Quotation.c
generated
|
|
@ -13674,50 +13674,52 @@ return x_61;
|
|||
lean_object* l_Lean_Elab_Term_Quotation_match__syntax_expand(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_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_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; 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;
|
||||
x_9 = lean_unsigned_to_nat(1u);
|
||||
x_10 = l_Lean_Syntax_getArg(x_1, x_9);
|
||||
x_11 = lean_unsigned_to_nat(4u);
|
||||
x_11 = lean_unsigned_to_nat(3u);
|
||||
x_12 = l_Lean_Syntax_getArg(x_1, x_11);
|
||||
x_13 = l_Lean_Syntax_getArgs(x_12);
|
||||
x_13 = l_Lean_Syntax_getArg(x_12, x_9);
|
||||
lean_dec(x_12);
|
||||
x_14 = lean_unsigned_to_nat(2u);
|
||||
x_15 = lean_unsigned_to_nat(0u);
|
||||
x_16 = l_Array_empty___closed__1;
|
||||
x_17 = l_Array_foldlStepMAux___main___at_Lean_Elab_Term_elabParen___spec__1(x_14, x_13, x_15, x_16);
|
||||
x_14 = l_Lean_Syntax_getArgs(x_13);
|
||||
lean_dec(x_13);
|
||||
x_18 = x_17;
|
||||
x_19 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Elab_Term_Quotation_match__syntax_expand___spec__1___boxed), 9, 2);
|
||||
lean_closure_set(x_19, 0, x_15);
|
||||
lean_closure_set(x_19, 1, x_18);
|
||||
x_20 = x_19;
|
||||
x_15 = lean_unsigned_to_nat(2u);
|
||||
x_16 = lean_unsigned_to_nat(0u);
|
||||
x_17 = l_Array_empty___closed__1;
|
||||
x_18 = l_Array_foldlStepMAux___main___at_Lean_Elab_Term_elabParen___spec__1(x_15, x_14, x_16, x_17);
|
||||
lean_dec(x_14);
|
||||
x_19 = x_18;
|
||||
x_20 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_Elab_Term_Quotation_match__syntax_expand___spec__1___boxed), 9, 2);
|
||||
lean_closure_set(x_20, 0, x_16);
|
||||
lean_closure_set(x_20, 1, x_19);
|
||||
x_21 = x_20;
|
||||
lean_inc(x_7);
|
||||
lean_inc(x_6);
|
||||
lean_inc(x_5);
|
||||
lean_inc(x_4);
|
||||
lean_inc(x_3);
|
||||
lean_inc(x_2);
|
||||
x_21 = lean_apply_7(x_20, x_2, x_3, x_4, x_5, x_6, x_7, x_8);
|
||||
if (lean_obj_tag(x_21) == 0)
|
||||
x_22 = lean_apply_7(x_21, x_2, x_3, x_4, x_5, x_6, x_7, x_8);
|
||||
if (lean_obj_tag(x_22) == 0)
|
||||
{
|
||||
lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27;
|
||||
x_22 = lean_ctor_get(x_21, 0);
|
||||
lean_inc(x_22);
|
||||
x_23 = lean_ctor_get(x_21, 1);
|
||||
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_23 = lean_ctor_get(x_22, 0);
|
||||
lean_inc(x_23);
|
||||
lean_dec(x_21);
|
||||
x_24 = lean_box(0);
|
||||
x_25 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_25, 0, x_10);
|
||||
lean_ctor_set(x_25, 1, x_24);
|
||||
x_26 = l_Array_toList___rarg(x_22);
|
||||
x_24 = lean_ctor_get(x_22, 1);
|
||||
lean_inc(x_24);
|
||||
lean_dec(x_22);
|
||||
x_27 = l___private_Lean_Elab_Quotation_6__compileStxMatch___main(x_25, x_26, x_2, x_3, x_4, x_5, x_6, x_7, x_23);
|
||||
return x_27;
|
||||
x_25 = lean_box(0);
|
||||
x_26 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_26, 0, x_10);
|
||||
lean_ctor_set(x_26, 1, x_25);
|
||||
x_27 = l_Array_toList___rarg(x_23);
|
||||
lean_dec(x_23);
|
||||
x_28 = l___private_Lean_Elab_Quotation_6__compileStxMatch___main(x_26, x_27, x_2, x_3, x_4, x_5, x_6, x_7, x_24);
|
||||
return x_28;
|
||||
}
|
||||
else
|
||||
{
|
||||
uint8_t x_28;
|
||||
uint8_t x_29;
|
||||
lean_dec(x_10);
|
||||
lean_dec(x_7);
|
||||
lean_dec(x_6);
|
||||
|
|
@ -13725,23 +13727,23 @@ lean_dec(x_5);
|
|||
lean_dec(x_4);
|
||||
lean_dec(x_3);
|
||||
lean_dec(x_2);
|
||||
x_28 = !lean_is_exclusive(x_21);
|
||||
if (x_28 == 0)
|
||||
x_29 = !lean_is_exclusive(x_22);
|
||||
if (x_29 == 0)
|
||||
{
|
||||
return x_21;
|
||||
return x_22;
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_29; lean_object* x_30; lean_object* x_31;
|
||||
x_29 = lean_ctor_get(x_21, 0);
|
||||
x_30 = lean_ctor_get(x_21, 1);
|
||||
lean_object* x_30; lean_object* x_31; lean_object* x_32;
|
||||
x_30 = lean_ctor_get(x_22, 0);
|
||||
x_31 = lean_ctor_get(x_22, 1);
|
||||
lean_inc(x_31);
|
||||
lean_inc(x_30);
|
||||
lean_inc(x_29);
|
||||
lean_dec(x_21);
|
||||
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_22);
|
||||
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;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
|||
6187
stage0/stdlib/Lean/Elab/Syntax.c
generated
6187
stage0/stdlib/Lean/Elab/Syntax.c
generated
File diff suppressed because it is too large
Load diff
505
stage0/stdlib/Lean/Elab/Tactic/Basic.c
generated
505
stage0/stdlib/Lean/Elab/Tactic/Basic.c
generated
|
|
@ -27,7 +27,6 @@ lean_object* l___regBuiltin_Lean_Elab_Tactic_evalNestedTacticBlock___closed__3;
|
|||
lean_object* l_Lean_Elab_Tactic_mkTacticAttribute___closed__5;
|
||||
lean_object* l___private_Lean_Elab_Tactic_Basic_3__introStep___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
lean_object* l_Lean_Elab_Tactic_evalTactic___main___closed__3;
|
||||
extern lean_object* l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__14;
|
||||
lean_object* l___private_Lean_Elab_Tactic_Basic_1__evalTacticUsing___main(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_Elab_Tactic_withMainMVarContext___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_Elab_Tactic_mkTacticAttribute___closed__3;
|
||||
|
|
@ -132,7 +131,6 @@ lean_object* l_Lean_Elab_throwUnsupportedSyntax___at_Lean_Elab_Tactic_evalTactic
|
|||
extern lean_object* l_Lean_Meta_throwTacticEx___rarg___closed__3;
|
||||
lean_object* l_Lean_Elab_Tactic_getGoals___boxed(lean_object*);
|
||||
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at___private_Lean_Elab_Tactic_Basic_5__sortFVarIds___spec__13(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
extern lean_object* l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__13;
|
||||
extern lean_object* l_Lean_Name_inhabited;
|
||||
lean_object* l___private_Lean_Elab_Tactic_Basic_7__regTraceClasses___closed__1;
|
||||
lean_object* l_ReaderT_bind___at_Lean_Elab_Tactic_focus___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*);
|
||||
|
|
@ -166,6 +164,7 @@ extern lean_object* l_Lean_Meta_substCore___lambda__5___closed__1;
|
|||
lean_object* l_Lean_Elab_Tactic_liftMetaTacticAux___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_Elab_Tactic_liftMetaTacticAux___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_nat_add(lean_object*, lean_object*);
|
||||
extern lean_object* l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__16;
|
||||
lean_object* l_Lean_Elab_Term_ensureHasType(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
lean_object* l_Lean_Meta_getMVarDecl___at_Lean_Elab_Tactic_getMainTag___spec__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___private_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main___at_Lean_Elab_Tactic_evalTactic___main___spec__8(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
|
|
@ -496,6 +495,7 @@ lean_object* l_List_findM_x3f___main___at___private_Lean_Elab_Tactic_Basic_6__fi
|
|||
lean_object* l_Lean_Meta_instantiateMVars___at_Lean_Elab_Tactic_ensureHasNoMVars___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_Lean_Elab_Tactic_evalSubst(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
lean_object* l_ReaderT_bind___at_Lean_Elab_Tactic_focus___spec__1(lean_object*, lean_object*);
|
||||
extern lean_object* l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__17;
|
||||
lean_object* l___regBuiltin_Lean_Elab_Tactic_evalFailIfSuccess___closed__3;
|
||||
lean_object* l_Std_PersistentHashMap_findAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__4___boxed(lean_object*, lean_object*, lean_object*);
|
||||
lean_object* l_Lean_Elab_Tactic_evalChoiceAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
|
||||
|
|
@ -10186,7 +10186,7 @@ _start:
|
|||
{
|
||||
lean_object* x_1; lean_object* x_2; lean_object* x_3;
|
||||
x_1 = l___regBuiltin_Lean_Elab_Term_Quotation_elabTacticQuot___closed__1;
|
||||
x_2 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__14;
|
||||
x_2 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__17;
|
||||
x_3 = lean_name_mk_string(x_1, x_2);
|
||||
return x_3;
|
||||
}
|
||||
|
|
@ -10226,30 +10226,30 @@ return x_3;
|
|||
lean_object* l_Lean_Elab_Tactic_evalIntro(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:
|
||||
{
|
||||
uint8_t x_11; lean_object* x_206; uint8_t x_207;
|
||||
x_206 = l___private_Lean_Elab_Binders_16__expandMatchAltsIntoMatchAux___main___closed__5;
|
||||
uint8_t x_11; lean_object* x_207; uint8_t x_208;
|
||||
x_207 = l___private_Lean_Elab_Binders_16__expandMatchAltsIntoMatchAux___main___closed__5;
|
||||
lean_inc(x_1);
|
||||
x_207 = l_Lean_Syntax_isOfKind(x_1, x_206);
|
||||
if (x_207 == 0)
|
||||
x_208 = l_Lean_Syntax_isOfKind(x_1, x_207);
|
||||
if (x_208 == 0)
|
||||
{
|
||||
uint8_t x_208;
|
||||
x_208 = 0;
|
||||
x_11 = x_208;
|
||||
goto block_205;
|
||||
uint8_t x_209;
|
||||
x_209 = 0;
|
||||
x_11 = x_209;
|
||||
goto block_206;
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_209; lean_object* x_210; lean_object* x_211; uint8_t x_212;
|
||||
x_209 = l_Lean_Syntax_getArgs(x_1);
|
||||
x_210 = lean_array_get_size(x_209);
|
||||
lean_dec(x_209);
|
||||
x_211 = lean_unsigned_to_nat(2u);
|
||||
x_212 = lean_nat_dec_eq(x_210, x_211);
|
||||
lean_object* x_210; lean_object* x_211; lean_object* x_212; uint8_t x_213;
|
||||
x_210 = l_Lean_Syntax_getArgs(x_1);
|
||||
x_211 = lean_array_get_size(x_210);
|
||||
lean_dec(x_210);
|
||||
x_11 = x_212;
|
||||
goto block_205;
|
||||
x_212 = lean_unsigned_to_nat(2u);
|
||||
x_213 = lean_nat_dec_eq(x_211, x_212);
|
||||
lean_dec(x_211);
|
||||
x_11 = x_213;
|
||||
goto block_206;
|
||||
}
|
||||
block_205:
|
||||
block_206:
|
||||
{
|
||||
if (x_11 == 0)
|
||||
{
|
||||
|
|
@ -10268,32 +10268,32 @@ return x_12;
|
|||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_13; lean_object* x_14; uint8_t x_15; lean_object* x_159; uint8_t x_160; uint8_t x_161;
|
||||
lean_object* x_13; lean_object* x_14; uint8_t x_15; lean_object* x_160; uint8_t x_161; uint8_t x_162;
|
||||
x_13 = lean_unsigned_to_nat(1u);
|
||||
x_14 = l_Lean_Syntax_getArg(x_1, x_13);
|
||||
x_159 = l_Lean_nullKind___closed__2;
|
||||
x_160 = l_Lean_nullKind___closed__2;
|
||||
lean_inc(x_14);
|
||||
x_160 = l_Lean_Syntax_isOfKind(x_14, x_159);
|
||||
if (x_160 == 0)
|
||||
x_161 = l_Lean_Syntax_isOfKind(x_14, x_160);
|
||||
if (x_161 == 0)
|
||||
{
|
||||
uint8_t x_200;
|
||||
x_200 = 0;
|
||||
x_161 = x_200;
|
||||
goto block_199;
|
||||
uint8_t x_201;
|
||||
x_201 = 0;
|
||||
x_162 = x_201;
|
||||
goto block_200;
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_201; lean_object* x_202; lean_object* x_203; uint8_t x_204;
|
||||
x_201 = l_Lean_Syntax_getArgs(x_14);
|
||||
x_202 = lean_array_get_size(x_201);
|
||||
lean_dec(x_201);
|
||||
x_203 = lean_unsigned_to_nat(0u);
|
||||
x_204 = lean_nat_dec_eq(x_202, x_203);
|
||||
lean_object* x_202; lean_object* x_203; lean_object* x_204; uint8_t x_205;
|
||||
x_202 = l_Lean_Syntax_getArgs(x_14);
|
||||
x_203 = lean_array_get_size(x_202);
|
||||
lean_dec(x_202);
|
||||
x_161 = x_204;
|
||||
goto block_199;
|
||||
x_204 = lean_unsigned_to_nat(0u);
|
||||
x_205 = lean_nat_dec_eq(x_203, x_204);
|
||||
lean_dec(x_203);
|
||||
x_162 = x_205;
|
||||
goto block_200;
|
||||
}
|
||||
block_158:
|
||||
block_159:
|
||||
{
|
||||
if (x_15 == 0)
|
||||
{
|
||||
|
|
@ -10416,33 +10416,33 @@ lean_inc(x_64);
|
|||
x_66 = l_Lean_Syntax_isOfKind(x_64, x_65);
|
||||
if (x_66 == 0)
|
||||
{
|
||||
uint8_t x_67; lean_object* x_150; uint8_t x_151;
|
||||
x_150 = l_Lean_mkHole___closed__2;
|
||||
uint8_t x_67; lean_object* x_151; uint8_t x_152;
|
||||
x_151 = l_Lean_mkHole___closed__2;
|
||||
lean_inc(x_64);
|
||||
x_151 = l_Lean_Syntax_isOfKind(x_64, x_150);
|
||||
if (x_151 == 0)
|
||||
x_152 = l_Lean_Syntax_isOfKind(x_64, x_151);
|
||||
if (x_152 == 0)
|
||||
{
|
||||
uint8_t x_152;
|
||||
x_152 = 0;
|
||||
x_67 = x_152;
|
||||
goto block_149;
|
||||
uint8_t x_153;
|
||||
x_153 = 0;
|
||||
x_67 = x_153;
|
||||
goto block_150;
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_153; lean_object* x_154; uint8_t x_155;
|
||||
x_153 = l_Lean_Syntax_getArgs(x_64);
|
||||
x_154 = lean_array_get_size(x_153);
|
||||
lean_dec(x_153);
|
||||
x_155 = lean_nat_dec_eq(x_154, x_13);
|
||||
lean_object* x_154; lean_object* x_155; uint8_t x_156;
|
||||
x_154 = l_Lean_Syntax_getArgs(x_64);
|
||||
x_155 = lean_array_get_size(x_154);
|
||||
lean_dec(x_154);
|
||||
x_67 = x_155;
|
||||
goto block_149;
|
||||
x_156 = lean_nat_dec_eq(x_155, x_13);
|
||||
lean_dec(x_155);
|
||||
x_67 = x_156;
|
||||
goto block_150;
|
||||
}
|
||||
block_149:
|
||||
block_150:
|
||||
{
|
||||
if (x_67 == 0)
|
||||
{
|
||||
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; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; 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_object* x_115; 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_object* x_124; lean_object* x_125; lean_object* x_126; uint8_t x_127;
|
||||
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; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; 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_object* x_115; 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_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; uint8_t x_128;
|
||||
x_68 = l_Lean_Elab_Tactic_getCurrMacroScope___rarg(x_4, x_5, x_6, x_7, x_8, x_9, x_10);
|
||||
x_69 = lean_ctor_get(x_68, 0);
|
||||
lean_inc(x_69);
|
||||
|
|
@ -10498,72 +10498,76 @@ x_99 = l___private_Lean_Elab_Quotation_8__letBindRhss___main___closed__17;
|
|||
x_100 = lean_array_push(x_98, x_99);
|
||||
x_101 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__9;
|
||||
x_102 = lean_array_push(x_100, x_101);
|
||||
x_103 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__13;
|
||||
x_104 = lean_array_push(x_102, x_103);
|
||||
x_105 = lean_array_push(x_80, x_64);
|
||||
x_106 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_106, 0, x_82);
|
||||
lean_ctor_set(x_106, 1, x_105);
|
||||
x_107 = lean_array_push(x_80, x_106);
|
||||
x_108 = l_Lean_Elab_Term_expandCDot_x3f___closed__6;
|
||||
x_103 = lean_array_push(x_80, x_64);
|
||||
x_104 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_104, 0, x_82);
|
||||
lean_ctor_set(x_104, 1, x_103);
|
||||
x_105 = lean_array_push(x_80, x_104);
|
||||
x_106 = l_Lean_Elab_Term_expandCDot_x3f___closed__6;
|
||||
x_107 = lean_array_push(x_105, x_106);
|
||||
x_108 = l___private_Lean_Elab_Quotation_5__explodeHeadPat___lambda__1___closed__3;
|
||||
x_109 = lean_array_push(x_107, x_108);
|
||||
x_110 = l___private_Lean_Elab_Quotation_5__explodeHeadPat___lambda__1___closed__3;
|
||||
x_111 = lean_array_push(x_109, x_110);
|
||||
x_112 = l_Lean_Elab_Tactic_evalIntro___closed__6;
|
||||
x_110 = l_Lean_Elab_Tactic_evalIntro___closed__6;
|
||||
x_111 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_111, 0, x_110);
|
||||
lean_ctor_set(x_111, 1, x_109);
|
||||
x_112 = lean_array_push(x_80, x_111);
|
||||
x_113 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_113, 0, x_112);
|
||||
lean_ctor_set(x_113, 1, x_111);
|
||||
x_114 = lean_array_push(x_80, x_113);
|
||||
x_115 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_115, 0, x_82);
|
||||
lean_ctor_set(x_115, 1, x_114);
|
||||
x_116 = lean_array_push(x_104, x_115);
|
||||
x_117 = l___private_Lean_Elab_Binders_16__expandMatchAltsIntoMatchAux___main___closed__10;
|
||||
x_118 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_118, 0, x_117);
|
||||
lean_ctor_set(x_118, 1, x_116);
|
||||
x_119 = lean_array_push(x_90, x_118);
|
||||
x_120 = lean_array_push(x_119, x_89);
|
||||
x_121 = l_Lean_Elab_Tactic_evalIntro___closed__9;
|
||||
x_122 = lean_array_push(x_121, x_83);
|
||||
x_123 = l_Lean_Elab_Tactic_evalIntro___closed__7;
|
||||
x_124 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_124, 0, x_123);
|
||||
lean_ctor_set(x_124, 1, x_122);
|
||||
x_125 = lean_array_push(x_120, x_124);
|
||||
x_126 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_126, 0, x_82);
|
||||
lean_ctor_set(x_126, 1, x_125);
|
||||
x_127 = !lean_is_exclusive(x_4);
|
||||
if (x_127 == 0)
|
||||
lean_ctor_set(x_113, 0, x_82);
|
||||
lean_ctor_set(x_113, 1, x_112);
|
||||
x_114 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__16;
|
||||
x_115 = lean_array_push(x_114, x_113);
|
||||
x_116 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_116, 0, x_82);
|
||||
lean_ctor_set(x_116, 1, x_115);
|
||||
x_117 = lean_array_push(x_102, x_116);
|
||||
x_118 = l___private_Lean_Elab_Binders_16__expandMatchAltsIntoMatchAux___main___closed__10;
|
||||
x_119 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_119, 0, x_118);
|
||||
lean_ctor_set(x_119, 1, x_117);
|
||||
x_120 = lean_array_push(x_90, x_119);
|
||||
x_121 = lean_array_push(x_120, x_89);
|
||||
x_122 = l_Lean_Elab_Tactic_evalIntro___closed__9;
|
||||
x_123 = lean_array_push(x_122, x_83);
|
||||
x_124 = l_Lean_Elab_Tactic_evalIntro___closed__7;
|
||||
x_125 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_125, 0, x_124);
|
||||
lean_ctor_set(x_125, 1, x_123);
|
||||
x_126 = lean_array_push(x_121, x_125);
|
||||
x_127 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_127, 0, x_82);
|
||||
lean_ctor_set(x_127, 1, x_126);
|
||||
x_128 = !lean_is_exclusive(x_4);
|
||||
if (x_128 == 0)
|
||||
{
|
||||
lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131;
|
||||
x_128 = lean_ctor_get(x_4, 6);
|
||||
lean_inc(x_126);
|
||||
x_129 = lean_alloc_ctor(0, 2, 0);
|
||||
lean_ctor_set(x_129, 0, x_1);
|
||||
lean_ctor_set(x_129, 1, x_126);
|
||||
x_130 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_130, 0, x_129);
|
||||
lean_ctor_set(x_130, 1, x_128);
|
||||
lean_ctor_set(x_4, 6, x_130);
|
||||
x_131 = l_Lean_Elab_Tactic_evalTactic___main(x_126, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_73);
|
||||
return x_131;
|
||||
lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132;
|
||||
x_129 = lean_ctor_get(x_4, 6);
|
||||
lean_inc(x_127);
|
||||
x_130 = lean_alloc_ctor(0, 2, 0);
|
||||
lean_ctor_set(x_130, 0, x_1);
|
||||
lean_ctor_set(x_130, 1, x_127);
|
||||
x_131 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_131, 0, x_130);
|
||||
lean_ctor_set(x_131, 1, x_129);
|
||||
lean_ctor_set(x_4, 6, x_131);
|
||||
x_132 = l_Lean_Elab_Tactic_evalTactic___main(x_127, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_73);
|
||||
return x_132;
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; uint8_t x_140; uint8_t x_141; uint8_t x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146;
|
||||
x_132 = lean_ctor_get(x_4, 0);
|
||||
x_133 = lean_ctor_get(x_4, 1);
|
||||
x_134 = lean_ctor_get(x_4, 2);
|
||||
x_135 = lean_ctor_get(x_4, 3);
|
||||
x_136 = lean_ctor_get(x_4, 4);
|
||||
x_137 = lean_ctor_get(x_4, 5);
|
||||
x_138 = lean_ctor_get(x_4, 6);
|
||||
x_139 = lean_ctor_get(x_4, 7);
|
||||
x_140 = lean_ctor_get_uint8(x_4, sizeof(void*)*8);
|
||||
x_141 = lean_ctor_get_uint8(x_4, sizeof(void*)*8 + 1);
|
||||
x_142 = lean_ctor_get_uint8(x_4, sizeof(void*)*8 + 2);
|
||||
lean_object* x_133; 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; uint8_t x_141; uint8_t x_142; uint8_t x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147;
|
||||
x_133 = lean_ctor_get(x_4, 0);
|
||||
x_134 = lean_ctor_get(x_4, 1);
|
||||
x_135 = lean_ctor_get(x_4, 2);
|
||||
x_136 = lean_ctor_get(x_4, 3);
|
||||
x_137 = lean_ctor_get(x_4, 4);
|
||||
x_138 = lean_ctor_get(x_4, 5);
|
||||
x_139 = lean_ctor_get(x_4, 6);
|
||||
x_140 = lean_ctor_get(x_4, 7);
|
||||
x_141 = lean_ctor_get_uint8(x_4, sizeof(void*)*8);
|
||||
x_142 = lean_ctor_get_uint8(x_4, sizeof(void*)*8 + 1);
|
||||
x_143 = lean_ctor_get_uint8(x_4, sizeof(void*)*8 + 2);
|
||||
lean_inc(x_140);
|
||||
lean_inc(x_139);
|
||||
lean_inc(x_138);
|
||||
lean_inc(x_137);
|
||||
|
|
@ -10571,213 +10575,212 @@ lean_inc(x_136);
|
|||
lean_inc(x_135);
|
||||
lean_inc(x_134);
|
||||
lean_inc(x_133);
|
||||
lean_inc(x_132);
|
||||
lean_dec(x_4);
|
||||
lean_inc(x_126);
|
||||
x_143 = lean_alloc_ctor(0, 2, 0);
|
||||
lean_ctor_set(x_143, 0, x_1);
|
||||
lean_ctor_set(x_143, 1, x_126);
|
||||
x_144 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_144, 0, x_143);
|
||||
lean_ctor_set(x_144, 1, x_138);
|
||||
x_145 = lean_alloc_ctor(0, 8, 3);
|
||||
lean_ctor_set(x_145, 0, x_132);
|
||||
lean_ctor_set(x_145, 1, x_133);
|
||||
lean_ctor_set(x_145, 2, x_134);
|
||||
lean_ctor_set(x_145, 3, x_135);
|
||||
lean_ctor_set(x_145, 4, x_136);
|
||||
lean_ctor_set(x_145, 5, x_137);
|
||||
lean_ctor_set(x_145, 6, x_144);
|
||||
lean_ctor_set(x_145, 7, x_139);
|
||||
lean_ctor_set_uint8(x_145, sizeof(void*)*8, x_140);
|
||||
lean_ctor_set_uint8(x_145, sizeof(void*)*8 + 1, x_141);
|
||||
lean_ctor_set_uint8(x_145, sizeof(void*)*8 + 2, x_142);
|
||||
x_146 = l_Lean_Elab_Tactic_evalTactic___main(x_126, x_2, x_3, x_145, x_5, x_6, x_7, x_8, x_9, x_73);
|
||||
return x_146;
|
||||
lean_inc(x_127);
|
||||
x_144 = lean_alloc_ctor(0, 2, 0);
|
||||
lean_ctor_set(x_144, 0, x_1);
|
||||
lean_ctor_set(x_144, 1, x_127);
|
||||
x_145 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_145, 0, x_144);
|
||||
lean_ctor_set(x_145, 1, x_139);
|
||||
x_146 = lean_alloc_ctor(0, 8, 3);
|
||||
lean_ctor_set(x_146, 0, x_133);
|
||||
lean_ctor_set(x_146, 1, x_134);
|
||||
lean_ctor_set(x_146, 2, x_135);
|
||||
lean_ctor_set(x_146, 3, x_136);
|
||||
lean_ctor_set(x_146, 4, x_137);
|
||||
lean_ctor_set(x_146, 5, x_138);
|
||||
lean_ctor_set(x_146, 6, x_145);
|
||||
lean_ctor_set(x_146, 7, x_140);
|
||||
lean_ctor_set_uint8(x_146, sizeof(void*)*8, x_141);
|
||||
lean_ctor_set_uint8(x_146, sizeof(void*)*8 + 1, x_142);
|
||||
lean_ctor_set_uint8(x_146, sizeof(void*)*8 + 2, x_143);
|
||||
x_147 = l_Lean_Elab_Tactic_evalTactic___main(x_127, x_2, x_3, x_146, x_5, x_6, x_7, x_8, x_9, x_73);
|
||||
return x_147;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_147; lean_object* x_148;
|
||||
lean_object* x_148; lean_object* x_149;
|
||||
lean_dec(x_64);
|
||||
lean_dec(x_1);
|
||||
x_147 = l_Lean_mkThunk___closed__1;
|
||||
x_148 = l___private_Lean_Elab_Tactic_Basic_3__introStep(x_147, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
|
||||
return x_148;
|
||||
x_148 = l_Lean_mkThunk___closed__1;
|
||||
x_149 = l___private_Lean_Elab_Tactic_Basic_3__introStep(x_148, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
|
||||
return x_149;
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_156; lean_object* x_157;
|
||||
lean_object* x_157; lean_object* x_158;
|
||||
lean_dec(x_1);
|
||||
x_156 = l_Lean_Syntax_getId(x_64);
|
||||
x_157 = l_Lean_Syntax_getId(x_64);
|
||||
lean_dec(x_64);
|
||||
x_157 = l___private_Lean_Elab_Tactic_Basic_3__introStep(x_156, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
|
||||
return x_157;
|
||||
x_158 = l___private_Lean_Elab_Tactic_Basic_3__introStep(x_157, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
|
||||
return x_158;
|
||||
}
|
||||
}
|
||||
}
|
||||
block_199:
|
||||
block_200:
|
||||
{
|
||||
if (x_162 == 0)
|
||||
{
|
||||
if (x_161 == 0)
|
||||
{
|
||||
if (x_160 == 0)
|
||||
{
|
||||
uint8_t x_162;
|
||||
x_162 = 0;
|
||||
x_15 = x_162;
|
||||
goto block_158;
|
||||
uint8_t x_163;
|
||||
x_163 = 0;
|
||||
x_15 = x_163;
|
||||
goto block_159;
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_163; lean_object* x_164; uint8_t x_165;
|
||||
x_163 = l_Lean_Syntax_getArgs(x_14);
|
||||
x_164 = lean_array_get_size(x_163);
|
||||
lean_dec(x_163);
|
||||
x_165 = lean_nat_dec_eq(x_164, x_13);
|
||||
lean_object* x_164; lean_object* x_165; uint8_t x_166;
|
||||
x_164 = l_Lean_Syntax_getArgs(x_14);
|
||||
x_165 = lean_array_get_size(x_164);
|
||||
lean_dec(x_164);
|
||||
x_15 = x_165;
|
||||
goto block_158;
|
||||
x_166 = lean_nat_dec_eq(x_165, x_13);
|
||||
lean_dec(x_165);
|
||||
x_15 = x_166;
|
||||
goto block_159;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_166;
|
||||
lean_object* x_167;
|
||||
lean_dec(x_14);
|
||||
lean_dec(x_1);
|
||||
lean_inc(x_4);
|
||||
x_166 = l_Lean_Elab_Tactic_getMainGoal(x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
|
||||
if (lean_obj_tag(x_166) == 0)
|
||||
x_167 = l_Lean_Elab_Tactic_getMainGoal(x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
|
||||
if (lean_obj_tag(x_167) == 0)
|
||||
{
|
||||
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; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177;
|
||||
x_167 = lean_ctor_get(x_166, 0);
|
||||
lean_inc(x_167);
|
||||
x_168 = lean_ctor_get(x_166, 1);
|
||||
lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178;
|
||||
x_168 = lean_ctor_get(x_167, 0);
|
||||
lean_inc(x_168);
|
||||
lean_dec(x_166);
|
||||
x_169 = lean_ctor_get(x_167, 0);
|
||||
x_169 = lean_ctor_get(x_167, 1);
|
||||
lean_inc(x_169);
|
||||
x_170 = lean_ctor_get(x_167, 1);
|
||||
lean_inc(x_170);
|
||||
lean_dec(x_167);
|
||||
lean_inc(x_169);
|
||||
x_171 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalIntro___lambda__1), 6, 1);
|
||||
lean_closure_set(x_171, 0, x_169);
|
||||
x_172 = l_Lean_Elab_Tactic_liftMetaTactic___closed__1;
|
||||
x_173 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_Lean_MonadLCtx___spec__2___rarg), 7, 2);
|
||||
lean_closure_set(x_173, 0, x_171);
|
||||
lean_closure_set(x_173, 1, x_172);
|
||||
x_170 = lean_ctor_get(x_168, 0);
|
||||
lean_inc(x_170);
|
||||
x_171 = lean_ctor_get(x_168, 1);
|
||||
lean_inc(x_171);
|
||||
lean_dec(x_168);
|
||||
lean_inc(x_170);
|
||||
x_172 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalIntro___lambda__1), 6, 1);
|
||||
lean_closure_set(x_172, 0, x_170);
|
||||
x_173 = l_Lean_Elab_Tactic_liftMetaTactic___closed__1;
|
||||
x_174 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_Lean_MonadLCtx___spec__2___rarg), 7, 2);
|
||||
lean_closure_set(x_174, 0, x_172);
|
||||
lean_closure_set(x_174, 1, x_173);
|
||||
lean_inc(x_5);
|
||||
lean_inc(x_4);
|
||||
lean_inc(x_3);
|
||||
lean_inc(x_2);
|
||||
x_174 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaM___rarg___boxed), 10, 5);
|
||||
lean_closure_set(x_174, 0, x_173);
|
||||
lean_closure_set(x_174, 1, x_2);
|
||||
lean_closure_set(x_174, 2, x_3);
|
||||
lean_closure_set(x_174, 3, x_4);
|
||||
lean_closure_set(x_174, 4, x_5);
|
||||
x_175 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaTacticAux___rarg___lambda__1___boxed), 11, 5);
|
||||
lean_closure_set(x_175, 0, x_170);
|
||||
x_175 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaM___rarg___boxed), 10, 5);
|
||||
lean_closure_set(x_175, 0, x_174);
|
||||
lean_closure_set(x_175, 1, x_2);
|
||||
lean_closure_set(x_175, 2, x_3);
|
||||
lean_closure_set(x_175, 3, x_4);
|
||||
lean_closure_set(x_175, 4, x_5);
|
||||
x_176 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_Lean_MonadLCtx___spec__2___rarg), 7, 2);
|
||||
lean_closure_set(x_176, 0, x_174);
|
||||
lean_closure_set(x_176, 1, x_175);
|
||||
x_177 = l_Lean_Meta_getMVarDecl___at_Lean_Meta_isReadOnlyExprMVar___spec__1(x_169, x_6, x_7, x_8, x_9, x_168);
|
||||
if (lean_obj_tag(x_177) == 0)
|
||||
x_176 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_liftMetaTacticAux___rarg___lambda__1___boxed), 11, 5);
|
||||
lean_closure_set(x_176, 0, x_171);
|
||||
lean_closure_set(x_176, 1, x_2);
|
||||
lean_closure_set(x_176, 2, x_3);
|
||||
lean_closure_set(x_176, 3, x_4);
|
||||
lean_closure_set(x_176, 4, x_5);
|
||||
x_177 = lean_alloc_closure((void*)(l_ReaderT_bind___at_Lean_Meta_Lean_MonadLCtx___spec__2___rarg), 7, 2);
|
||||
lean_closure_set(x_177, 0, x_175);
|
||||
lean_closure_set(x_177, 1, x_176);
|
||||
x_178 = l_Lean_Meta_getMVarDecl___at_Lean_Meta_isReadOnlyExprMVar___spec__1(x_170, x_6, x_7, x_8, x_9, x_169);
|
||||
if (lean_obj_tag(x_178) == 0)
|
||||
{
|
||||
lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182;
|
||||
x_178 = lean_ctor_get(x_177, 0);
|
||||
lean_inc(x_178);
|
||||
x_179 = lean_ctor_get(x_177, 1);
|
||||
lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183;
|
||||
x_179 = lean_ctor_get(x_178, 0);
|
||||
lean_inc(x_179);
|
||||
lean_dec(x_177);
|
||||
x_180 = lean_ctor_get(x_178, 1);
|
||||
lean_inc(x_180);
|
||||
x_181 = lean_ctor_get(x_178, 4);
|
||||
lean_inc(x_181);
|
||||
lean_dec(x_178);
|
||||
x_182 = l___private_Lean_Meta_Basic_27__withLocalContextImpl___rarg(x_180, x_181, x_176, x_6, x_7, x_8, x_9, x_179);
|
||||
if (lean_obj_tag(x_182) == 0)
|
||||
x_181 = lean_ctor_get(x_179, 1);
|
||||
lean_inc(x_181);
|
||||
x_182 = lean_ctor_get(x_179, 4);
|
||||
lean_inc(x_182);
|
||||
lean_dec(x_179);
|
||||
x_183 = l___private_Lean_Meta_Basic_27__withLocalContextImpl___rarg(x_181, x_182, x_177, x_6, x_7, x_8, x_9, x_180);
|
||||
if (lean_obj_tag(x_183) == 0)
|
||||
{
|
||||
uint8_t x_183;
|
||||
x_183 = !lean_is_exclusive(x_182);
|
||||
if (x_183 == 0)
|
||||
uint8_t x_184;
|
||||
x_184 = !lean_is_exclusive(x_183);
|
||||
if (x_184 == 0)
|
||||
{
|
||||
return x_182;
|
||||
return x_183;
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_184; lean_object* x_185; lean_object* x_186;
|
||||
x_184 = lean_ctor_get(x_182, 0);
|
||||
x_185 = lean_ctor_get(x_182, 1);
|
||||
lean_object* x_185; lean_object* x_186; lean_object* x_187;
|
||||
x_185 = lean_ctor_get(x_183, 0);
|
||||
x_186 = lean_ctor_get(x_183, 1);
|
||||
lean_inc(x_186);
|
||||
lean_inc(x_185);
|
||||
lean_inc(x_184);
|
||||
lean_dec(x_182);
|
||||
x_186 = lean_alloc_ctor(0, 2, 0);
|
||||
lean_ctor_set(x_186, 0, x_184);
|
||||
lean_ctor_set(x_186, 1, x_185);
|
||||
return x_186;
|
||||
lean_dec(x_183);
|
||||
x_187 = lean_alloc_ctor(0, 2, 0);
|
||||
lean_ctor_set(x_187, 0, x_185);
|
||||
lean_ctor_set(x_187, 1, x_186);
|
||||
return x_187;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
uint8_t x_187;
|
||||
x_187 = !lean_is_exclusive(x_182);
|
||||
if (x_187 == 0)
|
||||
uint8_t x_188;
|
||||
x_188 = !lean_is_exclusive(x_183);
|
||||
if (x_188 == 0)
|
||||
{
|
||||
return x_182;
|
||||
return x_183;
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_188; lean_object* x_189; lean_object* x_190;
|
||||
x_188 = lean_ctor_get(x_182, 0);
|
||||
x_189 = lean_ctor_get(x_182, 1);
|
||||
lean_object* x_189; lean_object* x_190; lean_object* x_191;
|
||||
x_189 = lean_ctor_get(x_183, 0);
|
||||
x_190 = lean_ctor_get(x_183, 1);
|
||||
lean_inc(x_190);
|
||||
lean_inc(x_189);
|
||||
lean_inc(x_188);
|
||||
lean_dec(x_182);
|
||||
x_190 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_190, 0, x_188);
|
||||
lean_ctor_set(x_190, 1, x_189);
|
||||
return x_190;
|
||||
lean_dec(x_183);
|
||||
x_191 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_191, 0, x_189);
|
||||
lean_ctor_set(x_191, 1, x_190);
|
||||
return x_191;
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
uint8_t x_191;
|
||||
lean_dec(x_176);
|
||||
uint8_t x_192;
|
||||
lean_dec(x_177);
|
||||
lean_dec(x_9);
|
||||
lean_dec(x_8);
|
||||
lean_dec(x_7);
|
||||
lean_dec(x_6);
|
||||
x_191 = !lean_is_exclusive(x_177);
|
||||
if (x_191 == 0)
|
||||
x_192 = !lean_is_exclusive(x_178);
|
||||
if (x_192 == 0)
|
||||
{
|
||||
return x_177;
|
||||
return x_178;
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_192; lean_object* x_193; lean_object* x_194;
|
||||
x_192 = lean_ctor_get(x_177, 0);
|
||||
x_193 = lean_ctor_get(x_177, 1);
|
||||
lean_object* x_193; lean_object* x_194; lean_object* x_195;
|
||||
x_193 = lean_ctor_get(x_178, 0);
|
||||
x_194 = lean_ctor_get(x_178, 1);
|
||||
lean_inc(x_194);
|
||||
lean_inc(x_193);
|
||||
lean_inc(x_192);
|
||||
lean_dec(x_177);
|
||||
x_194 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_194, 0, x_192);
|
||||
lean_ctor_set(x_194, 1, x_193);
|
||||
return x_194;
|
||||
lean_dec(x_178);
|
||||
x_195 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_195, 0, x_193);
|
||||
lean_ctor_set(x_195, 1, x_194);
|
||||
return x_195;
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
uint8_t x_195;
|
||||
uint8_t x_196;
|
||||
lean_dec(x_9);
|
||||
lean_dec(x_8);
|
||||
lean_dec(x_7);
|
||||
|
|
@ -10786,23 +10789,23 @@ lean_dec(x_5);
|
|||
lean_dec(x_4);
|
||||
lean_dec(x_3);
|
||||
lean_dec(x_2);
|
||||
x_195 = !lean_is_exclusive(x_166);
|
||||
if (x_195 == 0)
|
||||
x_196 = !lean_is_exclusive(x_167);
|
||||
if (x_196 == 0)
|
||||
{
|
||||
return x_166;
|
||||
return x_167;
|
||||
}
|
||||
else
|
||||
{
|
||||
lean_object* x_196; lean_object* x_197; lean_object* x_198;
|
||||
x_196 = lean_ctor_get(x_166, 0);
|
||||
x_197 = lean_ctor_get(x_166, 1);
|
||||
lean_object* x_197; lean_object* x_198; lean_object* x_199;
|
||||
x_197 = lean_ctor_get(x_167, 0);
|
||||
x_198 = lean_ctor_get(x_167, 1);
|
||||
lean_inc(x_198);
|
||||
lean_inc(x_197);
|
||||
lean_inc(x_196);
|
||||
lean_dec(x_166);
|
||||
x_198 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_198, 0, x_196);
|
||||
lean_ctor_set(x_198, 1, x_197);
|
||||
return x_198;
|
||||
lean_dec(x_167);
|
||||
x_199 = lean_alloc_ctor(1, 2, 0);
|
||||
lean_ctor_set(x_199, 0, x_197);
|
||||
lean_ctor_set(x_199, 1, x_198);
|
||||
return x_199;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
|||
4
stage0/stdlib/Lean/Elab/Tactic/Match.c
generated
4
stage0/stdlib/Lean/Elab/Tactic/Match.c
generated
|
|
@ -46,7 +46,7 @@ lean_object* lean_array_fget(lean_object*, lean_object*);
|
|||
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
|
||||
lean_object* lean_st_ref_take(lean_object*, lean_object*);
|
||||
lean_object* l_Lean_Name_append___main(lean_object*, lean_object*);
|
||||
extern lean_object* l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__15;
|
||||
extern lean_object* l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__18;
|
||||
lean_object* l_Lean_Name_appendIndexAfter(lean_object*, lean_object*);
|
||||
lean_object* l___private_Lean_Elab_Tactic_Match_1__mkAuxiliaryMatchTermAux___lambda__1___closed__5;
|
||||
lean_object* l___private_Lean_Elab_Tactic_Match_1__mkAuxiliaryMatchTermAux___lambda__1___closed__3;
|
||||
|
|
@ -256,7 +256,7 @@ lean_object* l___private_Lean_Elab_Tactic_Match_1__mkAuxiliaryMatchTermAux___lam
|
|||
_start:
|
||||
{
|
||||
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11;
|
||||
x_6 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__15;
|
||||
x_6 = l___private_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__18;
|
||||
x_7 = l_Lean_Syntax_updateKind(x_2, x_6);
|
||||
x_8 = lean_unsigned_to_nat(2u);
|
||||
x_9 = l_Lean_Syntax_getArg(x_7, x_8);
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue