Quotes now optional around inductive set
authorpaulson
Thu Jun 06 13:13:18 1996 +0200 (1996-06-06)
changeset 1788ca62fab4ce92
parent 1787 9246e236a57f
child 1789 aade046ec6d5
Quotes now optional around inductive set
src/HOL/Sexp.thy
src/HOL/thy_syntax.ML
     1.1 --- a/src/HOL/Sexp.thy	Tue Jun 04 12:49:04 1996 +0200
     1.2 +++ b/src/HOL/Sexp.thy	Thu Jun 06 13:13:18 1996 +0200
     1.3 @@ -18,7 +18,7 @@
     1.4    
     1.5    pred_sexp :: "('a item * 'a item)set"
     1.6  
     1.7 -inductive "sexp"
     1.8 +inductive sexp
     1.9    intrs
    1.10      LeafI  "Leaf(a): sexp"
    1.11      NumbI  "Numb(i): sexp"
     2.1 --- a/src/HOL/thy_syntax.ML	Tue Jun 04 12:49:04 1996 +0200
     2.2 +++ b/src/HOL/thy_syntax.ML	Thu Jun 06 13:13:18 1996 +0200
     2.3 @@ -84,7 +84,7 @@
     2.4      val ipairs = "intrs" $$-- repeat1 (ident -- !! string)
     2.5      fun optstring s = optional (s $$-- string) "\"[]\"" >> trim
     2.6    in
     2.7 -    repeat1 string -- ipairs -- optstring "monos" -- optstring "con_defs"
     2.8 +    repeat1 name -- ipairs -- optstring "monos" -- optstring "con_defs"
     2.9        >> mk_params
    2.10    end;
    2.11