From cadfe23210c8edaab1f22d0edb7acc33fb9ff782 Mon Sep 17 00:00:00 2001
From: Arnaud Spiwack
Date: Fri, 17 Oct 2014 15:31:58 +0200
Subject: Proofview: split [V82] module into [Unsafe] and [V82].

The Unsafe module is for unsafe tactics which cannot be done without anytime soon. Whereas V82 indicates a function which we want to get rid of and that shouldn't be used in a new function.
---
 plugins/cc/cctac.ml             | 2 +-
 plugins/setoid_ring/newring.ml4 | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'plugins')

diff --git a/plugins/cc/cctac.ml b/plugins/cc/cctac.ml
index 364a71d281..858c80f296 100644
--- a/plugins/cc/cctac.ml
+++ b/plugins/cc/cctac.ml
@@ -390,7 +390,7 @@ let discriminate_tac (cstr,u as cstru) p =
         app_global _eq_rect
           [|outtype;trivial;pred;identity;concl;injt|] k) in
     let neweq=new_app_global _eq [|intype;t1;t2|] in
-    Tacticals.New.tclTHEN (Proofview.V82.tclEVARS evm)
+    Tacticals.New.tclTHEN (Proofview.Unsafe.tclEVARS evm)
       (Tacticals.New.tclTHENS (neweq (assert_before (Name hid)))
         [proof_tac p; Proofview.V82.tactic (endt refine_exact_check)])
   end
diff --git a/plugins/setoid_ring/newring.ml4 b/plugins/setoid_ring/newring.ml4
index b28f0652db..2006a2a611 100644
--- a/plugins/setoid_ring/newring.ml4
+++ b/plugins/setoid_ring/newring.ml4
@@ -834,7 +834,7 @@ let ring_lookup (f:glob_tactic_expr) lH rl t =
       let rl = carg (make_term_list env evdref e.ring_carrier rl) in
       let lH = carg (make_hyp_list env evdref lH) in
       let ring = ltac_ring_structure e in
-      Proofview.tclTHEN (Proofview.V82.tclEVARS !evdref) (ltac_apply f (ring@[lH;rl]))
+      Proofview.tclTHEN (Proofview.Unsafe.tclEVARS !evdref) (ltac_apply f (ring@[lH;rl]))
     with e when Proofview.V82.catchable_exception e -> Proofview.tclZERO e
   end
 
@@ -1150,7 +1150,7 @@ let field_lookup (f:glob_tactic_expr) lH rl t =
       let rl = carg (make_term_list env evdref e.field_carrier rl) in
       let lH = carg (make_hyp_list env evdref lH) in
       let field = ltac_field_structure e in
-      Proofview.tclTHEN (Proofview.V82.tclEVARS !evdref) (ltac_apply f (field@[lH;rl]))
+      Proofview.tclTHEN (Proofview.Unsafe.tclEVARS !evdref) (ltac_apply f (field@[lH;rl]))
     with e when Proofview.V82.catchable_exception e -> Proofview.tclZERO e
   end
 
-- 
cgit v1.2.3