lean2/tests/lean/run/blast_pattern_inference_bug.lean

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
fix(library/blast/forward/pattern): bug in the pattern inference code 2016-01-27 21:27:58 +00:00			`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`