diff options
| author | Hugo Herbelin | 2015-10-31 15:12:02 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2015-11-07 21:02:25 +0100 |
| commit | e9f1b6abaf062e8fbb4892f7ec8856dcf81c2757 (patch) | |
| tree | 15c9d91938bfd6a29b18bdadbbea91a5a37eb5b1 /test-suite | |
| parent | bbef0e8702bf5e2dcad9bb4c47f92858d4eea9b4 (diff) | |
Tests for syntax "Show id" and [id]:tac (shelved or not).
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/destruct.v | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test-suite/success/destruct.v b/test-suite/success/destruct.v index 83a33f75dc..59cd25cd76 100644 --- a/test-suite/success/destruct.v +++ b/test-suite/success/destruct.v @@ -97,6 +97,7 @@ Abort. Goal exists x, S x = S 0. eexists. +Show x. (* Incidentally test Show on a named goal *) destruct (S _). (* Incompatible occurrences but takes the first one since Oct 2014 *) change (0 = S 0). Abort. @@ -105,6 +106,7 @@ Goal exists x, S 0 = S x. eexists. destruct (S _). (* Incompatible occurrences but takes the first one since Oct 2014 *) change (0 = S ?x). +[x]: exact 0. (* Incidentally test applying a tactic to a goal on the shelve *) Abort. Goal exists n p:nat, (S n,S n) = (S p,S p) /\ p = n. |