fix(library/simplifier): missing condition in implication simplification

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-01-30 22:14:01 -08:00
parent 4d533c6a25
commit b444756d20

View file

@ -1418,7 +1418,7 @@ class simplifier_cell::imp {
result simplify_pi(expr const & e) { result simplify_pi(expr const & e) {
lean_assert(is_pi(e)); lean_assert(is_pi(e));
if (is_arrow(e)) { if (is_arrow(e)) {
if (is_proposition(abst_domain(e))) if (is_proposition(abst_domain(e)) && is_proposition(abst_body(e)))
return simplify_implication(e); return simplify_implication(e);
else else
return simplify_arrow(e); return simplify_arrow(e);