# HG changeset patch
# User wenzelm
# Date 887283388 -3600
# Node ID cea2a5b5ee100e9215f28ad9641077d01b01cba5
# Parent  d257e6c6614fe2dac8df667d3858099332b5d5a5
tuned add_trrules;

diff -r d257e6c6614f -r cea2a5b5ee10 src/Pure/theory.ML
--- 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