diff options
author | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-06-26 13:25:18 +0200 |
---|---|---|
committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-06-26 13:25:18 +0200 |
commit | b443e5ce3ea09d82574b0a3196041737f0a5dcc7 (patch) | |
tree | 0569f118991da38c6b9cbc45612415068e33ed0b /test-suite/bugs/closed/3267.v | |
parent | 34570d23cf6ae7f6246b38e5094454b0eeea3e75 (diff) |
Properly refresh the local hintdb database in case an external tactic changed
the hypotheses in eauto.
Diffstat (limited to 'test-suite/bugs/closed/3267.v')
-rw-r--r-- | test-suite/bugs/closed/3267.v | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/3267.v b/test-suite/bugs/closed/3267.v new file mode 100644 index 000000000..5ce1ddf0c --- /dev/null +++ b/test-suite/bugs/closed/3267.v @@ -0,0 +1,36 @@ +Module a. + Local Hint Extern 0 => progress subst. + Goal forall T (x y : T) (P Q : _ -> Prop), x = y -> (P x -> Q x) -> P y -> Q y. + Proof. + intros. + (* this should not fail *) + progress eauto. + Defined. +End a. + +Module b. + Local Hint Extern 0 => progress subst. + Goal forall T (x y : T) (P Q : _ -> Prop), y = x -> (P x -> Q x) -> P y -> Q y. + Proof. + intros. + eauto. + Defined. +End b. + +Module c. + Local Hint Extern 0 => progress subst; eauto. + Goal forall T (x y : T) (P Q : _ -> Prop), x = y -> (P x -> Q x) -> P y -> Q y. + Proof. + intros. + eauto. + Defined. +End c. + +Module d. + Local Hint Extern 0 => progress subst; repeat match goal with H : _ |- _ => revert H end. + Goal forall T (x y : T) (P Q : _ -> Prop), x = y -> (P x -> Q x) -> P y -> Q y. + Proof. + intros. + debug eauto. + Defined. +End d. |