From 0d474b1d6e8c630d60f82fa5cd98885199eb8a7a Mon Sep 17 00:00:00 2001
From: Arnaud Spiwack
Date: Wed, 22 Oct 2014 11:33:28 +0200
Subject: Remove an unnecessary use of [Proofview.Unsafe.tclEVARS] in
 [convert_concl].

---
 tactics/tactics.ml | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/tactics/tactics.ml b/tactics/tactics.ml
index 697b09309e..8c0b140a85 100644
--- a/tactics/tactics.ml
+++ b/tactics/tactics.ml
@@ -124,18 +124,17 @@ let convert_concl ?(check=true) ty k =
     let env = Proofview.Goal.env gl in
     let sigma = Proofview.Goal.sigma gl in
     let conclty = Proofview.Goal.raw_concl gl in
-    let sigma =
-      if check then begin
-        ignore (Typing.type_of env sigma ty);
-        let sigma,b = Reductionops.infer_conv env sigma ty conclty in
-        if not b then error "Not convertible.";
-        sigma
-      end else sigma in
-    Tacticals.New.tclTHEN
-      (Proofview.Unsafe.tclEVARS sigma)
-      (Proofview.Refine.refine ~unsafe:true (fun sigma ->
-        let (sigma,x) = Evarutil.new_evar env sigma ~principal:true ty in
-        (sigma, if k == DEFAULTcast then x else mkCast(x,k,conclty))))
+    Proofview.Refine.refine ~unsafe:true begin fun sigma ->
+      let sigma =
+        if check then begin
+          ignore (Typing.type_of env sigma ty);
+          let sigma,b = Reductionops.infer_conv env sigma ty conclty in
+          if not b then error "Not convertible.";
+          sigma
+        end else sigma in
+      let (sigma,x) = Evarutil.new_evar env sigma ~principal:true ty in
+      (sigma, if k == DEFAULTcast then x else mkCast(x,k,conclty))
+    end
   end
 
 let convert_hyp ?(check=true) d =
-- 
cgit v1.2.3