diff options
| author | herbelin | 2013-02-05 10:15:31 +0000 |
|---|---|---|
| committer | herbelin | 2013-02-05 10:15:31 +0000 |
| commit | fb982f3d9fd7610c02ca69cad4d9c59ac26a931b (patch) | |
| tree | 3d754ac52049522b9fa8ae0475a53f8b0d095c52 /test-suite/bugs | |
| parent | 6c1c22a3058c2f7937779dc08007b153a31699c2 (diff) | |
Fixed bug #2981 (anomaly NotASort in Retyping due to collision between
variable names).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16185 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/bugs')
| -rw-r--r-- | test-suite/bugs/closed/2839.v | 10 | ||||
| -rw-r--r-- | test-suite/bugs/closed/2981.v | 15 |
2 files changed, 25 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/2839.v b/test-suite/bugs/closed/2839.v new file mode 100644 index 0000000000..e396fe06e5 --- /dev/null +++ b/test-suite/bugs/closed/2839.v @@ -0,0 +1,10 @@ +(* Check a case where ltac typing error should result in error, not anomaly *) + +Goal forall (H : forall x : nat, x = x), False. +intro. +Fail + let H := + match goal with + | [ H : appcontext G [@eq _ _] |- _ ] => let H' := context G[@plus 2] in H' + end + in pose H. diff --git a/test-suite/bugs/closed/2981.v b/test-suite/bugs/closed/2981.v new file mode 100644 index 0000000000..1facd9b7e9 --- /dev/null +++ b/test-suite/bugs/closed/2981.v @@ -0,0 +1,15 @@ +Check let TTT := Type in (fun (a b : @sigT TTT (fun A : TTT => A)) + (f : @projT1 TTT (fun A : TTT => A) a -> + @projT1 TTT (fun A : TTT => A) b) => + @eq_refl + (@projT1 TTT (fun A : TTT => A) a -> + @projT1 TTT (fun A : TTT => A) b) + (fun x : @projT1 TTT (fun A : TTT => A) a => f x)) : + forall (a b : @sigT TTT (fun A : TTT => A)) + (f : @projT1 TTT (fun A : TTT => A) a -> + @projT1 TTT (fun A : TTT => A) b), + @eq + (@projT1 TTT (fun A : TTT => A) a -> + @projT1 TTT (fun A : TTT => A) b) + (fun x : @projT1 TTT (fun A : TTT => A) a => f x) f. + |