aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHugo Herbelin2016-09-24 19:20:23 +0200
committerHugo Herbelin2016-09-24 19:20:55 +0200
commite6a054695a2f5d8be3f695975464f99571a69b75 (patch)
tree2e0526e83689e9e516bd709601560b08b97c006b
parent464c680b631e1ba892f2171a36002d6ca184bc4f (diff)
Ensuring that the evar name is preserved by "rename" as it is already
the case for clear and the conversion tactics.
-rw-r--r--tactics/tactics.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml
index a66dbd6e88..225ff3db94 100644
--- a/tactics/tactics.ml
+++ b/tactics/tactics.ml
@@ -335,7 +335,7 @@ let rename_hyp repl =
let nctx = Environ.val_of_named_context nhyps in
let instance = List.map (fun (id, _, _) -> mkVar id) hyps in
Proofview.Refine.refine ~unsafe:true begin fun sigma ->
- Evarutil.new_evar_instance nctx sigma nconcl ~store instance
+ Evarutil.new_evar_instance nctx sigma nconcl ~principal:true ~store instance
end
end