diff options
Diffstat (limited to 'test-suite')
| -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 52c4f2daad..ba8da1a4f3 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. |