src/HOL/BNF/Tools/bnf_fp_def_sugar.ML
changeset 51380 cac8c9a636b6
parent 50170 8155e280f239
child 51551 88d1d19fb74f
     1.1 --- a/src/HOL/BNF/Tools/bnf_fp_def_sugar.ML	Fri Mar 08 13:21:58 2013 +0100
     1.2 +++ b/src/HOL/BNF/Tools/bnf_fp_def_sugar.ML	Fri Mar 08 14:15:39 2013 +0100
     1.3 @@ -1165,7 +1165,7 @@
     1.4  
     1.5  val datatypes = define_datatypes (K I) (K I) (K I);
     1.6  
     1.7 -val datatype_cmd = define_datatypes Typedecl.read_constraint Syntax.parse_typ Syntax.read_term;
     1.8 +val datatype_cmd = define_datatypes Typedecl.read_constraint Syntax.parse_typ Syntax.parse_term;
     1.9  
    1.10  val parse_ctr_arg =
    1.11    @{keyword "("} |-- parse_binding_colon -- Parse.typ --| @{keyword ")"} ||