diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-06-10 22:06:49 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-06-10 22:06:49 +0000 |
| commit | 52e4aaaf65ce3be633fa6c8606b4999a88a3def6 (patch) | |
| tree | 47e879be4cdeac7df0c0def3192ecce53431f784 /test-suite | |
| parent | 37be4f6fd68eb0213e5add7308cc752898b04df3 (diff) | |
Made use of "_" in repeated use of intros_patterns work (with
application to "destruct t as (_,H)" in the dependent case, and so on).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14183 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/destruct.v | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/success/destruct.v b/test-suite/success/destruct.v index 8013e1d38..dec29cd12 100644 --- a/test-suite/success/destruct.v +++ b/test-suite/success/destruct.v @@ -74,3 +74,13 @@ destruct H. destruct H0. reflexivity. Qed. + +(* These did not work before 8.4 *) + +Goal (exists x, x=0) -> True. +destruct 1 as (_,_); exact I. +Abort. + +Goal (exists x, x=0 /\ True) -> True. +destruct 1 as (_,(_,H)); exact H. +Abort. |