diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-05-09 18:04:40 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-05-09 18:04:54 +0200 |
| commit | 39a67d502d341562b68c0f52163b2863bdd5ebd4 (patch) | |
| tree | d923b4b1f91066b9219c2ba12fb7ccfa83041fc5 | |
| parent | 5cbc018fe934750bdf1043da68f99911be4ee6f6 (diff) | |
Adjusting test-suite after 5cbc018fe9347 (subst as in 8.4 by default).
| -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. |