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

feat(library/tactic/rewrite_tactic): remove trivial goal in rewrite_tactic

Browse source
This commit is contained in:
Leonardo de Moura 2015-02-04 15:29:52 -08:00
parent f0fac1ae0e
commit ee079d12f4
1 changed files with 26 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -710,6 +710,27 @@ class rewrite_fn {
} }
} }
bool check_trivial_goal() {
expr type = m_g.get_type();
if (is_eq(type)) {
constraint_seq cs;
expr lhs = app_arg(app_fn(type));
expr rhs = app_arg(type);
if (m_tc->is_def_eq(lhs, rhs, justification(), cs) && !cs) {
expr H = mk_refl(*m_tc, lhs);
m_subst.assign(m_g.get_name(), m_g.abstract(H));
return true;
} else {
return false;
}
} else if (type == mk_true()) {
m_subst.assign(m_g.get_name(), mk_constant(get_eq_intro_name()));
return true;
} else {
return false;
}
}
public: public:
rewrite_fn(environment const & env, io_state const & ios, elaborate_fn const & elab, proof_state const & ps): rewrite_fn(environment const & env, io_state const & ios, elaborate_fn const & elab, proof_state const & ps):
m_env(env), m_ios(ios), m_elab(elab), m_ps(ps), m_ngen(ps.get_ngen()), m_env(env), m_ios(ios), m_elab(elab), m_ps(ps), m_ngen(ps.get_ngen()),
@ -733,7 +754,11 @@ public:
} }
} }
goals new_gs = cons(m_g, tail(m_ps.get_goals())); goals new_gs;
if (check_trivial_goal())
new_gs = tail(m_ps.get_goals());
else
new_gs = cons(m_g, tail(m_ps.get_goals()));
proof_state new_ps(m_ps, new_gs, m_subst, m_ngen); proof_state new_ps(m_ps, new_gs, m_subst, m_ngen);
return proof_state_seq(new_ps); return proof_state_seq(new_ps);
} }