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

fix(library/blast/forward/pattern): bug in the pattern inference code

Browse source
This commit is contained in:
Leonardo de Moura 2016-01-27 13:27:58 -08:00
parent a713ca9686
commit fb95b71a5e
2 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/library/blast/forward/pattern.cpp
View file

@ -342,10 +342,12 @@ struct mk_hi_lemma_fn {
});
}
candidate_set collect_pattern_hints(buffer<expr> const & mvars, expr const & B) {
candidate_set collect_pattern_hints(buffer<expr> const & mvars, buffer<expr> const & residue, expr const & B) {
candidate_set s;
for (expr const & mvar : mvars)
collect_pattern_hints(m_ctx.infer(mvar), s);
for (expr const & r : residue)
collect_pattern_hints(m_ctx.infer(r), s);
collect_pattern_hints(B, s);
return s;
}
@ -571,9 +573,9 @@ struct mk_hi_lemma_fn {
lean_assert(m_mvars.size() == inst_implicit_flags.size());
buffer<expr> subst;
buffer<expr> residue_locals;
candidate_set hints = collect_pattern_hints(m_mvars, B);
expr proof = mk_proof(residue_locals, subst);
B = replace_mvars(B, subst);
candidate_set hints = collect_pattern_hints(m_mvars, residue_locals, B);
list<multi_pattern> mps;
if (!hints.empty()) {
mps = mk_multi_patterns_using(hints, false);

8
tests/lean/run/blast_pattern_inference_bug.lean Normal file
View file

@ -0,0 +1,8 @@
constant p : nat → Prop
constant q : ∀ a, p a → Prop
lemma ex [forward] : ∀ (a : nat) (h : p a), (:q a h:) := sorry
set_option blast.strategy "ematch"
lemma test (h : p 0) : q 0 h :=
by blast