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/3563.v | |
| parent | 2378b5ccee0e62d0b93935aa69c0bfedd2ac720e (diff) | |
Fix test-suite files, and move some opened to closed.
Diffstat (limited to 'test-suite/bugs/closed/3563.v')
| -rw-r--r-- | test-suite/bugs/closed/3563.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/bugs/closed/3563.v b/test-suite/bugs/closed/3563.v index 38a0a7b92..679721667 100644 --- a/test-suite/bugs/closed/3563.v +++ b/test-suite/bugs/closed/3563.v @@ -16,8 +16,8 @@ Goal forall (H H0 H1 : Type) (H2 : H1) (H3 : H1 -> H * H0) transport (fun y : H1 -> H * H0 => H5 (fst (y H2))) H4 H6 = H7. intros. match goal with - | [ |- appcontext ctx [transport (fun y => (?g (@fst ?C ?h (y H2))))] ] - => let bar := context ctx [g] in set(foo:=h); idtac + | [ |- appcontext ctx [transport (fun y => (?g (@fst ?C ?h (y H2)))) H4 H6] ] + => set(foo:=h); idtac end. match goal with | [ |- appcontext ctx [transport (fun y => (?g (fst (y H2))))] ] |