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

fix(library/tactic/rewrite_tactic): fixes #708

Browse source
This commit is contained in:
Leonardo de Moura 2015-06-26 18:41:08 -07:00
parent 2aa64034df
commit e3e9220ab9
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/library/tactic/rewrite_tactic.cpp
View file

@ -1200,7 +1200,11 @@ class rewrite_fn {
rule = mk_app(rule, meta); rule = mk_app(rule, meta);
} }
rule_type = reduce_rule_type(rule_type); rule_type = reduce_rule_type(rule_type);
lean_assert(is_eq(rule_type) || (is_standard(m_env) && is_iff(rule_type))); if (!is_eq(rule_type) && !(is_standard(m_env) && is_iff(rule_type))) {
// Remark: this branch is reachable when the user provide explicit patterns.
throw_rewrite_exception("invalid rewrite tactic, given lemma is not an equality or iff");
}
if (is_standard(m_env) && is_iff(rule_type)) { if (is_standard(m_env) && is_iff(rule_type)) {
rule = apply_propext(rule, rule_type); rule = apply_propext(rule, rule_type);
rule_type = mk_eq(*m_relaxed_tc, app_arg(app_fn(rule_type)), app_arg(rule_type)); rule_type = mk_eq(*m_relaxed_tc, app_arg(app_fn(rule_type)), app_arg(rule_type));