From 441ee955b0f9ff7a228f88c2d0cc7beac378a916 Mon Sep 17 00:00:00 2001 From: herbelin Date: Thu, 13 Mar 2003 13:11:51 +0000 Subject: Ajout réaffichage SubClass MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3765 85f007b7-540e-0410-9357-904b9bb8a0f7 --- library/decl_kinds.ml | 2 ++ parsing/g_vernac.ml4 | 4 ++-- translate/ppvernacnew.ml | 2 ++ 3 files changed, 6 insertions(+), 2 deletions(-) diff --git a/library/decl_kinds.ml b/library/decl_kinds.ml index cd7c666bb..10ae3d79b 100644 --- a/library/decl_kinds.ml +++ b/library/decl_kinds.ml @@ -23,6 +23,8 @@ type definitionkind = | GDefinition | LCoercion | GCoercion + | LSubClass + | GSubClass | SCanonical type locality_flag = (*bool (* local = true; global = false *)*) diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index a082772ac..dadef23dd 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -107,8 +107,8 @@ GEXTEND Gram def_token: [ [ "Definition" -> (fun _ _ -> ()), Global, GDefinition | IDENT "Local" -> (fun _ _ -> ()), Local, LDefinition - | IDENT "SubClass" -> Class.add_subclass_hook, Global, GCoercion - | IDENT "Local"; IDENT "SubClass" -> Class.add_subclass_hook, Local, LCoercion ] ] + | IDENT "SubClass" -> Class.add_subclass_hook, Global, GSubClass + | IDENT "Local"; IDENT "SubClass" -> Class.add_subclass_hook, Local, LSubClass ] ] ; assumption_token: [ [ "Hypothesis" -> (Local, Logical) diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml index 5f5e3b121..9a0bc64f8 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -429,6 +429,8 @@ let rec pr_vernac = function | Decl_kinds.GCoercion -> str"Coercion" | Decl_kinds.LDefinition -> str"Local" | Decl_kinds.GDefinition -> str"Definition" + | Decl_kinds.LSubClass -> str"Local SubClass" + | Decl_kinds.GSubClass -> str"SubClass" | Decl_kinds.SCanonical -> str"Canonical Structure" in let pr_reduce = function | None -> mt() -- cgit v1.2.3