diff options
| author | letouzey | 2002-12-03 16:04:21 +0000 |
|---|---|---|
| committer | letouzey | 2002-12-03 16:04:21 +0000 |
| commit | 436ed028434916e58f697593834cbfcc220f8c13 (patch) | |
| tree | 5d2b58e2e91564203ab27229645367ba1666c31c /contrib/xml/xmlcommand.ml | |
| parent | 80b8609c3b3aca8ac5b8af145b12956a41ab78f9 (diff) | |
la table PARAMETER n'existe plus (mergé dans la table CONSTANT)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3369 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/xml/xmlcommand.ml')
| -rw-r--r-- | contrib/xml/xmlcommand.ml | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/contrib/xml/xmlcommand.ml b/contrib/xml/xmlcommand.ml index 07df70a0c0..b05b7baa8f 100644 --- a/contrib/xml/xmlcommand.ml +++ b/contrib/xml/xmlcommand.ml @@ -32,8 +32,7 @@ exception Uninteresting;; (*CSC: CODE USEFUL ONLY FOR THE CODE COMMENTED OUT let tag_of_string_tag = function - "CONSTANT" - | "PARAMETER" -> Constant + "CONSTANT" -> Constant | "INDUCTIVE" -> Inductive | "VARIABLE" -> Variable | _ -> raise Uninteresting @@ -76,7 +75,6 @@ let could_have_namesakes o sp = (* namesake = omonimo in italian *) | DK.Local -> false (* a local definition *) | DK.Global -> true (* a non-local one *) ) - | "PARAMETER" (* axioms and *) | "INDUCTIVE" -> true (* mutual inductive types are never local *) | "VARIABLE" -> false (* variables are local, so no namesakes *) | _ -> false (* uninteresting thing that won't be printed*) @@ -541,8 +539,7 @@ let print_coq_object lobj id sp dn fv env = let tag = tag_of_string_tag strtag in let obj = match strtag with - "CONSTANT" (* = Definition, Theorem *) - | "PARAMETER" (* = Axiom *) -> + "CONSTANT" (* = Definition, Theorem, Axiom *) let {D.const_body=val0 ; D.const_type = typ ; D.const_hyps = hyps} = G.lookup_constant sp in |