--- a/src/Pure/theory.ML Thu Feb 12 12:35:50 1998 +0100
+++ b/src/Pure/theory.ML Thu Feb 12 12:36:28 1998 +0100
@@ -63,7 +63,7 @@
(string * (bool -> typ -> term list -> term)) list -> theory -> theory
val add_tokentrfuns:
(string * string * (string -> string * int)) list -> theory -> theory
- val add_trrules: (string * string) Syntax.trrule list -> theory -> theory
+ val add_trrules: (xstring * string) Syntax.trrule list -> theory -> theory
val add_trrules_i: Syntax.ast Syntax.trrule list -> theory -> theory
val add_axioms: (bstring * string) list -> theory -> theory
val add_axioms_i: (bstring * term) list -> theory -> theory