diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-08 13:16:46 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-08 13:16:46 +0000 |
commit | f4eabf9c0655a3d2bb5f8bbec95a334503d24ce9 (patch) | |
tree | 29342d229e80530503e3c0ec30d0f8547fb100a7 /test-suite | |
parent | f98de3a79cdf03198705ab5db6c7a1dd8657cb50 (diff) |
Enrich test-suite with a test for #3022.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16390 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
-rw-r--r-- | test-suite/bugs/closed/shouldsucceed/3022.v | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/shouldsucceed/3022.v b/test-suite/bugs/closed/shouldsucceed/3022.v new file mode 100644 index 000000000..dcfe73397 --- /dev/null +++ b/test-suite/bugs/closed/shouldsucceed/3022.v @@ -0,0 +1,8 @@ +Goal forall (O obj : Type) (f : O -> obj) (x : O) (e : x = x) + (T : obj -> obj -> Type) (m : forall x0 : obj, T x0 x0), + match eq_sym e in (_ = y) return (T (f y) (f x)) with + | eq_refl => m (f x) + end = m (f x). +intros. +try case e. +Abort. |