diff options
author | 2001-11-29 09:21:25 +0000 | |
---|---|---|
committer | 2001-11-29 09:21:25 +0000 | |
commit | 86952ac8ad1dba395cb4724ac0b4f54774448944 (patch) | |
tree | 11936786a1a4c5e394c6adba3c5fa737470628d0 /toplevel/vernacentries.ml | |
parent | b92811d26a108c12803edd63eb390e9dd05b5652 (diff) |
nouvel algo de conversion plus uniforme
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2246 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/vernacentries.ml')
-rw-r--r-- | toplevel/vernacentries.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 52bd586ca..de728ee15 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -591,8 +591,8 @@ let _ = (function | VARG_QUALID qid -> (match Nametab.global dummy_loc qid with - | ConstRef sp -> Opaque.set_transparent_const sp - | VarRef id -> Opaque.set_transparent_var id + | ConstRef sp -> Tacred.set_transparent_const sp + | VarRef id -> Tacred.set_transparent_var id | _ -> error "cannot set an inductive type or a constructor as transparent") | _ -> bad_vernac_args "TRANSPARENT") @@ -605,8 +605,8 @@ let _ = (function | VARG_QUALID qid -> (match Nametab.global dummy_loc qid with - | ConstRef sp -> Opaque.set_opaque_const sp - | VarRef id -> Opaque.set_opaque_var id + | ConstRef sp -> Tacred.set_opaque_const sp + | VarRef id -> Tacred.set_opaque_var id | _ -> error "cannot set an inductive type or a constructor as opaque") | _ -> bad_vernac_args "OPAQUE") |