diff options
Diffstat (limited to 'test-suite/success')
-rw-r--r-- | test-suite/success/Case19.v | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test-suite/success/Case19.v b/test-suite/success/Case19.v index 9a6ed71a..c29e5297 100644 --- a/test-suite/success/Case19.v +++ b/test-suite/success/Case19.v @@ -6,3 +6,14 @@ Variable T : Type. Variable x : nat*nat. Check let (_, _) := x in sigT (fun _ : T => nat). + +(* This used to raise an anomaly in V8.4, up to pl2 *) + +Goal {x: nat & x=x}. +Fail exists (fun x => + match + projT2 (projT2 x) as e in (_ = y) + return _ = existT _ (projT1 x) (existT _ y e) + with + | eq_refl => eq_refl + end). |