diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-10-10 17:12:30 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-10-13 18:13:20 +0200 |
commit | e3a0a4d58b74d2113485ceabe4235567fda962c8 (patch) | |
tree | 9c9ebffea1f29b0339460a2f7a2bc545536bd4d0 /kernel/declareops.ml | |
parent | 6c2d8c3026c1baeb0ff731907747a9c216d60400 (diff) |
selective join/export of the safe_environment
This generalizes the BuildVi flag and lets one choose which
opaque proofs are done and which not.
Diffstat (limited to 'kernel/declareops.ml')
-rw-r--r-- | kernel/declareops.ml | 5 |
1 files changed, 0 insertions, 5 deletions
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,_) -> |