src/Pure/theory.ML
changeset 4617 cea2a5b5ee10
parent 4488 3e56603fde06
child 4627 ae95666c71cc
--- 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