diff options
| author | Hugo Herbelin | 2016-09-24 19:20:23 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-09-24 19:20:55 +0200 |
| commit | e6a054695a2f5d8be3f695975464f99571a69b75 (patch) | |
| tree | 2e0526e83689e9e516bd709601560b08b97c006b | |
| parent | 464c680b631e1ba892f2171a36002d6ca184bc4f (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.ml | 2 |
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 |
