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 | |
| 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
| -rw-r--r-- | tactics/tactics.ml | 2 | ||||
| -rw-r--r-- | test-suite/success/destruct.v | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 692622f324..4022af6d94 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1688,7 +1688,7 @@ let default_matching_flags sigma = { modulo_conv_on_closed_terms = Some empty_transparent_state; use_metas_eagerly_in_conv_on_closed_terms = false; modulo_delta = empty_transparent_state; - modulo_delta_types = empty_transparent_state; + modulo_delta_types = full_transparent_state; resolve_evars = false; use_pattern_unification = false; use_meta_bound_pattern_unification = false; 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. |