now generates the name "append"
authorpaulson
Tue, 13 Dec 2005 15:34:02 +0100
changeset 18390 aaecdaef4c04
parent 18389 8352b1d3b639
child 18391 2e901da7cd3a
now generates the name "append"
src/HOL/Tools/res_clause.ML
--- a/src/HOL/Tools/res_clause.ML	Tue Dec 13 15:27:43 2005 +0100
+++ b/src/HOL/Tools/res_clause.ML	Tue Dec 13 15:34:02 2005 +0100
@@ -113,7 +113,8 @@
 		   ("{}", "emptyset"),
 		   ("op :", "in"),
 		   ("op Un", "union"),
-		   ("op Int", "inter")];
+		   ("op Int", "inter"),
+		   ("List.op @", "append")];
 
 val type_const_trans_table =
       Symtab.make [("*", "t_prod"),