tuned signature;
authorwenzelm
Mon Aug 04 20:27:39 2008 +0200 (2008-08-04)
changeset 27729aaf08262b177
parent 27728 9a9e54042800
child 27730 f76b87a9d27c
tuned signature;
eliminated obsolete pervasives;
src/Pure/Isar/attrib.ML
src/Pure/Isar/method.ML
     1.1 --- a/src/Pure/Isar/attrib.ML	Mon Aug 04 20:27:38 2008 +0200
     1.2 +++ b/src/Pure/Isar/attrib.ML	Mon Aug 04 20:27:39 2008 +0200
     1.3 @@ -5,15 +5,10 @@
     1.4  Symbolic representation of attributes -- with name and syntax.
     1.5  *)
     1.6  
     1.7 -signature BASIC_ATTRIB =
     1.8 -sig
     1.9 -  val print_attributes: theory -> unit
    1.10 -end;
    1.11 -
    1.12  signature ATTRIB =
    1.13  sig
    1.14 -  include BASIC_ATTRIB
    1.15 -  type src
    1.16 +  type src = Args.src
    1.17 +  val print_attributes: theory -> unit
    1.18    val intern: theory -> xstring -> string
    1.19    val intern_src: theory -> src -> src
    1.20    val pretty_attribs: Proof.context -> src list -> Pretty.T list
    1.21 @@ -51,6 +46,7 @@
    1.22  
    1.23  type src = Args.src;
    1.24  
    1.25 +
    1.26  (** named attributes **)
    1.27  
    1.28  (* theory data *)
    1.29 @@ -392,6 +388,3 @@
    1.30    register_config MetaSimplifier.simp_depth_limit_value));
    1.31  
    1.32  end;
    1.33 -
    1.34 -structure BasicAttrib: BASIC_ATTRIB = Attrib;
    1.35 -open BasicAttrib;
     2.1 --- a/src/Pure/Isar/method.ML	Mon Aug 04 20:27:38 2008 +0200
     2.2 +++ b/src/Pure/Isar/method.ML	Mon Aug 04 20:27:39 2008 +0200
     2.3 @@ -11,7 +11,6 @@
     2.4    val HEADGOAL: (int -> thm -> 'a Seq.seq) -> thm -> 'a Seq.seq
     2.5    type method
     2.6    val trace_rules: bool ref
     2.7 -  val print_methods: theory -> unit
     2.8  end;
     2.9  
    2.10  signature METHOD =
    2.11 @@ -54,7 +53,7 @@
    2.12    val set_tactic: (thm list -> tactic) -> Proof.context -> Proof.context
    2.13    val tactic: string * Position.T -> Proof.context -> method
    2.14    val raw_tactic: string * Position.T -> Proof.context -> method
    2.15 -  type src
    2.16 +  type src = Args.src
    2.17    datatype text =
    2.18      Basic of (Proof.context -> method) * Position.T |
    2.19      Source of src |
    2.20 @@ -71,6 +70,7 @@
    2.21    val done_text: text
    2.22    val sorry_text: bool -> text
    2.23    val finish_text: text option * bool -> Position.T -> text
    2.24 +  val print_methods: theory -> unit
    2.25    val intern: theory -> xstring -> string
    2.26    val defined: theory -> string -> bool
    2.27    val method: theory -> src -> Proof.context -> method
    2.28 @@ -646,7 +646,6 @@
    2.29  in val parse_args = meth3 end;
    2.30  
    2.31  
    2.32 -
    2.33  (*final declarations of this structure!*)
    2.34  val unfold = unfold_meth;
    2.35  val fold = fold_meth;