diff options
| author | herbelin | 2011-10-22 21:33:13 +0000 |
|---|---|---|
| committer | herbelin | 2011-10-22 21:33:13 +0000 |
| commit | 2730a0214dd2f73a286cf92215ccc0d54278f544 (patch) | |
| tree | 25552baf1febddcd984141666e5d9a2de51a2ae2 /test-suite | |
| parent | 108bbfc6e970a59fa30961decaabefac97289a5c (diff) | |
Use full conversion for checking type of holes in destruct over a
pattern; this fixes stupid causes of failure of destruct shown
by compiling contrib Containers.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14579 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/destruct.v | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test-suite/success/destruct.v b/test-suite/success/destruct.v index 45bc53f6f4..b4217e6df5 100644 --- a/test-suite/success/destruct.v +++ b/test-suite/success/destruct.v @@ -89,3 +89,7 @@ Goal (exists x, x=0 /\ True) -> True. destruct 1 as (_,(_,x)); exact x. Abort. +Goal let T:=nat in forall (x:nat) (f:T -> nat), f x = 0. +intros. +destruct (f _). (* This was failing in at least r14571 *) +Abort. |