diff options
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/bugs/opened/4214.v | 2 | ||||
| -rw-r--r-- | test-suite/success/subst.v | 25 |
2 files changed, 1 insertions, 26 deletions
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. |