diff options
| author | Hugo Herbelin | 2017-05-14 00:10:57 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2017-05-16 10:53:27 +0200 |
| commit | e2de94b90e8802fa5c5dc33c7daf6b8ce5646bfa (patch) | |
| tree | 07099aa9669378fab512d9b2261a4c66307d308b /test-suite | |
| parent | 3908fb1c6d68678daa65b4a2fa944424575acf87 (diff) | |
Fixing a bug with nested "as" clauses in "match".
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/Cases.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test-suite/success/Cases.v b/test-suite/success/Cases.v index 49c465b6c6..52fe98ac07 100644 --- a/test-suite/success/Cases.v +++ b/test-suite/success/Cases.v @@ -1868,3 +1868,8 @@ Definition transport {A} (P : A->Type) {x y : A} (p : x=y) (u : P x) : P y := Check match eq_refl 0 in _=O return O=O with eq_refl => eq_refl end. Check match niln in listn O return O=O with niln => eq_refl end. + +(* A test about nested "as" clauses *) +(* (was failing up to May 2017) *) + +Check fun x => match x with (y,z) as t as w => (y+z,t) = (0,w) end. |