diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-10-24 11:52:19 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-10-24 11:52:19 +0000 |
commit | 504c4a71513fddfe4d6328370a343aea06765648 (patch) | |
tree | 65d8326e6039d2b42949c865130eb772d11a94a6 /test-suite/success/evars.v | |
parent | 223257940364772a9f0bf74d51f2d3dfdc1e7545 (diff) |
Fixing another bug revealing ill-typed use of evar restriction.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14585 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/evars.v')
-rw-r--r-- | test-suite/success/evars.v | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/success/evars.v b/test-suite/success/evars.v index 52c4f2daa..ba8da1a4f 100644 --- a/test-suite/success/evars.v +++ b/test-suite/success/evars.v @@ -258,3 +258,11 @@ Abort. (* Regression test *) Definition fo : option nat -> nat := option_rec _ (fun a => 0) 0. + +(* This example revealed an incorrect evar restriction at some time + around October 2011 *) + +Goal forall (A:Type) (a:A) (P:forall A, A -> Prop), (P A a) /\ (P A a). +intros. +refine ((fun H => conj (proj1 H) (proj2 H)) _). +Abort. |