# HG changeset patch
# User wenzelm
# Date 881062889 -3600
# Node ID e000b5db4087c4bf4a20214a91ece1bf11b481ac
# Parent  9849fb57c395c2fb292f1ce2e629e24deadf2466
tuned trfuns types;

diff -r 9849fb57c395 -r e000b5db4087 src/Pure/sign.ML
--- a/src/Pure/sign.ML	Tue Dec 02 12:41:02 1997 +0100
+++ b/src/Pure/sign.ML	Tue Dec 02 12:41:29 1997 +0100
@@ -103,12 +103,12 @@
   val add_modesyntax: (string * bool) * (bstring * string * mixfix) list -> sg -> sg
   val add_modesyntax_i: (string * bool) * (bstring * typ * mixfix) list -> sg -> sg
   val add_trfuns:
-    (bstring * (ast list -> ast)) list *
-    (bstring * (term list -> term)) list *
-    (bstring * (term list -> term)) list *
-    (bstring * (ast list -> ast)) list -> sg -> sg
+    (string * (ast list -> ast)) list *
+    (string * (term list -> term)) list *
+    (string * (term list -> term)) list *
+    (string * (ast list -> ast)) list -> sg -> sg
   val add_trfunsT:
-    (bstring * (bool -> typ -> term list -> term)) list -> sg -> sg
+    (string * (bool -> typ -> term list -> term)) list -> sg -> sg
   val add_tokentrfuns:
     (string * string * (string -> string * int)) list -> sg -> sg
   val add_trrules: (string * string) Syntax.trrule list -> sg -> sg
diff -r 9849fb57c395 -r e000b5db4087 src/Pure/theory.ML
--- a/src/Pure/theory.ML	Tue Dec 02 12:41:02 1997 +0100
+++ b/src/Pure/theory.ML	Tue Dec 02 12:41:29 1997 +0100
@@ -55,12 +55,12 @@
   val add_modesyntax: string * bool -> (bstring * string * mixfix) list -> theory -> theory
   val add_modesyntax_i: string * bool -> (bstring * typ * mixfix) list -> theory -> theory
   val add_trfuns:
-    (bstring * (Syntax.ast list -> Syntax.ast)) list *
-    (bstring * (term list -> term)) list *
-    (bstring * (term list -> term)) list *
-    (bstring * (Syntax.ast list -> Syntax.ast)) list -> theory -> theory
+    (string * (Syntax.ast list -> Syntax.ast)) list *
+    (string * (term list -> term)) list *
+    (string * (term list -> term)) list *
+    (string * (Syntax.ast list -> Syntax.ast)) list -> theory -> theory
   val add_trfunsT:
-    (bstring * (bool -> typ -> term list -> term)) list -> theory -> theory
+    (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