diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-05 10:15:31 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-05 10:15:31 +0000 |
| commit | fb982f3d9fd7610c02ca69cad4d9c59ac26a931b (patch) | |
| tree | 3d754ac52049522b9fa8ae0475a53f8b0d095c52 /test-suite/bugs/closed/2981.v | |
| 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/closed/2981.v')
| -rw-r--r-- | test-suite/bugs/closed/2981.v | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/2981.v b/test-suite/bugs/closed/2981.v new file mode 100644 index 000000000..1facd9b7e --- /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. + |