src/HOL/Nominal/nominal_primrec.ML
changeset 59936 b8ffc3dc9e24
parent 59621 291934bac95e
child 59953 3d207f8f40dd
     1.1 --- a/src/HOL/Nominal/nominal_primrec.ML	Mon Apr 06 16:30:44 2015 +0200
     1.2 +++ b/src/HOL/Nominal/nominal_primrec.ML	Mon Apr 06 17:06:48 2015 +0200
     1.3 @@ -403,7 +403,7 @@
     1.4    Scan.optional (@{keyword "("} |-- Parse.!!! (parser2 --| @{keyword ")"})) (NONE, NONE);
     1.5  
     1.6  val _ =
     1.7 -  Outer_Syntax.local_theory_to_proof @{command_spec "nominal_primrec"}
     1.8 +  Outer_Syntax.local_theory_to_proof @{command_keyword nominal_primrec}
     1.9      "define primitive recursive functions on nominal datatypes"
    1.10      (options -- Parse.fixes -- Parse.for_fixes -- Parse_Spec.where_alt_specs
    1.11        >> (fn ((((invs, fctxt), fixes), params), specs) =>