From 2a74ec0fdda9829127eb159673e82c2c5242ae88 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Thu, 27 Jun 2013 14:31:03 +0000
Subject: Bugfix: Fixing #3050

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16608 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/bugs/closed/shouldsucceed/3050.v | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 test-suite/bugs/closed/shouldsucceed/3050.v

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/shouldsucceed/3050.v b/test-suite/bugs/closed/shouldsucceed/3050.v
new file mode 100644
index 0000000000..4b18722431
--- /dev/null
+++ b/test-suite/bugs/closed/shouldsucceed/3050.v
@@ -0,0 +1,7 @@
+Goal forall A B, A * B -> A.
+Proof.
+intros A B H.
+match goal with
+  | [ H : _ * _ |- _ ] => exact (fst H)
+end.
+Qed.
-- 
cgit v1.2.3