export mk_triple1/2;

--- a/src/Pure/Thy/thy_parse.ML	Sat Jun 20 19:53:05 1998 +0200
+++ b/src/Pure/Thy/thy_parse.ML	Sat Jun 20 20:18:22 1998 +0200
@@ -67,6 +67,8 @@
   val mk_big_list: string list -> string
   val mk_pair: string * string -> string
   val mk_triple: string * string * string -> string
+  val mk_triple1: (string * string) * string -> string
+  val mk_triple2: string * (string * string) -> string
   val strip_quotes: string -> string
 end;