aboutsummaryrefslogtreecommitdiff
path: root/tactics/eauto.ml
diff options
context:
space:
mode:
authorHugo Herbelin2019-05-11 00:21:22 +0200
committerHugo Herbelin2019-05-11 00:21:22 +0200
commit1fb2819d57d16196fd8dc7cb49e72b9e1d22758e (patch)
treecef9145a06a6d9e79626ca05471ac9dd4aa89dc6 /tactics/eauto.ml
parent2f2658c5a318fb8a8c00caf4d1aca9fbc2d060d0 (diff)
parent1b4c0a1e52286d4957f6c79c8ff14868a6f3e838 (diff)
Merge PR #10052: Cleanup the hypothesis conversion function
Reviewed-by: herbelin
Diffstat (limited to 'tactics/eauto.ml')
-rw-r--r--tactics/eauto.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/eauto.ml b/tactics/eauto.ml
index 70854e6e3c..0857c05968 100644
--- a/tactics/eauto.ml
+++ b/tactics/eauto.ml
@@ -514,7 +514,7 @@ let autounfold_one db cl =
in
if did then
match cl with
- | Some hyp -> change_in_hyp None (make_change_arg c') hyp
+ | Some hyp -> change_in_hyp ~check:true None (make_change_arg c') hyp
| None -> convert_concl ~check:false c' DEFAULTcast
else Tacticals.New.tclFAIL 0 (str "Nothing to unfold")
end