Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tuned trfuns types;
authorwenzelm
Tue, 02 Dec 1997 12:41:29 +0100
changeset 4344 e000b5db4087
parent 4343 9849fb57c395
child 4345 7e9436ffb813
tuned trfuns types;
src/Pure/sign.ML file | annotate | diff | comparison | revisions
src/Pure/theory.ML file | annotate | diff | comparison | revisions 
--- 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
--- 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
isabelle