diff options
| author |  Jason Gross <jgross@mit.edu> | 2014-06-10 16:33:17 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2014-06-10 20:14:06 -0400 |
| commit | a34a98f1a8c3e1ab4b1b25a6050604b2d5bd7303 (patch) | |
| tree | 0a0f91a115f42eefda2d699766b06b7cdb63613b /test-suite/bugs/closed/3297.v | |
| parent | d4bd96e60efe1a4509eb21585134ebb6c80d0bd4 (diff) | |
Add many more cases to the test-suite
I'd add more, but I'm tired and it's late and I should sleep. Maybe
I'll pick up at 3279 (working down) another day.
Bug 3344 is broken; [Fail Defined.] says that [Defined] has not failed,
even though it raises an anomaly. So there's no way I can think of to
test it. I've left it in the [opened] directory anyway.
Diffstat (limited to 'test-suite/bugs/closed/3297.v')
| -rw-r--r-- | test-suite/bugs/closed/3297.v | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/3297.v b/test-suite/bugs/closed/3297.v new file mode 100644 index 000000000..1cacb97ff --- /dev/null +++ b/test-suite/bugs/closed/3297.v @@ -0,0 +1,12 @@ +Goal forall (n : nat) (H := eq_refl : n = n) (H' : n = 0), H = eq_refl. + intros. + subst. (* Toplevel input, characters 15-20: +Error: Abstracting over the term "n" leads to a term +"λ n : nat, H = eq_refl" which is ill-typed. *) + Undo. + revert H. + subst. (* success *) + Undo. + intro. + clearbody H. + subst. (* success *) |