diff options
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 52bd586ca3..de728ee15e 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") |