From 39a67d502d341562b68c0f52163b2863bdd5ebd4 Mon Sep 17 00:00:00 2001 From: Hugo Herbelin Date: Sat, 9 May 2015 18:04:40 +0200 Subject: Adjusting test-suite after 5cbc018fe9347 (subst as in 8.4 by default). --- test-suite/bugs/opened/4214.v | 2 +- test-suite/success/subst.v | 25 ------------------------- 2 files changed, 1 insertion(+), 26 deletions(-) delete mode 100644 test-suite/success/subst.v diff --git a/test-suite/bugs/opened/4214.v b/test-suite/bugs/opened/4214.v index cd53c898e..3daf45213 100644 --- a/test-suite/bugs/opened/4214.v +++ b/test-suite/bugs/opened/4214.v @@ -2,4 +2,4 @@ Goal forall A (a b c : A), b = a -> b = c -> a = c. intros. subst. -reflexivity. +Fail reflexivity. diff --git a/test-suite/success/subst.v b/test-suite/success/subst.v deleted file mode 100644 index 8336f6a80..000000000 --- a/test-suite/success/subst.v +++ /dev/null @@ -1,25 +0,0 @@ -(* Test various subtleties of the "subst" tactics *) - -(* Should proceed from left to right (see #4222) *) -Goal forall x y, x = y -> x = 3 -> y = 2 -> x = y. -intros. -subst. -change (3 = 2) in H1. -change (3 = 3). -Abort. - -(* Should work with "x = y" and "x = t" equations (see #4214, failed in 8.4) *) -Goal forall x y, x = y -> x = 3 -> x = y. -intros. -subst. -change (3 = 3). -Abort. - -(* Should substitute cycles once, until a recursive equation is obtained *) -(* (failed in 8.4) *) -Goal forall x y, x = S y -> y = S x -> x = y. -intros. -subst. -change (y = S (S y)) in H0. -change (S y = y). -Abort. -- cgit v1.2.3