author | Christian Urban <urbanc@in.tum.de> |
Thu, 13 May 2010 16:09:34 +0100 | |
changeset 2127 | fc42d4a06c06 |
parent 2126 | 79d2fc006098 |
child 2128 | abd46dfc0212 |
--- a/Nominal-General/nominal_permeq.ML Thu May 13 15:58:36 2010 +0100 +++ b/Nominal-General/nominal_permeq.ML Thu May 13 16:09:34 2010 +0100 @@ -155,7 +155,7 @@ (** methods **) - +val _ = OuterKeyword.keyword "exclude" val add_thms_parser = Scan.optional (Scan.lift (Args.add -- Args.colon) |-- Attrib.thms) []; val exclude_consts_parser = Scan.optional (Scan.lift ((Args.$$$ "exclude") -- Args.colon) |-- (Scan.repeat (Args.const true))) []