diff options
| author | gregoire | 2004-11-12 16:40:39 +0000 |
|---|---|---|
| committer | gregoire | 2004-11-12 16:40:39 +0000 |
| commit | f987a343850df4602b3d8020395834d22eb1aea3 (patch) | |
| tree | c9c23771714f39690e9dc42ce0c58653291d3202 /pretyping | |
| parent | 41095b1f02abac5051ab61a91080550bebbb3a7e (diff) | |
Changement dans les boxed values .
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6295 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/tacred.ml | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml index 9ec71866b9..e91ea75b7e 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -26,7 +26,10 @@ open Rawterm exception Elimconst exception Redelimination -let set_opaque_const = Conv_oracle.set_opaque_const +let set_opaque_const sp = + Conv_oracle.set_opaque_const sp; + Csymtable.set_opaque_const sp + let set_transparent_const sp = let cb = Global.lookup_constant sp in if cb.const_body <> None & cb.const_opaque then @@ -34,7 +37,8 @@ let set_transparent_const sp = (str "Cannot make" ++ spc () ++ Nametab.pr_global_env Idset.empty (ConstRef sp) ++ spc () ++ str "transparent because it was declared opaque."); - Conv_oracle.set_transparent_const sp + Conv_oracle.set_transparent_const sp; + Csymtable.set_transparent_const sp let set_opaque_var = Conv_oracle.set_opaque_var let set_transparent_var = Conv_oracle.set_transparent_var |