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

feat(frontends/lean): rename command 'reset_proof_qed' to 'set_proof_qed'

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-07-07 15:48:16 -07:00
parent c16951aba6
commit 112353861c
3 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/frontends/lean/proof_qed_ext.cpp
View file

@ -74,7 +74,7 @@ environment add_proof_qed_pre_tactic(environment const & env, expr const & pre_t
return proof_qed_ext::add_entry(env, get_dummy_ios(), pq_entry(true, pre_tac));
}
environment reset_proof_qed_pre_tactic(environment const & env, expr const & pre_tac) {
environment set_proof_qed_pre_tactic(environment const & env, expr const & pre_tac) {
check_valid_tactic(env, pre_tac);
return proof_qed_ext::add_entry(env, get_dummy_ios(), pq_entry(false, pre_tac));
}
@ -94,14 +94,14 @@ environment add_proof_qed_cmd(parser & p) {
return add_proof_qed_pre_tactic(p.env(), parse_tactic_name(p));
}
environment reset_proof_qed_cmd(parser & p) {
return reset_proof_qed_pre_tactic(p.env(), parse_tactic_name(p));
environment set_proof_qed_cmd(parser & p) {
return set_proof_qed_pre_tactic(p.env(), parse_tactic_name(p));
}
void register_proof_qed_cmds(cmd_table & r) {
add_cmd(r, cmd_info("add_proof_qed", "add a new tactic to be automatically applied before every component in a 'proof-qed' block",
add_proof_qed_cmd));
add_cmd(r, cmd_info("reset_proof_qed", "reset the tactic that is automatically applied before every component in a 'proof-qed' block",
reset_proof_qed_cmd));
add_cmd(r, cmd_info("set_proof_qed", "reset the tactic that is automatically applied before every component in a 'proof-qed' block",
set_proof_qed_cmd));
}
}

2
src/frontends/lean/token_table.cpp
View file

@ -78,7 +78,7 @@ token_table init_token_table() {
"abbreviation", "inductive", "record", "structure", "module", "universe",
"precedence", "infixl", "infixr", "infix", "postfix", "prefix", "notation",
"exit", "set_option", "using", "calc_subst", "calc_refl", "calc_trans",
"add_proof_qed", "reset_proof_qed", "#setline", "class", "instance", nullptr};
"add_proof_qed", "set_proof_qed", "#setline", "class", "instance", nullptr};
std::pair<char const *, char const *> aliases[] =
{{g_lambda_unicode, "fun"}, {"forall", "Pi"}, {g_forall_unicode, "Pi"}, {g_pi_unicode, "Pi"},

2
tests/lean/run/tactic14.lean
View file

@ -4,7 +4,7 @@ using tactic
definition basic_tac : tactic
:= repeat [apply @and_intro | apply @not_intro | assumption]
reset_proof_qed basic_tac -- basic_tac is automatically applied to each element of a proof-qed block
set_proof_qed basic_tac -- basic_tac is automatically applied to each element of a proof-qed block
theorem tst (a b : Bool) (H : ¬ a ∨ ¬ b) (Hb : b) : ¬ a ∧ b :=
proof