src/HOL/thy_syntax.ML
changeset 1788 ca62fab4ce92
parent 1668 8ead1fe65aad
child 1845 afa622bc829d
     1.1 --- a/src/HOL/thy_syntax.ML	Tue Jun 04 12:49:04 1996 +0200
     1.2 +++ b/src/HOL/thy_syntax.ML	Thu Jun 06 13:13:18 1996 +0200
     1.3 @@ -84,7 +84,7 @@
     1.4      val ipairs = "intrs" $$-- repeat1 (ident -- !! string)
     1.5      fun optstring s = optional (s $$-- string) "\"[]\"" >> trim
     1.6    in
     1.7 -    repeat1 string -- ipairs -- optstring "monos" -- optstring "con_defs"
     1.8 +    repeat1 name -- ipairs -- optstring "monos" -- optstring "con_defs"
     1.9        >> mk_params
    1.10    end;
    1.11