diff options
author | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-09-11 20:47:06 +0200 |
---|---|---|
committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-09-11 20:47:06 +0200 |
commit | 580b25e05c7cc9e7a31430b3d9edb14ae12b7598 (patch) | |
tree | 0d2a0d9590d2e5af4b8a06611c26c6da19e8e30d /test-suite/bugs/closed/2310.v | |
parent | 2378b5ccee0e62d0b93935aa69c0bfedd2ac720e (diff) |
Fix test-suite files, and move some opened to closed.
Diffstat (limited to 'test-suite/bugs/closed/2310.v')
-rw-r--r-- | test-suite/bugs/closed/2310.v | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/2310.v b/test-suite/bugs/closed/2310.v new file mode 100644 index 000000000..0be859edd --- /dev/null +++ b/test-suite/bugs/closed/2310.v @@ -0,0 +1,17 @@ +(* Dependent higher-order hole in "refine" (simplified version) *) + +Set Implicit Arguments. + +Inductive Nest t := Cons : Nest (prod t t) -> Nest t. + +Definition cast A x y Heq P H := @eq_rect A x P H y Heq. + +Definition replace a (y:Nest (prod a a)) : a = a -> Nest a. + +(* This used to raise an anomaly Unknown Meta in 8.2 and 8.3beta. + It raises a regular error in 8.3 and almost succeeds with the new + proof engine: there are two solutions to a unification problem + (P:=\a.Nest (prod a a) and P:=\_.Nest (prod a a)) and refine should either + leave P as subgoal or choose itself one solution *) + +intros. refine (Cons (cast H _ y)).
\ No newline at end of file |