# HG changeset patch
# User wenzelm
# Date 952555664 -3600
# Node ID 52d5fae273dd9ddaebf5ce4038e8fe0aa72492ad
# Parent  4fc7e63781f6d10eeaaa72939f561102f3ac03ff
fixed section syntax;

diff -r 4fc7e63781f6 -r 52d5fae273dd src/Provers/classical.ML
--- a/src/Provers/classical.ML	Wed Mar 08 23:46:59 2000 +0100
+++ b/src/Provers/classical.ML	Wed Mar 08 23:47:44 2000 +0100
@@ -1021,8 +1021,11 @@
 val delN = "del";
 val delruleN = "delrule";
 
+val colon = Args.$$$ ":";
 val query = Args.$$$ "?";
 val qquery = Args.$$$ "??";
+val query_colon = Args.$$$ "?:";
+val qquery_colon = Args.$$$ "??:";
 
 fun cla_att change xtra haz safe = Attrib.syntax
   (Scan.lift ((qquery >> K xtra || query >> K haz || Scan.succeed safe) >> change));
@@ -1133,16 +1136,16 @@
 (* automatic methods *)
 
 val cla_modifiers =
- [Args.$$$ destN -- qquery >> K ((I, xtra_dest_local):Method.modifier),
-  Args.$$$ destN -- query >> K (I, haz_dest_local),
-  Args.$$$ destN >> K (I, safe_dest_local),
-  Args.$$$ elimN -- qquery >> K (I, xtra_elim_local),
-  Args.$$$ elimN -- query >> K (I, haz_elim_local),
-  Args.$$$ elimN >> K (I, safe_elim_local),
-  Args.$$$ introN -- qquery >> K (I, xtra_intro_local),
-  Args.$$$ introN -- query >> K (I, haz_intro_local),
-  Args.$$$ introN >> K (I, safe_intro_local),
-  Args.$$$ delN >> K (I, delrule_local)];
+ [Args.$$$ destN -- qquery_colon >> K ((I, xtra_dest_local):Method.modifier),
+  Args.$$$ destN -- query_colon >> K (I, haz_dest_local),
+  Args.$$$ destN -- colon >> K (I, safe_dest_local),
+  Args.$$$ elimN -- qquery_colon >> K (I, xtra_elim_local),
+  Args.$$$ elimN -- query_colon >> K (I, haz_elim_local),
+  Args.$$$ elimN -- colon >> K (I, safe_elim_local),
+  Args.$$$ introN -- qquery_colon >> K (I, xtra_intro_local),
+  Args.$$$ introN -- query_colon >> K (I, haz_intro_local),
+  Args.$$$ introN -- colon >> K (I, safe_intro_local),
+  Args.$$$ delN -- colon >> K (I, delrule_local)];
 
 fun cla_meth tac prems ctxt = Method.METHOD (fn facts =>
   ALLGOALS (Method.insert_tac (prems @ facts)) THEN tac (get_local_claset ctxt));
diff -r 4fc7e63781f6 -r 52d5fae273dd src/Provers/simplifier.ML
--- a/src/Provers/simplifier.ML	Wed Mar 08 23:46:59 2000 +0100
+++ b/src/Provers/simplifier.ML	Wed Mar 08 23:47:44 2000 +0100
@@ -474,17 +474,19 @@
 
 (* simplification *)
 
+val colon = Args.$$$ ":";
+
 val simp_modifiers =
- [Args.$$$ simpN -- Args.$$$ addN >> K (I, simp_add_local),
-  Args.$$$ simpN -- Args.$$$ delN >> K (I, simp_del_local),
-  Args.$$$ simpN -- Args.$$$ onlyN >> K (map_local_simpset clear_ss, simp_add_local),
-  Args.$$$ otherN >> K (I, I)];
+ [Args.$$$ simpN -- Args.$$$ addN -- colon >> K (I, simp_add_local),
+  Args.$$$ simpN -- Args.$$$ delN -- colon >> K (I, simp_del_local),
+  Args.$$$ simpN -- Args.$$$ onlyN -- colon >> K (map_local_simpset clear_ss, simp_add_local),
+  Args.$$$ otherN -- colon >> K (I, I)];
 
 val simp_modifiers' =
- [Args.$$$ addN >> K (I, simp_add_local),
-  Args.$$$ delN >> K (I, simp_del_local),
-  Args.$$$ onlyN >> K (map_local_simpset clear_ss, simp_add_local),
-  Args.$$$ otherN >> K (I, I)];
+ [Args.$$$ addN -- colon >> K (I, simp_add_local),
+  Args.$$$ delN -- colon >> K (I, simp_del_local),
+  Args.$$$ onlyN -- colon >> K (map_local_simpset clear_ss, simp_add_local),
+  Args.$$$ otherN -- colon >> K (I, I)];
 
 fun simp_method tac =
   (fn prems => fn ctxt => Method.METHOD (fn facts =>