diff options
Diffstat (limited to 'test-suite/bugs/opened/3267.v')
-rw-r--r-- | test-suite/bugs/opened/3267.v | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/test-suite/bugs/opened/3267.v b/test-suite/bugs/opened/3267.v new file mode 100644 index 000000000..43eb1377d --- /dev/null +++ b/test-suite/bugs/opened/3267.v @@ -0,0 +1,37 @@ +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. |