From 2730a0214dd2f73a286cf92215ccc0d54278f544 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 22 Oct 2011 21:33:13 +0000
Subject: 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
---
 tactics/tactics.ml            | 2 +-
 test-suite/success/destruct.v | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

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.
-- 
cgit v1.2.3