diff options
| author | herbelin | 2003-09-23 11:23:14 +0000 |
|---|---|---|
| committer | herbelin | 2003-09-23 11:23:14 +0000 |
| commit | 58b3bc4b3151bc5f8b81fbc7a1943f99b081f80e (patch) | |
| tree | 32269fe01cb1488a1d6ab4e0a9d0ec64efb3deee /toplevel | |
| parent | 4d7184fe2f570f123eef72c88d6d3f082617bd2a (diff) | |
Fusion des fichiers de syntaxe de Init avec les fichiers de définition; TypeSyntax inutile
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4461 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/vernacentries.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index de9db0a818..0786cc0f86 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -553,7 +553,9 @@ let is_obsolete_module (_,qid) = (match string_of_id id with | ("Refine" | "Inv" | "Equality" | "EAuto" | "AutoRewrite" | "EqDecide" | "Xml" | "Extraction" | "Tauto" | "Setoid_replace" - | "Elimdep" ) + | "Elimdep" + | "DatatypesSyntax" | "LogicSyntax" | "Logic_TypeSyntax" + | "SpecifSyntax" | "PeanoSyntax" | "TypeSyntax") -> true | _ -> false) | _ -> false @@ -717,7 +719,7 @@ let vernac_declare_implicits locqid = function let vernac_reserve idl c = let t = Constrintern.interp_type Evd.empty (Global.env()) c in - let t = Detyping.detype (Global.env()) [] [] t in + let t = Detyping.detype (false,Global.env()) [] [] t in List.iter (fun id -> Reserve.declare_reserved_type id t) idl let make_silent_if_not_pcoq b = |