src/Pure/General/markup.ML
changeset 33167 f02b804305d6
parent 33158 6e3dc0ba2b06
child 33172 61ee96bc9895
equal deleted inserted replaced
33166:55f250ef9e31 33167:f02b804305d6
    11   val is_none: T -> bool
    11   val is_none: T -> bool
    12   val properties: (string * string) list -> T -> T
    12   val properties: (string * string) list -> T -> T
    13   val nameN: string
    13   val nameN: string
    14   val name: string -> T -> T
    14   val name: string -> T -> T
    15   val bindingN: string val binding: string -> T
    15   val bindingN: string val binding: string -> T
    16   val groupN: string
       
    17   val theory_nameN: string
    16   val theory_nameN: string
    18   val kindN: string
    17   val kindN: string
    19   val internalK: string
    18   val internalK: string
    20   val entityN: string val entity: string -> T
    19   val entityN: string val entity: string -> T
    21   val defN: string
    20   val defN: string
   149 val nameN = "name";
   148 val nameN = "name";
   150 fun name a = properties [(nameN, a)];
   149 fun name a = properties [(nameN, a)];
   151 
   150 
   152 val (bindingN, binding) = markup_string "binding" nameN;
   151 val (bindingN, binding) = markup_string "binding" nameN;
   153 
   152 
   154 val groupN = "group";
       
   155 val theory_nameN = "theory_name";
   153 val theory_nameN = "theory_name";
   156 
   154 
   157 
   155 
   158 (* kind *)
   156 (* kind *)
   159 
   157