diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-12-07 12:50:26 +0100 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-12-07 15:20:14 +0100 |
| commit | 48509b6112fc857abdfc442c89821363043ac705 (patch) | |
| tree | 7786c30d41f44c7b657c9a4b48e6001392ac52fa /test-suite/success/evars.v | |
| parent | fa906a5137058cf12444c70b76908b959012ce6d (diff) | |
Improving evar restriction (this is a risky change, as I remember a
similar optimization broke at some time some ssreflect code; we now
treat the easy case of a let-in to a rel - a pattern common in
pattern-matching compilation -; later on, we shall want to investigate
whether any let-in found to refer to out of scope rels or vars can be
filtered out).
Diffstat (limited to 'test-suite/success/evars.v')
| -rw-r--r-- | test-suite/success/evars.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test-suite/success/evars.v b/test-suite/success/evars.v index ef2164a94..21c72475e 100644 --- a/test-suite/success/evars.v +++ b/test-suite/success/evars.v @@ -399,3 +399,8 @@ Goal forall x (x':=x) (f:forall y, y=y:>nat -> Prop), f _ (eq_refl x'). intros. unfold x' at 2. (* A way to check that there are indeed 2 occurrences of x' *) Abort. + +(* A simple example we would like not to fail (it used to fail because of + not strict enough evar restriction) *) + +Check match Some _ with None => _ | _ => _ end. |