From e3a0a4d58b74d2113485ceabe4235567fda962c8 Mon Sep 17 00:00:00 2001
From: Enrico Tassi <Enrico.Tassi@inria.fr>
Date: Fri, 10 Oct 2014 17:12:30 +0200
Subject: selective join/export of the safe_environment

This generalizes the BuildVi flag and lets one choose which
opaque proofs are done and which not.
---
 kernel/declareops.ml | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'kernel/declareops.ml')

diff --git a/kernel/declareops.ml b/kernel/declareops.ml
index e13fb4f08..cf0f715be 100644
--- a/kernel/declareops.ml
+++ b/kernel/declareops.ml
@@ -292,11 +292,6 @@ let hcons_mind mib =
 
 (** {6 Stm machinery } *)
 
-let join_constant_body otab cb =
-  match cb.const_body with
-  | OpaqueDef o -> Opaqueproof.join_opaque otab o
-  | _ -> ()
-
 let string_of_side_effect = function
   | SEsubproof (c,_,_) -> Names.string_of_con c
   | SEscheme (cl,_) ->
-- 
cgit v1.2.3