added 'no_syntax' command;
authorwenzelm
Sat, 16 Apr 2005 18:56:48 +0200
changeset 15748 e26fdd4aa95a
parent 15747 00d637286a69
child 15749 b57bff155e79
added 'no_syntax' command;
src/Pure/Isar/isar_syn.ML
--- a/src/Pure/Isar/isar_syn.ML	Sat Apr 16 18:56:37 2005 +0200
+++ b/src/Pure/Isar/isar_syn.ML	Sat Apr 16 18:56:48 2005 +0200
@@ -147,6 +147,10 @@
   OuterSyntax.command "syntax" "declare syntactic constants" K.thy_decl
     (opt_mode -- Scan.repeat1 P.const >> (Toplevel.theory o uncurry Theory.add_modesyntax));
 
+val no_syntaxP =
+  OuterSyntax.command "no_syntax" "delete syntax declarations" K.thy_decl
+    (opt_mode -- Scan.repeat1 P.const >> (Toplevel.theory o uncurry Theory.del_modesyntax));
+
 
 (* translations *)
 
@@ -791,10 +795,10 @@
   text_rawP, sectP, subsectP, subsubsectP, txtP, txt_rawP,
   (*theory sections*)
   classesP, classrelP, defaultsortP, typedeclP, typeabbrP, nontermP,
-  aritiesP, judgmentP, constsP, finalconstsP, syntaxP, translationsP,
-  axiomsP, defsP, constdefsP, theoremsP, lemmasP, declareP, globalP,
-  localP, hideP, useP, mlP, ml_commandP, ml_setupP, setupP,
-  method_setupP, parse_ast_translationP, parse_translationP,
+  aritiesP, judgmentP, constsP, finalconstsP, syntaxP, no_syntaxP,
+  translationsP, axiomsP, defsP, constdefsP, theoremsP, lemmasP,
+  declareP, globalP, localP, hideP, useP, mlP, ml_commandP, ml_setupP,
+  setupP, method_setupP, parse_ast_translationP, parse_translationP,
   print_translationP, typed_print_translationP,
   print_ast_translationP, token_translationP, oracleP, localeP,
   (*proof commands*)