author | paulson |
Tue, 13 Dec 2005 15:34:02 +0100 | |
changeset 18390 | aaecdaef4c04 |
parent 18389 | 8352b1d3b639 |
child 18391 | 2e901da7cd3a |
--- 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"),