michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(frontends/lean): reuse name expression

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-01-02 20:08:21 -08:00
parent 92c7145d7f
commit 6329d1828d
3 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
src/builtin/obj/Nat.olean
View file

Binary file not shown.

BIN
src/builtin/obj/kernel.olean
View file

Binary file not shown.

4
src/frontends/lean/parser_expr.cpp
View file

@ -892,6 +892,8 @@ tactic parser_imp::parse_tactic_expr() {
} }
} }
static name g_show_expr("show_expr");
/** \brief Parse <tt>'show' expr 'by' tactic</tt> */ /** \brief Parse <tt>'show' expr 'by' tactic</tt> */
expr parser_imp::parse_show_expr() { expr parser_imp::parse_show_expr() {
auto p = pos(); auto p = pos();
@ -900,7 +902,7 @@ expr parser_imp::parse_show_expr() {
if (curr_is_comma()) { if (curr_is_comma()) {
next(); next();
expr b = parse_expr(); expr b = parse_expr();
return mk_let("show-expression", t, b, Var(0)); return mk_let(g_show_expr, t, b, Var(0));
} else { } else {
check_next(scanner::token::By, "invalid 'show' expression, 'by' or ',' expected"); check_next(scanner::token::By, "invalid 'show' expression, 'by' or ',' expected");
tactic tac = parse_tactic_expr(); tactic tac = parse_tactic_expr();