more precise type Symbol_Pos.text;
authorwenzelm
Wed Mar 18 22:41:14 2009 +0100 (2009-03-18)
changeset 30575368e26dfba69
parent 30574 b9bcc640ed58
child 30576 7e5b9bbc54d8
more precise type Symbol_Pos.text;
src/Pure/Isar/attrib.ML
src/Pure/Isar/isar_cmd.ML
src/Pure/Isar/method.ML
     1.1 --- a/src/Pure/Isar/attrib.ML	Wed Mar 18 22:41:14 2009 +0100
     1.2 +++ b/src/Pure/Isar/attrib.ML	Wed Mar 18 22:41:14 2009 +0100
     1.3 @@ -26,7 +26,8 @@
     1.4    val add_attributes: (bstring * (src -> attribute) * string) list -> theory -> theory
     1.5    val syntax: attribute context_parser -> src -> attribute
     1.6    val setup: Binding.binding -> attribute context_parser -> string -> theory -> theory
     1.7 -  val attribute_setup: bstring * Position.T -> string * Position.T -> string -> theory -> theory
     1.8 +  val attribute_setup: bstring * Position.T -> Symbol_Pos.text * Position.T -> string ->
     1.9 +    theory -> theory
    1.10    val no_args: attribute -> src -> attribute
    1.11    val add_del: attribute -> attribute -> attribute context_parser
    1.12    val add_del_args: attribute -> attribute -> src -> attribute
     2.1 --- a/src/Pure/Isar/isar_cmd.ML	Wed Mar 18 22:41:14 2009 +0100
     2.2 +++ b/src/Pure/Isar/isar_cmd.ML	Wed Mar 18 22:41:14 2009 +0100
     2.3 @@ -6,18 +6,18 @@
     2.4  
     2.5  signature ISAR_CMD =
     2.6  sig
     2.7 -  val global_setup: string * Position.T -> theory -> theory
     2.8 -  val local_setup: string * Position.T -> Proof.context -> Proof.context
     2.9 -  val parse_ast_translation: bool * (string * Position.T) -> theory -> theory
    2.10 -  val parse_translation: bool * (string * Position.T) -> theory -> theory
    2.11 -  val print_translation: bool * (string * Position.T) -> theory -> theory
    2.12 -  val typed_print_translation: bool * (string * Position.T) -> theory -> theory
    2.13 -  val print_ast_translation: bool * (string * Position.T) -> theory -> theory
    2.14 +  val global_setup: Symbol_Pos.text * Position.T -> theory -> theory
    2.15 +  val local_setup: Symbol_Pos.text * Position.T -> Proof.context -> Proof.context
    2.16 +  val parse_ast_translation: bool * (Symbol_Pos.text * Position.T) -> theory -> theory
    2.17 +  val parse_translation: bool * (Symbol_Pos.text * Position.T) -> theory -> theory
    2.18 +  val print_translation: bool * (Symbol_Pos.text * Position.T) -> theory -> theory
    2.19 +  val typed_print_translation: bool * (Symbol_Pos.text * Position.T) -> theory -> theory
    2.20 +  val print_ast_translation: bool * (Symbol_Pos.text * Position.T) -> theory -> theory
    2.21    val oracle: bstring * Position.T -> Symbol_Pos.text * Position.T -> theory -> theory
    2.22    val add_axioms: ((binding * string) * Attrib.src list) list -> theory -> theory
    2.23    val add_defs: (bool * bool) * ((binding * string) * Attrib.src list) list -> theory -> theory
    2.24 -  val declaration: string * Position.T -> local_theory -> local_theory
    2.25 -  val simproc_setup: string -> string list -> string * Position.T -> string list ->
    2.26 +  val declaration: Symbol_Pos.text * Position.T -> local_theory -> local_theory
    2.27 +  val simproc_setup: string -> string list -> Symbol_Pos.text * Position.T -> string list ->
    2.28      local_theory -> local_theory
    2.29    val hide_names: bool -> string * xstring list -> theory -> theory
    2.30    val have: (Attrib.binding * (string * string list) list) list -> bool -> Proof.state -> Proof.state
    2.31 @@ -38,7 +38,7 @@
    2.32    val pr: string list * (int option * int option) -> Toplevel.transition -> Toplevel.transition
    2.33    val disable_pr: Toplevel.transition -> Toplevel.transition
    2.34    val enable_pr: Toplevel.transition -> Toplevel.transition
    2.35 -  val ml_diag: bool -> string * Position.T -> Toplevel.transition -> Toplevel.transition
    2.36 +  val ml_diag: bool -> Symbol_Pos.text * Position.T -> Toplevel.transition -> Toplevel.transition
    2.37    val cd: Path.T -> Toplevel.transition -> Toplevel.transition
    2.38    val pwd: Toplevel.transition -> Toplevel.transition
    2.39    val display_drafts: Path.T list -> Toplevel.transition -> Toplevel.transition
     3.1 --- a/src/Pure/Isar/method.ML	Wed Mar 18 22:41:14 2009 +0100
     3.2 +++ b/src/Pure/Isar/method.ML	Wed Mar 18 22:41:14 2009 +0100
     3.3 @@ -81,7 +81,8 @@
     3.4      -> theory -> theory
     3.5    val syntax: 'a context_parser -> src -> Proof.context -> 'a * Proof.context
     3.6    val setup: binding -> (Proof.context -> method) context_parser -> string -> theory -> theory
     3.7 -  val method_setup: bstring * Position.T -> string * Position.T -> string -> theory -> theory
     3.8 +  val method_setup: bstring * Position.T -> Symbol_Pos.text * Position.T -> string ->
     3.9 +    theory -> theory
    3.10    val simple_args: 'a parser -> ('a -> Proof.context -> method) -> src -> Proof.context -> method
    3.11    val ctxt_args: (Proof.context -> method) -> src -> Proof.context -> method
    3.12    val no_args: method -> src -> Proof.context -> method