diff options
| author | herbelin | 2011-06-10 22:07:04 +0000 |
|---|---|---|
| committer | herbelin | 2011-06-10 22:07:04 +0000 |
| commit | 33682f0e2ee0d99701da1703cae218b6f5f85a7f (patch) | |
| tree | 3cc2e61f2dd4eff38c4f431617c3bf603e8c33e3 /test-suite | |
| parent | c468f0600e6b0cefc3089af1c304f636b3f5e42f (diff) | |
Fixing another bug with "_" intro pattern.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14185 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/destruct.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test-suite/success/destruct.v b/test-suite/success/destruct.v index dec29cd128..45bc53f6f4 100644 --- a/test-suite/success/destruct.v +++ b/test-suite/success/destruct.v @@ -84,3 +84,8 @@ Abort. Goal (exists x, x=0 /\ True) -> True. destruct 1 as (_,(_,H)); exact H. Abort. + +Goal (exists x, x=0 /\ True) -> True. +destruct 1 as (_,(_,x)); exact x. +Abort. + |