From b443e5ce3ea09d82574b0a3196041737f0a5dcc7 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Thu, 26 Jun 2014 13:25:18 +0200
Subject: Properly refresh the local hintdb database in case an external tactic
 changed the hypotheses in eauto.

---
 test-suite/bugs/closed/3267.v | 36 ++++++++++++++++++++++++++++++++++++
 test-suite/bugs/opened/3267.v | 37 -------------------------------------
 2 files changed, 36 insertions(+), 37 deletions(-)
 create mode 100644 test-suite/bugs/closed/3267.v
 delete mode 100644 test-suite/bugs/opened/3267.v

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/3267.v b/test-suite/bugs/closed/3267.v
new file mode 100644
index 0000000000..5ce1ddf0c4
--- /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.
diff --git a/test-suite/bugs/opened/3267.v b/test-suite/bugs/opened/3267.v
deleted file mode 100644
index 43eb1377d2..0000000000
--- a/test-suite/bugs/opened/3267.v
+++ /dev/null
@@ -1,37 +0,0 @@
-Module a.
-  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 *)
-    Fail progress eauto.
-    admit.
-  Defined.
-End a.
-
-Module b.
-  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.
-  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.
-  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.
-    eauto.
-  Defined.
-End d.
-- 
cgit v1.2.3