diff options
| -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. |