--- a/src/Pure/Isar/outer_parse.ML Wed Jun 01 12:30:49 2005 +0200
+++ b/src/Pure/Isar/outer_parse.ML Wed Jun 01 12:30:50 2005 +0200
@@ -314,11 +314,14 @@
local
val loc_mixfix = $$$ "(" -- $$$ "structure" -- !!! ($$$ ")") >> K NONE || opt_mixfix >> SOME;
-val loc_keyword = $$$ "fixes" || $$$ "assumes" || $$$ "defines" || $$$ "notes" || $$$ "includes";
+val loc_keyword = $$$ "fixes" || $$$ "constrains" || $$$ "assumes" ||
+ $$$ "defines" || $$$ "notes" || $$$ "includes";
val loc_element =
$$$ "fixes" |-- !!! (and_list1 (name -- Scan.option ($$$ "::" |-- typ) -- loc_mixfix
>> triple1)) >> Locale.Fixes ||
+ $$$ "constrains" |-- !!! (and_list1 (name -- ($$$ "::" |-- typ)))
+ >> Locale.Constrains ||
$$$ "assumes" |-- !!! (and_list1 (opt_thm_name ":" -- Scan.repeat1 propp))
>> Locale.Assumes ||
$$$ "defines" |-- !!! (and_list1 (opt_thm_name ":" -- propp'))